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)