Index: DOM/PM/impl/LangtekstCreatorFactory.cls.xml =================================================================== diff -u -r67028 -r67782 --- DOM/PM/impl/LangtekstCreatorFactory.cls.xml (.../LangtekstCreatorFactory.cls.xml) (revision 67028) +++ DOM/PM/impl/LangtekstCreatorFactory.cls.xml (.../LangtekstCreatorFactory.cls.xml) (revision 67782) @@ -60,7 +60,7 @@ TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - Index: DOM/PM/impl/MaatwerkLangtekstBepaler.cls.xml =================================================================== diff -u -r67028 -r67782 --- DOM/PM/impl/MaatwerkLangtekstBepaler.cls.xml (.../MaatwerkLangtekstBepaler.cls.xml) (revision 67028) +++ DOM/PM/impl/MaatwerkLangtekstBepaler.cls.xml (.../MaatwerkLangtekstBepaler.cls.xml) (revision 67782) @@ -28,6 +28,11 @@ 1 + +DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetBepaler +1 + + MaatwerkCalcAPI:DOM.PM.MaatwerkCalcAPI="" 1 @@ -39,6 +44,8 @@ Set ..Personality = ##class(DOM.common.VanHoeckePersonality).Instance() Set ..KlantID = ##class(DOM.VKP.enu.Klant).Halux() Set ..HalffabItemsBoomOnherwerktBepaler = ##class(DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler).%New() + Set ..OmleidingNaarDotNetBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarDotNetBepaler).%New() + Quit $$$OK ]]> @@ -49,12 +56,35 @@ + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +1 +%Boolean + + + PRNr:%String,Taal:DOM.enu.Taal DOM.PM.ProductLangtekst @@ -67,7 +97,7 @@ If ##class(TECH.StringUtils).Equals(Taal,TaalEnum.Nederlands,TaalEnum.Frans,TaalEnum.Duits,TaalEnum.Engels){ Set Langtekst = ##class(Prod.ProductTekst).GeefLangtekstObject(PRNr,Taal) } Else { - If ##class(TECH.StringUtils).Equals(MaatwerkProduct.GeefVariant(),Variant.LegraboxPure,Variant.Merivobox,Variant.Taorbox,Variant.MatStandaard) { + If ##class(TECH.StringUtils).Equals(MaatwerkProduct.GeefVariant(), Variant.LegraboxPure, Variant.Taorbox, Variant.MatStandaard, Variant.Merivobox, Variant.TandemboxAntaro, Variant.TandemboxMengvorm) { //Voor Variant.TandemboxAntaro, Variant.TandemboxMengvorm ontbreken nog te veel vertalingen, daarom terugvallen op Engels, probeer maar eens deze method met product 3000783 en taal 'IT' Set Langtekst = ..GeefLangtekst(MaatwerkProduct.GeefIngegevenKenmerken(),Taal) } Else { Set Langtekst = ##class(Prod.ProductTekst).GeefLangtekstObject(PRNr,Taal)