Index: EXTERN/PM/Maatwerk/MaatwerkService.cls.xml =================================================================== diff -u -r67880 -r67888 --- EXTERN/PM/Maatwerk/MaatwerkService.cls.xml (.../MaatwerkService.cls.xml) (revision 67880) +++ EXTERN/PM/Maatwerk/MaatwerkService.cls.xml (.../MaatwerkService.cls.xml) (revision 67888) @@ -245,7 +245,7 @@ } ElseIf ((KenmerkNaam = "UitsparingAantalUitsparingen")) { Set $PROPERTY(UitsparingData, "AantalUitsparingen") = KenmerkWaarde } ElseIf ((KenmerkNaam = "ZijwandVerhogingInschuifElementKleur") && IsTandembox) { - Set $PROPERTY(IngegevenKenmerken.LegacyKenmerken, "ItemKV") = KenmerkWaarde + Set $PROPERTY(IngegevenKenmerken.LegacyKenmerken, "ItemKV") = ..GeefLegacyTbxZijwandVerhogingKleur(KenmerkWaarde) } ElseIf ((KenmerkNaam = "ZijwandVerhogingRelingKleur") && IsTandembox) { Set $PROPERTY(IngegevenKenmerken.LegacyKenmerken, "ItemRK") = KenmerkWaarde } Else { @@ -409,10 +409,10 @@ Set Namen = Namen _ Delimiter _ "ZijwandVerhogingRelingKleur" Set Waarden = Waarden _ Delimiter _ "" Set Namen = Namen _ Delimiter _ "ZijwandVerhogingInschuifElementKleur" - Set Waarden = Waarden _ Delimiter _ ..GeefTbxZijwandVerhogingKleur(IngegevenKenmerken.LegacyKenmerken.ItemKV) + Set Waarden = Waarden _ Delimiter _ ..GeefNietLegacyTbxZijwandVerhogingKleur(IngegevenKenmerken.LegacyKenmerken.ItemKV) } ElseIf (IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()) { Set Namen = Namen _ Delimiter _ "ZijwandVerhogingRelingKleur" - Set Waarden = Waarden _ Delimiter _ ..GeefTbxZijwandVerhogingKleur(IngegevenKenmerken.LegacyKenmerken.ItemRK) + Set Waarden = Waarden _ Delimiter _ ..GeefNietLegacyTbxZijwandVerhogingKleur(IngegevenKenmerken.LegacyKenmerken.ItemRK) Set Namen = Namen _ Delimiter _ "ZijwandVerhogingInschuifElementKleur" Set Waarden = Waarden _ Delimiter _ "" } Else { @@ -431,7 +431,7 @@ ]]> - + 1 TbxZijwandVerhogingKleur:%String 1 @@ -441,6 +441,31 @@ If $$$HasLength(TbxZijwandVerhogingKleur) { If ##class(TECH.StringUtils).Equals(TbxZijwandVerhogingKleur, "FG8","FZ8","ZV") { Set ZijwandVerhogingInschuifElementKleur = TbxZijwandVerhogingKleur + } ElseIf TbxZijwandVerhogingKleur = "ALU.MG" { + Set ZijwandVerhogingInschuifElementKleur = "AluMG" + } ElseIf TbxZijwandVerhogingKleur = "ALU.SW" { + Set ZijwandVerhogingInschuifElementKleur = "AluSW" + } ElseIf TbxZijwandVerhogingKleur = "ALU.BZ" { + Set ZijwandVerhogingInschuifElementKleur = "AluBZ" + } Else { + Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("ZijwandVerhogingKleur '" _ TbxZijwandVerhogingKleur _ "' is niet gekend in de multicalc voor TBX.")) + } + } + + Quit ZijwandVerhogingInschuifElementKleur +]]> + + + +1 +TbxZijwandVerhogingKleur:%String +1 +