Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml =================================================================== diff -u -r50118 -r50119 --- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 50118) +++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 50119) @@ -54,6 +54,7 @@ Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks() Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks() + Do KlantMock.VerwachtMethodCall("ZetBTWRegime","2486").DanDoeNiks() Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks() Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres()) @@ -87,6 +88,7 @@ Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks() Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks() + Do KlantMock.VerwachtMethodCall("ZetBTWRegime","2486").DanDoeNiks() Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks() #dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New() @@ -122,6 +124,7 @@ Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks() Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks() + Do KlantMock.VerwachtMethodCall("ZetBTWRegime","2486").DanDoeNiks() Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks() Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres()) @@ -235,6 +238,7 @@ DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock) Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks() Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks() + Do KlantMock.VerwachtMethodCall("ZetBTWRegime","2486").DanDoeNiks() Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks() ]]> @@ -319,6 +323,7 @@ Set Cust.VATNum = "0430.459.769" Set Cust.TaxRegistrationNumber = "159753" Set Cust.InclTax = "Excl" + Set Cust.TaxGroup = "2486" Do Cust.ElectronicAddress.Insert(..GeefTelefoon1()) Do Cust.ElectronicAddress.Insert(..GeefFax()) Do Cust.ElectronicAddress.Insert(..GeefEmail())