Index: APPS/EDI/common/impl/ProductConverter.cls.xml
===================================================================
diff -u -r52222 -r52509
--- APPS/EDI/common/impl/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 52222)
+++ APPS/EDI/common/impl/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 52509)
@@ -18,6 +18,11 @@
1
+
+ECONimpl.PM.Maatwerk.LadeUitsparingHelper
+1
+
+
DOM.common.enu.Personality
1
@@ -32,6 +37,7 @@
Set ..ObjectConverter = ##class(TECH.ObjectUtils.impl.ObjectConverter).%New()
Set ..ConfiguratorService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefInterneConfiguratorService()
Set ..KlantBepaler = ##class(DOM.common.impl.PersonalityKlantBepaler).%New()
+ Set ..LadeUitsparingHelper = ##class(ECONimpl.PM.Maatwerk.LadeUitsparingHelper).%New()
Quit $$$OK
]]>
@@ -72,6 +78,8 @@
Set IngegevenKenmerkenTAX.LosseComponent = ""
Set IngegevenKenmerkenTAX.Uittrekbaarheid = ##class(DOM.PM.enu.TAORUittrekbaarheid).Volledig()
set IngegevenKenmerkenTAX.SpecialType = ##class(DOM.PM.enu.SpecialType).Normaal()
+ Set IngegevenKenmerkenTAX.UitsparingDataCodeZ1 = ..GeefUitsparingCodeTAX(Product.UitsparingDataBreedteZ1, Product.UitsparingDataDiepteZ1, IngegevenKenmerkenTAX.GeefVariant())
+ Set IngegevenKenmerkenTAX.UitsparingDataCodeZ2 = ..GeefUitsparingCodeTAX(Product.UitsparingDataBreedteZ2, Product.UitsparingDataDiepteZ2, IngegevenKenmerkenTAX.GeefVariant())
Set IngegevenKenmerken = IngegevenKenmerkenTAX
}
ElseIf Product.%Extends(##class(APPS.EDI.common.dto.v001.LadeLBX).%ClassName($$$True)) {
@@ -127,6 +135,9 @@
+
+Deze is momenteel alleen voor LBX.
+Na refactor (samenvoegen LBX/TAX common parts) zal de implementatie van method GeefUitsparingCode() vervangen worden door die van method GeefUitsparingCodeTAX()
UitsparingBreedte:%Numeric,Product:APPS.EDI.common.dto.v001.LadeLBX
1
DOM.PM.enu.UitsparingCode
@@ -139,6 +150,19 @@
]]>
+
+
+Deze is momenteel tijdelijk toegevoegd voor TAX.
+Na refactor (samenvoegen LBX/TAX common parts) zal de implementatie van method GeefUitsparingCode() vervangen worden door die van method GeefUitsparingCodeTAX()
+UitsparingBreedte:%Numeric,UitsparingDiepte:%Numeric,Variant:DOM.PM.enu.LadeVariant
+1
+DOM.PM.enu.UitsparingCode
+ 0)) ""
+ Quit ..LadeUitsparingHelper.GeefUitsparingCode(Variant, "Recht", "", UitsparingDiepte, UitsparingBreedte)
+]]>
+
+
Exception:APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Product:APPS.EDI.common.dto.Product
1
@@ -211,7 +235,14 @@
Do ConvertData.Add("GlijderType",)
Do ConvertData.Add("HeeftDiepteVerstelling",)
Do ConvertData.Add("KoppelingType",)
+ Do ConvertData.Add("Toepassing",)
Do ConvertData.Add("ZijkantLogoID",)
+ Do ConvertData.Add("UitsparingDataAantalUitsparingen","UitsparingDataAantalUitsparingen","Set Output = $Case(Input, 1:""Enkel"", 2:""Dubbel"", 0:"""", :Input)") ; DOM.PM.enu.AantalUitsparingen
+ Do ConvertData.Add("UitsparingDataBreedteX",)
+ Do ConvertData.Add("UitsparingDataBreedteZ1",)
+ Do ConvertData.Add("UitsparingDataBreedteM",)
+ Do ConvertData.Add("UitsparingDataBreedteZ2",)
+ Do ConvertData.Add("UitsparingDataBreedteY",)
Quit ConvertData
]]>