Index: APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDP05.cls.xml
===================================================================
diff -u -r35221 -r35402
--- APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDP05.cls.xml	(.../E1EDP05.cls.xml)	(revision 35221)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDP05.cls.xml	(.../E1EDP05.cls.xml)	(revision 35402)
@@ -31,7 +31,7 @@
 </Property>
 
 <Property name="PREIS">
-<Type>%xsd.int</Type>
+<Type>%String</Type>
 <Required>1</Required>
 <Parameter name="XMLNAME" value="PREIS"/>
 </Property>
@@ -47,8 +47,6 @@
 <State>E1EDP05State</State>
 <StreamLocation>^APPS.EDIExport.Aan89FD.E1EDP05S</StreamLocation>
 <Data name="E1EDP05State">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>UPRBS</Value>
 </Value>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml
===================================================================
diff -u -r35393 -r35402
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35393)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35402)
@@ -29,7 +29,7 @@
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ReasonCode,"V")
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).PriceDimension,"2")
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).NetPrice,"")
-	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderLineIdentificationCustomer,"277788.01  ")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderLineIdentificationCustomer,"277788.01")
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).IdentNumberSupplierBAU,"09002253")
 	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DelDateCode,"2")
 	
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml
===================================================================
diff -u -r35399 -r35402
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35399)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35402)
@@ -63,7 +63,7 @@
 <Implementation><![CDATA[
 	try
 	{
-		#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ..Converteerder.Converteer(..LeesXMLBestand(BestandVolledigeNaam))
+		Set COASO = ..Converteerder.Converteer(..LeesXMLBestand(BestandVolledigeNaam))
 		Do ..Bewaarder.Bewaar(COASO)
 		Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)
 	} 
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35393 -r35402
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35393)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35402)
@@ -112,7 +112,7 @@
 	While E1EDP02Iterator.HasNext()
 	{
 		#dim E1EDP02 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP02 = E1EDP02Iterator.Next()
-		Set:(E1EDP02.QUALF="001") ToeleveringDetail.OrderLineIdentificationCustomer = E1EDP02.BELNR _"." _E1EDP02.ZEILE _"  "
+		Set:(E1EDP02.QUALF="001") ToeleveringDetail.OrderLineIdentificationCustomer = E1EDP02.BELNR  ;_"." _E1EDP02.ZEILE _"  "
 	}
 ]]></Implementation>
 </Method>
Index: vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml
===================================================================
diff -u -r35389 -r35402
--- vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml	(.../ORDERS05.cls.xml)	(revision 35389)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml	(.../ORDERS05.cls.xml)	(revision 35402)
@@ -68,7 +68,7 @@
 	#dim E1EDP02 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP02 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP02).%New()
 	Do ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.Insert(E1EDP02)
 	Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).QUALF = "001"
-	Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).BELNR = "277788"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).BELNR = "277788.01"
 	Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).ZEILE = "01"
 	#dim E1EDP20 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP20 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP20).%New()
 	Do ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP20.Insert(E1EDP20)
@@ -87,7 +87,7 @@
 	Set E1EDP02 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP02).%New()
 	Do ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.Insert(E1EDP02)
 	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(1).QUALF = "001"
-	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(1).BELNR = "277788"
+	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(1).BELNR = "277788.01"
 	Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(1).ZEILE = "44"
 	Set E1EDP20 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP20).%New()
 	Do ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP20.Insert(E1EDP20)