Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r39127 -r39369
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 39127)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 39369)
@@ -204,9 +204,7 @@
Set ..Customer.Betalingstermijn = ..Formatter.ConvertPaymTermId(..Klant.GeefBetalingwijze(),..Klant.GeefBetalingTermijn())
Set ..Customer.Leveringsvoorwaarde = ..Klant.GeefLeveringVoorwaarde()
Set ..Customer.Kredietlimiet = ..Klant.GeefKredietlimiet()
- If ..Customer.Kredietlimiet = "0" {
- Set ..Customer.Kredietlimiet = ""
- }
+ Set ..Customer.Kredietlimiet = $Case(..Customer.Kredietlimiet,"0":"","1000":"1",:..Customer.Kredietlimiet)
Set ..Customer.FacturatieFrequentie = $$$If(..Klant.GeefFacturatieFrequentie()="","D",$$$Replace(..Klant.GeefFacturatieFrequentie(),";","-"))
#dim KortingContant As %String = ..Formatter.FormatCashDiscount(..Klant.GeefKortingContantPercentage(),..Klant.GeefKortingContantTermijn())
Set ..Customer.KortingContant = $$$If(KortingContant="","0",KortingContant)
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r39127 -r39369
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 39127)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 39369)
@@ -56,7 +56,7 @@
Do ..Klant.IndienMethodCall("GeefPrijsCodexOrgalux").DanReturn("L")
Do ..Klant.IndienMethodCall("GeefPrijsCodexTAOR").DanReturn("L")
Do ..Klant.IndienMethodCall("GeefLeveringVoorwaarde").DanReturn("30")
- Do ..Klant.IndienMethodCall("GeefKredietlimiet").DanReturn("1000")
+ Do ..Klant.IndienMethodCall("GeefKredietlimiet").DanReturn("2000")
Do ..Klant.IndienMethodCall("GeefFacturatieFrequentie").DanReturn("D2")
Do ..Klant.IndienMethodCall("GeefLeverAdressen").DanReturn(..LeverAdresLijst)
Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New())
@@ -117,7 +117,7 @@
Do $$$AssertEquals(GeconverteerdeKlant.Betalingstermijn,"NET30")
Do $$$AssertEquals(GeconverteerdeKlant.Leveringsvoorwaarde,"30")
- Do $$$AssertEquals(GeconverteerdeKlant.Kredietlimiet,"1000")
+ Do $$$AssertEquals(GeconverteerdeKlant.Kredietlimiet,"2000")
Do $$$AssertEquals(GeconverteerdeKlant.FacturatieFrequentie,"D2")
Do $$$AssertEquals(GeconverteerdeKlant.KortingContant,"10D3%")
@@ -477,6 +477,16 @@
]]>
+
+
+
+
KlantId:%String
AXBizTalk.Crm.Customer.Customer