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 zTryout.WV.FPV1.DOM.impl.BodemSlicedTypeBepaler 1 DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken 1 DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter 1 LadeInfoAPI:DOM.PM.Maatwerk.impl.LadeInfoAPI,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory 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 } set Paragraaf = Paragraaf_..Vertaler.GeefVertaling("Bevat")_": "_..Vertaler.GeefVertaling($Select(..IsLadeGemonteerd():"",1:"Niet")_"GemonteerdeLade") set Paragraaf = Paragraaf_..GeefGeleiderTekst() 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()) ]]> 1 0 { #dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..Lade.GeefBodems().GetAt(1) #dim VertaalSleutel As TECH.String = "" If (..BodemSlicedTypeBepaler.GeefBodemSlicedType(..IngegevenKenmerken) = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAX.SlicedType).Sliced()) { Set VertaalSleutel = "Bodem_Sliced" } Else { Set VertaalSleutel = "Bodem" } Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling(VertaalSleutel, "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Bodem.GeefKleur())) } 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())) } If ..Lade.GeefRuggen().Count() > 0 { #dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = ..Lade.GeefRuggen().GetAt(1) Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("rug", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Rug.GeefKleur())) } If ..Lade.GeefZijkanten().Count() > 0 { #dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = ..Lade.GeefZijkanten().GetAt(1) Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("ladezijkant", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Zijkant.GeefKleur())) } Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("kantenband", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(..Lade.GeefKleur())) ]]> 1 %Boolean 1 %String 1 TECH.String TECH.String 1 %Boolean