Index: APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/E1EDL46.cls.xml
===================================================================
diff -u -r36352 -r37550
--- APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/E1EDL46.cls.xml	(.../E1EDL46.cls.xml)	(revision 36352)
+++ APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/E1EDL46.cls.xml	(.../E1EDL46.cls.xml)	(revision 37550)
@@ -25,6 +25,7 @@
 Serial Number</Description>
 <Type>%String</Type>
 <Parameter name="MAXLEN" value="18"/>
+<Parameter name="TRUNCATE" value="1"/>
 <Parameter name="XMLNAME" value="SERNR"/>
 </Property>
 
@@ -50,8 +51,6 @@
 <State>E1EDL46State</State>
 <StreamLocation>^APPS.AKP.AankoopCoE7E8.E1EDL46S</StreamLocation>
 <Data name="E1EDL46State">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>SERNR</Value>
 </Value>
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringHeader.cls.xml
===================================================================
diff -u -r35407 -r37550
--- APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringHeader.cls.xml	(.../ToeleveringHeader.cls.xml)	(revision 35407)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringHeader.cls.xml	(.../ToeleveringHeader.cls.xml)	(revision 37550)
@@ -80,7 +80,7 @@
 	Set result = result _ ..FormateerVeld(..DeliveryAddressID,2)
 	Set result = result _ ..FormateerVeld(..CustomerNumberForInvoice,6)
 	Set result = result _ ..FormateerVeld(..InvoiceAddressID,2)
-	Set result = result _ ..FormateerVeld(..CustomerOrderReference,12)
+	Set result = result _ ..FormateerVeld($Extract(..CustomerOrderReference,1,11),12)
 	Set result = result _ ..FormateerVeld(..AverageTransportTime,3)
 	Set result = result _ ..FormateerVeld(..InternalOrderNumberBLUM,12)
 	Set result = result _ ..FormateerVeld(..CurrencyInCOScode,3)
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml
===================================================================
diff -u -r37281 -r37550
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 37281)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchNaarCSBSOConverteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 37550)
@@ -39,7 +39,7 @@
 	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).ValutaDate,"160621")
 	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).CSBSO31List.GetAt(1).Currency,"W30")
-	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).CSBSO31List.GetAt(1).NetValue,496.7)
+	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).CSBSO31List.GetAt(1).NetValue,993.4)
 	do $$$AssertEquals(CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).CSBSO31List.GetAt(1).Tax,0)
 	
 	#dim CSBSO41 as  APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041 = CSBSO.CSBSO11List.GetAt(1).CSBSO21List.GetAt(1).CSBSO31List.GetAt(1).CSBSO41Array.GetAt("0438123420583401")	
Index: APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/E1EDL44.cls.xml
===================================================================
diff -u -r37239 -r37550
--- APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/E1EDL44.cls.xml	(.../E1EDL44.cls.xml)	(revision 37239)
+++ APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/E1EDL44.cls.xml	(.../E1EDL44.cls.xml)	(revision 37550)
@@ -33,6 +33,7 @@
 Sales and Distribution Document Number</Description>
 <Type>%String</Type>
 <Parameter name="MAXLEN" value="11"/>
+<Parameter name="TRUNCATE" value="1"/>
 <Parameter name="XMLNAME" value="VBELN"/>
 </Property>
 
Index: vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/DELVRY03.cls.xml
===================================================================
diff -u -r36366 -r37550
--- vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/DELVRY03.cls.xml	(.../DELVRY03.cls.xml)	(revision 36366)
+++ vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Transport/Despatch/DELVRY03.cls.xml	(.../DELVRY03.cls.xml)	(revision 37550)
@@ -4,6 +4,11 @@
 <ClassType>serial</ClassType>
 <Super>%SerialObject,%XML.Adaptor</Super>
 
+<Parameter name="XMLIGNORENULL">
+<Type>%String</Type>
+<Default>1</Default>
+</Parameter>
+
 <Method name="GeefDELVRY03">
 <ReturnType>APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</ReturnType>
 <Implementation><![CDATA[
@@ -85,18 +90,48 @@
  	Set xmlstring = xmlstring _ "                    </E1EDL46>"
  	Set xmlstring = xmlstring _ "                </E1EDL44>"
  	Set xmlstring = xmlstring _ "            </E1EDL37>"
+ 	Set xmlstring = xmlstring _ "	         <E1EDL37 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "               <EXIDV>00390026170034483022</EXIDV>"
+	Set xmlstring = xmlstring _ "               <BRGEW>2.08</BRGEW>"
+	Set xmlstring = xmlstring _ "               <GWEIM>KGM</GWEIM>"
+	Set xmlstring = xmlstring _ "               <EXIDV2>0.48.302</EXIDV2>"
+	Set xmlstring = xmlstring _ "               <VHILM_KU>P</VHILM_KU>"
+	Set xmlstring = xmlstring _ "               <E1EDL44 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                   <VBELN>DE WERKKAMER test met te veel letters</VBELN>"
+	Set xmlstring = xmlstring _ "                   <POSNR/>"
+	Set xmlstring = xmlstring _ "                   <VEMNG>1</VEMNG>"
+	Set xmlstring = xmlstring _ "                   <VEMEH>PCE</VEMEH>"
+	Set xmlstring = xmlstring _ "                   <KDMAT>06305362</KDMAT>"
+	Set xmlstring = xmlstring _ "                   <MATNR_EXTERNAL>9002617606393</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>0000001</SERNR>"
+	Set xmlstring = xmlstring _ "                       <UII>ZQP</UII>"
+	Set xmlstring = xmlstring _ "                   </E1EDL46>"
+	Set xmlstring = xmlstring _ "                   <E1EDL46 SEGMENT=""1"">"
+	Set xmlstring = xmlstring _ "                       <SERNR>122970</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>DE WERKKAMER test met te veel letters</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>
 
-<Parameter name="XMLIGNORENULL">
-<Type>%String</Type>
-<Default>1</Default>
-</Parameter>
-
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <StreamLocation>^vhTest.Utils.APPS69CB.DELVRY03S</StreamLocation>