TECH.Mockable APPS.TRANSP.Transsmart.impl.EtiketPrinter 1 TECH.Config.ConfigMgr 1 WS.Transsmart.TboxServicePort 1 DOM.common.impl.ProjectSettingsAPI 1 APPS.TRANSP.Transsmart.RequestDataBouwer 1 APPS.common.Print.PrintAPI 1 EtiketPrinter:APPS.TRANSP.Transsmart.impl.EtiketPrinter="",ConfigMgr:TECH.Config.ConfigMgr="",ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI="",TranssmartWSClient:WS.Transsmart.TboxServicePort="",RequestBouwer:APPS.TRANSP.Transsmart.RequestDataBouwer="",PrintAPI:APPS.common.Print.impl.PrintAPI="" 1 1 %Status 1 SSLConfiguration:%String Error:APPS.TRANSP.Transsmart.Error 1 %String 1 Error:WS.Transsmart.tns.getStatusResponse 1 "_$listget(Calling,2) If (Error.Niveau = ##class(TECH.Exceptions.enu.Niveau).Waarschuwing()) { Set BerichtVoorGebruiker = Error.ErrorCode_": "_Error.Omschrijving_$$$CRLF_"Gelieve zelf of via OV actie te ondernemen." Do ##class(vhLib.Logger).%New("Transsmart").Warning(CallingMethod,(BerichtVoorGebruiker_..GeefBerichtVoorICT(Error))) }Else{ Set BerichtVoorGebruiker = Error.Niveau_$$$CRLF_"Dit probleem moet door ICT opgelost worden." Do ##class(vhLib.Logger).%New("Transsmart").ErrorMail(CallingMethod,(BerichtVoorGebruiker_..GeefBerichtVoorICT(Error))) } If (Error.Niveau '= ##class(TECH.Exceptions.enu.Niveau).InterneWaarschuwing()){ Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Transsmart.Exceptions.CommunicatieException).%New(BerichtVoorGebruiker)) } ]]> Levering:DOM.TRANSP.Levering ShipmentReference:%String,ComputerNaam:%String,Aantal:%Integer +$h ){ Do ##class(vhLib.Logger).%New().Info("VRDDueOut Etiketten","Afdrukken "_Aantal_" VRD DueOut Etiketten voor shipment met reference '" _ShipmentReference _ "' met pickupdatum " _ $zd(PickupDate,2)) #dim Dag = $Piece($zd(PickupDate,2)," ",1) #dim Maand = $$$UCase($Piece($ZD(PickupDate,2)," ",2)) #dim BartenderPrinter as %String = ..PrintAPI.GeefLabelPrinter("TRANSP_DI1",ComputerNaam).GeefDevice() Set DocsV1 = ##class(BL.PPS.TBX.DocsV1).%New() do DocsV1.VRDDueOutEtiket(Dag,Maand,BartenderPrinter,Aantal, "3" _ $Extract(ShipmentReference,6,10)) Set BartenderPrinter = ..PrintAPI.GeefLabelPrinter("TRANSP_VRDDUEOUTA4",ComputerNaam).GeefDevice() do DocsV1.VRDDueOutA4Etiket(Dag,Maand,BartenderPrinter,Aantal, "3" _ $Extract(ShipmentReference,6,10)) } else { Do ##class(vhLib.Logger).%New().Info("VRDDueOut Etiketten","VRD DueOut etiketten niet nodig voor shipment met reference " _ShipmentReference _ " met pickupdatum " _ $zd(PickupDate,2)) } ]]> ShipmentReference:%String %Date ShipmentReference:%String WS.Transsmart.tns.doBooking Levering:DOM.TRANSP.Levering %ListOfObjects Levering:DOM.TRANSP.Levering 1 %String Request:WS.Transsmart.tns.getDocs 1 WS.Transsmart.tns.getDocsResponse Response:WS.Transsmart.tns.getDocsResponse 1 %ListOfDataTypes