Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml =================================================================== diff -u -r35380 -r35381 --- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 35380) +++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 35381) @@ -22,6 +22,8 @@ Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringHeader.AverageTransportTime ,"000") Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.Count(),2) + Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderQuantity,"500") + Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderLineIdentificationCustomer,"277788.01 ") ]]> Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml =================================================================== diff -u -r35380 -r35381 --- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml (.../Converteerder.cls.xml) (revision 35380) +++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml (.../Converteerder.cls.xml) (revision 35381) @@ -8,6 +8,7 @@ APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO + + +ToeleveringDetail:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail,E1EDP01:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01 +1 + + + + +ToeleveringDetail:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail,E1EDP01:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01 +1 + + + + + + Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05/Test.cls.xml =================================================================== diff -u -r35372 -r35381 --- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05/Test.cls.xml (.../Test.cls.xml) (revision 35372) +++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05/Test.cls.xml (.../Test.cls.xml) (revision 35381) @@ -65,8 +65,8 @@ 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") + Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP19.GetAt(1).QUALF ,"002") + Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP19.GetAt(1).IDTNR ,"09002253") // Laatste E1EDP01 in bestand Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(29).POSEX ,"44") @@ -77,8 +77,8 @@ 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") + Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(29).E1EDP19.GetAt(1).QUALF ,"002") + Do $$$AssertEquals(ORDERS05.IDOC.E1EDP01.GetAt(29).E1EDP19.GetAt(1).IDTNR ,"03695500") ]]> Index: vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml =================================================================== diff -u -r35376 -r35381 --- vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml (.../ORDERS05.cls.xml) (revision 35376) +++ vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml (.../ORDERS05.cls.xml) (revision 35381) @@ -27,72 +27,76 @@ Set ORDERS05.IDOC.EDIDC40.CRETIM = "163714" Set ORDERS05.IDOC.EDIDC40.SERIAL = "STD" - Set ORDERS05.IDOC.E1EDK01.ACTION = "0" - Set ORDERS05.IDOC.E1EDK01.BELNR = "745532" + Set ORDERS05.IDOC.E1EDK01.ACTION = "0" + Set ORDERS05.IDOC.E1EDK01.BELNR = "745532" #dim E1EDK03 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDK03 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDK03).%New() Do ORDERS05.IDOC.E1EDK03.Insert(E1EDK03) - Set ORDERS05.IDOC.E1EDK03.GetAt(1).IDDAT = "11" - Set ORDERS05.IDOC.E1EDK03.GetAt(1).DATUM = "20151221" + Set ORDERS05.IDOC.E1EDK03.GetAt(1).IDDAT = "11" + Set ORDERS05.IDOC.E1EDK03.GetAt(1).DATUM = "20151221" Set E1EDK03 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDK03).%New() Do ORDERS05.IDOC.E1EDK03.Insert(E1EDK03) - Set ORDERS05.IDOC.E1EDK03.GetAt(2).IDDAT = "12" - Set ORDERS05.IDOC.E1EDK03.GetAt(2).DATUM = "20151221" + Set ORDERS05.IDOC.E1EDK03.GetAt(2).IDDAT = "12" + Set ORDERS05.IDOC.E1EDK03.GetAt(2).DATUM = "20151221" #dim E1EDKA1 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDKA1 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDKA1).%New() Do ORDERS05.IDOC.E1EDKA1.Insert(E1EDKA1) - Set ORDERS05.IDOC.E1EDKA1.GetAt(1).PARVW = "WE" - Set ORDERS05.IDOC.E1EDKA1.GetAt(1).PARTN = "212250" + Set ORDERS05.IDOC.E1EDKA1.GetAt(1).PARVW = "WE" + Set ORDERS05.IDOC.E1EDKA1.GetAt(1).PARTN = "212250" Set E1EDKA1 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDKA1).%New() Do ORDERS05.IDOC.E1EDKA1.Insert(E1EDKA1) - Set ORDERS05.IDOC.E1EDKA1.GetAt(2).PARVW = "LF" - Set ORDERS05.IDOC.E1EDKA1.GetAt(2).PARTN = "9002617000009" + Set ORDERS05.IDOC.E1EDKA1.GetAt(2).PARVW = "LF" + Set ORDERS05.IDOC.E1EDKA1.GetAt(2).PARTN = "9002617000009" Set E1EDKA1 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDKA1).%New() Do ORDERS05.IDOC.E1EDKA1.Insert(E1EDKA1) - Set ORDERS05.IDOC.E1EDKA1.GetAt(3).PARVW = "AG" - Set ORDERS05.IDOC.E1EDKA1.GetAt(3).PARTN = "212250" - Set ORDERS05.IDOC.E1EDKA1.GetAt(3).LIFNR = "5415001000006" + Set ORDERS05.IDOC.E1EDKA1.GetAt(3).PARVW = "AG" + Set ORDERS05.IDOC.E1EDKA1.GetAt(3).PARTN = "212250" + Set ORDERS05.IDOC.E1EDKA1.GetAt(3).LIFNR = "5415001000006" - Set ORDERS05.IDOC.E1EDK02.QUALF = "001" - Set ORDERS05.IDOC.E1EDK02.BELNR = "277788" + Set ORDERS05.IDOC.E1EDK02.QUALF = "001" + Set ORDERS05.IDOC.E1EDK02.BELNR = "277788" #dim E1EDP01 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01).%New() Do ORDERS05.IDOC.E1EDP01.Insert(E1EDP01) - Set ORDERS05.IDOC.E1EDP01.GetAt(1).POSEX = "01" - Set ORDERS05.IDOC.E1EDP01.GetAt(1).MENGE = "500" - Set ORDERS05.IDOC.E1EDP01.GetAt(1).MENEE = "PCE" + Set ORDERS05.IDOC.E1EDP01.GetAt(1).POSEX = "01" + Set ORDERS05.IDOC.E1EDP01.GetAt(1).MENGE = "500" + Set ORDERS05.IDOC.E1EDP01.GetAt(1).MENEE = "PCE" #dim E1EDP02 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP02 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP02).%New() Do ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.Insert(E1EDP02) - Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).QUALF = "001" - Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).BELNR = "277788" - Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).ZEILE = "01" + Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).QUALF = "001" + Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).BELNR = "277788" + Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).ZEILE = "01" #dim E1EDP20 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP20 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP20).%New() Do ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP20.Insert(E1EDP20) - Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP20.GetAt(1).WMENG = "500" - Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP20.GetAt(1).EDATU = "20160106" - Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP19.QUALF = "002" - Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP19.IDTNR = "09002253" + Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP20.GetAt(1).WMENG = "500" + Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP20.GetAt(1).EDATU = "20160106" + #dim E1EDP19 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP19 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP19).%New() + Do ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP19.Insert(E1EDP19) + Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP19.GetAt(1).QUALF = "002" + Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP19.GetAt(1).IDTNR = "09002253" Set E1EDP01 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP01).%New() Do ORDERS05.IDOC.E1EDP01.Insert(E1EDP01) - Set ORDERS05.IDOC.E1EDP01.GetAt(2).POSEX = "44" - Set ORDERS05.IDOC.E1EDP01.GetAt(2).MENGE = "5" - Set ORDERS05.IDOC.E1EDP01.GetAt(2).MENEE = "PCE" + Set ORDERS05.IDOC.E1EDP01.GetAt(2).POSEX = "44" + Set ORDERS05.IDOC.E1EDP01.GetAt(2).MENGE = "5" + Set ORDERS05.IDOC.E1EDP01.GetAt(2).MENEE = "PCE" Set E1EDP02 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP02).%New() Do ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.Insert(E1EDP02) - Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(1).QUALF = "001" - Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(1).BELNR = "277788" - Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(1).ZEILE = "44" + Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(1).QUALF = "001" + Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(1).BELNR = "277788" + Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP02.GetAt(1).ZEILE = "44" Set E1EDP20 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP20).%New() Do ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP20.Insert(E1EDP20) - Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP20.GetAt(1).WMENG = "5" - Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP20.GetAt(1).EDATU = "20160106" - Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP19.QUALF = "002" - Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP19.IDTNR = "03695500" + Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP20.GetAt(1).WMENG = "5" + Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP20.GetAt(1).EDATU = "20160106" + Set E1EDP19 = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP19).%New() + Do ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP19.Insert(E1EDP19) + Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP19.GetAt(1).QUALF = "002" + Set ORDERS05.IDOC.E1EDP01.GetAt(2).E1EDP19.GetAt(1).IDTNR = "03695500" Quit ORDERS05 ]]> Index: APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDP01.cls.xml =================================================================== diff -u -r35371 -r35381 --- APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDP01.cls.xml (.../E1EDP01.cls.xml) (revision 35371) +++ APPS/EDIExport/AankoopOrderResponse/BLUM/XML/E1EDP01.cls.xml (.../E1EDP01.cls.xml) (revision 35381) @@ -68,8 +68,10 @@ APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP19 +list 1 +