home *** CD-ROM | disk | FTP | other *** search
/ Der Mediaplex Sampler - Die 6 von Plex / 6_v_plex.zip / 6_v_plex / DISK4 / BUSIN_02 / TOPFAKT.ZIP / TOPFAKT / AB.FOR next >
Text File  |  1993-07-01  |  10KB  |  178 lines
  1. / FORMULAR AUFTRAGSBESTÄTIGUNG
  2. /                              das, was nach / bzw. // steht, wird nicht gedruckt
  3. ^E ^12                      // Druck in Entwurfsqualität, Größe 12 CPI
  4. !LINKER RAND 6              // ein Rand von 6 Zeichen
  5. !AUSDRUCKE 1                // Anzahl der Ausdrucke festlegen
  6. /
  7. !WENN #Seite= 1             // Firmenkopf+ Adresse nur auf 1.Seite drucken
  8. #Firmenkopf                 // Firmenkopf einsetzen (7 Zeilen lang)
  9.  
  10.  
  11.  
  12.   ^17^U#Firmenabsender ^u ^12       // Ihr Absender in 17 CPI & unterstrichen
  13.  
  14.   #Anrede
  15.   #Vorname#Name
  16.   [[#Name2 ]]                       // diese Zeile nicht drucken, wenn Name2 leer
  17.   #Strasse
  18.  
  19. ^F  #Land#Plz  #Ort ^f               // diese Zeile in fett
  20. !ENDE WENN #Seite=1
  21.  
  22. !GEHE ZU ZEILE 15                   // für Druck ab 2. Seite, damit vorgedruckter Briefkopf nicht überschrieben wd.
  23.                                                 Auftragsbestätigung : #AtrNr:8:0
  24.                                                 Kunden-Nr.          : #KdNr:8:0
  25.                                                 [[Bestätigung vom     : #AbDatum ]]
  26.                                                 [[Lieferscheindatum   : #LsDatum ]]
  27.                                                 [[Rechnungsdatum      : #RgDatum ]]
  28.                                                 [[Valuta              : #ValutaDatum ]]
  29.                                                 [[Seite               : #SEITE2:8:0 ]]  // Erst ab 2.Seite drucken
  30.  
  31. ^BAUFTRAGSBESTÄTIGUNG ^b ^12 #Vermerk
  32. [[#Kopftext:79 ]]
  33. ──────────────────────────────────────────────────────────────────────────────
  34. Artikelnr. Bezeichnung                        Menge Einh.   E-PREIS    G-Preis #Rabattitel
  35. ──────────────────────────────────────────────────────────────────────────────
  36. /234567890 123456789012345678901234567890 123456789 12345 123456789 1234567890 12.45%
  37. /*****************************************************************************
  38. !LISTE:35:47                           // Liste max.bis Druckzeile 35 bzw. 47
  39. /
  40. !#GP:= 0
  41. !WENN .NOT. #TextPosition
  42.   !#GP:= Round( #Men * #EPreis, 2)                    // Ges.Preis Position
  43.   !#GP:= #GP - Round( #GP * #RabattProz / 100, 2)     // Rabatt abziehen
  44.   !#GP:= #GP - Round( #GP * #RabattProz2/ 100, 2)     // 2. Rabatt abziehen
  45.   !#Summe:= #Summe+ #GP                               // Auftragssumme addieren
  46.   !#NettoSumme1:= #NettoSumme1+ #NettoPreisSteuer1    // Nettobetrag für 1. Mwstsatz
  47.   !#NettoSumme2:= #NettoSumme2+ #NettoPreisSteuer2    // Nettobetrag für 2. Mwstsatz
  48.   !#RabattGesamt:= #RabattGesamt+ Round( #MEN * #EPreis,2) - #GP
  49. !ENDE WENN
  50. /
  51. #ArtNr     #ArtText:30                    #MEN:9    #EINH #EPreis:9 [#GP:10 ]    ^17 #Rabatt1 #Rabatt2 ^12
  52. !ENDELISTE
  53. /*****************************************************************************
  54. /!GEHE ZU ZEILE 45                    // hiermit kann die Endsumme fest positioniert werden
  55. ──────────────────────────────────────────────────────────────────────────────
  56. !WENN #LetzteSeite
  57. !WENN #AtrBrutto
  58.                                                [[Rabatt gesamt      : #RabattGesamt:10 #Währung ]]
  59.                                                Summe              : #Summe:10:2 #Währung
  60.                                                [[#StBez #STP1 incl. : #SteuerSumme1:10 #Währung ]]
  61.                                                [[#StBez #STP2 incl. : #SteuerSumme2:10 #Währung ]]
  62.                                                ───────────────────────────────
  63.                                               ^F Endbetrag          : #Summe:10  #Währung ^f
  64.                                                ═══════════════════════════════
  65. !ENDE WENN
  66. !WENN #AtrNetto
  67.                                                [[Rabatt gesamt      : #RabattGesamt:10 #Währung ]]
  68.                                                Summe              : #Summe:10:2 #Währung
  69.                                                [[#StBez #STP1 zzgl. : #SteuerSumme1:10 #Währung ]]
  70.                                                [[#StBez #STP2 zzgl. : #SteuerSumme2:10 #Währung ]]
  71.                                                ───────────────────────────────
  72.                                               ^F Endbetrag          : #BruttoSumme:10 #Währung ^f
  73.                                                ═══════════════════════════════
  74. !ENDE WENN
  75.  
  76. /[[Zahlbar innerhalb #ZahlungIn Tagen bis zum #ZahlungbisDatum ohne Abzüge.]]
  77. [[Bei Zahlung innerhalb #Skontotage Tagen bis zum #SkontoBisDatum #SkontoProz:5 % Skonto =#SkontoBetrag:7 #Währung ]]
  78.  
  79. [[#Fusstext:79 ]]
  80. /
  81. !GEHE ZU ZEILE 56
  82. Wir danken für Ihren Auftrag und verbleiben mit freundlichen Grüßen.
  83.  
  84. ^17#Bank1                                    #Bank2                                    #Bank3                                    ^12
  85. ^17#Blz1             #Kontonr1               #Blz2             #Kontonr2               #Blz3             #Kontonr3               ^12
  86. /
  87. !ENDE WENN #LetzteSeite
  88. !SEITENAUSWURF
  89. !FORMULARENDE    // alles, was hiernach kommt, wird nicht mehr gedruckt...
  90.  
  91.  
  92.  
  93.  
  94. *******************************************************************************
  95. / Es folgt die Definition der Platzhalter, die Sie nicht löschen sollten.
  96. / Sie können die Platzhalter ändern und ergänzen, allerdings auf eigene Gefahr.
  97. *******************************************************************************
  98. !PLATZHALTER
  99.   #AtrNr ,           ako->at_nr
  100.   #KdNr ,            ako->at_kdnr
  101.   #FIRMENABSENDER ,  fir->fenster
  102.   #ANREDE ,          kun->anrede
  103.   #VORNAME ,         LTrim( Trim( kun->n1)+ ' ')
  104.   #NAME ,            kun->n2
  105.   #NAME2 ,           kun->ansprechp
  106.   #STRASSE ,         kun->strasse
  107.   #LAND ,            Trim( kun->land)+ IF( .NOT. Empty( kun->land), '-', '')
  108.   #PLZ ,             kun->plz
  109.   #ORT ,             kun->ort
  110.   #Briefanrede,      Trim( kun->briefanred)+ IF( ! Empty( kun->briefanred), ',', '')
  111.  
  112.   #AgDatum ,         ako->at_dat       // Datum des Angebots (=Auftrag vom)
  113.   #AbDatum ,         ako->at_bestdat   // Datum der Auftragsbestätigung
  114.   #LsDatum ,         ako->at_liefdat   // Datum des Lieferscheins (falls gedruckt)
  115.   #RgDatum ,         ako->at_rgdat     // Datum der Rechnung
  116.   #GsDatum ,         ako->at_rgdat     // Datum der Gutschrift
  117.   #ValutaDatum,      ako->at_valuta
  118.   #AtrBrutto ,       ako->at_mwstinc='J'    // Auftrag=Brutto (Mwst. incl.)
  119.   #AtrNetto ,        ako->at_mwstinc$'N0'   // Auftrag=Netto  (Mwst. zzgl.)
  120.   #AtrAusland ,      ako->at_mwstinc='0'    // Auftrag Ohne Steuer
  121.   #AtrRabatt ,       ako->at_rabatt    // im Auftragskopf eingegebener Rabatt
  122.  
  123.   #TextPosition,     IsTextApo()       // enthält Position nur Text?
  124.   #RabattProz,       apo->art_rabatt   // Rabatt der einzelnen Position
  125.   #RabattProz2,      kun->rabatt2      // zusätzlicher fester 2.Kundenrabatt
  126.   #Rabattitel,       IF( #AtrRabatt <> 0, 'Rabatt', '')
  127.   #Rabatt1,          IF( Empty( #RabattProz) .OR. IsTextApo(),  '      ', Str( #RabattProz,5,2)+ '%')
  128.   #Rabatt2,          IF( Empty( #RabattProz2) .OR. IsTextApo(), '', Str( #RabattProz2,5,2)+ '%')
  129.   #EINH,             apo->Mengeneinh
  130.   #MEN ,             IF( IsTextApo(), '', apo->liefmenge ) // Menge der Position
  131.   #EPreis ,          IF( IsTextApo(), '', apo->epreis )    // Einzelpreis der Position
  132.   #GP ,              gespreis          // Variable für den berechneten GPreis
  133.   #Summe,            Summe             // Auftr.summe Netto bzw. Brutto
  134.   #RabattGesamt,     rabattges         // Rabattbetrag des Auftrags Netto bzw. Brutto
  135.   #StBez ,           fir->bezsteuer    // Bezeichnung der Steuer: Mwst./WUST...
  136.   #STP1 ,            MwstForm( fir->mwst1)
  137.   #STP2 ,            MwstForm( fir->mwst2)
  138.   #NettoSumme1 ,     NettoSum1         // Nettosumme für Art. mit 1. Mwstsatz
  139.   #NettoSumme2 ,     NettoSum2         // Nettosumme für Art. mit 2. Mwstsatz
  140.  
  141.   #SteuerSumme1 ,    NettoSum1 * fir->mwst1 / 100  // Steuerbetrag für Steuersatz 1
  142.   #SteuerSumme2 ,    NettoSum2 * fir->mwst2 / 100  // Steuerbetrag für Steuersatz 2
  143.   #BruttoSumme ,     #Summe + #SteuerSumme1 + #SteuerSumme2
  144.   #Auftragsumme,     IF( #AtrBrutto, #Summe, #BruttoSumme )  // Endsumme Auftrag
  145.  
  146.   #Pos,              apo->pos+ IF( Empty( apo->pos), ' ', '.') // Durchnummerierung der Positionen
  147.   #ArtNr ,           IF( IsTextApo( apo->art_nr), '          ', apo->art_nr)
  148.   #ArtName ,         Trim( apo->Art_name)        // Artikelkurzbezeichung
  149.   #ArtText ,         Trim( apo->Text)            // Ausführlicher Text
  150.   #ArtStSatz ,       apo->art_mwsatz             // Steuersatz: 1/2/0
  151.   #ArtStProz ,       mwst( #ArtStSatz)           // Steuer-Prozentsatz
  152.   #ArtSteuer1 ,      IF( #ArtStSatz= 1, IF( ako->at_mwstinc='N', #GP* #ArtStProz/100, #GP- #GP /( 1+ #ArtStProz/100)), 0)
  153.   #ArtSteuer2 ,      IF( #ArtStSatz= 2, IF( ako->at_mwstinc='N', #GP* #ArtStProz/100, #GP- #GP /( 1+ #ArtStProz/100)), 0)
  154.   #NettoPreisSteuer1, IF( apo->art_mwsatz= 1, IF( ako->at_mwstinc='N', #GP, #GP /( 1+ #ArtStProz/100)), 0)
  155.   #NettoPreisSteuer2, IF( apo->art_mwsatz= 2, IF( ako->at_mwstinc='N', #GP, #GP /( 1+ #ArtStProz/100)), 0)
  156.  
  157.   #Vermerk,          IF( Substr( ako->at_titel,1,1)= '"', '', ako->at_titel)
  158.   #Kopftext ,        IF( #Seite=1, ako->at_kopf, '')
  159.   #Fusstext ,        ako->at_fuss
  160.   #Nachnahme,        "Nachnahme" $ "#Fusstext"    // Steht "Nachn." im Fusstext des Auftrags?
  161.  
  162.   #ZahlungIn,        ako->zahlungin    // Zahlbar innerhalb .. Tagen
  163.   #ZahlungBisDatum,  IF( #ZahlungIn = 0, '', ako->at_rgdat + #ZahlungIn )
  164.   #SkontoProz,       ako->skonto       // Skonto in Prozent
  165.   #SkontoTage,       ako->skontotage   // Tage, innerhalb deren Skonto gewährt wird
  166.   #SkontoBisDatum,   ako->at_rgdat + #SkontoTage
  167.   #SkontoBetrag,     #Auftragsumme * (#SkontoProz / 100)
  168.  
  169.   #Bank1,            fir->bank1        // 1. Bankverbindung
  170.   #Blz1,             fir->blz_1
  171.   #Kontonr1,         fir->knr_1
  172.   #Bank2,            fir->bank2        // 2. Bankverbindung
  173.   #Blz2,             fir->blz_2
  174.   #Kontonr2,         fir->knr_2
  175.   #Bank3,            Trim( fir->bank3) // 3. Bankverbindung
  176.   #Blz3,             fir->blz_3
  177.   #Kontonr3,         Trim( fir->knr_3)
  178. !ENDE PLATZHALTER