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())