Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml =================================================================== diff -u -r47189 -r47190 --- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 47189) +++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 47190) @@ -57,17 +57,17 @@ Set VerkoopApiMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() Do VerkoopApiMock.IndienMethodCall("BestaatKlant","K||1111").DanReturn($$$True) - #dim Partij As DOM.PARTIJ.Partij = ##class(vhTest.Fake.DOM.PARTIJ.Partij).%New() + #dim FakePartij As DOM.PARTIJ.Partij = ##class(vhTest.Fake.DOM.PARTIJ.Partij).%New() Set PartijApiMock = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New() - Do PartijApiMock.IndienMethodCall("GeefPartij","K||1111").DanReturn(Partij) + Do PartijApiMock.IndienMethodCall("GeefPartij","K||1111").DanReturn(FakePartij) Set ..VerkoopApi = VerkoopApiMock Set ..PartijApi = PartijApiMock - Do $$$AssertEquals(Partij.GeefTaal(),"N") + Do $$$AssertEquals(FakePartij.GeefTaal(),"N") Do ..GeefConverter().Convert(..GeefBerichtMetEenKlant()) - Do $$$AssertEquals(Partij.GeefTaal(),"F") + Do $$$AssertEquals(FakePartij.GeefTaal(),"F") ]]> @@ -76,20 +76,42 @@ Set VerkoopApiMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() Do VerkoopApiMock.IndienMethodCall("BestaatKlant","K||1111").DanReturn($$$True) - #dim Partij As DOM.PARTIJ.Partij = ##class(vhTest.Fake.DOM.PARTIJ.Partij).%New() + #dim FakePartij As DOM.PARTIJ.Partij = ##class(vhTest.Fake.DOM.PARTIJ.Partij).%New() Set PartijApiMock = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New() - Do PartijApiMock.IndienMethodCall("GeefPartij","K||1111").DanReturn(Partij) + Do PartijApiMock.IndienMethodCall("GeefPartij","K||1111").DanReturn(FakePartij) Set ..VerkoopApi = VerkoopApiMock Set ..PartijApi = PartijApiMock - Do $$$AssertEquals(Partij.GeefBTWNr(),"BE0402775276") + Do $$$AssertEquals(FakePartij.GeefBTWNr(),"BE0402775276") Do ..GeefConverter().Convert(..GeefBerichtMetEenKlant()) - Do $$$AssertEquals(Partij.GeefBTWNr(),"BE0123456789") + Do $$$AssertEquals(FakePartij.GeefBTWNr(),"BE0123456789") ]]> + + + + 1 AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter Index: vhTest/Fake/DOM/PARTIJ/Partij.cls.xml =================================================================== diff -u -r47188 -r47190 --- vhTest/Fake/DOM/PARTIJ/Partij.cls.xml (.../Partij.cls.xml) (revision 47188) +++ vhTest/Fake/DOM/PARTIJ/Partij.cls.xml (.../Partij.cls.xml) (revision 47190) @@ -97,6 +97,12 @@ ]]> + +%Status + + + %String + +%Status + + + DOM.VKP.LeverAdres