%RegisteredObject 1 1 KlantID:DOM.VKP.VanHoeckeKlantID %String Do ##class(zTryout.JBL.GLS).ToonGLSAdressen(1,1) 1 StuurNaarGLS:%Boolean=0,EnkelAlsEersteKeerIs:%Boolean=1 0{ #dim VerzendWijze As APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(LeveringDto) #dim Service as %String = $S((Levering.GeefBedragRembours()>0):"Rembours-COD",(Levering.GeefAdres().GeefVolmacht()'=""):"Volmacht-Deposit",1:"Gewoon") #dim Nr As %Integer = $g(%DenArray(Rit.GeefTransporteur()_" ",Levering.GeefAdres().GeefLand().GeefNaam()_" ",VerzendWijze,Service)) Set %DenArray(Rit.GeefTransporteur()_" ",Levering.GeefAdres().GeefLand().GeefNaam()_" ",VerzendWijze,Service)= Nr+1 If StuurNaarGLS && ('EnkelAlsEersteKeerIs || (Nr = "")){ Write $C(9),"*********************************",! write $C(9),Service,! Write $C(9),VerzendWijze_" naar "_Levering.GeefAdres().GeefLand().GeefNaam()_", "_Levering.GeefAdres().GeefStraat()_", "_Levering.GeefAdres().GeefGemeente()_" => "_Rit.GeefID()_","_Levering.GeefID(),! Write $C(9),$C(9),"Colli : "_Levering.GeefAantalColli(),! Write $C(9),$C(9),"Europallet : "_Levering.GeefAantalEuroPalletten(),! Write $C(9),$C(9),"Halvepallet : "_Levering.GeefAantalHalveEuroPalletten(),! Write $C(9),$C(9),"Langgoed : "_Levering.GeefAantalLanggoed(),! Write $C(9),"*********************************",! Write $C(9),"Stuur naar GLS (Y/N) ? ",$C(9) #dim Verstuur As %Boolean = "N" Read Verstuur Write ! If (Verstuur = "Y") { Kill ^TRANSP("D",Rit.GeefID(),"D",Levering.GeefID(),"DistributeurDataIDs") Set %DenArray(Rit.GeefTransporteur()_" ",Levering.GeefAdres().GeefLand().GeefNaam()_" ",VerzendWijze,Service)= Nr+1 Do ##class(zTryout.JBL.GLS).GeefRequestVoorLevering(Rit.GeefID(),Levering.GeefID()) Write ! break } } } } } zw %DenArray ]]> 1 UnitID:%String 1 RitID:%String,LeveringID:%String %String 1 RitID:%String,LeveringID:%String %String 1 1 1 1 APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse 1 1 APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightRequest 1 BonID:%String,NieuweKlantNr:%String