Index: APPS/EDIExport/AankoopOrder/BLUM/XML/EDIDC40.cls.xml
===================================================================
diff -u -r35001 -r35622
--- APPS/EDIExport/AankoopOrder/BLUM/XML/EDIDC40.cls.xml	(.../EDIDC40.cls.xml)	(revision 35001)
+++ APPS/EDIExport/AankoopOrder/BLUM/XML/EDIDC40.cls.xml	(.../EDIDC40.cls.xml)	(revision 35622)
@@ -77,13 +77,62 @@
 <Parameter name="XMLNAME" value="SNDPRN"/>
 </Property>
 
+<Property name="SNDPOR">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="SNDPOR"/>
+</Property>
+
+<Property name="SNDPRT">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="SNDPRT"/>
+</Property>
+
+<Property name="SNDLAD">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="SNDLAD"/>
+</Property>
+
 <Property name="RCVPRN">
 <Type>%String</Type>
 <Required>1</Required>
 <Parameter name="MAXLEN"/>
 <Parameter name="XMLNAME" value="RCVPRN"/>
 </Property>
 
+<Property name="RCVPRT">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="RCVPRT"/>
+</Property>
+
+<Property name="RCVPOR">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="RCVPOR"/>
+</Property>
+
+<Property name="RCVLAD">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="RCVLAD"/>
+</Property>
+
+<Property name="CREDAT">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="CREDAT"/>
+</Property>
+
 <Property name="SEGMENT">
 <Type>%xsd.byte</Type>
 <Parameter name="XMLNAME" value="SEGMENT"/>
@@ -95,8 +144,6 @@
 <State>EDIDC40State</State>
 <StreamLocation>^APPS.EDIExport.AanE2DA.EDIDC40S</StreamLocation>
 <Data name="EDIDC40State">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>TABNAM</Value>
 </Value>
@@ -130,6 +177,27 @@
 <Value name="11">
 <Value>SEGMENT</Value>
 </Value>
+<Value name="12">
+<Value>SNDPOR</Value>
+</Value>
+<Value name="13">
+<Value>SNDPRT</Value>
+</Value>
+<Value name="14">
+<Value>SNDLAD</Value>
+</Value>
+<Value name="15">
+<Value>RCVPRT</Value>
+</Value>
+<Value name="16">
+<Value>RCVPOR</Value>
+</Value>
+<Value name="17">
+<Value>RCVLAD</Value>
+</Value>
+<Value name="18">
+<Value>CREDAT</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35621 -r35622
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35621)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35622)
@@ -52,14 +52,26 @@
 	Set ORDERS05.IDOC.EDIDC40.SEGMENT = "1"
 	Set ORDERS05.IDOC.EDIDC40.IDOCTYP = "ORDERS05"
 	Set ORDERS05.IDOC.EDIDC40.DIRECT = 1 ; 1 = outbound  (net zoals bij INVRPT & SLSFCT)
-	Set ORDERS05.IDOC.EDIDC40.RCVPRN = "9002617000009" ; ###Receiver GLN - Julius Blum GmbH###
-	Set ORDERS05.IDOC.EDIDC40.SNDPRN = "212250" ; ###Partner GLN, Unique Partner ID###
+	
+	//Set ORDERS05.IDOC.EDIDC40.RCVPRN = "9002617000009" ; ###Receiver GLN - Julius Blum GmbH###
+	//Set ORDERS05.IDOC.EDIDC40.SNDPRN = "212250" ; ###Partner GLN, Unique Partner ID###
+	
 	Set ORDERS05.IDOC.EDIDC40.MANDT = "01"
 	Set ORDERS05.IDOC.EDIDC40.MESTYP = "ORDERS"
 	Set ORDERS05.IDOC.EDIDC40.DOCREL = "46C"
 	Set ORDERS05.IDOC.EDIDC40.STATUS = 30
 	Set ORDERS05.IDOC.EDIDC40.STDMES = "ORDERS"
 	Set ORDERS05.IDOC.EDIDC40.TABNAM = "EDI_DC40"
+	
+	Set ORDERS05.IDOC.EDIDC40.SNDPOR = "PETER VDR"
+	Set ORDERS05.IDOC.EDIDC40.SNDPRT = "LS"
+	Set ORDERS05.IDOC.EDIDC40.SNDPRN = "271250"
+	Set ORDERS05.IDOC.EDIDC40.SNDLAD = "5415001000006"
+	Set ORDERS05.IDOC.EDIDC40.RCVPOR = "BAU"
+	Set ORDERS05.IDOC.EDIDC40.RCVPRT = "LS"
+	Set ORDERS05.IDOC.EDIDC40.RCVPRN = "BAU"
+	Set ORDERS05.IDOC.EDIDC40.RCVLAD = "9002617000009"
+	Set ORDERS05.IDOC.EDIDC40.CREDAT = $$FormatDateTime^vhLib("yyyymmdd",$H)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder/Converteer/Test.cls.xml
===================================================================
diff -u -r35433 -r35622
--- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35433)
+++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 35622)
@@ -21,8 +21,13 @@
 	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.IDOCTYP,"ORDERS05")
 	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.DIRECT, 1)
 	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.MESTYP,"ORDERS")
-	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.RCVPRN, "9002617000009") ; ###Receiver GLN - Julius Blum GmbH###
-	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.SNDPRN, "212250") ; ###Partner GLN, Unique Partner ID###
+	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.RCVPRN, "BAU")
+	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.RCVPOR, "BAU")
+	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.RCVPRT, "LS")
+	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.SNDPRT, "LS")
+	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.RCVLAD, "9002617000009")
+	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.SNDLAD, "5415001000006")
+	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.SNDPRN, "271250") 
 	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.MANDT, "01")
 	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.MESTYP, "ORDERS")
 	Do $$$AssertEquals(ORDERS05Result.IDOC.EDIDC40.DOCREL, "46C")