Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml =================================================================== diff -u -r45017 -r45022 --- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 45017) +++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/PickingCompleetConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 45022) @@ -10,12 +10,12 @@ do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer("01.05.2016") Set Request = ##class(AXimpl.Request).%New("PickingCompleet/Insert", UitleveringID) - Set RequestInventoryOut = ##class(AXimpl.Request).%New("InventoryOut/Update", $$$DummyInteger) + Set RequestInventoryOut = ##class(AXimpl.Request).%New("InventoryOut/Update", "abc1") #dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(1) Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New() - Do InventoryOutConverterStub.IndienMethodCall("Convert",RequestInventoryOut,$$$ElkeWaarde).DanReturn(Antwoord) + Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.Object(RequestInventoryOut),$$$ElkeWaarde).DanReturn(Antwoord) Set Bonlijnen = ##class(%ListOfObjects).%New() Do Bonlijnen.Insert(##class(vhTest.Utils.DOM.VKP.BonLijn).ProductLijn("abc",1)) @@ -27,7 +27,7 @@ Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() Do OrderApiStub.IndienMethodCall("GeefBon",UitleveringID,$$$ElkeWaarde).DanReturn(StandaardBon) - Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter).%New(InventoryOutConverterStub, RequestInventoryOut, OrderApiStub) + Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter).%New(InventoryOutConverterStub, OrderApiStub) #dim GUID As %String = "{7E53DAF1-A44A-49C7-B0D2-4534E9158C9A}" #dim Response As AXif.Dynamics.Inventory.MessageParts = Converter.Convert(Request,GUID) @@ -43,12 +43,12 @@ #dim UitleveringID = $$$DummyInteger Set Request = ##class(AXimpl.Request).%New("PickingCompleet/Insert", UitleveringID) - Set RequestInventoryOut = ##class(AXimpl.Request).%New("InventoryOut/Update", $$$DummyInteger) + Set RequestInventoryOut = ##class(AXimpl.Request).%New("InventoryOut/Update", "abc1") #dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(2) Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New() - Do InventoryOutConverterStub.IndienMethodCall("Convert",RequestInventoryOut,$$$ElkeWaarde).DanReturn(Antwoord) + Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.Object(RequestInventoryOut),$$$ElkeWaarde).DanReturn(Antwoord) Set Bonlijnen = ##class(%ListOfObjects).%New() Do Bonlijnen.Insert(##class(vhTest.Utils.DOM.VKP.BonLijn).ProductLijn("abc",1)) @@ -60,7 +60,7 @@ Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() Do OrderApiStub.IndienMethodCall("GeefBon",UitleveringID,$$$ElkeWaarde).DanReturn(StandaardBon) - Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter).%New(InventoryOutConverterStub, RequestInventoryOut, OrderApiStub) + Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter).%New(InventoryOutConverterStub, OrderApiStub) #dim GUID As %String = "{7E53DAF1-A44A-49C7-B0D2-4534E9158C9A}" #dim Response As AXif.Dynamics.Inventory.MessageParts = Converter.Convert(Request,GUID) @@ -80,7 +80,7 @@ #dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(0) Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New() - Do InventoryOutConverterStub.IndienMethodCall("Convert",RequestInventoryOut,$$$ElkeWaarde).DanReturn(Antwoord) + Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.Object(RequestInventoryOut),$$$ElkeWaarde).DanReturn(Antwoord) Set Bonlijnen = ##class(%ListOfObjects).%New() @@ -91,7 +91,7 @@ Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() Do OrderApiStub.IndienMethodCall("GeefBon",UitleveringID,$$$ElkeWaarde).DanReturn(StandaardBon) - Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter).%New(InventoryOutConverterStub, RequestInventoryOut, OrderApiStub) + Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter).%New(InventoryOutConverterStub, OrderApiStub) #dim GUID As %String = "{7E53DAF1-A44A-49C7-B0D2-4534E9158C9A}" #dim Response As AXif.Dynamics.Inventory.MessageParts = Converter.Convert(Request,GUID) @@ -106,12 +106,12 @@ #dim UitleveringID = $$$DummyInteger Set Request = ##class(AXimpl.Request).%New("PickingCompleet/Insert", UitleveringID) - Set RequestInventoryOut = ##class(AXimpl.Request).%New("InventoryOut/Update", $$$DummyInteger) + Set RequestInventoryOut = ##class(AXimpl.Request).%New("InventoryOut/Update", "abc1,def2") #dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(2) Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New() - Do InventoryOutConverterStub.IndienMethodCall("Convert",RequestInventoryOut,$$$ElkeWaarde).DanReturn(Antwoord) + Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.Object(RequestInventoryOut),$$$ElkeWaarde).DanReturn(Antwoord) Set Bonlijnen = ##class(%ListOfObjects).%New() Do Bonlijnen.Insert(##class(vhTest.Utils.DOM.VKP.BonLijn).ProductLijn("abc",1)) @@ -124,7 +124,7 @@ Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() Do OrderApiStub.IndienMethodCall("GeefBon",UitleveringID,$$$ElkeWaarde).DanReturn(StandaardBon) - Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter).%New(InventoryOutConverterStub, RequestInventoryOut, OrderApiStub) + Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter).%New(InventoryOutConverterStub, OrderApiStub) #dim GUID As %String = "{7E53DAF1-A44A-49C7-B0D2-4534E9158C9A}" #dim Response As AXif.Dynamics.Inventory.MessageParts = Converter.Convert(Request,GUID) @@ -144,7 +144,7 @@ #dim Antwoord As AXif.Dynamics.Inventory.MessageParts = ..MaakInventSyncAntwoord(2) Set InventoryOutConverterStub = ##class(vhTest.Mock.AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter).%New() - Do InventoryOutConverterStub.IndienMethodCall("Convert",RequestInventoryOut,$$$ElkeWaarde).DanException($$$DummyException) + Do InventoryOutConverterStub.IndienMethodCall("Convert",..Matches.Object(RequestInventoryOut),$$$ElkeWaarde).DanException($$$DummyException) Set Bonlijnen = ##class(%ListOfObjects).%New() Do Bonlijnen.Insert(##class(vhTest.Utils.DOM.VKP.BonLijn).ProductLijn("abc",1)) @@ -157,7 +157,7 @@ Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() Do OrderApiStub.IndienMethodCall("GeefBon",UitleveringID,$$$ElkeWaarde).DanReturn(StandaardBon) - Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter).%New(InventoryOutConverterStub, RequestInventoryOut, OrderApiStub) + Set Converter = ##class(AXimpl.Dynamics.InventoryOut.Converter.PickingCompleetConverter).%New(InventoryOutConverterStub, OrderApiStub) #dim GUID As %String = "{7E53DAF1-A44A-49C7-B0D2-4534E9158C9A}" #dim Response As AXif.Dynamics.Inventory.MessageParts = Converter.Convert(Request,GUID) @@ -169,6 +169,7 @@ AantalInventSync:%Integer +1 AXif.Dynamics.Inventory.MessageParts 1 - -AXimpl.Request -1 - - DOM.VKP.impl.DataM.DataMOrderAPI 1 -InventoryOutConverter:AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter,InventoryRequest:AXimpl.Request,DataMOrderApi:DOM.VKP.impl.DataM.DataMOrderAPI +InventoryOutConverter:AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter,DataMOrderApi:DOM.VKP.impl.DataM.DataMOrderAPI 1 1 %Status 1