«KUNDEN-BEM(Information,Argumente)»
Adressen
|
|
KP |
Kontaktperson
|
TK |
Terminkalender
|
/K-TEXTBLOCK # Textblock Zeilenweise auslesen «NO(1,NULL)»«nm2» «z~nm2KUNDEN-BEM(320,£«EDK-SPR-NR»)\N»«GOTO(# Jump-Text1)» «REPEAT» «nNO(1)» «READ(«NO(1,0)»)» «zNO(1,0)<«MEM(2)\N»\N» «LOOP» # Jump-Text1 # # Kunden Texblock erste Zeile Fett andrucken «z~nm2KUNDEN-BEM(320,£«EDK-SPR-NR»)\N» «GOTO(# Jump-Text2)» «NO(2,NULL)»«nm2» «REPEAT» «nNO(2)» «zNO(2,0)=1\N»«MEA(21)»«F+»«READ(«NO(2,0)»)»«F-» «z~NO(2,0)>2\N»«MEA(21)»«READ(«NO(2,0)»)» «zNO(2,0)<«MEM(2)\N»\N»«LOOP» # Jump-Text2 /
# Adress-Liste # nur Adressen mit Eintrag in Textblock Nr. 1 /headerpage Adress-Liste «TODAY\8» / /body #,3 «zKUNDEN-BEM(1)\I»«/ADR-DRUCKEN» / /ADR-DRUCKEN «ADRNR» «NAME» «PLZ» «ORT» «KUNDEN-BEM(1,m«5»)» / /totalreport **** Ende der Liste **** /