Index: APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/GenericCSBSOVO.cls.xml
===================================================================
diff -u
--- APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/GenericCSBSOVO.cls.xml	(revision 0)
+++ APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/GenericCSBSOVO.cls.xml	(revision 36086)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.GenericCSBSOVO">
+<Super>%RegisteredObject</Super>
+
+<Method name="FormateerVeld">
+<FormalSpec>Veld:%String,Lengte:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim result As %String = $Extract(Veld,1,Lengte)
+	Quit ##class(TECH.StringUtils).AddTrailingSpace(result,Lengte)
+]]></Implementation>
+</Method>
+
+<Method name="FormateerNumeriekVeld">
+<FormalSpec>Veld:%String,Lengte:%Integer,Decimals:%Integer=0</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim result As %String =  $Extract( $Fnumber( Veld,"",Decimals),1,Lengte) 
+	Quit ##class(TECH.StringUtils).AddLeadingChar(result,"0",Lengte)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS044.cls.xml
===================================================================
diff -u -r35998 -r36086
--- APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS044.cls.xml	(.../CSBS044.cls.xml)	(revision 35998)
+++ APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS044.cls.xml	(.../CSBS044.cls.xml)	(revision 36086)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS044">
-<Super>%RegisteredObject</Super>
+<Super>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.GenericCSBSOVO</Super>
 
 <Property name="SpecialMarking1">
 <Type>%String</Type>
@@ -63,39 +63,43 @@
 <Type>%String</Type>
 </Property>
 
+<Method name="%OnNew">
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	#dim index as %Integer = 0
+	for index=1:1:5{
+		set $Property(%this ,"NumberOfParcels" _ index) = "0"
+		set $Property(%this ,"PiecesPerParcels"_ index) = "0"
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim result As %String = """44"
 	Set result = result _ ..FormateerVeld(..SpecialMarking1, 12)
-	Set result = result _ ..FormateerVeld(..NumberOfParcels1, 5)
-	Set result = result _ ..FormateerVeld(..PiecesPerParcels1, 7)
+	Set result = result _ ..FormateerNumeriekVeld(..NumberOfParcels1, 5)
+	Set result = result _ ..FormateerNumeriekVeld(..PiecesPerParcels1, 7)
 	Set result = result _ ..FormateerVeld(..SpecialMarking2, 12)
-	Set result = result _ ..FormateerVeld(..NumberOfParcels2, 5)
-	Set result = result _ ..FormateerVeld(..PiecesPerParcels2, 7)
+	Set result = result _ ..FormateerNumeriekVeld(..NumberOfParcels2, 5)
+	Set result = result _ ..FormateerNumeriekVeld(..PiecesPerParcels2, 7)
 	Set result = result _ ..FormateerVeld(..SpecialMarking3, 12)
-	Set result = result _ ..FormateerVeld(..NumberOfParcels3, 5)
-	Set result = result _ ..FormateerVeld(..PiecesPerParcels3, 7)
+	Set result = result _ ..FormateerNumeriekVeld(..NumberOfParcels3, 5)
+	Set result = result _ ..FormateerNumeriekVeld(..PiecesPerParcels3, 7)
 	Set result = result _ ..FormateerVeld(..SpecialMarking4, 12)
-	Set result = result _ ..FormateerVeld(..NumberOfParcels4, 5)
-	Set result = result _ ..FormateerVeld(..PiecesPerParcels4, 7)
+	Set result = result _ ..FormateerNumeriekVeld(..NumberOfParcels4, 5)
+	Set result = result _ ..FormateerNumeriekVeld(..PiecesPerParcels4, 7)
 	Set result = result _ ..FormateerVeld(..SpecialMarking5, 12)
-	Set result = result _ ..FormateerVeld(..NumberOfParcels5, 5)
-	Set result = result _ ..FormateerVeld(..PiecesPerParcels5, 7)
+	Set result = result _ ..FormateerNumeriekVeld(..NumberOfParcels5, 5)
+	Set result = result _ ..FormateerNumeriekVeld(..PiecesPerParcels5, 7)
 	Set result = result _ ..FormateerVeld("""",1)
 	Quit result
 ]]></Implementation>
 </Method>
-
-<Method name="FormateerVeld">
-<FormalSpec>Veld:%String,Lengte:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim result As %String = $Extract(Veld,1,Lengte)
-	Quit ##class(TECH.StringUtils).AddTrailingSpace(result,Lengte)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS031.cls.xml
===================================================================
diff -u -r36084 -r36086
--- APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS031.cls.xml	(.../CSBS031.cls.xml)	(revision 36084)
+++ APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS031.cls.xml	(.../CSBS031.cls.xml)	(revision 36086)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031">
-<Super>%RegisteredObject</Super>
+<Super>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.GenericCSBSOVO</Super>
 
 <Property name="InvoiceNr">
 <Type>%String</Type>
@@ -53,24 +53,14 @@
 	Set result = result _ ..FormateerVeld(..InvoiceDate, 6)
 	Set result = result _ ..FormateerVeld(..ValutaDate, 6)
 	Set result = result _ ..FormateerVeld(..Currency, 3)
-	Set result = result _ ..FormateerVeld(..NetValue, 12)
+	Set result = result _ ..FormateerNumeriekVeld(..NetValue, 12,2)
 	Set result = result _ ..FormateerVeld(..Tax, 1)
 	Set result = result _ ..FormateerVeld(..DeliveryCustomerNr, 15)
 	Set result = result _ ..FormateerVeld(..InvoicingCustomerNr, 6)
 	Set result = result _ ..FormateerVeld("""",1)
 	Quit result
 ]]></Implementation>
 </Method>
-
-<Method name="FormateerVeld">
-<FormalSpec>Veld:%String,Lengte:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim result As %String = $Extract(Veld,1,Lengte)
-	Quit ##class(TECH.StringUtils).AddTrailingSpace(result,Lengte)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS011.cls.xml
===================================================================
diff -u -r35998 -r36086
--- APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS011.cls.xml	(.../CSBS011.cls.xml)	(revision 35998)
+++ APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS011.cls.xml	(.../CSBS011.cls.xml)	(revision 36086)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS011">
-<Super>%RegisteredObject</Super>
+<Super>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.GenericCSBSOVO</Super>
 
 <Property name="ShipmentID">
 <Type>%String</Type>
@@ -41,16 +41,6 @@
 	Quit result
 ]]></Implementation>
 </Method>
-
-<Method name="FormateerVeld">
-<FormalSpec>Veld:%String,Lengte:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim result As %String = $Extract(Veld,1,Lengte)
-	Quit ##class(TECH.StringUtils).AddTrailingSpace(result,Lengte)
-]]></Implementation>
-</Method>
 </Class>
 
 
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>
Index: APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS021.cls.xml
===================================================================
diff -u -r35998 -r36086
--- APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS021.cls.xml	(.../CSBS021.cls.xml)	(revision 35998)
+++ APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS021.cls.xml	(.../CSBS021.cls.xml)	(revision 36086)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS021">
-<Super>%RegisteredObject</Super>
+<Super>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.GenericCSBSOVO</Super>
 
 <Property name="ShipmentID">
 <Type>%String</Type>
@@ -83,29 +83,19 @@
 	Set result = result _ ..FormateerVeld(..Colli3, 1)
 	Set result = result _ ..FormateerVeld(..Colli4, 1)
 	Set result = result _ ..FormateerVeld(..Colli5, 1)
-	Set result = result _ ..FormateerVeld(..NrOfColli1, 5)
-	Set result = result _ ..FormateerVeld(..NrOfColli2, 5)
-	Set result = result _ ..FormateerVeld(..NrOfColli3, 5)
-	Set result = result _ ..FormateerVeld(..NrOfColli4, 5)
-	Set result = result _ ..FormateerVeld(..NrOfColli5, 5)
-	Set result = result _ ..FormateerVeld(..GrosWeight, 8)
-	Set result = result _ ..FormateerVeld(..NetWeight, 8)
-	Set result = result _ ..FormateerVeld(..CollectionFee, 10)
+	Set result = result _ ..FormateerNumeriekVeld(..NrOfColli1, 5)
+	Set result = result _ ..FormateerNumeriekVeld(..NrOfColli2, 5)
+	Set result = result _ ..FormateerNumeriekVeld(..NrOfColli3, 5)
+	Set result = result _ ..FormateerNumeriekVeld(..NrOfColli4, 5)
+	Set result = result _ ..FormateerNumeriekVeld(..NrOfColli5, 5)
+	Set result = result _ ..FormateerNumeriekVeld(..GrosWeight, 8,2)
+	Set result = result _ ..FormateerNumeriekVeld(..NetWeight, 8,2)
+	Set result = result _ ..FormateerNumeriekVeld(..CollectionFee, 10,2)
 	Set result = result _ ..FormateerVeld(..ShiptoCustomerNr, 6)
 	Set result = result _ ..FormateerVeld("""",1)
 	Quit result
 ]]></Implementation>
 </Method>
-
-<Method name="FormateerVeld">
-<FormalSpec>Veld:%String,Lengte:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim result As %String = $Extract(Veld,1,Lengte)
-	Quit ##class(TECH.StringUtils).AddTrailingSpace(result,Lengte)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS041.cls.xml
===================================================================
diff -u -r35998 -r36086
--- APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS041.cls.xml	(.../CSBS041.cls.xml)	(revision 35998)
+++ APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS041.cls.xml	(.../CSBS041.cls.xml)	(revision 36086)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041">
-<Super>%RegisteredObject</Super>
+<Super>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.GenericCSBSOVO</Super>
 
 <Property name="ABNr">
 <Type>%String</Type>
@@ -74,10 +74,10 @@
 	Set result = result _ ..FormateerVeld(..SetCode, 1)
 	Set result = result _ ..FormateerVeld(..OrderLineCustomer, 11)
 	Set result = result _ ..FormateerVeld(..IdentNr, 8)
-	Set result = result _ ..FormateerVeld(..QuantityShipped, 7)
-	Set result = result _ ..FormateerVeld(..QuantityInvoiced, 7)
-	Set result = result _ ..FormateerVeld(..Value, 12)
-	Set result = result _ ..FormateerVeld(..Weigth, 8)
+	Set result = result _ ..FormateerNumeriekVeld(..QuantityShipped, 7)
+	Set result = result _ ..FormateerNumeriekVeld(..QuantityInvoiced, 7)
+	Set result = result _ ..FormateerNumeriekVeld(..Value, 12,2)
+	Set result = result _ ..FormateerNumeriekVeld(..Weigth, 8,2)
 	Set result = result _ ..FormateerVeld(..ProductNrCustomer, 19)
 	Set result = result _ ..FormateerVeld(..CustomsClassification,6 )
 	Set result = result _ ..FormateerVeld(..UnitOfMeasure, 2)
@@ -87,16 +87,6 @@
 	Quit result
 ]]></Implementation>
 </Method>
-
-<Method name="FormateerVeld">
-<FormalSpec>Veld:%String,Lengte:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim result As %String = $Extract(Veld,1,Lengte)
-	Quit ##class(TECH.StringUtils).AddTrailingSpace(result,Lengte)
-]]></Implementation>
-</Method>
 </Class>