Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml
===================================================================
diff -u -r35396 -r35397
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 35396)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 35397)
@@ -25,9 +25,42 @@
 	Do Bewaarder.Bewaar(COASODouble)
 	
 	Do $$$AssertTrue($DATA(^BLImp(Bewaarder.MsgNr,1)))
+	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr,1),"""11212250  212250  277788      000745532      W30G L 151221                     """)
+
 	Kill ^BLImp(Bewaarder.MsgNr)
 ]]></Implementation>
 </Method>
+
+<Method name="Test : Bewaar COASO detail in BLImp">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).%New().GeefCOASO()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	
+	Do Bewaarder.Bewaar(COASODouble)
+	
+	Do $$$AssertTrue($DATA(^BLImp(Bewaarder.MsgNr,2)))
+	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr,2),"""22277788.01       09002253500    0000016.0121601062 V      0000000.00          """)
+
+	Kill ^BLImp(Bewaarder.MsgNr)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Bewaar COASO met meerdere detaillijnen in BLImp">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).%New().GeefCOASO()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	
+	Do Bewaarder.Bewaar(COASODouble)
+	
+	Do $$$AssertTrue($DATA(^BLImp(Bewaarder.MsgNr,2)))
+	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr,2),"""22277788.01       09002253500    0000016.0121601062 V      0000000.00          """)
+
+	Do $$$AssertTrue($DATA(^BLImp(Bewaarder.MsgNr,3)))
+	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr,3),"""22277799.01       090022531000   0000216.0121601082 V      0000236.01          """)
+
+	Kill ^BLImp(Bewaarder.MsgNr)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringDetail/ToString/Test.cls.xml
===================================================================
diff -u -r35395 -r35397
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringDetail/ToString/Test.cls.xml	(.../Test.cls.xml)	(revision 35395)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringDetail/ToString/Test.cls.xml	(.../Test.cls.xml)	(revision 35397)
@@ -21,7 +21,7 @@
 	Set ToeleveringDetail.InitialDeliveryDate = "6"
 	Set ToeleveringDetail.IdentNrChanged = "1"
 
-	Do $$$AssertEquals(ToeleveringDetail.ToString(),"""2211         5    8       7      10        16     1116     10           6     1""")
+	Do $$$AssertEquals(ToeleveringDetail.ToString(),"""2211         5    8       000000710        16     1116     10           6     1""")
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml
===================================================================
diff -u -r35396 -r35397
--- vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(.../COASO.cls.xml)	(revision 35396)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(.../COASO.cls.xml)	(revision 35397)
@@ -19,6 +19,31 @@
 	Set Toelevering.ToeleveringHeader.CurrencyInCOScode = "W30"
 	Set Toelevering.ToeleveringHeader.AverageTransportTime = "000"
 
+	#dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail).%New()
+	Set ToeleveringDetail.OrderQuantity = "500"
+	Set ToeleveringDetail.DeliveryDateAxBUA = "160106"
+	Set ToeleveringDetail.OrderLineNumberSupplierBAU = ""
+	Set ToeleveringDetail.GrossPrice = "0000000.00"
+	Set ToeleveringDetail.ReasonCode = "V"
+	Set ToeleveringDetail.PriceDimension = "2"
+	Set ToeleveringDetail.NetPrice = "0000016.01"
+	Set ToeleveringDetail.OrderLineIdentificationCustomer = "277788.01  "
+	Set ToeleveringDetail.IdentNumberSupplierBAU = "09002253"
+	Set ToeleveringDetail.DelDateCode = "2"
+	Do Toelevering.ToeleveringDetail.Insert(ToeleveringDetail)
+
+	Set ToeleveringDetail = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail).%New()
+	Set ToeleveringDetail.OrderQuantity = "1000"
+	Set ToeleveringDetail.DeliveryDateAxBUA = "160108"
+	Set ToeleveringDetail.OrderLineNumberSupplierBAU = ""
+	Set ToeleveringDetail.GrossPrice = "0000236.01"
+	Set ToeleveringDetail.ReasonCode = "V"
+	Set ToeleveringDetail.PriceDimension = "2"
+	Set ToeleveringDetail.NetPrice = "0000216.01"
+	Set ToeleveringDetail.OrderLineIdentificationCustomer = "277799.01  "
+	Set ToeleveringDetail.IdentNumberSupplierBAU = "09002253"
+	Set ToeleveringDetail.DelDateCode = "2"
+	Do Toelevering.ToeleveringDetail.Insert(ToeleveringDetail)
 	
 	Do COASO.ToeleveringList.Insert(Toelevering)
 	
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringDetail.cls.xml
===================================================================
diff -u -r35395 -r35397
--- APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringDetail.cls.xml	(.../ToeleveringDetail.cls.xml)	(revision 35395)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringDetail.cls.xml	(.../ToeleveringDetail.cls.xml)	(revision 35397)
@@ -95,7 +95,7 @@
 	Set result = result _ ..FormateerVeld(..OrderLineIdentificationCustomer,11)
 	Set result = result _ ..FormateerVeld(..OrderLineNumberSupplierBAU,5)
 	Set result = result _ ..FormateerVeld(..IdentNumberSupplierBAU,8)
-	Set result = result _ ..FormateerVeld(..OrderQuantity,7)
+	Set result = result _ ..FormateerNumeriekVeld(..OrderQuantity,7)
 	Set result = result _ ..FormateerVeld(..NetPrice,10)
 	Set result = result _ ..FormateerVeld(..PriceDimension,1)
 	Set result = result _ ..FormateerVeld(..DeliveryDateAxBUA,6)
@@ -122,6 +122,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="FormateerNumeriekVeld">
+<FormalSpec>Veld:%String,Lengte:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim result As %String = $Extract(Veld,1,Lengte)
+	Quit ##class(TECH.StringUtils).AddLeadingChar(result,"0",Lengte)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>ToeleveringDetailState</State>