Index: AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml
===================================================================
diff -u -r45511 -r45517
--- AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml (.../InventoryInConverter.cls.xml) (revision 45511)
+++ AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter.cls.xml (.../InventoryInConverter.cls.xml) (revision 45517)
@@ -34,8 +34,13 @@
1
+
+AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter
+1
+
+
-DateTimeAPI:TECH.DateTime.DateTimeAPI,ToeleveringAPI:DOM.AKP.ToeleveringAPI,ProductLookup:AXimpl.Dynamics.SalesOrderIn.Converter.ProductBepaler,ReceptieService:APPS.AKP.Receptie.impl.ReceptieService,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI
+DateTimeAPI:TECH.DateTime.DateTimeAPI,ToeleveringAPI:DOM.AKP.ToeleveringAPI,ProductLookup:AXimpl.Dynamics.SalesOrderIn.Converter.ProductBepaler,ReceptieService:APPS.AKP.Receptie.impl.ReceptieService,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,InventoryOutConverter:AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter
1
1
%Status
@@ -47,6 +52,7 @@
Set ..ToeleveringArray = ##class(%ArrayOfDataTypes).%New()
Set ..ReceptieService = $$$Inject(ReceptieService,##class(APPS.AKP.Receptie.impl.ReceptieService).%New())
Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI,##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
+ Set ..InventoryOutConverter = $$$Inject(InventoryOutConverter,##class(AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New())
Quit $$$OK
]]>
@@ -58,7 +64,7 @@
Do ..MaakToeleveringen(WMSJournalOutRequest)
Do ..MaakRecepties()
- Quit ..GeefResponse(WMSJournalOutRequest)
+ Quit ..GeefResponse(WMSJournalOutRequest,MessageId)
]]>
@@ -159,12 +165,34 @@
-WMSJournalOutRequest:AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut
+WMSJournalOutRequest:AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut,MessageId:%String
1
AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery
Index: vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter/Test.cls.xml
===================================================================
diff -u -r45170 -r45517
--- vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter/Test.cls.xml (.../Test.cls.xml) (revision 45170)
+++ vhUnitTest/AXimpl/Dynamics/InventoryIn/Converter/InventoryInConverter/Test.cls.xml (.../Test.cls.xml) (revision 45517)
@@ -25,8 +25,13 @@
Set ReceptieServiceMock = ##class(vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService).%New()
Set ListMatcher = ##class(Tools.Mock.ArgumentMatchers.ListMatcher).%New(ProductLijnen)
Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","1234","1",ListMatcher ,64524.57298,"BestelBevestigingNr").DanReturn("RcpNummer")
+
+ Set RequestInventoryOut = ##class(AXimpl.Request).%New("Inventory/Update", "4321")
+ #dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(2)
+ Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
+ Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
- Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,LegacyPartijAPIMock)
+ Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,LegacyPartijAPIMock,InventoryOutConverterStub)
#dim response As AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery = Converter.Convert(..GeefJournal(),"MessageID")
Do DateTimeAPIMock.Verifieer()
@@ -62,8 +67,13 @@
Set ReceptieServiceMock = ##class(vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService).%New()
Set ListMatcher = ##class(Tools.Mock.ArgumentMatchers.ListMatcher).%New(ProductLijnen)
Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","1234","1",ListMatcher ,64524.57298,"BestelBevestigingNr").DanReturn("RcpNummer")
+
+ Set RequestInventoryOut = ##class(AXimpl.Request).%New("Inventory/Update", "4321,8765")
+ #dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(2)
+ Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
+ Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
- Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,LegacyPartijAPIMock)
+ Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,LegacyPartijAPIMock,InventoryOutConverterStub)
#dim response As AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery = Converter.Convert(..GeefJournal2LijnenZelfdeLeverancier(),"MessageID")
Do DateTimeAPIMock.Verifieer()
@@ -107,8 +117,13 @@
Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","1234","1",ListMatcher1 ,64524.57298,"BestelBevestigingNr").DanReturn("RcpNummer")
Set ListMatcher2 = ##class(Tools.Mock.ArgumentMatchers.ListMatcher).%New(ProductLijnen2)
Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","5678","1",ListMatcher2 ,64524.57298,"BestelBevestigingNr").DanReturn("RcpNummer")
+
+ Set RequestInventoryOut = ##class(AXimpl.Request).%New("Inventory/Update", "4321,8765")
+ #dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(2)
+ Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
+ Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
- Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,LegacyPartijAPIMock)
+ Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,LegacyPartijAPIMock,InventoryOutConverterStub)
#dim response As AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery = Converter.Convert(..GeefJournal2LijnenVerschillendeLeverancier(),"MessageID")
Do DateTimeAPIMock.Verifieer()
@@ -170,17 +185,22 @@
Set ReceptieServiceMock = ##class(vhTest.Mock.APPS.AKP.Receptie.impl.ReceptieService).%New()
Set ListMatcher = ##class(Tools.Mock.ArgumentMatchers.ListMatcher).%New(ProductLijnen)
Do ReceptieServiceMock.VerwachtMethodCall("MaakReceptieVoorToelevering","1234","1",ListMatcher,64524.57298,"BestelBevestigingNr").DanReturn("RcpNummer")
-
- Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,LegacyPartijAPIMock)
+
+ Set RequestInventoryOut = ##class(AXimpl.Request).%New("Inventory/Update", "4321")
+ #dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(1)
+ Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New()
+ Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.DataTransferObject(RequestInventoryOut),"MessageID").DanReturn(Antwoord)
+
+ Set Converter = ##class(AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter).%New(DateTimeAPIMock,ToeleveringAPIMock,ProductLookupMock,ReceptieServiceMock,LegacyPartijAPIMock,InventoryOutConverterStub)
#dim response As AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery = Converter.Convert(..GeefJournal(),"MessageID")
- Do DateTimeAPIMock.Verifieer()
+ Do DateTimeAPIMock.Verifieer()
+ Do LegacyPartijAPIMock.Verifieer()
+ Do ToeleveringLijnMock.Verifieer()
+ Do ToeleveringMock.Verifieer()
Do ToeleveringAPIMock.Verifieer()
Do ProductLookupMock.Verifieer()
- Do ToeleveringMock.Verifieer()
- Do ToeleveringLijnMock.Verifieer()
Do ReceptieServiceMock.Verifieer()
- Do LegacyPartijAPIMock.Verifieer()
]]>
@@ -258,6 +278,27 @@
quit Journal
]]>
+
+
+AantalInventSync:%Integer
+1
+AXif.Dynamics.Inventory.MessageParts
+
+