Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml =================================================================== diff -u -r50239 -r50242 --- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml (.../CustomerInConverter.cls.xml) (revision 50239) +++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml (.../CustomerInConverter.cls.xml) (revision 50242) @@ -92,13 +92,6 @@ Do KlantPartij.Save() Do ..ZetGemeenschappelijkeKlantProperties(.Klant, Cust) - If (Cust.IsConsumer="Yes") { - Do Klant.ZetActiviteit(##class(DOM.VKP.enu.KlantActiviteit).Consument()) - Do Klant.ZetBusinessType(##class(DOM.VKP.enu.BusinessType).B2C()) - } Else { - Do Klant.ZetActiviteit(##class(DOM.VKP.enu.KlantActiviteit).Onbepaald()) - Do Klant.ZetBusinessType(##class(DOM.VKP.enu.BusinessType).B2B()) - } Do Klant.Save() Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust) @@ -133,7 +126,6 @@ #Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(PartijID) Do ..ZetGemeenschappelijkeKlantProperties(.Klant, Cust) - Do ..VerwerkIsConsumerNieuweKlant(.Klant, Cust.IsConsumer) Do Klant.Save() Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust) @@ -249,7 +241,8 @@ 1 - - - -1 - - Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml =================================================================== diff -u -r50233 -r50242 --- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 50233) +++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 50242) @@ -52,7 +52,7 @@ Do ..VerwachtZetNawGegevens(PartijMock, ..GeefAdres()) Do ..VerwachtZetKlantgegevens(KlantMock) - Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks() + Do KlantMock.VerwachtMethodCall("ZetBusinessType","B2C").DanDoeNiks() Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres()) @@ -72,7 +72,7 @@ ]]> - + @@ -390,7 +387,7 @@ Set Cust.PriceException = "No" Set Cust.VATNum = "0430.459.769" Set Cust.TaxRegistrationNumber = "159753" - Set Cust.InclTax = "No" + Set Cust.InclTax = "Yes" Set Cust.TaxGroup = "BUNIT" Set Cust.PaymTermId = "REMBOURS" Set Cust.CustClassificationId = "R41"