Index: TRANSP.mac.rou =================================================================== diff -u -r73082 -r73084 --- TRANSP.mac.rou (.../TRANSP.mac.rou) (revision 73082) +++ TRANSP.mac.rou (.../TRANSP.mac.rou) (revision 73084) @@ -709,7 +709,7 @@ Quit Paletten_D_ExtraPaletten ; - ; Output = Eurpaletten\Colli\Langgoed\Extra paletten + ; Output = Eurpaletten;WWPalletten;Extra paletten\Colli\Langgoed\Kleine\buitenmaatse CalcVerpak(VervRef) New R,Paletten,Collie,Langgoed,ExtraPaletten,GroepNr, BuitenmaatsePaletten,WWPaletten Set R=^TRANSP("D",VervRef),ExtraPaletten=$P(R,D,14),GroepNr="",(Paletten,Collie,Langgoed,KleinePaletten,BuitenmaatsePaletten,WWPaletten)=0 @@ -720,7 +720,7 @@ . Set Langgoed=Langgoed+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","L")) . Set KleinePaletten=KleinePaletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","P")) . Set BuitenmaatsePaletten=BuitenmaatsePaletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","B")) - Quit Paletten + WWPaletten_";"_ExtraPaletten_D_Collie_D_Langgoed_D_KleinePaletten_D_BuitenmaatsePaletten + Quit Paletten _";"_ WWPaletten_";"_ExtraPaletten_D_Collie_D_Langgoed_D_KleinePaletten_D_BuitenmaatsePaletten ; ; Importeren van de ABX regios ImportABX