Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml =================================================================== diff -u -r35426 -r35428 --- APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml (.../Converteerder.cls.xml) (revision 35426) +++ APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml (.../Converteerder.cls.xml) (revision 35428) @@ -136,10 +136,11 @@ Set E1EDP01.VPREI = ((E1EDP01.MENGE * E1EDP01.NETWR) / E1EDP01.PEINH ) Set E1EDP01.PREIS = ToeleveringDetail.ProductData.BrutoAankoopPrijs - Set E1EDP01.E1EDP03.SEGMENT = "1" - Set E1EDP01.E1EDP03.IDDAT = "002" ; (expected delivery date) - Set E1EDP01.E1EDP03.DATUM = "20" _ToeleveringDetail.DeliveryDateAxBUA ; Delivery date - + Set E1EDP01.E1EDP20.SEGMENT = "1" + Set E1EDP01.E1EDP20.EDATU = "20" _ToeleveringDetail.DeliveryDateAxBUA ; Delivery date + Set E1EDP01.E1EDP20.AMENG = "0.000" + Set E1EDP01.E1EDP20.WMENG = ToeleveringDetail.OrderQuantity + Do ..VoegToeE1EDP19(E1EDP01, ToeleveringDetail) Do ORDERS05.IDOC.E1EDP01.Insert(E1EDP01) Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder/Converteer/Test.cls.xml =================================================================== diff -u -r35426 -r35428 --- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 35426) +++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder/Converteer/Test.cls.xml (.../Test.cls.xml) (revision 35428) @@ -72,9 +72,10 @@ Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).VPREI, ((1000 * 6.96) / 100) ) Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).PREIS, 90.25) - Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).E1EDP03.SEGMENT, "1") - Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).E1EDP03.IDDAT, "002") - Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).E1EDP03.DATUM, "20160612") + Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).E1EDP20.SEGMENT, "1") + Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).E1EDP20.WMENG, "1000") + Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).E1EDP20.AMENG, "0.000") + Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).E1EDP20.EDATU, "20160612") Do $$$AssertEquals(ORDERS05Result.IDOC.E1EDP01.GetAt(1).E1EDP19.Count(), 3) Index: APPS/EDIExport/AankoopOrder/BLUM/XML/IDOC.cls.xml =================================================================== diff -u -r35090 -r35428 --- APPS/EDIExport/AankoopOrder/BLUM/XML/IDOC.cls.xml (.../IDOC.cls.xml) (revision 35090) +++ APPS/EDIExport/AankoopOrder/BLUM/XML/IDOC.cls.xml (.../IDOC.cls.xml) (revision 35428) @@ -117,6 +117,9 @@ E1EDKA1 + +E1EDP20 + Index: APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDP20.cls.xml =================================================================== diff -u --- APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDP20.cls.xml (revision 0) +++ APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDP20.cls.xml (revision 35428) @@ -0,0 +1,68 @@ + + + + +Created from: c:/temp/orders05response.xsd +serial + +1 +%SerialObject,%XML.Adaptor +right + + +E1EDP20 + + + +1 + + + +%xsd.int +1 + + + + +%String +1 + + + + +%String +1 + + + + +%xsd.int + + + + + +%Library.CacheSerialState +E1EDP20State +^APPS.EDIExport.AanE2DA.E1EDP20S + +listnode + + +WMENG + + +AMENG + + +EDATU + + +SEGMENT + + + + + + + Index: APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDP01.cls.xml =================================================================== diff -u -r35090 -r35428 --- APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDP01.cls.xml (.../E1EDP01.cls.xml) (revision 35090) +++ APPS/EDIExport/AankoopOrder/BLUM/XML/E1EDP01.cls.xml (.../E1EDP01.cls.xml) (revision 35428) @@ -85,6 +85,12 @@ + +APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP20 +1 + + + APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP19 list @@ -151,6 +157,9 @@ E1EDP19 + +E1EDP20 +