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"