TECH.RegisteredObject,APPS.TRANSP.GLS.GLSv1.Bericht.RequestDataBouwer APPS.TRANSP.GLS.GLSv1.CommunicatieServiceLocator 1 APPS.TRANSP.GLS.GLSv1.Bericht.impl.T854SuffixBepaler 1 CommunicatieServiceLocator:APPS.TRANSP.GLS.GLSv1.impl.CommunicatieServiceLocator 1 1 %Status 1 LijstVerzendData:APPS.TRANSP.GLS.dto.VerzendDataLijst %ListOfObjects ELEMENTTYPE="APPS.TRANSP.GLS.GLSv1.Bericht.dto.AbstractRequest" VerzendData:APPS.TRANSP.GLS.dto.VerzendData 1 %Boolean LijstVerzendData:APPS.TRANSP.GLS.dto.VerzendDataLijst 1 %ArrayOfObjects ELEMENTTYPE="LijstVerzendData" VerzendData:APPS.TRANSP.GLS.dto.VerzendData,IsLaatsteUnit:%Boolean=0 APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest VerzendDataID:%String,UnitID:%String,IsLaatsteUnit:%Boolean 1 APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightReleaseRequest VerzendDataID:%String,UnitID:%String 1 APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest VerzendData:APPS.TRANSP.GLS.dto.VerzendData APPS.TRANSP.GLS.GLSv1.Bericht.dto.AnnulatieRequest LeveringInfo:APPS.TRANSP.dto.LeveringInfo,VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze %ListOfObjects ELEMENTTYPE="APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request" VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze,VerpakkingEenheid:APPS.TRANSP.dto.VerpakkingEenheid,LeveringInfo:APPS.TRANSP.dto.LeveringInfo,VolgNr:%Integer,Lengte:%Integer=0 1 Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request,LeveringInfo:APPS.TRANSP.dto.LeveringInfo,VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze 1 =1) Request.T920 = LeveringAdres.Opmerkingen.GetAt(1) Set:(LeveringAdres.Opmerkingen.Count()>=2) Request.T920 = $$$IfLength(Request.T920,""," ")_LeveringAdres.Opmerkingen.GetAt(2) set Request.T920 = ..BeperktLengteTot(Request.T920,50) set Request.T921 = ..BeperktLengteTot(LeveringAdres.Volmacht,50) } else { Set:(LeveringAdres.Opmerkingen.Count()>=1) Request.T920 = ..BeperktLengteTot(LeveringAdres.Opmerkingen.GetAt(1),50) Set:(LeveringAdres.Opmerkingen.Count()>=2) Request.T921 = ..BeperktLengteTot(LeveringAdres.Opmerkingen.GetAt(2),50) } } #dim Land As DOM.common.Land = ##class(DOM.DomeinContext).Instance().GeefLocatieAPI().GeefLand($$LAND^vhRtn1(LeveringAdres.LandCode,"I")) If 'Land.IsLidVanEU(){ /// For non-EC or third countries a freigth term (incoterm) has to be entered. The only accepted value to be used in TAG210 is 20. /// this corresponds to Franco or Free House, duty paid Set Request.T210 = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.FreightTerms).Franco() } Set Request.T400 = ..GeefUnitID(VerzendWijze) Set Request.T545 = ..GeefGeformateerdeDatum(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()) Set Request.T805 = GLSEigenschappen.GeefGebruikerID(VerzendWijze) #dim AfzenderAdres As APPS.common.dto.Adres = LeveringInfo.AfzenderAdres Set Request.T810 = AfzenderAdres.Naam Set Request.T811 = "" ;AfzenderAdres.Toenaam, tijdelijk in commentaar want voor EDI met GLS is 'HOECKE' verplicht als toenaam. Set Request.T820 = AfzenderAdres.Straat Set Request.T821 = AfzenderAdres.LandCode Set Request.T822 = ..GeefGeformateerdePostcode(AfzenderAdres.LandCode,AfzenderAdres.Postcode) Set Request.T823 = AfzenderAdres.Woonplaats Set Request.T854 = LeveringInfo.Referentie Set Request.T8914 = GLSEigenschappen.GeefGLSContactID(VerzendWijze) Set Request.T8915 = GLSEigenschappen.GeefGLSGebruikerID(VerzendWijze) ]]> Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest,Lengte:%Integer=0 1 APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest 2) { #dim LengteInCentimeters As %Decimal = (Lengte * 100) Set Request.TLG = LengteInCentimeters Set Request.T750 = "LENGTH GOODS" Set Request.T751 = "LENGTH: "_LengteInCentimeters_" CENTIMETERS" }Else{ Set Request.TLG = "" } Quit Request ]]> Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest,LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest ParcelRequest:APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest,LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest de "No value" weglaten, dezetag is gewoon leeg maar moet wel gestuurd worden in request. } Set ParcelRequest.T206 = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.ParcelServiceTypeBepaler).%New(LeveringInfo).GeefServiceType() Set ParcelRequest.T1229 = LeveringInfo.EmailVoorBevestiging Quit ParcelRequest ]]> Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelDepositRequest,LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest =1)){ Set Request.T752 = ..BeperktLengteTot(LeveringInfo.LeverAdres.Opmerkingen.GetAt(1),50) } Quit Request ]]> Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest,LeveringInfo:APPS.TRANSP.dto.LeveringInfo 1 APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelCashOnDeliveryRequest VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze 1 %String Datum:%Date 1 %String Bedrag:%Decimal 1 %String Bedrag:%Decimal 1 %String Landcode:%String,Postcode:%String 1 %String LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Landen:%ListOfDataTypes 1 %Boolean 0) ]]> Getal:%Integer 1 %String Waarde:%String,Lengte:%Integer 1 %String Lengte { Set Waarde = $Extract(Waarde,1,(Lengte-2))_".." } Quit Waarde ]]> Waarde:%String 1