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
+