Index: AXBizTalk/Crm/Customer/Customer.cls.xml
===================================================================
diff -u -r38062 -r38238
--- AXBizTalk/Crm/Customer/Customer.cls.xml (.../Customer.cls.xml) (revision 38062)
+++ AXBizTalk/Crm/Customer/Customer.cls.xml (.../Customer.cls.xml) (revision 38238)
@@ -180,6 +180,26 @@
%String
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
%Library.CacheSerialState
CustomerState
@@ -338,6 +358,21 @@
KwaliteitMeubelhandel
+
+KortingContant
+
+
+Opmerking6
+
+
+Opmerking7
+
+
+Opmerking8
+
+
+Opmerking9
+
Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml
===================================================================
diff -u -r38063 -r38238
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml (.../DixfGenerator.cls.xml) (revision 38063)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml (.../DixfGenerator.cls.xml) (revision 38238)
@@ -61,6 +61,7 @@
Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "KwaliteitConsument")
Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "KwaliteitLeverancier")
Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "KwaliteitSoftware")
+ Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "KortingContant")
#dim AXKlantData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased
Set AXKlantData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r38062 -r38238
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 38062)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 38238)
@@ -90,7 +90,7 @@
Do $$$AssertEquals(GeconverteerdeKlant.VerkortNummer,"7001")
Do $$$AssertEquals(GeconverteerdeKlant.Email,"info@example.com")
Do $$$AssertEquals(GeconverteerdeKlant.Taal,"nl-be")
- Do $$$AssertEquals(GeconverteerdeKlant.BTWnummer,"9600.001.234")
+ Do $$$AssertEquals(GeconverteerdeKlant.BTWnummer,"9600.001.234")
Do $$$AssertEquals(GeconverteerdeKlant.BIDIMedewerker,"abcde")
@@ -104,6 +104,7 @@
Do $$$AssertEquals(GeconverteerdeKlant.Leveringsvoorwaarde,"30")
Do $$$AssertEquals(GeconverteerdeKlant.Kredietlimiet,"1000")
Do $$$AssertEquals(GeconverteerdeKlant.FacturatieFrequentie,"D2")
+ Do $$$AssertEquals(GeconverteerdeKlant.KortingContant,"10D3%")
Do $$$AssertEquals(GeconverteerdeKlant.HoofdadresLandcode,"BEL")
Do $$$AssertEquals(GeconverteerdeKlant.HoofdadresPostcode,"1234")
Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r38062 -r38238
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 38062)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 38238)
@@ -196,6 +196,7 @@
Set ..Customer.Leveringsvoorwaarde = ..Klant.GeefLeveringVoorwaarde()
Set ..Customer.Kredietlimiet = ..Klant.GeefKredietlimiet()
Set ..Customer.FacturatieFrequentie = ..Klant.GeefFacturatieFrequentie()
+ Set ..Customer.KortingContant = ..Formatter.FormatCashDiscount(..Klant.GeefKortingContantPercentage(),..Klant.GeefKortingContantTermijn())
]]>