APPS.TRANSP.Transsmart.RequestDataBouwer,TECH.Mockable TECH.DateTime.DateTimeAPI 1 DOM.common.ProjectSettingsAPI 1 DateTimeAPI:TECH.DateTime.DateTimeAPI="",ProjectSettingsAPI:DOM.common.ProjectSettingsAPI="" 1 1 %Status 1 LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit WS.Transsmart.tns.doBooking VerzendData:APPS.TRANSP.Transsmart.data.VerzendData WS.Transsmart.tns.doDelete Reference:%String WS.Transsmart.tns.getDocs 1 WS.Transsmart.tns.GetDocsActionInfo 1 WS.Transsmart.tns.DoDeleteActionInfo VerzendData:APPS.TRANSP.Transsmart.data.VerzendData 1 WS.Transsmart.tns.DoDeleteShipmentInfo Reference:%String WS.Transsmart.tns.GetDocsShipmentInfo LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit 1 WS.Transsmart.tns.DoBookingBookingInfo ander afzenderadres Set BookingInfo.carrier = ..BepaalBookingInfoCarrier(Rit) Quit BookingInfo ]]> LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit 1 WS.Transsmart.tns.DoBookingShipmentInfo Rit:DOM.TRANSP.Rit %String LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit 1 %String ##class(TECH.DateTime).BerekenWerkdag(Datum,1) ) { Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum,1) } } Quit ##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(Datum,"JJJJ-MM-DD") ]]> Rit:DOM.TRANSP.Rit 1 WS.Transsmart.tns.additionalReference LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 WS.Transsmart.tns.additionalReference LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 WS.Transsmart.tns.additionalReference LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 %String 0) { set Instruction = LeveringAdres.Opmerkingen.GetAt(1) } If (LeveringAdres.Opmerkingen.Count() > 1) { set Instruction = Instruction _ $Select($Length(Instruction):" ",1:"")_ LeveringAdres.Opmerkingen.GetAt(2) } Quit ..BeperkLengteTot(Instruction,128) ]]> LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 WS.Transsmart.tns.DoBookingAddress LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 WS.Transsmart.tns.DoBookingAddress Straat:%String 1 %String LandCode:%String,Postcode:%String 1 %String Lijnnummmer:%Integer,VerpakkingEenheid:APPS.TRANSP.dto.VerpakkingEenheid,Gewicht:%Numeric,Carrier:%String="" 1 WS.Transsmart.tns.DoBookingShipmentLine LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 %String VerpakkingEenheidType:DOM.TRANSP.enu.VerpakkingEenheidType,Carrier:%String="" 1 %String > Wegwerppallet???? if Carrier = "DAC" { if (VerpakkingEenheidType = Type.Colli) || (VerpakkingEenheidType = Type.Langgoed){ } Set PackageType = ##class(TECH.StringUtils).ToUpper(PackageType) } Quit PackageType ]]> VerpakkingEenheidType:DOM.TRANSP.enu.VerpakkingEenheidType,Carrier:%String="" 1 Rit:DOM.TRANSP.Rit 1 %String Rit:DOM.TRANSP.Rit 1 %String Waarde:%String,Lengte:%Integer 1 %String