home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #5 / AmigaPlus_CD-ROM_Nr.5-98.iso / pd / daten / mt-rechnungiii / printdoks / mahnung_3.outpri < prev    next >
Text File  |  1998-04-11  |  6KB  |  249 lines
  1. 1$VER: Mahnung_3 1.00 (01.01.98)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%BoundingBox: 0 0 594 839
  5. %%EndComments
  6.  
  7. %% PostScript-Programm
  8.  
  9. /PageSize [594 839] def
  10.  
  11. /DokumentRandX 60 def
  12. /DokumentRandY 45 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. /DokumentRandYOriginal DokumentRandY def
  33.  
  34. /reencodedict 5 dict def
  35. /ReEncode
  36. {
  37.      reencodedict begin
  38.      /newencoding exch def
  39.      /newfontname exch def
  40.      /basefontname exch def
  41.  
  42.      /basefontdict basefontname findfont def
  43.  
  44.      /newfont basefontdict maxlength dict def
  45.  
  46.      basefontdict
  47.      { exch dup dup /FID ne exch /Encoding ne and
  48.           { exch newfont 3 1 roll put }
  49.           { pop pop }
  50.           ifelse
  51.      } forall
  52.      newfont /FontName newfontname put
  53.      newfont /Encoding newencoding put
  54.      newfontname newfont definefont pop
  55.      end
  56. } def
  57.  
  58.  
  59. /xdef {exch def} bind def
  60. /getfont {ISOLatin1Encoding ReEncode findfont exch scalefont def} bind def
  61. %%EndResource
  62.  
  63. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  64. /Times28 28 /OF0 /Times-Roman /OF0 getfont
  65. /Times28Line 28 def
  66. /Times14 14 /OF0 /Times-Roman /OF0 getfont
  67. /Times14Line 14 def
  68. /Times10 10 /OF0 /Times-Roman /OF0 getfont
  69. /Times10Line 10 def
  70. /Times8 8 /OF0 /Times-Roman /OF0 getfont
  71. /Times8Line 8 def
  72. Times14 setfont
  73.  
  74. /ZWDokumentRand DokumentRandY def
  75. /Seite 1 def
  76. /SeitenNr 4 string def
  77.  
  78. DokumentRandX DokumentRandY moveto
  79. DruckDatum 0 get dup stringwidth
  80. pop 486 exch sub
  81. DokumentRandX add DokumentRandY moveto show
  82.  
  83. %% Ausgab des Dokuments
  84. NiedAdresse3
  85. {
  86.     DokumentRandX ZWDokumentRand moveto
  87.     show
  88.     ZWDokumentRand Times14Line sub /ZWDokumentRand exch def
  89. } forall
  90.  
  91. /Position 0 def
  92. DokumentRandY 110 sub /DokumentRandY exch def
  93.  
  94. Times28 setfont
  95. DokumentRandX DokumentRandY moveto
  96. (3. Mahnung) dup stringwidth
  97. pop 486 exch sub
  98. DokumentRandX add DokumentRandY moveto show
  99.  
  100. Times8 setfont
  101. Times8 /FontInfo known
  102. {
  103.     Times8 /FontInfo get dup dup dup /UnderlinePosition known
  104.     {
  105.         /UnderlinePosition get
  106.         Times8Line mul 1000 div cvi /Unterstreichabstand exch def
  107.     }
  108.     {
  109.         Times8Line -9 div cvi /Unterstreichabstand exch def
  110.         pop
  111.     } ifelse
  112.     /UnderlineThicknes known
  113.     {
  114.         /UnderlineThicknes get
  115.         Times8Line mul /Unterstrichdicke exch def
  116.     }
  117.     {
  118.         Times8Line 24 div /Unterstrichdicke exch def
  119.         pop
  120.     } ifelse
  121. }
  122. {
  123.     Times8Line -9 div cvi /Unterstreichabstand exch def
  124.     Times8Line 24 div /Unterstrichdicke exch def
  125.     pop
  126. } ifelse
  127.  
  128. NiedAdresse1
  129. {
  130.     newpath
  131.     DokumentRandX DokumentRandY Unterstreichabstand add moveto
  132.     stringwidth pop DokumentRandX add DokumentRandY Unterstreichabstand add
  133.     lineto closepath Unterstrichdicke setlinewidth
  134.     stroke
  135.     DokumentRandX DokumentRandY moveto
  136.     NiedAdresse1 Position get show
  137.     DokumentRandY Times8Line sub /DokumentRandY exch def
  138.     Position 1 add /Position exch def
  139. } forall
  140.  
  141. 0.5 setlinewidth
  142.  
  143. Times14 setfont
  144.  
  145. DokumentRandY Times14Line sub /DokumentRandY exch def
  146. WempfAdresse3
  147. {
  148.     DokumentRandX DokumentRandY moveto
  149.     show
  150.     DokumentRandY Times14Line sub /DokumentRandY exch def
  151. } forall
  152.  
  153. DokumentRandY 50 sub /DokumentRandY exch def
  154.  
  155. DokumentRandX DokumentRandY moveto
  156. (Ihre KundenNr.:) show
  157. DokumentRandX 120 add DokumentRandY moveto
  158. ARRechEmpfNr show
  159. DokumentRandY Times14Line sub /DokumentRandY exch def
  160.  
  161. DokumentRandX DokumentRandY moveto
  162. (Betreff Rechnung ) show
  163. DokumentNr show
  164. ( vom ) show
  165. ARRechnungDatum 0 get show
  166. DokumentRandY Times14Line sub 30 sub /DokumentRandY exch def
  167.  
  168. DokumentRandX DokumentRandY moveto
  169.  
  170. RempfAnrede (Firma) eq
  171. {
  172.     (Sehr geehrte Damen und Herren,) show
  173. }
  174. {
  175.     RempfAnrede (Herr) eq
  176.     {
  177.         (Sehr geehrter ) show
  178.         RempfAnrede show
  179.         ( ) show
  180.         RempfName show
  181.         (,) show
  182.     }
  183.     {
  184.         (Sehr geehrte ) show
  185.         RempfAnrede show
  186.         ( ) show
  187.         RempfName show
  188.         (,) show
  189.     } ifelse
  190. } ifelse
  191.  
  192. DokumentRandY Times14Line sub Times14Line sub /DokumentRandY exch def
  193.  
  194. DokumentRandX DokumentRandY moveto
  195. (trotz zweier Mahnungen vom ) show
  196. ARMahn1Datum 1 get show
  197. ( und ) show
  198. ARMahn2Datum 1 get show
  199. ( haben Sie meine Rechnung) show
  200. DokumentRandY Times14Line sub /DokumentRandY exch def
  201. DokumentRandX DokumentRandY moveto
  202. (Nr. ) show
  203. DokumentNr show
  204. ( vom ) show
  205. ARRechnungDatum 1 get show
  206. ( noch nicht bezahlt! Dies ist meine letzte Aufforderung, Ihr) show
  207. DokumentRandY Times14Line sub /DokumentRandY exch def
  208. DokumentRandX DokumentRandY moveto
  209. (Versäumnis nachzuholen, bevor ich rechtliche Schritte einleite. Überweisen Sie) show
  210. DokumentRandY Times14Line sub /DokumentRandY exch def
  211. DokumentRandX DokumentRandY moveto
  212. (den ausstehenden Rechnungsbetrag in Höhe von ) show
  213. ARWaehrung 1 gt
  214. {
  215.     ARGesamtminRabSkonWert 3 get show
  216. }
  217. {
  218.     ARGesamtminRabSkonWert 1 get show
  219. } ifelse
  220. ( schnellstmöglich) show
  221. DokumentRandY Times14Line sub /DokumentRandY exch def
  222. DokumentRandX DokumentRandY moveto
  223. (auf das angegebene Konto!) show
  224. DokumentRandY Times14Line sub Times14Line sub Times14Line sub /DokumentRandY exch def
  225. DokumentRandX DokumentRandY moveto
  226. (Bankverbindung:) show
  227. DokumentRandY Times14Line sub /DokumentRandY exch def
  228. DokumentRandX DokumentRandY moveto
  229. NiedBank show
  230. (    BLZ: ) show
  231. NiedBLZ2 show
  232. (    Konto: ) show
  233. NiedKonto show
  234. DokumentRandY Times14Line sub Times14Line sub Times14Line sub /DokumentRandY exch def
  235. DokumentRandX DokumentRandY moveto
  236. (Mit freundlichen Grüßen) show
  237. DokumentRandY Times14Line 6 mul cvi sub /DokumentRandY exch def
  238. DokumentRandX DokumentRandY moveto
  239. VerkVorname show
  240. ( ) show
  241. VerkName show
  242.  
  243. showpage
  244.  
  245. %%Trailer
  246. clear
  247. %%EOF
  248.  
  249.