Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u -r50119 -r50120
--- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml (.../CustomerInConverter.cls.xml) (revision 50119)
+++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml (.../CustomerInConverter.cls.xml) (revision 50120)
@@ -93,7 +93,7 @@
Do KlantPartij.Save()
Do Klant.ZetHandelsregisterNr(Cust.TaxRegistrationNumber)
- Do Klant.ZetFacturatieWijze(Cust.InclTax)
+ Do Klant.ZetFacturatieWijze($$$If(Cust.InclTax="Yes","Incl","Excl"))
Do Klant.ZetBTWRegime(Cust.TaxGroup)
Do Klant.Save()
Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust)
@@ -129,7 +129,7 @@
#Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(PartijID)
Do Klant.ZetHandelsregisterNr(Cust.TaxRegistrationNumber)
- Do Klant.ZetFacturatieWijze(Cust.InclTax)
+ Do Klant.ZetFacturatieWijze($$$If(Cust.InclTax="Yes","Incl","Excl"))
Do Klant.ZetBTWRegime(Cust.TaxGroup)
Do Klant.Save()
Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust)
Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r50119 -r50120
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 50119)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 50120)
@@ -75,6 +75,43 @@
]]>
+
+
+
+
+
+
+
+
1
AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter
@@ -237,7 +298,6 @@
DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks()
- Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks()
Do KlantMock.VerwachtMethodCall("ZetBTWRegime","2486").DanDoeNiks()
Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
]]>
@@ -322,7 +382,7 @@
Set Cust.PriceException = "No"
Set Cust.VATNum = "0430.459.769"
Set Cust.TaxRegistrationNumber = "159753"
- Set Cust.InclTax = "Excl"
+ Set Cust.InclTax = "No"
Set Cust.TaxGroup = "2486"
Do Cust.ElectronicAddress.Insert(..GeefTelefoon1())
Do Cust.ElectronicAddress.Insert(..GeefFax())