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
+
+