P-ORDA.APR : Druckparameterdatei fuer KG (Bestellschein VOL)fuer ORDA/a99
  2000-01-19 / 2005-12-20
  An einigen Stellen muss man die lokalen Angaben des Bestellers einsetzen! 
    mit XXX markiert

pn="ORDA Bestellungsdruck"


zl=0    ###
     zl=96      Zeilenlaenge
    zi=0        keine Zeileneinrueckung in den Folgezeilen
fn=1        1 Bestellung pro Seite  ##
   sv=12       Seitenvorschubbefehl fuer den Drucker. Jede Bestellung auf einem
            Extrablatt ###
   sv="Auftrag"   ###
fl=0     
    zm=0    ####
as=" { \f2 \fs25 "    ###
am=0

    sv=""       Seitenvorschubbefehl fuer den Drucker

dx=1

1=#1 C
2="   "
3=#5
4=#7
5="; "
6=#6
7=" - "
8="." p1
9=C 

98=13 10 13 10 &1
99=C 

  Variablen:
  #ulF : Lieferantencode der aktuellen Bestellung
  #ulG : Wenn besetzt, dann bei Lieferantenwechsel erst Fusstext
  #ulS : Wenn gesetzt, dann nur Fusstext


  Abschluss! Wenn #ulS besetzt, dann nur noch Fusstext ausgeben
               (#ulS wird im FLEX o-bdruck.flx gesetzt)
#ulS >F e0
#ulS +# dlS

#9DA +#9Db e0     $ daa aaa   Die Zuweisung des Flags an eine Variable hat hier

#+-   keine Ausgabe, wenn kein Bestellsatz vorliegt

#9Db  (nur Sprungmarke)

    ist es ein anderer Lieferant? Dann erst Briefkopf

#9DB +J j =lF    e0
#9DB +J J =lF
#+B    sonst gleich die Bestellung

   anderer Lieferant: erst mal den Fusstext
#-J
#ulG >F e0
  #ulF =uLG e0   ???
  Numerierung: Zaehler setzen
#nr p"1!" e"!" =nr

  Kopiere das Textbausteinanhaengsel in die AV xy. Welches Anhaengsel
  genommen wird, haengt vom Status des Datensatzes ab 
  (Indikatorpruefung: auf Pos. 4 steht 3,4,5,6)
#9DB i4,3 dxy p".BESTEL" e7 axy
#9DB i4,5 dxy p".STORNO" e7 axy
#9DB i4,4 dxy p".REKLAM" e7 axy
  Stelle den Lieferantencode in der AV ac zur Verfuegung

#9DB +#9DX j p"SYSL" =al   nach #-X  wenn ungleich
#ual dal e0
#9DB +#uxy J e0
#-X    ###
       #+B   nach -B wenn gleich
  Lade den Lieferantendatensatz. Er ist im Index 11 zu finden
  Wenn er vorhanden ist, springe nach Marke -A, sonst mach weiter
#9DX
#ual +A |112

  Fuer Lieferant-Direkteingabe wird DEU.BESTEL als Text genommen
#uxy p"SYSXDEU" dxy axy
#uxy +C |112		   Suche Textbaustein im Register 11
#9A dyy b"x" ayy            Loesche AV yy, At = alles nach x,
			 kopiere AT nach AV yy
#<

  Hier beginnt die eigentliche Bestellung
#-B
  Gib die Bestellnummer aus
#t1
  Numerierung
#unr P". "
#unr x"+1" =nr

#t99
#uyy B
#9DA e"" P{ &55 }
   #uyy A     ### Wort"Bestellung" und Datum koennen weg!
   #9DB daa d e"(" aaa    Datum = CCJJMMTT!
   #uaa b6 e2 p"           " P"."
   #uaa b4 e2 P"."
   #uaa e4

#9DA dab T aab
!uab +Q y2 |92 					Laden Titel  (Index 9)
#-W

#t{ C }
 #uyy C
 #9DA V b"(" e")"
#t{ &20 }
 #uyy D
 #9DA E b"(" e")"
#t{ &50 }
 #uyy E

 #t{ C }
 #uyy F    Quelle
 #9DB C
#t{ C }
#9DB +#9DX n x"==1" e0
#uyy G    Exemplare
#9DB +#9Dx n
#t{ " 1" }
#9Dx
#t{ &16 }
#9DB +#9DX v x"==1" e0
 #uyy H    Stuecke
 #9DB v
#9DX
#t{ &35 }
#uyy O    Preis:
#9DB p
#9DB c p"  "
#t98{ C }    #### t98
 #uyy I     Kontingent
 #9DB daf a p"SYSK" aaf
 #uaf +S |112                     Laden Kontingentsatz   (Index 11)

#-T
 #t{ C }
 #uyy j
 #9DB +a b"ws" e0
 #9DB +b b"we" e0
 #9DB +c b"wt" e0
 #9DB +d b"wf" e0
#+P
#-a
#uyy +P K
#-b
#uyy +P L
#-c
#uyy +P M
#-d
#uyy +P N
#-P
#9DB i4,4 p{ C "Reklamationsgrund: " t99 } u
#t98
#+#

#(F
  Fusstext:
   #uyy S ### lieber als Text hier, nicht aus dem Baustein
   #9DB +X i4,4 e0
#t{ C C "Auftragsausführung bis spätestens: sofort " C }    ###
#t{ C C "Anlieferungsstelle: Bibliothek des Kammergerichts " C C }    ###
#t{ C C "Es gelten die zusätzlichen Vertragsbedingungen für die Ausführung " }
#t{ C "von Leistungen -ausgenommen Bauleistungen-(VOL) in der jeweils " }
#t{ C "geltenden Fassung
#t{ C "Zahl der Ausfertigungen: 1"  C }
#t{ C C "Im Auftrag"  C }

#t99

#uyy W C P{ C }  nicht bei Status 4:
#t98
#-X   ###
   #t{ C "---"*20 C }
#9DB +# |10
#)F
#+#

#-Q
#t{ 13 10 10 } 
#t   
  #20 +#40 daa aaa
  #8n daa aaa
  #40 ++ 4 #409 5 #zz 1
  #60 ++ 6 #609 5 #zz 1
  #uaa 0 #zz 1
  #40 P":"
  #60 P":"
#40 P":"      ###
#60 P":"      ###
#20 U         ###
#41 p" / "    ###
#42 p" / "    ### 
#43 p" / "    ###
#44 p" / "    ###
#71 p".- "    ### Aufl. dazu
#t1
#74 P": "
#75 0 #76 7 #zz 1
#76 0 #zz 8
#87 p"ISBN:  " 0 #zz 0
#<
#9DB3 +W C C "Bem.: " 
#9DB3 T C "Bem.: " 
#+W

#-S
#9A K							   Kontingentbezeichnung
#<+T

  ****** Extraktion der Sprachkennung aus dem Lieferantendatensatz
#-A
#9A p p"SYSX" axy           Extrahiere die Sprache (Teilfeld p), stelle 
			 Kennung fuer Systemdatensatz Textbaustein
			 davor, kopiere alles in AV ay

#uxy +C |112		 Suche Textbaustein im Register 11, wenn gefunden
							 mach bei Marke -C weiter

#-D                      Sprungmarke

#<+B			 Zurueckschalten zum Bestellsatz, weitermachen bei
							 Marke -B

  ****** Extraktion des Textbausteines
#-C
#9A dyy b"x" ayy            Loesche AV yy, At = alles nach x,
							 kopiere AT nach AV yy
#<                         Schalte zum Lieferantendatensatz zurueck und

#-R
#t{ C }
#t{ #5 }

  #t{ t99 "Die Bibliothek der ...  [Aenderung in P-ORDA.APR] " t98 } 

                                   ########
 
     #t{ "\page " }        ### 

#t{ "10781 Berlin, " t99} 
#dts b6 e2 f"0"
#dts b4 e2 f"0" p"."
#dts e4 f"0" p"."

#t{t98 '  \qr' C '\par\ql '}   ###


   #udt x Day 0\var (b", ") \mes


   #uyy S b": " p99 P98
 
  XXX Hier lokale Angaben einsetzen

#t{ C "Auftraggebende Dienststelle" p99 C }          ###
#t{ "Die Präsidentin des" C }          ###
#t{ "Kammergerichts" C }           ###
#t{ "Elßholzstraße 30-33" C }          ###
#t{ "10781 Berlin" C P98 }          ###
#t{ "Tel.: 9015-2416" C C }          ###
#t98
#t{ C "Lieferant:" p99 C C }          ###


 #uyy R
#9DB +#9A J     Lieferant, wenn kein Stammsatz
#9DB j     Lieferant, wenn kein Stammsatz
#9A n        		Name
#9A a C                Anschrift
#9A l p", "     Land
#t98

  XXX Hier lokale Angaben einsetzen

#t{ C C "Bestellschein für Leistungen (VOL) " C }   ###
#t{ C "Hj: 2005     Kapitel: 0614      Titel:  51120 " C }    ###
#t{ C "{\f2 \fs17 Das Land Berlin, vertreten durch die auftraggebende Dienststelle, " }    ###
#t{ C "erteilt Ihnen folgenden Auftrag zu den nachstehenden Bedingungen: " C C }
#t{ "{ \f2\fs25 "}   ####
#</ 

#+B     Bestelldaten ausgeben

p ª 1
p .20 255

  tPRINTER

tad-aw
td-rtf
q A/Z a