home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #5 / AmigaPlus_CD-ROM_Nr.5-98.iso / pd / daten / mt-rechnungiii / printdoks / rechnungsübzus_bw2.inbpri < prev    next >
Text File  |  1998-04-18  |  8KB  |  414 lines
  1. 3$VER: RechnungsübZusatz Brutto Währung2 1.00 (18.04.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 54 def
  12. /DokumentRandY 50 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. /DokumentRandYOriginal DokumentRandY def
  34.  
  35. /reencodedict 5 dict def
  36. /ReEncode
  37. {
  38.      reencodedict begin
  39.      /newencoding exch def
  40.      /newfontname exch def
  41.      /basefontname exch def
  42.  
  43.      /basefontdict basefontname findfont def
  44.  
  45.      /newfont basefontdict maxlength dict def
  46.  
  47.      basefontdict
  48.      { exch dup dup /FID ne exch /Encoding ne and
  49.           { exch newfont 3 1 roll put }
  50.           { pop pop }
  51.           ifelse
  52.      } forall
  53.      newfont /FontName newfontname put
  54.      newfont /Encoding newencoding put
  55.      newfontname newfont definefont pop
  56.      end
  57. } def
  58.  
  59. /xdef {exch def} bind def
  60. /getfont {ISOLatin1Encoding ReEncode findfont exch scalefont def} bind def
  61. /getsymbol {findfont exch scalefont def} bind def
  62. %%EndResource
  63.  
  64. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  65. /Times10Zeile 10 def
  66. /Times10 Times10Zeile /OF0 /Times-Roman /OF0 getfont
  67. /Times24Zeile 24 def
  68. /Times24 Times24Zeile /OF0 /Times-Roman /OF0 getfont
  69.  
  70. /Seite 1 def
  71. /SeitenNr 4 string def
  72. /W 3 def
  73. /N 2 def
  74. /B 3 def
  75. /M 1 def
  76.  
  77. %% Definition der Überschrift
  78. /Ueberschrift
  79. {
  80.     /BoxX1 DokumentRandX def
  81.     /BoxX2 486 def
  82.     /BoxY1 DokumentRandY 2 sub Times10Zeile sub def
  83.     /BoxY2 Times10Zeile Times10Zeile add def
  84.  
  85.     0.9 setgray
  86.     BoxX1 BoxY1 BoxX2 BoxY2 rectfill
  87.     0.0 setgray
  88.     BoxX1 BoxY1 BoxX2 BoxY2 rectstroke
  89.  
  90.     DokumentRandX 3 add DokumentRandY moveto
  91.     (RechNr.) show
  92.  
  93.     DokumentRandX 100 add DokumentRandY moveto
  94.     (Datum) show
  95.  
  96.     DokumentRandX 250 add DokumentRandY moveto
  97.     (Lieferant) show
  98.  
  99.     DokumentRandX 300 add DokumentRandY moveto
  100.     (Besteller) show
  101.  
  102.     DokumentRandY Times10Zeile sub /DokumentRandY exch def
  103.  
  104.     DokumentRandX 50 add DokumentRandY moveto
  105.     (ArtikelNr) show
  106.  
  107.     DokumentRandX DokumentRandY moveto
  108.     (Anzahl) dup stringwidth
  109.     pop 150 exch sub
  110.     DokumentRandX add DokumentRandY moveto show
  111.  
  112.     DokumentRandX 160 add DokumentRandY moveto
  113.     (Einheit) show
  114.  
  115.     DokumentRandX DokumentRandY moveto
  116.     (MWSt) dup stringwidth
  117.     pop 250 exch sub
  118.     DokumentRandX add DokumentRandY moveto show
  119.  
  120.     DokumentRandX DokumentRandY moveto
  121.     (Einzelpreis) dup stringwidth
  122.     pop 325 exch sub
  123.     DokumentRandX add DokumentRandY moveto show
  124.  
  125.     DokumentRandX DokumentRandY moveto
  126.     (Positionssumme) dup stringwidth
  127.     pop 400 exch sub
  128.     DokumentRandX add DokumentRandY moveto show
  129.  
  130.     DokumentRandX DokumentRandY moveto
  131.     (Endsumme) dup stringwidth
  132.     pop 480 exch sub
  133.     DokumentRandX add DokumentRandY moveto show
  134.  
  135.     DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  136.  
  137. } def
  138.  
  139. %% Ausgab der Kopfdaten
  140.  
  141. Times24 setfont
  142.  
  143. DokumentRandX DokumentRandY moveto
  144. (Eingangsrechnungen \(Brutto\)) dup stringwidth pop
  145. PageSize 0 get exch sub 2 div cvi DokumentRandY moveto show
  146.  
  147. DokumentRandY Times24Zeile sub Times24Zeile sub /DokumentRandY exch def
  148.  
  149. Times10 setfont
  150.  
  151. Ueberschrift
  152.  
  153. /ERechnungElemente ERechnungTabelle length def
  154. /ERechnungPosition 0 def
  155.  
  156. ERechnungTabelle
  157. {
  158.  
  159.     ERechnungPosition 1 add /ERechnungPosition exch def
  160.  
  161.     ERechnungElemente ERechnungPosition eq
  162.     {
  163.         /Zeilen 2 def
  164.         dup 21 get
  165.         {
  166.             {
  167.                 Zeilen 1 add /Zeilen exch def
  168.             } if
  169.         } forall
  170.  
  171.         Zeilen Times10Zeile mul cvi 50 add DokumentRandY gt
  172.         {
  173.             DokumentRandX 450 add 50 moveto
  174.             (Seite: ) show
  175.             Seite SeitenNr cvs show
  176.             /Merker exch def
  177.             showpage
  178.  
  179.             /DokumentRandY DokumentRandYOriginal def
  180.             Ueberschrift
  181.             Merker
  182.             Seite 1 add /Seite exch def
  183.         } if
  184.  
  185.         DokumentRandX 3 add DokumentRandY moveto
  186.         (Gesamtsumme \(Netto\):) show
  187.         DokumentRandX DokumentRandY moveto
  188.         dup 19 get N get dup stringwidth
  189.         pop 480 exch sub
  190.         DokumentRandX add DokumentRandY moveto
  191.         show
  192.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  193.  
  194.         /Zaehler 0 def
  195.         dup 21 get
  196.         {
  197.             {
  198.                 DokumentRandX 3 add DokumentRandY moveto
  199.                 (Mehrwertsteuer \() show
  200.                 dup 20 get Zaehler get show
  201.                 (%, Netto: ) show
  202.                 dup 36 get Zaehler get N get show
  203.                 (, Brutto: ) show
  204.                 dup 36 get Zaehler get B get show
  205.                 (\):) show
  206.  
  207.                 DokumentRandX DokumentRandY moveto
  208.                 dup 33 get Zaehler get M get dup stringwidth
  209.                 pop 480 exch sub
  210.                 DokumentRandX add DokumentRandY moveto
  211.                 show
  212.  
  213.                 DokumentRandY Times10Zeile sub /DokumentRandY exch def
  214.             } if
  215.  
  216.             Zaehler 1 add /Zaehler exch def
  217.         } forall
  218.  
  219.         DokumentRandX 3 add DokumentRandY moveto
  220.         (Gesamtsumme \(Brutto\):) show
  221.         DokumentRandX DokumentRandY moveto
  222.         19 get B get dup stringwidth
  223.         pop 480 exch sub
  224.         DokumentRandX add DokumentRandY moveto
  225.         show
  226.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  227.     }
  228.     {
  229.         /Zeilen 3 def
  230.         dup 20 get
  231.         {
  232.             Zeilen 1 add /Zeilen exch def
  233.         } if
  234.  
  235.         dup 22 get
  236.         {
  237.             Zeilen 1 add /Zeilen exch def
  238.         } if
  239.  
  240.         dup 28 get
  241.         {
  242.             Zeilen 1 add /Zeilen exch def
  243.         } if
  244.  
  245.         dup 32 get
  246.         {
  247.             Zeilen 1 add /Zeilen exch def
  248.         } if
  249.  
  250.         dup 62 get
  251.         {
  252.             Zeilen 1 add /Zeilen exch def
  253.             pop
  254.         } forall
  255.  
  256.         Zeilen Times10Zeile mul cvi 50 add DokumentRandY gt
  257.         {
  258.             DokumentRandX 450 add 50 moveto
  259.             (Seite: ) show
  260.             Seite SeitenNr cvs show
  261.             /Merker exch def
  262.             showpage
  263.  
  264.             /DokumentRandY DokumentRandYOriginal def
  265.             Ueberschrift
  266.             Merker
  267.             Seite 1 add /Seite exch def
  268.         } if
  269.  
  270.         DokumentRandX 3 add DokumentRandY moveto
  271.         dup 4 get () gt
  272.         {
  273.             dup 4 get show
  274.         }
  275.         {
  276.             dup 0 get show
  277.         } ifelse
  278.  
  279.         DokumentRandX 100 add DokumentRandY moveto
  280.         dup 15 get 0 get show
  281.  
  282.         DokumentRandX 250 add DokumentRandY moveto
  283.         dup 3 get show
  284.    
  285.         DokumentRandX 300 add DokumentRandY moveto
  286.         dup 2 get show
  287.    
  288.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  289.  
  290.         dup 62 get
  291.         {
  292.             DokumentRandX 50 add DokumentRandY moveto
  293.             dup 1 get 1 get show
  294.  
  295.             DokumentRandX DokumentRandY moveto
  296.             dup 1 get 2 get dup stringwidth
  297.             pop 150 exch sub
  298.             DokumentRandX add DokumentRandY moveto
  299.             show
  300.  
  301.             DokumentRandX 160 add DokumentRandY moveto
  302.             dup 0 get 5 get show
  303.  
  304.             DokumentRandX DokumentRandY moveto
  305.             dup 1 get 9 get dup stringwidth
  306.             pop 250 exch sub
  307.             DokumentRandX add DokumentRandY moveto
  308.             show
  309.  
  310.             DokumentRandX DokumentRandY moveto
  311.             dup 1 get 4 get W get dup stringwidth
  312.             pop 325 exch sub
  313.             DokumentRandX add DokumentRandY moveto
  314.             show
  315.  
  316.             DokumentRandX DokumentRandY moveto
  317.             1 get 6 get W get dup stringwidth
  318.             pop 400 exch sub
  319.             DokumentRandX add DokumentRandY moveto
  320.             show
  321.  
  322.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  323.  
  324.         } forall
  325.  
  326.         dup 28 get
  327.         {
  328.             DokumentRandX 50 add DokumentRandY moveto
  329.             (abzüglich Rabatt ) show
  330.             dup 29 get show
  331.             ( %:) show
  332.         
  333.             DokumentRandX DokumentRandY moveto
  334.             dup 30 get W get dup stringwidth
  335.             pop 400 exch sub
  336.             DokumentRandX add DokumentRandY moveto
  337.             show
  338.  
  339.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  340.         } if
  341.  
  342.         dup 32 get
  343.         {
  344.             DokumentRandX 50 add DokumentRandY moveto
  345.             (abzüglich Skonto ) show
  346.             dup 33 get show
  347.             ( %:) show
  348.         
  349.             DokumentRandX DokumentRandY moveto
  350.             dup 34 get W Get dup stringwidth
  351.             pop 400 exch sub
  352.             DokumentRandX add DokumentRandY moveto
  353.             show
  354.  
  355.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  356.         } if
  357.  
  358.         dup 20 get
  359.         {
  360.             DokumentRandX 50 add DokumentRandY moveto
  361.             (Versandkosten:) show
  362.         
  363.             DokumentRandX DokumentRandY moveto
  364.             dup 21 get W get dup stringwidth
  365.             pop 400 exch sub
  366.             DokumentRandX add DokumentRandY moveto
  367.             show
  368.  
  369.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  370.         } if
  371.  
  372.         DokumentRandX 50 add DokumentRandY moveto
  373.         (Rechnungsendbetrag:) show
  374.  
  375.         DokumentRandX DokumentRandY moveto
  376.         dup 38 get W get dup stringwidth
  377.         pop 480 exch sub
  378.         DokumentRandX add DokumentRandY moveto
  379.         show
  380.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  381.  
  382.         dup 22 get
  383.         {
  384.             DokumentRandX 50 add DokumentRandY moveto
  385.             (Versandzusatzkosten:) show
  386.         
  387.             DokumentRandX DokumentRandY moveto
  388.             23 get W get dup stringwidth
  389.             pop 480 exch sub
  390.             DokumentRandX add DokumentRandY moveto
  391.             show
  392.  
  393.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  394.         }
  395.         {
  396.             pop
  397.         } ifelse
  398.  
  399.         DokumentRandY 5 sub /DokumentRandY exch def
  400.     } ifelse
  401.  
  402. } forall
  403.  
  404. DokumentRandX 450 add 50 moveto
  405. (Seite: ) show
  406. Seite SeitenNr cvs show
  407.  
  408. showpage
  409.  
  410. %%Trailer
  411. clear
  412. %%EOF
  413.  
  414.