Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml
===================================================================
diff -u -r36084 -r36086
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 36084)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 36086)
@@ -65,6 +65,7 @@
 	set CSBSO21.ShipmentID = DELVRY03.IDOC.E1EDL20.GetAt(1).VBELN
 	set CSBSO21.ShipmentDate = ..GeefShipmentDateYYMMDD(DELVRY03)
 	set CSBSO21.GrosWeight = DELVRY03.IDOC.E1EDL20.GetAt(1).BTGEW
+	set CSBSO21.NetWeight = 0
 	set CSBSO21.ShiptoCustomerNr = ..GeefShipToCustomerNr(DELVRY03)
 
 	#dim E1EDL20 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL20 = DELVRY03.IDOC.E1EDL20.GetAt(1)
@@ -75,7 +76,7 @@
 	While E1EDL24Iterator.HasNext(){
 		set E1EDL24 = E1EDL24Iterator.Next()
 		Set $Property(CSBSO21,"Colli"_ counter) = E1EDL24.MATKL
-		Set $Property(CSBSO21,"NrOfColli"_ counter) = E1EDL24.LGMNG
+		Set $Property(CSBSO21,"NrOfColli"_ counter) = +E1EDL24.LGMNG
 		set counter = counter + 1
 	}
 	
@@ -116,8 +117,9 @@
 				#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)
-				set CSBSO41.SetCode = "E"
 				set CSBSO41.OrderLineCompletion = "C"
+				set CSBSO41.SetCode = "E"
+				set CSBSO41.OrderLineCustomer = E1EDL44.VBELN _ "." _ E1EDL44.POSNR
 				set CSBSO41.IdentNr = E1EDL44.KDMAT
 				set CSBSO41.Weigth = 0
 				;TODO set CSBSO41.ProductNrCustomer = 
@@ -136,7 +138,7 @@
 			; dan de pallet info toevoegen: tot 5 palletten op 1 record, dan volgend aanmaken etc.
 			#dim CSBSO44 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS044
 			if 'CSBSO41.CSBSO44List.IsDefined(1) {
-				set CSBSO44 = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS044).%New()				
+				set CSBSO44 = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS044).%New()
 				do CSBSO41.CSBSO44List.InsertAt(CSBSO44,CSBSO41.CSBSO44List.Count()+1)
 			} else {
 				set CSBSO44 = CSBSO41.CSBSO44List.GetAt(CSBSO41.CSBSO44List.Count())			
@@ -150,7 +152,7 @@
 				if $Property(CSBSO41.CSBSO44List.GetAt(CSBSO41.CSBSO44List.Count()),"SpecialMarking"_ index) = ""{
 					set $Property(CSBSO41.CSBSO44List.GetAt(CSBSO41.CSBSO44List.Count()),"SpecialMarking"_ index) = E1EDL37.EXIDV2
 					set $Property(CSBSO41.CSBSO44List.GetAt(CSBSO41.CSBSO44List.Count()),"NumberOfParcels"_ index) = ..GeefNrOfPackages(E1EDL44)
-					set $Property(CSBSO41.CSBSO44List.GetAt(CSBSO41.CSBSO44List.Count()),"PiecesPerParcels"_ index) = ..GeefPiecesPerPackage(E1EDL44)
+					set $Property(CSBSO41.CSBSO44List.GetAt(CSBSO41.CSBSO44List.Count()),"PiecesPerParcels"_ index) = ..GeefPiecesPerPackage(E1EDL44)					
 					quit
 				}
 			}
@@ -161,6 +163,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOrderlineCustomer">
+<FormalSpec>E1EDL44:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL44</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim E1EDL46Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL44.E1EDL46)
+	#dim E1EDL46 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL46
+	#dim orderlinecustomer as %String = ""
+	While (E1EDL46Iterator.HasNext()) && (orderlinecustomer =""){ 
+		set E1EDL46 = E1EDL46Iterator.Next()		
+		set:(E1EDL46.UII = "ZON" ) orderlinecustomer = E1EDL46.SERNR
+	}
+	quit orderlinecustomer
+]]></Implementation>
+</Method>
+
 <Method name="GeefNrOfPackages">
 <FormalSpec>E1EDL44:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL44</FormalSpec>
 <Private>1</Private>
@@ -171,7 +189,7 @@
 	#dim nrofpackages as %Integer = 0
 	While (E1EDL46Iterator.HasNext()) && (nrofpackages = 0){ 
 		set E1EDL46 = E1EDL46Iterator.Next()		
-		set:(E1EDL46.UII = "ZNP" ) abnr = E1EDL46.SERNR
+		set:(E1EDL46.UII = "ZNP" ) nrofpackages = E1EDL46.SERNR
 	}
 	quit nrofpackages
 ]]></Implementation>
@@ -187,7 +205,7 @@
 	#dim pieces as %Integer = 0
 	While (E1EDL46Iterator.HasNext()) && (pieces = 0){ 
 		set E1EDL46 = E1EDL46Iterator.Next()		
-		set:(E1EDL46.UII = "ZQP" ) abnr = E1EDL46.SERNR
+		set:(E1EDL46.UII = "ZQP" ) pieces = E1EDL46.SERNR
 	}
 	quit pieces
 ]]></Implementation>