Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r48504 -r48511
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 48504)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 48511)
@@ -215,6 +215,7 @@
Do:..IsReedsVerwerkteOrderlijn(OrderLine) OrderLijn.ZetToeleveringID("")
Do OrderLijn.ZetTekstVoorAfdrukDocumentType(..GeefTekstVoorLeverBon(OrderLine), ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
Do OrderLijn.ZetTekstVoorAfdrukDocumentType(..GeefTekstVoorToelevering(OrderLine), ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering())
+ Do OrderLijn.ZetTekstVoorAfdrukDocumentType(..GeefTekstVoorOrderBevestiging(OrderLine), ##class(DOM.VKP.enu.TekstAfdrukDocumentType).OrderBevestiging())
Do ..Logger.Debug("SalesOrderIn - Orderlijn updaten", "OrderLijn properties zijn gezet voor OrderLijnID '" _OrderLijn.GeefID() _"'")
]]>
@@ -242,6 +243,17 @@
]]>
+
+OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine
+1
+%String
+
+
+
OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine
1
@@ -529,8 +541,8 @@
Set DocumentReferenties = ..DocumentReferentiesRepository.Maak()
}
- Set DocumentReferenties.OrderReferentie = OrderHeader.CustomerRef
- Set DocumentReferenties.CommissieReferentie = OrderHeader.ConfirmBody
+ Set DocumentReferenties.OrderReferentie = OrderHeader.PurchOrderFormNum
+ Set DocumentReferenties.CommissieReferentie = OrderHeader.CustomerRef
Do ..DocumentReferentiesRepository.Bewaar(DocumentReferenties)
Do Order.ZetDocumentReferenties(DocumentReferenties)
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml
===================================================================
diff -u -r48493 -r48511
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 48493)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 48511)
@@ -69,8 +69,8 @@
Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, OrderLevenCyclusServiceMock, , ,DocumentReferentiesRepositoryMock, OrderLijnenSorteerderMock,, ..GeefToeleveringService(), ,,..GeefSalesOrderLineStatusRepository())
Do SalesOrderConverter.Convert(StandaardOrder)
- Do $$$AssertEquals("Mijn orderreferentie", OrderDocRef.OrderReferentie)
- Do $$$AssertEquals("Mijn commissiereferentie", OrderDocRef.CommissieReferentie)
+ Do $$$AssertEquals("PurchOrderFormNum", OrderDocRef.OrderReferentie)
+ Do $$$AssertEquals("CustomerRef", OrderDocRef.CommissieReferentie)
Do OrderAPIMock.Verifieer()
Do OrderLevenCyclusServiceMock.Verifieer()
@@ -98,6 +98,7 @@
Do ProductOrderlijnMock.VerwachtMethodCall("ZetAxConfigId", "").DanDoeNiks()
Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "PackingSlipBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon()).DanDoeNiks()
Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ProductionBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()).DanDoeNiks()
+ Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ConfirmBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).OrderBevestiging()).DanDoeNiks()
Set OrderLevenCyclusServiceMock = ##class(vhTest.Mock.APPS.VKP.OrderLevenCyclusService).%New()
Do OrderLevenCyclusServiceMock.IndienMethodCall("MaakOrderMetKlantGegevens", $$$ElkeWaarde,$$$ElkeWaarde).DanReturn(OrderMock)
@@ -136,6 +137,7 @@
Do ProductOrderlijnMock.VerwachtMethodCall("ZetAxMaatwerkGenerischItemId", "0.741.108.3").DanDoeNiks()
Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "PackingSlipBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon()).DanDoeNiks()
Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ProductionBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()).DanDoeNiks()
+ Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ConfirmBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).OrderBevestiging()).DanDoeNiks()
Set OrderLevenCyclusServiceMock = ##class(vhTest.Mock.APPS.VKP.OrderLevenCyclusService).%New()
Do OrderLevenCyclusServiceMock.IndienMethodCall("MaakOrderMetKlantGegevens", $$$ElkeWaarde,$$$ElkeWaarde).DanReturn(OrderMock)
@@ -176,6 +178,7 @@
Do ProductOrderlijnMock.VerwachtMethodCall("ZetAxConfigId", "").DanDoeNiks()
Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "PackingSlipBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon()).DanDoeNiks()
Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ProductionBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()).DanDoeNiks()
+ Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ConfirmBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).OrderBevestiging()).DanDoeNiks()
Set OrderLevenCyclusServiceMock = ##class(vhTest.Mock.APPS.VKP.OrderLevenCyclusService).%New()
Do OrderLevenCyclusServiceMock.IndienMethodCall("MaakOrderMetKlantGegevens", $$$ElkeWaarde,$$$ElkeWaarde).DanReturn(OrderMock)
@@ -274,6 +277,7 @@
Do ProductOrderlijnMock.IndienMethodCall("ZetTotaalNettoExclBTW", $$$ElkeWaarde).DanDoeNiks()
Do ProductOrderlijnMock.IndienMethodCall("ZetAxConfigId", $$$ElkeWaarde).DanDoeNiks()
+ Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ConfirmBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).OrderBevestiging()).DanDoeNiks()
Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "PackingSlipBodyTekst", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon()).DanDoeNiks()
Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ProductionBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()).DanDoeNiks()
Do ProductOrderlijnMock.VerwachtMethodCall("ZetToeleveringLijnNr", "KOM").DanDoeNiks()
@@ -346,6 +350,7 @@
Do ProductOrderlijnMock.VerwachtMethodCall("ZetAxConfigId", "").DanDoeNiks()
Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "PackingSlipBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon()).DanDoeNiks()
Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ProductionBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()).DanDoeNiks()
+ Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ConfirmBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).OrderBevestiging()).DanDoeNiks()
Set OrderLevenCyclusServiceMock = ##class(vhTest.Mock.APPS.VKP.OrderLevenCyclusService).%New()
Do OrderLevenCyclusServiceMock.IndienMethodCall("MaakOrderMetKlantGegevens", $$$ElkeWaarde,$$$ElkeWaarde).DanReturn(OrderMock)
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml
===================================================================
diff -u -r48496 -r48511
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml (.../TestUpdate.cls.xml) (revision 48496)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml (.../TestUpdate.cls.xml) (revision 48511)
@@ -46,7 +46,7 @@
Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, , , ,DocumentReferentiesRepositoryMock, ..GeefOrderLijnenSorteerder(),,..GeefToeleveringService(),,,..GeefSalesOrderLineStatusRepository())
Do SalesOrderConverter.Convert(StandaardOrder)
- Do $$$AssertEquals("Mijn orderreferentie", OrderDocRef.OrderReferentie)
+ Do $$$AssertEquals("PurchOrderFormNum", OrderDocRef.OrderReferentie)
Do OrderAPIMock.Verifieer()
Do OrderMock.Verifieer()
@@ -70,6 +70,7 @@
Do ProductOrderlijnMock.VerwachtMethodCall("ZetAantal",10).DanDoeNiks()
Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "PackingSlipBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon()).DanDoeNiks()
Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ProductionBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()).DanDoeNiks()
+ Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ConfirmBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).OrderBevestiging()).DanDoeNiks()
#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder()
Index: vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml
===================================================================
diff -u -r48493 -r48511
--- vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml (.../Envelope.cls.xml) (revision 48493)
+++ vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml (.../Envelope.cls.xml) (revision 48511)
@@ -16,7 +16,7 @@
Set OrderHeader.DlvAddrStreet1 = "Ankerstraat 91"
Set OrderHeader.DlvAddrCountry = "1019"
Set OrderHeader.DeliveryName = "Een Belg"
- Set OrderHeader.CustomerRef = "Mijn orderreferentie"
+ Set OrderHeader.CustomerRef = "CustomerRef"
Set OrderHeader.CreatedDateTimeHeader = ##class(AXif.Dynamics.SalesOrderIn.MessageParts.AxdExtTypeCreatedDateTime).%New()
Set OrderHeader.CreatedDateTimeHeader.content = ##class(TECH.DateTime).HorologToTimeStamp("64482,43844")
Set OrderHeader.CurrencyCode = "EUR"
@@ -27,7 +27,8 @@
Set OrderHeader.NameCustResponsible = "Marieke Van Hoof"
Set OrderHeader.ProductionBody = "ProductionBody"
Set OrderHeader.PackingSlipBody = "PackingSlipBody"
- Set OrderHeader.ConfirmBody = "Mijn commissiereferentie"
+ Set OrderHeader.ConfirmBody = "ConfirmBody"
+ Set OrderHeader.PurchOrderFormNum = "PurchOrderFormNum"
Set OrderHeader.LocationId = "1234"
Do StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.Insert(OrderHeader)
@@ -51,6 +52,7 @@
Set AxdEntityOrderLine.ReceiptDateConfirmed = $$INTDATE^vhLib.DataTypes("19-07-2017")
Set AxdEntityOrderLine.PackingSlipBody = "PackingSlipBody"
Set AxdEntityOrderLine.ProductionBody = "ProductionBody"
+ Set AxdEntityOrderLine.ConfirmBody = "ConfirmBody"
Do OrderHeader.OrderLine.Insert(AxdEntityOrderLine)
@@ -75,6 +77,7 @@
Set AxdEntityOrderLine.ReceiptDateConfirmed = $$INTDATE^vhLib.DataTypes("19-07-2017")
Set AxdEntityOrderLine.PackingSlipBody = "PackingSlipBody"
Set AxdEntityOrderLine.ProductionBody = "ProductionBody"
+ Set AxdEntityOrderLine.ConfirmBody = "ConfirmBody"
Set AxdEntityAttribute = ##class(AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityAttribute).%New()
Set AxdEntityAttribute.Name = "AdminProductNummer"
@@ -105,6 +108,7 @@
Set AxdEntityOrderLine.ReceiptDateConfirmed = $$INTDATE^vhLib.DataTypes("19-07-2017")
Set AxdEntityOrderLine.PackingSlipBody = "PackingSlipBody"
Set AxdEntityOrderLine.ProductionBody = "ProductionBody"
+ Set AxdEntityOrderLine.ConfirmBody = "ConfirmBody"
Set AxdEntityOrderLine.SOPRContractId = "SOPRContractId"
Do OrderHeader.OrderLine.Insert(AxdEntityOrderLine)