Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml =================================================================== diff -u -r50117 -r50118 --- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 50117) +++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 50118) @@ -53,6 +53,7 @@ Do ..VerwachtZetNawGegevens(PartijMock, ..GeefAdres()) Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks() + Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks() Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks() Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres()) @@ -85,6 +86,7 @@ Do ..VerwachtZetNawGegevensIndienGeenHoofdadres(PartijMock, ..GeefLeegAdres()) Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks() + Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks() Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks() #dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New() @@ -119,6 +121,7 @@ Do ..VerwachtZetNawGegevens(PartijMock, Adres) Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks() + Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks() Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks() Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres()) @@ -231,6 +234,7 @@ DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock) Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks() + Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks() Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks() ]]> @@ -314,6 +318,7 @@ Set Cust.PriceException = "No" Set Cust.VATNum = "0430.459.769" Set Cust.TaxRegistrationNumber = "159753" + Set Cust.InclTax = "Excl" Do Cust.ElectronicAddress.Insert(..GeefTelefoon1()) Do Cust.ElectronicAddress.Insert(..GeefFax()) Do Cust.ElectronicAddress.Insert(..GeefEmail()) Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml =================================================================== diff -u -r50117 -r50118 --- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml (.../CustomerInConverter.cls.xml) (revision 50117) +++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml (.../CustomerInConverter.cls.xml) (revision 50118) @@ -93,6 +93,7 @@ Do KlantPartij.Save() Do Klant.ZetHandelsregisterNr(Cust.TaxRegistrationNumber) + Do Klant.ZetFacturatieWijze(Cust.InclTax) Do Klant.Save() Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust) ]]> @@ -127,6 +128,7 @@ #Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(PartijID) Do Klant.ZetHandelsregisterNr(Cust.TaxRegistrationNumber) + Do Klant.ZetFacturatieWijze(Cust.InclTax) Do Klant.Save() Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust) ]]>