Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml
===================================================================
diff -u -r35376 -r35395
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35376)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35395)
@@ -59,7 +59,6 @@
 	try
 	{
 		#dim COASOList As %ListOfObjects = ..Converteerder.Converteer(..LeesXMLBestand(BestandVolledigeNaam))
-		// Converteer naar dto
 		// Schrijf dto naar bestand in IN map of ^BLimp
 	} 
 	catch 
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringDetail/ToString/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringDetail/ToString/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringDetail/ToString/Test.cls.xml	(revision 35395)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail.ToString.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : ToeleveringDetail Object geeft string weer van lengte 80">
+<Implementation><![CDATA[
+	#Dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail).%New()
+	Set ToeleveringDetail.OrderLineIdentificationCustomer = "11"
+	Set ToeleveringDetail.OrderLineNumberSupplierBAU = "5"
+	Set ToeleveringDetail.IdentNumberSupplierBAU = "8"
+	Set ToeleveringDetail.OrderQuantity = "7"
+	Set ToeleveringDetail.NetPrice ="10"
+	Set ToeleveringDetail.PriceDimension ="1"
+	Set ToeleveringDetail.DeliveryDateAxBUA = "6"
+	Set ToeleveringDetail.DelDateCode ="1"
+	Set ToeleveringDetail.ShipmentStatus = "1"
+	Set ToeleveringDetail.ReasonCode = "1"
+	Set ToeleveringDetail.LastInvoiceToPartialShipment = "6"
+	Set ToeleveringDetail.GrossPrice = "10"
+	Set ToeleveringDetail.InitialDeliveryDate = "6"
+	Set ToeleveringDetail.IdentNrChanged = "1"
+
+	Do $$$AssertEquals(ToeleveringDetail.ToString(),"""2211         5    8       7      10        16     1116     10           6     1""")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringHeader/ToString/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringHeader/ToString/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringHeader/ToString/Test.cls.xml	(revision 35395)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringHeader.ToString.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : ToeleveringHeader Object geeft string weer van lengte 80">
+<Implementation><![CDATA[
+	#Dim ToeleveringHeader As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringHeader = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringHeader).%New()
+	Set ToeleveringHeader.CustomerNumberForShipment = "6"
+	Set ToeleveringHeader.DeliveryAddressID = "2"
+	Set ToeleveringHeader.CustomerNumberForInvoice = "6"
+	Set ToeleveringHeader.InvoiceAddressID = "2"
+	Set ToeleveringHeader.CustomerOrderReference ="12"
+	Set ToeleveringHeader.AverageTransportTime ="3"
+	Set ToeleveringHeader.InternalOrderNumberBLUM = "12"
+	Set ToeleveringHeader.CurrencyInCOScode ="3"
+	Set ToeleveringHeader.ReasonCode = "2"
+	Set ToeleveringHeader.TransportationMode = "2"
+	Set ToeleveringHeader.CustomerOrderEntryDate = "6"
+
+	Do $$$AssertEquals(ToeleveringHeader.ToString(),"""116     2 6     2 12          3  12          3  2 2 6                          """)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringHeader.cls.xml
===================================================================
diff -u -r35364 -r35395
--- APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringHeader.cls.xml	(.../ToeleveringHeader.cls.xml)	(revision 35364)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringHeader.cls.xml	(.../ToeleveringHeader.cls.xml)	(revision 35395)
@@ -70,13 +70,42 @@
 <Type>%String</Type>
 </Property>
 
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim result As %String = """11"
+	Set result = result _ ..FormateerVeld(..CustomerNumberForShipment,6)
+	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(..AverageTransportTime,3)
+	Set result = result _ ..FormateerVeld(..InternalOrderNumberBLUM,12)
+	Set result = result _ ..FormateerVeld(..CurrencyInCOScode,3)
+	Set result = result _ ..FormateerVeld(..ReasonCode,2)
+	Set result = result _ ..FormateerVeld(..TransportationMode,2)
+	Set result = result _ ..FormateerVeld(..CustomerOrderEntryDate,6)
+	Set result = result _ ..FormateerVeld(" ",21)
+	Set result = result _ ..FormateerVeld("""",1)
+	Quit result
+]]></Implementation>
+</Method>
+
+<Method name="FormateerVeld">
+<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).AddTrailingSpace(result,Lengte)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>ToeleveringHeaderState</State>
 <StreamLocation>^APPS.EDIExpC6E.Toelevering53B7S</StreamLocation>
 <Data name="ToeleveringHeaderState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>CustomerNumberForShipment</Value>
 </Value>
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringDetail.cls.xml
===================================================================
diff -u -r35367 -r35395
--- APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringDetail.cls.xml	(.../ToeleveringDetail.cls.xml)	(revision 35367)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/dto/ToeleveringDetail.cls.xml	(.../ToeleveringDetail.cls.xml)	(revision 35395)
@@ -88,6 +88,40 @@
 <Type>%String</Type>
 </Property>
 
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim result As %String = """22"
+	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 _ ..FormateerVeld(..NetPrice,10)
+	Set result = result _ ..FormateerVeld(..PriceDimension,1)
+	Set result = result _ ..FormateerVeld(..DeliveryDateAxBUA,6)
+	Set result = result _ ..FormateerVeld(..DelDateCode,1)
+	Set result = result _ ..FormateerVeld(..ShipmentStatus,1)
+	Set result = result _ ..FormateerVeld(..ReasonCode,1)
+	Set result = result _ ..FormateerVeld(..LastInvoiceToPartialShipment,6)
+	Set result = result _ ..FormateerVeld(..GrossPrice,10)
+	Set result = result _ ..FormateerVeld(" ",3)
+	Set result = result _ ..FormateerVeld(..InitialDeliveryDate,6)
+	Set result = result _ ..FormateerVeld(..IdentNrChanged,1)
+	Set result = result _ ..FormateerVeld("""",1)
+	Quit result
+]]></Implementation>
+</Method>
+
+<Method name="FormateerVeld">
+<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).AddTrailingSpace(result,Lengte)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>ToeleveringDetailState</State>