Index: APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDP19.cls.xml
===================================================================
diff -u -r35221 -r35372
--- APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDP19.cls.xml (.../E1EDP19.cls.xml) (revision 35221)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDP19.cls.xml (.../E1EDP19.cls.xml) (revision 35372)
@@ -18,13 +18,13 @@
-%xsd.int
+%String
1
-%xsd.int
+%String
1
@@ -40,8 +40,6 @@
E1EDP19State
^APPS.EDIExport.Aan89FD.E1EDP19S
-listnode
-
QUALF
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05/Test.cls.xml
===================================================================
diff -u -r35371 -r35372
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05/Test.cls.xml (.../Test.cls.xml) (revision 35371)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05/Test.cls.xml (.../Test.cls.xml) (revision 35372)
@@ -16,6 +16,69 @@
#dim XmlCorrelater As TECH.XMLCorrelater = ##class(TECH.XMLCorrelater).%New()
#dim ClassName As %String = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%ClassName(1)
#dim ORDERS05 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = XmlCorrelater.GeefObjectVanBestand(..GeefBestandVolledigeNaam(),ClassName,"ORDERS05")
+
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.TABNAM,"EDI_DC40")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.MANDT,"200")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.DOCREL,"620")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.STATUS,"30")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.DIRECT,"1")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.OUTMOD,"4")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.IDOCTYP,"ORDERS05")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.MESTYP,"ORDRSP")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.STDMES,"ORDRSP")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.SNDPOR,"BLUM")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.SNDPRT,"LI")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.SNDPFC,"LF")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.SNDPRN,"5415001000006")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.RCVPOR,"SAPT31")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.RCVPRT,"LS")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.RCVPRN,"LVH")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.CREDAT,"20151221")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.CRETIM,"163714")
+ Do $$$AssertEquals(ORDERS05.IDOC.EDIDC40.SERIAL,"STD")
+
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDK01.ACTION ,"0")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDK01.BELNR ,"745532")
+
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDK03.GetAt(1).IDDAT ,"11")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDK03.GetAt(1).DATUM ,"20151221")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDK03.GetAt(2).IDDAT ,"12")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDK03.GetAt(2).DATUM ,"20151221")
+
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDKA1.GetAt(1).PARVW ,"WE")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDKA1.GetAt(1).PARTN ,"212250")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDKA1.GetAt(2).PARVW ,"LF")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDKA1.GetAt(2).PARTN ,"9002617000009")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDKA1.GetAt(3).PARVW ,"AG")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDKA1.GetAt(3).PARTN ,"212250")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDKA1.GetAt(3).LIFNR ,"5415001000006")
+
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDK02.QUALF ,"001")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDK02.BELNR ,"277788")
+
+ // Eerste E1EDP01 in bestand
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(1).POSEX ,"01")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(1).MENGE ,"500")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(1).MENEE ,"PCE")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).QUALF ,"001")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).BELNR ,"277788")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).ZEILE ,"01")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP20.GetAt(1).WMENG ,"500")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP20.GetAt(1).EDATU ,"20160106")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP19.QUALF ,"002")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP19.IDTNR ,"09002253")
+
+ // Laatste E1EDP01 in bestand
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(29).POSEX ,"44")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(29).MENGE ,"5")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(29).MENEE ,"PCE")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(29).E1EDP02.GetAt(1).QUALF ,"001")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(29).E1EDP02.GetAt(1).BELNR ,"277788")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(29).E1EDP02.GetAt(1).ZEILE ,"44")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(29).E1EDP20.GetAt(1).WMENG ,"5")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(29).E1EDP20.GetAt(1).EDATU ,"20160106")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(29).E1EDP19.QUALF ,"002")
+ Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(29).E1EDP19.IDTNR ,"03695500")
]]>
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDP02.cls.xml
===================================================================
diff -u -r35371 -r35372
--- APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDP02.cls.xml (.../E1EDP02.cls.xml) (revision 35371)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDP02.cls.xml (.../E1EDP02.cls.xml) (revision 35372)
@@ -18,7 +18,7 @@
-%xsd.int
+%String
1
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDK02.cls.xml
===================================================================
diff -u -r35221 -r35372
--- APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDK02.cls.xml (.../E1EDK02.cls.xml) (revision 35221)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDK02.cls.xml (.../E1EDK02.cls.xml) (revision 35372)
@@ -18,7 +18,7 @@
-%xsd.int
+%String
1
@@ -40,8 +40,6 @@
E1EDK02State
^APPS.EDIExport.Aan89FD.E1EDK02S
-listnode
-
QUALF