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 + +