DOM.PM.impl.LangtekstCreator,DOM.PM.Maatwerk.TAX.impl.Base %String ; DOM.PM.Maatwerk.LadeInfo.Lade 1 DOM.PM.Maatwerk.impl.LadeInfoAPI 1 DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory 1 DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken 1 DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter 1 DOM.PM.impl.Langtekst.TAOREnkelOnderdeelTekstBepaler 1 DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI 1 DOM.PM.Maatwerk.TAX.Data.ZijkantLogoRepository 1 DOM.PM.Maatwerk.LBX.impl.UitsparingTekstFormatter 1 DOM.common.Transl.Vertaler 1 LadeInfoAPI:DOM.PM.Maatwerk.impl.LadeInfoAPI,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory,KleurCodeBepaler:DOM.PM.ProductTekst.impl.KleurcodeBepaler,ZijkantLogoRepository:DOM.PM.Maatwerk.TAX.Data.ZijkantLogoRepository,OnderdeelTekstBepaler:DOM.PM.impl.Langtekst.TAOREnkelOnderdeelTekstBepaler 1 1 %Status 1 IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,KortTekst:%String="" DOM.PM.ProductLangtekst 1 1 1 " _ ..Enum.Rol.FrontEindkap, ..GeefFrontEindkapTekst(), $$$False) _ ..#KenmerkSeparator } #dim ConceptBepaler As DOM.PM.Maatwerk.TAX.ConceptBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.ConceptBepaler).%New() If (ConceptBepaler.Bepaal(..IngegevenKenmerken) = ..Enum.Concept.Baliko) { Do ..VoegToeLangtekstParagraaf(..GeefRugHoogteTekst(..IngegevenKenmerken)) } Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("Bevat") _ ": " _ ..Vertaler.GeefVertaling($Select(..IsLadeGemonteerd():"", 1:"Niet") _ "GemonteerdeLade") Set Paragraaf = Paragraaf _ ..GeefGeleiderTekst() Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.GeleiderBevestigingSchroeven, ..Vertaler.GeefVertaling("GeleiderBevestigingSchroeven"), $$$True) Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.FrontBevestiging, ..GeefFrontBevestigingTekst(), $$$True) Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.Zijstabilisering, ..Vertaler.GeefVertaling("Zijstabilisering"), $$$True) Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.Opvullijst, ..GeefOpvullijstTekst(), $$$True) Do ..VoegToeLangtekstParagraaf(Paragraaf) Do ..VoegToeGekoppeldeInfoIndienNodig() Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst()) } Else { Do ..VoegToeEnkelOnderdeelTekst() } Do ..VoegToeLangtekstParagraaf(..GeefZijkantLogoTekst()) ]]> 1 0 { #dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ..Lade.GeefZijkanten().GetAt(1) #dim Kleuren As %ArrayOfDataTypes = Zijkant.GeefKleuren() If (Kleuren.GetAt(1) = Kleuren.GetAt(2)) { Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("ladezijkant", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Zijkant.GeefKleur())) } Else { Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("LadezijkantBuitenkant", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Kleuren.GetAt(2))) Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("LadezijkantBinnenkant", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Kleuren.GetAt(1))) } } Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("kantenband", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Kleuren.GetAt(3))) If (..Lade.GeefBodems().Count() > 0) { #dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..Lade.GeefBodems().GetAt(1) Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Bodem", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Bodem.GeefKleur())) } If ..Lade.GeefRuggen().Count() > 0 { #dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = ..Lade.GeefRuggen().GetAt(1) Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("rug", "", $$$True) _ ":" _ ..PlaatMateriaalKleurVertaler.GeefVertaling(Rug.GeefKleur())) } Do ..VoegToeLangtekstParagraaf(..GeefTekstVoorRol(..Enum.Rol.AfdekkapBoven, ..GeefAfdekkapBovenTekst(), $$$False)) If ..Lade.GeefFronten().Count() > 0 { #dim Front As DOM.PM.Maatwerk.LadeInfo.Front = ..Lade.GeefFronten().GetAt(1) Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("front", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Front.GeefKleur())) } ]]> 1 %Boolean 1 TECH.String 1 1 TECH.String 1 TECH.String 1 TECH.String TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken %String 1 %Boolean 1 TECH.String 1 %Boolean