home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #5 / AmigaPlus_CD-ROM_Nr.5-98.iso / pd / daten / mt-rechnungiii / printdoks / rechnungsübersicht_nw2.outpri < prev    next >
Text File  |  1998-04-18  |  8KB  |  386 lines
  1. 3$VER: Rechnungsübersicht Netto Währung2 1.03 (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 2 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 50 add DokumentRandY moveto
  94.     (Datum) show
  95.  
  96.     DokumentRandX 200 add DokumentRandY moveto
  97.     (Rechnungsempfänger) show
  98.  
  99.     DokumentRandX 300 add DokumentRandY moveto
  100.     (Verkäufer) 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. %% Ausgabe der Kopfdaten
  140.  
  141. Times24 setfont
  142.  
  143. DokumentRandX DokumentRandY moveto
  144. (Ausgangsrechnungen \(Netto\)) 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. /ARechnungElemente ARechnungTabelle length def
  154. /ARechnungPosition 0 def
  155.  
  156. ARechnungTabelle
  157. {
  158.  
  159.     ARechnungPosition 1 add /ARechnungPosition exch def
  160.  
  161.     ARechnungElemente ARechnungPosition 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 16 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 27 get Zaehler get N get show
  203.                 (, Brutto: ) show
  204.                 dup 27 get Zaehler get B get show
  205.                 (\):) show
  206.  
  207.                 DokumentRandX DokumentRandY moveto
  208.                 dup 24 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.         16 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.     {
  230.         /Zeilen 3 def
  231.         dup 24 get
  232.         {
  233.             Zeilen 1 add /Zeilen exch def
  234.         } if
  235.  
  236.         dup 32 get
  237.         {
  238.             Zeilen 1 add /Zeilen exch def
  239.         } if
  240.  
  241.         dup 36 get
  242.         {
  243.             Zeilen 1 add /Zeilen exch def
  244.         } if
  245.  
  246.         dup 66 get
  247.         {
  248.             Zeilen 1 add /Zeilen exch def
  249.             pop
  250.         } forall
  251.  
  252.         Zeilen Times10Zeile mul cvi 50 add DokumentRandY gt
  253.         {
  254.             DokumentRandX 450 add 50 moveto
  255.             (Seite: ) show
  256.             Seite SeitenNr cvs show
  257.             /Merker exch def
  258.             showpage
  259.  
  260.             /DokumentRandY DokumentRandYOriginal def
  261.             Ueberschrift
  262.             Merker
  263.             Seite 1 add /Seite exch def
  264.         } if
  265.  
  266.         DokumentRandX 3 add DokumentRandY moveto
  267.         dup 0 get show
  268.  
  269.         DokumentRandX 50 add DokumentRandY moveto
  270.         dup 16 get 0 get show
  271.  
  272.         DokumentRandX 200 add DokumentRandY moveto
  273.         dup 3 get show
  274.    
  275.         DokumentRandX 300 add DokumentRandY moveto
  276.         dup 2 get show
  277.    
  278.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  279.  
  280.         dup 66 get
  281.         {
  282.             DokumentRandX 50 add DokumentRandY moveto
  283.             dup 1 get 1 get show
  284.  
  285.             DokumentRandX DokumentRandY moveto
  286.             dup 1 get 2 get dup stringwidth
  287.             pop 150 exch sub
  288.             DokumentRandX add DokumentRandY moveto
  289.             show
  290.  
  291.             DokumentRandX 160 add DokumentRandY moveto
  292.             dup 0 get 5 get show
  293.  
  294.             DokumentRandX DokumentRandY moveto
  295.             dup 1 get 9 get dup stringwidth
  296.             pop 250 exch sub
  297.             DokumentRandX add DokumentRandY moveto
  298.             show
  299.  
  300.             DokumentRandX DokumentRandY moveto
  301.             dup 1 get 4 get W get dup stringwidth
  302.             pop 325 exch sub
  303.             DokumentRandX add DokumentRandY moveto
  304.             show
  305.  
  306.             DokumentRandX DokumentRandY moveto
  307.             1 get 6 get W get dup stringwidth
  308.             pop 400 exch sub
  309.             DokumentRandX add DokumentRandY moveto
  310.             show
  311.  
  312.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  313.  
  314.         } forall
  315.  
  316.         dup 32 get
  317.         {
  318.             DokumentRandX 50 add DokumentRandY moveto
  319.             (abzüglich Rabatt ) show
  320.             dup 33 get show
  321.             ( %:) show
  322.         
  323.             DokumentRandX DokumentRandY moveto
  324.             dup 34 get W get dup stringwidth
  325.             pop 400 exch sub
  326.             DokumentRandX add DokumentRandY moveto
  327.             show
  328.  
  329.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  330.         } if
  331.  
  332.         dup 36 get
  333.         {
  334.             DokumentRandX 50 add DokumentRandY moveto
  335.             (abzüglich Skonto ) show
  336.             dup 37 get show
  337.             ( %:) show
  338.         
  339.             DokumentRandX DokumentRandY moveto
  340.             dup 38 get W get dup stringwidth
  341.             pop 400 exch sub
  342.             DokumentRandX add DokumentRandY moveto
  343.             show
  344.  
  345.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  346.         } if
  347.  
  348.         dup 24 get
  349.         {
  350.             DokumentRandX 50 add DokumentRandY moveto
  351.             (Versandkosten:) show
  352.         
  353.             DokumentRandX DokumentRandY moveto
  354.             dup 25 get W get dup stringwidth
  355.             pop 400 exch sub
  356.             DokumentRandX add DokumentRandY moveto
  357.             show
  358.  
  359.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  360.         } if
  361.  
  362.         DokumentRandX 50 add DokumentRandY moveto
  363.         (Rechnungsendbetrag:) show
  364.  
  365.         DokumentRandX DokumentRandY moveto
  366.         42 get W get dup stringwidth
  367.         pop 480 exch sub
  368.         DokumentRandX add DokumentRandY moveto
  369.         show
  370.  
  371.         DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  372.     } ifelse
  373.  
  374. } forall
  375.  
  376. DokumentRandX 450 add 50 moveto
  377. (Seite: ) show
  378. Seite SeitenNr cvs show
  379.  
  380. showpage
  381.  
  382. %%Trailer
  383. clear
  384. %%EOF
  385.  
  386.