Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml =================================================================== diff -u -r30792 -r30842 --- DOM/PM/impl/TAORLangtekstCreator.cls.xml (.../TAORLangtekstCreator.cls.xml) (revision 30792) +++ DOM/PM/impl/TAORLangtekstCreator.cls.xml (.../TAORLangtekstCreator.cls.xml) (revision 30842) @@ -114,6 +114,17 @@ 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) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Zijkant.GeefKleur())) + } Else { + Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("LadezijkantBinnenkant", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(1))) + Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("LadezijkantBuitenkant", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(2))) + } + } + Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("kantenband", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(..Lade.GeefKleur())) If ..Lade.GeefBodems().Count() > 0 { #dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..Lade.GeefBodems().GetAt(1) #dim VertaalSleutel As TECH.String = "" @@ -124,25 +135,14 @@ } 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) - #dim Kleuren As %ArrayOfDataTypes = Zijkant.GeefKleuren() - If Kleuren.GetAt(1) = Kleuren.GetAt(2) { - Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("ladezijkant", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Zijkant.GeefKleur())) - } Else { - Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("LadezijkantBinnenkant", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(1))) - Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("LadezijkantBuitenkant", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(2))) - } + 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())) } - Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("kantenband", "", $$$True) _ ":" _ ..KleurCodeVertaler.GeefVertaling(..Lade.GeefKleur())) ]]>