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 Carrier:%String,CostCenter:%String,PickupDateFrom:%Date,PickupDateTo:%Date WS.Transsmart.tns.doManifest 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,LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 %String Rit:DOM.TRANSP.Rit,LeveringInfo:APPS.TRANSP.dto.LeveringInfo %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) } } If (Rit.GeefTransporteur() = Transporteur.VRD) { ; Zet de pickup datum op de dag voor de gewenste leverdatum, en minstens op vandaag (dus niet in het verleden) Set Datum = ##class(TECH.DateTime).BerekenWerkdag(LeveringInfo.AfleverDatum,-1) If Datum < +(..DateTimeAPI.CurrentHorolog()) { Set Datum = +(..DateTimeAPI.CurrentHorolog()) } } If (Rit.GeefTransporteur() = Transporteur.Dachser){ if (GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.OPO)) { ; Zet de pickup datum op vandaag plus 2 werkdagen Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum, 2) } else { // alle Haefeles behalve CH, en OPO Duitsland Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum, 1) } } If ((Rit.GeefTransporteur() = Transporteur.Schenker) && (GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumPolen))) { ; Zet de pickup datum op vandaag plus 2 werkdagen 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 WS.Transsmart.tns.additionalReference LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit 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) } If (Rit.GeefTransporteur() = Transporteur.Schenker) && (LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumPolen)) { Set Instruction = "Dostawa autem z winda" } Quit ..BeperkLengteTot(Instruction,128) ]]> LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 WS.Transsmart.tns.DoBookingAddress LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit 1 WS.Transsmart.tns.DoBookingAddress LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit 1 %String 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 PackageType:%String,Gewicht:%Numeric,Carrier:%String 1 WS.Transsmart.tns.DoBookingMeasurements LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 %String VerpakkingEenheidType:DOM.TRANSP.enu.VerpakkingEenheidType,Carrier:%String="" 1 %String > Wegwerppallet???? if Carrier = "DAC" { 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,LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 %String = 27 ) || ( LeveringInfo.Gewicht >= 19400 ) ) { Set ServiceLevelTime ="FTL" } elseif ( (TotaalPalletPlaatsen >= 9) || (LeveringInfo.Gewicht >= 2500) ) { Set ServiceLevelTime ="LTL" } else { Set ServiceLevelTime ="PREMIUM" } } else { Set ServiceLevelTime = "" } Quit ServiceLevelTime ]]> Waarde:%String,Lengte:%Integer 1 %String Carrier:%String,DateFrom:%TimeStamp,DateTo:%TimeStamp WS.Transsmart.tns.getStatusHistoryByQuery