Index: APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDKA1.cls.xml
===================================================================
diff -u -r35001 -r35090
--- APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDKA1.cls.xml	(.../E1EDKA1.cls.xml)	(revision 35001)
+++ APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDKA1.cls.xml	(.../E1EDKA1.cls.xml)	(revision 35090)
@@ -86,20 +86,13 @@
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-/// Relationship IDOC As APPS.EDIExport.AankoopOrder.BLUM.XML.IDOC(XMLPROJECTION = "NONE") [ Cardinality = one, Inverse = E1EDKA1 ];
-
-]]></Content>
-</UDLText>
-
 <Storage name="Default">
+<Description>
+Relationship IDOC As APPS.EDIExport.AankoopOrder.BLUM.XML.IDOC(XMLPROJECTION = "NONE") [ Cardinality = one, Inverse = E1EDKA1 ];</Description>
 <Type>%Library.CacheSerialState</Type>
 <State>E1EDKA1State</State>
 <StreamLocation>^APPS.EDIExport.AanE2DA.E1EDKA1S</StreamLocation>
 <Data name="E1EDKA1State">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>PARVW</Value>
 </Value>
Index: APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDP01.cls.xml
===================================================================
diff -u -r35001 -r35090
--- APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDP01.cls.xml	(.../E1EDP01.cls.xml)	(revision 35001)
+++ APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDP01.cls.xml	(.../E1EDP01.cls.xml)	(revision 35090)
@@ -85,9 +85,15 @@
 <Parameter name="XMLNAME" value="E1EDP03"/>
 </Property>
 
+<Property name="E1EDP19">
+<Type>APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP19</Type>
+<Collection>list</Collection>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="E1EDP19"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
 <Property name="E1EDPT1">
-<Description>
-Relationship E1EDP19 As APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP19(XMLNAME = "E1EDP19", XMLPROJECTION = "ELEMENT") [ Cardinality = many, Inverse = E1EDP01 ];</Description>
 <Type>APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDPT1</Type>
 <Required>1</Required>
 <Parameter name="XMLNAME" value="E1EDPT1"/>
@@ -99,20 +105,13 @@
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-/// Relationship IDOC1 As APPS.EDIExport.AankoopOrder.BLUM.XML.IDOC(XMLPROJECTION = "NONE") [ Cardinality = one, Inverse = E1EDP01 ];
-
-]]></Content>
-</UDLText>
-
 <Storage name="Default">
+<Description>
+Relationship IDOC1 As APPS.EDIExport.AankoopOrder.BLUM.XML.IDOC(XMLPROJECTION = "NONE") [ Cardinality = one, Inverse = E1EDP01 ];</Description>
 <Type>%Library.CacheSerialState</Type>
 <State>E1EDP01State</State>
 <StreamLocation>^APPS.EDIExport.AanE2DA.E1EDP01S</StreamLocation>
 <Data name="E1EDP01State">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>POSEX</Value>
 </Value>
@@ -149,6 +148,9 @@
 <Value name="12">
 <Value>SEGMENT</Value>
 </Value>
+<Value name="13">
+<Value>E1EDP19</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhTest/Utils/APPS/EDIExport/AankoopOrder/BLUM/XML/ORDERS05.cls.xml
===================================================================
diff -u -r35027 -r35090
--- vhTest/Utils/APPS/EDIExport/AankoopOrder/BLUM/XML/ORDERS05.cls.xml	(.../ORDERS05.cls.xml)	(revision 35027)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrder/BLUM/XML/ORDERS05.cls.xml	(.../ORDERS05.cls.xml)	(revision 35090)
@@ -8,39 +8,194 @@
 <ReturnType>APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05</ReturnType>
 <Implementation><![CDATA[
 	Set ORDERS05 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).%New()
-	Set ORDERS05.IDOC.E1EDK01.CURCY = "TESTCURCY"
+
+	Set ORDERS05.IDOC.BEGIN = "1"
+	Set ORDERS05.IDOC.EDIDC40.SEGMENT = "1"
+	Set ORDERS05.IDOC.EDIDC40.DIRECT = 1
+	Set ORDERS05.IDOC.EDIDC40.DOCREL = "46C"
+	Set ORDERS05.IDOC.EDIDC40.IDOCTYP = "ORDERS05"
+	Set ORDERS05.IDOC.EDIDC40.MANDT = "01"
+	Set ORDERS05.IDOC.EDIDC40.MESTYP = "ORDERS"
+	Set ORDERS05.IDOC.EDIDC40.RCVPRN = "9002617000009" ; ###Receiver GLN - Julius Blum GmbH###
+	Set ORDERS05.IDOC.EDIDC40.SNDPRN = "0000000000000" ; ###Partner GLN, Unique Partner ID###
+	Set ORDERS05.IDOC.EDIDC40.STATUS = 30
+	Set ORDERS05.IDOC.EDIDC40.STDMES = "ORDERS"
+	Set ORDERS05.IDOC.EDIDC40.TABNAM = "EDI_DC40"
+
+	Set ORDERS05.IDOC.E1EDK01.SEGMENT = "1"
+	Set ORDERS05.IDOC.E1EDK01.CURCY = "EUR"
 	
-	Set ORDERS05.IDOC.E1EDK02.BELNR = "TESTBELNR"
-	Set ORDERS05.IDOC.E1EDK02.DATUM = 0
-	Set ORDERS05.IDOC.E1EDK02.QUALF = 0
+	Set ORDERS05.IDOC.E1EDK03.SEGMENT = "1"
+	Set ORDERS05.IDOC.E1EDK03.DATUM = "20121211"
+	Set ORDERS05.IDOC.E1EDK03.IDDAT = "011"
+
+	Set ORDERS05.IDOC.E1EDK02.SEGMENT = "1"
+	Set ORDERS05.IDOC.E1EDK02.BELNR = "00000" ; ###Customer Order Number###
+	Set ORDERS05.IDOC.E1EDK02.DATUM = "20121211"
+	Set ORDERS05.IDOC.E1EDK02.QUALF = "001"
 	
-	Set ORDERS05.IDOC.E1EDK03.DATUM = 0
-	Set ORDERS05.IDOC.E1EDK03.IDDAT = 0
+	Set ORDERS05.IDOC.E1EDK17.SEGMENT = "1"
+	Set ORDERS05.IDOC.E1EDK17.LKOND = "FCA"
+	Set ORDERS05.IDOC.E1EDK17.LKTEXT = "FCA, City  " ; ##Delivery Terms##
+	Set ORDERS05.IDOC.E1EDK17.QUALF = "001"
 	
-	Set ORDERS05.IDOC.E1EDK17.LKOND = "TESTLKOND"
-	Set ORDERS05.IDOC.E1EDK17.LKTEXT = "TESTLKTEXT"
-	Set ORDERS05.IDOC.E1EDK17.QUALF = 0
+	Set ORDERS05.IDOC.E1EDK18.SEGMENT = "1"
+	Set ORDERS05.IDOC.E1EDK18.QUALF = "001"
+	Set ORDERS05.IDOC.E1EDK18.ZTERMTXT = "30 days- 3 % Skonto  " ; ##Payment Terms##
 	
-	Set ORDERS05.IDOC.E1EDK18.QUALF = 0
-	Set ORDERS05.IDOC.E1EDK18.ZTERMTXT = "TESTZTERMTXT" 
+	Set ORDERS05.IDOC.E1EDKT1.SEGMENT = "1"
+	Set ORDERS05.IDOC.E1EDKT1.E1EDKT2.SEGMENT = "1"
+	Set ORDERS05.IDOC.E1EDKT1.E1EDKT2.TDLINE = "Dummy Order Text ##Order Text##"
+	Set ORDERS05.IDOC.E1EDKT1.TDID = "002"
 	
-	Set ORDERS05.IDOC.E1EDKT1.E1EDKT2.TDLINE = "TESTTDLINE"
-	Set ORDERS05.IDOC.E1EDKT1.TDID = 0
+	Set ORDERS05.IDOC.E1EDKA1 = ..GeefE1EDKA1()
 	
-	Set ORDERS05.IDOC.EDIDC40.DIRECT = 0
-	Set ORDERS05.IDOC.EDIDC40.DOCREL = "TESTDOCREL"
-	Set ORDERS05.IDOC.EDIDC40.IDOCTYP = "TESTIDOCTYP"
-	Set ORDERS05.IDOC.EDIDC40.MANDT = 0
-	Set ORDERS05.IDOC.EDIDC40.MESTYP = "TESTMESTYP"
-	Set ORDERS05.IDOC.EDIDC40.RCVPRN = "TESTRCVPRN"
-	Set ORDERS05.IDOC.EDIDC40.SNDPRN = "TESTSNDPRN"
-	Set ORDERS05.IDOC.EDIDC40.STATUS = 0
-	Set ORDERS05.IDOC.EDIDC40.STDMES = "TESTSTDMES"
-	Set ORDERS05.IDOC.EDIDC40.TABNAM = "TESTTABNAM"
-	
+	Set ORDERS05.IDOC.E1EDP01 = ..GeefE1EDP01()
 	Quit ORDERS05
 ]]></Implementation>
 </Method>
+
+<Method name="GeefE1EDP01">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfObjects).%New()
+	
+	Set E1EDP01 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP01).%New()
+	Set E1EDP01.SEGMENT = "1"
+	Set E1EDP01.POSEX = "001000" ; ##Customer Line Number##</POSEX>
+	Set E1EDP01.ACTION = 001 ;
+	Set E1EDP01.MENGE = "500." ;##Quantity##
+	Set E1EDP01.MENEE = "PCE" ;##Unit of Measure##
+	Set E1EDP01.PMENE = "PCE" ;##Unit for Price##
+	Set E1EDP01.VPREI = 34.8 ;##Price net##
+	Set E1EDP01.PEINH = 100 ;##Price Unit##
+	Set E1EDP01.NETWR = 6.96 ;##Position value##
+	Set E1EDP01.PREIS = 11.6 ;##gross price##
+	Set E1EDP01.E1EDP03.SEGMENT = "1"
+	Set E1EDP01.E1EDP03.DATUM = "20121214"
+	Set E1EDP01.E1EDP03.IDDAT = "002" ; ### (expected delivery date)###
+	
+	Set E1EDP01.E1EDPT1.SEGMENT = "1"
+	Set E1EDP01.E1EDPT1.TDID = "004"
+	Set E1EDP01.E1EDPT1.E1EDPT2.TDLINE = "Positionstext ##Position Text##"
+	
+	Set E1EDP01.E1EDP19 = ..GeefE1EDP19()
+	
+	do List.Insert(E1EDP01)
+
+	Set E1EDP01 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP01).%New()
+	Set E1EDP01.SEGMENT = "1"
+	Set E1EDP01.POSEX = "002000" ; ##Customer Line Number##</POSEX>
+	Set E1EDP01.ACTION = 001 ;
+	Set E1EDP01.MENGE = "500." ;##Quantity##
+	Set E1EDP01.MENEE = "PCE" ;##Unit of Measure##
+	Set E1EDP01.PMENE = "PCE" ;##Unit for Price##
+	Set E1EDP01.VPREI = 34.8 ;##Price net##
+	Set E1EDP01.PEINH = 100 ;##Price Unit##
+	Set E1EDP01.NETWR = 6.96 ;##Position value##
+	Set E1EDP01.PREIS = 11.6 ;##gross price##
+	
+	Set E1EDP01.E1EDP03.SEGMENT = "1"
+	Set E1EDP01.E1EDP03.DATUM = "20121214"
+	Set E1EDP01.E1EDP03.IDDAT = "002" ; ### (expected delivery date)###
+	
+	Set E1EDP01.E1EDPT1.SEGMENT = "1"
+	Set E1EDP01.E1EDPT1.TDID = "004"
+	Set E1EDP01.E1EDPT1.E1EDPT2.TDLINE = "Positionstext ##Position Text##"
+	
+	Set E1EDP01.E1EDP19 = ..GeefE1EDP19()
+	
+	do List.Insert(E1EDP01)
+
+	
+	Quit List
+]]></Implementation>
+</Method>
+
+<Method name="GeefE1EDP19">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfObjects).%New()
+
+	Set E1EDP19 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP19).%New()
+	Set E1EDP19.SEGMENT = "1"
+	Set E1EDP19.IDTNR = "12345678"
+	Set E1EDP19.KTEXT = "artikel text"
+	Set E1EDP19.QUALF = "001" ; ###Customer material number###
+	Do List.Insert(E1EDP19)
+
+	Set E1EDP19 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP19).%New()
+	Set E1EDP19.SEGMENT = "1"
+	Set E1EDP19.IDTNR = "01026503"
+	Set E1EDP19.QUALF = "002" ; ###Material Number BLUM ###
+	Do List.Insert(E1EDP19)
+
+	Set E1EDP19 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP19).%New()
+	Set E1EDP19.SEGMENT = "1"
+	Set E1EDP19.IDTNR = "9002617278934" ; ### EAN Number ###
+	Set E1EDP19.QUALF = "003" ; ###MAterial Number BLUM ###
+	Do List.Insert(E1EDP19)
+	
+	Quit List
+]]></Implementation>
+</Method>
+
+<Method name="GeefE1EDKA1">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfObjects).%New()
+	
+	set E1EDKA1 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDKA1).%New()
+	Set E1EDKA1.SEGMENT = "1"
+	set E1EDKA1.PARVW = "AG"
+	set E1EDKA1.PARTN = "###Partner-ID###" ; ###Partner-ID###
+	set E1EDKA1.NAME1 = "Partner name"
+	set E1EDKA1.NAME2 = "Partner name2"
+	set E1EDKA1.STRAS = "Street"
+	set E1EDKA1.STRS2 = "Street2"
+	set E1EDKA1.ORT01 = "City"
+	set E1EDKA1.COUNC = "AT"
+	set E1EDKA1.PSTLZ = "PLZ"
+	do List.Insert(E1EDKA1)
+		
+	set E1EDKA1 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDKA1).%New()
+	Set E1EDKA1.SEGMENT = "1"
+	set E1EDKA1.PARVW = "WE"
+	set E1EDKA1.PARTN = "###Unique Code/ID for unique delivery adress###" ; ###Unique Code/ID for unique delivery adress###
+	set E1EDKA1.NAME1 = "Partner name"
+	set E1EDKA1.NAME2 = "Partner name2"
+	set E1EDKA1.STRAS = "Street"
+	set E1EDKA1.STRS2 = "Street2"
+	set E1EDKA1.ORT01 = "City"
+	set E1EDKA1.COUNC = "AT"
+	set E1EDKA1.PSTLZ = "PLZ"
+	do List.Insert(E1EDKA1)
+
+	set E1EDKA1 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDKA1).%New()
+	Set E1EDKA1.SEGMENT = "1"
+	set E1EDKA1.PARVW = "LF"
+	set E1EDKA1.PARTN = "9002617000009" ; ###Lieferant-ID###
+	set E1EDKA1.NAME1 = "Julius Blum GmbH"
+	set E1EDKA1.NAME2 = ""
+	set E1EDKA1.STRAS = "Industrie. 1"
+	set E1EDKA1.STRS2 = ""
+	set E1EDKA1.ORT01 = "Hoechst"
+	set E1EDKA1.COUNC = "AT"
+	set E1EDKA1.PSTLZ = "6973"
+	do List.Insert(E1EDKA1)
+		
+	quit List
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EDIExport/AankoopOrder/BLUM/XML/IDOC.cls.xml
===================================================================
diff -u -r35001 -r35090
--- APPS/EDIExport/AankoopOrder/BLUM/XML/IDOC.cls.xml	(.../IDOC.cls.xml)	(revision 35001)
+++ APPS/EDIExport/AankoopOrder/BLUM/XML/IDOC.cls.xml	(.../IDOC.cls.xml)	(revision 35090)
@@ -35,9 +35,15 @@
 <Parameter name="XMLNAME" value="E1EDK03"/>
 </Property>
 
+<Property name="E1EDKA1">
+<Type>APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDKA1</Type>
+<Collection>list</Collection>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="E1EDKA1"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
 <Property name="E1EDK02">
-<Description>
-Relationship E1EDKA1 As APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDKA1(XMLNAME = "E1EDKA1", XMLPROJECTION = "ELEMENT") [ Cardinality = many, Inverse = IDOC ];</Description>
 <Type>APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDK02</Type>
 <Required>1</Required>
 <Parameter name="XMLNAME" value="E1EDK02"/>
@@ -61,9 +67,15 @@
 <Parameter name="XMLNAME" value="E1EDKT1"/>
 </Property>
 
+<Property name="E1EDP01">
+<Type>APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP01</Type>
+<Collection>list</Collection>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="E1EDP01"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
 <Property name="BEGIN">
-<Description>
-Relationship E1EDP01 As APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP01(XMLNAME = "E1EDP01", XMLPROJECTION = "ELEMENT") [ Cardinality = many, Inverse = IDOC1 ];</Description>
 <Type>%xsd.byte</Type>
 <SqlFieldName>_BEGIN</SqlFieldName>
 <Parameter name="XMLNAME" value="BEGIN"/>
@@ -99,6 +111,12 @@
 <Value name="8">
 <Value>BEGIN</Value>
 </Value>
+<Value name="9">
+<Value>E1EDP01</Value>
+</Value>
+<Value name="10">
+<Value>E1EDKA1</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDP19.cls.xml
===================================================================
diff -u -r35001 -r35090
--- APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDP19.cls.xml	(.../E1EDP19.cls.xml)	(revision 35001)
+++ APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDP19.cls.xml	(.../E1EDP19.cls.xml)	(revision 35090)
@@ -42,20 +42,11 @@
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-/// Relationship E1EDP01 As APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP01(XMLPROJECTION = "NONE") [ Cardinality = one, Inverse = E1EDP19 ];
-
-]]></Content>
-</UDLText>
-
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>E1EDP19State</State>
 <StreamLocation>^APPS.EDIExport.AanE2DA.E1EDP19S</StreamLocation>
 <Data name="E1EDP19State">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>QUALF</Value>
 </Value>