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