Einrichten und
Funktionsweise eines F-Script als Explorer-Position
(DeskItem)
Durch den Einsatz der GetInfoScript-Funktionalität
ergeben sich neue Möglichkeiten für den Einsatz von F-Scripts als
Explorer-Position.
Erstellen einer neuen
Explorer-Position vom Typ F-Script
Öffnen Sie in einem persönlichen
Ordner oder innerhalb einer Favoriten-Registerkarte das BC 99001 über den
Kontextmenüeintrag Neu.
-
Typ: F-Script
-
Ausführen: Name des F-Scripts
-
Wenn vor dem Start des F-Scripts die Script-Argumente (gem.
/GetInfoScriptArg) im BC 99001 angezeigt werden sollen, aktivieren Sie
die entsprechende Checkbox.
-
Wenn nach Beenden des F-Scripts die aufrufende Komponente
(BC/WS) automatisch aktualisiert werden soll, aktivieren Die die
entsprechende Checkbox.
-
Erfassen Sie Titel, Laufnummer und Icon (optional).
Nun steht Ihnen das F-Script als Explorer-Eintrag (DeskItem) zur
Verfügung. Ein Doppelklick auf den Explorer-Eintrag startet das
F-Script.
Wird dieser Explorer-Eintrag z.B. in der Button-Leiste des
WS 11000 hinzugefügt, so übergibt das OpaccERP BackOffice beim Starten des
F-Script die im WS 11000 aktive Adresse in das F-Script. Voraussetzung:
Die Rückgabe-Argumente in der Subroutine /GetInfoScript sind korrekt
definiert.
Subroutine /GetInfoScript
/GetInfoScript
«XFAS(head=SupportsScreenOutput)»
«XFAS(head=SupportsBoArgs)»
«XFAS(head=SupportedBoType)»
«XFAS(head=MlsKey)»
# -------------------------------------------------------------------------------------------------
# SceenOutput unterstützt
«XFAS(cell=1)»
# BoArgs unterstützt
«XFAS(cell=1)»
# BOTyp welcher geliefert werden soll
«XFAS(cell=Addr)»
# Gewünschter MLS-Key
«XFAS(cell=U.ScriptReport.«CB(0)»)»
/
Subroutine /GetInfoScriptArg
Die in
der Subroutine /GetInfoScriptArg definierten Rückgabe-Argumente werden
(sofern die Checkbox im BC 99001 gesetzt ist) vor dem Start des F-Scripts
im BC 99009 angezeigt.
# ******************************************************************************************************
# GetInfoScriptArg
# ******************************************************************************************************
/GetInfoScriptArg
«XFAS(heads=Argument,StateCd,DataTypeCd,Format,RelationshipCd,RelatedObject)»
«XFAS(heads=RelatedIndex,RelatedConstraint,DefaultValue,EntryMode,WithPrevious,MlsKey)»
# ------------------------------------------------------------------------------------------------------
# EntryMode=1 --> Eingabe zwingend
«XFAS(cells=MyArg1,1,A,10,0,,,,,1,0,Eingabe zwingend)»
# EntryMode=2 --> Eingabe gesperrt
«XFAS(cells=MyArg2,1,A,10,0,,,,xxx,2,0,Eingabe gesperrt)»
# RelationShipCd=1 --> BO.Attribut
«XFAS(cells=MyArg3,1,A,10,1,Addr.Number,,,1,0,0,Relation BO.Attribut)»
# RelationShipCd=3 --> Code
«XFAS(cells=MyArg4,1,A,10,3,DocState,,,10,0,0,Relation Codetabelle)»
# Formatierung Alphanummerisch
«XFAS(cells=MyArg5,1,A,10,0,,,,Alpha,0,0,DataType.A)»
# Formatierung Uppercase
«XFAS(cells=MyArg6,1,X,10,0,,,,BIG,0,0,DataType.X)»
# Formatierung Nummerisch
«XFAS(cells=MyArg7,1,R,8.2,0,,,,-100.2,0,0,DataType.R)»
# Formatierung Nummerisch nicht negativ
«XFAS(cells=MyArg8,1,N,8.2,0,,,,100.2,0,0,DataType.N)»
# Formatierung Datum
«XFAS(cells=MyArg9,1,D,,0,,,,«TODAY\D10»,0,0,DataType.D)»
# Formatierung Boolean
«XFAS(cells=MyArg10,1,B,,0,,,,0,0,0,DataType.B)»
/
Die vom Anwender
eingegebenen Werte können dann über den XCNT-Befehl abgefragt
werden.
Beispiel:
«XCNT(freeArg:MyArg5)»
Subroutine /GetInfoScriptCol
Sofern das F-Script
den ScreenOutput unterstützt und entsprechende Rückgabe-Attribute
definiert sind, werden diese durch das OpaccERP BackOffice in Form einer
BO-Liste angezeigt.
/body
# Befüllen der innerhalb GetInfoScriptCol definierten Spalten
«XFAS(cells=1,Stefan,Egli,BOF)»
«XFAS(cells=2,Ueli,Amstutz,OXAS)»
«XFAS(cells=3,Roman,Vonwil,TESTING)»
«XFAS(cells=4,Martin,Schild,TESTING)»
/
# ******************************************************************************************************
# GetInfoScriptCol
# ******************************************************************************************************
/GetInfoScriptCol
«XFAS(heads=Column,DataTypeCd,Format,RelationshipCd,RelatedObject,RelatedIndex,RelatedConstraint)»
«XFAS(heads=OnDemand,MlsKey)»
# ------------------------------------------------------------------------------------------------------
# Werte für 1. Spalte
«XFAS(cells=MyCol1,A,100,0,,,,0,Addr.Number)»
# Werte für 2. Spalte
«XFAS(cells=MyCol2,A,100,0,,,,0,Addr.FirstName)»
# Werte für 3. Spalte
«XFAS(cells=MyCol3,A,100,0,,,,0,Addr.LastName)»
# Werte für 4. Spalte
«XFAS(cells=MyCol4,A,100,0,,,,0,Empl.Department)»
/
