Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml =================================================================== diff -u -r50152 -r50171 --- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml (.../DataMKlantNative.cls.xml) (revision 50152) +++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml (.../DataMKlantNative.cls.xml) (revision 50171) @@ -1461,6 +1461,12 @@ } ]]> + + +Activiteit:DOM.VKP.enu.KlantActiviteit + + Index: DOM/VKP/VanHoeckeKlant.cls.xml =================================================================== diff -u -r50152 -r50171 --- DOM/VKP/VanHoeckeKlant.cls.xml (.../VanHoeckeKlant.cls.xml) (revision 50152) +++ DOM/VKP/VanHoeckeKlant.cls.xml (.../VanHoeckeKlant.cls.xml) (revision 50171) @@ -594,6 +594,11 @@ 1 Betalingwijze:DOM.VKP.enu.Betalingwijze + + +1 +Activiteit:DOM.VKP.enu.KlantActiviteit + Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml =================================================================== diff -u -r50158 -r50171 --- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml (.../CustomerInConverter.cls.xml) (revision 50158) +++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml (.../CustomerInConverter.cls.xml) (revision 50171) @@ -92,6 +92,9 @@ Do KlantPartij.Save() Do ..ZetGemeenschappelijkeKlantProperties(.Klant, Cust) + If (Cust.IsConsumer="Yes") { + Do Klant.ZetActiviteit(##class(DOM.VKP.enu.KlantActiviteit).Consument()) + } Do Klant.Save() Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust) @@ -126,6 +129,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 Klant.Save() Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust) Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml =================================================================== diff -u -r50158 -r50171 --- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 50158) +++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 50171) @@ -272,6 +272,7 @@ Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks() Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks() Do KlantMock.VerwachtMethodCall("ZetRegio","41").DanDoeNiks() + Do KlantMock.VerwachtMethodCall("ZetActiviteit","Consument").DanDoeNiks() Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks() ]]> @@ -303,6 +304,7 @@ Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks() Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks() Do KlantMock.VerwachtMethodCall("ZetRegio","41").DanDoeNiks() + Do KlantMock.VerwachtMethodCall("ZetActiviteit","Consument").DanDoeNiks() Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks() ]]> @@ -390,6 +392,7 @@ Set Cust.TaxGroup = "BUNIT" Set Cust.PaymTermId = "REMBOURS" Set Cust.CustClassificationId = "R41" + Set Cust.IsConsumer = "Yes" Do Cust.ElectronicAddress.Insert(..GeefTelefoon1()) Do Cust.ElectronicAddress.Insert(..GeefFax()) Do Cust.ElectronicAddress.Insert(..GeefEmail()) Index: vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml =================================================================== diff -u -r50152 -r50171 --- vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml (.../VanHoeckeKlant.cls.xml) (revision 50152) +++ vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml (.../VanHoeckeKlant.cls.xml) (revision 50171) @@ -467,6 +467,12 @@ ]]> + +Activiteit:DOM.VKP.enu.KlantActiviteit + + + BTWRegime:DOM.VKP.enu.BTWRegimeKlant