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())