Index: production/models/tbx/TBX Configurator, 1.0.0.xml
===================================================================
diff -u
--- production/models/tbx/TBX Configurator, 1.0.0.xml (revision 0)
+++ production/models/tbx/TBX Configurator, 1.0.0.xml (revision 7)
@@ -0,0 +1,4463 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ true
+ BEHAVIOR.OperationMode = switch FLAG.DEV_IsExtern
+ case true: "Extern"
+ else "Intern"
+end switch;
+ DEV - Intern/Extern via flag DEV_IsExtern
+ ;behavior.operationmode@value;
+
+
+
+ STATE.Initialized
+ local string _Token = GetArg("token");
+local string _Configuration = GetArg("configuration");
+local string _Language = GetArg("language");
+
+Help.HelpURL = "Configurator/TBX/" + _Language + ".xml";
+FLAG.Token = GetArg("vh_token");
+
+if (FLAG.Token == "") then
+ //FLAG.Token = "8c9a013ab70c0434313e3e881c310b9ff24aff1075255ceede3f2c239c231623";
+ FLAG.Token = "ExampleMetKlantId";
+end if;
+
+if (_Configuration <> "") then
+ BEHAVIOR.InputMode = "Edit";
+end if;
+ Init - Varia
+ ;help.helpurl@value;flag.token@value;behavior.inputmode@value;
+
+
+ STATE.Initialized
+ BUTTONS.SaveButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.Saved','true'";
+BUTTONS.CancelButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.Cancelled','true'";
+BUTTONS.SavePreferencesButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.KlantVoorkeurenSaved','true'";
+
+local string _LabelSaveButton = eCon.Core.Functions.GetLocalizedLabel("SaveButton");
+
+if (BEHAVIOR.InputMode == "Edit") then
+ _LabelSaveButton = eCon.Core.Functions.GetLocalizedLabel("EditButton");
+end if;
+
+BUTTONS.SaveButton@label = _LabelSaveButton;
+ Init - Button tasks & labels
+ ;buttons.savebutton@default;buttons.cancelbutton@default;buttons.savepreferencesbutton@default;
+
+
+ STATE.Initialized
+ local string _Connection = GetSetting("data.connectionstring");
+local string _Query = "SELECT Id, Name FROM ti.MDLanguage WHERE Active = '1'";
+
+PROFILE.Languages@options = {};
+PROFILE.Languages@options = ExecuteOptionsQuery("PROFILE.Languages"; true; _Connection; _Query);
+
+STATE.LanguagesLoaded = true;
+ Init - Ophalen talen
+ ;profile.languages@options;state.languagesloaded@value;
+
+
+ STATE.Initialized
+ UI.NietMeeleveren[1]@label = eCon.Core.Functions.GetLocalizedLabel("NietMeeleveren");
+
+local boolean _Result = CopyOptionsToArray("UI.NietMeeleverenOptions"; "UI.NietMeeleveren");
+
+index i of UI.NietMeeleveren
+ UI.NietMeeleveren(i)@repeat = false;
+ UI.NietMeeleveren(i).Text@enabled = false;
+ UI.NietMeeleveren(i).Text = eCon.Core.Functions.GetLocalizedLabel(UI.NietMeeleveren(i).Text);
+end index;
+ Init - Setup niet meeleveren
+ ;
+
+
+ STATE.Initialized
+ local string SelectedOption = "";
+
+SelectedOption = UI.BodemKleur;
+for i = 1 to len(UI.BodemKleur@options)
+ UI.BodemKleur = UI.BodemKleur@option(i)@id;
+ UI.BodemKleur.Text = DATA.BodemKleur@option(i)@label;
+end for;
+UI.BodemKleur = SelectedOption;
+
+SelectedOption = UI.Draagkracht;
+for i = 1 to len(UI.Draagkracht@options)
+ UI.Draagkracht = UI.Draagkracht@option(i)@id;
+ UI.Draagkracht.Text = DATA.Draagkracht@option(i)@label;
+end for;
+UI.Draagkracht = SelectedOption;
+
+SelectedOption = UI.InbouwHoogte;
+for i = 1 to len(UI.InbouwHoogte@options)
+ UI.InbouwHoogte = UI.InbouwHoogte@option(i)@id;
+ UI.InbouwHoogte.Text = DATA.InbouwHoogte@option(i)@label;
+end for;
+UI.InbouwHoogte = SelectedOption;
+
+SelectedOption = UI.LadeDesign;
+for i = 1 to len(UI.LadeDesign@options)
+ UI.LadeDesign = UI.LadeDesign@option(i)@id;
+ UI.LadeDesign.Text = DATA.LadeDesign@option(i)@label;
+end for;
+UI.LadeDesign = SelectedOption;
+
+SelectedOption = UI.LadeKleur;
+for i = 1 to len(UI.LadeKleur@options)
+ UI.LadeKleur = UI.LadeKleur@option(i)@id;
+ UI.LadeKleur.Text = DATA.LadeKleur@option(i)@label;
+end for;
+UI.LadeKleur = SelectedOption;
+
+SelectedOption = UI.MatAntislipKleur;
+for i = 1 to len(UI.MatAntislipKleur@options)
+ UI.MatAntislipKleur = UI.MatAntislipKleur@option(i)@id;
+ UI.MatAntislipKleur.Text = DATA.MatAntislipKleur@option(i)@label;
+end for;
+UI.MatAntislipKleur = SelectedOption;
+
+SelectedOption = UI.MatAntislipFiberKleur;
+for i = 1 to len(UI.MatAntislipFiberKleur@options)
+ UI.MatAntislipFiberKleur = UI.MatAntislipFiberKleur@option(i)@id;
+ UI.MatAntislipFiberKleur.Text = DATA.MatAntislipFiberKleur@option(i)@label;
+end for;
+UI.MatAntislipFiberKleur = SelectedOption;
+
+SelectedOption = UI.MatMateriaal;
+for i = 1 to len(UI.MatMateriaal@options)
+ UI.MatMateriaal = UI.MatMateriaal@option(i)@id;
+ UI.MatMateriaal.Text = DATA.MatMateriaal@option(UI.MatMateriaal.Value)@label;
+end for;
+UI.MatMateriaal = SelectedOption;
+
+SelectedOption = UI.MatVinylFiberglassKleur;
+for i = 1 to len(UI.MatVinylFiberglassKleur@options)
+ UI.MatVinylFiberglassKleur = UI.MatVinylFiberglassKleur@option(i)@id;
+ UI.MatVinylFiberglassKleur.Text = DATA.MatVinylFiberglassKleur@option(i)@label;
+end for;
+UI.MatVinylFiberglassKleur = SelectedOption;
+
+SelectedOption = UI.MatWolviltKleur;
+for i = 1 to len(UI.MatWolviltKleur@options)
+ UI.MatWolviltKleur = UI.MatWolviltKleur@option(i)@id;
+ UI.MatWolviltKleur.Text = DATA.MatWolviltKleur@option(i)@label;
+end for;
+UI.MatWolviltKleur = SelectedOption;
+
+SelectedOption = UI.OpvullijstKleur;
+for i = 1 to len(UI.OpvullijstKleur@options)
+ UI.OpvullijstKleur = UI.OpvullijstKleur@option(i)@id;
+ UI.OpvullijstKleur.Text = DATA.OpvullijstKleur@option(i)@label;
+end for;
+UI.OpvullijstKleur = SelectedOption;
+
+SelectedOption = UI.Toepassing;
+for i = 1 to len(UI.Toepassing@options)
+ UI.Toepassing = UI.Toepassing@option(i)@id;
+ UI.Toepassing.Text = DATA.Toepassing@option(i)@label;
+end for;
+UI.Toepassing = SelectedOption;
+
+SelectedOption = UI.ZijwandVerhogingType;
+for i = 1 to len(UI.ZijwandVerhogingType@options)
+ UI.ZijwandVerhogingType = UI.ZijwandVerhogingType@option(i)@id;
+ UI.ZijwandVerhogingType.Text = DATA.ZijwandVerhogingType@option(i)@label;
+end for;
+UI.ZijwandVerhogingType = SelectedOption;
+
+SelectedOption = UI.ZijwandVerhogingRelingKleur;
+for i = 1 to len(UI.ZijwandVerhogingRelingKleur@options)
+ UI.ZijwandVerhogingRelingKleur = UI.ZijwandVerhogingRelingKleur@option(i)@id;
+ UI.ZijwandVerhogingRelingKleur.Text = DATA.ZijwandVerhogingRelingKleur@option(i)@label;
+end for;
+UI.ZijwandVerhogingRelingKleur = SelectedOption;
+
+ Init - Vertalingen UI image labels overnemen van DATA
+ ;ui.bodemkleur@value;ui.draagkracht@value;ui.inbouwhoogte@value;ui.ladedesign@value;ui.ladekleur@value;ui.matantislipkleur@value;ui.matantislipfiberkleur@value;ui.matmateriaal@value;ui.matvinylfiberglasskleur@value;ui.matwolviltkleur@value;ui.opvullijstkleur@value;ui.toepassing@value;ui.zijwandverhogingtype@value;ui.zijwandverhogingrelingkleur@value;
+
+
+ STATE.Initialized
+ UI.VerpakkingType@option("Probox")@visible = FLAG.VerpakkingProboxToegelaten;
+UI.VerpakkingType@option("VHoss")@visible = FLAG.VerpakkingVHossToegelaten;
+UI.VerpakkingType@option("Procom")@visible = FLAG.VerpakkingProcomToegelaten;
+UI.VerpakkingType@option("Pallet")@visible = FLAG.VerpakkingPalletToegelaten;
+
+local boolean _IsExtern = (BEHAVIOR.OperationMode == "Extern");
+
+index i of UI.NietMeeleveren
+ if (UI.NietMeeleveren(i).Id == "TiponBlumotionSet") then
+ UI.NietMeeleveren(i)@visible = not(_IsExtern);
+ end if;
+
+ if (UI.NietMeeleveren(i).Id == "TiponBlumotionSynchronisatieStang") then
+ UI.NietMeeleveren(i)@visible = not(_IsExtern);
+ end if;
+
+ if (UI.NietMeeleveren(i).Id == "TiponBlumotionSynchronisatieToebehoren") then
+ UI.NietMeeleveren(i)@visible = not(_IsExtern);
+ end if;
+
+ if (UI.NietMeeleveren(i).Id == "TiponBlumotionOnderdelen") then
+ UI.NietMeeleveren(i)@visible = not(_IsExtern);
+ end if;
+end index;
+
+UI.HeeftAfwijkendeRugHoogte@visible = not(_IsExtern);
+UI.RugHoogte@visible = not(_IsExtern);
+
+//DATA.Toepassing@option("B")@visible = false;
+UI.Toepassing@option("images\VH\Configurator\TBX\Toepassing\Buro.png")@visible = false;
+
+
+ Init - Visibles op basis van flags
+ ;ui.verpakkingtype@options;ui.heeftafwijkenderughoogte@visible;ui.rughoogte@visible;ui.toepassing@options;
+
+
+ STATE.Initialized
+ local boolean _Result;
+
+local string _SaveAs = GetArg("saveas");
+local string _Configuration = GetArg("configuration");
+local string _Version = GetArg("version");
+
+if (_SaveAs == "" and _Configuration <> "") then
+ _SaveAs = ElementId(_Configuration; _Version);
+end if;
+
+if (ConfigurationName == "") then
+ if (_SaveAs <> "") then
+ ConfigurationName = _SaveAs;
+ else
+ ConfigurationName = NewId() + ",1";
+ end if;
+end if;
+
+if (_SaveAs == "" and ConfigurationName <> "") then
+ _Result = SetArg("saveas"; ElementName(ConfigurationName));
+ _SaveAs = ConfigurationName;
+end if;
+
+if (ConfigurationName <> "" and _SaveAs <> "" and ConfigurationName <> _SaveAs) then
+ ConfigurationName = _SaveAs;
+end if
+ Init - ConfigurationId bepalen
+ ;configurationname@value;
+
+
+ STATE.Initialized and (FLAG.Token <> "")
+ //local string _Json = "serviceUrl=http://platform.testing.vanhoecke.be/api/settings/" + FLAG.Token + ".json";
+local string _Json = "serviceUrl=http://localhost:81/" + FLAG.Token + ".json";
+local boolean _Result = LoadFromJSONService("PROFILE.KeyValue"; _Json; false);
+
+index i of PROFILE.KeyValue
+ _Result = SetValue("PROFILE.Settings." + PROFILE.KeyValue(i).Name; PROFILE.KeyValue(i).Value);
+end index;
+ Init - Profiel ophalen
+ ;
+
+
+ STATE.Initialized
+ STATE.Initialized = false;
+ Init - Einde initialisatie
+ ;state.initialized@value;
+
+
+
+ true
+ // Read only controls niet overnemen
+//DATA.InterneBreedte = UI.InterneBreedte;
+//DATA.OpvullijstDikte = UI.OpvullijstDikte;
+
+// Simple controls
+DATA.CorpusBreedte = UI.CorpusBreedte;
+DATA.CorpusWanddikte = UI.CorpusWanddikte;
+DATA.DwarsverdelingAantal = UI.DwarsverdelingAantal;
+DATA.FrontBevestiging = UI.FrontBevestiging;
+DATA.FrontStabilisatorAantal = UI.FrontStabilisatorAantal;
+DATA.FrontOndersteuningType = UI.FrontOndersteuningType;
+DATA.GeleiderTechnologie = UI.GeleiderTechnologie;
+DATA.GreepEnMeenemer = UI.GreepEnMeenemer;
+DATA.HangmapBoringAantal = UI.HangmapBoringAantal;
+DATA.IsBinnenbreedte = UI.IsBinnenbreedte;
+DATA.IsBinnenlade = UI.IsBinnenlade;
+DATA.LadeDiepte = UI.LadeDiepte;
+DATA.LadeHoogte = UI.LadeHoogte;
+DATA.Lijn.Aantal = UI.Aantal;
+DATA.Lijn.Referentie = UI.Referentie;
+DATA.HeeftAfwijkendeRugHoogte = UI.HeeftAfwijkendeRugHoogte;
+DATA.HeeftOpvullijstLinks = UI.HeeftOpvullijstLinks;
+DATA.HeeftOpvullijstRechts= UI.HeeftOpvullijstRechts;
+DATA.HeeftZijstabilisering = UI.HeeftZijstabilisering;
+DATA.ProductieWijze = UI.ProductieWijze;
+DATA.RugHoogte = UI.RugHoogte;
+DATA.RugwandMateriaal = UI.RugwandMateriaal;
+
+DATA.UitsparingData.M.Breedte = UI.UitsparingData.M.Breedte;
+DATA.UitsparingData.M.Diepte = UI.UitsparingData.M.Diepte;
+DATA.UitsparingData.M.Hoogte = UI.UitsparingData.M.Hoogte;
+DATA.UitsparingData.M.Materiaal = UI.UitsparingData.M.Materiaal;
+DATA.UitsparingData.M.Vorm = UI.UitsparingData.M.Vorm;
+
+DATA.UitsparingData.X.Breedte = UI.UitsparingData.X.Breedte;
+DATA.UitsparingData.X.Diepte = UI.UitsparingData.X.Diepte;
+DATA.UitsparingData.X.Hoogte = UI.UitsparingData.X.Hoogte;
+DATA.UitsparingData.X.Materiaal = UI.UitsparingData.X.Materiaal;
+DATA.UitsparingData.X.Vorm = UI.UitsparingData.X.Vorm;
+
+DATA.UitsparingData.Y.Breedte = UI.UitsparingData.Y.Breedte;
+DATA.UitsparingData.Y.Diepte = UI.UitsparingData.Y.Diepte;
+DATA.UitsparingData.Y.Hoogte = UI.UitsparingData.Y.Hoogte;
+DATA.UitsparingData.Y.Materiaal = UI.UitsparingData.Y.Materiaal;
+DATA.UitsparingData.Y.Vorm = UI.UitsparingData.Y.Vorm;
+
+DATA.UitsparingData.Z1.Breedte = UI.UitsparingData.Z1.Breedte;
+DATA.UitsparingData.Z1.Diepte = UI.UitsparingData.Z1.Diepte;
+DATA.UitsparingData.Z1.Hoogte = UI.UitsparingData.Z1.Hoogte;
+DATA.UitsparingData.Z1.Materiaal = UI.UitsparingData.Z1.Materiaal;
+DATA.UitsparingData.Z1.Vorm = UI.UitsparingData.Z1.Vorm;
+
+DATA.UitsparingData.Z2.Breedte = UI.UitsparingData.Z2.Breedte;
+DATA.UitsparingData.Z2.Diepte = UI.UitsparingData.Z2.Diepte;
+DATA.UitsparingData.Z2.Hoogte = UI.UitsparingData.Z2.Hoogte;
+DATA.UitsparingData.Z2.Materiaal = UI.UitsparingData.Z2.Materiaal;
+DATA.UitsparingData.Z2.Vorm = UI.UitsparingData.Z2.Vorm;
+
+DATA.UitsparingData.UitsparingAantal = UI.UitsparingData.UitsparingAantal;
+DATA.VerpakkingType = UI.VerpakkingType;
+DATA.ZijwandVerhogingMateriaal = UI.ZijwandVerhogingMateriaal;
+DATA.ZijwandVerhogingInschuifElementKleur = UI.ZijwandVerhogingInschuifElementKleur;
+DATA.NietMeeleverenAlleOnderdelen = UI.NietMeeleverenAlleOnderdelen;
+
+// Niet meeleveren
+index i of UI.NietMeeleveren
+ local boolean _Result = SetValue("DATA.NietMeeleveren.NietMeeleveren_" + UI.NietMeeleveren(i).Id + "@default"; cstr(UI.NietMeeleveren(i).IsSelected));
+end index;
+
+// Image controls
+DATA.BodemKleur = UI.BodemKleur.Value;
+DATA.Draagkracht = UI.Draagkracht.Value;
+DATA.InbouwHoogte = UI.InbouwHoogte.Value;
+DATA.LadeDesign = UI.LadeDesign.Value;
+DATA.LadeKleur = UI.LadeKleur.Value;
+DATA.MatAntislipFiberKleur = UI.MatAntislipFiberKleur.Value;
+DATA.MatAntislipKleur = UI.MatAntislipKleur.Value;
+DATA.MatMateriaal = UI.MatMateriaal.Value;
+DATA.MatVinylFiberglassKleur = UI.MatVinylFiberglassKleur.Value;
+DATA.MatWolviltKleur = UI.MatWolviltKleur.Value;
+DATA.Toepassing = UI.Toepassing.Value;
+DATA.OpvullijstKleur = UI.OpvullijstKleur.Value;
+DATA.ZijwandVerhogingType = UI.ZijwandVerhogingType.Value;
+DATA.ZijwandVerhogingRelingKleur = UI.ZijwandVerhogingRelingKleur.Value;
+ Kopieer values naar DATA
+ ;data.corpusbreedte@value;data.corpuswanddikte@value;data.dwarsverdelingaantal@value;data.frontbevestiging@value;data.frontstabilisatoraantal@value;data.frontondersteuningtype@value;data.geleidertechnologie@value;data.greepenmeenemer@value;data.hangmapboringaantal@value;data.isbinnenbreedte@value;data.isbinnenlade@value;data.ladediepte@value;data.ladehoogte@value;data.lijn.aantal@value;data.lijn.referentie@value;data.heeftafwijkenderughoogte@value;data.heeftopvullijstlinks@value;data.heeftopvullijstrechts@value;data.heeftzijstabilisering@value;data.productiewijze@value;data.rughoogte@value;data.rugwandmateriaal@value;data.uitsparingdata.m.breedte@value;data.uitsparingdata.m.diepte@value;data.uitsparingdata.m.hoogte@value;data.uitsparingdata.m.materiaal@value;data.uitsparingdata.m.vorm@value;data.uitsparingdata.x.breedte@value;data.uitsparingdata.x.diepte@value;data.uitsparingdata.x.hoogte@value;data.uitsparingdata.x.materiaal@value;data.uitsparingdata.x.vorm@value;data.uitsparingdata.y.breedte@value;data.uitsparingdata.y.diepte@value;data.uitsparingdata.y.hoogte@value;data.uitsparingdata.y.materiaal@value;data.uitsparingdata.y.vorm@value;data.uitsparingdata.z1.breedte@value;data.uitsparingdata.z1.diepte@value;data.uitsparingdata.z1.hoogte@value;data.uitsparingdata.z1.materiaal@value;data.uitsparingdata.z1.vorm@value;data.uitsparingdata.z2.breedte@value;data.uitsparingdata.z2.diepte@value;data.uitsparingdata.z2.hoogte@value;data.uitsparingdata.z2.materiaal@value;data.uitsparingdata.z2.vorm@value;data.uitsparingdata.uitsparingaantal@value;data.verpakkingtype@value;data.zijwandverhogingmateriaal@value;data.zijwandverhoginginschuifelementkleur@value;data.nietmeeleverenalleonderdelen@value;data.bodemkleur@value;data.draagkracht@value;data.inbouwhoogte@value;data.ladedesign@value;data.ladekleur@value;data.matantislipfiberkleur@value;data.matantislipkleur@value;data.matmateriaal@value;data.matvinylfiberglasskleur@value;data.matwolviltkleur@value;data.toepassing@value;data.opvullijstkleur@value;data.zijwandverhogingtype@value;data.zijwandverhogingrelingkleur@value;
+
+
+
+ (PROFILE.Settings.ReferentieLade <> "") and (BEHAVIOR.InputMode <> "Edit")
+ local string _Connection = GetSetting("data.connectionstring");
+local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + PROFILE.Settings.ReferentieLade + "'";
+
+DEFAULTS.Configurations@options = {};
+DEFAULTS.Configurations@options = ExecuteOptionsQuery("DEFAULTS.Configurations"; true; _Connection; _Query);
+
+STATE.ReferentieLadeLoaded = true;
+ Defaults - ReferentieLade: ConfigId ophalen op basis van ReferentieLade
+ ;defaults.configurations@options;state.referentieladeloaded@value;
+
+
+ STATE.ReferentieLadeLoaded and (DEFAULTS.Configurations.Name == PROFILE.Settings.ReferentieLade)
+ STATE.ReferentieLadeLoaded = false;
+
+local string _Connection = GetSetting("data.connectionstring");
+local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + DEFAULTS.Configurations.Id + "' AND propertyname LIKE 'Data.%'";
+local boolean _Result;
+
+DEFAULTS.Properties@options = {};
+DEFAULTS.Properties@options = ExecuteOptionsQuery("DEFAULTS.Properties"; true; _Connection; _Query);
+
+local string _References = "";
+_References = _References + "DATA.BodemKleur;";
+_References = _References + "DATA.CorpusWanddikte;";
+_References = _References + "DATA.FrontBevestiging";
+_References = _References + "DATA.GeleiderTechnologie;";
+_References = _References + "DATA.IsBinnenbreedte;";
+_References = _References + "DATA.LadeKleur;";
+_References = _References + "DATA.MatAntislipFiberKleur;";
+_References = _References + "DATA.MatAntislipKleur;";
+_References = _References + "DATA.MatVinylFiberglassKleur;";
+_References = _References + "DATA.MatWolviltKleur;";
+_References = _References + "DATA.NietMeeleveren.NietMeeleveren_Afdekkap;";
+_References = _References + "DATA.NietMeeleveren.NietMeeleveren_Antislipmat;";
+_References = _References + "DATA.NietMeeleveren.NietMeeleveren_Bodemsteun;";
+_References = _References + "DATA.NietMeeleveren.NietMeeleveren_FrontBevestiging;";
+_References = _References + "DATA.NietMeeleveren.NietMeeleveren_Geleider;";
+_References = _References + "DATA.NietMeeleveren.NietMeeleveren_InschuifElement;";
+_References = _References + "DATA.NietMeeleveren.NietMeeleveren_Opvullijst;";
+_References = _References + "DATA.NietMeeleveren.NietMeeleveren_Reling;";
+_References = _References + "DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen;";
+_References = _References + "DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSet;";
+_References = _References + "DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang;";
+_References = _References + "DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren;";
+_References = _References + "DATA.NietMeeleveren.NietMeeleverenAlleOnderdelen;";
+_References = _References + "DATA.OpvullijstKleur;";
+_References = _References + "DATA.RugwandMateriaal;";
+_References = _References + "DATA.VerpakkingType;";
+_References = _References + "DATA.ZijwandVerhogingMateriaal;";
+
+for i = 1 to len(DEFAULTS.Properties@options)
+ DEFAULTS.Properties = DEFAULTS.Properties@option(i)@id;
+
+ local boolean _ReferenceExists = (Instr(1; LCase(_References); LCase(DEFAULTS.Properties.PropertyName)) > 0);
+
+ if (_ReferenceExists) then
+ _Result = SetValue(DEFAULTS.Properties.PropertyName; DEFAULTS.Properties.Value);
+ end if;
+end for;
+ Defaults - ReferentieLade: Properties ophalen op basis van ConfigId
+ ;state.referentieladeloaded@value;defaults.properties@options;
+
+
+ (PROFILE.Settings.ReferentieLade == "") and (BEHAVIOR.InputMode <> "Edit") and (PROFILE.Settings.KlantId <> "")
+ local string _Connection = GetSetting("data.connectionstring");
+local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + PROFILE.Settings.KlantId + "'";
+
+DEFAULTS.Configurations@options = {};
+DEFAULTS.Configurations@options = ExecuteOptionsQuery("DEFAULTS.Configurations"; true; _Connection; _Query);
+
+STATE.DefaultsLoaded = true;
+ Defaults - KlantVoorkeuren: ConfigId ophalen op basis van KlantId
+ ;defaults.configurations@options;state.defaultsloaded@value;
+
+
+ STATE.DefaultsLoaded and (DEFAULTS.Configurations.Name == PROFILE.Settings.KlantId)
+ STATE.DefaultsLoaded = false;
+
+local string _Connection = GetSetting("data.connectionstring");
+local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + DEFAULTS.Configurations.Id + "' AND propertyname LIKE 'Data.%' AND value <> ''";
+local boolean _Result;
+
+DEFAULTS.Properties@options = {};
+DEFAULTS.Properties@options = ExecuteOptionsQuery("DEFAULTS.Properties"; true; _Connection; _Query);
+
+local string _Preferences = "";
+_Preferences = _Preferences + "DATA.BodemKleur;";
+_Preferences = _Preferences + "DATA.CorpusWanddikte;";
+_Preferences = _Preferences + "DATA.FrontBevestiging;";
+_Preferences = _Preferences + "DATA.GeleiderTechnologie";
+_Preferences = _Preferences + "DATA.Isbinnenbreedte";
+_Preferences = _Preferences + "DATA.LadeKleur";
+_Preferences = _Preferences + "DATA.MatAntislipFiberKleur";
+_Preferences = _Preferences + "DATA.MatAntislipKleur";
+_Preferences = _Preferences + "DATA.MatVinylFiberglassKleur";
+_Preferences = _Preferences + "DATA.MatWolviltKleur";
+_Preferences = _Preferences + "DATA.NietMeeleveren.NietMeeleveren_Afdekkap";
+_Preferences = _Preferences + "DATA.NietMeeleveren.NietMeeleveren_Geleider";
+_Preferences = _Preferences + "DATA.NietMeeleveren.NietMeeleveren_InschuifElement";
+_Preferences = _Preferences + "DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen";
+_Preferences = _Preferences + "DATA.VerpakkingType";
+
+for i = 1 to len(DEFAULTS.Properties@options)
+ DEFAULTS.Properties = DEFAULTS.Properties@option(i)@id;
+
+ local boolean _PreferenceExists = (Instr(1; LCase(_Preferences); LCase(DEFAULTS.Properties.PropertyName)) > 0);
+
+ if (_PreferenceExists) then
+ _Result = SetValue(DEFAULTS.Properties.PropertyName; DEFAULTS.Properties.Value);
+ end if;
+end for;
+ Defaults - KlantVoorkeuren: Properties ophalen op basis van ConfigId
+ ;state.defaultsloaded@value;defaults.properties@options;
+
+
+ (PROFILE.Settings.ReferentieLade == "") and (BEHAVIOR.InputMode <> "Edit") and (PROFILE.Settings.PersonalityId <> "") and (len(DEFAULTS.Properties) == 0)
+ local string _Connection = GetSetting("data.connectionstring");
+local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + PROFILE.Settings.PersonalityId + "'";
+
+DEFAULTS.Configurations@options = {};
+DEFAULTS.Configurations@options = ExecuteOptionsQuery("DEFAULTS.Configurations"; true; _Connection; _Query);
+
+STATE.DefaultsLoaded = true;
+ Defaults - PersonalityVoorkeuren: ConfigId ophalen op basis van PersonalityId
+ ;defaults.configurations@options;state.defaultsloaded@value;
+
+
+ STATE.DefaultsLoaded and (DEFAULTS.Configurations.Name == PROFILE.Settings.PersonalityId)
+ STATE.DefaultsLoaded = false;
+
+local string _Connection = GetSetting("data.connectionstring");
+local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + DEFAULTS.Configurations.Id + "' AND propertyname LIKE 'Data.%' AND value <> ''";
+local boolean _Result;
+
+DEFAULTS.Properties@options = {};
+DEFAULTS.Properties@options = ExecuteOptionsQuery("DEFAULTS.Properties"; true; _Connection; _Query);
+
+local string _Defaults = "";
+_Defaults = _Defaults + "DATA.FrontOndersteuningType;";
+_Defaults = _Defaults + "DATA.GeleiderTechnologie;";
+_Defaults = _Defaults + "DATA.HeeftAfwijkendeRugHoogte;";
+_Defaults = _Defaults + "DATA.IsBinnenbreedte;";
+_Defaults = _Defaults + "DATA.IsBinnenlade;";
+_Defaults = _Defaults + "DATA.OpvullijstKleur;";
+_Defaults = _Defaults + "DATA.PlaatMateriaal;";
+_Defaults = _Defaults + "DATA.ProductieWijze;";
+_Defaults = _Defaults + "DATA.RugwandMateriaal;";
+_Defaults = _Defaults + "DATA.Toepassing;";
+_Defaults = _Defaults + "DATA.UitsparingData.UitsparingAantal;";
+_Defaults = _Defaults + "DATA.UitsparingData.X.Breedte;";
+_Defaults = _Defaults + "DATA.UitsparingData.Z1.Breedte;";
+_Defaults = _Defaults + "DATA.UitsparingData.Z2.Breedte;";
+_Defaults = _Defaults + "DATA.Variant;";
+_Defaults = _Defaults + "DATA.VerpakkingType;";
+
+for i = 1 to len(DEFAULTS.Properties@options)
+ DEFAULTS.Properties = DEFAULTS.Properties@option(i)@id;
+
+ local boolean _DefaultExists = (Instr(1; LCase(_Defaults); LCase(DEFAULTS.Properties.PropertyName)) > 0);
+
+ if (_DefaultExists) then
+ _Result = SetValue(DEFAULTS.Properties.PropertyName; DEFAULTS.Properties.Value);
+ end if;
+end for;
+
+
+/*
+local string _DefaultsValue = "";
+local string _DefaultsPropertyName = "";
+local string _DefaultsDataEval = "";
+
+for i = 1 to len(DEFAULTS.Properties@options)
+ DEFAULTS.Properties = DEFAULTS.Properties@option(i)@id;
+ local boolean _DefaultExists = (Instr(1; LCase(_Defaults); LCase(DEFAULTS.Properties.PropertyName)) > 0);
+
+ if (_DefaultExists) then
+ local string _Value = DEFAULTS.Properties.Value;
+ local string _eValue = CStr(eval(DEFAULTS.Properties.PropertyName));
+
+ local boolean _HasValue = (_Value <> "");
+ local boolean _IsZero = (_Value == "0");
+
+ _DefaultsValue = _DefaultsValue + DEFAULTS.Properties.Value + "||||";
+ _DefaultsPropertyName = _DefaultsPropertyName + DEFAULTS.Properties.PropertyName + "||||";
+ _DefaultsDataEval = _DefaultsDataEval + CStr(eval(DEFAULTS.Properties.PropertyName)) + "||||";
+
+ if (_HasValue and not(_IsZero)) then
+ _Result = SetValue(DEFAULTS.Properties.PropertyName; DEFAULTS.Properties.Value);
+ end if;
+ end if;
+end for;
+
+Output = _DefaultsValue + "-----" + _DefaultsPropertyName + "-----" + _DefaultsDataEval;
+*/
+ Defaults - PersonalityVoorkeuren: Properties ophalen op basis van ConfigId
+ ;state.defaultsloaded@value;defaults.properties@options;
+
+
+
+ false //(FLAG.DEV_HeeftDefaults and (BEHAVIOR.InputMode <> "Edit"))
+ DATA.BodemKleur = "LG";
+DATA.CorpusBreedte = 875;
+DATA.CorpusWanddikte = 0;
+DATA.Draagkracht = "30";
+DATA.GeleiderTechnologie = "TOB";
+DATA.InbouwHoogte = "M";
+DATA.IsBinnenlade = false;
+DATA.IsBinnenbreedte = true;
+DATA.LadeDiepte = "400";
+DATA.LadeHoogte = "K";
+DATA.LadeKleur = "MG";
+//DATA.Lijn.Aantal = 2;
+DATA.RugwandMateriaal = "Hout";
+//DATA.Toepassing = "L";
+DATA.VerpakkingType = "V1";
+DATA.ZijwandVerhogingType = "Laag";
+
+DATA.NietMeeleveren.NietMeeleveren_Geleider = true;
+DATA.NietMeeleveren.NietMeeleveren_Bodemsteun = true;
+
+FLAG.DEV_HeeftDefaults = false;
+ DEV - eenmalig uitgevoerde regel om data waarden te zetten
+ ;data.bodemkleur@value;data.corpusbreedte@value;data.corpuswanddikte@value;data.draagkracht@value;data.geleidertechnologie@value;data.inbouwhoogte@value;data.isbinnenlade@value;data.isbinnenbreedte@value;data.ladediepte@value;data.ladehoogte@value;data.ladekleur@value;data.rugwandmateriaal@value;data.verpakkingtype@value;data.zijwandverhogingtype@value;data.nietmeeleveren.nietmeeleveren_geleider@value;data.nietmeeleveren.nietmeeleveren_bodemsteun@value;flag.dev_heeftdefaults@value;
+
+
+ true
+ local double Dikte = 25;
+
+if (DATA.Toepassing == "B") then
+ Dikte = 12.5; // Burobox slotplaat wisselkernen
+end if;
+
+DATA.OpvullijstDikte = Dikte;
+ Bereken OpvullijstDikte
+ ;data.opvullijstdikte@value;
+
+
+ true
+ local double _CorpusWanddikte = DATA.CorpusWanddikte;
+local double _OpvullijstDikte = DATA.OpvullijstDikte;
+
+local boolean _IsBinnenbreedte = DATA.IsBinnenbreedte;
+local boolean _HeeftOpvullijstLinks = DATA.HeeftOpvullijstLinks;
+local boolean _HeeftOpvullijstRechts = DATA.HeeftOpvullijstRechts;
+
+local long _MinTolerantieIB = 0;
+local long _AantalOpvullijsten = 0;
+
+// MinTolerantieIB (voor Interne mode nog te koppelen aan een input-property, alleen bij TBX)
+if not(_IsBinnenbreedte) then
+ _MinTolerantieIB = 1;
+end if;
+
+if (_HeeftOpvullijstLinks) then
+ _AantalOpvullijsten = _AantalOpvullijsten + 1;
+end if;
+
+if (_HeeftOpvullijstRechts) then
+ _AantalOpvullijsten = _AantalOpvullijsten + 1;
+end if;
+
+if (_IsBinnenbreedte) then
+ _CorpusWanddikte = 0;
+end if;
+
+DATA.CorpusBreedteDelta = (2 * _CorpusWanddikte) + (_AantalOpvullijsten * _OpvullijstDikte) + _MinTolerantieIB;
+
+ Bereken CorpusBreedteDelta
+ ;data.corpusbreedtedelta@value;
+
+
+ true
+ DATA.Lijn.GroeperingCode = DATA.LadeDesign + ";" + DATA.BodemKleur;
+ Bereken GroeperingCode
+ ;data.lijn.groeperingcode@value;
+
+
+ true
+ local string _LadeCode = DATA.InbouwHoogte;
+
+if DATA.IsBinnenlade then
+ _LadeCode = _LadeCode + "/Z";
+end if;
+
+// TO DO : Later verder uitbreiden, o.a. spoelbak/sifonlade, ...
+
+DATA.LadeCode = _LadeCode;
+ Bereken LadeCode
+ ;data.ladecode@value;
+
+
+ true
+ local string _ZijwandVerhogingCode = "";
+local string _Delimiter = "_";
+
+_ZijwandVerhogingCode = switch DATA.ZijwandVerhogingType
+ case "Zonder": _Delimiter + "ZR"
+ case "Reling": _Delimiter + "ER"
+ case "InschuifElement": _Delimiter + "INSCHF"
+ else ""
+end switch;
+
+DATA.AfbeeldingCode = Replace(DATA.LadeCode; "/"; "") + _ZijwandVerhogingCode;
+ Bereken AfbeeldingCode
+ ;data.afbeeldingcode@value;
+
+
+
+
+ true
+ local long _Minimum = 1;
+
+if (UI.VerpakkingType == "Probox") then
+ _Minimum = 6;
+end if;
+
+RANGE.Aantal.MINIMUM = _Minimum;
+ Aantal minimum
+ ;range.aantal.minimum@value;
+
+
+ true
+ // maximum zit niet in validatie voor aantal
+// bedenking: voor GLS mogen max. 50 lades in een winkelkar
+
+//RANGE.Aantal.MAXIMUM = 2;
+ Aantal maximum
+ ;
+
+
+
+
+ true
+ RANGE.CorpusBreedte.Minimum = RANGE.InterneBreedte.Minimum + DATA.CorpusBreedteDelta
+ CorpusBreedte minimum
+ ;range.corpusbreedte.minimum@value;
+
+
+ true
+ RANGE.CorpusBreedte.Maximum = RANGE.InterneBreedte.Maximum + DATA.CorpusBreedteDelta
+ CorpusBreedte maximum
+ ;range.corpusbreedte.maximum@value;
+
+
+
+
+ true
+ // Constants
+local double MINIMUM_BREEDTE = 155;
+local double MIN_VOOR_BINNENLADE = 212; // Vroeger: TBX plus = 155 = MINIMUM_BREEDTE
+local double MIN_VOOR_TOB = 238;
+local double MIN_VOOR_TIPON = 260;
+local double MIN_VOOR_SIFONLADE = 370;
+local double MIN_VOOR_SPOELBAKLADE = 411;
+
+// Defaults
+local double Breedte = MINIMUM_BREEDTE;
+
+// Voorwaardelijke beperkingen
+local double NieuweBeperking;
+
+if (DATA.IsBinnenlade) then
+ NieuweBeperking = MIN_VOOR_BINNENLADE;
+ Breedte = eCon.Core.Functions.Max(Breedte; NieuweBeperking);
+end if;
+
+if (DATA.GeleiderTechnologie == "TOB") then
+ NieuweBeperking = MIN_VOOR_TOB;
+ Breedte = eCon.Core.Functions.Max(Breedte; NieuweBeperking);
+end if;
+
+if (DATA.GeleiderTechnologie == "T") then
+ NieuweBeperking = MIN_VOOR_TIPON;
+ Breedte = eCon.Core.Functions.Max(Breedte; NieuweBeperking);
+end if;
+
+if (DATA.Toepassing == "SY2") then
+ NieuweBeperking = MIN_VOOR_SIFONLADE;
+ Breedte = eCon.Core.Functions.Max(Breedte; NieuweBeperking);
+end if;
+
+if (DATA.Toepassing == "SP2") then
+ NieuweBeperking = MIN_VOOR_SPOELBAKLADE;
+ Breedte = eCon.Core.Functions.Max(Breedte; NieuweBeperking);
+end if;
+
+RANGE.InterneBreedte.Minimum = Breedte;
+ InterneBreedte minimum
+ ;range.internebreedte.minimum@value;
+
+
+ true
+ // Constants
+local double MAXIMUM_BREEDTE = 1500;
+local double MAX_VOOR_BINNENLADE = 1168; // beperking max door lengte van de frontplaat
+local double MAX_VOOR_TOB = 1368; // beperking max door lengte van de synchro-stang (+adapter)
+local double MAX_VOOR_TIPON = 1390; // beperking max door lengte van de synchro-stang (+adapter)
+local double MAX_VOOR_VHOSS = 1168; // = 1200 - 2x16
+
+// Defaults
+local double Breedte = MAXIMUM_BREEDTE;
+
+// Voorwaardelijke beperkingen
+local double NieuweBeperking;
+
+if (DATA.IsBinnenlade) then
+ NieuweBeperking = MAX_VOOR_BINNENLADE;
+ Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking);
+end if;
+
+if (DATA.GeleiderTechnologie == "TOB") then
+ NieuweBeperking = MAX_VOOR_TOB;
+ Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking);
+end if;
+
+if (DATA.GeleiderTechnologie == "T") then
+ NieuweBeperking = MAX_VOOR_TIPON;
+ Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking);
+end if;
+
+if (DATA.VerpakkingType == "VHoss") then
+ NieuweBeperking = MAX_VOOR_VHOSS;
+ Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking);
+end if;
+
+RANGE.InterneBreedte.Maximum = Breedte;
+ InterneBreedte maximum
+ ;range.internebreedte.maximum@value;
+
+
+
+
+ true
+ RANGE.UitsparingDataBreedteM.Minimum = 120;
+ UitsparingDataBreedteM minimum
+ ;range.uitsparingdatabreedtem.minimum@value;
+
+
+ true
+ local boolean _HeeftDubbeleUitsparing = (DATA.UitsparingData.UitsparingAantal == "Dubbel");
+
+local double _BreedteX = Data.UitsparingData.X.Breedte;
+local double _BreedteY = Data.UitsparingData.Y.Breedte;
+
+local double _SomUitsparingen = 0;
+
+if (Data.UitsparingData.X.Breedte < RANGE.UitsparingDataBreedteX.Minimum) then
+ _BreedteX = RANGE.UitsparingDataBreedteX.Minimum;
+end if;
+
+if (Data.UitsparingData.Y.Breedte < RANGE.UitsparingDataBreedteY.Minimum) then
+ _BreedteY = RANGE.UitsparingDataBreedteY.Minimum;
+end if;
+
+_SomUitsparingen = _BreedteX + DATA.UitsparingData.Z1.Breedte + _BreedteY;
+
+if (_HeeftDubbeleUitsparing) then
+ _SomUitsparingen = _SomUitsparingen + DATA.UitsparingData.Z2.Breedte;
+end if;
+
+// dit is eigenlijk meer de suggestie
+RANGE.UitsparingDataBreedteM.Maximum = DATA.InterneBreedte - _SomUitsparingen;
+ UitsparingDataBreedteM maximum
+ ;range.uitsparingdatabreedtem.maximum@value;
+
+
+
+
+ true
+ RANGE.UitsparingDataBreedteM.Minimum = 120;
+ UitsparingDataBreedteX minimum
+ ;range.uitsparingdatabreedtem.minimum@value;
+
+
+ true
+ local boolean _HeeftDubbeleUitsparing = (DATA.UitsparingData.UitsparingAantal == "Dubbel");
+
+local double _BreedteM = Data.UitsparingData.M.Breedte;
+local double _BreedteY = Data.UitsparingData.Y.Breedte;
+
+local double _SomUitsparingen = 0;
+
+if (Data.UitsparingData.M.Breedte < RANGE.UitsparingDataBreedteM.Minimum) then
+ _BreedteM = RANGE.UitsparingDataBreedteM.Minimum;
+end if;
+
+if (Data.UitsparingData.Y.Breedte < RANGE.UitsparingDataBreedteY.Minimum) then
+ _BreedteY = RANGE.UitsparingDataBreedteY.Minimum;
+end if;
+
+_SomUitsparingen = DATA.UitsparingData.Z1.Breedte + _BreedteY;
+
+if (_HeeftDubbeleUitsparing) then
+ _SomUitsparingen = _SomUitsparingen + _BreedteM + DATA.UitsparingData.Z2.Breedte;
+end if;
+
+RANGE.UitsparingDataBreedteM.Maximum = DATA.InterneBreedte - _SomUitsparingen;
+ UitsparingDataBreedteX maximum
+ ;range.uitsparingdatabreedtem.maximum@value;
+
+
+
+
+ true
+ RANGE.UitsparingDataBreedteM.Minimum = 120;
+ UitsparingDataBreedteY minimum
+ ;range.uitsparingdatabreedtem.minimum@value;
+
+
+ true
+ local boolean _HeeftDubbeleUitsparing = (DATA.UitsparingData.UitsparingAantal == "Dubbel");
+
+local double _BreedteX = Data.UitsparingData.X.Breedte;
+local double _BreedteM = Data.UitsparingData.M.Breedte;
+
+local double _SomUitsparingen = 0;
+
+if (Data.UitsparingData.X.Breedte < RANGE.UitsparingDataBreedteX.Minimum) then
+ _BreedteX = RANGE.UitsparingDataBreedteX.Minimum;
+end if;
+
+if (Data.UitsparingData.M.Breedte < RANGE.UitsparingDataBreedteM.Minimum) then
+ _BreedteM = RANGE.UitsparingDataBreedteM.Minimum;
+end if;
+
+_SomUitsparingen = _BreedteX + DATA.UitsparingData.Z1.Breedte;
+
+if (_HeeftDubbeleUitsparing) then
+ _SomUitsparingen = _SomUitsparingen + _BreedteM + DATA.UitsparingData.Z2.Breedte;
+end if;
+
+RANGE.UitsparingDataBreedteM.Maximum = DATA.InterneBreedte - _SomUitsparingen;
+ UitsparingDataBreedteY maximum
+ ;range.uitsparingdatabreedtem.maximum@value;
+
+
+
+
+
+ true
+ DATA.InterneBreedte = DATA.CorpusBreedte - DATA.CorpusBreedteDelta;
+ Bereken InterneBreedte
+ ;data.internebreedte@value;
+
+
+ false // mogelijks via constraint
+ // Constants
+local double MINDIEPTE_SIFONLADE_MET_TOB_STANG = 400;
+
+// Voorwaardelijke beperkingen
+local boolean IsLadeMetUitsparing = (DATA.Toepassing in {"SY2"; "SP2"});
+local boolean HeeftSynchrostang = (DATA.GeleiderTechnologie in {"TOB"; "T"});
+
+/*if (IsLadeMetUitsparing and HeeftSynchrostang) then
+ // LadeDiepte Valids aanpassen : invalid indien kleiner dan MINDIEPTE_SIFONLADE_MET_TOB_STANG
+end if;*/
+ Minimum LadeDiepte voor UitsparingData
+ ;
+
+
+
+
+ true
+ DATA.LadeDesign@option("WA")@valid = DATA.LadeKleur in {""; "SW"};
+DATA.LadeDesign@option("GA")@valid = DATA.LadeKleur in {""; "MG"};
+DATA.LadeDesign@option("IA")@valid = DATA.LadeKleur in {""; "IN"};
+DATA.LadeDesign@option("ZA")@valid = DATA.LadeKleur in {""; "BZ"};
+
+ Set the valid options of DATA.LadeDesign - Use the value of DATA.LadeKleur
+ ;data.ladedesign@valids;
+
+
+ true
+ UI.CorpusWanddikte@Visible = not UI.IsBinnenbreedte;
+
+ Set the visible of UI.CorpusWanddikte - Use the value of UI.IsBinnenbreedte
+ ;ui.corpuswanddikte@visible;
+
+
+ true
+ UI.CorpusWanddikte@Mandatory = not UI.IsBinnenbreedte;
+
+ Set the mandatory of UI.CorpusWanddikte - Use the value of UI.IsBinnenbreedte
+ ;ui.corpuswanddikte@mandatory;
+
+
+ true
+ UI.RugHoogte@Mandatory = UI.HeeftAfwijkendeRugHoogte;
+
+ Set the mandatory of UI.RugHoogte - Use the value of UI.HeeftAfwijkendeRugHoogte
+ ;ui.rughoogte@mandatory;
+
+
+ true
+ UI.RugHoogte@Visible = UI.HeeftAfwijkendeRugHoogte;
+
+ Set the visible of UI.RugHoogte - Use the value of UI.HeeftAfwijkendeRugHoogte
+ ;ui.rughoogte@visible;
+
+
+
+
+ ConstraintsNotSatisfiedFor("DATA.HeeftOpvullijstRechts,DATA.HeeftZijstabilisering@Valids")
+ ConstraintsErrorMessagesFor("DATA.HeeftOpvullijstRechts,DATA.HeeftZijstabilisering@Valids")
+ Gather constraint messages for decision table DATA.HeeftOpvullijstRechts,DATA.HeeftZijstabilisering@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.HeeftOpvullijstLinks,DATA.HeeftZijstabilisering@Valids")
+ ConstraintsErrorMessagesFor("DATA.HeeftOpvullijstLinks,DATA.HeeftZijstabilisering@Valids")
+ Gather constraint messages for decision table DATA.HeeftOpvullijstLinks,DATA.HeeftZijstabilisering@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.HeeftZijstabilisering,DATA.InbouwHoogte@Valids")
+ ConstraintsErrorMessagesFor("DATA.HeeftZijstabilisering,DATA.InbouwHoogte@Valids")
+ Gather constraint messages for decision table DATA.HeeftZijstabilisering,DATA.InbouwHoogte@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.HeeftZijstabilisering,DATA.LadeDiepte@Valids")
+ ConstraintsErrorMessagesFor("DATA.HeeftZijstabilisering,DATA.LadeDiepte@Valids")
+ Gather constraint messages for decision table DATA.HeeftZijstabilisering,DATA.LadeDiepte@Valids
+ ;
+
+
+ true
+ DATA.DwarsverdelingAantal@valids = ConstrainedOptions("DATA.DwarsverdelingAantal,DATA.InbouwHoogte@Valids;DATA.DwarsverdelingAantal,DATA.Toepassing@Valids"; "DATA.DwarsverdelingAantal"; "DATA.InbouwHoogte"; DATA.InbouwHoogte; "DATA.Toepassing"; DATA.Toepassing);
+
+ Applying constraints for property DATA.DwarsverdelingAantal
+ ;data.dwarsverdelingaantal@valids;
+
+
+ ConstraintsNotSatisfiedFor("DATA.InbouwHoogte,DATA.LadeKleur@Valids")
+ ConstraintsErrorMessagesFor("DATA.InbouwHoogte,DATA.LadeKleur@Valids")
+ Gather constraint messages for decision table DATA.InbouwHoogte,DATA.LadeKleur@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.ProductieWijze,DATA.Toepassing@Valids")
+ ConstraintsErrorMessagesFor("DATA.ProductieWijze,DATA.Toepassing@Valids")
+ Gather constraint messages for decision table DATA.ProductieWijze,DATA.Toepassing@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.DwarsverdelingAantal,DATA.InbouwHoogte@Valids")
+ ConstraintsErrorMessagesFor("DATA.DwarsverdelingAantal,DATA.InbouwHoogte@Valids")
+ Gather constraint messages for decision table DATA.DwarsverdelingAantal,DATA.InbouwHoogte@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.DwarsverdelingAantal,DATA.Toepassing@Valids")
+ ConstraintsErrorMessagesFor("DATA.DwarsverdelingAantal,DATA.Toepassing@Valids")
+ Gather constraint messages for decision table DATA.DwarsverdelingAantal,DATA.Toepassing@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.HeeftZijstabilisering,DATA.Toepassing@Valids")
+ ConstraintsErrorMessagesFor("DATA.HeeftZijstabilisering,DATA.Toepassing@Valids")
+ Gather constraint messages for decision table DATA.HeeftZijstabilisering,DATA.Toepassing@Valids
+ ;
+
+
+ true
+ DATA.InbouwHoogte@valids = ConstrainedOptions("DATA.DwarsverdelingAantal,DATA.InbouwHoogte@Valids;DATA.HeeftZijstabilisering,DATA.InbouwHoogte@Valids;DATA.InbouwHoogte,DATA.IsBinnenlade@Valids;DATA.InbouwHoogte,DATA.LadeDiepte@Valids;DATA.InbouwHoogte,DATA.LadeKleur@Valids;DATA.InbouwHoogte,DATA.Toepassing@Valids;DATA.InbouwHoogte,DATA.ZijwandVerhogingType@Valids"; "DATA.InbouwHoogte"; "DATA.DwarsverdelingAantal"; DATA.DwarsverdelingAantal; "DATA.HeeftZijstabilisering"; CurrentBoolean(DATA.HeeftZijstabilisering); "DATA.IsBinnenlade"; CurrentBoolean(DATA.IsBinnenlade); "DATA.LadeDiepte"; DATA.LadeDiepte; "DATA.LadeKleur"; DATA.LadeKleur; "DATA.Toepassing"; DATA.Toepassing; "DATA.ZijwandVerhogingType"; DATA.ZijwandVerhogingType);
+
+ Applying constraints for property DATA.InbouwHoogte
+ ;data.inbouwhoogte@valids;
+
+
+ true
+ DATA.ProductieWijze@valids = ConstrainedOptions("DATA.IsBinnenlade,DATA.ProductieWijze@Valids;DATA.ProductieWijze,DATA.Toepassing@Valids"; "DATA.ProductieWijze"; "DATA.IsBinnenlade"; CurrentBoolean(DATA.IsBinnenlade); "DATA.Toepassing"; DATA.Toepassing);
+
+ Applying constraints for property DATA.ProductieWijze
+ ;data.productiewijze@valids;
+
+
+ true
+ DATA.ZijwandVerhogingType@valids = ConstrainedOptions("DATA.InbouwHoogte,DATA.ZijwandVerhogingType@Valids"; "DATA.ZijwandVerhogingType"; "DATA.InbouwHoogte"; DATA.InbouwHoogte);
+
+ Applying constraints for property DATA.ZijwandVerhogingType
+ ;data.zijwandverhogingtype@valids;
+
+
+ ConstraintsNotSatisfiedFor("DATA.Draagkracht,DATA.LadeDiepte@Valids")
+ ConstraintsErrorMessagesFor("DATA.Draagkracht,DATA.LadeDiepte@Valids")
+ Gather constraint messages for decision table DATA.Draagkracht,DATA.LadeDiepte@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.LadeDiepte,DATA.LadeKleur,DATA.Toepassing@Valids")
+ ConstraintsErrorMessagesFor("DATA.LadeDiepte,DATA.LadeKleur,DATA.Toepassing@Valids")
+ Gather constraint messages for decision table DATA.LadeDiepte,DATA.LadeKleur,DATA.Toepassing@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.LadeDiepte,DATA.Toepassing@Valids")
+ ConstraintsErrorMessagesFor("DATA.LadeDiepte,DATA.Toepassing@Valids")
+ Gather constraint messages for decision table DATA.LadeDiepte,DATA.Toepassing@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.InbouwHoogte,DATA.LadeDiepte@Valids")
+ ConstraintsErrorMessagesFor("DATA.InbouwHoogte,DATA.LadeDiepte@Valids")
+ Gather constraint messages for decision table DATA.InbouwHoogte,DATA.LadeDiepte@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.InbouwHoogte,DATA.Toepassing@Valids")
+ ConstraintsErrorMessagesFor("DATA.InbouwHoogte,DATA.Toepassing@Valids")
+ Gather constraint messages for decision table DATA.InbouwHoogte,DATA.Toepassing@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.InbouwHoogte,DATA.IsBinnenlade@Valids")
+ ConstraintsErrorMessagesFor("DATA.InbouwHoogte,DATA.IsBinnenlade@Valids")
+ Gather constraint messages for decision table DATA.InbouwHoogte,DATA.IsBinnenlade@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.InbouwHoogte,DATA.ZijwandVerhogingType@Valids")
+ ConstraintsErrorMessagesFor("DATA.InbouwHoogte,DATA.ZijwandVerhogingType@Valids")
+ Gather constraint messages for decision table DATA.InbouwHoogte,DATA.ZijwandVerhogingType@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.IsBinnenlade,DATA.ProductieWijze@Valids")
+ ConstraintsErrorMessagesFor("DATA.IsBinnenlade,DATA.ProductieWijze@Valids")
+ Gather constraint messages for decision table DATA.IsBinnenlade,DATA.ProductieWijze@Valids
+ ;
+
+
+ true
+ DATA.LadeDiepte@valids = ConstrainedOptions("DATA.Draagkracht,DATA.GeleiderTechnologie,DATA.LadeDiepte@Valids;DATA.Draagkracht,DATA.LadeDiepte@Valids;DATA.HeeftZijstabilisering,DATA.LadeDiepte@Valids;DATA.InbouwHoogte,DATA.LadeDiepte@Valids;DATA.LadeDiepte,DATA.LadeKleur,DATA.Toepassing@Valids;DATA.LadeDiepte,DATA.Toepassing@Valids"; "DATA.LadeDiepte"; "DATA.Draagkracht"; DATA.Draagkracht; "DATA.GeleiderTechnologie"; DATA.GeleiderTechnologie; "DATA.HeeftZijstabilisering"; CurrentBoolean(DATA.HeeftZijstabilisering); "DATA.InbouwHoogte"; DATA.InbouwHoogte; "DATA.LadeKleur"; DATA.LadeKleur; "DATA.Toepassing"; DATA.Toepassing);
+
+ Applying constraints for property DATA.LadeDiepte
+ ;data.ladediepte@valids;
+
+
+ ConstraintsNotSatisfiedFor("DATA.Draagkracht,DATA.GeleiderTechnologie,DATA.LadeDiepte@Valids")
+ ConstraintsErrorMessagesFor("DATA.Draagkracht,DATA.GeleiderTechnologie,DATA.LadeDiepte@Valids")
+ Gather constraint messages for decision table DATA.Draagkracht,DATA.GeleiderTechnologie,DATA.LadeDiepte@Valids
+ ;
+
+
+ true
+ DATA.Draagkracht@valids = ConstrainedOptions("DATA.Draagkracht,DATA.GeleiderTechnologie,DATA.LadeDiepte@Valids;DATA.Draagkracht,DATA.GeleiderTechnologie@Valids;DATA.Draagkracht,DATA.LadeDiepte@Valids"; "DATA.Draagkracht"; "DATA.GeleiderTechnologie"; DATA.GeleiderTechnologie; "DATA.LadeDiepte"; DATA.LadeDiepte);
+
+ Applying constraints for property DATA.Draagkracht
+ ;data.draagkracht@valids;
+
+
+ true
+ DATA.GeleiderTechnologie@valids = ConstrainedOptions("DATA.Draagkracht,DATA.GeleiderTechnologie,DATA.LadeDiepte@Valids;DATA.Draagkracht,DATA.GeleiderTechnologie@Valids"; "DATA.GeleiderTechnologie"; "DATA.Draagkracht"; DATA.Draagkracht; "DATA.LadeDiepte"; DATA.LadeDiepte);
+
+ Applying constraints for property DATA.GeleiderTechnologie
+ ;data.geleidertechnologie@valids;
+
+
+ ConstraintsNotSatisfiedFor("DATA.Draagkracht,DATA.GeleiderTechnologie@Valids")
+ ConstraintsErrorMessagesFor("DATA.Draagkracht,DATA.GeleiderTechnologie@Valids")
+ Gather constraint messages for decision table DATA.Draagkracht,DATA.GeleiderTechnologie@Valids
+ ;
+
+
+ true
+ DATA.ZijwandVerhogingRelingKleur@valids = ConstrainedOptions("DATA.LadeKleur,DATA.ZijwandVerhogingRelingKleur@Valids"; "DATA.ZijwandVerhogingRelingKleur"; "DATA.LadeKleur"; DATA.LadeKleur);
+
+ Applying constraints for property DATA.ZijwandVerhogingRelingKleur
+ ;data.zijwandverhogingrelingkleur@valids;
+
+
+ ConstraintsNotSatisfiedFor("DATA.LadeKleur,DATA.ZijwandVerhogingRelingKleur@Valids")
+ ConstraintsErrorMessagesFor("DATA.LadeKleur,DATA.ZijwandVerhogingRelingKleur@Valids")
+ Gather constraint messages for decision table DATA.LadeKleur,DATA.ZijwandVerhogingRelingKleur@Valids
+ ;
+
+
+ true
+ DATA.LadeKleur@valids = ConstrainedOptions("DATA.InbouwHoogte,DATA.LadeKleur@Valids;DATA.LadeDiepte,DATA.LadeKleur,DATA.Toepassing@Valids;DATA.LadeKleur,DATA.ZijwandVerhogingInschuifElementKleur@Valids;DATA.LadeKleur,DATA.ZijwandVerhogingRelingKleur@Valids"; "DATA.LadeKleur"; "DATA.InbouwHoogte"; DATA.InbouwHoogte; "DATA.LadeDiepte"; DATA.LadeDiepte; "DATA.Toepassing"; DATA.Toepassing; "DATA.ZijwandVerhogingInschuifElementKleur"; DATA.ZijwandVerhogingInschuifElementKleur; "DATA.ZijwandVerhogingRelingKleur"; DATA.ZijwandVerhogingRelingKleur);
+
+ Applying constraints for property DATA.LadeKleur
+ ;data.ladekleur@valids;
+
+
+ true
+ DATA.ZijwandVerhogingInschuifElementKleur@valids = ConstrainedOptions("DATA.LadeKleur,DATA.ZijwandVerhogingInschuifElementKleur@Valids;DATA.ZijwandVerhogingInschuifElementKleur,DATA.ZijwandVerhogingMateriaal@Valids"; "DATA.ZijwandVerhogingInschuifElementKleur"; "DATA.LadeKleur"; DATA.LadeKleur; "DATA.ZijwandVerhogingMateriaal"; DATA.ZijwandVerhogingMateriaal);
+
+ Applying constraints for property DATA.ZijwandVerhogingInschuifElementKleur
+ ;data.zijwandverhoginginschuifelementkleur@valids;
+
+
+ true
+ DATA.ZijwandVerhogingMateriaal@valids = ConstrainedOptions("DATA.ZijwandVerhogingInschuifElementKleur,DATA.ZijwandVerhogingMateriaal@Valids"; "DATA.ZijwandVerhogingMateriaal"; "DATA.ZijwandVerhogingInschuifElementKleur"; DATA.ZijwandVerhogingInschuifElementKleur);
+
+ Applying constraints for property DATA.ZijwandVerhogingMateriaal
+ ;data.zijwandverhogingmateriaal@valids;
+
+
+ ConstraintsNotSatisfiedFor("DATA.LadeKleur,DATA.ZijwandVerhogingInschuifElementKleur@Valids")
+ ConstraintsErrorMessagesFor("DATA.LadeKleur,DATA.ZijwandVerhogingInschuifElementKleur@Valids")
+ Gather constraint messages for decision table DATA.LadeKleur,DATA.ZijwandVerhogingInschuifElementKleur@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.ZijwandVerhogingInschuifElementKleur,DATA.ZijwandVerhogingMateriaal@Valids")
+ ConstraintsErrorMessagesFor("DATA.ZijwandVerhogingInschuifElementKleur,DATA.ZijwandVerhogingMateriaal@Valids")
+ Gather constraint messages for decision table DATA.ZijwandVerhogingInschuifElementKleur,DATA.ZijwandVerhogingMateriaal@Valids
+ ;
+
+
+ true
+ DATA.FrontOndersteuningType@valids = ConstrainedOptions("DATA.FrontOndersteuningType,DATA.IsBinnenlade@Valids;DATA.FrontOndersteuningType,DATA.Toepassing@Valids"; "DATA.FrontOndersteuningType"; "DATA.IsBinnenlade"; CurrentBoolean(DATA.IsBinnenlade); "DATA.Toepassing"; DATA.Toepassing);
+
+ Applying constraints for property DATA.FrontOndersteuningType
+ ;data.frontondersteuningtype@valids;
+
+
+ ConstraintsNotSatisfiedFor("DATA.FrontOndersteuningType,DATA.Toepassing@Valids")
+ ConstraintsErrorMessagesFor("DATA.FrontOndersteuningType,DATA.Toepassing@Valids")
+ Gather constraint messages for decision table DATA.FrontOndersteuningType,DATA.Toepassing@Valids
+ ;
+
+
+ ConstraintsNotSatisfiedFor("DATA.FrontOndersteuningType,DATA.IsBinnenlade@Valids")
+ ConstraintsErrorMessagesFor("DATA.FrontOndersteuningType,DATA.IsBinnenlade@Valids")
+ Gather constraint messages for decision table DATA.FrontOndersteuningType,DATA.IsBinnenlade@Valids
+ ;
+
+
+ true
+ DATA.Toepassing@valids = ConstrainedOptions("DATA.DwarsverdelingAantal,DATA.Toepassing@Valids;DATA.FrontOndersteuningType,DATA.Toepassing@Valids;DATA.HeeftZijstabilisering,DATA.Toepassing@Valids;DATA.InbouwHoogte,DATA.Toepassing@Valids;DATA.LadeDiepte,DATA.LadeKleur,DATA.Toepassing@Valids;DATA.LadeDiepte,DATA.Toepassing@Valids;DATA.ProductieWijze,DATA.Toepassing@Valids;DATA.Toepassing,DATA.UitsparingData.UitsparingAantal@Valids"; "DATA.Toepassing"; "DATA.DwarsverdelingAantal"; DATA.DwarsverdelingAantal; "DATA.FrontOndersteuningType"; DATA.FrontOndersteuningType; "DATA.HeeftZijstabilisering"; CurrentBoolean(DATA.HeeftZijstabilisering); "DATA.InbouwHoogte"; DATA.InbouwHoogte; "DATA.LadeDiepte"; DATA.LadeDiepte; "DATA.LadeKleur"; DATA.LadeKleur; "DATA.ProductieWijze"; DATA.ProductieWijze; "DATA.UitsparingData.UitsparingAantal"; DATA.UitsparingData.UitsparingAantal);
+
+ Applying constraints for property DATA.Toepassing
+ ;data.toepassing@valids;
+
+
+ true
+ DATA.UitsparingData.UitsparingAantal@valids = ConstrainedOptions("DATA.Toepassing,DATA.UitsparingData.UitsparingAantal@Valids"; "DATA.UitsparingData.UitsparingAantal"; "DATA.Toepassing"; DATA.Toepassing);
+
+ Applying constraints for property DATA.UitsparingData.UitsparingAantal
+ ;data.uitsparingdata.uitsparingaantal@valids;
+
+
+ ConstraintsNotSatisfiedFor("DATA.Toepassing,DATA.UitsparingData.UitsparingAantal@Valids")
+ ConstraintsErrorMessagesFor("DATA.Toepassing,DATA.UitsparingData.UitsparingAantal@Valids")
+ Gather constraint messages for decision table DATA.Toepassing,DATA.UitsparingData.UitsparingAantal@Valids
+ ;
+
+
+
+
+
+ DATA.BodemKleur <> UI.BodemKleur.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.BodemKleur;
+
+for i = 1 to len(UI.BodemKleur@options)
+ UI.BodemKleur = UI.BodemKleur@option(i)@id;
+
+ if (UI.BodemKleur.Value == DATA.BodemKleur) then
+ OptionToSelect = UI.BodemKleur;
+ end if;
+end for;
+
+UI.BodemKleur@default = OptionToSelect;
+ Kopieer values naar UI - BodemKleur
+ ;ui.bodemkleur@default;
+
+
+ DATA.Draagkracht <> UI.Draagkracht.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.Draagkracht;
+
+for i = 1 to len(UI.Draagkracht@options)
+ UI.Draagkracht = UI.Draagkracht@option(i)@id;
+
+ if (UI.Draagkracht.Value == DATA.Draagkracht) then
+ OptionToSelect = UI.Draagkracht;
+ end if;
+end for;
+
+UI.Draagkracht@default = OptionToSelect;
+ Kopieer values naar UI - Draagkracht
+ ;ui.draagkracht@default;
+
+
+ DATA.InbouwHoogte <> UI.InbouwHoogte.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.InbouwHoogte;
+
+for i = 1 to len(UI.InbouwHoogte@options)
+ UI.InbouwHoogte = UI.InbouwHoogte@option(i)@id;
+
+ if (UI.InbouwHoogte.Value == DATA.InbouwHoogte) then
+ OptionToSelect = UI.InbouwHoogte;
+ end if;
+end for;
+
+UI.InbouwHoogte@default = OptionToSelect;
+ Kopieer values naar UI - InbouwHoogte
+ ;ui.inbouwhoogte@default;
+
+
+ DATA.LadeDesign <> UI.LadeDesign.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.LadeDesign;
+
+for i = 1 to len(UI.LadeDesign@options)
+ UI.LadeDesign = UI.LadeDesign@option(i)@id;
+
+ if (UI.LadeDesign.Value == DATA.LadeDesign) then
+ OptionToSelect = UI.LadeDesign;
+ end if;
+end for;
+
+UI.LadeDesign@default = OptionToSelect ;
+ Kopieer values naar UI - LadeDesign
+ ;ui.ladedesign@default;
+
+
+ DATA.LadeKleur <> UI.LadeKleur.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.LadeKleur;
+
+for i = 1 to len(UI.LadeKleur@options)
+ UI.LadeKleur = UI.LadeKleur@option(i)@id;
+
+ if (UI.LadeKleur.Value == DATA.LadeKleur) then
+ OptionToSelect = UI.LadeKleur;
+ end if;
+end for;
+
+UI.LadeKleur@default = OptionToSelect;
+ Kopieer values naar UI - LadeKleur
+ ;ui.ladekleur@default;
+
+
+ DATA.MatAntislipKleur <> UI.MatAntislipKleur.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.MatAntislipKleur;
+
+for i = 1 to len(UI.MatAntislipKleur@options)
+ UI.MatAntislipKleur = UI.MatAntislipKleur@option(i)@id;
+
+ if (UI.MatAntislipKleur.Value == DATA.MatAntislipKleur) then
+ OptionToSelect = UI.MatAntislipKleur;
+ end if;
+end for;
+
+UI.MatAntislipKleur@default = OptionToSelect;
+ Kopieer values naar UI - MatAntislipKleur
+ ;ui.matantislipkleur@default;
+
+
+ DATA.MatAntislipFiberKleur <> UI.MatAntislipFiberKleur.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.MatAntislipFiberKleur;
+
+for i = 1 to len(UI.MatAntislipFiberKleur@options)
+ UI.MatAntislipFiberKleur = UI.MatAntislipFiberKleur@option(i)@id;
+
+ if (UI.MatAntislipFiberKleur.Value == DATA.MatAntislipFiberKleur) then
+ OptionToSelect = UI.MatAntislipFiberKleur;
+ end if;
+end for;
+
+UI.MatAntislipFiberKleur@default = OptionToSelect;
+ Kopieer values naar UI - MatAntislipFiberKleur
+ ;ui.matantislipfiberkleur@default;
+
+
+ DATA.MatMateriaal <> UI.MatMateriaal.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.MatMateriaal;
+
+for i = 1 to len(UI.MatMateriaal@options)
+ UI.MatMateriaal = UI.MatMateriaal@option(i)@id;
+
+ if (UI.MatMateriaal.Value == DATA.MatMateriaal) then
+ OptionToSelect = UI.MatMateriaal;
+ end if;
+end for;
+
+UI.MatMateriaal@default = OptionToSelect;
+ Kopieer values naar UI - MatMateriaal
+ ;ui.matmateriaal@default;
+
+
+ DATA.MatVinylFiberglassKleur <> UI.MatVinylFiberglassKleur.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.MatVinylFiberglassKleur;
+
+for i = 1 to len(UI.MatVinylFiberglassKleur@options)
+ UI.MatVinylFiberglassKleur = UI.MatVinylFiberglassKleur@option(i)@id;
+
+ if (UI.MatVinylFiberglassKleur.Value == DATA.MatVinylFiberglassKleur) then
+ OptionToSelect = UI.MatVinylFiberglassKleur;
+ end if;
+end for;
+
+UI.MatVinylFiberglassKleur@default = OptionToSelect;
+ Kopieer values naar UI - MatVinylFiberglassKleur
+ ;ui.matvinylfiberglasskleur@default;
+
+
+ DATA.MatWolviltKleur <> UI.MatWolviltKleur.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.MatWolviltKleur;
+
+for i = 1 to len(UI.MatWolviltKleur@options)
+ UI.MatWolviltKleur = UI.MatWolviltKleur@option(i)@id;
+
+ if (UI.MatWolviltKleur.Value == DATA.MatWolviltKleur) then
+ OptionToSelect = UI.MatWolviltKleur;
+ end if;
+end for;
+
+UI.MatWolviltKleur@default = OptionToSelect;
+ Kopieer values naar UI - MatWolviltKleur
+ ;ui.matwolviltkleur@default;
+
+
+ DATA.OpvullijstKleur <> UI.OpvullijstKleur.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.OpvullijstKleur;
+
+for i = 1 to len(UI.OpvullijstKleur@options)
+ UI.OpvullijstKleur = UI.OpvullijstKleur@option(i)@id;
+
+ if (UI.OpvullijstKleur.Value == DATA.OpvullijstKleur) then
+ OptionToSelect = UI.OpvullijstKleur;
+ end if;
+end for;
+
+UI.OpvullijstKleur@default = OptionToSelect;
+ Kopieer values naar UI - OpvullijstKleur
+ ;ui.opvullijstkleur@default;
+
+
+ DATA.Toepassing <> UI.Toepassing.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.Toepassing;
+
+for i = 1 to len(UI.Toepassing@options)
+ UI.Toepassing = UI.Toepassing@option(i)@id;
+
+ if (UI.Toepassing.Value == DATA.Toepassing) then
+ OptionToSelect = UI.Toepassing;
+ end if;
+end for;
+
+UI.Toepassing@default = OptionToSelect;
+ Kopieer values naar UI - Toepassing
+ ;ui.toepassing@default;
+
+
+ DATA.ZijwandVerhogingRelingKleur <> UI.ZijwandVerhogingRelingKleur.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.ZijwandVerhogingRelingKleur;
+
+for i = 1 to len(UI.ZijwandVerhogingRelingKleur@options)
+ UI.ZijwandVerhogingRelingKleur = UI.ZijwandVerhogingRelingKleur@option(i)@id;
+
+ if (UI.ZijwandVerhogingRelingKleur.Value == DATA.ZijwandVerhogingRelingKleur) then
+ OptionToSelect = UI.ZijwandVerhogingRelingKleur;
+ end if;
+end for;
+
+UI.ZijwandVerhogingRelingKleur@default = OptionToSelect;
+ Kopieer values naar UI - ZijwandVerhogingRelingKleur
+ ;ui.zijwandverhogingrelingkleur@default;
+
+
+ DATA.ZijwandVerhogingType <> UI.ZijwandVerhogingType.Value
+ local string OptionToSelect = "";
+
+OptionToSelect = UI.ZijwandVerhogingType;
+
+for i = 1 to len(UI.ZijwandVerhogingType@options)
+ UI.ZijwandVerhogingType = UI.ZijwandVerhogingType@option(i)@id;
+
+ if (UI.ZijwandVerhogingType.Value == DATA.ZijwandVerhogingType) then
+ OptionToSelect = UI.ZijwandVerhogingType;
+ end if;
+end for;
+
+UI.ZijwandVerhogingType@default = OptionToSelect;
+ Kopieer values naar UI - ZijwandVerhogingType
+ ;ui.zijwandverhogingtype@default;
+
+
+ true
+ for i = 1 to len(DATA.BodemKleur@options)
+ UI.BodemKleur@option(i)@valid = DATA.BodemKleur@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.DwarsverdelingAantal@options)
+ UI.DwarsverdelingAantal@option(i)@valid = DATA.DwarsverdelingAantal@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.FrontBevestiging@options)
+ UI.FrontBevestiging@option(i)@valid = DATA.FrontBevestiging@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.FrontStabilisatorAantal@options)
+ UI.FrontStabilisatorAantal@option(i)@valid = DATA.FrontStabilisatorAantal@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.FrontOndersteuningType@options)
+ UI.FrontOndersteuningType@option(i)@valid = DATA.FrontOndersteuningType@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.GeleiderTechnologie@options)
+ UI.GeleiderTechnologie@option(i)@valid = DATA.GeleiderTechnologie@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.GreepEnMeenemer@options)
+ UI.GreepEnMeenemer@option(i)@valid = DATA.GreepEnMeenemer@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.HangmapBoringAantal@options)
+ UI.HangmapBoringAantal@option(i)@valid = DATA.HangmapBoringAantal@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.LadeDesign@options)
+ UI.LadeDesign@option(i)@valid = DATA.LadeDesign@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.LadeDiepte@options)
+ UI.LadeDiepte@option(i)@valid = DATA.LadeDiepte@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.InbouwHoogte@options)
+ UI.InbouwHoogte@option(i)@valid = DATA.InbouwHoogte@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.LadeHoogte@options)
+ UI.LadeHoogte@option(i)@valid = DATA.LadeHoogte@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.LadeKleur@options)
+ UI.LadeKleur@option(i)@valid = DATA.LadeKleur@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.MatAntislipKleur@options)
+ UI.MatAntislipKleur@option(i)@valid = DATA.MatAntislipKleur@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.MatAntislipFiberKleur@options)
+ UI.MatAntislipFiberKleur@option(i)@valid = DATA.MatAntislipFiberKleur@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.MatMateriaal@options)
+ UI.MatMateriaal@option(i)@valid = DATA.MatMateriaal@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.MatVinylFiberglassKleur@options)
+ UI.MatVinylFiberglassKleur@option(i)@valid = DATA.MatVinylFiberglassKleur@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.MatWolviltKleur@options)
+ UI.MatWolviltKleur@option(i)@valid = DATA.MatWolviltKleur@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.OpvullijstKleur@options)
+ UI.OpvullijstKleur@option(i)@valid = DATA.OpvullijstKleur@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.ProductieWijze@options)
+ UI.ProductieWijze@option(i)@valid = DATA.ProductieWijze@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.RugHoogte@options)
+ UI.RugHoogte@option(i)@valid = DATA.RugHoogte@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.RugwandMateriaal@options)
+ UI.RugwandMateriaal@option(i)@valid = DATA.RugwandMateriaal@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.Toepassing@options)
+ UI.Toepassing@option(i)@valid = DATA.Toepassing@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.UitsparingData.UitsparingAantal@options)
+ UI.UitsparingData.UitsparingAantal@option(i)@valid = DATA.UitsparingData.UitsparingAantal@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.VerpakkingType@options)
+ UI.VerpakkingType@option(i)@valid = DATA.VerpakkingType@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.ZijwandVerhogingInschuifElementKleur@options)
+ UI.ZijwandVerhogingInschuifElementKleur@option(i)@valid = DATA.ZijwandVerhogingInschuifElementKleur@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.ZijwandVerhogingMateriaal@options)
+ UI.ZijwandVerhogingMateriaal@option(i)@valid = DATA.ZijwandVerhogingMateriaal@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.ZijwandVerhogingRelingKleur@options)
+ UI.ZijwandVerhogingRelingKleur@option(i)@valid = DATA.ZijwandVerhogingRelingKleur@option(i)@valid;
+end for;
+
+for i = 1 to len(DATA.ZijwandVerhogingType@options)
+ UI.ZijwandVerhogingType@option(i)@valid = DATA.ZijwandVerhogingType@option(i)@valid;
+end for;
+ Kopieer valids naar UI
+ ;ui.bodemkleur@valids;ui.dwarsverdelingaantal@valids;ui.frontbevestiging@valids;ui.frontstabilisatoraantal@valids;ui.frontondersteuningtype@valids;ui.geleidertechnologie@valids;ui.greepenmeenemer@valids;ui.hangmapboringaantal@valids;ui.ladedesign@valids;ui.ladediepte@valids;ui.inbouwhoogte@valids;ui.ladehoogte@valids;ui.ladekleur@valids;ui.matantislipkleur@valids;ui.matantislipfiberkleur@valids;ui.matmateriaal@valids;ui.matvinylfiberglasskleur@valids;ui.matwolviltkleur@valids;ui.opvullijstkleur@valids;ui.productiewijze@valids;ui.rughoogte@valids;ui.rugwandmateriaal@valids;ui.toepassing@valids;ui.uitsparingdata.uitsparingaantal@valids;ui.verpakkingtype@valids;ui.zijwandverhoginginschuifelementkleur@valids;ui.zijwandverhogingmateriaal@valids;ui.zijwandverhogingrelingkleur@valids;ui.zijwandverhogingtype@valids;
+
+
+ true
+ UI.Aantal@default = DATA.Lijn.Aantal;
+UI.CorpusBreedte@default = DATA.CorpusBreedte;
+UI.CorpusWanddikte@default = DATA.CorpusWanddikte;
+UI.DwarsverdelingAantal@default = DATA.DwarsverdelingAantal;
+UI.FrontBevestiging@default = DATA.FrontBevestiging;
+UI.FrontOndersteuningType@default = DATA.FrontOndersteuningType;
+UI.FrontStabilisatorAantal@default = DATA.FrontStabilisatorAantal;
+UI.GeleiderTechnologie@default = DATA.GeleiderTechnologie;
+UI.GreepEnMeenemer@default = DATA.GreepEnMeenemer;
+UI.HangmapBoringAantal@default = DATA.HangmapBoringAantal;
+UI.HeeftAfwijkendeRugHoogte@default = DATA.HeeftAfwijkendeRugHoogte;
+UI.HeeftOpvullijstLinks@default = DATA.HeeftOpvullijstLinks;
+UI.HeeftOpvullijstRechts@default = DATA.HeeftOpvullijstRechts;
+UI.HeeftZijstabilisering@default = DATA.HeeftZijstabilisering;
+UI.InterneBreedte@default = DATA.InterneBreedte;
+UI.IsBinnenbreedte@default = DATA.IsBinnenbreedte;
+UI.IsBinnenlade@default = DATA.IsBinnenlade;
+UI.LadeDiepte@default = DATA.LadeDiepte;
+UI.LadeHoogte@default = DATA.LadeHoogte;
+UI.OpvullijstDikte@default = DATA.OpvullijstDikte;
+UI.ProductieWijze@default = DATA.ProductieWijze;
+UI.Referentie@default = DATA.Lijn.Referentie;
+UI.RugHoogte@default = DATA.RugHoogte;
+UI.RugwandMateriaal@default = DATA.RugwandMateriaal;
+
+UI.UitsparingData.M.Breedte@default = DATA.UitsparingData.M.Breedte;
+UI.UitsparingData.M.Diepte@default = DATA.UitsparingData.M.Diepte;
+UI.UitsparingData.M.Hoogte@default = DATA.UitsparingData.M.Hoogte;
+UI.UitsparingData.M.Materiaal@default = DATA.UitsparingData.M.Materiaal;
+UI.UitsparingData.M.Vorm@default = DATA.UitsparingData.M.Vorm;
+
+UI.UitsparingData.X.Breedte@default = DATA.UitsparingData.X.Breedte;
+UI.UitsparingData.X.Diepte@default = DATA.UitsparingData.X.Diepte;
+UI.UitsparingData.X.Hoogte@default = DATA.UitsparingData.X.Hoogte;
+UI.UitsparingData.X.Materiaal@default = DATA.UitsparingData.X.Materiaal;
+UI.UitsparingData.X.Vorm@default = DATA.UitsparingData.X.Vorm;
+
+UI.UitsparingData.Y.Breedte@default = DATA.UitsparingData.Y.Breedte;
+UI.UitsparingData.Y.Diepte@default = DATA.UitsparingData.Y.Diepte;
+UI.UitsparingData.Y.Hoogte@default = DATA.UitsparingData.Y.Hoogte;
+UI.UitsparingData.Y.Materiaal@default = DATA.UitsparingData.Y.Materiaal;
+UI.UitsparingData.Y.Vorm@default = DATA.UitsparingData.Y.Vorm;
+
+UI.UitsparingData.Z1.Breedte@default = DATA.UitsparingData.Z1.Breedte;
+UI.UitsparingData.Z1.Diepte@default = DATA.UitsparingData.Z1.Diepte;
+UI.UitsparingData.Z1.Hoogte@default = DATA.UitsparingData.Z1.Hoogte;
+UI.UitsparingData.Z1.Materiaal@default = DATA.UitsparingData.Z1.Materiaal;
+UI.UitsparingData.Z1.Vorm@default = DATA.UitsparingData.Z1.Vorm;
+
+UI.UitsparingData.Z2.Breedte@default = DATA.UitsparingData.Z2.Breedte;
+UI.UitsparingData.Z2.Diepte@default = DATA.UitsparingData.Z2.Diepte;
+UI.UitsparingData.Z2.Hoogte@default = DATA.UitsparingData.Z2.Hoogte;
+UI.UitsparingData.Z2.Materiaal@default = DATA.UitsparingData.Z2.Materiaal;
+UI.UitsparingData.Z2.Vorm@default = DATA.UitsparingData.Z2.Vorm;
+
+UI.UitsparingData.UitsparingAantal@default = DATA.UitsparingData.UitsparingAantal;
+UI.VerpakkingType@default = DATA.VerpakkingType;
+UI.ZijwandVerhogingMateriaal@default = DATA.ZijwandVerhogingMateriaal;
+UI.ZijwandVerhogingInschuifElementKleur@default = DATA.ZijwandVerhogingInschuifElementKleur;
+
+// Niet meeleveren
+index i of UI.NietMeeleveren
+ local boolean _IsChecked = cbool(Eval("DATA.NietMeeleveren.NietMeeleveren_" + UI.NietMeeleveren(i).Id));
+ local boolean _Dummy = UI.NietMeeleveren(i).IsSelected@enabled; // de IsSelected wordt niet correct gezet als deze regel er niet staat
+
+ UI.NietMeeleveren(i).IsSelected@default = _IsChecked;
+end index;
+ Kopieer values naar UI
+ ;ui.aantal@default;ui.corpusbreedte@default;ui.corpuswanddikte@default;ui.dwarsverdelingaantal@default;ui.frontbevestiging@default;ui.frontondersteuningtype@default;ui.frontstabilisatoraantal@default;ui.geleidertechnologie@default;ui.greepenmeenemer@default;ui.hangmapboringaantal@default;ui.heeftafwijkenderughoogte@default;ui.heeftopvullijstlinks@default;ui.heeftopvullijstrechts@default;ui.heeftzijstabilisering@default;ui.internebreedte@default;ui.isbinnenbreedte@default;ui.isbinnenlade@default;ui.ladediepte@default;ui.ladehoogte@default;ui.opvullijstdikte@default;ui.productiewijze@default;ui.referentie@default;ui.rughoogte@default;ui.rugwandmateriaal@default;ui.uitsparingdata.m.breedte@default;ui.uitsparingdata.m.diepte@default;ui.uitsparingdata.m.hoogte@default;ui.uitsparingdata.m.materiaal@default;ui.uitsparingdata.m.vorm@default;ui.uitsparingdata.x.breedte@default;ui.uitsparingdata.x.diepte@default;ui.uitsparingdata.x.hoogte@default;ui.uitsparingdata.x.materiaal@default;ui.uitsparingdata.x.vorm@default;ui.uitsparingdata.y.breedte@default;ui.uitsparingdata.y.diepte@default;ui.uitsparingdata.y.hoogte@default;ui.uitsparingdata.y.materiaal@default;ui.uitsparingdata.y.vorm@default;ui.uitsparingdata.z1.breedte@default;ui.uitsparingdata.z1.diepte@default;ui.uitsparingdata.z1.hoogte@default;ui.uitsparingdata.z1.materiaal@default;ui.uitsparingdata.z1.vorm@default;ui.uitsparingdata.z2.breedte@default;ui.uitsparingdata.z2.diepte@default;ui.uitsparingdata.z2.hoogte@default;ui.uitsparingdata.z2.materiaal@default;ui.uitsparingdata.z2.vorm@default;ui.uitsparingdata.uitsparingaantal@default;ui.verpakkingtype@default;ui.zijwandverhogingmateriaal@default;ui.zijwandverhoginginschuifelementkleur@default;
+
+
+ true
+ UI.FrontBevestiging@mandatory = not(UI.IsBinnenlade);
+UI.FrontBevestiging@visible = not(UI.IsBinnenlade);
+ Visible en mandatory - FrontBevestiging
+ ;ui.frontbevestiging@mandatory;ui.frontbevestiging@visible;
+
+
+ true
+ local boolean _HeeftFrontStabilisator = (UI.FrontOndersteuningType == "FrontStabilisator");
+
+UI.FrontStabilisatorAantal@mandatory = _HeeftFrontStabilisator;
+UI.FrontStabilisatorAantal@visible = _HeeftFrontStabilisator;
+ Visible en mandatory - FrontStabilisatorAantal
+ ;ui.frontstabilisatoraantal@mandatory;ui.frontstabilisatoraantal@visible;
+
+
+ true
+ UI.GreepEnMeenemer@mandatory = UI.IsBinnenlade;
+UI.GreepEnMeenemer@visible = UI.IsBinnenlade;
+ Visible en mandatory - GreepEnMeenemer
+ ;ui.greepenmeenemer@mandatory;ui.greepenmeenemer@visible;
+
+
+ true
+ UI.HangmapBoringAantal@mandatory = not(UI.IsBinnenlade);
+UI.HangmapBoringAantal@visible = not(UI.IsBinnenlade);
+ Visible en mandatory - HangmapBoringAantal
+ ;ui.hangmapboringaantal@mandatory;ui.hangmapboringaantal@visible;
+
+
+ true
+ local boolean _HeeftOpvullijst = (UI.HeeftOpvullijstLinks or UI.HeeftOpvullijstRechts);
+
+UI.OpvullijstKleur@mandatory = _HeeftOpvullijst;
+UI.OpvullijstKleur@visible = _HeeftOpvullijst;
+
+UI.OpvullijstDikte@visible = _HeeftOpvullijst;
+ Visible en mandatory - Opvullijst
+ ;ui.opvullijstkleur@mandatory;ui.opvullijstkleur@visible;ui.opvullijstdikte@visible;
+
+
+ true
+ local boolean _HeeftInschuifElement = (UI.ZijwandVerhogingType.Value == "InschuifElement");
+local boolean _HeeftKleurNodig = (UI.ZijwandVerhogingMateriaal in {"Glas"; "Alu"});
+
+UI.ZijwandVerhogingInschuifElementKleur@mandatory = _HeeftInschuifElement and _HeeftKleurNodig;
+UI.ZijwandVerhogingInschuifElementKleur@visible = _HeeftInschuifElement and _HeeftKleurNodig;
+ Visible en mandatory - ZijwandVerhogingInschuifElementKleur
+ ;ui.zijwandverhoginginschuifelementkleur@mandatory;ui.zijwandverhoginginschuifelementkleur@visible;
+
+
+ true
+ local boolean _HeeftInschuifElement = (UI.ZijwandVerhogingType.Value == "InschuifElement");
+
+UI.ZijwandVerhogingMateriaal@mandatory = _HeeftInschuifElement;
+UI.ZijwandVerhogingMateriaal@visible = _HeeftInschuifElement;
+ Visible en mandatory - ZijwandVerhogingMateriaal
+ ;ui.zijwandverhogingmateriaal@mandatory;ui.zijwandverhogingmateriaal@visible;
+
+
+ true
+ local boolean _HeeftReling = (UI.ZijwandVerhogingType.Value == "Reling");
+
+UI.ZijwandVerhogingRelingKleur@mandatory = _HeeftReling;
+UI.ZijwandVerhogingRelingKleur@visible = _HeeftReling;
+ Visible en mandatory - ZijwandVerhogingRelingKleur
+ ;ui.zijwandverhogingrelingkleur@mandatory;ui.zijwandverhogingrelingkleur@visible;
+
+
+ true
+ local boolean _HeeftMatAntislipKleur = (UI.HeeftMat and (UI.MatMateriaal.Value == "AS"));
+
+UI.MatAntislipKleur@mandatory = _HeeftMatAntislipKleur;
+UI.MatAntislipKleur@visible = _HeeftMatAntislipKleur;
+ Visible en mandatory - MatAntislipKleur
+ ;ui.matantislipkleur@mandatory;ui.matantislipkleur@visible;
+
+
+ true
+ local boolean _HeeftMatAntislipFiberKleur = (UI.HeeftMat and (UI.MatMateriaal.Value == "AF"));
+
+UI.MatAntislipFiberKleur@mandatory = _HeeftMatAntislipFiberKleur;
+UI.MatAntislipFiberKleur@visible = _HeeftMatAntislipFiberKleur;
+ Visible en mandatory - MatAntislipFiberKleur
+ ;ui.matantislipfiberkleur@mandatory;ui.matantislipfiberkleur@visible;
+
+
+ true
+ UI.MatMateriaal@mandatory = UI.HeeftMat;
+UI.MatMateriaal@visible = UI.HeeftMat;
+ Visible en mandatory - MatMateriaal
+ ;ui.matmateriaal@mandatory;ui.matmateriaal@visible;
+
+
+ true
+ local boolean _HeeftMatVinylFiberglassKleur = (UI.HeeftMat and (UI.MatMateriaal.Value == "CF"));
+
+UI.MatVinylFiberglassKleur@mandatory = _HeeftMatVinylFiberglassKleur;
+UI.MatVinylFiberglassKleur@visible = _HeeftMatVinylFiberglassKleur;
+ Visible en mandatory - MatVinylFiberglassKleur
+ ;ui.matvinylfiberglasskleur@mandatory;ui.matvinylfiberglasskleur@visible;
+
+
+ true
+ local boolean _HeeftMatWolviltKleur = (UI.HeeftMat and (UI.MatMateriaal.Value == "CV"));
+
+UI.MatWolviltKleur@mandatory = _HeeftMatWolviltKleur;
+UI.MatWolviltKleur@visible = _HeeftMatWolviltKleur;
+ Visible en mandatory - MatWolviltKleur
+ ;ui.matwolviltkleur@mandatory;ui.matwolviltkleur@visible;
+
+
+ true
+ local string _VerpakkingType = UI.VerpakkingType;
+
+local string _FlagVerpakkingOnderdelen = switch _VerpakkingType
+ case "Probox": FLAG.VerpakkingProboxOnderdelen
+ case "Procom": FLAG.VerpakkingProcomOnderdelen
+ case "VHoss": FLAG.VerpakkingVHossOnderdelen
+ else ""
+end switch
+
+if (_FlagVerpakkingOnderdelen == "") then
+ _FlagVerpakkingOnderdelen = "DefaultMet";
+end if;
+
+local boolean _IsChecked = (_FlagVerpakkingOnderdelen in {"DefaultZonder"; "VerplichtZonder"});
+local boolean _IsEnabled = not(_FlagVerpakkingOnderdelen == "VerplichtZonder");
+
+//UI.NietMeeleverenAlleOnderdelen@default = not(_IsChecked); // default triggeren indien geen wijzigingen
+UI.NietMeeleverenAlleOnderdelen@default = _IsChecked;
+UI.NietMeeleverenAlleOnderdelen@enabled = _IsEnabled;
+ NietMeeleverenAlleOnderdelen zetten op basis van verpakking en flag (voorlopig met testboolean ipv flag)
+ ;ui.nietmeeleverenalleonderdelen@default;ui.nietmeeleverenalleonderdelen@enabled;
+
+
+ true
+ UI.NietMeeleverenAlleOnderdelen@default = UI.NietMeeleverenAlleOnderdelen;
+ NietMeeleverenAlleOnderdelen zetten op basis van verpakking en flag (deel 2)
+Work-around: indien user de checkbox wijzigt, dan wordt Default gelijk aan Value
+ ;ui.nietmeeleverenalleonderdelen@default;
+
+
+ true
+ local boolean _IsChecked = UI.NietMeeleverenAlleOnderdelen;
+local boolean _IsEnabled = not(_IsChecked);
+
+index i of UI.NietMeeleveren
+ UI.NietMeeleveren(i).IsSelected@default = _IsChecked;
+ UI.NietMeeleveren(i).IsSelected@enabled = _IsEnabled;
+end index;
+ Default en enabled - NietMeeleveren
+ ;ui.nietmeeleveren[1].isselected@default;ui.nietmeeleveren[1].isselected@enabled;
+
+
+ true
+ local boolean HeeftOpvullijst = (DATA.Toepassing == "B");
+
+DATA.HeeftOpvullijstLinks@default = HeeftOpvullijst;
+DATA.HeeftOpvullijstRechts@default = HeeftOpvullijst;
+
+// Resetten?
+// alleen indien vorige waarde Burobox en indien opvullijst(en) niet expliciet gekozen ?
+ Opvullijsten aanvinken wanneer Burobox gekozen wordt
+:-P
+ ;data.heeftopvullijstlinks@default;data.heeftopvullijstrechts@default;
+
+
+
+ true
+ local boolean _HeeftUitsparingData = ((UI.Toepassing.Value == "SP2") or (UI.Toepassing.Value == "SY2"));
+local boolean _HeeftDubbeleUitsparing = (UI.UitsparingData.UitsparingAantal == "Dubbel");
+
+UI.UitsparingData@visible = _HeeftUitsparingData;
+UI.UitsparingData.UitsparingAantal@mandatory = _HeeftUitsparingData;
+
+UI.UitsparingData.X@visible = _HeeftUitsparingData;
+UI.UitsparingData.X.Breedte@mandatory = _HeeftUitsparingData;
+
+UI.UitsparingData.Z1@visible = _HeeftUitsparingData;
+UI.UitsparingData.Z1.Breedte@mandatory = _HeeftUitsparingData;
+
+UI.UitsparingData.M@visible = _HeeftDubbeleUitsparing;
+UI.UitsparingData.M.Breedte@mandatory = _HeeftDubbeleUitsparing;
+
+UI.UitsparingData.Z2@visible = _HeeftDubbeleUitsparing;
+UI.UitsparingData.Z2.Breedte@mandatory = _HeeftDubbeleUitsparing;
+
+UI.UitsparingData.Y@visible = _HeeftUitsparingData;
+UI.UitsparingData.Y.Breedte@mandatory = _HeeftUitsparingData;
+ Visible en mandatory - UitsparingData Aantal en Breedte
+ ;ui.uitsparingdata@visible;ui.uitsparingdata.uitsparingaantal@mandatory;ui.uitsparingdata.x@visible;ui.uitsparingdata.x.breedte@mandatory;ui.uitsparingdata.z1@visible;ui.uitsparingdata.z1.breedte@mandatory;ui.uitsparingdata.m@visible;ui.uitsparingdata.m.breedte@mandatory;ui.uitsparingdata.z2@visible;ui.uitsparingdata.z2.breedte@mandatory;ui.uitsparingdata.y@visible;ui.uitsparingdata.y.breedte@mandatory;
+
+
+ true
+ local boolean _IsSpoelbaklade = (UI.Toepassing.Value == "SP2");
+local boolean _IsSifonlade = (UI.Toepassing.Value == "SY2");
+
+local boolean _HeeftDubbeleUitsparing = (UI.UitsparingData.UitsparingAantal == "Dubbel");
+
+UI.UitsparingData.CodeX@visible = _IsSpoelbaklade;
+UI.UitsparingData.CodeX@mandatory = _IsSpoelbaklade;
+
+UI.UitsparingData.CodeZ1@visible = _IsSifonlade;
+UI.UitsparingData.CodeZ1@mandatory = _IsSifonlade;
+
+UI.UitsparingData.CodeM@visible = false;
+UI.UitsparingData.CodeM@mandatory = _HeeftDubbeleUitsparing;
+
+UI.UitsparingData.CodeZ2@visible = (_HeeftDubbeleUitsparing and _IsSifonlade);
+UI.UitsparingData.CodeZ2@mandatory = (_HeeftDubbeleUitsparing and _IsSifonlade);
+
+UI.UitsparingData.CodeY@visible = _IsSpoelbaklade;
+UI.UitsparingData.CodeY@mandatory = _IsSpoelbaklade;
+ Visible en mandatory - UitsparingData Code
+ ;ui.uitsparingdata.codex@visible;ui.uitsparingdata.codex@mandatory;ui.uitsparingdata.codez1@visible;ui.uitsparingdata.codez1@mandatory;ui.uitsparingdata.codem@visible;ui.uitsparingdata.codem@mandatory;ui.uitsparingdata.codez2@visible;ui.uitsparingdata.codez2@mandatory;ui.uitsparingdata.codey@visible;ui.uitsparingdata.codey@mandatory;
+
+
+ true
+ local string _CodeX = UI.UitsparingData.CodeX;
+
+UI.UitsparingData.X.Diepte = 0;
+UI.UitsparingData.X.Vorm = "";
+
+switch _CodeX
+ case "SP2_Recht_M_D0_B147":
+ UI.UitsparingData.X.Breedte@default = 147;
+ UI.UitsparingData.X.Hoogte = "M";
+ UI.UitsparingData.X.Materiaal = "Staal";
+ // + Min/Max
+ case "SP2_Recht_M_D0_B197":
+ UI.UitsparingData.X.Breedte@default = 197;
+ UI.UitsparingData.X.Hoogte = "M";
+ UI.UitsparingData.X.Materiaal = "Staal";
+ // + Min/Max
+ case "SP2_Recht_DM_D0_B143":
+ UI.UitsparingData.X.Breedte@default = 143;
+ UI.UitsparingData.X.Hoogte = "DM";
+ UI.UitsparingData.X.Materiaal = "Staal";
+ // + Min/Max
+ case "SP2_Recht_M_D0_BM":
+ UI.UitsparingData.X.Breedte@default = 0;
+ UI.UitsparingData.X.Hoogte = "M";
+ UI.UitsparingData.X.Materiaal = "Hout";
+ // + Min/Max
+end switch;
+ UitsparingData X invullen
+ ;ui.uitsparingdata.x.diepte@value;ui.uitsparingdata.x.vorm@value;
+
+
+ true
+ local string _CodeZ1 = UI.UitsparingData.CodeZ1;
+
+UI.UitsparingData.Z1.Diepte = 0;
+UI.UitsparingData.Z1.Hoogte = "M";
+UI.UitsparingData.Z1.Vorm = "Recht";
+
+switch _CodeZ1
+ case "SY2_Recht_M_Dx_B150":
+ UI.UitsparingData.Z1.Breedte@default = 150;
+ UI.UitsparingData.Z1.Materiaal = "Staal";
+ // + Min/Max
+ case "SY2_Recht_M_Dx_B250":
+ UI.UitsparingData.Z1.Breedte@default = 250;
+ UI.UitsparingData.Z1.Materiaal = "Staal";
+ // + Min/Max
+ case "SY2_Recht_M_Dx_BM":
+ UI.UitsparingData.Z1.Breedte@default = 0;
+ UI.UitsparingData.Z1.Materiaal = "Hout";
+ // + Min/Max
+end switch;
+ UitsparingData Z1 invullen
+ ;ui.uitsparingdata.z1.diepte@value;ui.uitsparingdata.z1.hoogte@value;ui.uitsparingdata.z1.vorm@value;
+
+
+ true
+ local string _CodeM = UI.UitsparingData.CodeM;
+
+UI.UitsparingData.M.Diepte = 0;
+UI.UitsparingData.M.Vorm = "";
+
+switch _CodeM
+ case "SP2_Recht_M_D0_BM":
+ UI.UitsparingData.M.Breedte@default = 0;
+ UI.UitsparingData.M.Hoogte = "M";
+ UI.UitsparingData.M.Materiaal = "Hout";
+ // + Min/Max
+end switch;
+
+ UitsparingData M invullen
+ ;ui.uitsparingdata.m.diepte@value;ui.uitsparingdata.m.vorm@value;
+
+
+ true
+ local string _CodeZ2 = UI.UitsparingData.CodeZ2;
+
+UI.UitsparingData.Z2.Diepte = 0;
+UI.UitsparingData.Z2.Hoogte = "M";
+UI.UitsparingData.Z2.Vorm = "Recht";
+
+switch _CodeZ2
+ case "SY2_Recht_M_Dx_B150":
+ UI.UitsparingData.Z2.Breedte@default = 150;
+ UI.UitsparingData.Z2.Materiaal = "Staal";
+ // + Min/Max
+ case "SY2_Recht_M_Dx_B250":
+ UI.UitsparingData.Z2.Breedte@default = 250;
+ UI.UitsparingData.Z2.Materiaal = "Staal";
+ // + Min/Max
+ case "SY2_Recht_M_Dx_BM":
+ UI.UitsparingData.Z2.Breedte@default = 0;
+ UI.UitsparingData.Z2.Materiaal = "Hout";
+ // + Min/Max
+end switch;
+ UitsparingData Z2 invullen
+ ;ui.uitsparingdata.z2.diepte@value;ui.uitsparingdata.z2.hoogte@value;ui.uitsparingdata.z2.vorm@value;
+
+
+ true
+ local string _CodeY = UI.UitsparingData.CodeY;
+
+UI.UitsparingData.Y.Diepte = 0;
+UI.UitsparingData.Y.Vorm = "";
+
+switch _CodeY
+ case "SP2_Recht_M_D0_B147":
+ UI.UitsparingData.Y.Breedte@default = 147;
+ UI.UitsparingData.Y.Hoogte = "M";
+ UI.UitsparingData.Y.Materiaal = "Staal";
+ // + Min/Max
+ case "SP2_Recht_M_D0_B197":
+ UI.UitsparingData.Y.Breedte@default = 197;
+ UI.UitsparingData.Y.Hoogte = "M";
+ UI.UitsparingData.Y.Materiaal = "Staal";
+ // + Min/Max
+ case "SP2_Recht_DM_D0_B143":
+ UI.UitsparingData.Y.Breedte@default = 143;
+ UI.UitsparingData.Y.Hoogte = "DM";
+ UI.UitsparingData.Y.Materiaal = "Staal";
+ // + Min/Max
+ case "SP2_Recht_M_D0_BM":
+ UI.UitsparingData.Y.Breedte@default = 0;
+ UI.UitsparingData.Y.Hoogte = "M";
+ UI.UitsparingData.Y.Materiaal = "Hout";
+ // + Min/Max
+end switch;
+ UitsparingData Y invullen
+ ;ui.uitsparingdata.y.diepte@value;ui.uitsparingdata.y.vorm@value;
+
+
+ true
+ UI.UitsparingData.CodeM@default = "SP2_Recht_M_D0_BM";
+ Default CodeM - OpMaat
+ ;ui.uitsparingdata.codem@default;
+
+
+ true
+ local boolean _IsRugHoogteD = (UI.InbouwHoogte == "DM") or (UI.InbouwHoogte == "DK");
+
+UI.UitsparingData.CodeX@option("SP2_Recht_M_D0_B147")@visible = not(_IsRugHoogteD);
+UI.UitsparingData.CodeX@option("SP2_Recht_M_DM_B143")@visible = _IsRugHoogteD;
+
+ Optie Smal is afhankelijk van de RugHoogte
+ ;ui.uitsparingdata.codex@options;
+
+
+
+
+
+ true
+ local string _AantalMinimum = "0";
+local string _AantalMaximum = "0";
+
+if (UI.Aantal <> 0) then
+ _AantalMinimum = cstr(RANGE.Aantal.Minimum);
+ _AantalMaximum = cstr(RANGE.Aantal.Maximum);
+end if;
+
+UI.Aantal@inputvalidation = "min:" + _AantalMinimum + ";multiplication:1;maxdecimals:0;"; //+ ";max:" + _AantalMaximum
+ Range inputvalidation - Aantal
+ ;ui.aantal@rangeset;
+
+
+ true
+ local string _CorpusBreedteMinimum = "0";
+local string _CorpusBreedteMaximum = "0";
+local string _CorpusWanddikteMinimum = "0";
+local string _CorpusWanddikteMaximum = "100";
+
+if (UI.CorpusBreedte <> 0) then
+ _CorpusBreedteMinimum = cstr(RANGE.CorpusBreedte.Minimum);
+ _CorpusBreedteMaximum = cstr(RANGE.CorpusBreedte.Maximum);
+end if;
+
+UI.CorpusBreedte@inputvalidation = "min:" + _CorpusBreedteMinimum + ";max:" + _CorpusBreedteMaximum + ";multiplication:1;maxdecimals:0;";
+UI.CorpusWanddikte@inputvalidation = "min:" + _CorpusWanddikteMinimum + ";max:" + _CorpusWanddikteMaximum + ";multiplication:1;maxdecimals:0;";
+ Range inputvalidation - CorpusBreedte en Wanddikte
+ ;ui.corpusbreedte@rangeset;ui.corpuswanddikte@rangeset;
+
+
+ true
+ local string _Minimum = "0";
+local string _Maximum = "0";
+
+if (UI.UitsparingData.M.Breedte <> 0) then
+ _Minimum = cstr(RANGE.UitsparingDataBreedteM.Minimum);
+ _Maximum = cstr(RANGE.UitsparingDataBreedteM.Maximum);
+end if;
+
+UI.UitsparingData.M.Breedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:1;maxdecimals:0;";
+ Range inputvalidation - UitsparingData BreedteM
+ ;ui.uitsparingdata.m.breedte@rangeset;
+
+
+ true
+ local string _Minimum = "0";
+local string _Maximum = "0";
+
+if (UI.UitsparingData.X.Breedte <> 0) then
+ _Minimum = cstr(RANGE.UitsparingDataBreedteX.Minimum);
+ _Maximum = cstr(RANGE.UitsparingDataBreedteX.Maximum);
+end if;
+
+UI.UitsparingData.X.Breedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:1;maxdecimals:0;";
+ Range inputvalidation - UitsparingData BreedteX
+ ;ui.uitsparingdata.x.breedte@rangeset;
+
+
+ true
+ local string _Minimum = "0";
+local string _Maximum = "0";
+
+if (UI.UitsparingData.Y.Breedte <> 0) then
+ _Minimum = cstr(RANGE.UitsparingDataBreedteY.Minimum);
+ _Maximum = cstr(RANGE.UitsparingDataBreedteY.Maximum);
+end if;
+
+UI.UitsparingData.Y.Breedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:1;maxdecimals:0;";
+ Range inputvalidation - UitsparingData BreedteY
+ ;ui.uitsparingdata.y.breedte@rangeset;
+
+
+
+
+ STATE.LanguagesLoaded and STATE.Saved
+ local string _Model = GetModel();
+
+DATA.WinkelkarInfo@length = len(PROFILE.Languages@options);
+
+for i = 1 to len(PROFILE.Languages@options)
+ PROFILE.Languages = PROFILE.Languages@option(i)@id;
+
+ local string _TaalCode = PROFILE.Languages.Name;
+ local string _CorpusWanddikte = " / ";
+
+ if not(DATA.IsBinnenbreedte) then
+ _CorpusWanddikte = CStr(DATA.CorpusWanddikte) + " mm";
+ end if;
+
+ local string _FrontBevestigingOptionLabel = DATA.FrontBevestiging@id + "_" + DATA.FrontBevestiging@option(DATA.FrontBevestiging)@id;
+ local string _LadeDesignOptionLabel = DATA.LadeDesign@id + "_" + DATA.LadeDesign@option(DATA.LadeDesign)@id;
+ local string _BodemKleurOptionLabel = DATA.BodemKleur@id + "_" + DATA.BodemKleur@option(DATA.BodemKleur)@id;
+ local string _ZijwandVerhogingTypeOptionLabel = DATA.ZijwandVerhogingType@id + "_" + DATA.ZijwandVerhogingType@option(DATA.ZijwandVerhogingType)@id;
+
+ local string _LadeDesignInfo = GetLabel(DATA.LadeDesign@id; _Model; ""; _TaalCode) + ": " + GetLabel(_LadeDesignOptionLabel; _Model; ""; _TaalCode);
+ local string _BodemKleurInfo = GetLabel(DATA.BodemKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_BodemKleurOptionLabel; _Model; ""; _TaalCode);
+
+ DATA.WinkelkarInfo(i).Aantal = CStr(DATA.Lijn.Aantal);
+ DATA.WinkelkarInfo(i).AfbeeldingCode = DATA.AfbeeldingCode;
+ DATA.WinkelkarInfo(i).CorpusBreedte = CStr(DATA.CorpusBreedte) + " mm";
+ DATA.WinkelkarInfo(i).CorpusWanddikte = _CorpusWanddikte;
+ DATA.WinkelkarInfo(i).Draagkracht = CStr(DATA.Draagkracht) + " kg";
+ DATA.WinkelkarInfo(i).EenheidPrijs = "";
+ DATA.WinkelkarInfo(i).FrontBevestiging = GetLabel(_FrontBevestigingOptionLabel; _Model; ""; _TaalCode);
+ DATA.WinkelkarInfo(i).Groepering = _LadeDesignInfo + ", " + _BodemKleurInfo;
+ DATA.WinkelkarInfo(i).LadeCode = DATA.LadeCode;
+ DATA.WinkelkarInfo(i).LadeDiepte = CStr(DATA.LadeDiepte) + " mm";
+ DATA.WinkelkarInfo(i).TaalCode = _TaalCode;
+ DATA.WinkelkarInfo(i).TotaalPrijs = "";
+ DATA.WinkelkarInfo(i).ZijwandVerhogingType = GetLabel(_ZijwandVerhogingTypeOptionLabel; _Model; ""; _TaalCode);
+end for;
+ WinkelkarInfo
+ ;
+
+
+ STATE.LanguagesLoaded and STATE.Saved
+ for i = 1 to len(PROFILE.Languages@options)
+ local string _InfoReferentie = "";
+ local string _InfoGeleider = "";
+ local string _InfoMat = "";
+ local string _InfoGreep = "";
+ local string _InfoFrontOndersteuning = "";
+ local string _InfoDwarsverdelingAantal = "";
+ local string _InfoOpvullijst = "";
+ local string _InfoRug = "";
+ local string _InfoVerpakking = "";
+
+ if (UI.Referentie <> "") then
+ _InfoReferentie = UI.Referentie@label + ": " + UI.Referentie;
+ end if;
+
+ switch UI.GeleiderTechnologie
+ case "TOB":
+ _InfoGeleider = UI.GeleiderTechnologie@option("TOB")@label;
+ case "T":
+ _InfoGeleider = UI.GeleiderTechnologie@option("T")@label;
+
+ if (UI.InterneBreedte > 520) then
+ _InfoGeleider = _InfoGeleider + "+SYNCHRO";
+ end if;
+ end switch;
+
+ if (UI.HeeftMat) then
+ local string _MatKleur = switch UI.MatMateriaal
+ case "CV": UI.MatWolviltKleur.Text
+ case "CF": UI.MatVinylFiberglassKleur.Text
+ case "AS": UI.MatAntislipKleur.Text
+ case "AF": UI.MatAntislipFiberKleur.Text
+ else ""
+ end switch;
+
+ _InfoMat = GetLocalizedLabel("InfoDiverse_Mat") + ": " + _MatKleur + "-" + UI.MatMateriaal.Text;
+ else
+ if (UI.Toepassing == "Spoelbaklade") then
+ _InfoMat = GetLocalizedLabel("InfoDiverse_Mat") + ": " + GetLocalizedLabel("InfoDiverse_Geen");
+ end if;
+ end if;
+
+ if (UI.GreepEnMeenemer <> "Zonder") then
+ _InfoGreep = UI.GreepEnMeenemer;
+ end if;
+
+ if (UI.FrontOndersteuningType == "HS") then
+ _InfoFrontOndersteuning = UI.FrontOndersteuningType@option("HS")@label;
+ end if;
+
+ if (UI.FrontOndersteuningType == "FrontStabilisator") then
+ _InfoFrontOndersteuning = UI.FrontOndersteuningType@option("FrontStabilisator")@label + " x" + UI.FrontStabilisatorAantal;
+ end if;
+
+ if (UI.DwarsverdelingAantal <> "0") then
+ _InfoDwarsverdelingAantal = UI.DwarsverdelingAantal@label + ": " + UI.DwarsverdelingAantal;
+ end if;
+
+ if (UI.HeeftOpvullijstLinks) then
+ _InfoOpvullijst = GetLocalizedLabel("InfoDiverse_Opvullijst") + ": L";
+ end if;
+
+ if (UI.HeeftOpvullijstRechts) then
+ if (_InfoOpvullijst <> "") then
+ _InfoOpvullijst = _InfoOpvullijst + "+R";
+ else
+ _InfoOpvullijst = GetLocalizedLabel("InfoDiverse_Opvullijst") + ": R";
+ end if;
+ end if;
+
+ if (_InfoOpvullijst <> "" and UI.OpvullijstKleur <> "") then
+ _InfoOpvullijst = _InfoOpvullijst + " (" + UI.OpvullijstKleur.Text + ")";
+ end if;
+
+ if (UI.HeeftAfwijkendeRugHoogte) then
+ _InfoRug = GetLocalizedLabel("InfoDiverse_Rug") + ": " + UI.RugHoogte;
+ end if;
+
+ if (UI.VerpakkingType <> "V1") then
+ _InfoVerpakking = UI.VerpakkingType@option(UI.VerpakkingType)@label;
+ end if;
+
+ DATA.WinkelkarInfo(i).InfoDiverse@length = 9;
+
+ DATA.WinkelkarInfo(i).InfoDiverse[1] = _InfoReferentie;
+ DATA.WinkelkarInfo(i).InfoDiverse[2] = _InfoGeleider;
+ DATA.WinkelkarInfo(i).InfoDiverse[3] = _InfoMat;
+ DATA.WinkelkarInfo(i).InfoDiverse[4] = _InfoGreep;
+ DATA.WinkelkarInfo(i).InfoDiverse[5] = _InfoFrontOndersteuning;
+ DATA.WinkelkarInfo(i).InfoDiverse[6] = _InfoDwarsverdelingAantal;
+ DATA.WinkelkarInfo(i).InfoDiverse[7] = _InfoOpvullijst;
+ DATA.WinkelkarInfo(i).InfoDiverse[8] = _InfoRug;
+ DATA.WinkelkarInfo(i).InfoDiverse[9] = _InfoVerpakking;
+end for;
+ WinkelkarInfo - InfoDiverse
+ ;data.winkelkarinfo[1].infodiverse[1]@value;data.winkelkarinfo[1].infodiverse[2]@value;data.winkelkarinfo[1].infodiverse[3]@value;data.winkelkarinfo[1].infodiverse[4]@value;data.winkelkarinfo[1].infodiverse[5]@value;data.winkelkarinfo[1].infodiverse[6]@value;data.winkelkarinfo[1].infodiverse[7]@value;data.winkelkarinfo[1].infodiverse[8]@value;data.winkelkarinfo[1].infodiverse[9]@value;
+
+
+ STATE.Cancelled
+ STATE.Cancelled = false;
+
+ReturnValue = "{\"status\":\"cancel\"}";
+
+local boolean _Result = Exit(true;false);
+ Cancel
+ ;state.cancelled@value;returnvalue@value;
+
+
+ STATE.Saved
+ STATE.Saved = false;
+
+ReturnValue = "{\"status\":\"ok\",\"name\":\"" + ElementName(ConfigurationName) + "\",\"version\":\"" + ElementVersion(ConfigurationName) + "\"}";
+
+if (InvalidFields() == 0) then
+ local boolean _Result = SaveAndExit();
+end if;
+
+ Save
+ ;state.saved@value;returnvalue@value;
+
+
+ STATE.KlantVoorkeurenSaved
+ STATE.KlantVoorkeurenSaved = false;
+
+local boolean _Result;
+
+_Result = SetArg("saveas"; ElementName(PROFILE.Settings.KlantId));
+_Result = eCon.UI.Tasks.Functions.Save(false);
+_Result = SetArg("saveas"; ElementName(ConfigurationName)); // originele ConfigurationName terugzetten
+ Save preferences
+ ;state.klantvoorkeurensaved@value;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AQYAAAAAAAABBwAAAAAAAA==
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AwIAAAAAAAA=
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AwEAAAAAAAAEAQAAAAAAAAUBAAAAAAAAAQIAAAAAAAACAgAAAAAAAA==
+
+
+
+
+
+
+
+
+
+
+
+
+ AgIAAAAAAAA=
+
+
+
+
+
+
+
+
+
+
+
+
+ AgIAAAAAAAA=
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AQEAAAAAAAACAQAAAAAAAAMBAAAAAAAAAQIAAAAAAAACAgAAAAAAAAMCAAAAAAAABAIAAAAAAAAGAgAAAAAAAAQDAAAAAAAABQMAAAAAAAAGAwAAAAAAAAcDAAAAAAAA
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AQEAAAAAAAAEAQAAAAAAAA==
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AQIAAAAAAAADAgAAAAAAAAYCAAAAAAAAAQMAAAAAAAADAwAAAAAAAAYDAAAAAAAAAQQAAAAAAAADBAAAAAAAAAYEAAAAAAAA
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AgEAAAAAAAA=
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AgIAAAAAAAACAwAAAAAAAA==
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AgIAAAAAAAADAgAAAAAAAAQCAAAAAAAABQIAAAAAAAAGAgAAAAAAAAIDAAAAAAAAAwMAAAAAAAAEAwAAAAAAAAUDAAAAAAAABgMAAAAAAAACBAAAAAAAAAMEAAAAAAAABAQAAAAAAAAFBAAAAAAAAAYEAAAAAAAA
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AwIAAAAAAAADAwAAAAAAAA==
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AgEAAAAAAAACAgAAAAAAAAIDAAAAAAAAAgQAAAAAAAA=
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AgEAAAAAAAADAQAAAAAAAAQBAAAAAAAABQEAAAAAAAAGAQAAAAAAAAICAAAAAAAAAwIAAAAAAAAEAgAAAAAAAAUCAAAAAAAABgIAAAAAAAACAwAAAAAAAAMDAAAAAAAABAMAAAAAAAAFAwAAAAAAAAYDAAAAAAAAAgQAAAAAAAADBAAAAAAAAAQEAAAAAAAABQQAAAAAAAAGBAAAAAAAAA==
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AgIAAAAAAAADAgAAAAAAAAQCAAAAAAAABQIAAAAAAAAGAgAAAAAAAAcCAAAAAAAACAIAAAAAAAACAwAAAAAAAAMDAAAAAAAABAMAAAAAAAAFAwAAAAAAAAYDAAAAAAAABwMAAAAAAAAIAwAAAAAAAA==
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AQEAAAAAAAABAgAAAAAAAAEDAAAAAAAAAQgAAAAAAAABCQAAAAAAAA==
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AwMAAAAAAAAGAwAAAAAAAA==
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AQIAAAAAAAACAgAAAAAAAAcCAAAAAAAACAIAAAAAAAAJAgAAAAAAAAEDAAAAAAAAAgMAAAAAAAAHAwAAAAAAAAgDAAAAAAAACQMAAAAAAAA=
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AQMCAAAAAAACAwIAAAAAAAMDAgAAAAAABAMCAAAAAAAHAwIAAAAAAAgDAgAAAAAACQMCAAAAAAABAwMAAAAAAAIDAwAAAAAAAwMDAAAAAAAEAwMAAAAAAAcDAwAAAAAACAMDAAAAAAAJAwMAAAAAAA==
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AwEAAAAAAAAEAQAAAAAAAAMCAAAAAAAABAIAAAAAAAABAwAAAAAAAAMDAAAAAAAABAMAAAAAAAABBAAAAAAAAAQEAAAAAAAAAQUAAAAAAAABBgAAAAAAAAEHAAAAAAAAAQgAAAAAAAABCQAAAAAAAAIJAAAAAAAA
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AgIBAAAAAAADAgEAAAAAAAQCAQAAAAAAAgICAAAAAAADAgIAAAAAAAQCAgAAAAAAAQIDAAAAAAADAgMAAAAAAAQCAwAAAAAAAQIEAAAAAAADAgQAAAAAAAQCBAAAAAAAAQIFAAAAAAACAgUAAAAAAAQCBQAAAAAAAQIGAAAAAAACAgYAAAAAAAQCBgAAAAAAAQIHAAAAAAACAgcAAAAAAAQCBwAAAAAAAgEIAAAAAAABAggAAAAAAAICCAAAAAAABAIIAAAAAAABAgkAAAAAAAICCQAAAAAABAIJAAAAAAA=
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AQEAAAAAAAADAQAAAAAAAAEDAAAAAAAAAwMAAAAAAAA=
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AQEAAAAAAAADAQAAAAAAAAQBAAAAAAAAAgIAAAAAAAADAgAAAAAAAAQCAAAAAAAAAQMAAAAAAAACAwAAAAAAAAQDAAAAAAAAAQQAAAAAAAACBAAAAAAAAAMEAAAAAAAA
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AQMAAAAAAAACAwAAAAAAAAQDAAAAAAAAAQQAAAAAAAACBAAAAAAAAAQEAAAAAAAAAQUAAAAAAAACBQAAAAAAAAQFAAAAAAAA
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ AgIAAAAAAAA=
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
Index: production/models/tbx/TBX Configurator, 1.0.0.mtd
===================================================================
diff -u
--- production/models/tbx/TBX Configurator, 1.0.0.mtd (revision 0)
+++ production/models/tbx/TBX Configurator, 1.0.0.mtd (revision 7)
@@ -0,0 +1,24 @@
+
+
+
+
+
+
+ The SQL Server uniqueidentifier data type
+
+ uniqueidentifier
+
+
+
+
+
+ String
+
+
+
+
+
+
+
+
+
\ No newline at end of file
Index: production/models/tbx/TBX Configurator, 1.0.0.trl
===================================================================
diff -u
--- production/models/tbx/TBX Configurator, 1.0.0.trl (revision 0)
+++ production/models/tbx/TBX Configurator, 1.0.0.trl (revision 7)
@@ -0,0 +1,663 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file