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