Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjective.cls.xml =================================================================== diff -u -r71932 -r71946 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjective.cls.xml (.../DomRollenNaarObjective.cls.xml) (revision 71932) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjective.cls.xml (.../DomRollenNaarObjective.cls.xml) (revision 71946) @@ -79,37 +79,37 @@ } ElseIf (TBXKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()) { Set ..Waarde = "Rugstaal" } - } ElseIf (..Waarde = "afdekkap") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "afdekkap")) { Set ..Waarde = "Afdekkapbuiten" - } ElseIf (..Waarde = "bevestigingdwarsverdeling") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "bevestigingdwarsverdeling")) { Set ..Waarde = "Dwarsverdelinghouder" - } ElseIf (..Waarde = "binnenrughouderspoelbak") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "binnenrughouderspoelbak")) { Set ..Waarde = "Spoelbakbinnenrugwandhouder" - } ElseIf (..Waarde = "bodemsteunbinnenlade") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "bodemsteunbinnenlade")) { Set ..Waarde = "Bevestigingbodemfront" - } ElseIf (..Waarde = "bodemsteunfront") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "bodemsteunfront")) { Set ..Waarde = "Bevestigingbodemfront" - } ElseIf (..Waarde = "euroschroef") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "euroschroef")) { Set ..Waarde = "Rugwandhouderschroef" - } ElseIf (..Waarde = "frontplaat") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "frontplaat")) { Set ..Waarde = "Voorstuk" - } ElseIf (..Waarde = "frontsteun") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "frontsteun")) { Set ..Waarde = "Bevestigingbodemfront" - } ElseIf (..Waarde = "houtschroef") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "houtschroef")) { Set ..Waarde = "Rugbodemschroef" - } ElseIf (..Waarde = "rughouder") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "rughouder")) { Set ..Waarde = "Rugwandhouder" - } ElseIf (..Waarde = "spaanplaatschroef") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "spaanplaatschroef")) { Set ..Waarde = "Schroefmanuelemontage" - } ElseIf (..Waarde = "stabilisator") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "stabilisator")) { Set ..Waarde = "Zijstabilisering" - } ElseIf (..Waarde = "stabilisatorstang") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "stabilisatorstang")) { Set ..Waarde = "Zijstabilisering" - } ElseIf (..Waarde = "tiponblumotionseteenhedenmeenemersenadapters") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "tiponblumotionseteenhedenmeenemersenadapters")) { Set ..Waarde = "Tiponblumotionsetrenhedenenmeenemers" } ElseIf (..Waarde = "tussenrug") { Set ..Waarde = "Tussenstuk" - } ElseIf (..Waarde = "tussenrughouder") { + } ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "tussenrughouder")) { Set ..Waarde = "Tussenstukrugwandhouder" } Else { Set ..Waarde = ..VerwerkAlgemeneKenmerken(..Waarde) Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjectiveTbx/Test.cls.xml =================================================================== diff -u -r71853 -r71946 --- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjectiveTbx/Test.cls.xml (.../Test.cls.xml) (revision 71853) +++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjectiveTbx/Test.cls.xml (.../Test.cls.xml) (revision 71946) @@ -98,7 +98,7 @@ Do ..AssertRolnaam("HoutSchroef", VerwachtteRolNaam, ..DomKenmerken) Set VerwachtteRolNaam = "Rugwandhouder" - Do ..AssertRolnaam("RugHouder", VerwachtteRolNaam, ..DomKenmerken) + Do ..AssertRolnaam("RugHouder.Links", VerwachtteRolNaam, ..DomKenmerken) Set VerwachtteRolNaam = "Schroefmanuelemontage" Do ..AssertRolnaam("SpaanplaatSchroef", VerwachtteRolNaam, ..DomKenmerken)