home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 1 / romside_best_of_german_only_1.iso / branchen / topfaktu / topfakt / gs.for < prev    next >
Text File  |  1992-01-14  |  10KB  |  177 lines

  1. / FORMULAR GUTSCHRIFT
  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.                                                   Gutschrift        : #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. ^BGUTSCHRIFT ^b ^12 #Vermerk
  31. [[#Kopftext:79 ]]
  32. ──────────────────────────────────────────────────────────────────────────────
  33. Artikelnr. Bezeichnung                        Menge Einh.   E-PREIS    G-Preis #Rabattitel
  34. ──────────────────────────────────────────────────────────────────────────────
  35. /234567890 123456789012345678901234567890 123456789 12345 123456789 1234567890 12.45%
  36. /*****************************************************************************
  37. !LISTE:35:47                           // Liste max.bis Druckzeile 35 bzw. 47
  38. /
  39. !#GP:= 0
  40. !WENN .NOT. #TextPosition
  41.   !#GP:= Round( #Men * #EPreis, 2)                    // Ges.Preis Position
  42.   !#GP:= #GP - Round( #GP * #RabattProz / 100, 2)     // Rabatt abziehen
  43.   !#GP:= #GP - Round( #GP * #RabattProz2/ 100, 2)     // 2. Rabatt abziehen
  44.   !#Summe:= #Summe+ #GP                               // Auftragssumme addieren
  45.   !#NettoSumme1:= #NettoSumme1+ #NettoPreisSteuer1    // Nettobetrag für 1. Mwstsatz
  46.   !#NettoSumme2:= #NettoSumme2+ #NettoPreisSteuer2    // Nettobetrag für 2. Mwstsatz
  47.   !#RabattGesamt:= #RabattGesamt+ Round( #MEN * #EPreis,2) - #GP
  48. !ENDE WENN
  49. /
  50. #ArtNr     #ArtText:30                    #MEN:9    #EINH #EPreis:9 [#GP:10 ]    ^17 #Rabatt1 #Rabatt2 ^12
  51. !ENDELISTE
  52. /*****************************************************************************
  53. /!GEHE ZU ZEILE 45                    // hiermit kann die Endsumme fest positioniert werden
  54. ──────────────────────────────────────────────────────────────────────────────
  55. !WENN #LetzteSeite
  56. !WENN #AtrBrutto
  57.                                                [[Rabatt gesamt      : #RabattGesamt:10 #Währung ]]
  58.                                                Summe              : #Summe:10:2 #Währung
  59.                                                [[#StBez #STP1 incl. : #SteuerSumme1:10 #Währung ]]
  60.                                                [[#StBez #STP2 incl. : #SteuerSumme2:10 #Währung ]]
  61.                                                ───────────────────────────────
  62.                                               ^F Gutschrift         : #Summe:10  #Währung ^f
  63.                                                ═══════════════════════════════
  64. !ENDE WENN
  65. !WENN #AtrNetto
  66.                                                [[Rabatt gesamt      : #RabattGesamt:10 #Währung ]]
  67.                                                Summe              : #Summe:10:2 #Währung
  68.                                                [[#StBez #STP1 zzgl. : #SteuerSumme1:10 #Währung ]]
  69.                                                [[#StBez #STP2 zzgl. : #SteuerSumme2:10 #Währung ]]
  70.                                                ───────────────────────────────
  71.                                               ^F Gutschrift         : #BruttoSumme:10 #Währung ^f
  72.                                                ═══════════════════════════════
  73. !ENDE WENN
  74.  
  75. [[#Fusstext:79 ]]
  76. /
  77. !GEHE ZU ZEILE 58
  78. ^17#Bank1                                    #Bank2                                    #Bank3                                    ^12
  79. ^17#Blz1             #Kontonr1               #Blz2             #Kontonr2               #Blz3             #Kontonr3               ^12
  80.  
  81. ^20Diese Gutschrift wurde mit TOP-FAKTURA V2.0 erstellt! ^10
  82. /
  83. !ENDE WENN #LetzteSeite
  84. !SEITENAUSWURF
  85. / !WENN #Nachnahme                    // Wenn das Wort "Nachnahme" im
  86. /   !DRUCKE FORMULAR paketkar.for     // Fusstext steht, wird das
  87. / !ENDE WENN                          // Formular "Paketkar.for" gedruckt
  88. !FORMULARENDE    // alles, was hiernach kommt, wird nicht mehr gedruckt...
  89.  
  90.  
  91.  
  92.  
  93. *******************************************************************************
  94. / Es folgt die Definition der Platzhalter, die Sie nicht löschen sollten.
  95. / Sie können die Platzhalter ändern und ergänzen, allerdings auf eigene Gefahr.
  96. *******************************************************************************
  97. !PLATZHALTER
  98.   #AtrNr ,           ako->at_nr
  99.   #KdNr ,            ako->at_kdnr
  100.   #FIRMENABSENDER ,  fir->fenster
  101.   #ANREDE ,          kun->anrede
  102.   #VORNAME ,         LTrim( Trim( kun->n1)+ ' ')
  103.   #NAME ,            kun->n2
  104.   #NAME2 ,           kun->ansprechp
  105.   #STRASSE ,         kun->strasse
  106.   #LAND ,            Trim( kun->land)+ IF( .NOT. Empty( kun->land), '-', '')
  107.   #PLZ ,             kun->plz
  108.   #ORT ,             kun->ort
  109.   #Briefanrede,      Trim( kun->briefanred)+ IF( ! Empty( kun->briefanred), ',', '')
  110.  
  111.   #AgDatum ,         ako->at_dat       // Datum des Angebots (=Auftrag vom)
  112.   #AbDatum ,         ako->at_bestdat   // Datum der Auftragsbestätigung
  113.   #LsDatum ,         ako->at_liefdat   // Datum des Lieferscheins (falls gedruckt)
  114.   #RgDatum ,         ako->at_rgdat     // Datum der Rechnung
  115.   #GsDatum ,         ako->at_rgdat     // Datum der Gutschrift
  116.   #ValutaDatum,      ako->at_valuta
  117.   #AtrBrutto ,       ako->at_mwstinc='J'    // Auftrag=Brutto (Mwst. incl.)
  118.   #AtrNetto ,        ako->at_mwstinc$'N0'   // Auftrag=Netto  (Mwst. zzgl.)
  119.   #AtrAusland ,      ako->at_mwstinc='0'    // Auftrag Ohne Steuer
  120.   #AtrRabatt ,       ako->at_rabatt    // im Auftragskopf eingegebener Rabatt
  121.  
  122.   #TextPosition,     IsTextApo()       // enthält Position nur Text?
  123.   #RabattProz,       apo->art_rabatt   // Rabatt der einzelnen Position
  124.   #RabattProz2,      kun->rabatt2      // zusätzlicher fester 2.Kundenrabatt
  125.   #Rabattitel,       IF( #AtrRabatt <> 0, 'Rabatt', '')
  126.   #Rabatt1,          IF( Empty( #RabattProz) .OR. IsTextApo(),  '      ', Str( #RabattProz,5,2)+ '%')
  127.   #Rabatt2,          IF( Empty( #RabattProz2) .OR. IsTextApo(), '', Str( #RabattProz2,5,2)+ '%')
  128.   #EINH,             apo->Mengeneinh
  129.   #MEN ,             IF( IsTextApo(), '', apo->liefmenge ) // Menge der Position
  130.   #EPreis ,          IF( IsTextApo(), '', apo->epreis )    // Einzelpreis der Position
  131.   #GP ,              gespreis          // Variable für den berechneten GPreis
  132.   #Summe,            Summe             // Auftr.summe Netto bzw. Brutto
  133.   #RabattGesamt,     rabattges         // Rabattbetrag des Auftrags Netto bzw. Brutto
  134.   #StBez ,           fir->bezsteuer    // Bezeichnung der Steuer: Mwst./WUST...
  135.   #STP1 ,            MwstForm( fir->mwst1)
  136.   #STP2 ,            MwstForm( fir->mwst2)
  137.   #NettoSumme1 ,     NettoSum1         // Nettosumme für Art. mit 1. Mwstsatz
  138.   #NettoSumme2 ,     NettoSum2         // Nettosumme für Art. mit 2. Mwstsatz
  139.  
  140.   #SteuerSumme1 ,    NettoSum1 * fir->mwst1 / 100  // Steuerbetrag für Steuersatz 1
  141.   #SteuerSumme2 ,    NettoSum2 * fir->mwst2 / 100  // Steuerbetrag für Steuersatz 2
  142.   #BruttoSumme ,     #Summe + #SteuerSumme1 + #SteuerSumme2
  143.   #Auftragsumme,     IF( #AtrBrutto, #Summe, #BruttoSumme )  // End