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
+