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
Index: ULTOER.mac.rou
===================================================================
diff -u -r70801 -r73084
--- ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 70801)
+++ ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 73084)
@@ -527,6 +527,12 @@
 			 Set VerpakkingAantalDeel2 = $Piece(VerpakkingAantal,";",2) + $Piece(BijkomendeVerpakkingAantal,";",2)
 			 Set VerpakkingAantal = VerpakkingAantalDeel1_";"_VerpakkingAantalDeel2
 			 Set $Piece(Verpakking,"\",Index) = VerpakkingAantal
+		 }ElseIf ($Length(VerpakkingAantal,";") = 3){
+			 Set VerpakkingAantalDeel1 = $Piece(VerpakkingAantal,";",1) + $Piece(BijkomendeVerpakkingAantal,";",1)
+			 Set VerpakkingAantalDeel2 = $Piece(VerpakkingAantal,";",2) + $Piece(BijkomendeVerpakkingAantal,";",2)
+			 Set VerpakkingAantalDeel3 = $Piece(VerpakkingAantal,";",3) + $Piece(BijkomendeVerpakkingAantal,";",3)			 
+			 Set VerpakkingAantal = VerpakkingAantalDeel1_";"_VerpakkingAantalDeel2_";"_VerpakkingAantalDeel3
+			 Set $Piece(Verpakking,"\",Index) = VerpakkingAantal
 		 }
 	 } 
  }Else{
@@ -556,14 +562,15 @@
 HaalOpDataHeaderGLS(RitID)
  New Rit
  #dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(RitID)
- Set Pallet = Rit.GeefAantalEuroPalletten() + Rit.GeefAantalWegwerpPalletten()
+ Set Pallet = Rit.GeefAantalEuroPalletten() _";"_ Rit.GeefAantalWegwerpPalletten()
  Set Collo = Rit.GeefAantalColli()
  Set LangGoed = Rit.GeefAantalLanggoed()
  Set KleinPallet = Rit.GeefAantalHalveEuroPalletten()
  Set BuitenmaatsPallet = Rit.GeefAantalBuitenmaatsePalletten()
  Quit
  
 RefreshHeader()
+    Do REMATTR^vhScherm("ABX","H","H")
 	Do REMATTR^vhScherm("PALLET","H","H")
  	Do REMATTR^vhScherm("COLLO","H","H")
  	Do REMATTR^vhScherm("LANGGOED","H","H")
Index: vhDeploy/Deploy20241605.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20241605.cls.xml	(revision 0)
+++ vhDeploy/Deploy20241605.cls.xml	(revision 73084)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20241605">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Apart tonen van aantallen Euro/Wegwerp palletten in toerlijst voor huidig transport</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Set ^SD("D","ULTOERSEL","F",8)= "1`63`Pallet E/W`H`1`75`$P(Pallet,"";"")_""/""_$P(Pallet,"";"",2)`C`L`5``:DH```PALLET"
+]]></Implementation>
+</Method>
+
+<Method name="Revert">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Set ^SD("D","ULTOERSEL","F",8)="1`63`Pallet   E`H`1`75`$P(Pallet,"";"")`C`L`5``:DH```PALLET"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>