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_nw1.inbpri < prev    next >
Text File  |  1998-04-18  |  8KB  |  391 lines
  1. 3$VER: Rechnungsübersicht Netto Währung1 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 0 def
  73. /N 0 def
  74. /B 1 def
  75. /M 0 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 \(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. /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 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.         /Zeilen 3 def
  230.         dup 20 get
  231.         {
  232.             Zeilen 1 add /Zeilen exch def
  233.         } if
  234.  
  235.         dup 28 get
  236.         {
  237.             Zeilen 1 add /Zeilen exch def
  238.         } if
  239.  
  240.         dup 32 get
  241.         {
  242.             Zeilen 1 add /Zeilen exch def
  243.         } if
  244.  
  245.         dup 62 get
  246.         {
  247.             Zeilen 1 add /Zeilen exch def
  248.             pop
  249.         } forall
  250.  
  251.         Zeilen Times10Zeile mul cvi 50 add DokumentRandY gt
  252.         {
  253.             DokumentRandX 450 add 50 moveto
  254.             (Seite: ) show
  255.             Seite SeitenNr cvs show
  256.             /Merker exch def
  257.             showpage
  258.  
  259.             /DokumentRandY DokumentRandYOriginal def
  260.             Ueberschrift
  261.             Merker
  262.             Seite 1 add /Seite exch def
  263.         } if
  264.  
  265.         DokumentRandX 3 add DokumentRandY moveto
  266.         dup 4 get () gt
  267.         {
  268.             dup 4 get show
  269.         }
  270.         {
  271.             dup 0 get show
  272.         } ifelse
  273.  
  274.         DokumentRandX 100 add DokumentRandY moveto
  275.         dup 15 get 0 get show
  276.  
  277.         DokumentRandX 250 add DokumentRandY moveto
  278.         dup 3 get show
  279.    
  280.         DokumentRandX 300 add DokumentRandY moveto
  281.         dup 2 get show
  282.    
  283.         DokumentRandY Times10Zeile sub /DokumentRandY exch def
  284.  
  285.         dup 62 get
  286.         {
  287.             DokumentRandX 50 add DokumentRandY moveto
  288.             dup 1 get 1 get show
  289.  
  290.             DokumentRandX DokumentRandY moveto
  291.             dup 1 get 2 get dup stringwidth
  292.             pop 150 exch sub
  293.             DokumentRandX add DokumentRandY moveto
  294.             show
  295.  
  296.             DokumentRandX 160 add DokumentRandY moveto
  297.             dup 0 get 5 get show
  298.  
  299.             DokumentRandX DokumentRandY moveto
  300.             dup 1 get 9 get dup stringwidth
  301.             pop 250 exch sub
  302.             DokumentRandX add DokumentRandY moveto
  303.             show
  304.  
  305.             DokumentRandX DokumentRandY moveto
  306.             dup 1 get 4 get W get dup stringwidth
  307.             pop 325 exch sub
  308.             DokumentRandX add DokumentRandY moveto
  309.             show
  310.  
  311.             DokumentRandX DokumentRandY moveto
  312.             1 get 6 get W get dup stringwidth
  313.             pop 400 exch sub
  314.             DokumentRandX add DokumentRandY moveto
  315.             show
  316.  
  317.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  318.  
  319.         } forall
  320.  
  321.         dup 28 get
  322.         {
  323.             DokumentRandX 50 add DokumentRandY moveto
  324.             (abzüglich Rabatt ) show
  325.             dup 29 get show
  326.             ( %:) show
  327.         
  328.             DokumentRandX DokumentRandY moveto
  329.             dup 30 get W get dup stringwidth
  330.             pop 400 exch sub
  331.             DokumentRandX add DokumentRandY moveto
  332.             show
  333.  
  334.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  335.         } if
  336.  
  337.         dup 32 get
  338.         {
  339.             DokumentRandX 50 add DokumentRandY moveto
  340.             (abzüglich Skonto ) show
  341.             dup 33 get show
  342.             ( %:) show
  343.         
  344.             DokumentRandX DokumentRandY moveto
  345.             dup 34 get W Get dup stringwidth
  346.             pop 400 exch sub
  347.             DokumentRandX add DokumentRandY moveto
  348.             show
  349.  
  350.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  351.         } if
  352.  
  353.         dup 20 get
  354.         {
  355.             DokumentRandX 50 add DokumentRandY moveto
  356.             (Versandkosten:) show
  357.         
  358.             DokumentRandX DokumentRandY moveto
  359.             dup 21 get W get dup stringwidth
  360.             pop 400 exch sub
  361.             DokumentRandX add DokumentRandY moveto
  362.             show
  363.  
  364.             DokumentRandY Times10Zeile sub /DokumentRandY exch def
  365.         } if
  366.  
  367.         DokumentRandX 50 add DokumentRandY moveto
  368.         (Rechnungsendbetrag:) show
  369.  
  370.         DokumentRandX DokumentRandY moveto
  371.         38 get W get dup stringwidth
  372.         pop 480 exch sub
  373.         DokumentRandX add DokumentRandY moveto
  374.         show
  375.  
  376.         DokumentRandY Times10Zeile sub 5 sub /DokumentRandY exch def
  377.     } ifelse
  378.  
  379. } forall
  380.  
  381. DokumentRandX 450 add 50 moveto
  382. (Seite: ) show
  383. Seite SeitenNr cvs show
  384.  
  385. showpage
  386.  
  387. %%Trailer
  388. clear
  389. %%EOF
  390.  
  391.