Index: Default_JoW.prj.xml
===================================================================
diff -u
--- Default_JoW.prj.xml	(revision 0)
+++ Default_JoW.prj.xml	(revision 36092)
@@ -0,0 +1,3 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+</Export>
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.
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml
===================================================================
diff -u -r36084 -r36092
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 36084)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 36092)
@@ -12,10 +12,35 @@
 	#dim CSBSO As APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = Converteerder.Converteer(DELVRY03Double)
 	
 	Do $$$AssertIsObject(CSBSO)
+	Do $$$AssertEquals(CSBSO.CSBSOHeader.MIOTCR,"21-06-16")
 	
-	do $$$AssertEquals(DELVRY03Double.IDOC.EDIDC40.SNDLAD,"9002617000009")
+	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).ShipmentID,"300332")
+	
+	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).Colli1,"E")
+	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).Colli2,"P")
+	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).GrosWeight,"20758.20")
+	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).NrOfColli1,"66")
+	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).NrOfColli2,"1")
+	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).CSBSO31List.GetAt(1).InvoiceNr,"999999")
+	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).CSBSO31List.GetAt(1).InvoiceType,"99")
+	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).CSBSO31List.GetAt(1).InvoiceDate,"160621")
+	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).CSBSO31List.GetAt(1).Currency,"W30")
 
-	//Do $$$AssertEquals(COASO.COASOHeader.MIIDEF, "BAU745532")
+	;TODO do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).CSBSO31List.GetAt(1).NetValue,"")
+	
+	#dim CSBSO41 as  APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041 = CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).CSBSO31List.GetAt(1).CSBSO41Array.GetAt("0438123420583401")	
+	do $$$AssertIsObject(CSBSO41)
+	do $$$AssertEquals(CSBSO41.ABNr,"779465")
+	do $$$AssertEquals(CSBSO41.ABLijnNr,"01000")
+	do $$$AssertEquals(CSBSO41.OrderLineCompletion,"C")
+	do $$$AssertEquals(CSBSO41.SetCode,"E")
+	do $$$AssertEquals(CSBSO41.OrderLineCustomer, "205834.01")
+	do $$$AssertEquals(CSBSO41.IdentNr,"04381234")
+	do $$$AssertEquals(CSBSO41.QuantityShipped,"1000")
+	do $$$AssertEquals(CSBSO41.QuantityInvoiced,"1000")
+	;TODO do $$$AssertEquals(CSBSO41.ProductNrCustomer,"")
+	do $$$AssertEquals(CSBSO41.CSBSO44List.GetAt(1).NumberOfParcels1,"00001")
+	do $$$AssertEquals(CSBSO41.CSBSO44List.GetAt(1).PiecesPerParcels1,"0001000")
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/DELVRY03.cls.xml
===================================================================
diff -u -r36084 -r36092
--- vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/DELVRY03.cls.xml	(.../DELVRY03.cls.xml)	(revision 36084)
+++ vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/DELVRY03.cls.xml	(.../DELVRY03.cls.xml)	(revision 36092)
@@ -8,8 +8,7 @@
 <Implementation><![CDATA[
 	#dim xmlcorrelator as  TECH.XMLCorrelater = ##class(TECH.XMLCorrelater).%New()
 	#dim ClassName As %String = ##class(APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%ClassName(1)
-	#dim xmlstring as %String = ""
- 	Set xmlstring = xmlstring _ "<?xml version=""1.0""?>"
+	#dim xmlstring as %String = "<?xml version=""1.0""?>"
  	Set xmlstring = xmlstring _ "<DELVRY03>"
  	Set xmlstring = xmlstring _ "    <IDOC BEGIN=""1"">"
  	Set xmlstring = xmlstring _ "        <EDI_DC40 SEGMENT=""1"">"