Index: APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS031.cls.xml
===================================================================
diff -u -r35998 -r36084
--- APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS031.cls.xml	(.../CSBS031.cls.xml)	(revision 35998)
+++ APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS031.cls.xml	(.../CSBS031.cls.xml)	(revision 36084)
@@ -39,9 +39,9 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="CSBSO41List">
+<Property name="CSBSO41Array">
 <Type>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041</Type>
-<Collection>list</Collection>
+<Collection>array</Collection>
 </Property>
 
 <Method name="ToString">
Index: APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBSO.cls.xml
===================================================================
diff -u -r35998 -r36084
--- APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBSO.cls.xml	(.../CSBSO.cls.xml)	(revision 35998)
+++ APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBSO.cls.xml	(.../CSBSO.cls.xml)	(revision 36084)
@@ -12,12 +12,27 @@
 <Type>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSOHeader</Type>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-/// Property ToeleveringList As list Of APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering;
+<Property name="CSBSO11List">
+<Type>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS011</Type>
+<Collection>list</Collection>
+</Property>
 
-]]></Content>
-</UDLText>
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>CSBSOState</State>
+<StreamLocation>^APPS.AKP.AankoopCont2CB6.CSBSOS</StreamLocation>
+<Data name="CSBSOState">
+<Value name="1">
+<Value>TransmissieNummer</Value>
+</Value>
+<Value name="2">
+<Value>CSBSOHeader</Value>
+</Value>
+<Value name="3">
+<Value>CSBSO11List</Value>
+</Value>
+</Data>
+</Storage>
 </Class>
 
 
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml	(revision 36084)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder.Converteer.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : Converteer BLUM DESPATCH DELVRY03 bericht naar CSBSO metbehulp van dummyfactuurdata">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder).%New()
+
+	#dim DELVRY03Double As APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%New().GeefDELVRY03()
+	
+	#dim CSBSO As APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = Converteerder.Converteer(DELVRY03Double)
+	
+	Do $$$AssertIsObject(CSBSO)
+	
+	do $$$AssertEquals(DELVRY03Double.IDOC.EDIDC40.SNDLAD,"9002617000009")
+
+	//Do $$$AssertEquals(COASO.COASOHeader.MIIDEF, "BAU745532")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml
===================================================================
diff -u
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(revision 0)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder.cls.xml	(revision 36084)
@@ -0,0 +1,300 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Converteer">
+<FormalSpec>DELVRY03:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</FormalSpec>
+<ReturnType>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO</ReturnType>
+<Implementation><![CDATA[
+	#dim CSBSO as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO).%New()
+	#dim CSBSO11 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS011 = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS011).%New()
+
+	do ..VoegToeCSBSOHeader(CSBSO,DELVRY03)
+	do ..VoegToeCSBSO11(CSBSO11,DELVRY03)
+	
+	do CSBSO.CSBSO11List.Insert(CSBSO11)
+	
+	quit CSBSO
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeCSBSOHeader">
+<FormalSpec>CSBSO:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO,DELVRY03:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</FormalSpec>
+<Implementation><![CDATA[
+	set CSBSO.CSBSOHeader.MIIDEF = "BAU" _ DELVRY03.IDOC.E1EDL20.GetAt(1).VBELN ; eigenlijk transportnr, en niet berichtnummer, maar beter is er niet voor handen.
+	Set CSBSO.CSBSOHeader.LEVNUR = "5005"
+	Set CSBSO.CSBSOHeader.MIINTY = "CSB"
+	Set CSBSO.CSBSOHeader.MIINTS = "SO"
+	Set CSBSO.CSBSOHeader.MINETC = "C"
+	Do ..VoegToeMIOTCR(CSBSO, DELVRY03)
+	Set CSBSO.CSBSOHeader.MITICR = "1200"
+	Set CSBSO.CSBSOHeader.MICOUN = "0"
+	Set CSBSO.CSBSOHeader.MINNCR = ""
+	Set CSBSO.CSBSOHeader.MINNRE = ""
+	Set CSBSO.CSBSOHeader.MIACRQ = "1"
+	Set CSBSO.CSBSOHeader.MESPRO = ""
+	
+	Do ##class(Tools.Wlip).%New(207).String(CSBSO.CSBSOHeader.ToString())
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeCSBSO11">
+<FormalSpec>CSBSO11:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS011,DELVRY03:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</FormalSpec>
+<Implementation><![CDATA[
+	
+	set CSBSO11.ShipmentID = DELVRY03.IDOC.E1EDL20.GetAt(1).VBELN
+	set CSBSO11.DeliveryAddress = "Van Hoecke -XL"
+	set CSBSO11.TransportationMode = "L"	
+	
+	Do ##class(Tools.Wlip).%New(207).String(CSBSO11.ToString())
+		
+	#dim CSBSO21 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS021 = ##Class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS021).%New()
+	
+	do ..VoegToeCSBSO21(CSBSO21,DELVRY03)
+	
+	do CSBSO11.CSBSO21List.Insert(CSBSO21)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeCSBSO21">
+<FormalSpec>CSBSO21:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS021,DELVRY03:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</FormalSpec>
+<Implementation><![CDATA[
+	#dim counter as %Integer = 1
+	#dim varnaam as %String
+	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.ShiptoCustomerNr = ..GeefShipToCustomerNr(DELVRY03)
+
+	#dim E1EDL20 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL20 = DELVRY03.IDOC.E1EDL20.GetAt(1)
+	
+	#dim E1EDL24Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL20.E1EDL24)
+	#dim E1EDL24 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL24
+	
+	While E1EDL24Iterator.HasNext(){
+		set E1EDL24 = E1EDL24Iterator.Next()
+		Set $Property(CSBSO21,"Colli"_ counter) = E1EDL24.MATKL
+		Set $Property(CSBSO21,"NrOfColli"_ counter) = E1EDL24.LGMNG
+		set counter = counter + 1
+	}
+	
+	Do ##class(Tools.Wlip).%New(207).String(CSBSO21.ToString())
+	
+	#dim CSBSO31 as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031 = ##Class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031).%New()	
+	do ..VoegToeCSBSO31(CSBSO31,DELVRY03)	
+	do CSBSO21.CSBSO31List.Insert(CSBSO31)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeCSBSO31">
+<FormalSpec>CSBSO31:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031,DELVRY03:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</FormalSpec>
+<Implementation><![CDATA[
+	set CSBSO31.InvoiceNr = "999999"
+	set CSBSO31.InvoiceType = "99"
+	set CSBSO31.InvoiceDate = ..GeefShipmentDateYYMMDD(DELVRY03)
+	set CSBSO31.ValutaDate = CSBSO31.InvoiceDate
+	set CSBSO31.Currency = "W30"
+	Set CSBSO31.NetValue = 0
+	set CSBSO31.Tax = 0
+	set CSBSO31.DeliveryCustomerNr = ..GeefShipToCustomerNr(DELVRY03)
+	set CSBSO31.InvoicingCustomerNr = CSBSO31.DeliveryCustomerNr
+
+	Do ##class(Tools.Wlip).%New(207).String(CSBSO31.ToString())
+
+	#dim E1EDL37Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(DELVRY03.IDOC.E1EDL20.GetAt(1).E1EDL37)
+	#dim E1EDL37 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL37
+	
+	While E1EDL37Iterator.HasNext(){
+		set E1EDL37 = E1EDL37Iterator.Next()
+		#dim E1EDL44Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL37.E1EDL44)
+		#dim E1EDL44 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL44
+		While E1EDL44Iterator.HasNext(){
+			set E1EDL44 = E1EDL44Iterator.Next()
+			#dim arraysleutel as %String = E1EDL44.KDMAT _ E1EDL44.VBELN _ E1EDL44.POSNR
+			if 'CSBSO31.CSBSO41Array.IsDefined(arraysleutel){
+				#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.IdentNr = E1EDL44.KDMAT
+				set CSBSO41.Weigth = 0
+				;TODO set CSBSO41.ProductNrCustomer = 
+				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 ##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.
+			#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()				
+				do CSBSO41.CSBSO44List.InsertAt(CSBSO44,CSBSO41.CSBSO44List.Count()+1)
+			} else {
+				set CSBSO44 = CSBSO41.CSBSO44List.GetAt(CSBSO41.CSBSO44List.Count())			
+				;check if this record is 'full' and create new if so
+				if 'CSBSO44.SpecialMarking5=""{
+					set CSBSO44 = ##class(APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS044).%New()				
+					do CSBSO41.CSBSO44List.InsertAt(CSBSO44,CSBSO41.CSBSO44List.Count()+1)
+				}									
+			}			
+			for index=1:1:5{
+				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)
+					quit
+				}
+			}
+			Do ##class(Tools.Wlip).%New(207).String(CSBSO41.CSBSO44List.GetAt(CSBSO41.CSBSO44List.Count()).ToString())
+			
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefNrOfPackages">
+<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 nrofpackages as %Integer = 0
+	While (E1EDL46Iterator.HasNext()) && (nrofpackages = 0){ 
+		set E1EDL46 = E1EDL46Iterator.Next()		
+		set:(E1EDL46.UII = "ZNP" ) abnr = E1EDL46.SERNR
+	}
+	quit nrofpackages
+]]></Implementation>
+</Method>
+
+<Method name="GeefPiecesPerPackage">
+<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 pieces as %Integer = 0
+	While (E1EDL46Iterator.HasNext()) && (pieces = 0){ 
+		set E1EDL46 = E1EDL46Iterator.Next()		
+		set:(E1EDL46.UII = "ZQP" ) abnr = E1EDL46.SERNR
+	}
+	quit pieces
+]]></Implementation>
+</Method>
+
+<Method name="GeefABNr">
+<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 abnr as %String = ""
+	While (E1EDL46Iterator.HasNext()) && (abnr = ""){ 
+		set E1EDL46 = E1EDL46Iterator.Next()		
+		set:(E1EDL46.UII = "ZVN" ) abnr = E1EDL46.SERNR
+	}
+	quit abnr
+]]></Implementation>
+</Method>
+
+<Method name="GeefABLnNr">
+<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 ablnnr as %String = ""
+	While (E1EDL46Iterator.HasNext()) && (ablnnr = ""){ 
+		set E1EDL46 = E1EDL46Iterator.Next()		
+		set:(E1EDL46.UII = "ZVP" ) ablnnr = E1EDL46.SERNR
+	}
+	quit ablnnr
+]]></Implementation>
+</Method>
+
+<Method name="GeefShipToCustomerNr">
+<FormalSpec>DELVRY03:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim E1EDL20 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL20 = DELVRY03.IDOC.E1EDL20.GetAt(1)
+	
+	#dim E1ADRM1Iterator As TECH.ListIterator = ##Class(TECH.ListIterator).%New(E1EDL20.E1ADRM1)
+	#dim E1ADRM1 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1ADRM1
+	
+	#dim CustomerNr as String = ""
+	
+	While E1ADRM1Iterator.HasNext(){
+		set E1ADRM1 = E1ADRM1Iterator.Next()
+		set:( E1ADRM1.PARTNERQ="DP" ) CustomerNr = E1ADRM1.PARTNERID		
+	}
+	Quit CustomerNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefShipmentDateYYMMDD">
+<FormalSpec>DELVRY03:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim E1EDL20Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(DELVRY03.IDOC.E1EDL20)
+	#dim E1EDL20 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL20
+	#dim E1EDT13Iterator As TECH.ListIterator
+	#dim E1EDT13 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDT13
+	#dim Shipmentdate as %String = ""
+	
+	While E1EDL20Iterator.HasNext(){
+		set E1EDL20 = E1EDL20Iterator.Next()
+		set E1EDT13Iterator = ##class(TECH.ListIterator).%New(E1EDL20.E1EDT13)
+		While E1EDT13Iterator.HasNext(){
+			set E1EDT13 = E1EDT13Iterator.Next()
+			Set:(E1EDT13.QUALF ="10") Shipmentdate = $EXTRACT(E1EDT13.ISDD ,3,4) _ $EXTRACT(E1EDT13.ISDD,5,6) _ $EXTRACT(E1EDT13.ISDD,7,8)
+		}
+	}
+	Quit Shipmentdate
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeMIOTCR">
+<FormalSpec>CSBSO:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO,DELVRY03:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</FormalSpec>
+<Implementation><![CDATA[
+	
+	#dim E1EDL20Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(DELVRY03.IDOC.E1EDL20)
+	#dim E1EDL20 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDL20
+	
+	#dim E1EDT13Iterator As TECH.ListIterator
+	#dim E1EDT13 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.E1EDT13
+	
+	While E1EDL20Iterator.HasNext(){
+		set E1EDL20 = E1EDL20Iterator.Next()
+		set E1EDT13Iterator = ##class(TECH.ListIterator).%New(E1EDL20.E1EDT13)
+		While E1EDT13Iterator.HasNext(){
+			set E1EDT13 = E1EDT13Iterator.Next()
+			Set:(E1EDT13.QUALF ="10") CSBSO.CSBSOHeader.MIOTCR = $EXTRACT(E1EDT13.ISDD,7,8) _"-" _$EXTRACT(E1EDT13.ISDD,5,6) _"-" _$EXTRACT(E1EDT13.ISDD,3,4)
+		}
+	}
+	
+	
+	/* ofwel 
+	#dim ISDD as %String = DELVRY03.IDOC.E1EDL20.GetAt(1).E1EDT13.GetAt(1).ISDD
+	set CSBSO.CSBSOHeader.MIOTCR = $EXTRACT(ISDD,7,8) _"-" _$EXTRACT(ISDD,5,6) _"-" _$EXTRACT(ISDD,3,4)
+	wegens maar één occurence of E1EDL20 en E1EDT13 in een bestand.
+	*/
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/DELVRY03.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/DELVRY03.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/DELVRY03.cls.xml	(revision 36084)
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefDELVRY03">
+<ReturnType>APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</ReturnType>
+<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""?>"
+ 	Set xmlstring = xmlstring _ "<DELVRY03>"
+ 	Set xmlstring = xmlstring _ "    <IDOC BEGIN=""1"">"
+ 	Set xmlstring = xmlstring _ "        <EDI_DC40 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "            <TABNAM>EDI_DC40</TABNAM>"
+ 	Set xmlstring = xmlstring _ "            <MANDT>100</MANDT>"
+ 	Set xmlstring = xmlstring _ "            <DIRECT>1</DIRECT>"
+ 	Set xmlstring = xmlstring _ "            <IDOCTYP>DELVRY03</IDOCTYP>"
+ 	Set xmlstring = xmlstring _ "            <MESTYP>DELVRY03</MESTYP>"
+ 	Set xmlstring = xmlstring _ "            <STDMES>DESADV</STDMES>"
+ 	Set xmlstring = xmlstring _ "            <SNDPOR/>"
+ 	Set xmlstring = xmlstring _ "            <SNDPRT/>"
+ 	Set xmlstring = xmlstring _ "            <SNDPRN>BAU</SNDPRN>"
+ 	Set xmlstring = xmlstring _ "            <SNDLAD>9002617000009</SNDLAD>"
+ 	Set xmlstring = xmlstring _ "            <RCVPOR/>"
+ 	Set xmlstring = xmlstring _ "            <RCVPRN>LVS</RCVPRN>"
+ 	Set xmlstring = xmlstring _ "            <RCVLAD>NOT_SET</RCVLAD>"
+ 	Set xmlstring = xmlstring _ "        </EDI_DC40>"
+ 	Set xmlstring = xmlstring _ "        <E1EDL20 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "            <VBELN>300332</VBELN>"
+ 	Set xmlstring = xmlstring _ "            <BTGEW>20758.20</BTGEW>"
+ 	Set xmlstring = xmlstring _ "            <E1ADRM1 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "                <PARTNER_Q>SU</PARTNER_Q>"
+ 	Set xmlstring = xmlstring _ "                <PARTNER_ID>BAU</PARTNER_ID>"
+ 	Set xmlstring = xmlstring _ "            </E1ADRM1>"
+ 	Set xmlstring = xmlstring _ "            <E1ADRM1 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "                <PARTNER_Q>DP</PARTNER_Q>"
+ 	Set xmlstring = xmlstring _ "                <PARTNER_ID>212250</PARTNER_ID>"
+	Set xmlstring = xmlstring _ "            </E1ADRM1>"
+ 	Set xmlstring = xmlstring _ "            <E1EDT13 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "                <QUALF>10</QUALF>"
+ 	Set xmlstring = xmlstring _ "                <ISDD>20160621</ISDD>"
+ 	Set xmlstring = xmlstring _ "            </E1EDT13>"
+ 	Set xmlstring = xmlstring _ "            <E1EDL24 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "                <MATKL>E</MATKL>"
+ 	Set xmlstring = xmlstring _ "                <LGMNG>66.</LGMNG>"
+ 	Set xmlstring = xmlstring _ "            </E1EDL24>"
+ 	Set xmlstring = xmlstring _ "            <E1EDL24 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "                <MATKL>P</MATKL>"
+ 	Set xmlstring = xmlstring _ "                <LGMNG>1.</LGMNG>"
+ 	Set xmlstring = xmlstring _ "            </E1EDL24>"
+ 	Set xmlstring = xmlstring _ "            <E1EDL37 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "                <EXIDV>00390026170034512494</EXIDV>"
+ 	Set xmlstring = xmlstring _ "                <BRGEW>.89</BRGEW>"
+ 	Set xmlstring = xmlstring _ "                <GWEIM>KGM</GWEIM>"
+ 	Set xmlstring = xmlstring _ "                <EXIDV2>0.51.249</EXIDV2>"
+ 	Set xmlstring = xmlstring _ "                <VHILM_KU>P</VHILM_KU>"
+ 	Set xmlstring = xmlstring _ "                <E1EDL44 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "                    <VBELN>205834</VBELN>"
+ 	Set xmlstring = xmlstring _ "                    <POSNR>01</POSNR>"
+ 	Set xmlstring = xmlstring _ "                    <VEMNG>1000</VEMNG>"
+ 	Set xmlstring = xmlstring _ "                    <VEMEH>PCE</VEMEH>"
+ 	Set xmlstring = xmlstring _ "                    <KDMAT>04381234</KDMAT>"
+ 	Set xmlstring = xmlstring _ "                    <MATNR_EXTERNAL>9009494089103</MATNR_EXTERNAL>"
+ 	Set xmlstring = xmlstring _ "                    <E1EDL46 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "                        <SERNR>00001</SERNR>"
+ 	Set xmlstring = xmlstring _ "                        <UII>ZNP</UII>"
+ 	Set xmlstring = xmlstring _ "                    </E1EDL46>"
+ 	Set xmlstring = xmlstring _ "                    <E1EDL46 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "                        <SERNR>0001000</SERNR>"
+ 	Set xmlstring = xmlstring _ "                        <UII>ZQP</UII>"
+ 	Set xmlstring = xmlstring _ "                    </E1EDL46>"
+ 	Set xmlstring = xmlstring _ "                    <E1EDL46 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "                        <SERNR>779465</SERNR>"
+ 	Set xmlstring = xmlstring _ "                        <UII>ZVN</UII>"
+ 	Set xmlstring = xmlstring _ "                    </E1EDL46>"
+ 	Set xmlstring = xmlstring _ "                    <E1EDL46 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "                        <SERNR>01000</SERNR>"
+ 	Set xmlstring = xmlstring _ "                        <UII>ZVP</UII>"
+ 	Set xmlstring = xmlstring _ "                    </E1EDL46>"
+ 	Set xmlstring = xmlstring _ "                    <E1EDL46 SEGMENT=""1"">"
+ 	Set xmlstring = xmlstring _ "                        <SERNR>205834.01</SERNR>"
+ 	Set xmlstring = xmlstring _ "                        <UII>ZON</UII>"
+ 	Set xmlstring = xmlstring _ "                    </E1EDL46>"
+ 	Set xmlstring = xmlstring _ "                </E1EDL44>"
+ 	Set xmlstring = xmlstring _ "            </E1EDL37>"
+ 	Set xmlstring = xmlstring _ "        </E1EDL20>"
+ 	Set xmlstring = xmlstring _ "    </IDOC>"
+ 	Set xmlstring = xmlstring _ "</DELVRY03>"
+	quit xmlcorrelator.FromString(xmlstring, ClassName, "DELVRY03")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>