Index: DCABXVD.mac.rou =================================================================== diff -u -r60203 -r66336 --- DCABXVD.mac.rou (.../DCABXVD.mac.rou) (revision 60203) +++ DCABXVD.mac.rou (.../DCABXVD.mac.rou) (revision 66336) @@ -128,7 +128,7 @@ GeefAantalVerpakkingen(RitID, LeveringID) New Levering,Aantal #dim Levering As DOM.TRANSP.Levering = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefLevering(RitID,LeveringID) -#dim Aantal As %String = (Levering.GeefAantalEuroPalletten() + Levering.GeefAantalColli() + Levering.GeefAantalHalveEuroPalletten() + Levering.GeefAantalLanggoed() + Levering.GeefAantalBuitenmaatsPalletten()) +#dim Aantal As %String = (Levering.GeefAantalEuroPalletten() + Levering.GeefAantalWegwerpPalletten() + Levering.GeefAantalColli() + Levering.GeefAantalHalveEuroPalletten() + Levering.GeefAantalLanggoed() + Levering.GeefAantalBuitenmaatsPalletten()) Quit Aantal ; BONNRS @@ -210,6 +210,7 @@ .Do PASTE(PCount,LCount,L("F","B"),1,"","C") .DO VoegToeColli .DO VoegToeEuroPalletten + .DO VoegToeWWPalletten .Do VoegToeMiniPalletten .Do VoegToeBuitenmaatsePalletten .Do VoegToeLanggoed @@ -245,6 +246,14 @@ Set:(Rit.GeefAantalExtraPalleten()>0) Aantal = Aantal_"+"_Rit.GeefAantalExtraPalleten() Do VoegToeItem("Palet",Aantal) Quit + +VoegToeWWPalletten + New Aantal,Rit +#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(VervRef) +#dim Aantal As %String = Rit.GeefAantalWegwerpPalletten() + Do VoegToeItem("WWPalet",Aantal) + Quit + VoegToeBuitenmaatsePalletten New Aantal,Rit @@ -330,6 +339,7 @@ TPage ;Blz\Blz\Blz\Blz TTotCol ;Totaal verpakkingen\Totaal verpakkingen\Totaal verpakkingen\Totaal verpakkingen TPalet ;Palletten\Palletten\Palletten\Palletten +TWWPalet ;WWPalletten\WWPalletten\WWPalletten\WWPalletten TLangG ;Langgoed\Langgoed\Langgoed\Langgoed THandT ;Handtekening chauffeur\Handtekening chauffeur\Handtekening chauffeur\Handtekening chauffeur TBuitenmaatsPallet ;Buitenmaatse palletten\Buitenmaatse palletten\Buitenmaatse palletten\Buitenmaatse palletten