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