Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml
===================================================================
diff -u -r37273 -r37598
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 37273)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 37598)
@@ -112,14 +112,14 @@
 
 	#Dim E1EDL37Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(DELVRY03.IDOC.E1EDL20.GetAt(1).E1EDL37)
 	#Dim E1EDL37 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL37
-	While E1EDL37Iterator.HasNext(){
+	While E1EDL37Iterator.HasNext(){ ;loop over palletten
 		set E1EDL37 = E1EDL37Iterator.Next()
 		#Dim E1EDL44Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL37.E1EDL44)
 		#Dim E1EDL44 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL44
-		While E1EDL44Iterator.HasNext(){
+		While E1EDL44Iterator.HasNext(){ // producten per pallet
 			set E1EDL44 = E1EDL44Iterator.Next()
 			#Dim arraysleutel as %String = E1EDL44.KDMAT _ E1EDL44.VBELN _ E1EDL44.POSNR
-			if 'CSBSO31.CSBSO41Array.IsDefined(arraysleutel){
+			if $$$Not(CSBSO31.CSBSO41Array.IsDefined(arraysleutel)) {
 				#Dim CSBSO41 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041 = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041).%New()
 				set CSBSO41.ABNr = ..GeefABNr(E1EDL44)
 				set CSBSO41.ABLijnNr = ..GeefABLnNr(E1EDL44)
@@ -132,7 +132,10 @@
 				set CSBSO41.UnitOfMeasure = "ST"
 				set CSBSO41.CountryOfOrigin = "AT"
 				do CSBSO31.CSBSO41Array.SetAt(CSBSO41, arraysleutel)
+			} else {
+				set CSBSO41 = CSBSO31.CSBSO41Array.GetAt(arraysleutel)
 			}
+			
 			set CSBSO31.CSBSO41Array.GetAt(arraysleutel).QuantityInvoiced = + CSBSO31.CSBSO41Array.GetAt(arraysleutel).QuantityInvoiced + E1EDL44.VEMNG
 			set CSBSO31.CSBSO41Array.GetAt(arraysleutel).QuantityShipped = CSBSO31.CSBSO41Array.GetAt(arraysleutel).QuantityInvoiced 			
 			do ..ToeleveringInfoVerzamelaar.ZetVHProduktInfo(CSBSO31,CSBSO41,E1EDL44.VBELN, E1EDL44.POSNR)