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