Textblock an ein ApplicationServerAttribute
übergeben
Beispiel
In
diesem Beispiel wird der Text eines Kontaktplanungseintrages in ein
ApplicationServerAttribute übergeben.
Die Ausgabe erfolgt dann
entweder in einer BO-Liste oder in Excel.
Der Textblock enthält
mehrere Zeilen, wovon eine Zeile mehr als 300 Zeichen lang ist.
(Fliesstext)
Mittels W80 wird der Textblock im Script formatiert.
(Breite von max. 80 Zeichen.)
/ApplicationServerAttributes
# Attribute
Notiz
Anzahl_Zeilen
/
/headerreport
Header Andrucken
/
/body
# Textblock via GetBo auslesen (Textblöcke aus der Kontaktplanung)
«XSER(getContactPlan:GetBo)»
«XSER(getContactPlan:addArg=ContactPlan)»
«XSER(getContactPlan:addArg=«ADRNR»)»
«XSER(getContactPlan:addArg=pe)»
«XSER(getContactPlan:addArg=1)»
«XSER(getContactPlan:addArg=10)»
«XSER(getContactPlan:addArg=1)»
«XSER(getContactPlan:addArg=)»
«XSER(getContactPlan:addArg=Date,ContactSortId!!,EmpNo!!,Text)»
«nXSER(getContactPlan:execute>getContactPlanRes)»
# ***************************************************************
# Den Textblock (Zeile zwei des Resultats) in eine Variable "Notiz" abspeichern
«XRES(getContactPlanRes:ContactPlan.Text,2>Notiz)\A»
#
# Zeilenweise Auslesen des Textblockes. (via Loop)
# übergeben der ausgelesenen Zeilen in das ApplicationServerAttribute (via APPEND)
«nm1(«X(Notiz,W80)\N»)»
«z~MEM(1)\I»«GOTO(# KEIN-TEXT)»
«nNO(1,NULL)»
«REPEAT»
«nNO(1)»
«AS(APPEND:Notiz,«READ(«NO(1,0)»)\S»)»
«z~MEM(1)=«NO(1,0)\N»\N»«LOOP»
# KEIN-TEXT
#
# ***************************************************************
#
«AS(ATTACH)»
/