Intra.PPS.TBX.WPZaag vhLib.Macro,BL.Sys.Proxy,BL.Sys.Toegang,Prod.Product,BL.Sys.Resources 1 WS.WebService 0 0 Name of the WebService. WPZaagService Index to store data in the sessionObject Data-array Intra.PPS.TBX.WPZaag input :

• SessionKey

output :

• pxXmlDataSet

returnValue :

• pxStatus

]]> BL.Sys.Proxy.pxStatus 1 input :

• SessionKey
• BatchID
• todo : eventueel ook MachineID laten meegeven

output :

• pxWPZaagInfo

returnValue :

• pxStatus

]]> BL.Sys.Proxy.pxStatus 1 input :

• SessionKey

returnValue :

• pxStatus

]]> SessionKey:%String BL.Sys.Proxy.pxStatus 1 input :

• SessionKey

returnValue :

• pxStatus

]]> SessionKey:%String BL.Sys.Proxy.pxStatus 1 (onderliggende BL weet of de vorige lade al dan niet volledig afgewerkt is
input :

• SessionKey

output :

• pxWPZaagInfo

returnValue :

• pxStatus

]]> BL.Sys.Proxy.pxStatus 1

SessionKey output :

• url (string)

returnValue :

• pxStatus

]]> BL.Sys.Proxy.pxStatus 1 input :

• SessionKey
• pxBulkSortInfo

returnValue :

• pxStatus

]]> BL.Sys.Proxy.pxStatus 1 input :

• SessionKey
• pxWPZaagInfo

returnValue :

• pxStatus (indicatie van fout of verkeerde langte)

]]> BL.Sys.Proxy.pxStatus 1 tdbg . Hang 5 . set ntdbg = $p($h,",",2) // *** debug vertraging ;Sessie terug oproepen /* */ $$$ReInstateSession(SessionKey) $$$CheckAccess($$$rsPPSTBXWPZaag,$$$prUse) // business logic instantieren vanuit Sessie Set pxStatus = ..InstantiateBL(LogLine,.bl) Quit:($$$pxStatusIsERR(pxStatus)) pxStatus // Gezaagde lengte laten nakijken Set pxStatus = bl.CheckGezaagdeLengte(.pxWPZaagInfo) do:($$$pxStatusIsERR(pxStatus)) ..LogError(pxStatus,bl) Quit:($$$pxStatusIsERR(pxStatus)) pxStatus // bl bewaren in sessionobject set pxStatus=%blSession.SaveData(..#SessionDataIndex,bl) do:($$$pxStatusIsERR(pxStatus)) ..LogError(pxStatus,%blSession,bl.BatchID) Set LogLine = ..LogInfo("Einde CheckGezaagdeLengte", , bl.BatchID) Quit pxStatus ]]> input :

• SessionKey

output :

• pxWPLijst

returnValue :

• pxStatus

]]> BL.Sys.Proxy.pxStatus 1 input :

• SessionKey
• pxWPZaagRedo

output :

• -

returnValue :

• pxStatus

]]> BL.Sys.Proxy.pxStatus 1 input :

• SessionKey

output :

• -

returnValue :

• pxStatus

]]> SessionKey:%String BL.Sys.Proxy.pxStatus 1 input :

• SessionKey
• DoBodem (boolean)
• DoRug (boolean)
• VolledigePlaat (boolean)

output :

• -

returnValue :

• pxStatus

]]> SessionKey:%String,DoBodem:%Boolean,DoRug:%Boolean,VolledigePlaat:%Boolean BL.Sys.Proxy.pxStatus 1 1 1 tdbg . Hang 5 . set ntdbg = $p($h,",",2) // *** debug wachten ]]> Actie:%String,Detail,BatchID 1 DS.PPS.Logging.WPZaagLogging st:BL.Sys.Proxy.pxStatus,bl,BatchID 1 DS.PPS.Logging.WPZaagLogging 1