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