Intra.PPS.OL.Inpak vhLib.Macro,BL.Sys.Proxy,BL.Sys.Toegang,Prod.Product,BL.Sys.Resources 1 WS.WebService 0 0 Name of the WebService. InpakServer SOAP Namespace for the WebService http://vhintra.vanhoecke.be Index to store data in the sessionObject Data-array Intra.PPS.OL.Inpak mogelijke selecties zijn :

• - Klantnr
• - BONNr
• - inclusief afgewerkte (boolean)

input :

• SessionKey
• KlantNr
• BonNr
• Incl Afgewerkte

output :

• pxXmlDataSEt

returnValue :

• pxStatus

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

• SessionKey
• BONNr
• InpakTafelNr

output:

• pxInpakInfo

returnValue :

• pxStatus

De WS zorgt voor het triggeren van de nodige actie

• snijden van de (eerste) overdoos-bodem
• snijden van de dozen van het eerste product
• printen van de nodige etiketten

Alle detail informatie van de eerste item wordt teruggegeven (in pxInpakInfo)]]> BL.Sys.Proxy.pxStatus 1 input

• SessionKey
• BONNr
• InpakTafelNr

output:

• pxInpakOverzicht

returnValue :

• pxStatus

De informatie wordt teruggegeven (in pxInpakOverzicht. hierin zit een XmlDataSet met het overzicht)]]> BL.Sys.Proxy.pxStatus 1 Er moet dan ook geen BONNr als input worden meegegeven. ]]> BL.Sys.Proxy.pxStatus 1 0) of vorige (dir <1) doos.
input

• SessionKey
• Direction (>0=Next; <0=Previous)

output :

• pxInpakInfo

returnValue :

• pxStatus

De WS zorgt voor het triggeren van de nodige actie

• snijden van de dozen (als dit nog niet reeds gebeurd is)
• printen van het etiket (als dit nog niet reeds gebeurd is)

Alle detail informatie van het item wordt teruggegeven (in pxInpakInfo)]]> BL.Sys.Proxy.pxStatus 1 " Set LogLine = ..LogInfo("Start Next",LogDetail) Set pxInpakInfo=$$$NULLOREF ;Sessie terug oproepen $$$ReInstateSession(SessionKey) $$$CheckAccess($$$rsPPSOLInpak,$$$prUse) // business logic instantieren vanuit Sessie //Set pxStatus = %blSession.GetData(..#SessionDataIndex,.bl) Set pxStatus = ##class(BL.PPS.OL.Inpak).ReOpen(%blSession, ..#SessionDataIndex,.bl) do:($$$pxStatusIsERR(pxStatus)) ..LogError(pxStatus,%blSession,bl.BONNr) Quit:($$$pxStatusIsERR(pxStatus)) pxStatus Do ..AddRefToLog(.LogLine,bl.BONNr) Set pxStatus = bl.Next(Dir,.pxInpakInfo) do:($$$pxStatusIsERR(pxStatus)) ..LogError(pxStatus,bl,bl.BONNr) Quit:($$$pxStatusIsERR(pxStatus)) pxStatus // Opgehaalde data bewaren in sessionobject set pxStatus=%blSession.SaveData(..#SessionDataIndex,bl) do:($$$pxStatusIsERR(pxStatus)) ..LogError(pxStatus,%blSession,bl.BONNr) Set LogLine = ..LogInfo("Einde Next",LogDetail, bl.BONNr) quit pxStatus ]]> input

• SessionKey

output :

• pxInpakInfo

returnValue :

• pxStatus

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

• SessionKey
• pxInpakRedo (bevat een lijst van SnijID's en hoeveelheden. De SnijID's zijn dezelfde van pxInpakInfo.Detail, de bijhorende hoeveelheden worden door de client gezet

returnValue :

• pxStatus

]]> SessionKey:%String,pxInpakRedo:BL.PPS.OL.pxInpakRedo BL.Sys.Proxy.pxStatus 1 De doos zal echter gesneden worden volgens zijn nieuwe definitie
input

• SessionKey
• pxInpakRedo (bevat een lijst van SnijID's en hoeveelheden. De SnijID's zijn dezelfde van pxInpakInfo.Detail, de bijhorende hoeveelheden worden door de client gezet

returnValue :

• pxStatus

]]> SessionKey:%String,pxInpakRedo:BL.PPS.OL.pxInpakRedo BL.Sys.Proxy.pxStatus 1 input

• SessionKey
• SnijID
• PRNr

returnValue :

• pxStatus

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

• SessionKey
• SnijID

output :

• pxInpakInfo

returnValue :

• pxStatus

]]> BL.Sys.Proxy.pxStatus 1 " Set LogLine = ..LogInfo("Start GetHersnijInformatie",LogDetail) ;Sessie terug oproepen $$$ReInstateSession(SessionKey) $$$CheckAccess($$$rsPPSOLInpak,$$$prUse) // business logic instantieren vanuit Sessie Set pxStatus = ##class(BL.PPS.OL.Inpak).ReOpen(%blSession, ..#SessionDataIndex,.bl) do:($$$pxStatusIsERR(pxStatus)) ..LogError(pxStatus,%blSession,bl.BONNr) Quit:($$$pxStatusIsERR(pxStatus)) pxStatus Do ..AddRefToLog(.LogLine,bl.BONNr) Set pxStatus = bl.GetHersnijInformatie(pSnijID, .pxInpakInfo) do:($$$pxStatusIsERR(pxStatus)) ..LogError(pxStatus,bl,bl.BONNr) Quit:($$$pxStatusIsERR(pxStatus)) pxStatus Set LogLine = ..LogInfo("Einde GetHersnijInformatie",LogDetail,bl.BONNr) quit pxStatus ]]> input

• SessionKey
• SnijID
• PRNr

returnValue :

• pxStatus

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

• SessionKey
• BonNr

output :

• -

returnValue :

• pxStatus

]]> SessionKey:%String,pBONNr:%String BL.Sys.Proxy.pxStatus 1 Actie:%String,Detail,Ref 1 DS.PPS.Logging st:BL.Sys.Proxy.pxStatus,bl,Ref 1 DS.PPS.Logging 1 SessionKey:%String BL.Sys.Proxy.pxStatus