Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml =================================================================== diff -u -r50213 -r50233 --- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 50213) +++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 50233) @@ -273,6 +273,7 @@ Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks() Do KlantMock.VerwachtMethodCall("ZetRegio","41").DanDoeNiks() Do KlantMock.VerwachtMethodCall("ZetActiviteit","Consument").DanDoeNiks() + Do KlantMock.VerwachtMethodCall("ZetBusinessType","B2C").DanDoeNiks() Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks() ]]> @@ -305,6 +306,7 @@ Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks() Do KlantMock.VerwachtMethodCall("ZetRegio","41").DanDoeNiks() Do KlantMock.VerwachtMethodCall("ZetActiviteit","Consument").DanDoeNiks() + Do KlantMock.VerwachtMethodCall("ZetBusinessType","B2C").DanDoeNiks() Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks() ]]> Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml =================================================================== diff -u -r50213 -r50233 --- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml (.../CustomerInConverter.cls.xml) (revision 50213) +++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml (.../CustomerInConverter.cls.xml) (revision 50233) @@ -94,6 +94,7 @@ 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()) } Do Klant.Save() @@ -129,7 +130,7 @@ #Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(PartijID) Do ..ZetGemeenschappelijkeKlantProperties(.Klant, Cust) - Do Klant.ZetActiviteit($$$If(Cust.IsConsumer="Yes",##class(DOM.VKP.enu.KlantActiviteit).Consument(),##class(DOM.VKP.enu.KlantActiviteit).Onbepaald())) + Do ..VerwerkIsConsumerNieuweKlant(.Klant, Cust.IsConsumer) Do Klant.Save() Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust) @@ -245,7 +246,7 @@ 1 + + + +1 + +