Index: vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/XmlImport/Alpnach.xml =================================================================== diff -u -r32533 -r32535 --- vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/XmlImport/Alpnach.xml (.../Alpnach.xml) (revision 32533) +++ vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/XmlImport/Alpnach.xml (.../Alpnach.xml) (revision 32535) @@ -1,7 +1,8 @@ - EDI000001 + CommissieReferentie + KlantOrderNummer OrderReferentie 01/01/2020 Index: APPS/EC/impl/ExterneVerkoopService.cls.xml =================================================================== diff -u -r32319 -r32535 --- APPS/EC/impl/ExterneVerkoopService.cls.xml (.../ExterneVerkoopService.cls.xml) (revision 32319) +++ APPS/EC/impl/ExterneVerkoopService.cls.xml (.../ExterneVerkoopService.cls.xml) (revision 32535) @@ -211,6 +211,7 @@ Set Offerte.BestelOpmerking = ..GeefOpgekuisteTekst(Hoofding.BestelOpmerking) Set Offerte.DocumentReferenties.OrderReferentie = ..GeefOpgekuisteTekst(Hoofding.Referentie.OrderReferentie) + Set Offerte.DocumentReferenties.KlantOrderNummer = ..GeefOpgekuisteTekst(Hoofding.Referentie.KlantOrderNummer) Set Offerte.DocumentReferenties.CommissieReferentie = ..GeefOpgekuisteTekst(Hoofding.Referentie.CommissieReferentie) Do Offerte.Save() Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/EXT.Unishop.PurchaseOrderService001.Service.txt =================================================================== diff -u -r32534 -r32535 --- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/EXT.Unishop.PurchaseOrderService001.Service.txt (.../EXT.Unishop.PurchaseOrderService001.Service.txt) (revision 32534) +++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/EXT.Unishop.PurchaseOrderService001.Service.txt (.../EXT.Unishop.PurchaseOrderService001.Service.txt) (revision 32535) @@ -26,6 +26,7 @@ + Index: vhTest/Integratie/Unishop/PurchaseOrderService001/Service/Test.cls.xml =================================================================== diff -u -r32533 -r32535 --- vhTest/Integratie/Unishop/PurchaseOrderService001/Service/Test.cls.xml (.../Test.cls.xml) (revision 32533) +++ vhTest/Integratie/Unishop/PurchaseOrderService001/Service/Test.cls.xml (.../Test.cls.xml) (revision 32535) @@ -96,7 +96,8 @@ set Request.Merkteken = "3}Z7Mb-(8aP*P/[]" set Request.Order.OrderReferentie = "OrderReferentie" - set Request.Order.EdiNummer = "EDI000001" + set Request.Order.KlantOrderNummer = "KlantOrderNummer" + set Request.Order.CommissieReferentie = "CommissieReferentie" set Request.Order.GevraagdeLeverdatum = "01/01/2020" set Lijn = ##class(EXT.Unishop.PurchaseOrderService001.CreateOrder.OrderLijn).%New() Index: vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/XmlExport/Offerte.xml =================================================================== diff -u -r32533 -r32535 --- vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/XmlExport/Offerte.xml (.../Offerte.xml) (revision 32533) +++ vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/XmlExport/Offerte.xml (.../Offerte.xml) (revision 32535) @@ -4,7 +4,8 @@ OrderReferentie - EDI000001 + CommissieReferentie + KlantOrderNummer 01/01/2020 @@ -117,7 +118,8 @@ OrderReferentie - EDI000001, Alpnach Norm - Schrankelemente AG (147432/83723/2402) + CommissieReferentie, Alpnach Norm - Schrankelemente AG (147432/83723/2402) + KlantOrderNummer Index: APPS/EDI/Bestel/BestelService/PlaatsBestelling/Order.cls.xml =================================================================== diff -u -r32215 -r32535 --- APPS/EDI/Bestel/BestelService/PlaatsBestelling/Order.cls.xml (.../Order.cls.xml) (revision 32215) +++ APPS/EDI/Bestel/BestelService/PlaatsBestelling/Order.cls.xml (.../Order.cls.xml) (revision 32535) @@ -7,14 +7,18 @@ PurchaseOrder - + TECH.String TECH.String + +TECH.String + + Datumformaat is YYYY.MM.DD @@ -34,6 +38,32 @@ list 1 + + +%Library.CacheSerialState +OrderState + +"Order" + +KlantOrderNummer + + +OrderReferentie + + +GevraagdeLeverdatum + + +Aankoper + + +Verkoper + + +Lijnen + + + Index: vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/XmlExport/DoorbesteldeOfferte.xml =================================================================== diff -u -r32533 -r32535 --- vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/XmlExport/DoorbesteldeOfferte.xml (.../DoorbesteldeOfferte.xml) (revision 32533) +++ vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/XmlExport/DoorbesteldeOfferte.xml (.../DoorbesteldeOfferte.xml) (revision 32535) @@ -4,7 +4,8 @@ OrderReferentie - EDI000001, Alpnach Norm - Schrankelemente AG (147432/83723/2402) + CommissieReferentie, Alpnach Norm - Schrankelemente AG (147432/83723/2402) + KlantOrderNummer Index: APPS/EDI/Bestel/impl/BestelService.cls.xml =================================================================== diff -u -r32480 -r32535 --- APPS/EDI/Bestel/impl/BestelService.cls.xml (.../BestelService.cls.xml) (revision 32480) +++ APPS/EDI/Bestel/impl/BestelService.cls.xml (.../BestelService.cls.xml) (revision 32535) @@ -63,7 +63,8 @@ Index: APPS/EC/impl/ExterneVerkoopService/OfferteHerberekening.cls.xml =================================================================== diff -u -r29059 -r32535 --- APPS/EC/impl/ExterneVerkoopService/OfferteHerberekening.cls.xml (.../OfferteHerberekening.cls.xml) (revision 29059) +++ APPS/EC/impl/ExterneVerkoopService/OfferteHerberekening.cls.xml (.../OfferteHerberekening.cls.xml) (revision 32535) @@ -148,6 +148,7 @@ Set Hoofding.Referentie = ##class(APPS.VKP.dto.DocumentReferenties).%New() Set Hoofding.Referentie.OrderReferentie = Offerte.DocumentReferenties.OrderReferentie Set Hoofding.Referentie.CommissieReferentie = Offerte.DocumentReferenties.CommissieReferentie + Set Hoofding.Referentie.KlantOrderNummer = Offerte.DocumentReferenties.KlantOrderNummer Set Hoofding.LeveringDetail = ##class(APPS.EC.dto.LeveringDetail).%New() If ($isObject(Offerte.GeefLeverAdres())) { Index: vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/Service/DoorbesteldeOfferte.xml =================================================================== diff -u -r32532 -r32535 --- vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/Service/DoorbesteldeOfferte.xml (.../DoorbesteldeOfferte.xml) (revision 32532) +++ vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/Service/DoorbesteldeOfferte.xml (.../DoorbesteldeOfferte.xml) (revision 32535) @@ -4,7 +4,8 @@ OrderReferentie - EDI000001, Alpnach Norm - Schrankelemente AG (147432/83723/2402) + CommissieReferentie, Alpnach Norm - Schrankelemente AG (147432/83723/2402) + KlantOrderNummer Index: EXT/Unishop/PurchaseOrderService001/CreateOrder/Order.cls.xml =================================================================== diff -u -r32274 -r32535 --- EXT/Unishop/PurchaseOrderService001/CreateOrder/Order.cls.xml (.../Order.cls.xml) (revision 32274) +++ EXT/Unishop/PurchaseOrderService001/CreateOrder/Order.cls.xml (.../Order.cls.xml) (revision 32535) @@ -11,7 +11,7 @@ PurchaseOrder - + TECH.String @@ -21,6 +21,11 @@ + +TECH.String + + + Datumformaat is YYYY.MM.DD @@ -54,7 +59,7 @@ "Order" -EdiNummer +KlantOrderNummer OrderReferentie @@ -71,6 +76,9 @@ Lijnen + +CommissieReferentie + Index: vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/Service/Offerte.xml =================================================================== diff -u -r32532 -r32535 --- vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/Service/Offerte.xml (.../Offerte.xml) (revision 32532) +++ vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service/Test/Service/Offerte.xml (.../Offerte.xml) (revision 32535) @@ -4,7 +4,8 @@ OrderReferentie - EDI000001 + CommissieReferentie + KlantOrderNummer 01/01/2020 @@ -117,7 +118,8 @@ OrderReferentie - EDI000001, Alpnach Norm - Schrankelemente AG (147432/83723/2402) + CommissieReferentie, Alpnach Norm - Schrankelemente AG (147432/83723/2402) + KlantOrderNummer