home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #5 / AmigaPlus_CD-ROM_Nr.5-98.iso / pd / daten / mt-rechnungiii / printdoks / zahlschein.outpri < prev   
Text File  |  1998-04-11  |  4KB  |  167 lines
  1. 1$VER: Zahlschein 1.03 (11.04.98)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%BoundingBox: 0 542 427 839
  5. %%EndComments
  6.  
  7. %% PostScript-Programm
  8.  
  9. /PageSize [594 839] def
  10.  
  11. /DokumentRandX 28 def
  12. /DokumentRandY 65 def
  13.  
  14. DruckrandX 720 mul 256 div /DruckrandX exch def
  15. DruckrandY 720 mul 256 div /DruckrandY exch def
  16.  
  17. DruckrandX DokumentRandX ge
  18. {
  19.     0 /DokumentRandX exch def
  20. }
  21. {
  22.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  23. } ifelse
  24.  
  25. DruckrandY DokumentRandY ge
  26. {
  27.     PageSize 1 get /DokumentRandY exch def
  28. }
  29. {
  30.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  31. } ifelse
  32.  
  33. /reencodedict 5 dict def
  34. /ReEncode
  35. {
  36.      reencodedict begin
  37.      /newencoding exch def
  38.      /newfontname exch def
  39.      /basefontname exch def
  40.  
  41.      /basefontdict basefontname findfont def
  42.  
  43.      /newfont basefontdict maxlength dict def
  44.  
  45.      basefontdict
  46.      { exch dup dup /FID ne exch /Encoding ne and
  47.           { exch newfont 3 1 roll put }
  48.           { pop pop }
  49.           ifelse
  50.      } forall
  51.      newfont /FontName newfontname put
  52.      newfont /Encoding newencoding put
  53.      newfontname newfont definefont pop
  54.      end
  55. } def
  56.  
  57. /xdef {exch def} bind def
  58. /getfont {ISOLatin1Encoding ReEncode findfont exch scalefont def} bind def
  59. %%EndResource
  60.  
  61. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  62. /Courier14 14 /OF0 /Courier /OF0 getfont
  63. Courier14 setfont
  64.  
  65. %% Ausgab des Dokuments
  66. /XO 5.81 def
  67.  
  68. ARWaehrung 1 gt
  69. {
  70.     /Betrag ARGesamtminRabSkonWert 3 get def
  71. }
  72. {
  73.     /Betrag ARGesamtminRabSkonWert 1 get def
  74. } ifelse
  75.  
  76. %% Währungssymbol vom Betrag entfernen, momentan auf kommentar
  77. %% Betrag ARWaehrungSymbol search pop exch pop
  78. %% dup length 0 gt
  79. %% { exch pop }
  80. %% { pop } ifelse
  81. %% /Betrag exch def
  82.  
  83. DokumentRandX DokumentRandY moveto
  84. /zwischenstring 80 string def
  85. NiedFirma1 () gt
  86. {
  87.     NiedFirma1 zwischenstring copy pop
  88.     /laenge NiedFirma1 length def
  89. }
  90. {
  91.     NiedName zwischenstring copy pop
  92.     zwischenstring NiedName length ( ) putinterval
  93.     zwischenstring NiedName length 1 add NiedVorname putinterval
  94.     /laenge NiedName length NiedVorname length add 1 add def
  95. } ifelse
  96.  
  97. laenge 27 gt
  98. {
  99.     /laenge 27 def
  100. } if
  101. XO 0 zwischenstring 0 laenge getinterval ashow
  102.  
  103. DokumentRandY 24 sub /DokumentRandY exch def
  104. DokumentRandX DokumentRandY moveto
  105. XO 0 NiedKonto ashow
  106.  
  107. DokumentRandX 270 add DokumentRandY moveto
  108. XO 0 NiedBLZ ashow
  109.  
  110. DokumentRandY 24 sub /DokumentRandY exch def
  111. DokumentRandX DokumentRandY moveto
  112. /laenge NiedBank length def
  113. laenge 27 gt
  114. {
  115.     /laenge 27 def
  116. } if
  117. XO 0 NiedBank 0 laenge getinterval ashow
  118.  
  119. DokumentRandY 24 sub /DokumentRandY exch def
  120. %% DokumentRandX 160 add DokumentRandY moveto
  121. %% XO 0 ARWaehrung ashow
  122.  
  123. DokumentRandX 214 add DokumentRandY moveto
  124. XO 0 Betrag ashow
  125.  
  126. DokumentRandY 24 sub /DokumentRandY exch def
  127. DokumentRandX DokumentRandY moveto
  128. XO 0 (Rechnung: ) ashow
  129. XO 0 DokumentNr ashow
  130.  
  131. DokumentRandY 24 sub /DokumentRandY exch def
  132. DokumentRandX DokumentRandY moveto
  133. XO 0 (Kundennummer: ) ashow
  134. XO 0 RempfKundenNr ashow
  135.  
  136. DokumentRandY 24 sub /DokumentRandY exch def
  137. DokumentRandX DokumentRandY moveto
  138. RempfFirma1 () gt
  139. {
  140.     RempfFirma1 zwischenstring copy pop
  141.     /laenge RempfFirma1 length def
  142. }
  143. {
  144.     RempfName zwischenstring copy pop
  145.     zwischenstring RempfName length ( ) putinterval
  146.     zwischenstring RempfName length 1 add RempfVorname putinterval
  147.     /laenge RempfName length RempfVorname length add 1 add def
  148. } ifelse
  149. zwischenstring laenge (, ) putinterval
  150. zwischenstring laenge 2 add RempfOrt putinterval
  151. laenge RempfOrt length add 2 add /laenge exch def
  152. laenge 27 gt
  153. {
  154.     /laenge 27 def
  155. } if
  156. XO 0 zwischenstring 0 laenge getinterval ashow
  157.  
  158. DokumentRandY 24 sub /DokumentRandY exch def
  159. DokumentRandX 157 add DokumentRandY moveto
  160. XO 0 Betrag ashow
  161.  
  162. showpage
  163.  
  164. %%Trailer
  165. clear
  166. %%EOF
  167.