Index: APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml
===================================================================
diff -u
--- APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(revision 0)
+++ APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(revision 36121)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.AankoopControle.BLUM.impl.ToeleveringInfoVerzamelaar">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ToeleveringAPI">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductAPI:DOM.PM.ProductAPI,ToeleveringAPI:DOM.AKP.ToeleveringAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..ToeleveringAPI = $$$Inject(ToeleveringAPI,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
+	set ..ProductAPI = $$$Inject(ProductAPI,##class(DOM.DomeinContext).Instance().GeefProductAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZetVHProduktInfo">
+<FormalSpec>CSBSO41:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041,ToeleveringNr:%String,ToeleveringLijnNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringNr)	
+	#dim ToeleveringLijnID As %Integer = ToeleveringLijnNr * 100
+	#dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)	
+	set CSBSO41.ProductNrCustomer = ToeleveringLijn.GeefProductID()
+	#dim Product as DOM.PM.Product = ..ProductAPI.GeefProduct(CSBSO41.ProductNrCustomer)	
+	;Theoretischge prijs. prijs uit COA bericht?
+	set CSBSO41.Value = CSBSO41.QuantityInvoiced * Product.GeefBrutoAankoopPrijs() / $Select(Product.GeefGrootteOrdeAankoop()="M":1000,Product.GeefGrootteOrdeAankoop()="H":100,1:1 )
+	
+	Do ##class(Tools.Wlip).%New(207).String("Aantal " _ ToeleveringLijn.GeefAantal())	
+	Do ##class(Tools.Wlip).%New(207).String("BrutoPrijs " _ Product.GeefBrutoAankoopPrijs())
+	Do ##class(Tools.Wlip).%New(207).String("GrootteOrde " _ Product.GeefGrootteOrdeAankoop())
+	Do ##class(Tools.Wlip).%New(207).String("Waarde " _ CSBSO41.Value)
+]]></Implementation>
+</Method>
+
+<Method name="GeefStukPrijs">
+<FormalSpec>ToeleveringNr:%String,ToeleveringLijnNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	/*
+	;zoek ^KTO3(Toelnr,toellnr) 3e piece geeft toelunrwaarmee in KTO gezocht kan worden
+	#dim tlulnr as %String = ""
+	set tlulnr = $Piece($Order(^KTO3(ToeleveringNr,ToeleveringLijnNr)),"\",3)
+	quit $Piece(^KTO(5005,ToeleveringNr,tlulnr),"\",2)
+	*/
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringNr)	
+	#dim ToeleveringLijnID As %Integer = ToeleveringLijnNr * 100
+	#dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)	
+	;quit ToeleveringLijn.GeefEenheidsPrijs()  ToeleveringLijn.GeefAantal()
+	quit ToeleveringLijn.GeefProductID()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml
===================================================================
diff -u -r36092 -r36121
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 36092)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 36121)
@@ -3,6 +3,23 @@
 <Class name="APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="ToeleveringInfoVerzamelaar">
+<Type>APPS.AKP.AankoopControle.BLUM.impl.ToeleveringInfoVerzamelaar</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ToeleveringInfoVerzamelaar:APPS.AKP.AankoopControle.BLUM.impl.ToeleveringInfoVerzamelaar</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ToeleveringInfoVerzamelaar = $$$Inject(ToeleveringInfoVerzamelaar, ##class(APPS.AKP.AankoopControle.BLUM.impl.ToeleveringInfoVerzamelaar).%New())	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Converteer">
 <FormalSpec>DELVRY03:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</FormalSpec>
 <ReturnType>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO</ReturnType>
@@ -122,19 +139,18 @@
 				set CSBSO41.OrderLineCustomer = E1EDL44.VBELN _ "." _ E1EDL44.POSNR
 				set CSBSO41.IdentNr = E1EDL44.KDMAT
 				set CSBSO41.Weigth = 0
-				;TODO set CSBSO41.ProductNrCustomer = 
-				; zoek ^KTO3(Toelnr,toellnr) 3e piece geeft toelunrwaarmee in KTO gezochtkan worden
-				;Do ##class(Tools.Wlip).%New(207).				
-				
 				set CSBSO41.CustomsClassification = "830242"
 				set CSBSO41.UnitOfMeasure = "ST"
 				set CSBSO41.CountryOfOrigin = "AT"
-				
 				do CSBSO31.CSBSO41Array.SetAt(CSBSO41, 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 
 			;TODO set CSBSO31.CSBSO41Array.GetAt(arraysleutel).Value = CSBSO31.CSBSO41Array.GetAt(arraysleutel).QuantityInvoiced * price
+
+			do ..ToeleveringInfoVerzamelaar.ZetVHProduktInfo(CSBSO41,E1EDL44.VBELN, E1EDL44.POSNR)
+				Do ##class(Tools.Wlip).%New(207).String("Value " _ CSBSO41.Value)
+
 			Do ##class(Tools.Wlip).%New(207).String( "sleutel "_ arraysleutel)
 			Do ##class(Tools.Wlip).%New(207).String(CSBSO31.CSBSO41Array.GetAt(arraysleutel).ToString())
 						
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml
===================================================================
diff -u -r36092 -r36121
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 36092)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 36121)
@@ -38,7 +38,7 @@
 	do $$$AssertEquals(CSBSO41.IdentNr,"04381234")
 	do $$$AssertEquals(CSBSO41.QuantityShipped,"1000")
 	do $$$AssertEquals(CSBSO41.QuantityInvoiced,"1000")
-	;TODO do $$$AssertEquals(CSBSO41.ProductNrCustomer,"")
+	do $$$AssertEquals(CSBSO41.ProductNrCustomer,"1070692")
 	do $$$AssertEquals(CSBSO41.CSBSO44List.GetAt(1).NumberOfParcels1,"00001")
 	do $$$AssertEquals(CSBSO41.CSBSO44List.GetAt(1).PiecesPerParcels1,"0001000")
 ]]></Implementation>