Funktionsweise
einer Auswertung vom Typ F-Script
Der Einsatz der
GetInfoScript-Funktionalität bei Auswertungen vom Typ F-Script wird hier
anhand der Standard-Auswertung Adressliste, kurz aufgezeigt. Diese
Standard-Auswertung wird mit v16.00.00
ausgeliefert/aktualisiert.
Ein Nachteil von Auswertungen des Typs
F-Script war die fehlende Möglichkeit, Daten direkt in Excel auszugeben.
Diese Anforderung lässt sich nun mittels der Subroutinen /GetInfoScript,
/GetInfoScriptArg und /GetInfoScriptCol einfach lösen.
Das bei der
Auswertung hinterlegte F-Script ST-AD201.FF wurde dabei nur um die
Meta-Informationen ergänzt. Dabei wurde die Subroutine
/ApplicationServerArguments durch die Subroutine /GetInfoScriptArg
ersetzt.
# ******************************************************************************************************
# META-INFORMATIONEN
# ******************************************************************************************************
/GetInfoScript
«XFAS(head=SupportsScreenOutput)»
«XFAS(head=MlsKey)»
# ------------------------------------------------------------------------------------------------------
# SceenOutput unterstützt
«XFAS(cell=1)»
# Gewünschter MLS-Key
«XFAS(cell=Scripting.ReportTitle.AD201.FF)»
/
/GetInfoScriptArg
«XFAS(heads=Argument,StateCd,DataTypeCd,Format,RelationshipCd,RelatedObject)»
«XFAS(heads=RelatedIndex,RelatedConstraint,DefaultValue,EntryMode,WithPrevious,MlsKey)»
#
«XFAS(cells=FreeTitle,1,A,25,0,,,,,0,0,Scripting.ReportArg.FreeTitle)»
«XFAS(cells=PrtSelect,1,B,,0,,,,1,0,0,Scripting.ReportArg.PrintSelection)»
/
/GetInfoScriptCol
«XFAS(heads=Column,DataTypeCd,Format,RelationshipCd,RelatedObject,RelatedIndex,RelatedConstraint)»
«XFAS(heads=OnDemand,MlsKey)»
#
«XFAS(cells=Number,N,10.0,0,,,,0,Addr.Number)»
«XFAS(cells=Addr.FullName,A,100,0,,,,0,Addr.FullName)»
«XFAS(cells=Addr.Line1,A,100,0,,,,0,Addr.Line1)»
«XFAS(cells=Addr.Line2,A,100,0,,,,0,Addr.Line2)»
«XFAS(cells=Addr.Zip,A,100,0,,,,0,Addr.Zip)»
«XFAS(cells=Addr.City,A,100,0,,,,0,Addr.City)»
«XFAS(cells=Addr.Phone1,A,100,0,,,,0,Addr.Phone1)»
«XFAS(cells=Addr.Fax1,A,100,0,,,,0,Addr.Fax1)»
/
Grundsätzlich macht die Verwendung von Layout-Befehlen nur
dann Sinn, wenn auch ein Ausdruck erfolgt. Dies lässt sich mittels dem
Kontext-Befehl prüfen.
«XCNT(arg:OutTypeCd)=B\A» (Ausgabe an
Bildschirm)
Diese Prüfung wird hier anhand des /body beim
F-Script ST-AD201.FF aufgezeigt. Es wird geprüft, wie der Output erfolgen
soll. Je nach dem wird dann eine andere Subroutine für die Ausgabe
verwendet.
/body
«XSER(reqAddr:GetBo,Addr,«ADRNR»,e,1,1,1,,*,,)»«nXSER(reqAddr:execute>resAddr)»
# ------------------------------------------------------------------------------------------------------
# Ausgabe als Print-Layout
«nz~XCNT(arg:OutputTypeCd)=B\A»«/Body.PrintLayout»
# ------------------------------------------------------------------------------------------------------
# Ausgabe als BO-Tabelle bzw. Übergabe an Excel
«nz XCNT(arg:OutputTypeCd)=B\A»«/Body.BoTable»
«X(AnzahlAdr=«(«X(AnzahlAdr)»+1)\N»)»
/
/Body.PrintLayout
#,1
«X(FontDetailLines)» «-»
«X(Tab11)»«XRES(resAddr:Addr.Number)\Ap» «-»
«X(Tab12)»«XRES(resAddr:Addr.LastName)\A30» «-»
«X(Tab14)»«XRES(resAddr:Addr.Line1)\A30» «-»
«X(Tab16)»«XRES(resAddr:Addr.Line2)\A30» «-»
«X(Tab18)»«XRES(resAddr:Addr.Zip)» «-»
«X(Tab20)»«XRES(resAddr:Addr.City)» «-»
«X(Tab22)»«XRES(resAddr:Addr.Phone1)» «-»
«X(Tab24)»«XRES(resAddr:Addr.Fax1)»
/
/Body.BoTable
«XFAS(cell=«XRES(resAddr:Addr.Number)\N»)»
«XFAS(cell=«XRES(resAddr:Addr.LastName)\A»)»
«XFAS(cell=«XRES(resAddr:Addr.Line1)\A»)»
«XFAS(cell=«XRES(resAddr:Addr.Line2)\A»)»
«XFAS(cell=«XRES(resAddr:Addr.Zip)»)»
«XFAS(cell=«XRES(resAddr:Addr.City)»)»
«XFAS(cell=«XRES(resAddr:Addr.Phone1)»)»
«XFAS(cell=«XRES(resAddr:Addr.Fax1)»)»
/
Übergabe an BO-Liste
Übergaben an
Excel
