Index: vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml
===================================================================
diff -u -r35402 -r35597
--- vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml (.../ORDERS05.cls.xml) (revision 35402)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/XML/ORDERS05.cls.xml (.../ORDERS05.cls.xml) (revision 35597)
@@ -68,8 +68,14 @@
#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.01"
+ Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).BELNR = "277788"
Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).ZEILE = "01"
+
+ Set 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 = "ZON"
+ Set ORDERS05.IDOC.E1EDP01.GetAt(1).E1EDP02.GetAt(1).BELNR = "277788.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"
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35454 -r35597
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml (.../Converteerder.cls.xml) (revision 35454)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml (.../Converteerder.cls.xml) (revision 35597)
@@ -152,7 +152,7 @@
While E1EDP02Iterator.HasNext()
{
#dim E1EDP02 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.E1EDP02 = E1EDP02Iterator.Next()
- Set:(E1EDP02.QUALF="001") ToeleveringDetail.OrderLineIdentificationCustomer = E1EDP02.BELNR ;_"." _E1EDP02.ZEILE _" "
+ Set:(E1EDP02.QUALF="ZON") ToeleveringDetail.OrderLineIdentificationCustomer = E1EDP02.BELNR ;_"." _E1EDP02.ZEILE _" "
}
]]>
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/XML/EDIDC40.cls.xml
===================================================================
diff -u -r35371 -r35597
--- APPS/EDIExport/AankoopOrderResponse/BLUM/XML/EDIDC40.cls.xml (.../EDIDC40.cls.xml) (revision 35371)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/XML/EDIDC40.cls.xml (.../EDIDC40.cls.xml) (revision 35597)
@@ -102,6 +102,11 @@
+
+%String
+
+
+
%String
1
@@ -123,6 +128,12 @@
+
+%String
+
+
+
+
%xsd.int
1
@@ -187,30 +198,36 @@
SNDPRT
-SNDPFC
+SNDLAD
-SNDPRN
+SNDPFC
-RCVPOR
+SNDPRN
-RCVPRT
+RCVPOR
-RCVPRN
+RCVPRT
-CREDAT
+RCVPRN
-CRETIM
+RCVLAD
-SERIAL
+CREDAT
+CRETIM
+
+
+SERIAL
+
+
SEGMENT