Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml
===================================================================
diff -u -r36086 -r36092
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 36086)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(.../DespatchNaarCSBSOConverteerder.cls.xml)	(revision 36092)
@@ -123,6 +123,9 @@
 				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"
@@ -132,7 +135,7 @@
 			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 ##class(Tools.Wlip).%New(207).String( "sleutel "_ arraysleutel)
 			Do ##class(Tools.Wlip).%New(207).String(CSBSO31.CSBSO41Array.GetAt(arraysleutel).ToString())
 						
 			; dan de pallet info toevoegen: tot 5 palletten op 1 record, dan volgend aanmaken etc.