TECH.Mockable DOM.common.Transl.Vertaler 1 vhLib.Logger 1 %String Data.Lijn.Winkelkarinfo %String Onvertaalbaar kenmerk Vertaler:DOM.common.Transl.Vertaler="",Logger:vhLib.Logger="" 1 1 %Status 1 BlumKenmerk:WS.Vhisie4.OPC.dto.Kenmerk,Index:%Integer WS.Vhisie4.OPC.dto.Kenmerk Index:%Integer,Taal:DOM.enu.TaalCodeISO639x1 WS.Vhisie4.OPC.dto.Kenmerk KenmerkenIterator:TECH.Iterator,Index:%Integer WS.Vhisie4.OPC.dto.Kenmerk Index:%Integer 1 %String KenmerkenIterator:TECH.Iterator,Index:%Integer WS.Vhisie4.OPC.dto.Kenmerk Index:%Integer 1 %String DecorNaam:%String,Dikte:%String,PropertyNaamDike:%String,TypeMateriaal:%String 1 %String KenmerkenIterator:TECH.Iterator,Index:%Integer,Taal:DOM.enu.Taal WS.Vhisie4.OPC.dto.Kenmerk Index:%Integer 1 %String BlumGroepering:%String,ProductieWijze:%String,Taal:DOM.enu.Taal 1 %String = 3) { Set VariantEnToepassing = ##class(TECH.StringUtils).ToLower(GroeperingLijst.GetAt(1)) If (##class(TECH.StringUtils).Contains("links")) { Do ##class(TECH.StringUtils).Replace(VariantEnToepassing, "links", ..Vertaler.GeefVertaling("Links", Taal)) } If (##class(TECH.StringUtils).Contains("rechts")) { Do ##class(TECH.StringUtils).Replace(VariantEnToepassing, "rechts", ..Vertaler.GeefVertaling("Rechts", Taal)) } Set VariantEnToepassing = ##class(TECH.StringUtils).ToFirstCase(VariantEnToepassing) Set CorpusConstructie = ..Vertaler.GeefVertaling(##class(TECH.StringUtils).ToLower(GroeperingLijst.GetAt(2)), Taal) Set Fronthoogte = ##class(TECH.StringUtils).ToLower(GroeperingLijst.GetAt(3)) Set Fronthoogte = ##class(TECH.StringUtils).Replace(Fronthoogte, " = ", " ") Set Fronthoogte = ##class(TECH.StringUtils).Replace(Fronthoogte, "fronthoogte", ..Vertaler.GeefVertaling("fronthoogte", Taal)) Set GroeperingValue = VertaaldeProductieWijze _ " - " _ VariantEnToepassing _ ", " _ CorpusConstructie _ ", " _ Fronthoogte } Else { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Property 'Name' werd niet of onvolledig ingevuld.")) } Quit GroeperingValue ]]> KenmerkKeyBlum:%String,KenmerkNameBlum:%String,Index:%String 1 %String KenmerkValueKeyBlum:%String,KenmerkValueBlum:%String,KenmerkNameBlum:%String 1 %String KenmerkValue:%String 1 %String KenmerkenIterator:TECH.Iterator,KenmerkName:%String 1 WS.Vhisie4.OPC.dto.Kenmerk