STATE.Initialized Initialisatie ; true CONFIG.Backend = GetArg("backend"); CONFIG.ProcessMode = GetArg("processmode"); CONFIG.Token = GetArg("vh_token"); CONFIG.Language = GetArg("language"); Algemene input parameters ophalen ;config.backend@value;config.processmode@value;config.token@value;config.language@value; true BEHAVIOR.IsEconAx = (CONFIG.Backend == "axapta"); BEHAVIOR.IsEconWeb = (CONFIG.Backend <> "axapta"); Gedrag Omgeving instellen ;behavior.iseconax@value;behavior.iseconweb@value; BEHAVIOR.IsEconAx Initialisatie AX ; true CONFIG.Settings.KlantId = GetArg("KlantId"); CONFIG.Settings.PersonalityId = GetArg("PersonalityId"); SalesTableAx = GetArg("SalesTableAx"); Settings ophalen uit argumenten ;config.settings.klantid@value;config.settings.personalityid@value;salestableax@value; (CONFIG.ProcessMode == "Background") DATA.Kenmerken.BodemKleur = GetArg("data;kenmerken;bodemkleur"); DATA.Kenmerken.CorpusBreedte = CDbl(Replace(GetArg("data;kenmerken;corpusbreedte");".";",")); DATA.Kenmerken.CorpusWanddikte = CDbl(Replace(GetArg("data;kenmerken;corpuswanddikte");".";",")); DATA.Kenmerken.Draagkracht = GetArg("data;kenmerken;draagkracht"); DATA.Kenmerken.DwarsverdelingAantal = GetArg("data;kenmerken;dwarsverdelingaantal"); DATA.Kenmerken.Familie = GetArg("data;kenmerken;familie"); DATA.Kenmerken.FrontBevestiging = GetArg("data;kenmerken;frontbevestiging"); DATA.Kenmerken.FrontOndersteuningType = GetArg("data;kenmerken;frontondersteuningtype"); DATA.Kenmerken.FrontStabilisatorAantal = GetArg("data;kenmerken;frontstabilisatoraantal"); DATA.Kenmerken.GeleiderTechnologie = GetArg("data;kenmerken;geleidertechnologie"); DATA.Kenmerken.GreepEnMeenemer = GetArg("data;kenmerken;greepenmeenemer"); DATA.Kenmerken.GeleiderTechnologie = GetArg("data;kenmerken;geleidertechnologie"); DATA.Kenmerken.HangmapBoringAantal = GetArg("data;kenmerken;hangmapboringaantal"); DATA.Kenmerken.HeeftOpvullijstLinks = CBool(GetArg("data;kenmerken;heeftopvullijstlinks")); DATA.Kenmerken.HeeftOpvullijstRechts = CBool(GetArg("data;kenmerken;heeftopvullijstrechts")); DATA.Kenmerken.HeeftZijstabilisering = CBool(GetArg("data;kenmerken;heeftzijstabilisering")); DATA.Kenmerken.InbouwHoogte = GetArg("data;kenmerken;inbouwhoogte"); DATA.Kenmerken.IsBinnenbreedte = CBool(GetArg("data;kenmerken;isbinnenbreedte")); DATA.Kenmerken.IsBinnenlade = CBool(GetArg("data;kenmerken;isbinnenlade")); DATA.Kenmerken.LadeDiepte = GetArg("data;kenmerken;ladediepte"); DATA.Kenmerken.LadeKleur = GetArg("data;kenmerken;ladekleur"); DATA.Kenmerken.MatKleur = GetArg("data;kenmerken;matkleur"); DATA.Kenmerken.MatMateriaal = GetArg("data;kenmerken;matmateriaal"); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Afdekkap = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkap")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Antislipmat = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_antislipmat")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Bodemsteun = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_bodemsteun")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_frontbevestiging")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_geleider")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElement = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_inschuifelement")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_opvullijst")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Reling = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_reling")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotiononderdelen")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionset")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionsynchronisatiestang")); DATA.Kenmerken.OpvullijstKleur = GetArg("data;kenmerken;opvullijstkleur"); DATA.Kenmerken.ProductieWijze = GetArg("data;kenmerken;productiewijze"); DATA.Kenmerken.RugHoogte = GetArg("data;kenmerken;rughoogte"); DATA.Kenmerken.RugwandMateriaal = GetArg("data;kenmerken;rugwandmateriaal"); DATA.Kenmerken.Toepassing = GetArg("data;kenmerken;toepassing"); DATA.Kenmerken.UitsparingData.UitsparingAantal = GetArg("data;kenmerken;uitsparingdata;uitsparingaantal"); DATA.Kenmerken.UitsparingData.M.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;m;breedte");".";",")); DATA.Kenmerken.UitsparingData.M.Hoogte = GetArg("data;kenmerken;uitsparingdata;m;hoogte"); DATA.Kenmerken.UitsparingData.M.Materiaal = GetArg("data;kenmerken;uitsparingdata;m;materiaal"); DATA.Kenmerken.UitsparingData.X.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;x;breedte");".";",")); DATA.Kenmerken.UitsparingData.X.Hoogte = GetArg("data;kenmerken;uitsparingdata;x;hoogte"); DATA.Kenmerken.UitsparingData.X.Materiaal = GetArg("data;kenmerken;uitsparingdata;x;materiaal"); DATA.Kenmerken.UitsparingData.Y.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;y;breedte");".";",")); DATA.Kenmerken.UitsparingData.Y.Hoogte = GetArg("data;kenmerken;uitsparingdata;y;hoogte"); DATA.Kenmerken.UitsparingData.Y.Materiaal = GetArg("data;kenmerken;uitsparingdata;y;materiaal"); DATA.Kenmerken.UitsparingData.Z1.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;breedte");".";",")); DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;diepte");".";",")); DATA.Kenmerken.UitsparingData.Z1.Hoogte = GetArg("data;kenmerken;uitsparingdata;z1;hoogte"); DATA.Kenmerken.UitsparingData.Z1.Materiaal = GetArg("data;kenmerken;uitsparingdata;z1;materiaal"); DATA.Kenmerken.UitsparingData.Z1.Vorm = GetArg("data;kenmerken;uitsparingdata;z1;vorm"); DATA.Kenmerken.UitsparingData.Z2.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z2;breedte");".";",")); DATA.Kenmerken.UitsparingData.Z2.Diepte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z2;diepte");".";",")); DATA.Kenmerken.UitsparingData.Z2.Hoogte = GetArg("data;kenmerken;uitsparingdata;z2;hoogte"); DATA.Kenmerken.UitsparingData.Z2.Materiaal = GetArg("data;kenmerken;uitsparingdata;z2;materiaal"); DATA.Kenmerken.UitsparingData.Z2.Vorm = GetArg("data;kenmerken;uitsparingdata;z2;vorm"); DATA.Kenmerken.Variant = GetArg("data;kenmerken;variant"); DATA.Kenmerken.VerpakkingType = GetArg("data;kenmerken;verpakkingtype"); DATA.Kenmerken.ZijkantHoogte = GetArg("data;kenmerken;zijkanthoogte"); DATA.Kenmerken.ZijwandHoogte = GetArg("data;kenmerken;zijwandhoogte"); DATA.Kenmerken.ZijwandVerhogingType = GetArg("data;kenmerken;zijwandverhogingtype"); DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur = GetArg("data;kenmerken;zijwandverhoginginschuifelementkleur"); DATA.Lijn.Aantal = CDbl(GetArg("data;lijn;aantal")); DATA.Lijn.Referentie = GetArg("data;lijn;referentie"); Kenmerken ophalen uit argumenten (Background) ;data.kenmerken.bodemkleur@value;data.kenmerken.corpusbreedte@value;data.kenmerken.corpuswanddikte@value;data.kenmerken.draagkracht@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.familie@value;data.kenmerken.frontbevestiging@value;data.kenmerken.frontondersteuningtype@value;data.kenmerken.frontstabilisatoraantal@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.greepenmeenemer@value;data.kenmerken.hangmapboringaantal@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.inbouwhoogte@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladediepte@value;data.kenmerken.ladekleur@value;data.kenmerken.matkleur@value;data.kenmerken.matmateriaal@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkap@value;data.kenmerken.nietmeeleveren.nietmeeleveren_antislipmat@value;data.kenmerken.nietmeeleveren.nietmeeleveren_bodemsteun@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestiging@value;data.kenmerken.nietmeeleveren.nietmeeleveren_geleider@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelement@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.nietmeeleveren.nietmeeleveren_reling@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotiononderdelen@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.productiewijze@value;data.kenmerken.rughoogte@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.toepassing@value;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.x.breedte@value;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.y.breedte@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.breedte@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.z2.breedte@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value;data.kenmerken.variant@value;data.kenmerken.verpakkingtype@value;data.kenmerken.zijkanthoogte@value;data.kenmerken.zijwandhoogte@value;data.kenmerken.zijwandverhogingtype@value;data.kenmerken.zijwandverhoginginschuifelementkleur@value;data.lijn.aantal@value;data.lijn.referentie@value; (CONFIG.ProcessMode <> "Background") Kenmerken ophalen uit argumenten (Interactive) ; not(CONFIG.Backend == "axapta") if (CONFIG.Token == "") then // todo: configurator afsluiten indien geen token opgegeven local boolean _Result = true; //Exit(true;false); end if; Initialisatie web ; true STATE.KlantVoorkeurenSaved = false; Initialisatie states ;state.klantvoorkeurensaved@value; true local string _OperationMode = GetArg("operationmode"); local string _Configuration = GetArg("configuration"); if (_Configuration <> "") then CONFIG.InputMode = "Edit"; end if; CONFIG.Settings.OperationMode = "Extern"; if (LCase(_OperationMode) == "intern") or (BEHAVIOR.IsEconAx) then CONFIG.Settings.OperationMode = "Intern"; end if; Ophalen OperationMode en Inputmode ;config.inputmode@value;config.settings.operationmode@value; true local string _DebugMode = GetSetting("ui.debugmode"); if (LCase(_DebugMode) == "true") then CONFIG.Settings.DebugMode = true; end if; $InspectorPane@visible = CONFIG.Settings.DebugMode; Ophalen DebugMode ;config.settings.debugmode@value; (CONFIG.Backend <> "axapta") local string _Connection = GetSetting("data.connectionstring"); local string _Query = "SELECT Id, Name FROM ti.MDLanguage WHERE Active = '1'"; CONFIG.Database.Languages@options = {}; CONFIG.Database.Languages@options = ExecuteOptionsQuery("CONFIG.Database.Languages"; true; _Connection; _Query); STATE.LanguagesLoaded = true; Actieve talen ophalen ;config.database.languages@options;state.languagesloaded@value; (CONFIG.InputMode <> "CreateConfig") HELP.HelpUrl = "tbx/" + CONFIG.Language + ".xml"; Tooltips ;help.helpurl@value; true local boolean _Result = CopyOptionsToArray("UI.NietMeeleverenOptions"; "UI.NietMeeleveren"); index i of UI.NietMeeleveren UI.NietMeeleveren(i)@label = GetLocalizedLabel("NietMeeleveren"); UI.NietMeeleveren(i)@repeat = false; UI.NietMeeleveren(i).IsSelected@style.controlclass = "vh-slidercheckbox"; UI.NietMeeleveren(i).Text@style.controlclass = "vh-checkboxlist-item"; UI.NietMeeleveren(i).Text = GetLocalizedLabel(UI.NietMeeleveren(i).Text); end index; NietMeeleveren ;ui.nietmeeleveren[1].text@value; true 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 (CONFIG.ConfigurationName == "") then if (_SaveAs <> "") then CONFIG.ConfigurationName = _SaveAs; else CONFIG.ConfigurationName = NewId() + ",1"; end if; end if; if ((_SaveAs == "") and (CONFIG.ConfigurationName <> "")) then _Result = SetArg("saveas"; ElementName(CONFIG.ConfigurationName)); _SaveAs = CONFIG.ConfigurationName; end if; if ((CONFIG.ConfigurationName <> "") and (_SaveAs <> "") and (CONFIG.ConfigurationName <> _SaveAs)) then CONFIG.ConfigurationName = _SaveAs; end if ConfigurationId bepalen ;config.configurationname@value; (CONFIG.Token <> "") and (CONFIG.Backend <> "axapta") local string _Setting = GetSetting("data.vanhoecke.connectionstring.vhisie4.settings"); local string _Json = _Setting + CONFIG.Token; local boolean _Result; if (CONFIG.TOKEN == "128eababb1a1596e3c130b0e0fd5be820334a01a16bf777d1c5439fcfa861e16") then CONFIG.InputMode = "CreateConfig"; CONFIG.Settings.OperationMode = "Intern"; else _Result = LoadFromJSONService("CONFIG.Settings.KeyValue"; _Json; false); //if not(_Result) then // _Result = Exit(true;false); //end if; end if; index i of CONFIG.Settings.KeyValue _Result = SetValue("CONFIG.Settings." + CONFIG.Settings.KeyValue(i).Name; CONFIG.Settings.KeyValue(i).Value); end index; if (CONFIG.Settings.PersonalityId == "") then CONFIG.Settings.PersonalityId = "1"; end if; Config settings ophalen ;config.inputmode@value;config.settings.operationmode@value;config.settings.personalityid@value; (CONFIG.Token <> "") and (CONFIG.Backend <> "axapta") local collection _ExportPersonalities = {"3";"10";"11";"13";"14";"16";"17";"18";"19";"20";"32";"33";"34";"35";"36"}; // HEIN + SEEFELDER if ((CONFIG.Settings.PersonalityId == "11") or (CONFIG.Settings.PersonalityId == "13")) then CONFIG.Settings.FrontBevestigingVerbergen = true; CONFIG.Settings.FrontOndersteuningTypeVerbergen = true; end if; // DARO if (CONFIG.Settings.PersonalityId == "10") then //CONFIG.Settings.VerpakkingTypeVerbergen= true; CONFIG.Settings.NietMeeleverenVerbergen = true; CONFIG.Settings.IsBenelux = false; end if; // FURNIFIT if (Config.Settings.PersonalityId == "24") then Config.Settings.VerpakkingProboxToegelaten = false; end if; // MatMateriaalAntislip verbergen voor alle MP if (Config.Settings.PersonalityId <> "1") then CONFIG.Settings.MatMateriaalAntislipToegelaten = false; end if; Config settings hardcoded (settings voor de MP) ;config.settings.frontbevestigingverbergen@value;config.settings.frontondersteuningtypeverbergen@value;config.settings.nietmeeleverenverbergen@value;config.settings.isbenelux@value;config.settings.verpakkingproboxtoegelaten@value;config.settings.matmateriaalantisliptoegelaten@value; (CONFIG.InputMode <> "CreateConfig") CONFIG.ReferentieConfiguratie = GetArg("referentieconfiguratie"); ReferentieConfiguratie ophalen ;config.referentieconfiguratie@value; (CONFIG.InputMode <> "CreateConfig") and (CONFIG.Backend <> "axapta") CONFIG.KlantVoorkeurenConfigurationName = DATA.Kenmerken.Variant + "_" + CONFIG.Settings.PersonalityId + "_" + CONFIG.Settings.KlantId; KlantVoorkeuren naam bepalen ;config.klantvoorkeurenconfigurationname@value; true UI.Buttons.Top.SaveAndExitButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndExit','true'"; UI.Buttons.Top.SaveAndContinueButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndContinue','true'"; UI.Buttons.Top.CancelButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.Cancelled','true'"; UI.Buttons.Top.PreferencesButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.KlantVoorkeurenSaved','true'"; // andere werking in AX //UI.Buttons.Top.ProcessButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.ProcessedAndExit','true'"; UI.Buttons.Top.ProcessButton = "task:eCon.UI.Tasks.ProcessAndExitTask"; UI.Buttons.Bottom.SaveAndExitButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndExit','true'"; UI.Buttons.Bottom.SaveAndContinueButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndContinue','true'"; local boolean _IsEditMode = (CONFIG.InputMode == "Edit"); local string _LabelSave = GetLocalizedLabel("SaveAndExitButton"); if (_IsEditMode) then _LabelSave = GetLocalizedLabel("SaveChangesButton"); end if; UI.Buttons.Top.SaveAndExitButton@label = _LabelSave; UI.Buttons.Bottom.SaveAndExitButton@label = _LabelSave; UI.Buttons.Top.SaveAndExitButton@visible = (CONFIG.Backend <> "axapta"); UI.Buttons.Top.SaveAndContinueButton@visible = not(_IsEditMode) and (CONFIG.Backend <> "axapta"); UI.Buttons.Top.PreferencesButton@visible = (CONFIG.Backend <> "axapta"); UI.Buttons.Top.ProcessButton@visible = (CONFIG.Backend == "axapta"); UI.Buttons.Bottom.SaveAndExitButton@visible = (CONFIG.Backend <> "axapta"); UI.Buttons.Bottom.SaveAndContinueButton@visible = not(_IsEditMode) and (CONFIG.Backend <> "axapta"); Buttons ;ui.buttons.top.saveandexitbutton@default;ui.buttons.top.saveandcontinuebutton@default;ui.buttons.top.cancelbutton@default;ui.buttons.top.preferencesbutton@default;ui.buttons.top.processbutton@value;ui.buttons.bottom.saveandexitbutton@default;ui.buttons.bottom.saveandcontinuebutton@default;ui.buttons.top.saveandexitbutton@visible;ui.buttons.top.saveandcontinuebutton@visible;ui.buttons.top.preferencesbutton@visible;ui.buttons.top.processbutton@visible;ui.buttons.bottom.saveandexitbutton@visible;ui.buttons.bottom.saveandcontinuebutton@visible; true 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.Kenmerken.BodemKleur@option(i)@label; end for; UI.BodemKleur = SelectedOption; SelectedOption = UI.InbouwHoogte; for i = 1 to len(UI.InbouwHoogte@options) UI.InbouwHoogte = UI.InbouwHoogte@option(i)@id; UI.InbouwHoogte.Text = DATA.Kenmerken.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.Kenmerken.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.Kenmerken.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 = GetLocalizedLabel("MatAntislipKleur_" + UI.MatAntislipKleur); 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 = GetLocalizedLabel("MatAntislipFiberKleur_" + UI.MatAntislipFiberKleur); end for; UI.MatAntislipFiberKleur = SelectedOption; SelectedOption = UI.MatAntislipFlockKleur; for i = 1 to len(UI.MatAntislipFlockKleur@options) UI.MatAntislipFlockKleur = UI.MatAntislipFlockKleur@option(i)@id; UI.MatAntislipFlockKleur.Text = GetLocalizedLabel("MatAntislipFlockKleur_" + UI.MatAntislipFlockKleur); end for; UI.MatAntislipFlockKleur = SelectedOption; SelectedOption = UI.MatMateriaal; for i = 1 to len(UI.MatMateriaal@options) UI.MatMateriaal = UI.MatMateriaal@option(i)@id; UI.MatMateriaal.Text = DATA.Kenmerken.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 = GetLocalizedLabel("MatVinylFiberglassKleur_" + UI.MatVinylFiberglassKleur); end for; UI.MatVinylFiberglassKleur = SelectedOption; SelectedOption = UI.OpvullijstKleur; for i = 1 to len(UI.OpvullijstKleur@options) UI.OpvullijstKleur = UI.OpvullijstKleur@option(i)@id; UI.OpvullijstKleur.Text = DATA.Kenmerken.OpvullijstKleur@option(i)@label; end for; UI.OpvullijstKleur = SelectedOption; SelectedOption = UI.ZijwandVerhogingType; for i = 1 to len(UI.ZijwandVerhogingType@options) UI.ZijwandVerhogingType = UI.ZijwandVerhogingType@option(i)@id; UI.ZijwandVerhogingType.Text = DATA.Kenmerken.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.Kenmerken.ZijwandVerhogingRelingKleur@option(i)@label; end for; UI.ZijwandVerhogingRelingKleur = SelectedOption; Vertalingen UI image labels ;ui.bodemkleur@value;ui.inbouwhoogte@value;ui.ladedesign@value;ui.ladekleur@value;ui.matantislipkleur@value;ui.matantislipfiberkleur@value;ui.matantislipflockkleur@value;ui.matmateriaal@value;ui.matvinylfiberglasskleur@value;ui.opvullijstkleur@value;ui.zijwandverhogingtype@value;ui.zijwandverhogingrelingkleur@value; true local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); UI.VerpakkingOptiesToonAlle@visible = _IsIntern; UI.HeeftAfwijkendeRugHoogte@visible = _IsIntern; UI.HangmapBoringAantal@visible = _IsIntern; UI.HangmapBoringAantal@mandatory = _IsIntern; UI.ProductieWijze@visible = _IsIntern; UI.ProductieWijze@mandatory = _IsIntern; UI.Toepassing@option("B")@visible = _IsIntern; UI.FrontOndersteuningType@option("HS")@visible = _IsIntern; UI.MatMateriaal@option("AZ")@visible = true; index i of UI.NietMeeleveren local boolean _IsZichtbaarExtern = (not(_IsIntern) and (UI.NietMeeleveren(i).id in CONFIG.NietMeeleverenExtern@options)); UI.NietMeeleveren(i)@visible = (_IsIntern or _IsZichtbaarExtern); end index; Beperkingen intern/extern ;ui.verpakkingoptiestoonalle@visible;ui.heeftafwijkenderughoogte@visible;ui.hangmapboringaantal@visible;ui.hangmapboringaantal@mandatory;ui.productiewijze@visible;ui.productiewijze@mandatory;ui.toepassing@options;ui.frontondersteuningtype@options;ui.matmateriaal@options; true STATE.Initialized = false; Einde initialisatie ;state.initialized@value; (CONFIG.Token == "updateKenmerken") or (CONFIG.Token == "128eababb1a1596e3c130b0e0fd5be820334a01a16bf777d1c5439fcfa861e16") CONFIG.InputMode = "CreateConfig"; CONFIG.Settings.OperationMode = "Extern"; if (CONFIG.Settings.PersonalityId == "") then CONFIG.Settings.PersonalityId = "1"; end if; Update kenmerken ;config.inputmode@value;config.settings.operationmode@value;config.settings.personalityid@value; (DATA.Toepassing <> "") UI.Toepassing@option("SY2")@visible = true; DATA.Kenmerken.Toepassing = DATA.Toepassing; DATA.Toepassing = ""; Toepassing ;ui.toepassing@options;data.kenmerken.toepassing@value;data.toepassing@value; (DATA.BodemKleur <> "") DATA.Kenmerken.BodemKleur = DATA.BodemKleur; DATA.BodemKleur = ""; BodemKleur ;data.kenmerken.bodemkleur@value;data.bodemkleur@value; (DATA.CorpusBreedte <> 0) DATA.Kenmerken.CorpusBreedte = DATA.CorpusBreedte; DATA.CorpusBreedte = 0; CorpusBreedte ;data.kenmerken.corpusbreedte@value;data.corpusbreedte@value; (DATA.CorpusWanddikte <> 0) DATA.Kenmerken.CorpusWanddikte = DATA.CorpusWanddikte; DATA.CorpusWanddikte = 0; CorpusWanddikte ;data.kenmerken.corpuswanddikte@value;data.corpuswanddikte@value; (DATA.DraagKracht <> "") DATA.Kenmerken.DraagKracht = DATA.DraagKracht; DATA.DraagKracht = ""; DraagKracht ;data.kenmerken.draagkracht@value;data.draagkracht@value; (DATA.DwarsverdelingAantal <> "") DATA.Kenmerken.DwarsverdelingAantal = DATA.DwarsverdelingAantal; DATA.DwarsverdelingAantal = ""; DwarsverdelingAantal ;data.kenmerken.dwarsverdelingaantal@value;data.dwarsverdelingaantal@value; (DATA.Frontbevestiging <> "") DATA.Kenmerken.Frontbevestiging = DATA.Frontbevestiging; DATA.Frontbevestiging = ""; Frontbevestiging ;data.kenmerken.frontbevestiging@value;data.frontbevestiging@value; (DATA.Frontondersteuningtype <> "") DATA.Kenmerken.Frontondersteuningtype = DATA.Frontondersteuningtype; DATA.Frontondersteuningtype = ""; Frontondersteuningtype ;data.kenmerken.frontondersteuningtype@value;data.frontondersteuningtype@value; (DATA.Frontstabilisatoraantal <> "") DATA.Kenmerken.Frontstabilisatoraantal = DATA.Frontstabilisatoraantal; DATA.Frontstabilisatoraantal = ""; Frontstabilisatoraantal ;data.kenmerken.frontstabilisatoraantal@value;data.frontstabilisatoraantal@value; (DATA.GeleiderTechnologie <> "") DATA.Kenmerken.GeleiderTechnologie = DATA.GeleiderTechnologie; DATA.GeleiderTechnologie = ""; GeleiderTechnologie ;data.kenmerken.geleidertechnologie@value;data.geleidertechnologie@value; (DATA.GreepEnMeenemer <> "") DATA.Kenmerken.GreepEnMeenemer = DATA.GreepEnMeenemer; DATA.GreepEnMeenemer = ""; GreepEnMeenemer ;data.kenmerken.greepenmeenemer@value;data.greepenmeenemer@value; (DATA.HangmapBoringAantal <> "") DATA.Kenmerken.HangmapBoringAantal = DATA.HangmapBoringAantal; DATA.HangmapBoringAantal = ""; HangmapBoringAantal ;data.kenmerken.hangmapboringaantal@value;data.hangmapboringaantal@value; (DATA.HeeftAfwijkendeRugHoogte) DATA.Kenmerken.HeeftAfwijkendeRugHoogte = DATA.HeeftAfwijkendeRugHoogte; DATA.HeeftAfwijkendeRugHoogte = false; HeeftAfwijkendeRugHoogte ;data.kenmerken.heeftafwijkenderughoogte@value;data.heeftafwijkenderughoogte@value; (DATA.HeeftOpvullijstLinks) DATA.Kenmerken.HeeftOpvullijstLinks = DATA.HeeftOpvullijstLinks; DATA.HeeftOpvullijstLinks = false; HeeftOpvullijstLinks ;data.kenmerken.heeftopvullijstlinks@value;data.heeftopvullijstlinks@value; (DATA.HeeftOpvullijstRechts) DATA.Kenmerken.HeeftOpvullijstRechts = DATA.HeeftOpvullijstRechts; DATA.HeeftOpvullijstRechts = false; HeeftOpvullijstRechts ;data.kenmerken.heeftopvullijstrechts@value;data.heeftopvullijstrechts@value; (DATA.HeeftZijstabilisering) DATA.Kenmerken.HeeftZijstabilisering = DATA.HeeftZijstabilisering; DATA.HeeftZijstabilisering = false; HeeftZijstabilisering ;data.kenmerken.heeftzijstabilisering@value;data.heeftzijstabilisering@value; (DATA.InbouwHoogte <> "") DATA.Kenmerken.InbouwHoogte = DATA.InbouwHoogte; DATA.InbouwHoogte = ""; InbouwHoogte ;data.kenmerken.inbouwhoogte@value;data.inbouwhoogte@value; (DATA.IsBinnenbreedte == false) DATA.Kenmerken.IsBinnenbreedte = DATA.IsBinnenbreedte; DATA.IsBinnenbreedte = true; IsBinnenbreedte ;data.kenmerken.isbinnenbreedte@value;data.isbinnenbreedte@value; (DATA.IsBinnenlade) DATA.Kenmerken.IsBinnenlade = DATA.IsBinnenlade; DATA.IsBinnenlade = false; IsBinnenlade ;data.kenmerken.isbinnenlade@value;data.isbinnenlade@value; (DATA.LadeDesign <> "") DATA.Kenmerken.LadeDesign = DATA.LadeDesign; DATA.LadeDesign = ""; LadeDesign ;data.kenmerken.ladedesign@value;data.ladedesign@value; (DATA.LadeDiepte <> "") DATA.Kenmerken.LadeDiepte = DATA.LadeDiepte; DATA.LadeDiepte = ""; LadeDiepte ;data.kenmerken.ladediepte@value;data.ladediepte@value; (DATA.LadeKleur <> "") DATA.Kenmerken.LadeKleur = DATA.LadeKleur; DATA.LadeKleur = ""; LadeKleur ;data.kenmerken.ladekleur@value;data.ladekleur@value; (DATA.MatKleur <> "") DATA.Kenmerken.MatKleur = DATA.MatKleur; DATA.MatKleur = ""; MatKleur ;data.kenmerken.matkleur@value;data.matkleur@value; (DATA.MatMateriaal <> "") DATA.Kenmerken.MatMateriaal = DATA.MatMateriaal; DATA.MatMateriaal = ""; MatMateriaal ;data.kenmerken.matmateriaal@value;data.matmateriaal@value; (DATA.NietMeeleveren.NietMeeleveren_Geleider) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider = DATA.NietMeeleveren.NietMeeleveren_Geleider; DATA.NietMeeleveren.NietMeeleveren_Geleider = false; NietMeeleveren Geleider ;data.kenmerken.nietmeeleveren.nietmeeleveren_geleider@value;data.nietmeeleveren.nietmeeleveren_geleider@value; (DATA.NietMeeleveren.NietMeeleveren_Afdekkap) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Afdekkap = DATA.NietMeeleveren.NietMeeleveren_Afdekkap; DATA.NietMeeleveren.NietMeeleveren_Afdekkap = false; NietMeeleveren Afdekkap ;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkap@value;data.nietmeeleveren.nietmeeleveren_afdekkap@value; (DATA.NietMeeleveren.NietMeeleveren_Bodemsteun) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Bodemsteun = DATA.NietMeeleveren.NietMeeleveren_Bodemsteun; DATA.NietMeeleveren.NietMeeleveren_Bodemsteun = false; NietMeeleveren Bodemsteun ;data.kenmerken.nietmeeleveren.nietmeeleveren_bodemsteun@value;data.nietmeeleveren.nietmeeleveren_bodemsteun@value; (DATA.NietMeeleveren.NietMeeleveren_Reling) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Reling = DATA.NietMeeleveren.NietMeeleveren_Reling; DATA.NietMeeleveren.NietMeeleveren_Reling = false; NietMeeleveren Reling ;data.kenmerken.nietmeeleveren.nietmeeleveren_reling@value;data.nietmeeleveren.nietmeeleveren_reling@value; (DATA.NietMeeleveren.NietMeeleveren_InschuifElement) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElement = DATA.NietMeeleveren.NietMeeleveren_InschuifElement; DATA.NietMeeleveren.NietMeeleveren_InschuifElement = false; NietMeeleveren InschuifElement ;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelement@value;data.nietmeeleveren.nietmeeleveren_inschuifelement@value; (DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSet) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSet; DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = false; NietMeeleveren TiponBlumotionSet ;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.nietmeeleveren.nietmeeleveren_tiponblumotionset@value; (DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = false; NietMeeleveren TiponBlumotionSynchronisatieStang ;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value; (DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen = DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen = false; NietMeeleveren TiponBlumotionOnderdelen ;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotiononderdelen@value;data.nietmeeleveren.nietmeeleveren_tiponblumotiononderdelen@value; (DATA.NietMeeleveren.NietMeeleveren_FrontBevestiging) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging = DATA.NietMeeleveren.NietMeeleveren_FrontBevestiging; DATA.NietMeeleveren.NietMeeleveren_FrontBevestiging = false; NietMeeleveren FrontBevestiging ;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestiging@value;data.nietmeeleveren.nietmeeleveren_frontbevestiging@value; (DATA.NietMeeleveren.NietMeeleveren_Opvullijst) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = DATA.NietMeeleveren.NietMeeleveren_Opvullijst; DATA.NietMeeleveren.NietMeeleveren_Opvullijst = false; NietMeeleveren Opvullijst ;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.nietmeeleveren.nietmeeleveren_opvullijst@value; (DATA.NietMeeleveren.NietMeeleveren_Antislipmat) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Antislipmat = DATA.NietMeeleveren.NietMeeleveren_Antislipmat; DATA.NietMeeleveren.NietMeeleveren_Antislipmat = false; NietMeeleveren Antislipmat ;data.kenmerken.nietmeeleveren.nietmeeleveren_antislipmat@value;data.nietmeeleveren.nietmeeleveren_antislipmat@value; (DATA.OpvullijstKleur <> "") DATA.Kenmerken.OpvullijstKleur = DATA.OpvullijstKleur; DATA.OpvullijstKleur = ""; 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.Kenmerken.OpvullijstKleur) then OptionToSelect = UI.OpvullijstKleur; end if; end for; UI.OpvullijstKleur@default = OptionToSelect; OpvullijstKleur ;data.kenmerken.opvullijstkleur@value;data.opvullijstkleur@value;ui.opvullijstkleur@default; (DATA.ProductieWijze <> "") DATA.Kenmerken.ProductieWijze = DATA.ProductieWijze; DATA.ProductieWijze = ""; ProductieWijze ;data.kenmerken.productiewijze@value;data.productiewijze@value; (DATA.RugHoogte <> "") DATA.Kenmerken.RugHoogte = DATA.RugHoogte; DATA.RugHoogte = ""; RugHoogte ;data.kenmerken.rughoogte@value;data.rughoogte@value; (DATA.RugwandMateriaal <> "") DATA.Kenmerken.RugwandMateriaal = DATA.RugwandMateriaal; DATA.RugwandMateriaal = ""; RugwandMateriaal ;data.kenmerken.rugwandmateriaal@value;data.rugwandmateriaal@value; (DATA.UitsparingData.UitsparingAantal <> "") DATA.Kenmerken.UitsparingData.UitsparingAantal = DATA.UitsparingData.UitsparingAantal; DATA.UitsparingData.UitsparingAantal = ""; UitsparingData UitsparingAantal ;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.uitsparingdata.uitsparingaantal@value; (DATA.UitsparingData.X.Breedte <> 0) DATA.Kenmerken.UitsparingData.X.Breedte = DATA.UitsparingData.X.Breedte; DATA.UitsparingData.X.Breedte = 0; UitsparingData X Breedte ;data.kenmerken.uitsparingdata.x.breedte@value;data.uitsparingdata.x.breedte@value; (DATA.UitsparingData.X.Hoogte <> "") DATA.Kenmerken.UitsparingData.X.Hoogte = DATA.UitsparingData.X.Hoogte; DATA.UitsparingData.X.Hoogte = ""; UitsparingData X Hoogte ;data.kenmerken.uitsparingdata.x.hoogte@value;data.uitsparingdata.x.hoogte@value; (DATA.UitsparingData.X.Materiaal <> "") DATA.Kenmerken.UitsparingData.X.Materiaal = DATA.UitsparingData.X.Materiaal; DATA.UitsparingData.X.Materiaal = ""; UitsparingData X Materiaal ;data.kenmerken.uitsparingdata.x.materiaal@value;data.uitsparingdata.x.materiaal@value; (DATA.UitsparingData.Z1.Breedte <> 0) DATA.Kenmerken.UitsparingData.Z1.Breedte = DATA.UitsparingData.Z1.Breedte; DATA.UitsparingData.Z1.Breedte = 0; UitsparingData Z1 Breedte ;data.kenmerken.uitsparingdata.z1.breedte@value;data.uitsparingdata.z1.breedte@value; (DATA.UitsparingData.Z1.Diepte <> 0) DATA.Kenmerken.UitsparingData.Z1.Diepte = DATA.UitsparingData.Z1.Diepte; DATA.UitsparingData.Z1.Diepte = 0; UitsparingData Z1 Diepte ;data.kenmerken.uitsparingdata.z1.diepte@value;data.uitsparingdata.z1.diepte@value; (DATA.UitsparingData.Z1.Hoogte <> "") DATA.Kenmerken.UitsparingData.Z1.Hoogte = DATA.UitsparingData.Z1.Hoogte; DATA.UitsparingData.Z1.Hoogte = ""; UitsparingData Z1 Hoogte ;data.kenmerken.uitsparingdata.z1.hoogte@value;data.uitsparingdata.z1.hoogte@value; (DATA.UitsparingData.Z1.Materiaal <> "") DATA.Kenmerken.UitsparingData.Z1.Materiaal = DATA.UitsparingData.Z1.Materiaal; DATA.UitsparingData.Z1.Materiaal = ""; UitsparingData Z1 Materiaal ;data.kenmerken.uitsparingdata.z1.materiaal@value;data.uitsparingdata.z1.materiaal@value; (DATA.UitsparingData.Z1.Vorm <> "") DATA.Kenmerken.UitsparingData.Z1.Vorm = DATA.UitsparingData.Z1.Vorm; DATA.UitsparingData.Z1.Vorm = ""; UitsparingData Z1 Vorm ;data.kenmerken.uitsparingdata.z1.vorm@value;data.uitsparingdata.z1.vorm@value; (DATA.UitsparingData.M.Breedte <> 0) DATA.Kenmerken.UitsparingData.M.Breedte = DATA.UitsparingData.M.Breedte; DATA.UitsparingData.M.Breedte = 0; UitsparingData M Breedte ;data.kenmerken.uitsparingdata.m.breedte@value;data.uitsparingdata.m.breedte@value; (DATA.UitsparingData.M.Hoogte <> "") DATA.Kenmerken.UitsparingData.M.Hoogte = DATA.UitsparingData.M.Hoogte; DATA.UitsparingData.M.Hoogte = ""; UitsparingData M Hoogte ;data.kenmerken.uitsparingdata.m.hoogte@value;data.uitsparingdata.m.hoogte@value; (DATA.UitsparingData.M.Materiaal <> "") DATA.Kenmerken.UitsparingData.M.Materiaal = DATA.UitsparingData.M.Materiaal; DATA.UitsparingData.M.Materiaal = ""; UitsparingData M Materiaal ;data.kenmerken.uitsparingdata.m.materiaal@value;data.uitsparingdata.m.materiaal@value; (DATA.UitsparingData.Z2.Breedte <> 0) DATA.Kenmerken.UitsparingData.Z2.Breedte = DATA.UitsparingData.Z2.Breedte; DATA.UitsparingData.Z2.Breedte = 0; UitsparingData Z2 Breedte ;data.kenmerken.uitsparingdata.z2.breedte@value;data.uitsparingdata.z2.breedte@value; (DATA.UitsparingData.Z2.Diepte <> 0) DATA.Kenmerken.UitsparingData.Z2.Diepte = DATA.UitsparingData.Z2.Diepte; DATA.UitsparingData.Z2.Diepte = 0; UitsparingData Z2 Diepte ;data.kenmerken.uitsparingdata.z2.diepte@value;data.uitsparingdata.z2.diepte@value; (DATA.UitsparingData.Z2.Hoogte <> "") DATA.Kenmerken.UitsparingData.Z2.Hoogte = DATA.UitsparingData.Z2.Hoogte; DATA.UitsparingData.Z2.Hoogte = ""; UitsparingData Z2 Hoogte ;data.kenmerken.uitsparingdata.z2.hoogte@value;data.uitsparingdata.z2.hoogte@value; (DATA.UitsparingData.Z2.Materiaal <> "") DATA.Kenmerken.UitsparingData.Z2.Materiaal = DATA.UitsparingData.Z2.Materiaal; DATA.UitsparingData.Z2.Materiaal = ""; UitsparingData Z2 Materiaal ;data.kenmerken.uitsparingdata.z2.materiaal@value;data.uitsparingdata.z2.materiaal@value; (DATA.UitsparingData.Z2.Vorm <> "") DATA.Kenmerken.UitsparingData.Z2.Vorm = DATA.UitsparingData.Z2.Vorm; DATA.UitsparingData.Z2.Vorm = ""; UitsparingData Z2 Vorm ;data.kenmerken.uitsparingdata.z2.vorm@value;data.uitsparingdata.z2.vorm@value; (DATA.UitsparingData.Y.Breedte <> 0) DATA.Kenmerken.UitsparingData.Y.Breedte = DATA.UitsparingData.Y.Breedte; DATA.UitsparingData.Y.Breedte = 0; UitsparingData Y Breedte ;data.kenmerken.uitsparingdata.y.breedte@value;data.uitsparingdata.y.breedte@value; (DATA.UitsparingData.Y.Hoogte <> "") DATA.Kenmerken.UitsparingData.Y.Hoogte = DATA.UitsparingData.Y.Hoogte; DATA.UitsparingData.Y.Hoogte = ""; UitsparingData Y Hoogte ;data.kenmerken.uitsparingdata.y.hoogte@value;data.uitsparingdata.y.hoogte@value; (DATA.UitsparingData.Y.Materiaal <> "") DATA.Kenmerken.UitsparingData.Y.Materiaal = DATA.UitsparingData.Y.Materiaal; DATA.UitsparingData.Y.Materiaal = ""; UitsparingData Y Materiaal ;data.kenmerken.uitsparingdata.y.materiaal@value;data.uitsparingdata.y.materiaal@value; (DATA.VerpakkingType <> "") DATA.Kenmerken.VerpakkingType = DATA.VerpakkingType; DATA.VerpakkingType = ""; VerpakkingType ;data.kenmerken.verpakkingtype@value;data.verpakkingtype@value; (DATA.ZijkantHoogte <> "") DATA.Kenmerken.ZijkantHoogte = DATA.ZijkantHoogte; DATA.ZijkantHoogte = ""; ZijkantHoogte ;data.kenmerken.zijkanthoogte@value;data.zijkanthoogte@value; (DATA.ZijwandHoogte <> "") DATA.Kenmerken.ZijwandHoogte = DATA.ZijwandHoogte; DATA.ZijwandHoogte = ""; ZijwandHoogte ;data.kenmerken.zijwandhoogte@value;data.zijwandhoogte@value; (DATA.ZijwandVerhogingMateriaal <> "") DATA.Kenmerken.ZijwandVerhogingMateriaal = DATA.ZijwandVerhogingMateriaal; DATA.ZijwandVerhogingMateriaal = ""; ZijwandVerhogingMateriaal ;data.kenmerken.zijwandverhogingmateriaal@value;data.zijwandverhogingmateriaal@value; (DATA.ZijwandVerhogingRelingKleur <> "") DATA.Kenmerken.ZijwandVerhogingRelingKleur = DATA.ZijwandVerhogingRelingKleur; DATA.ZijwandVerhogingRelingKleur = ""; ZijwandVerhogingRelingKleur ;data.kenmerken.zijwandverhogingrelingkleur@value;data.zijwandverhogingrelingkleur@value; (DATA.ZijwandVerhogingType <> "") DATA.Kenmerken.ZijwandVerhogingType = DATA.ZijwandVerhogingType; DATA.ZijwandVerhogingType = ""; 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.Kenmerken.ZijwandVerhogingType) then OptionToSelect = UI.ZijwandVerhogingType; end if; end for; UI.ZijwandVerhogingType@default = OptionToSelect; ZijwandVerhogingType ;data.kenmerken.zijwandverhogingtype@value;data.zijwandverhogingtype@value;ui.zijwandverhogingtype@default; (DATA.ZijwandVerhogingInschuifElementKleur <> "") DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur = DATA.ZijwandVerhogingInschuifElementKleur; DATA.ZijwandVerhogingInschuifElementKleur = ""; ZijwandVerhogingInschuifElementKleur ;data.kenmerken.zijwandverhoginginschuifelementkleur@value;data.zijwandverhoginginschuifelementkleur@value; true // Gedrag Verpakkingen : local boolean _BEHAVIOR_IsVerpakkingProboxZichtbaar; local boolean _BEHAVIOR_IsVerpakkingVHossZichtbaar; local boolean _BEHAVIOR_IsVerpakkingProcomZichtbaar; local boolean _BEHAVIOR_IsVerpakkingPalletZichtbaar; local boolean _ToonAlleVerpakkingen = UI.VerpakkingOptiesToonAlle; if (_ToonAlleVerpakkingen) or (CONFIG.InputMode == "CreateConfig") or (CONFIG.Settings.OperationMode == "Intern") or (BEHAVIOR.IsEconAx) then _BEHAVIOR_IsVerpakkingProboxZichtbaar = true; _BEHAVIOR_IsVerpakkingVHossZichtbaar = true; _BEHAVIOR_IsVerpakkingProcomZichtbaar = true; _BEHAVIOR_IsVerpakkingPalletZichtbaar = true; else _BEHAVIOR_IsVerpakkingProboxZichtbaar = CONFIG.Settings.VerpakkingProboxToegelaten; _BEHAVIOR_IsVerpakkingVHossZichtbaar = CONFIG.Settings.VerpakkingVHossToegelaten; _BEHAVIOR_IsVerpakkingProcomZichtbaar = CONFIG.Settings.VerpakkingProcomToegelaten; _BEHAVIOR_IsVerpakkingPalletZichtbaar = CONFIG.Settings.VerpakkingPalletToegelaten; end if; // Controls Verpakkingen : UI.VerpakkingLayout.VerpakkingType@option("Probox")@visible = _BEHAVIOR_IsVerpakkingProboxZichtbaar; UI.VerpakkingLayout.VerpakkingType@option("VHoss")@visible = _BEHAVIOR_IsVerpakkingVHossZichtbaar; UI.VerpakkingLayout.VerpakkingType@option("Procom")@visible = _BEHAVIOR_IsVerpakkingProcomZichtbaar; UI.VerpakkingLayout.VerpakkingType@option("Pallet")@visible = _BEHAVIOR_IsVerpakkingPalletZichtbaar; Gedrag Verpakkingen instellen ;ui.verpakkinglayout.verpakkingtype@options; true local boolean _BEHAVIOR_MatMateriaalAntislipToegelaten; if (CONFIG.Settings.OperationMode == "Intern") or (CONFIG.InputMode == "CreateConfig") or (BEHAVIOR.IsEconAx) then _BEHAVIOR_MatMateriaalAntislipToegelaten = true; else _BEHAVIOR_MatMateriaalAntislipToegelaten = Config.Settings.MatMateriaalAntislipToegelaten; end if; UI.MatMateriaal@option("AS")@visible = _BEHAVIOR_MatMateriaalAntislipToegelaten; Gedrag Matten ;ui.matmateriaal@options; true local boolean _IsAantalZichtbaar; local boolean _IsAantalVerplicht; if(BEHAVIOR.IsEconAX) then _IsAantalZichtbaar = false; _IsAantalVerplicht = false; else _IsAantalZichtbaar = true; _IsAantalVerplicht = true; end if; UI.Lijn.Aantal@visible = _IsAantalZichtbaar; UI.Lijn.Aantal@mandatory = _IsAantalVerplicht; Gedrag Aantal ;ui.lijn.aantal@visible;ui.lijn.aantal@mandatory; not((CONFIG.Backend == "axapta") and (CONFIG.ProcessMode == "Background")) // Read only controls niet overnemen //DATA.InterneBreedte = UI.InterneBreedte; //DATA.OpvullijstDikte = UI.OpvullijstDikte; // Simple controls DATA.Kenmerken.CorpusBreedte = UI.CorpusBreedte; DATA.Kenmerken.CorpusWanddikte = UI.CorpusWanddikte; DATA.Kenmerken.Draagkracht = UI.Draagkracht; DATA.Kenmerken.DwarsverdelingAantal = UI.DwarsverdelingAantal; DATA.Kenmerken.FrontBevestiging = UI.FrontBevestiging; DATA.Kenmerken.FrontStabilisatorAantal = UI.FrontStabilisatorAantal; DATA.Kenmerken.FrontOndersteuningType = UI.FrontOndersteuningType; DATA.Kenmerken.GeleiderTechnologie = UI.GeleiderTechnologie; DATA.Kenmerken.GreepEnMeenemer = UI.GreepEnMeenemer; DATA.Kenmerken.HangmapBoringAantal = UI.HangmapBoringAantal; DATA.Kenmerken.IsBinnenbreedte = UI.IsBinnenbreedte; DATA.Kenmerken.IsBinnenlade = UI.IsBinnenlade; DATA.Kenmerken.LadeDiepte = UI.LadeDiepte; DATA.Lijn.Aantal = UI.Lijn.Aantal; DATA.Lijn.Referentie = UI.Lijn.Referentie; DATA.Kenmerken.HeeftAfwijkendeRugHoogte = UI.HeeftAfwijkendeRugHoogte; DATA.Kenmerken.HeeftOpvullijstLinks = UI.HeeftOpvullijstLinks; DATA.Kenmerken.HeeftOpvullijstRechts= UI.HeeftOpvullijstRechts; DATA.Kenmerken.HeeftZijstabilisering = UI.HeeftZijstabilisering; DATA.Kenmerken.ProductieWijze = UI.ProductieWijze; DATA.Kenmerken.RugHoogte = UI.RugHoogte; DATA.Kenmerken.RugwandMateriaal = UI.RugwandMateriaal; DATA.Kenmerken.Toepassing = UI.Toepassing; DATA.Kenmerken.UitsparingData.X.Breedte = UI.UitsparingData.X.BreedteRugdeel; DATA.Kenmerken.UitsparingData.X.Hoogte = UI.UitsparingData.X.Hoogte; DATA.Kenmerken.UitsparingData.X.Materiaal = UI.UitsparingData.X.Materiaal; DATA.Kenmerken.UitsparingData.M.Breedte = UI.UitsparingData.M.BreedteRugdeel; DATA.Kenmerken.UitsparingData.M.Hoogte = UI.UitsparingData.M.Hoogte; DATA.Kenmerken.UitsparingData.M.Materiaal = UI.UitsparingData.M.Materiaal; DATA.Kenmerken.UitsparingData.Y.Breedte = UI.UitsparingData.Y.BreedteRugdeel; DATA.Kenmerken.UitsparingData.Y.Hoogte = UI.UitsparingData.Y.Hoogte; DATA.Kenmerken.UitsparingData.Y.Materiaal = UI.UitsparingData.Y.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.UitsparingData.Z1.BreedteUitsparing; DATA.Kenmerken.UitsparingData.Z1.Diepte = UI.UitsparingData.Z1.Diepte; DATA.Kenmerken.UitsparingData.Z1.Hoogte = UI.UitsparingData.Z1.Hoogte; DATA.Kenmerken.UitsparingData.Z1.Materiaal = UI.UitsparingData.Z1.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Vorm = UI.UitsparingData.Z1.Vorm; DATA.Kenmerken.UitsparingData.Z2.Breedte = UI.UitsparingData.Z2.BreedteUitsparing; DATA.Kenmerken.UitsparingData.Z2.Diepte = UI.UitsparingData.Z2.Diepte; DATA.Kenmerken.UitsparingData.Z2.Hoogte = UI.UitsparingData.Z2.Hoogte; DATA.Kenmerken.UitsparingData.Z2.Materiaal = UI.UitsparingData.Z2.Materiaal; DATA.Kenmerken.UitsparingData.Z2.Vorm = UI.UitsparingData.Z2.Vorm; DATA.Kenmerken.UitsparingData.UitsparingAantal = UI.UitsparingData.UitsparingAantal; DATA.Kenmerken.VerpakkingType = UI.VerpakkingLayout.VerpakkingType; DATA.Kenmerken.ZijwandVerhogingMateriaal = UI.ZijwandVerhogingMateriaal; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur = UI.ZijwandVerhogingInschuifElementKleur; // Niet meeleveren index i of UI.NietMeeleveren local string _IsSelected = CStr(UI.NietMeeleveren(i).IsSelected); local string _NietMeeleverenProperty = "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.NietMeeleveren(i).Id; local boolean _Result = SetValue(_NietMeeleverenProperty; _IsSelected); end index; // Image controls DATA.Kenmerken.BodemKleur = UI.BodemKleur.Value; DATA.Kenmerken.LadeDesign = UI.LadeDesign.Value; DATA.Kenmerken.LadeKleur = UI.LadeKleur.Value; DATA.Kenmerken.OpvullijstKleur = UI.OpvullijstKleur.Value; DATA.Kenmerken.ZijwandVerhogingType = UI.ZijwandVerhogingType.Value; DATA.Kenmerken.ZijwandVerhogingRelingKleur = UI.ZijwandVerhogingRelingKleur.Value; // InbouwHoogte met verwante properties DATA.Kenmerken.InbouwHoogte = UI.InbouwHoogte.Value; DATA.Kenmerken.ZijwandHoogte = UI.InbouwHoogte.ZijwandHoogte; DATA.Kenmerken.ZijkantHoogte = UI.InbouwHoogte.ZijkantHoogte; if (CONFIG.InputMode == "CreateConfig") then STATE.WinkelkarInfoCalculated = false; STATE.WinkelkarInfoDiverseCalculated = false; end if; Values ;data.kenmerken.corpusbreedte@value;data.kenmerken.corpuswanddikte@value;data.kenmerken.draagkracht@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.frontbevestiging@value;data.kenmerken.frontstabilisatoraantal@value;data.kenmerken.frontondersteuningtype@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.greepenmeenemer@value;data.kenmerken.hangmapboringaantal@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladediepte@value;data.lijn.aantal@value;data.lijn.referentie@value;data.kenmerken.heeftafwijkenderughoogte@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.productiewijze@value;data.kenmerken.rughoogte@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.toepassing@value;data.kenmerken.uitsparingdata.x.breedte@value;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.y.breedte@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.breedte@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.z2.breedte@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.kenmerken.verpakkingtype@value;data.kenmerken.zijwandverhogingmateriaal@value;data.kenmerken.zijwandverhoginginschuifelementkleur@value;data.kenmerken.bodemkleur@value;data.kenmerken.ladedesign@value;data.kenmerken.ladekleur@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.zijwandverhogingtype@value;data.kenmerken.zijwandverhogingrelingkleur@value;data.kenmerken.inbouwhoogte@value;data.kenmerken.zijwandhoogte@value;data.kenmerken.zijkanthoogte@value;state.winkelkarinfocalculated@value;state.winkelkarinfodiversecalculated@value; true DATA.Kenmerken.MatMateriaal = UI.MatMateriaal.Value; DATA.Kenmerken.MatKleur = switch (UI.MatMateriaal.Value) case "CF": UI.MatVinylFiberglassKleur.Value case "AS": UI.MatAntislipKleur.Value case "AF": UI.MatAntislipFiberKleur.Value case "AZ": UI.MatAntislipFlockKleur.Value else "" end switch; Values - Mat ;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value; (CONFIG.InputMode <> "Edit") and not((CONFIG.Backend == "axapta") and (CONFIG.ProcessMode == "Background")) DATA.Kenmerken.Toepassing = "L"; DATA.Kenmerken.ProductieWijze = "V"; DATA.Kenmerken.RugwandMateriaal = "Hout"; DATA.Kenmerken.FrontOndersteuningType = "A"; Defaults invullen ;data.kenmerken.toepassing@value;data.kenmerken.productiewijze@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.frontondersteuningtype@value; (CONFIG.ReferentieConfiguratie <> "") and (CONFIG.InputMode <> "Edit") and (CONFIG.InputMode <> "CreateConfig") local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.ReferentieConfiguratie + "'"; CONFIG.Database.Configurations@options = {}; CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); STATE.ReferentieConfiguratieLoaded = true; ReferentieConfiguratie: ConfigId ophalen op basis van ReferentieConfiguratie ;config.database.configurations@options;state.referentieconfiguratieloaded@value; STATE.ReferentieConfiguratieLoaded and (CONFIG.Database.Configurations.Name == CONFIG.ReferentieConfiguratie) STATE.ReferentieConfiguratieLoaded = false; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%'"; local boolean _Result; CONFIG.Database.ConfigAnalyseProperties@options = {}; CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query); for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options) CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id; if (CONFIG.Database.ConfigAnalyseProperties.PropertyName in CONFIG.Defaults.ReferentieConfiguratie@options) then _Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value); end if; end for; ReferentieConfiguratie: Properties ophalen op basis van ConfigId ;state.referentieconfiguratieloaded@value;config.database.configanalyseproperties@options; (CONFIG.ReferentieConfiguratie == "") and (CONFIG.InputMode <> "Edit") and (CONFIG.InputMode <> "CreateConfig") and (CONFIG.Settings.KlantId <> "") and (CONFIG.Settings.PersonalityId <> "") local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.KlantVoorkeurenConfigurationName + "'"; CONFIG.Database.Configurations@options = {}; CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); STATE.KlantVoorkeurenLoaded = true; KlantVoorkeuren: ConfigId ophalen op basis van KlantId ;config.database.configurations@options;state.klantvoorkeurenloaded@value; STATE.KlantVoorkeurenLoaded and (CONFIG.Database.Configurations.Name == CONFIG.KlantVoorkeurenConfigurationName) STATE.KlantVoorkeurenLoaded = false; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%' AND value <> ''"; local boolean _Result; CONFIG.Database.ConfigAnalyseProperties@options = {}; CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query); for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options) CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id; if (CONFIG.Database.ConfigAnalyseProperties.PropertyName in CONFIG.Defaults.KlantVoorkeuren@options) then _Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value); end if; end for; KlantVoorkeuren: Properties ophalen op basis van ConfigId ;state.klantvoorkeurenloaded@value;config.database.configanalyseproperties@options; (CONFIG.ReferentieConfiguratie == "") and (CONFIG.InputMode <> "Edit") and (Config.InputMode <> "CreateConfig") and (CONFIG.Settings.PersonalityId <> "") and (len(CONFIG.Database.ConfigAnalyseProperties) == 0) CONFIG.PersonalityVoorkeurenConfigurationName = DATA.Kenmerken.Variant + "_" + CONFIG.Settings.PersonalityId; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.PersonalityVoorkeurenConfigurationName + "'"; CONFIG.Database.Configurations@options = {}; CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); STATE.PersonalityVoorkeurenLoaded = true; PersonalityVoorkeuren: ConfigId ophalen op basis van PersonalityId ;config.personalityvoorkeurenconfigurationname@value;config.database.configurations@options;state.personalityvoorkeurenloaded@value; STATE.PersonalityVoorkeurenLoaded and (CONFIG.Database.Configurations.Name == CONFIG.PersonalityVoorkeurenConfigurationName) STATE.PersonalityVoorkeurenLoaded = false; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%' AND value <> ''"; local boolean _Result; CONFIG.Database.ConfigAnalyseProperties@options = {}; CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query); for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options) CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id; if (CONFIG.Database.ConfigAnalyseProperties.PropertyName in CONFIG.Defaults.PersonalityVoorkeuren@options) then _Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value); end if; end for; PersonalityVoorkeuren: Properties ophalen op basis van ConfigId ;state.personalityvoorkeurenloaded@value;config.database.configanalyseproperties@options; true local double Dikte = 25; if (DATA.Kenmerken.Toepassing == "B") then Dikte = 12.5; // Burobox slotplaat wisselkernen end if; DATA.BerekendeWaarden.OpvullijstDikte = Dikte; Bereken OpvullijstDikte ;data.berekendewaarden.opvullijstdikte@value; true local double _CorpusWanddikte = DATA.Kenmerken.CorpusWanddikte; local double _OpvullijstDikte = DATA.BerekendeWaarden.OpvullijstDikte; local boolean _IsBinnenbreedte = DATA.Kenmerken.IsBinnenbreedte; local boolean _HeeftOpvullijstLinks = DATA.Kenmerken.HeeftOpvullijstLinks; local boolean _HeeftOpvullijstRechts = DATA.Kenmerken.HeeftOpvullijstRechts; local long _MinTolerantieIB = 0; local long _AantalOpvullijsten = 0; // BEREKEN CORPUSBREEDTEDELTA // MinTolerantieIB (voor Interne mode nog te koppelen aan een input-property, alleen bij TBX) if not(DATA.Kenmerken.IsBinnenbreedte) and (DATA.Kenmerken.CorpusWanddikte > 0) then _MinTolerantieIB = 1; end if; if (_HeeftOpvullijstLinks) then _AantalOpvullijsten = _AantalOpvullijsten + 1; end if; if (_HeeftOpvullijstRechts) then _AantalOpvullijsten = _AantalOpvullijsten + 1; end if; if (DATA.Kenmerken.IsBinnenbreedte) then _CorpusWanddikte = 0; end if; DATA.BerekendeWaarden.CorpusBreedteDelta = (2 * _CorpusWanddikte) + (_AantalOpvullijsten * _OpvullijstDikte) + _MinTolerantieIB; // BEREKEN INTERNEBREEDTE local double _InterneBreedte = 0; if DATA.Kenmerken.CorpusBreedte > 0 then _InterneBreedte = DATA.Kenmerken.CorpusBreedte - DATA.BerekendeWaarden.CorpusBreedteDelta; end if; DATA.BerekendeWaarden.InterneBreedte = _InterneBreedte; Bereken CorpusBreedteDelta en InterneBreedte (als deze niet in 1 rule berekend worden, wordt interneBreedte niet correct berekend bij createConfig) ;data.berekendewaarden.corpusbreedtedelta@value;data.berekendewaarden.internebreedte@value; false /*local double _InterneBreedte = 0; if DATA.CorpusBreedte > 0 then _InterneBreedte = DATA.CorpusBreedte - DATA.CorpusBreedteDelta; end if; DATA.InterneBreedte = _InterneBreedte; */ Bereken InterneBreedte ; true DATA.Lijn.GroeperingCode = DATA.Kenmerken.LadeDesign + ";" + DATA.Kenmerken.BodemKleur; Bereken GroeperingCode ;data.lijn.groeperingcode@value; false // mogelijks via constraint // Constants local double MINDIEPTE_SIFONLADE_MET_TOB_STANG = 400; // Voorwaardelijke beperkingen local boolean IsLadeMetUitsparing = (DATA.Kenmerken.Toepassing in {"SY2"; "SY3"; "SP2"}); local boolean HeeftSynchrostang = (DATA.Kenmerken.GeleiderTechnologie == "TOB"); /*if (IsLadeMetUitsparing and HeeftSynchrostang) then // LadeDiepte Valids aanpassen : invalid indien kleiner dan MINDIEPTE_SIFONLADE_MET_TOB_STANG end if;*/ Minimum LadeDiepte voor UitsparingData (Inactive) ; true local long _Minimum = 1; if (UI.VerpakkingLayout.VerpakkingType == "Pallet") then _Minimum = 10; 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.BerekendeWaarden.CorpusBreedteDelta CorpusBreedte minimum ;range.corpusbreedte.minimum@value; true RANGE.CorpusBreedte.Maximum = RANGE.InterneBreedte.Maximum + DATA.BerekendeWaarden.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_SIFONLADE = 370; local double MIN_VOOR_SPOELBAKLADE = 411; // Defaults local double Breedte = MINIMUM_BREEDTE; // Voorwaardelijke beperkingen local double NieuweBeperking; if (DATA.Kenmerken.IsBinnenlade) then NieuweBeperking = MIN_VOOR_BINNENLADE; Breedte = eCon.Core.Functions.Max(Breedte; NieuweBeperking); end if; if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then NieuweBeperking = MIN_VOOR_TOB; Breedte = eCon.Core.Functions.Max(Breedte; NieuweBeperking); end if; if (DATA.Kenmerken.Toepassing in {"SY2"; "SY3"} ) then NieuweBeperking = MIN_VOOR_SIFONLADE; Breedte = eCon.Core.Functions.Max(Breedte; NieuweBeperking); end if; if (DATA.Kenmerken.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_VHOSS = 1168; // = 1200 - 2x16 local double MAX_VOOR_DWARSVERDELING = 1168; // beperking max door lengte dwarslat (1077) // Defaults local double Breedte = MAXIMUM_BREEDTE; // Voorwaardelijke beperkingen local double NieuweBeperking; if (DATA.Kenmerken.IsBinnenlade) then NieuweBeperking = MAX_VOOR_BINNENLADE; Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking); end if; if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then NieuweBeperking = MAX_VOOR_TOB; Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking); end if; if (DATA.Kenmerken.VerpakkingType == "VHoss") then NieuweBeperking = MAX_VOOR_VHOSS; Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking); end if; if (DATA.Kenmerken.DwarsverdelingAantal <> "0") then NieuweBeperking = MAX_VOOR_DWARSVERDELING; 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 RANGE.UitsparingDataBreedteM.Minimum = 120; UitsparingDataBreedteX minimum ;range.uitsparingdatabreedtem.minimum@value; true RANGE.UitsparingDataBreedteM.Minimum = 120; UitsparingDataBreedteY minimum ;range.uitsparingdatabreedtem.minimum@value; true DATA.Kenmerken.LadeDesign@option("WA")@valid = DATA.Kenmerken.LadeKleur in {""; "SW"}; DATA.Kenmerken.LadeDesign@option("GA")@valid = DATA.Kenmerken.LadeKleur in {""; "MG"}; DATA.Kenmerken.LadeDesign@option("ZA")@valid = DATA.Kenmerken.LadeKleur in {""; "BZ"}; Set the valid options of DATA.Kenmerken.LadeDesign - Use the value of DATA.Kenmerken.LadeKleur ;data.kenmerken.ladedesign@valids; true DATA.Kenmerken.ZijwandVerhogingMateriaal@option("Glas")@valid = DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur in {""; "FG8"; "FZ8"}; DATA.Kenmerken.ZijwandVerhogingMateriaal@option("Alu")@valid = DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur in {""; "AluMG"; "AluSW"; "AluBZ"}; DATA.Kenmerken.ZijwandVerhogingMateriaal@option("ZV")@valid = DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur in {""; "ZV"}; Set the valid options of DATA.Kenmerken.ZijwandVerhogingMateriaal - Use the value of DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur ;data.kenmerken.zijwandverhogingmateriaal@valids; true DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@option("FG8")@valid = DATA.Kenmerken.LadeKleur in {""; "SW"; "MG"; "BZ"}; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@option("FZ8")@valid = DATA.Kenmerken.LadeKleur in {""; "SW"; "MG"; "BZ"}; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@option("AluMG")@valid = DATA.Kenmerken.LadeKleur in {""; "MG"}; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@option("AluSW")@valid = DATA.Kenmerken.LadeKleur in {""; "SW"}; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@option("AluBZ")@valid = DATA.Kenmerken.LadeKleur in {""; "BZ"}; Set the valid options of DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur - Use the value of DATA.Kenmerken.LadeKleur ;data.kenmerken.zijwandverhoginginschuifelementkleur@valids; true DATA.Kenmerken.ZijwandVerhogingRelingKleur@option("SW")@valid = DATA.Kenmerken.LadeKleur in {""; "SW"}; DATA.Kenmerken.ZijwandVerhogingRelingKleur@option("MG")@valid = DATA.Kenmerken.LadeKleur in {""; "MG"}; DATA.Kenmerken.ZijwandVerhogingRelingKleur@option("BZ")@valid = DATA.Kenmerken.LadeKleur in {""; "BZ"}; Set the valid options of DATA.Kenmerken.ZijwandVerhogingRelingKleur - Use the value of DATA.Kenmerken.LadeKleur ;data.kenmerken.zijwandverhogingrelingkleur@valids; true DATA.Kenmerken.HeeftOpvullijstRechts@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.HeeftOpvullijstRechts,DATA.Kenmerken.HeeftZijstabilisering@Valids"; "DATA.Kenmerken.HeeftOpvullijstRechts"; "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering)); Applying constraints for property DATA.Kenmerken.HeeftOpvullijstRechts ; true DATA.Kenmerken.HeeftOpvullijstLinks@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.HeeftOpvullijstLinks,DATA.Kenmerken.HeeftZijstabilisering@Valids"; "DATA.Kenmerken.HeeftOpvullijstLinks"; "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering)); Applying constraints for property DATA.Kenmerken.HeeftOpvullijstLinks ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.HeeftOpvullijstRechts,DATA.Kenmerken.HeeftZijstabilisering@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.HeeftOpvullijstRechts,DATA.Kenmerken.HeeftZijstabilisering@Valids") Gather constraint messages for decision table DATA.Kenmerken.HeeftOpvullijstRechts,DATA.Kenmerken.HeeftZijstabilisering@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.HeeftOpvullijstLinks,DATA.Kenmerken.HeeftZijstabilisering@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.HeeftOpvullijstLinks,DATA.Kenmerken.HeeftZijstabilisering@Valids") Gather constraint messages for decision table DATA.Kenmerken.HeeftOpvullijstLinks,DATA.Kenmerken.HeeftZijstabilisering@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.InbouwHoogte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.InbouwHoogte@Valids") Gather constraint messages for decision table DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.InbouwHoogte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.InbouwHoogte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.InbouwHoogte@Valids") Gather constraint messages for decision table DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.InbouwHoogte@Valids ; true DATA.Kenmerken.GreepEnMeenemer@valids = ConstrainedOptions("DATA.Kenmerken.GreepEnMeenemer,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids"; "DATA.Kenmerken.GreepEnMeenemer"; "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade)); Applying constraints for property DATA.Kenmerken.GreepEnMeenemer ;data.kenmerken.greepenmeenemer@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.GreepEnMeenemer,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.GreepEnMeenemer,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids") Gather constraint messages for decision table DATA.Kenmerken.GreepEnMeenemer,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids") Gather constraint messages for decision table DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.IsBinnenlade@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.IsBinnenlade@Valids") Gather constraint messages for decision table DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.IsBinnenlade@Valids ; true DATA.Kenmerken.DwarsverdelingAantal@valids = ConstrainedOptions("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.InbouwHoogte@Valids;DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.DwarsverdelingAantal"; "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.DwarsverdelingAantal ;data.kenmerken.dwarsverdelingaantal@valids; true DATA.Kenmerken.UitsparingData.UitsparingAantal@valids = ConstrainedOptions("DATA.Kenmerken.Toepassing,DATA.Kenmerken.UitsparingData.UitsparingAantal@Valids"; "DATA.Kenmerken.UitsparingData.UitsparingAantal"; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.UitsparingData.UitsparingAantal ;data.kenmerken.uitsparingdata.uitsparingaantal@valids; true DATA.Kenmerken.ProductieWijze@valids = ConstrainedOptions("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.ProductieWijze"; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.ProductieWijze ;data.kenmerken.productiewijze@valids; true DATA.Kenmerken.HeeftZijstabilisering@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.HeeftOpvullijstLinks,DATA.Kenmerken.HeeftZijstabilisering@Valids;DATA.Kenmerken.HeeftOpvullijstRechts,DATA.Kenmerken.HeeftZijstabilisering@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.InbouwHoogte@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.HeeftZijstabilisering"; "DATA.Kenmerken.HeeftOpvullijstLinks"; CurrentBoolean(DATA.Kenmerken.HeeftOpvullijstLinks); "DATA.Kenmerken.HeeftOpvullijstRechts"; CurrentBoolean(DATA.Kenmerken.HeeftOpvullijstRechts); "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.HeeftZijstabilisering ; true DATA.Kenmerken.ZijwandVerhogingType@valids = ConstrainedOptions("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.ZijwandVerhogingType@Valids"; "DATA.Kenmerken.ZijwandVerhogingType"; "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte); Applying constraints for property DATA.Kenmerken.ZijwandVerhogingType ;data.kenmerken.zijwandverhogingtype@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.Toepassing,DATA.Kenmerken.UitsparingData.UitsparingAantal@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.Toepassing,DATA.Kenmerken.UitsparingData.UitsparingAantal@Valids") Gather constraint messages for decision table DATA.Kenmerken.Toepassing,DATA.Kenmerken.UitsparingData.UitsparingAantal@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids") Gather constraint messages for decision table DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids") Gather constraint messages for decision table DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.LadeDiepte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.LadeDiepte@Valids") Gather constraint messages for decision table DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.LadeDiepte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.ZijwandVerhogingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.ZijwandVerhogingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.ZijwandVerhogingType@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids") Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids ; true DATA.Kenmerken.FrontOndersteuningType@valids = ConstrainedOptions("DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.FrontOndersteuningType"; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.FrontOndersteuningType ;data.kenmerken.frontondersteuningtype@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.Toepassing@Valids ; true DATA.Kenmerken.Draagkracht@valids = ConstrainedOptions("DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids"; "DATA.Kenmerken.Draagkracht"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte); Applying constraints for property DATA.Kenmerken.Draagkracht ;data.kenmerken.draagkracht@valids; true DATA.Kenmerken.InbouwHoogte@valids = ConstrainedOptions("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.InbouwHoogte@Valids;DATA.Kenmerken.GreepEnMeenemer,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.InbouwHoogte@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.ZijwandVerhogingType@Valids"; "DATA.Kenmerken.InbouwHoogte"; "DATA.Kenmerken.DwarsverdelingAantal"; DATA.Kenmerken.DwarsverdelingAantal; "DATA.Kenmerken.GreepEnMeenemer"; DATA.Kenmerken.GreepEnMeenemer; "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering); "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.ZijwandVerhogingType"; DATA.Kenmerken.ZijwandVerhogingType); Applying constraints for property DATA.Kenmerken.InbouwHoogte ;data.kenmerken.inbouwhoogte@valids; true DATA.Kenmerken.IsBinnenlade@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.GreepEnMeenemer,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.IsBinnenlade"; "DATA.Kenmerken.FrontOndersteuningType"; DATA.Kenmerken.FrontOndersteuningType; "DATA.Kenmerken.GreepEnMeenemer"; DATA.Kenmerken.GreepEnMeenemer; "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.IsBinnenlade ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids ; true DATA.Kenmerken.MatKleur@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids"; "DATA.Kenmerken.MatKleur"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.MatMateriaal"; DATA.Kenmerken.MatMateriaal); Applying constraints for property DATA.Kenmerken.MatKleur ;data.kenmerken.matkleur@valids; true DATA.Kenmerken.MatMateriaal@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids"; "DATA.Kenmerken.MatMateriaal"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.MatKleur"; DATA.Kenmerken.MatKleur); Applying constraints for property DATA.Kenmerken.MatMateriaal ;data.kenmerken.matmateriaal@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids ; true DATA.Kenmerken.LadeDiepte@valids = ConstrainedOptions("DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.LadeDiepte"; "DATA.Kenmerken.Draagkracht"; DATA.Kenmerken.Draagkracht; "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering); "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.MatKleur"; DATA.Kenmerken.MatKleur; "DATA.Kenmerken.MatMateriaal"; DATA.Kenmerken.MatMateriaal; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.LadeDiepte ;data.kenmerken.ladediepte@valids; true DATA.Kenmerken.LadeKleur@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.LadeKleur"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.LadeKleur ;data.kenmerken.ladekleur@valids; true DATA.Kenmerken.Toepassing@valids = ConstrainedOptions("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.Toepassing,DATA.Kenmerken.UitsparingData.UitsparingAantal@Valids"; "DATA.Kenmerken.Toepassing"; "DATA.Kenmerken.DwarsverdelingAantal"; DATA.Kenmerken.DwarsverdelingAantal; "DATA.Kenmerken.FrontOndersteuningType"; DATA.Kenmerken.FrontOndersteuningType; "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering); "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze; "DATA.Kenmerken.UitsparingData.UitsparingAantal"; DATA.Kenmerken.UitsparingData.UitsparingAantal); Applying constraints for property DATA.Kenmerken.Toepassing ;data.kenmerken.toepassing@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids ; true for i = 1 to len(DATA.Kenmerken.BodemKleur@options) UI.BodemKleur@option(i)@valid = DATA.Kenmerken.BodemKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.Draagkracht@options) UI.Draagkracht@option(i)@valid = DATA.Kenmerken.Draagkracht@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.DwarsverdelingAantal@options) UI.DwarsverdelingAantal@option(i)@valid = DATA.Kenmerken.DwarsverdelingAantal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.FrontBevestiging@options) UI.FrontBevestiging@option(i)@valid = DATA.Kenmerken.FrontBevestiging@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.FrontStabilisatorAantal@options) UI.FrontStabilisatorAantal@option(i)@valid = DATA.Kenmerken.FrontStabilisatorAantal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.FrontOndersteuningType@options) UI.FrontOndersteuningType@option(i)@valid = DATA.Kenmerken.FrontOndersteuningType@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.GeleiderTechnologie@options) UI.GeleiderTechnologie@option(i)@valid = DATA.Kenmerken.GeleiderTechnologie@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.GreepEnMeenemer@options) UI.GreepEnMeenemer@option(i)@valid = DATA.Kenmerken.GreepEnMeenemer@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.HangmapBoringAantal@options) UI.HangmapBoringAantal@option(i)@valid = DATA.Kenmerken.HangmapBoringAantal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeDesign@options) UI.LadeDesign@option(i)@valid = DATA.Kenmerken.LadeDesign@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeDiepte@options) UI.LadeDiepte@option(i)@valid = DATA.Kenmerken.LadeDiepte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.InbouwHoogte@options) UI.InbouwHoogte@option(i)@valid = DATA.Kenmerken.InbouwHoogte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeKleur@options) UI.LadeKleur@option(i)@valid = DATA.Kenmerken.LadeKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.OpvullijstKleur@options) UI.OpvullijstKleur@option(i)@valid = DATA.Kenmerken.OpvullijstKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ProductieWijze@options) UI.ProductieWijze@option(i)@valid = DATA.Kenmerken.ProductieWijze@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.RugHoogte@options) UI.RugHoogte@option(i)@valid = DATA.Kenmerken.RugHoogte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.RugwandMateriaal@options) UI.RugwandMateriaal@option(i)@valid = DATA.Kenmerken.RugwandMateriaal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.Toepassing@options) UI.Toepassing@option(i)@valid = DATA.Kenmerken.Toepassing@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.UitsparingData.UitsparingAantal@options) UI.UitsparingData.UitsparingAantal@option(i)@valid = DATA.Kenmerken.UitsparingData.UitsparingAantal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.VerpakkingType@options) UI.VerpakkingLayout.VerpakkingType@option(i)@valid = DATA.Kenmerken.VerpakkingType@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@options) UI.ZijwandVerhogingInschuifElementKleur@option(i)@valid = DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ZijwandVerhogingMateriaal@options) UI.ZijwandVerhogingMateriaal@option(i)@valid = DATA.Kenmerken.ZijwandVerhogingMateriaal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ZijwandVerhogingRelingKleur@options) UI.ZijwandVerhogingRelingKleur@option(i)@valid = DATA.Kenmerken.ZijwandVerhogingRelingKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ZijwandVerhogingType@options) UI.ZijwandVerhogingType@option(i)@valid = DATA.Kenmerken.ZijwandVerhogingType@option(i)@valid; end for; Valids ;ui.bodemkleur@valids;ui.draagkracht@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.ladekleur@valids;ui.opvullijstkleur@valids;ui.productiewijze@valids;ui.rughoogte@valids;ui.rugwandmateriaal@valids;ui.toepassing@valids;ui.uitsparingdata.uitsparingaantal@valids;ui.verpakkinglayout.verpakkingtype@valids;ui.zijwandverhoginginschuifelementkleur@valids;ui.zijwandverhogingmateriaal@valids;ui.zijwandverhogingrelingkleur@valids;ui.zijwandverhogingtype@valids; true local string MatKleur = ""; for i = 1 to len(DATA.Kenmerken.MatKleur@options) MatKleur = DATA.Kenmerken.MatKleur@option(i)@id; for j = 1 to len(UI.MatAntislipKleur@options) if (MatKleur == UI.MatAntislipKleur@option(j)@id) then UI.MatAntislipKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.MatAntislipFiberKleur@options) if (MatKleur == UI.MatAntislipFiberKleur@option(j)@id) then UI.MatAntislipFiberKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.MatAntislipFlockKleur@options) if (MatKleur == UI.MatAntislipFlockKleur@option(j)@id) then UI.MatAntislipFlockKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.MatVinylFiberglassKleur@options) if (MatKleur == UI.MatVinylFiberglassKleur@option(j)@id) then UI.MatVinylFiberglassKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; end for; for i = 1 to len(DATA.Kenmerken.MatMateriaal@options) UI.MatMateriaal@option(i)@valid = DATA.Kenmerken.MatMateriaal@option(i)@valid; end for; /*for i = 1 to len(DATA.Kenmerken.MatMateriaal@options) UI.MatMateriaal@option(i)@valid = DATA.Kenmerken.MatMateriaal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.MatKleur@options) local string _OptionId = DATA.Kenmerken.MatKleur@option(i)@id; local boolean _OptionValid = DATA.Kenmerken.MatKleur@option(i)@valid; UI.MatAntislipKleur@option( _OptionId )@valid = _OptionValid; UI.MatAntislipFiberKleur@option( _OptionId )@valid = _OptionValid; UI.MatAntislipFlockKleur@option( _OptionId )@valid = _OptionValid; UI.MatVinylFiberglassKleur@option( _OptionId )@valid = _OptionValid; end for;*/ Valids - Mat ;ui.matmateriaal@valids; (UI.Toepassing@default <> DATA.Kenmerken.Toepassing) or (UI.UitsparingData.UitsparingAantal@default <> DATA.Kenmerken.UitsparingData.UitsparingAantal) local string _Path = "./vanhoecke/popup/image-holder.html?url=images/inbouwhoogte/"; local string _Language = UCase(GetArg("language")); local string _Extension = ".png"; local string _AfbeeldingCode = DATA.Kenmerken.Variant + "_" + DATA.Kenmerken.Toepassing; if (UI.Toepassing in {"SY2"; "SY3"}) then _AfbeeldingCode = _AfbeeldingCode + "_" + DATA.Kenmerken.UitsparingData.UitsparingAantal; end if; local string _Url = _Path + _AfbeeldingCode + "_" + _Language + _Extension; local string _OptionToSelect = UI.InbouwHoogte; for i = 1 to len(UI.InbouwHoogte@options) UI.InbouwHoogte = UI.InbouwHoogte@option(i)@id; UI.InbouwHoogte.Url = _Url; end for; UI.InbouwHoogte@default = _OptionToSelect; if (_OptionToSelect == "") then UI.InbouwHoogte = "" end if; Popup InbouwHoogte ;ui.inbouwhoogte@default;ui.inbouwhoogte@value; true local string _WarningText = GetLocalizedLabel("VerpakkingTypeLabel"); local string _AantalStuks = switch DATA.Kenmerken.VerpakkingType case "Probox": "4" case "Procom": "10" else "???" end switch; UI.VerpakkingTypeLabel@default = Replace(_WarningText ; "{1}"; _AantalStuks); UI.VerpakkingTypeLabel@visible = (DATA.Kenmerken.VerpakkingType in {"Probox", "Procom"} ); Message Probox/Procom ;ui.verpakkingtypelabel@default;ui.verpakkingtypelabel@visible; (UI.VerpakkingLayout.VerpakkingType@default <> DATA.Kenmerken.VerpakkingType) and (CONFIG.Settings.PersonalityId == "1") local string _VerpakkingType = UI.VerpakkingLayout.VerpakkingType; local string _FlagVerpakkingOnderdelen = switch _VerpakkingType case "Probox": CONFIG.Settings.VerpakkingProboxOnderdelen case "Procom": CONFIG.Settings.VerpakkingProcomOnderdelen case "VHoss": CONFIG.Settings.VerpakkingVHossOnderdelen else "" end switch if (_FlagVerpakkingOnderdelen == "") then _FlagVerpakkingOnderdelen = "DefaultMet"; end if; local boolean _IsChecked = (_FlagVerpakkingOnderdelen in {"DefaultZonder"; "VerplichtZonder"}); local boolean _IsEnabled = not(_FlagVerpakkingOnderdelen == "VerplichtZonder"); local boolean _Result; index i of UI.NietMeeleveren _Result = SetValue("DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.NietMeeleveren(i).Id; Cstr(_IsChecked)); UI.NietMeeleveren(i).IsSelected@enabled = _IsEnabled; end index; Default en enabled - NietMeeleveren ; true UI.Lijn.Aantal@default = DATA.Lijn.Aantal; UI.Lijn.Referentie@default = DATA.Lijn.Referentie; UI.CorpusBreedte@default = DATA.Kenmerken.CorpusBreedte; UI.CorpusWanddikte@default = DATA.Kenmerken.CorpusWanddikte; UI.Draagkracht@default = DATA.Kenmerken.Draagkracht; UI.DwarsverdelingAantal@default = DATA.Kenmerken.DwarsverdelingAantal; UI.FrontBevestiging@default = DATA.Kenmerken.FrontBevestiging; UI.FrontOndersteuningType@default = DATA.Kenmerken.FrontOndersteuningType; UI.FrontStabilisatorAantal@default = DATA.Kenmerken.FrontStabilisatorAantal; UI.GeleiderTechnologie@default = DATA.Kenmerken.GeleiderTechnologie; UI.GreepEnMeenemer@default = DATA.Kenmerken.GreepEnMeenemer; UI.HangmapBoringAantal@default = DATA.Kenmerken.HangmapBoringAantal; UI.HeeftAfwijkendeRugHoogte@default = DATA.Kenmerken.HeeftAfwijkendeRugHoogte; UI.InbouwHoogte@default = DATA.Kenmerken.InbouwHoogte; UI.HeeftOpvullijstLinks@default = DATA.Kenmerken.HeeftOpvullijstLinks; UI.HeeftOpvullijstRechts@default = DATA.Kenmerken.HeeftOpvullijstRechts; UI.HeeftZijstabilisering@default = DATA.Kenmerken.HeeftZijstabilisering; UI.InterneBreedte@default = DATA.BerekendeWaarden.InterneBreedte; UI.IsBinnenbreedte@default = DATA.Kenmerken.IsBinnenbreedte; UI.IsBinnenlade@default = DATA.Kenmerken.IsBinnenlade; UI.LadeDiepte@default = DATA.Kenmerken.LadeDiepte; UI.OpvullijstDikte@default = DATA.BerekendeWaarden.OpvullijstDikte; UI.ProductieWijze@default = DATA.Kenmerken.ProductieWijze; UI.RugHoogte@default = DATA.Kenmerken.RugHoogte; UI.RugwandMateriaal@default = DATA.Kenmerken.RugwandMateriaal; UI.Toepassing@default = DATA.Kenmerken.Toepassing; UI.UitsparingData.X.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.X.Breedte; UI.UitsparingData.X.Hoogte@default = DATA.Kenmerken.UitsparingData.X.Hoogte; UI.UitsparingData.X.Materiaal@default = DATA.Kenmerken.UitsparingData.X.Materiaal; UI.UitsparingData.M.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.M.Breedte; UI.UitsparingData.M.Hoogte@default = DATA.Kenmerken.UitsparingData.M.Hoogte; UI.UitsparingData.M.Materiaal@default = DATA.Kenmerken.UitsparingData.M.Materiaal; UI.UitsparingData.Y.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.Y.Breedte; UI.UitsparingData.Y.Hoogte@default = DATA.Kenmerken.UitsparingData.Y.Hoogte; UI.UitsparingData.Y.Materiaal@default = DATA.Kenmerken.UitsparingData.Y.Materiaal; UI.UitsparingData.Z1.BreedteUitsparing@default = DATA.Kenmerken.UitsparingData.Z1.Breedte; UI.UitsparingData.Z1.Diepte@default = DATA.Kenmerken.UitsparingData.Z1.Diepte; UI.UitsparingData.Z1.Hoogte@default = DATA.Kenmerken.UitsparingData.Z1.Hoogte; UI.UitsparingData.Z1.Materiaal@default = DATA.Kenmerken.UitsparingData.Z1.Materiaal; UI.UitsparingData.Z1.Vorm@default = DATA.Kenmerken.UitsparingData.Z1.Vorm; UI.UitsparingData.Z2.BreedteUitsparing@default = DATA.Kenmerken.UitsparingData.Z2.Breedte; UI.UitsparingData.Z2.Diepte@default = DATA.Kenmerken.UitsparingData.Z2.Diepte; UI.UitsparingData.Z2.Hoogte@default = DATA.Kenmerken.UitsparingData.Z2.Hoogte; UI.UitsparingData.Z2.Materiaal@default = DATA.Kenmerken.UitsparingData.Z2.Materiaal; UI.UitsparingData.Z2.Vorm@default = DATA.Kenmerken.UitsparingData.Z2.Vorm; UI.UitsparingData.UitsparingAantal@default = DATA.Kenmerken.UitsparingData.UitsparingAantal; UI.VerpakkingLayout.VerpakkingType@default = DATA.Kenmerken.VerpakkingType; UI.ZijwandVerhogingMateriaal@default = DATA.Kenmerken.ZijwandVerhogingMateriaal; UI.ZijwandVerhogingInschuifElementKleur@default = DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur; // Niet meeleveren index i of UI.NietMeeleveren local boolean _IsChecked = cbool(Eval("DATA.Kenmerken.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; Values ;ui.lijn.aantal@default;ui.lijn.referentie@default;ui.corpusbreedte@default;ui.corpuswanddikte@default;ui.draagkracht@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.inbouwhoogte@default;ui.heeftopvullijstlinks@default;ui.heeftopvullijstrechts@default;ui.heeftzijstabilisering@default;ui.internebreedte@default;ui.isbinnenbreedte@default;ui.isbinnenlade@default;ui.ladediepte@default;ui.opvullijstdikte@default;ui.productiewijze@default;ui.rughoogte@default;ui.rugwandmateriaal@default;ui.toepassing@default;ui.uitsparingdata.x.breedterugdeel@default;ui.uitsparingdata.x.hoogte@default;ui.uitsparingdata.x.materiaal@default;ui.uitsparingdata.m.breedterugdeel@default;ui.uitsparingdata.m.hoogte@default;ui.uitsparingdata.m.materiaal@default;ui.uitsparingdata.y.breedterugdeel@default;ui.uitsparingdata.y.hoogte@default;ui.uitsparingdata.y.materiaal@default;ui.uitsparingdata.z1.breedteuitsparing@default;ui.uitsparingdata.z1.diepte@default;ui.uitsparingdata.z1.hoogte@default;ui.uitsparingdata.z1.materiaal@default;ui.uitsparingdata.z1.vorm@default;ui.uitsparingdata.z2.breedteuitsparing@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.verpakkinglayout.verpakkingtype@default;ui.zijwandverhogingmateriaal@default;ui.zijwandverhoginginschuifelementkleur@default; true UI.MatMateriaal@default = DATA.Kenmerken.MatMateriaal; UI.HeeftMat@default = (UI.MatMateriaal <> ""); UI.MatVinylFiberglassKleur@default = ""; UI.MatAntislipKleur@default = ""; UI.MatAntislipFiberKleur@default = ""; UI.MatAntislipFlockKleur@default = ""; switch UI.MatMateriaal case "CF": UI.MatVinylFiberglassKleur@default = DATA.Kenmerken.MatKleur case "AS": UI.MatAntislipKleur@default = DATA.Kenmerken.MatKleur case "AF": UI.MatAntislipFiberKleur@default = DATA.Kenmerken.MatKleur case "AZ": UI.MatAntislipFlockKleur@default = DATA.Kenmerken.MatKleur end switch; Values - Mat ;ui.matmateriaal@default;ui.heeftmat@default;ui.matvinylfiberglasskleur@default;ui.matantislipkleur@default;ui.matantislipfiberkleur@default;ui.matantislipflockkleur@default; DATA.Kenmerken.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.Kenmerken.BodemKleur) then OptionToSelect = UI.BodemKleur; end if; end for; UI.BodemKleur@default = OptionToSelect; Values - BodemKleur ;ui.bodemkleur@default; DATA.Kenmerken.LadeDesign <> UI.LadeDesign.Value // Niet meer loopen over de UI-waarden; dit kenmerk is NOT visible, en mogelijk daarom gaf dit een fout. /* 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.Kenmerken.LadeDesign) then OptionToSelect = UI.LadeDesign; end if; end for; UI.LadeDesign@default = OptionToSelect; */ Values - LadeDesign ; DATA.Kenmerken.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.Kenmerken.LadeKleur) then OptionToSelect = UI.LadeKleur; end if; end for; UI.LadeKleur@default = OptionToSelect; Values - LadeKleur ;ui.ladekleur@default; DATA.Kenmerken.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.Kenmerken.OpvullijstKleur) then OptionToSelect = UI.OpvullijstKleur; end if; end for; UI.OpvullijstKleur@default = OptionToSelect; Values - OpvullijstKleur ;ui.opvullijstkleur@default; DATA.Kenmerken.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.Kenmerken.ZijwandVerhogingRelingKleur) then OptionToSelect = UI.ZijwandVerhogingRelingKleur; end if; end for; UI.ZijwandVerhogingRelingKleur@default = OptionToSelect; Values - ZijwandVerhogingRelingKleur ;ui.zijwandverhogingrelingkleur@default; DATA.Kenmerken.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.Kenmerken.ZijwandVerhogingType) then OptionToSelect = UI.ZijwandVerhogingType; end if; end for; UI.ZijwandVerhogingType@default = OptionToSelect; Values - ZijwandVerhogingType ;ui.zijwandverhogingtype@default; true local boolean HeeftOpvullijst = (DATA.Kenmerken.Toepassing == "B"); DATA.Kenmerken.HeeftOpvullijstLinks@default = HeeftOpvullijst; DATA.Kenmerken.HeeftOpvullijstRechts@default = HeeftOpvullijst; // Resetten? // alleen indien vorige waarde Burobox en indien opvullijst(en) niet expliciet gekozen ? Opvullijsten aanvinken wanneer Burobox gekozen wordt :-P ;data.kenmerken.heeftopvullijstlinks@default;data.kenmerken.heeftopvullijstrechts@default; true local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SP2"; "SY2"; "SY3"}); local boolean _HeeftDubbeleUitsparing = (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); UI.UitsparingData@visible = _HeeftUitsparingData; UI.UitsparingData.UitsparingAantal@mandatory = _HeeftUitsparingData; UI.UitsparingData.X@visible = _HeeftUitsparingData; UI.UitsparingData.X.BreedteRugdeel@mandatory = _HeeftUitsparingData; UI.UitsparingData.Z1@visible = _HeeftUitsparingData; UI.UitsparingData.Z1.BreedteUitsparing@mandatory = _HeeftUitsparingData; //UI.UitsparingData.Uitsparing_LijnM@visible = _HeeftDubbeleUitsparing; UI.UitsparingData.M@visible = _HeeftDubbeleUitsparing; UI.UitsparingData.M.BreedteRugdeel@mandatory = _HeeftDubbeleUitsparing; //UI.UitsparingData.Uitsparing_LijnZ2@visible = _HeeftDubbeleUitsparing; UI.UitsparingData.Z2@visible = _HeeftDubbeleUitsparing; UI.UitsparingData.Z2.BreedteUitsparing@mandatory = _HeeftDubbeleUitsparing; UI.UitsparingData.Y@visible = _HeeftUitsparingData; UI.UitsparingData.Y.BreedteRugdeel@mandatory = _HeeftUitsparingData; UI.UitsparingData.Uitsparing_LijnX@visible = false; UI.UitsparingData.Uitsparing_LijnZ1@visible = false; UI.UitsparingData.Uitsparing_LijnM@visible = false; UI.UitsparingData.Uitsparing_LijnZ2@visible = false; UI.UitsparingData.Uitsparing_LijnY@visible = false; Visible en mandatory - UitsparingData Aantal en Breedte ;ui.uitsparingdata@visible;ui.uitsparingdata.uitsparingaantal@mandatory;ui.uitsparingdata.x@visible;ui.uitsparingdata.x.breedterugdeel@mandatory;ui.uitsparingdata.z1@visible;ui.uitsparingdata.z1.breedteuitsparing@mandatory;ui.uitsparingdata.m@visible;ui.uitsparingdata.m.breedterugdeel@mandatory;ui.uitsparingdata.z2@visible;ui.uitsparingdata.z2.breedteuitsparing@mandatory;ui.uitsparingdata.y@visible;ui.uitsparingdata.y.breedterugdeel@mandatory;ui.uitsparingdata.uitsparing_lijnx@visible;ui.uitsparingdata.uitsparing_lijnz1@visible;ui.uitsparingdata.uitsparing_lijnm@visible;ui.uitsparingdata.uitsparing_lijnz2@visible;ui.uitsparingdata.uitsparing_lijny@visible; true local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing == "SP2"); local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing in {"SY2"; "SY3"}); local boolean _HeeftDubbeleUitsparing = (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); if (Config.InputMode == "CreateConfig") then UI.UitsparingData.X.CodeRugdeel@mandatory = false; UI.UitsparingData.M.CodeRugdeel@mandatory = false; UI.UitsparingData.Y.CodeRugdeel@mandatory = false; UI.UitsparingData.Z1.CodeUitsparing@mandatory = false; UI.UitsparingData.Z2.CodeUitsparing@mandatory = false; UI.UitsparingData.SpoelbakCodeXY@mandatory = false; else UI.UitsparingData.X.CodeRugdeel@visible = false; // _IsSpoelbaklade; UI.UitsparingData.X.CodeRugdeel@mandatory = false; // _IsSpoelbaklade; UI.UitsparingData.Z1.CodeUitsparing@visible = _IsSifonlade; UI.UitsparingData.Z1.CodeUitsparing@mandatory = _IsSifonlade; UI.UitsparingData.M.CodeRugdeel@visible = false; UI.UitsparingData.M.CodeRugdeel@mandatory = _HeeftDubbeleUitsparing; UI.UitsparingData.Z2.CodeUitsparing@visible = (_HeeftDubbeleUitsparing and _IsSifonlade); UI.UitsparingData.Z2.CodeUitsparing@mandatory = (_HeeftDubbeleUitsparing and _IsSifonlade); UI.UitsparingData.Y.CodeRugdeel@visible = false; // _IsSpoelbaklade; UI.UitsparingData.Y.CodeRugdeel@mandatory = false; // _IsSpoelbaklade; end if; // Placeholders om de uitlijning te behouden :-P UI.UitsparingData.X.CodePlaceholder@visible = not(UI.UitsparingData.X.CodeRugdeel@visible); UI.UitsparingData.Z1.CodePlaceholder@visible = not(UI.UitsparingData.Z1.CodeUitsparing@visible); UI.UitsparingData.M.CodePlaceholder@visible = not(UI.UitsparingData.M.CodeRugdeel@visible); UI.UitsparingData.Z2.CodePlaceholder@visible = not(UI.UitsparingData.Z2.CodeUitsparing@visible); UI.UitsparingData.Y.CodePlaceholder@visible = not(UI.UitsparingData.Y.CodeRugdeel@visible); Visible en mandatory - UitsparingData Code ;ui.uitsparingdata.x.coderugdeel@mandatory;ui.uitsparingdata.m.coderugdeel@mandatory;ui.uitsparingdata.y.coderugdeel@mandatory;ui.uitsparingdata.z1.codeuitsparing@mandatory;ui.uitsparingdata.z2.codeuitsparing@mandatory;ui.uitsparingdata.spoelbakcodexy@mandatory;ui.uitsparingdata.x.codeplaceholder@visible;ui.uitsparingdata.z1.codeplaceholder@visible;ui.uitsparingdata.m.codeplaceholder@visible;ui.uitsparingdata.z2.codeplaceholder@visible;ui.uitsparingdata.y.codeplaceholder@visible; (Config.InputMode <> "CreateConfig") local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing == "SP2"); UI.UitsparingData.SpoelbakCodeXY@visible = _IsSpoelbaklade; UI.UitsparingData.SpoelbakCodeXY@mandatory = _IsSpoelbaklade; UI.UitsparingData.UitsparingAantal@visible = not(_IsSpoelbaklade); // UI.UitsparingData.UitsparingAantal@default = UI.UitsparingData.UitsparingAantal; if _IsSpoelbaklade then UI.UitsparingData.UitsparingAantal = "Enkel"; end if; Visible en mandatory - UitsparingData Speciaal voor Spoelbak ;ui.uitsparingdata.spoelbakcodexy@visible;ui.uitsparingdata.spoelbakcodexy@mandatory;ui.uitsparingdata.uitsparingaantal@visible;ui.uitsparingdata.uitsparingaantal@value; true local string _UitsparingOpMaat = "SP2_Recht_M_Dx_BM"; local string _RugdeelOpMaat = "SY2_M_BM"; // Enige beschikbare mogelijkheid voor de gekozen toepassing (OpMaat) zullen we niet zichtbaar maken. UI.UitsparingData.Z1.CodeUitsparing@option(_UitsparingOpMaat)@visible = false; UI.UitsparingData.Z2.CodeUitsparing@option(_UitsparingOpMaat)@visible = false; UI.UitsparingData.X.CodeRugdeel@option(_RugdeelOpMaat)@visible = false; UI.UitsparingData.Y.CodeRugdeel@option(_RugdeelOpMaat)@visible = false; // Switch tussen de opties voor sifon Type 2 en Type 3 : local boolean _IsSifonType2 = (DATA.Kenmerken.Toepassing == "SY2"); local boolean _IsSifonType3 = (DATA.Kenmerken.Toepassing == "SY3"); UI.UitsparingData.Z1.CodeUitsparing@option("SY2_Recht_M_Dx_BM")@visible = (_IsSifonType2); UI.UitsparingData.Z2.CodeUitsparing@option("SY2_Recht_M_Dx_BM")@visible = (_IsSifonType2); UI.UitsparingData.Z1.CodeUitsparing@option("SY3_Recht_M_D240_B160")@visible = (_IsSifonType3); UI.UitsparingData.Z1.CodeUitsparing@option("SY3_Recht_M_D240_B300")@visible = false ; // (_IsSifonType3); UI.UitsparingData.Z2.CodeUitsparing@option("SY3_Recht_M_D240_B160")@visible = (_IsSifonType3); UI.UitsparingData.Z2.CodeUitsparing@option("SY3_Recht_M_D240_B300")@visible = false ; // (_IsSifonType3); Visible Opties Spoelbak/Sifon ;ui.uitsparingdata.z1.codeuitsparing@options;ui.uitsparingdata.z2.codeuitsparing@options;ui.uitsparingdata.x.coderugdeel@options;ui.uitsparingdata.y.coderugdeel@options; (DATA.Kenmerken.Toepassing == "SP2") local string _RugdeelBreed = "SP2_M_B197"; local string _UitsparingOpMaat = "SP2_Recht_M_Dx_BM"; if (Config.InputMode <> "CreateConfig") and (Config.InputMode <> "Edit") and (UI.UitsparingData.SpoelbakCodeXY == "") then UI.UitsparingData.SpoelbakCodeXY@default = _RugdeelBreed; end if; if (UI.UitsparingData.Z1.CodeUitsparing <> _UitsparingOpMaat) then UI.UitsparingData.Z1.CodeUitsparing = _UitsparingOpMaat; UI.UitsparingData.Z1.CodeUitsparing@default = UI.UitsparingData.Z1.CodeUitsparing; end if; Defaults voor Spoelbaklade ;ui.uitsparingdata.spoelbakcodexy@default;ui.uitsparingdata.z1.codeuitsparing@value;ui.uitsparingdata.z1.codeuitsparing@default; (DATA.Kenmerken.Toepassing in {"SY2"; "SY3"}) local string _RugdeelOpMaat = "SY2_M_BM"; local string _UitsparingSmal = "SY3_Recht_M_D240_B160"; // Sifon type 3 local string _UitsparingOpMaat = "SY2_Recht_M_Dx_BM"; // Sifon type 2 if (UI.UitsparingData.UitsparingAantal == "") then UI.UitsparingData.UitsparingAantal@default = "Enkel"; end if; if (UI.UitsparingData.X.CodeRugdeel <> _RugdeelOpMaat) then UI.UitsparingData.X.CodeRugdeel@default = _RugdeelOpMaat; end if; if (UI.UitsparingData.M.CodeRugdeel <> _RugdeelOpMaat) then UI.UitsparingData.M.CodeRugdeel@default = _RugdeelOpMaat; end if; if (UI.UitsparingData.Y.CodeRugdeel <> _RugdeelOpMaat) then UI.UitsparingData.Y.CodeRugdeel@default = _RugdeelOpMaat; end if; local string _NieuweDefaultCode = ""; local boolean _DefaultCodeZetten = (Config.InputMode <> "CreateConfig"); if _DefaultCodeZetten and (Config.InputMode == "Edit" and UI.UitsparingData.Z1.CodeUitsparing == "") then _DefaultCodeZetten = false; end if; if _DefaultCodeZetten then if (DATA.Kenmerken.Toepassing == "SY2") and (mid(UI.UitsparingData.Z1.CodeUitsparing; 1; 4) <> "SY2_") then _NieuweDefaultCode= _UitsparingOpMaat; end if; if (DATA.Kenmerken.Toepassing == "SY3") and (mid(UI.UitsparingData.Z1.CodeUitsparing; 1; 4) <> "SY3_") then _NieuweDefaultCode= _UitsparingSmal; end if; if (_NieuweDefaultCode <> "") then UI.UitsparingData.Z1.CodeUitsparing = _NieuweDefaultCode; UI.UitsparingData.Z1.CodeUitsparing@default = _NieuweDefaultCode; UI.UitsparingData.Z2.CodeUitsparing@default = _NieuweDefaultCode; end if; end if; Defaults voor Sifonlade ;ui.uitsparingdata.uitsparingaantal@default;ui.uitsparingdata.x.coderugdeel@default;ui.uitsparingdata.m.coderugdeel@default;ui.uitsparingdata.y.coderugdeel@default; (DATA.Kenmerken.Toepassing == "SP2") and (UI.UitsparingData.SpoelbakCodeXY <> "") UI.UitsparingData.X.CodeRugdeel@default = UI.UitsparingData.SpoelbakCodeXY; // Default Set forceren :-P UI.UitsparingData.X.CodeRugdeel = UI.UitsparingData.SpoelbakCodeXY; UI.UitsparingData.Y.CodeRugdeel@default = UI.UitsparingData.SpoelbakCodeXY; // Default Set forceren :-P UI.UitsparingData.Y.CodeRugdeel = UI.UitsparingData.SpoelbakCodeXY; CodeX en CodeY gelijk zijn aan SpoelbakCodeXY - bij Spoelbaklade ;ui.uitsparingdata.x.coderugdeel@default;ui.uitsparingdata.x.coderugdeel@value;ui.uitsparingdata.y.coderugdeel@default;ui.uitsparingdata.y.coderugdeel@value; (DATA.Kenmerken.Toepassing == "SY2") and (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") local string _UitsparingOpMaat = "SY2_Recht_M_Dx_BM"; local boolean _IsCodeZ1Gewijzigd = (UI.UitsparingData.Z1.CodeUitsparing@default <> UI.UitsparingData.Z1.CodeUitsparing); local boolean _IsCodeZ2Gewijzigd = (UI.UitsparingData.Z2.CodeUitsparing@default <> UI.UitsparingData.Z2.CodeUitsparing); if (UI.UitsparingData.Z1.CodeUitsparing == _UitsparingOpMaat) or (UI.UitsparingData.Z2.CodeUitsparing == _UitsparingOpMaat) then if (_IsCodeZ1Gewijzigd) then UI.UitsparingData.Z2.CodeUitsparing = UI.UitsparingData.Z1.CodeUitsparing; end if; if (_IsCodeZ2Gewijzigd) then UI.UitsparingData.Z1.CodeUitsparing = UI.UitsparingData.Z2.CodeUitsparing; end if; end if; UI.UitsparingData.Z1.CodeUitsparing@default = UI.UitsparingData.Z1.CodeUitsparing; UI.UitsparingData.Z2.CodeUitsparing@default = UI.UitsparingData.Z2.CodeUitsparing; CodeZ1 en CodeZ2 zijn beide OpMaat of Vast - bij sifonlade type 2 ;ui.uitsparingdata.z1.codeuitsparing@default;ui.uitsparingdata.z2.codeuitsparing@default; (DATA.Kenmerken.Toepassing == "SP2") local boolean _IsRugHoogteD = (DATA.Kenmerken.InbouwHoogte == "DM") or (DATA.Kenmerken.InbouwHoogte == "DK"); local boolean _BEHAVIOR_IsSmalToegelaten = not(_IsRugHoogteD); // Nu nog niet beschikbaar voor RugHoogte "D". Hiervoor moeten we eerst de achterliggende logica nog aanpassen/controleren. local boolean _BEHAVIOR_IsSmalSaToegelaten = false; // (_IsRugHoogteD == true); --> nu ook voor Rughoogte "D" geldt: Smal-SA is uitgefaseerd. UI.UitsparingData.SpoelbakCodeXY@option("SP2_M_B147")@visible = _BEHAVIOR_IsSmalToegelaten; UI.UitsparingData.SpoelbakCodeXY@option("SP2_DM_B143")@visible = _BEHAVIOR_IsSmalSaToegelaten; Optie Smal is afhankelijk van de RugHoogte ;ui.uitsparingdata.spoelbakcodexy@options; true local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SP2"; "SY2"; "SY3"}); local boolean _HeeftDubbeleUitsparing = (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); local string _UitsparingAantal = DATA.Kenmerken.UitsparingData.UitsparingAantal; if (_UitsparingAantal == "") then _UitsparingAantal = "Enkel"; end if; local string _ImageFolder = "./images/Vanhoecke/tbx/UitsparingData/"; local string _ImageNaam = DATA.Kenmerken.Variant + "_Toepassing_" + DATA.Kenmerken.Toepassing + "_" + _UitsparingAantal + ".png"; UI.UitsparingData.Images@visible = _HeeftUitsparingData; UI.UitsparingData.Images = _ImageFolder + _ImageNaam; Visible Image - schets voor uitsparing enkel/dubbel ;ui.uitsparingdata.images@visible;ui.uitsparingdata.images@value; true local string _CodeX = UI.UitsparingData.X.CodeRugdeel; local double _VasteBreedte = 0; local boolean _DefaultBreedteOpNulZetten = (Config.InputMode == "New") and (BEHAVIOR.IsEconWeb); //RANGE.UitsparingDataBreedteX.Minimum = 0; //RANGE.UitsparingDataBreedteX.Maximum = 0; switch _CodeX case "SY2_M_BM": // enige mogelijkheid bij Sifonlade if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.X.BreedteRugdeel@default = 0; end if; UI.UitsparingData.X.Hoogte = "M"; UI.UitsparingData.X.Materiaal = "Hout"; RANGE.UitsparingDataBreedteX.Minimum = 120; RANGE.UitsparingDataBreedteX.Maximum = 999; // Kan ev correcter bepaald worden, maar biedt te weinig meerwaarde t.o.v. hoeveelheid werk om dit correct te doen :-P case "SP2_M_B147": _VasteBreedte = 147; UI.UitsparingData.X.BreedteRugdeel = _VasteBreedte; UI.UitsparingData.X.Hoogte = "M"; UI.UitsparingData.X.Materiaal = "Staal"; RANGE.UitsparingDataBreedteX.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteX.Maximum = _VasteBreedte; case "SP2_M_B197": _VasteBreedte = 197; UI.UitsparingData.X.BreedteRugdeel = _VasteBreedte; UI.UitsparingData.X.Hoogte = "M"; UI.UitsparingData.X.Materiaal = "Staal"; RANGE.UitsparingDataBreedteX.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteX.Maximum = _VasteBreedte; case "SP2_DM_B143": _VasteBreedte = 143; UI.UitsparingData.X.BreedteRugdeel = _VasteBreedte; UI.UitsparingData.X.Hoogte = "DM"; UI.UitsparingData.X.Materiaal = "Staal"; RANGE.UitsparingDataBreedteX.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteX.Maximum = _VasteBreedte; case "SP2_M_BM": if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.X.BreedteRugdeel@default = 0; end if; UI.UitsparingData.X.Hoogte = "M"; UI.UitsparingData.X.Materiaal = "Hout"; RANGE.UitsparingDataBreedteX.Minimum = 120; RANGE.UitsparingDataBreedteX.Maximum = 999; end switch; UI.UitsparingData.X.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option(UI.UitsparingData.X.Materiaal)@label; UitsparingData X invullen ;ui.uitsparingdata.x.materiaaldisplay@value; true local string _CodeZ1 = UI.UitsparingData.Z1.CodeUitsparing; local double _VasteBreedte = 0; local boolean _DefaultBreedteOpNulZetten = (Config.InputMode == "New") and (BEHAVIOR.IsEconWeb); //RANGE.UitsparingDataBreedteZ1.Minimum = 0; //RANGE.UitsparingDataBreedteZ1.Maximum = 0; UI.UitsparingData.Z1.Diepte = 0; UI.UitsparingData.Z1.Hoogte = "M"; UI.UitsparingData.Z1.Vorm = "Recht"; switch _CodeZ1 case "SP2_Recht_M_Dx_BM": // enige mogelijkheid bij Spoelbaklade if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.Z1.BreedteUitsparing@default = 0; end if; UI.UitsparingData.Z1.Materiaal = "Hout"; RANGE.UitsparingDataBreedteZ1.Minimum = 125; RANGE.UitsparingDataBreedteZ1.Maximum = 999; case "SY2_Recht_M_Dx_B150": _VasteBreedte = 150; UI.UitsparingData.Z1.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z1.Materiaal = "Staal"; RANGE.UitsparingDataBreedteZ1.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ1.Maximum = _VasteBreedte; case "SY2_Recht_M_Dx_B250": _VasteBreedte = 250; UI.UitsparingData.Z1.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z1.Materiaal = "Staal"; RANGE.UitsparingDataBreedteZ1.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ1.Maximum = _VasteBreedte; case "SY2_Recht_M_Dx_BM": if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.Z1.BreedteUitsparing@default = 0; end if; UI.UitsparingData.Z1.Materiaal = "Hout"; RANGE.UitsparingDataBreedteZ1.Minimum = 125; RANGE.UitsparingDataBreedteZ1.Maximum = 999; case "SY3_Recht_M_D240_B160": _VasteBreedte = 160; UI.UitsparingData.Z1.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z1.Materiaal = "Staal"; UI.UitsparingData.Z1.Diepte = 240; RANGE.UitsparingDataBreedteZ1.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ1.Maximum = _VasteBreedte; case "SY3_Recht_M_D240_B300": _VasteBreedte = 300; UI.UitsparingData.Z1.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z1.Materiaal = "Staal"; UI.UitsparingData.Z1.Diepte = 240; RANGE.UitsparingDataBreedteZ1.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ1.Maximum = _VasteBreedte; end switch; UI.UitsparingData.Z1.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option(UI.UitsparingData.Z1.Materiaal)@label; UitsparingData Z1 invullen ;ui.uitsparingdata.z1.diepte@value;ui.uitsparingdata.z1.hoogte@value;ui.uitsparingdata.z1.vorm@value;ui.uitsparingdata.z1.materiaaldisplay@value; true local string _CodeM = UI.UitsparingData.M.CodeRugdeel; local boolean _DefaultBreedteOpNulZetten = (Config.InputMode == "New") and (BEHAVIOR.IsEconWeb); //RANGE.UitsparingDataBreedteM.Minimum = 0; //RANGE.UitsparingDataBreedteM.Maximum = 0; switch _CodeM case "SY2_M_BM": // enige mogelijkheid bij Sifonlade if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.M.BreedteRugdeel@default = 0; end if; UI.UitsparingData.M.Hoogte = "M"; UI.UitsparingData.M.Materiaal = "Hout"; RANGE.UitsparingDataBreedteM.Minimum = 120; RANGE.UitsparingDataBreedteM.Maximum = 999; // Kan ev correcter bepaald worden, maar biedt te weinig meerwaarde t.o.v. hoeveelheid werk om dit correct te doen :-P end switch; UI.UitsparingData.M.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option(UI.UitsparingData.M.Materiaal)@label; UitsparingData M invullen ;ui.uitsparingdata.m.materiaaldisplay@value; true local string _CodeZ2 = UI.UitsparingData.Z2.CodeUitsparing; local double _VasteBreedte = 0; local boolean _DefaultBreedteOpNulZetten = (Config.InputMode == "New") and (BEHAVIOR.IsEconWeb); //RANGE.UitsparingDataBreedteZ2.Minimum = 0; //RANGE.UitsparingDataBreedteZ2.Maximum = 0; UI.UitsparingData.Z2.Diepte = 0; UI.UitsparingData.Z2.Hoogte = "M"; UI.UitsparingData.Z2.Vorm = "Recht"; switch _CodeZ2 case "SP2_Recht_M_Dx_BM": // enige (fictieve) mogelijkheid bij Spoelbaklade if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.Z2.BreedteUitsparing@default = 0; end if; UI.UitsparingData.Z2.Materiaal = "Hout"; RANGE.UitsparingDataBreedteZ2.Minimum = 125; RANGE.UitsparingDataBreedteZ2.Maximum = 999; case "SY2_Recht_M_Dx_B150": _VasteBreedte = 150; UI.UitsparingData.Z2.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z2.Materiaal = "Staal"; RANGE.UitsparingDataBreedteZ2.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ2.Maximum = _VasteBreedte; case "SY2_Recht_M_Dx_B250": _VasteBreedte = 250; UI.UitsparingData.Z2.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z2.Materiaal = "Staal"; RANGE.UitsparingDataBreedteZ2.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ2.Maximum = _VasteBreedte; case "SY2_Recht_M_Dx_BM": if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.Z2.BreedteUitsparing@default = 0; end if; UI.UitsparingData.Z2.Materiaal = "Hout"; RANGE.UitsparingDataBreedteZ2.Minimum = 125; RANGE.UitsparingDataBreedteZ2.Maximum = 999; case "SY3_Recht_M_D240_B160": _VasteBreedte = 160; UI.UitsparingData.Z2.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z2.Materiaal = "Staal"; UI.UitsparingData.Z2.Diepte = 240; RANGE.UitsparingDataBreedteZ2.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ2.Maximum = _VasteBreedte; case "SY3_Recht_M_D240_B300": _VasteBreedte = 300; UI.UitsparingData.Z2.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z2.Materiaal = "Staal"; UI.UitsparingData.Z2.Diepte = 240; RANGE.UitsparingDataBreedteZ2.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ2.Maximum = _VasteBreedte; end switch; UI.UitsparingData.Z2.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option(UI.UitsparingData.Z2.Materiaal)@label; UitsparingData Z2 invullen ;ui.uitsparingdata.z2.diepte@value;ui.uitsparingdata.z2.hoogte@value;ui.uitsparingdata.z2.vorm@value;ui.uitsparingdata.z2.materiaaldisplay@value; true local string _CodeY = UI.UitsparingData.Y.CodeRugdeel; local double _VasteBreedte = 0; local boolean _DefaultBreedteOpNulZetten = (Config.InputMode == "New") and (BEHAVIOR.IsEconWeb); //RANGE.UitsparingDataBreedteY.Minimum = 0; //RANGE.UitsparingDataBreedteY.Maximum = 0; switch _CodeY case "SY2_M_BM": // enige mogelijkheid bij Sifonlade if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.Y.BreedteRugdeel@default = 0; end if; UI.UitsparingData.Y.Hoogte = "M"; UI.UitsparingData.Y.Materiaal = "Hout"; RANGE.UitsparingDataBreedteY.Minimum = 120; RANGE.UitsparingDataBreedteY.Maximum = 999; // Kan ev correcter bepaald worden, maar biedt te weinig meerwaarde t.o.v. hoeveelheid werk om dit correct te doen :-P case "SP2_M_B147": _VasteBreedte = 147; UI.UitsparingData.Y.BreedteRugdeel = _VasteBreedte; UI.UitsparingData.Y.Hoogte = "M"; UI.UitsparingData.Y.Materiaal = "Staal"; RANGE.UitsparingDataBreedteY.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteY.Maximum = _VasteBreedte; case "SP2_M_B197": _VasteBreedte = 197; UI.UitsparingData.Y.BreedteRugdeel = _VasteBreedte; UI.UitsparingData.Y.Hoogte = "M"; UI.UitsparingData.Y.Materiaal = "Staal"; RANGE.UitsparingDataBreedteY.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteY.Maximum = _VasteBreedte; case "SP2_DM_B143": _VasteBreedte = 143; UI.UitsparingData.Y.BreedteRugdeel = _VasteBreedte; UI.UitsparingData.Y.Hoogte = "DM"; UI.UitsparingData.Y.Materiaal = "Staal"; RANGE.UitsparingDataBreedteY.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteY.Maximum = _VasteBreedte; case "SP2_M_BM": if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.Y.BreedteRugdeel@default = 0; end if; UI.UitsparingData.Y.Hoogte = "M"; UI.UitsparingData.Y.Materiaal = "Hout"; RANGE.UitsparingDataBreedteY.Minimum = 120; RANGE.UitsparingDataBreedteY.Maximum = 999; end switch; UI.UitsparingData.Y.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option(UI.UitsparingData.Y.Materiaal)@label; UitsparingData Y invullen ;ui.uitsparingdata.y.materiaaldisplay@value; (RANGE.UitsparingDataBreedteX.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteX.Maximum == RANGE.UitsparingDataBreedteX.Minimum); UI.UitsparingData.X.BreedteRugdeel@enabled = not(_IsVasteBreedte); UI.UitsparingData.X.BreedteRugdeel@style.controlclass = if _IsVasteBreedte then "vh-INPUTuitsparingDataDISABLED" else "vh-INPUTuitsparingData" end if; Breedte X wordt read-only indien Range.Max = Range.Min ;ui.uitsparingdata.x.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteM.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteM.Maximum == RANGE.UitsparingDataBreedteM.Minimum); UI.UitsparingData.M.BreedteRugdeel@enabled = not(_IsVasteBreedte); UI.UitsparingData.M.BreedteRugdeel@style.controlclass = if _IsVasteBreedte then "vh-INPUTuitsparingDataDISABLED" else "vh-INPUTuitsparingData" end if; Breedte M wordt read-only indien Range.Max = Range.Min ;ui.uitsparingdata.m.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteY.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteY.Maximum == RANGE.UitsparingDataBreedteY.Minimum); UI.UitsparingData.Y.BreedteRugdeel@enabled = not(_IsVasteBreedte); UI.UitsparingData.Y.BreedteRugdeel@style.controlclass = if _IsVasteBreedte then "vh-INPUTuitsparingDataDISABLED" else "vh-INPUTuitsparingData" end if; Breedte Y wordt read-only indien Range.Max = Range.Min ;ui.uitsparingdata.y.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteZ1.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteZ1.Maximum == RANGE.UitsparingDataBreedteZ1.Minimum); UI.UitsparingData.Z1.BreedteUitsparing@enabled = not(_IsVasteBreedte); UI.UitsparingData.Z1.BreedteUitsparing@style.controlclass = if _IsVasteBreedte then "vh-INPUTuitsparingDataDISABLED" else "vh-INPUTuitsparingData" end if; Breedte Z1 wordt read-only indien Range.Max = Range.Min ;ui.uitsparingdata.z1.breedteuitsparing@enabled; (RANGE.UitsparingDataBreedteZ2.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteZ2.Maximum == RANGE.UitsparingDataBreedteZ2.Minimum); UI.UitsparingData.Z2.BreedteUitsparing@enabled = not(_IsVasteBreedte); UI.UitsparingData.Z2.BreedteUitsparing@style.controlclass = if _IsVasteBreedte then "vh-INPUTuitsparingDataDISABLED" else "vh-INPUTuitsparingData" end if; Breedte Z2 wordt read-only indien Range.Max = Range.Min ;ui.uitsparingdata.z2.breedteuitsparing@enabled; (UI.UitsparingData@visible) and (UI.UitsparingData.UitsparingAantal == "Enkel") local double _SuggestieX = 0; local double _SuggestieY = 0; local double _SuggestieZ1 = 0; local double _BreedteX = UI.UitsparingData.X.BreedteRugdeel; local double _BreedteY = UI.UitsparingData.Y.BreedteRugdeel; local double _BreedteZ1 = UI.UitsparingData.Z1.BreedteUitsparing; local double _VerwachteBreedte = DATA.BerekendeWaarden.InterneBreedte; local boolean _AlleBreedtesIngevuld = (_BreedteX > 0) and (_BreedteY > 0) and (_BreedteZ1 > 0); local boolean _AlleBreedtesLeeg = (_BreedteX == 0) and (_BreedteY == 0) and (_BreedteZ1 == 0); local boolean _ToonGesuggereerdeWaarde = false; if ((_AlleBreedtesIngevuld) or (_AlleBreedtesLeeg)) then _ToonGesuggereerdeWaarde = false; else _ToonGesuggereerdeWaarde = (_VerwachteBreedte > 0); end if; if (_ToonGesuggereerdeWaarde) then local double _BreedteSaldo = _VerwachteBreedte - (_BreedteX + _BreedteY + _BreedteZ1); if (_BreedteZ1 > 0) then if ((_BreedteX == 0) and (_BreedteY == 0)) then _SuggestieX = Round((_BreedteSaldo / 2) ; 0.1); _SuggestieY = (_BreedteSaldo - _SuggestieX); // _SuggestieY = _SuggestieX , except when _SuggestieX is rounded. else if (_BreedteX == 0) then _SuggestieX = _BreedteSaldo; end if; if (_BreedteY == 0) then _SuggestieY = _BreedteSaldo; end if; end if; else // BreedteZ1 == 0 if ((_BreedteX > 0) and (_BreedteY > 0)) then _SuggestieZ1 = _BreedteSaldo; else if (_BreedteX == 0) then _SuggestieX = _BreedteY; _SuggestieZ1 = (_BreedteSaldo - _SuggestieX); end if; if (_BreedteY == 0) then _SuggestieY = _BreedteX; _SuggestieZ1 = (_BreedteSaldo - _SuggestieY); end if; end if; end if; end if; UI.UitsparingData.X.GesuggereerdeWaarde = _SuggestieX; UI.UitsparingData.Y.GesuggereerdeWaarde = _SuggestieY; UI.UitsparingData.Z1.GesuggereerdeWaarde = _SuggestieZ1; UI.UitsparingData.M.GesuggereerdeWaarde = 0; UI.UitsparingData.Z2.GesuggereerdeWaarde = 0; Bereken GesuggereerdeWaarden Enkele uitsparing ;ui.uitsparingdata.x.gesuggereerdewaarde@value;ui.uitsparingdata.y.gesuggereerdewaarde@value;ui.uitsparingdata.z1.gesuggereerdewaarde@value;ui.uitsparingdata.m.gesuggereerdewaarde@value;ui.uitsparingdata.z2.gesuggereerdewaarde@value; (UI.UitsparingData@visible) and (UI.UitsparingData.UitsparingAantal == "Dubbel") local double _SuggestieX = 0; local double _SuggestieM = 0; local double _SuggestieY = 0; local double _SuggestieZ1 = 0; local double _SuggestieZ2 = 0; local double _BreedteX = UI.UitsparingData.X.BreedteRugdeel; local double _BreedteM = UI.UitsparingData.M.BreedteRugdeel; local double _BreedteY = UI.UitsparingData.Y.BreedteRugdeel; local double _BreedteZ1 = UI.UitsparingData.Z1.BreedteUitsparing; local double _BreedteZ2 = UI.UitsparingData.Z2.BreedteUitsparing; local double _VerwachteBreedte = DATA.BerekendeWaarden.InterneBreedte; local boolean _AlleRugBreedtesLeeg = (_BreedteX == 0) and (_BreedteM == 0) and (_BreedteY == 0); local boolean _AlleRugBreedtesIngevuld = (_BreedteX > 0) and (_BreedteM > 0) and (_BreedteY > 0); local boolean _AlleBreedtesIngevuld = (_AlleRugBreedtesIngevuld) and (_BreedteZ1 > 0) and (_BreedteZ2 > 0); local boolean _ToonGesuggereerdeWaarde = false; if ((_AlleRugBreedtesLeeg) or (_AlleBreedtesIngevuld)) then _ToonGesuggereerdeWaarde = false; else _ToonGesuggereerdeWaarde = (_VerwachteBreedte > 0); end if; if (_ToonGesuggereerdeWaarde) then local double _BreedteSaldo = _VerwachteBreedte - (_BreedteX + _BreedteM + _BreedteY + _BreedteZ1+ _BreedteZ2); if (_AlleRugBreedtesIngevuld) then if ((_BreedteZ1 == 0) and (_BreedteZ2 == 0)) then _SuggestieZ1 = Round((_BreedteSaldo / 2) ; 0.1); _SuggestieZ2 = (_BreedteSaldo - _SuggestieZ1); // _SuggestieZ2 = _SuggestieZ1 , except when _SuggestieZ1 is rounded. else if (_BreedteZ1 == 0) then _SuggestieZ1 = _BreedteSaldo; end if; if (_BreedteZ2 == 0) then _SuggestieZ2 = _BreedteSaldo; end if; end if; else // (not _AlleRugBreedtesIngevuld) if ((_BreedteZ1 > 0) and (_BreedteZ2 > 0)) then if (_BreedteM > 0) then if ((_BreedteX == 0) and (_BreedteY == 0)) then _SuggestieX = Round((_BreedteSaldo / 2) ; 0.1); _SuggestieY = (_BreedteSaldo - _SuggestieX); else if (_BreedteX == 0) then _SuggestieX = _BreedteSaldo; end if; if (_BreedteY == 0) then _SuggestieY = _BreedteSaldo; end if; end if; else // BreedteM == 0 if ((_BreedteX > 0) and (_BreedteY > 0)) then _SuggestieM = _BreedteSaldo; else if (_BreedteX == 0) then _SuggestieX = _BreedteY; _SuggestieM = (_BreedteSaldo - _SuggestieX); end if; if (_BreedteY == 0) then _SuggestieY = _BreedteX; _SuggestieM = (_BreedteSaldo - _SuggestieY); end if; _SuggestieM = (_BreedteSaldo - _SuggestieX - _SuggestieY); end if; end if; else // Combinatie van RugBreedtes en UitsparingBreedtes niet ingevuld : TO DO _SuggestieZ1 = 0; // dummy assignment, anders eCon compiler warning :-P end if; end if; end if; UI.UitsparingData.X.GesuggereerdeWaarde = _SuggestieX; UI.UitsparingData.M.GesuggereerdeWaarde = _SuggestieM; UI.UitsparingData.Y.GesuggereerdeWaarde = _SuggestieY; UI.UitsparingData.Z1.GesuggereerdeWaarde = _SuggestieZ1; UI.UitsparingData.Z2.GesuggereerdeWaarde = _SuggestieZ2; Bereken GesuggereerdeWaarden Dubbele uitsparing ;ui.uitsparingdata.x.gesuggereerdewaarde@value;ui.uitsparingdata.m.gesuggereerdewaarde@value;ui.uitsparingdata.y.gesuggereerdewaarde@value;ui.uitsparingdata.z1.gesuggereerdewaarde@value;ui.uitsparingdata.z2.gesuggereerdewaarde@value; true local double _Breedte = 0; local boolean _HeeftDubbeleUitsparing = (UI.UitsparingData.UitsparingAantal == "Dubbel"); _Breedte = _Breedte + UI.UitsparingData.X.BreedteRugdeel + UI.UitsparingData.Z1.BreedteUitsparing + UI.UitsparingData.Y.BreedteRugdeel; if (_HeeftDubbeleUitsparing) then _Breedte = _Breedte + UI.UitsparingData.M.BreedteRugdeel + UI.UitsparingData.Z2.BreedteUitsparing; end if; UI.UitsparingData.UitsparingData_TotaleBreedte = _Breedte; Bereken Som van de UitsparingBreedtes ;ui.uitsparingdata.uitsparingdata_totalebreedte@value; true local double _VerwachteBreedte = UI.InterneBreedte; local string _InputValidation = ""; UI.UitsparingData.UitsparingData_VerwachteBreedte = _VerwachteBreedte; // opgelet: kommagetallen worden niet aanvaard bij min/max, puntgetallen wel // m.a.w. 200,5 wordt aanzien als 2005 ///// 200.5 wordt aanzien als 200.5 of 200,5 if (UI.UitsparingData@visible) then local string _strVerwachteBreedte = Replace(CStr(_VerwachteBreedte); ","; "."); // TO DO: mooier via Format(value; fmt), lukt me voorlopig niet :-/ _InputValidation = "min:" + _strVerwachteBreedte + ";max:" + _strVerwachteBreedte + ";multiplication:0.1;maxdecimals:1;"; end if; UI.UitsparingData.UitsparingData_TotaleBreedte@inputvalidation = _InputValidation; Instellen VerwachteBreedte bij Uitsparingen ;ui.uitsparingdata.uitsparingdata_verwachtebreedte@value;ui.uitsparingdata.uitsparingdata_totalebreedte@rangeset; true // indien HeeftUitsparing local boolean _IsTotBreedteOK = (UI.UitsparingData.UitsparingData_TotaleBreedte == UI.UitsparingData.UitsparingData_VerwachteBreedte); local string _CssClassname = "colorBlack"; if not (_IsTotBreedteOK) then _CssClassname = "colorRed"; end if; /* UI.UitsparingData.UitsparingData_TotaleBreedte@styleClass = _CssClassname; UI.UitsparingData.UitsparingData_VerwachteBreedte@styleClass = _CssClassname; */ UI.UitsparingData.UitsparingData_VerwachteBreedte@visible = not (_IsTotBreedteOK); Visible en formatting - VerwachteBreedte ;ui.uitsparingdata.uitsparingdata_verwachtebreedte@visible; true UI.CorpusBreedte@label = switch (UI.IsBinnenbreedte) case true: GetLocalizedLabel("CorpusBinnenbreedte") else GetLocalizedLabel("CorpusBuitenbreedte") end switch; Label CorpusBreedte ; true // Deze rule wordt getriggered wanneer één van de volgende properties wijzigt (DATA of UI) local string _Toepassing = DATA.Kenmerken.Toepassing; local boolean _IsBinnenlade = DATA.Kenmerken.IsBinnenlade; local string _ZijwandVerhogingType = DATA.Kenmerken.ZijwandVerhogingType; local string _InbouwHoogte = DATA.Kenmerken.InbouwHoogte; local string _UitsparingAantal = DATA.Kenmerken.UitsparingData.UitsparingAantal; UI.StateAfbeeldingDataBepaald = false; StateAfbeeldingDataBepaald resetten ;ui.stateafbeeldingdatabepaald@value; UI.StateAfbeeldingDataBepaald == false UI.StateAfbeeldingDataBepaald = true; // Constants local long FACTOR_TOEPASSING = 64; local long FACTOR_INBOUWHOOGTE = 32; local long FACTOR_BINNENLADE = 16; local long FACTOR_UITSPARINGAANTAL = 8; local long FACTOR_ZIJWANDVERHOGINGTYPE = 4; local string _Toepassing = DATA.Kenmerken.Toepassing; local boolean _IsBinnenlade = DATA.Kenmerken.IsBinnenlade; local string _ZijwandVerhogingType = DATA.Kenmerken.ZijwandVerhogingType; local string _InbouwHoogte = DATA.Kenmerken.InbouwHoogte; local string _UitsparingAantal = DATA.Kenmerken.UitsparingData.UitsparingAantal; local boolean _HeeftUitsparingData = (_Toepassing in {"SP2"; "SY2"; "SY3"}); // Initialisatie if _Toepassing == "" then _Toepassing = "L"; end if; if _ZijwandVerhogingType == "" then _ZijwandVerhogingType = "Zonder"; end if; if (_UitsparingAantal == "") and (_HeeftUitsparingData) then _UitsparingAantal = "Enkel"; end if; if _InbouwHoogte == "" then _InbouwHoogte = "M"; end if; // Scores berekenen local long _Score = 0; local long _ScoreVoorAfbeeldingData = 0; local long _ScoreVoorInbouwHoogte = 0; local long _BesteScoreAfbeeldingData = 0; local long _BesteScoreInbouwHoogteN = 0; local long _BesteScoreInbouwHoogteM = 0; local long _BesteScoreInbouwHoogteK = 0; local long _BesteScoreInbouwHoogteB = 0; local long _BesteScoreInbouwHoogteCM = 0; local long _BesteScoreInbouwHoogteDM = 0; local long _BesteScoreInbouwHoogteDK = 0; local boolean _AfbeeldingIsEenMatch = true; local boolean _UpdateImageInbouwHoogte = false; local boolean _IsToepassingOK = false; local string _iInbouwHoogte = ""; local string OptionToSelect = UI.AfbeeldingData; // Loop over alle afbeeldingen for i = 1 to len(UI.AfbeeldingData@options) UI.AfbeeldingData = UI.AfbeeldingData@option(i)@id; _Score = 0; _AfbeeldingIsEenMatch = true; _IsToepassingOK = (UI.AfbeeldingData.Toepassing == _Toepassing); if (_IsToepassingOK) then _Score = _Score + FACTOR_TOEPASSING; else _AfbeeldingIsEenMatch = false; end if; if (UI.AfbeeldingData.IsBinnenlade == _IsBinnenlade) then _Score = _Score + FACTOR_BINNENLADE; else _AfbeeldingIsEenMatch = false; end if; if _HeeftUitsparingData and _IsToepassingOK then if (UI.AfbeeldingData.UitsparingAantal == _UitsparingAantal) then _Score = _Score + FACTOR_UITSPARINGAANTAL; else _AfbeeldingIsEenMatch = false; end if; end if; if (UI.AfbeeldingData.ZijwandVerhogingType == _ZijwandVerhogingType) then _Score = _Score + FACTOR_ZIJWANDVERHOGINGTYPE; else _AfbeeldingIsEenMatch = false; end if; _ScoreVoorInbouwHoogte = _Score; if (UI.AfbeeldingData.InbouwHoogte == _InbouwHoogte) then _Score = _Score + FACTOR_INBOUWHOOGTE; else _AfbeeldingIsEenMatch = false; end if; _ScoreVoorAfbeeldingData = _Score; // Bepalen of InbouwHoogte image mag aangepast worden _iInbouwHoogte = UI.AfbeeldingData.InbouwHoogte; _UpdateImageInbouwHoogte = false; if (_iInbouwHoogte == "M") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteM) then _BesteScoreInbouwHoogteM = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if (_iInbouwHoogte == "N") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteN) then _BesteScoreInbouwHoogteN = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if (_iInbouwHoogte == "K") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteK) then _BesteScoreInbouwHoogteK = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if (_iInbouwHoogte == "B") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteB) then _BesteScoreInbouwHoogteB = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if (_iInbouwHoogte == "CM") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteCM) then _BesteScoreInbouwHoogteCM = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if (_iInbouwHoogte == "DM") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteDM) then _BesteScoreInbouwHoogteDM = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if (_iInbouwHoogte == "DK") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteDK) then _BesteScoreInbouwHoogteDK = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if _UpdateImageInbouwHoogte then UI.InbouwHoogte@option(_iInbouwHoogte)@label = UI.AfbeeldingData@option(i)@label; end if; // Bepalen of AfbeeldingData image mag aangepast worden if (_ScoreVoorAfbeeldingData > _BesteScoreAfbeeldingData) then _BesteScoreAfbeeldingData = _ScoreVoorAfbeeldingData; OptionToSelect = UI.AfbeeldingData; end if; end for; UI.AfbeeldingData = OptionToSelect; Scores voor AfbeeldingData ;ui.stateafbeeldingdatabepaald@value;ui.afbeeldingdata@value; true DATA.BerekendeWaarden.LadeCode = UI.AfbeeldingData.LadeCode; local string _AfbeeldingCode = "" if UI.AfbeeldingData.Value <> "" then _AfbeeldingCode = "tbx_" + UI.AfbeeldingData.Value; end if; DATA.BerekendeWaarden.AfbeeldingCode = _AfbeeldingCode ; /* Rule: AfbeeldingData Image kopieren naar Layout ===== UI.InbouwHoogteLayout.Images = "./images/Vanhoecke/tbx/AfbeeldingCode/tbx_" + UI.AfbeeldingData.Value + ".jpg"; */ Values naar LadeCode en AfbeeldingCode ;data.berekendewaarden.ladecode@value;data.berekendewaarden.afbeeldingcode@value; (DATA.Kenmerken.Toepassing in {"SY2"; "SY3"; "SP2"} ) if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then UI.UitsparingData.Z1@label = GetLocalizedLabel("Z"); else UI.UitsparingData.Z1@label = GetLocalizedLabel("Z1"); end if; Label UitsparingData Z1 ; true UI.CorpusWanddikte@mandatory = not(UI.IsBinnenbreedte); UI.CorpusWanddikte@visible = not(UI.IsBinnenbreedte); CorpusWanddikte ;ui.corpuswanddikte@mandatory;ui.corpuswanddikte@visible; true UI.RugHoogte@mandatory = UI.HeeftAfwijkendeRugHoogte; UI.RugHoogte@visible = UI.HeeftAfwijkendeRugHoogte; RugHoogte ;ui.rughoogte@mandatory;ui.rughoogte@visible; true UI.FrontBevestiging@mandatory = not(UI.IsBinnenlade); UI.FrontBevestiging@visible = not(UI.IsBinnenlade); FrontBevestiging ;ui.frontbevestiging@mandatory;ui.frontbevestiging@visible; true local boolean _HeeftFrontStabilisator = (UI.FrontOndersteuningType == "FrontStabilisator"); UI.FrontStabilisatorAantal@mandatory = _HeeftFrontStabilisator; UI.FrontStabilisatorAantal@visible = _HeeftFrontStabilisator; FrontStabilisatorAantal ;ui.frontstabilisatoraantal@mandatory;ui.frontstabilisatoraantal@visible; true UI.GreepEnMeenemer@mandatory = UI.IsBinnenlade; UI.GreepEnMeenemer@visible = UI.IsBinnenlade; GreepEnMeenemer ;ui.greepenmeenemer@mandatory;ui.greepenmeenemer@visible; (CONFIG.Settings.OperationMode == "Intern") UI.HangmapBoringAantal@mandatory = not(UI.IsBinnenlade); UI.HangmapBoringAantal@visible = not(UI.IsBinnenlade); HangmapBoringAantal ;ui.hangmapboringaantal@mandatory;ui.hangmapboringaantal@visible; true local boolean _HeeftOpvullijst = (DATA.Kenmerken.HeeftOpvullijstLinks or DATA.Kenmerken.HeeftOpvullijstRechts); UI.OpvullijstKleur@mandatory = _HeeftOpvullijst; UI.OpvullijstKleur@visible = _HeeftOpvullijst; UI.OpvullijstDikte@visible = _HeeftOpvullijst; index i of UI.NietMeeleveren if (UI.NietMeeleveren(i).Id == "Opvullijst") then UI.NietMeeleveren(i)@visible = (_HeeftOpvullijst and Not(CONFIG.Settings.NietMeeleverenVerbergen)); end if; end index; 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; */ UI.ZijwandVerhogingInschuifElementKleur@mandatory = _HeeftInschuifElement; UI.ZijwandVerhogingInschuifElementKleur@visible = _HeeftInschuifElement; ZijwandVerhogingInschuifElementKleur ;ui.zijwandverhoginginschuifelementkleur@mandatory;ui.zijwandverhoginginschuifelementkleur@visible; true local boolean _HeeftInschuifElement = (UI.ZijwandVerhogingType.Value == "InschuifElement"); UI.ZijwandVerhogingMateriaal@mandatory = _HeeftInschuifElement; UI.ZijwandVerhogingMateriaal@visible = _HeeftInschuifElement; ZijwandVerhogingMateriaal ;ui.zijwandverhogingmateriaal@mandatory;ui.zijwandverhogingmateriaal@visible; false //true //is false gezet door wimv op 19/04/2017, waarom?? //uit integratietests blijkt dat sommige configuraties dit ten onrechte invullen local boolean _HeeftReling = (UI.ZijwandVerhogingType.Value == "Reling"); UI.ZijwandVerhogingRelingKleur@mandatory = _HeeftReling; UI.ZijwandVerhogingRelingKleur@visible = _HeeftReling; 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; 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; MatAntislipFiberKleur ;ui.matantislipfiberkleur@mandatory;ui.matantislipfiberkleur@visible; true local boolean _HeeftMatAntislipFlockKleur = (UI.HeeftMat and (UI.MatMateriaal.Value == "AZ")); UI.MatAntislipFlockKleur@mandatory = _HeeftMatAntislipFlockKleur; UI.MatAntislipFlockKleur@visible = _HeeftMatAntislipFlockKleur; MatAntislipFlockKleur ;ui.matantislipflockkleur@mandatory;ui.matantislipflockkleur@visible; true UI.MatMateriaal@mandatory = UI.HeeftMat; UI.MatMateriaal@visible = UI.HeeftMat; 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; MatVinylFiberglassKleur ;ui.matvinylfiberglasskleur@mandatory;ui.matvinylfiberglasskleur@visible; true local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); local boolean _HeeftUitsparingData = not(UI.Toepassing in {"L"; "B"}); UI.RugwandMateriaal@mandatory = _IsIntern and not(_HeeftUitsparingData); UI.RugwandMateriaal@visible = _IsIntern and not(_HeeftUitsparingData); RugwandMateriaal ;ui.rugwandmateriaal@mandatory;ui.rugwandmateriaal@visible; true UI.FrontBevestiging@visible = UI.FrontBevestiging@visible and not(CONFIG.Settings.FrontBevestigingVerbergen); UI.FrontOndersteuningType@visible = not(CONFIG.Settings.FrontOndersteuningTypeVerbergen); UI.VerpakkingLayout@visible = not(CONFIG.Settings.VerpakkingTypeVerbergen); index i of UI.NietMeeleveren UI.NietMeeleveren(i)@visible = (UI.NietMeeleveren(i)@visible and not(CONFIG.Settings.NietMeeleverenVerbergen)); end index; Visible properties ;ui.frontbevestiging@visible;ui.frontondersteuningtype@visible;ui.verpakkinglayout@visible; true //local boolean _ToonAlleVerpakkingen = UI.VerpakkingOptiesToonAlle; // //UI.VerpakkingLayout.VerpakkingType@option("Probox")@visible = (_ToonAlleVerpakkingen) or CONFIG.Settings.VerpakkingProboxToegelaten; //UI.VerpakkingLayout.VerpakkingType@option("VHoss")@visible = (_ToonAlleVerpakkingen) or CONFIG.Settings.VerpakkingVHossToegelaten; //UI.VerpakkingLayout.VerpakkingType@option("Procom")@visible = (_ToonAlleVerpakkingen) or CONFIG.Settings.VerpakkingProcomToegelaten; //UI.VerpakkingLayout.VerpakkingType@option("Pallet")@visible = (_ToonAlleVerpakkingen) or CONFIG.Settings.VerpakkingPalletToegelaten; Visible options - VerpakkingType ; true UI.MatMateriaal@option("CV")@visible = false; UI.MatMateriaal@option("CF")@visible = false; Visible options - MatMateriaal (tijdelijk verborgen UST3693) ;ui.matmateriaal@options; true UI.InbouwHoogte@option("N")@visible = CONFIG.Settings.InbouwHoogteNToegelaten; UI.InbouwHoogte@option("K")@visible = CONFIG.Settings.InbouwHoogteKToegelaten; UI.InbouwHoogte@option("DK")@visible = CONFIG.Settings.InbouwHoogteKToegelaten; Visible options - Inbouwhoogte ;ui.inbouwhoogte@options; STATE.ValidationNeeded or (UI.Lijn.Aantal <> 0) local double _Minimum = RANGE.Aantal.Minimum; local double _Maximum = RANGE.Aantal.Maximum; UI.Lijn.Aantal@inputvalidation = "min:" + _Minimum + ";multiplication:1;maxdecimals:0;"; Validation Aantal ;ui.lijn.aantal@rangeset; STATE.ValidationNeeded or (UI.CorpusBreedte <> 0) local string _Minimum = Replace(cstr(RANGE.CorpusBreedte.Minimum);",";"."); local string _Maximum = Replace(cstr(RANGE.CorpusBreedte.Maximum);",";"."); local string _multiplication = "1"; local string _maxdecimals = "0"; if (BEHAVIOR.IsEconAx) then _multiplication = Replace("0,1";",";"."); _maxdecimals = "1"; end if; UI.CorpusBreedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:" + _multiplication + ";maxdecimals:" + _maxdecimals; Validation CorpusBreedte ;ui.corpusbreedte@rangeset; UI.CorpusWanddikte@visible and (STATE.ValidationNeeded or (UI.CorpusWanddikte <> 0)) local string _Minimum = "1"; local string _Maximum = "100"; local string _multiplication = "1"; local string _maxdecimals = "0"; if (BEHAVIOR.IsEconAx) then _Minimum = "0"; _multiplication = Replace("0,1";",";"."); _maxdecimals = "1"; end if; UI.CorpusWanddikte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:" + _multiplication + ";maxdecimals:" + _maxdecimals; Validation CorpusWanddikte on ;ui.corpuswanddikte@rangeset; not(UI.CorpusWanddikte@visible) UI.CorpusWanddikte@inputvalidation = ""; Validation CorpusWanddikte off ;ui.corpuswanddikte@rangeset; (UI.UitsparingData@visible and UI.UitsparingData.X@visible) and (STATE.ValidationNeeded or (UI.UitsparingData.X.BreedteRugdeel <> 0)) and (Config.InputMode <> "CreateConfig") local double _Minimum = RANGE.UitsparingDataBreedteX.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteX.Maximum; UI.UitsparingData.X.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteX on ;ui.uitsparingdata.x.breedterugdeel@rangeset; not(UI.UitsparingData@visible) or not(UI.UitsparingData.X@visible) UI.UitsparingData.X.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteX off ;ui.uitsparingdata.x.breedterugdeel@rangeset; (UI.UitsparingData@visible and UI.UitsparingData.M@visible) and (STATE.ValidationNeeded or (UI.UitsparingData.M.BreedteRugdeel <> 0)) and (Config.InputMode <> "CreateConfig") local double _Minimum = RANGE.UitsparingDataBreedteM.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteM.Maximum; UI.UitsparingData.M.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteM on ;ui.uitsparingdata.m.breedterugdeel@rangeset; not(UI.UitsparingData@visible) or not(UI.UitsparingData.M@visible) UI.UitsparingData.M.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteM off ;ui.uitsparingdata.m.breedterugdeel@rangeset; (UI.UitsparingData@visible and UI.UitsparingData.Y@visible) and (STATE.ValidationNeeded or (UI.UitsparingData.Y.BreedteRugdeel <> 0)) and (Config.InputMode <> "CreateConfig") local double _Minimum = RANGE.UitsparingDataBreedteY.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteY.Maximum; UI.UitsparingData.Y.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteY on ;ui.uitsparingdata.y.breedterugdeel@rangeset; not(UI.UitsparingData@visible) or not(UI.UitsparingData.Y@visible) UI.UitsparingData.Y.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteY off ;ui.uitsparingdata.y.breedterugdeel@rangeset; (UI.UitsparingData@visible and UI.UitsparingData.Z1@visible) and (STATE.ValidationNeeded or (UI.UitsparingData.Z1.BreedteUitsparing <> 0)) and (Config.InputMode <> "CreateConfig") local double _Minimum = RANGE.UitsparingDataBreedteZ1.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteZ1.Maximum; UI.UitsparingData.Z1.BreedteUitsparing@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteZ1 on ;ui.uitsparingdata.z1.breedteuitsparing@rangeset; not(UI.UitsparingData@visible) or not(UI.UitsparingData.Z1@visible) UI.UitsparingData.Z1.BreedteUitsparing@inputvalidation = ""; Validation UitsparingData BreedteZ1 off ;ui.uitsparingdata.z1.breedteuitsparing@rangeset; (UI.UitsparingData@visible and UI.UitsparingData.Z2@visible) and (STATE.ValidationNeeded or (UI.UitsparingData.Z2.BreedteUitsparing <> 0)) and (Config.InputMode <> "CreateConfig") local double _Minimum = RANGE.UitsparingDataBreedteZ2.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteZ2.Maximum; UI.UitsparingData.Z2.BreedteUitsparing@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteZ2 on ;ui.uitsparingdata.z2.breedteuitsparing@rangeset; not(UI.UitsparingData@visible) or not(UI.UitsparingData.Z2@visible) UI.UitsparingData.Z2.BreedteUitsparing@inputvalidation = ""; Validation UitsparingData BreedteZ2 off ;ui.uitsparingdata.z2.breedteuitsparing@rangeset; (STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig") or (Config.Backend == "axapta")) DATA.Lijn.InvalidFieldSet@options = InvalidFieldSet(); DATA.Lijn.OngeldigeWaarden@length = len(DATA.Lijn.InvalidFieldSet@options); index i of DATA.Lijn.OngeldigeWaarden; DATA.Lijn.OngeldigeWaarden(i) = DATA.Lijn.InvalidFieldSet@option(i)@label; end index; DATA.Lijn.IsGeldig = (InvalidFields() == 0); IsGeldig ;data.lijn.invalidfieldset@options;data.lijn.isgeldig@value; STATE.SavedAndExit or STATE.SavedAndContinue or STATE.KlantVoorkeurenSaved if not(UI.CorpusWanddikte@visible) then DATA.Kenmerken.CorpusWanddikte = 0; UI.CorpusWanddikte = 0; end if; if (UI.IsBinnenlade) then DATA.Kenmerken.FrontBevestiging = ""; UI.FrontBevestiging = ""; end if; if not(UI.OpvullijstKleur@visible) then DATA.Kenmerken.OpvullijstKleur = ""; UI.OpvullijstKleur = ""; end if; if (not(UI.HeeftOpvullijstLinks) and not(UI.HeeftOpvullijstRechts)) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = false; end if; if not(UI.RugHoogte@visible) then DATA.Kenmerken.RugHoogte = ""; UI.RugHoogte = ""; end if; if not(UI.Toepassing in {"L"; "B"}) then DATA.Kenmerken.RugwandMateriaal = ""; UI.RugwandMateriaal = ""; end if; if not(UI.HeeftMat) then DATA.Kenmerken.MatMateriaal = ""; DATA.Kenmerken.MatKleur = ""; UI.MatMateriaal = ""; UI.MatAntislipFiberKleur = ""; UI.MatAntislipFlockKleur = ""; UI.MatAntislipKleur = ""; UI.MatVinylFiberglassKleur = ""; end if; // todo: uitsparingdata Verborgen ingevulde properties wissen ;data.kenmerken.corpuswanddikte@value;ui.corpuswanddikte@value;data.kenmerken.frontbevestiging@value;ui.frontbevestiging@value;data.kenmerken.opvullijstkleur@value;ui.opvullijstkleur@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.rughoogte@value;ui.rughoogte@value;data.kenmerken.rugwandmateriaal@value;ui.rugwandmateriaal@value;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value;ui.matmateriaal@value;ui.matantislipfiberkleur@value;ui.matantislipflockkleur@value;ui.matantislipkleur@value;ui.matvinylfiberglasskleur@value; not(STATE.WinkelkarInfoCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig")) STATE.WinkelkarInfoCalculated = true; local string _Model = GetModel(); local string _FrontBevestigingOptionLabel = DATA.Kenmerken.FrontBevestiging@id + "_" + DATA.Kenmerken.FrontBevestiging@option(DATA.Kenmerken.FrontBevestiging)@id; local string _LadeDesignOptionLabel = DATA.Kenmerken.LadeDesign@id + "_" + DATA.Kenmerken.LadeDesign@option(DATA.Kenmerken.LadeDesign)@id; local string _BodemKleurOptionLabel = DATA.Kenmerken.BodemKleur@id + "_" + DATA.Kenmerken.BodemKleur@option(DATA.Kenmerken.BodemKleur)@id; local string _ZijwandVerhogingTypeOptionLabel = DATA.Kenmerken.ZijwandVerhogingType@id + "_" + DATA.Kenmerken.ZijwandVerhogingType@option(DATA.Kenmerken.ZijwandVerhogingType)@id; DATA.Lijn.WinkelkarInfo@length = len(CONFIG.Database.Languages@options); for i = 1 to len(CONFIG.Database.Languages@options) CONFIG.Database.Languages = CONFIG.Database.Languages@option(i)@id; local string _TaalCode = CONFIG.Database.Languages.Name; local string _CorpusWanddikte = " / "; if not(DATA.Kenmerken.IsBinnenbreedte) then _CorpusWanddikte = CStr(DATA.Kenmerken.CorpusWanddikte) + " mm"; end if; local string _LadeDesignInfo = GetLabel(DATA.Kenmerken.LadeDesign@id; _Model; ""; _TaalCode) + ": " + GetLabel(_LadeDesignOptionLabel; _Model; ""; _TaalCode); local string _BodemKleurInfo = GetLabel(DATA.Kenmerken.BodemKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_BodemKleurOptionLabel; _Model; ""; _TaalCode); DATA.Lijn.WinkelkarInfo(i).Aantal = CStr(DATA.Lijn.Aantal); DATA.Lijn.WinkelkarInfo(i).AfbeeldingCode = DATA.BerekendeWaarden.AfbeeldingCode; DATA.Lijn.WinkelkarInfo(i).CorpusBreedte = CStr(DATA.Kenmerken.CorpusBreedte) + " mm"; DATA.Lijn.WinkelkarInfo(i).CorpusWanddikte = _CorpusWanddikte; DATA.Lijn.WinkelkarInfo(i).Draagkracht = CStr(DATA.Kenmerken.Draagkracht) + " kg"; DATA.Lijn.WinkelkarInfo(i).EenheidPrijs = ""; DATA.Lijn.WinkelkarInfo(i).FrontBevestiging = GetLabel(_FrontBevestigingOptionLabel; _Model; ""; _TaalCode); DATA.Lijn.WinkelkarInfo(i).Groepering = _LadeDesignInfo + ", " + _BodemKleurInfo; DATA.Lijn.WinkelkarInfo(i).LadeCode = DATA.BerekendeWaarden.LadeCode; DATA.Lijn.WinkelkarInfo(i).LadeDiepte = CStr(DATA.Kenmerken.LadeDiepte) + " mm"; DATA.Lijn.WinkelkarInfo(i).TaalCode = _TaalCode; DATA.Lijn.WinkelkarInfo(i).TotaalPrijs = ""; DATA.Lijn.WinkelkarInfo(i).ZijwandVerhogingType = GetLabel(_ZijwandVerhogingTypeOptionLabel; _Model; ""; _TaalCode); end for; WinkelkarInfo ;state.winkelkarinfocalculated@value; not(STATE.WinkelkarInfoDiverseCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig")) STATE.WinkelkarInfoDiverseCalculated = true; local string _Model = GetModel(); local string _GeleiderTechnologieOptionLabel = DATA.Kenmerken.GeleiderTechnologie@id + "_" + DATA.Kenmerken.GeleiderTechnologie@option(DATA.Kenmerken.GeleiderTechnologie)@id; local string _OpvullijstKleurOptionLabel = DATA.Kenmerken.OpvullijstKleur@id + "_" + DATA.Kenmerken.OpvullijstKleur@option(DATA.Kenmerken.OpvullijstKleur)@id; local boolean _HeeftDubbeleUitsparing = (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); for i = 1 to len(CONFIG.Database.Languages@options) CONFIG.Database.Languages = CONFIG.Database.Languages@option(i)@id; local string _TaalCode = CONFIG.Database.Languages.Name; local string _InfoUitsparingData = ""; local string _InfoGeleider = ""; local string _InfoMat = ""; local string _InfoGreep = ""; local string _InfoFrontOndersteuning = ""; local string _InfoDwarsverdelingAantal = ""; local string _InfoZijstabilisering = ""; local string _InfoOpvullijst = ""; local string _InfoRug = ""; local string _InfoVerpakking = ""; local string _InfoNietMeeleveren = ""; if (UI.Toepassing in {"SP2","SY2","SY3"}) then // Afmetingen local string _UitsparingAfmetingen = ""; _UitsparingAfmetingen = _UitsparingAfmetingen + UI.UitsparingData.X.BreedteRugdeel + "/" + UI.UitsparingData.Z1.BreedteUitsparing; if _HeeftDubbeleUitsparing then _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + UI.UitsparingData.M.BreedteRugdeel + "/" + UI.UitsparingData.Z2.BreedteUitsparing; end if; _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + UI.UitsparingData.Y.BreedteRugdeel; // Label + Breedte if (UI.Toepassing == "SP2") then _InfoUitsparingData = GetLabel("InfoDiverse_SpoelbakOpening"; _Model; ""; _TaalCode); else if _HeeftDubbeleUitsparing then _InfoUitsparingData = GetLabel("InfoDiverse_SifonOpeningen"; _Model; ""; _TaalCode); else _InfoUitsparingData = GetLabel("InfoDiverse_SifonOpening"; _Model; ""; _TaalCode); end if; end if; _InfoUitsparingData = _InfoUitsparingData + " " + UI.UitsparingData.Z1.BreedteUitsparing + "mm"; if _HeeftDubbeleUitsparing then _InfoUitsparingData = _InfoUitsparingData + " " + UI.UitsparingData.Z2.BreedteUitsparing + "mm"; end if; //Alles tesamen _InfoUitsparingData = _InfoUitsparingData + " (" + _UitsparingAfmetingen + ")"; end if; switch UI.GeleiderTechnologie case "TOB": _InfoGeleider = GetLabel(_GeleiderTechnologieOptionLabel; _Model; ""; _TaalCode); end switch; if (UI.HeeftMat) then local string _MatMateriaalOptionLabel = "MatMateriaal_" + DATA.Kenmerken.MatMateriaal; local string _MatKleurOptionLabel = switch DATA.Kenmerken.MatMateriaal case "CF": "MatVinylFiberglassKleur_" + UI.MatVinylFiberglassKleur.Value case "AS": "MatAntislipKleur_" + UI.MatAntislipKleur.Value case "AF": "MatAntislipFiberKleur_" + UI.MatAntislipFiberKleur.Value case "AZ": "MatAntislipFlockKleur_" + UI.MatAntislipFlockKleur.Value else "" end switch; local string _MatMateriaal = GetLabel(_MatMateriaalOptionLabel; _Model; ""; _TaalCode); local string _MatKleur = GetLabel(_MatKleurOptionLabel; _Model; ""; _TaalCode); local string _MatLabel = GetLabel("InfoDiverse_Mat"; _Model; ""; _TaalCode); _InfoMat = _MatLabel + ": " + _MatKleur + "-" + _MatMateriaal; else if (UI.Toepassing in {"SP2","SY2","SY3"}) then _InfoMat = GetLabel(DATA.Kenmerken.HeeftMat@id; _Model; ""; _TaalCode) + ": " + GetLabel("InfoDiverse_Geen"; _Model; ""; _TaalCode); 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 (DATA.Kenmerken.HeeftZijstabilisering) then _InfoZijstabilisering = GetLabel(DATA.Kenmerken.HeeftZijstabilisering@id; _Model; ""; _TaalCode); end if; if (UI.DwarsverdelingAantal <> "0") then _InfoDwarsverdelingAantal = GetLabel(DATA.Kenmerken.DwarsverdelingAantal@id; _Model; ""; _TaalCode) + ": " + UI.DwarsverdelingAantal; end if; if (DATA.Kenmerken.HeeftOpvullijstLinks or DATA.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = GetLabel("InfoDiverse_Opvullijst"; _Model; ""; _TaalCode) + ": "; local string _Links = GetLabel("Links"; _Model; ""; _TaalCode); local string _Rechts = GetLabel("Rechts"; _Model; ""; _TaalCode); if (DATA.Kenmerken.HeeftOpvullijstLinks and DATA.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = _InfoOpvullijst + _Links + "+" + _Rechts; else if (DATA.Kenmerken.HeeftOpvullijstLinks) then _InfoOpvullijst = _InfoOpvullijst + _Links; end if; if (DATA.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = _InfoOpvullijst + _Rechts; end if; end if; end if; if ((_InfoOpvullijst <> "") and (DATA.Kenmerken.OpvullijstKleur <> "")) then _InfoOpvullijst = _InfoOpvullijst + " (" + GetLabel(_OpvullijstKleurOptionLabel ; _Model; ""; _TaalCode) + ")"; end if; if (UI.HeeftAfwijkendeRugHoogte) then _InfoRug = GetLabel("InfoDiverse_Rug"; _Model; ""; _TaalCode) + ": " + UI.RugHoogte; end if; if (UI.VerpakkingLayout.VerpakkingType <> "V1") then _InfoVerpakking = UI.VerpakkingLayout.VerpakkingType@option(UI.VerpakkingLayout.VerpakkingType)@label; end if; index j of UI.NietMeeleveren local string _Separator = ", "; if (_InfoNietMeeleveren == "") then _Separator = ""; end if; if (UI.NietMeeleveren(j).IsSelected) and (UI.NietMeeleveren(j)@visible) then _InfoNietMeeleveren = _InfoNietMeeleveren + _Separator + GetLabel(UI.NietMeeleveren@id + "_" + UI.NietMeeleveren(j).Id; _Model; ""; _TaalCode); end if; end index; if (_InfoNietMeeleveren <> "") then _InfoNietMeeleveren = GetLabel(UI.NietMeeleveren@id; _Model; ""; _TaalCode) + ": " + _InfoNietMeeleveren; if (Len(_InfoNietMeeleveren) > 250) then _InfoNietMeeleveren = Mid(_InfoNietMeeleveren; 1; 250) + " ..."; end if; end if; DATA.Lijn.WinkelkarInfo(i).InfoDiverse@length = 11; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[1] = _InfoUitsparingData; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[2] = _InfoGeleider; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[3] = _InfoMat; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[4] = _InfoGreep; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[5] = _InfoFrontOndersteuning; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[6] = _InfoDwarsverdelingAantal; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[7] = _InfoZijstabilisering; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[8] = _InfoOpvullijst; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[9] = _InfoRug; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[10] = _InfoVerpakking; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[11] = _InfoNietMeeleveren; end for; WinkelkarInfo - InfoDiverse ;state.winkelkarinfodiversecalculated@value; STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig") or (CONFIG.Backend == "axapta") if (DATA.Kenmerken.Toepassing == "B") then ItemId = "9.318.841.1" else if (DATA.Kenmerken.VerpakkingType == "V1") then ItemId = "9.893.226.0" end if; if (DATA.Kenmerken.VerpakkingType == "VHoss") then ItemId = "9.352.870.4" end if; if (DATA.Kenmerken.VerpakkingType == "Pallet") then ItemId = "9.893.251.0" end if; if (DATA.Kenmerken.VerpakkingType == "Probox") and (CONFIG.Settings.VerpakkingProboxOnderdelen == "DefaultMet") then ItemId = "9.754.366.6" end if; if (DATA.Kenmerken.VerpakkingType == "Probox") and (CONFIG.Settings.VerpakkingProboxOnderdelen <> "DefaultMet") then ItemId = "9.754.374.6" end if; if (DATA.Kenmerken.VerpakkingType == "Procom") and (CONFIG.Settings.VerpakkingProcomOnderdelen == "DefaultMet") then ItemId = "9.093.696.2" end if; if (DATA.Kenmerken.VerpakkingType == "Procom") and (CONFIG.Settings.VerpakkingProcomOnderdelen <> "DefaultMet") then ItemId = "9.754.374.6" end if; end if; ItemId bepalen ;itemid@value; STATE.Cancelled STATE.Cancelled = false; ReturnValue = "{\"status\":\"cancel\"}"; local boolean _Result = Exit(true;false); Cancel ;state.cancelled@value;returnvalue@value; STATE.SavedAndExit STATE.SavedAndExit = false; STATE.ValidationNeeded = true; if (InvalidFields() == 0) then ReturnValue = "{\"status\":\"ok\",\"name\":\"" + ElementName(CONFIG.ConfigurationName) + "\",\"version\":\"" + ElementVersion(CONFIG.ConfigurationName) + "\"}"; local boolean _Result = SaveAndExit(); else STATE.WinkelkarInfoCalculated = false; STATE.WinkelkarInfoDiverseCalculated = false; local string _Feedback = ""; _Feedback = _Feedback + "<b>" + GetLocalizedLabel("BewarenError") + ":" + "</b>"; _Feedback = _Feedback + "<ul style='list-style-type:square;'>"; for i = 1 to Len(DATA.Lijn.InvalidFieldSet@options) local string _PropertyName = DATA.Lijn.InvalidFieldSet@option(i)@id; local string _Label = CStr(Eval(_PropertyName + "@label")); _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + _Label; _Feedback = _Feedback + "</li>"; end for; _Feedback = _Feedback + "</ul>"; local long _FeedbackResult = MsgBox(_Feedback); end if; SaveAndExit ;state.savedandexit@value;state.validationneeded@value;returnvalue@value; STATE.SavedAndContinue STATE.SavedAndContinue = false; STATE.ValidationNeeded = true; if (InvalidFields() == 0) then ReturnValue = "{\"status\":\"ok\",\"name\":\"" + ElementName(CONFIG.ConfigurationName) + "\",\"version\":\"" + ElementVersion(CONFIG.ConfigurationName) + "\",\"continue\":\"true\"}"; local boolean _Result = SaveAndExit(); else STATE.WinkelkarInfoCalculated = false; STATE.WinkelkarInfoDiverseCalculated = false; local string _Feedback = ""; _Feedback = _Feedback + "<b>" + GetLocalizedLabel("BewarenError") + ":" + "</b>"; _Feedback = _Feedback + "<ul style='list-style-type:square;'>"; for i = 1 to Len(DATA.Lijn.InvalidFieldSet@options) local string _PropertyName = DATA.Lijn.InvalidFieldSet@option(i)@id; local string _Label = CStr(Eval(_PropertyName + "@label")); _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + _Label; _Feedback = _Feedback + "</li>"; end for; _Feedback = _Feedback + "</ul>"; local long _FeedbackResult = MsgBox(_Feedback); end if; SaveAndContinue ;state.savedandcontinue@value;state.validationneeded@value;returnvalue@value; STATE.KlantVoorkeurenSaved STATE.KlantVoorkeurenSaved = false; local boolean _Result; _Result = SetArg("saveas"; ElementName(CONFIG.KlantVoorkeurenConfigurationName)); _Result = eCon.UI.Tasks.Functions.Save(false); local string _Feedback = ""; if (_Result) then _Feedback = _Feedback + "<b>" + GetLocalizedLabel("BewarenKlantVoorkeurenSuccess") + "</b>"; _Feedback = _Feedback + "<ul style='list-style-type:square;'>"; for i = 1 to Len(CONFIG.Defaults.KlantVoorkeuren@options) local string _PropertyName = CONFIG.Defaults.KlantVoorkeuren@option(i)@id; local string _Label = CStr(Eval(_PropertyName + "@id")); local string _Id = CStr(Eval(_PropertyName)); local string _Type = CStr(Eval(_PropertyName + "@Type")); if ((_Type == "String") and(_Id <> "")) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id); //eval(_PropertyName)); _Feedback = _Feedback + "</li>"; end if; if ((_Type == "Double") and(CDbl(_Id) > 0)) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + _Id; _Feedback = _Feedback + "</li>"; end if; if (_Type == "Boolean") then local boolean _IsNietMeeleveren = CBool(Instr(1; LCase(_Label); LCase("NietMeeleveren_"))); local long _PositionOfUnderscore = InStrRev(LCase(_PropertyName); "_"); local string _ShortName = Mid(LCase(_PropertyName); _PositionOfUnderscore + 1); if (_IsNietMeeleveren and CBool(_Id) and (LCase(_ShortName) in CONFIG.NietMeeleverenExtern@options)) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel("NietMeeleveren") + ": " + GetLocalizedLabel(_Label); _Feedback = _Feedback + "</li>"; end if; if not(_IsNietMeeleveren) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id); _Feedback = _Feedback + "</li>"; end if; end if; end for; _Feedback = _Feedback + "</ul>"; else _Feedback = _Feedback + "<b>" + GetLocalizedLabel("BewarenKlantVoorkeurenError") + "</b>"; end if; local long _FeedbackResult = MsgBox(_Feedback); _Result = SetArg("saveas"; ElementName(CONFIG.ConfigurationName)); // originele ConfigurationName terugzetten SaveKlantVoorkeuren ;state.klantvoorkeurensaved@value; false true V R B B-R RH F B-F-R X AQYAAAAAAAABBwAAAAAAAA== A HS FrontStabilisator false true AgIAAAAAAAADAgAAAAAAAA== false true false true AgIAAAAAAAA= false true false true AgIAAAAAAAA= N M K B CM DM DK Zonder Reling InschuifElement BAEAAAAAAAAFAQAAAAAAAAYBAAAAAAAABwEAAAAAAAABAgAAAAAAAAICAAAAAAAAAwIAAAAAAAABAwAAAAAAAAIDAAAAAAAAAwMAAAAAAAAEAwAAAAAAAAcDAAAAAAAA N M K B CM DM DK false true AQIAAAAAAAAEAgAAAAAAAA== N M K B CM DM DK L SP2 SY2 SY3 B AQIAAAAAAAADAgAAAAAAAAcCAAAAAAAAAQMAAAAAAAADAwAAAAAAAAcDAAAAAAAAAQQAAAAAAAADBAAAAAAAAAcEAAAAAAAAAQUAAAAAAAADBQAAAAAAAAcFAAAAAAAA false true L SP2 SY2 SY3 B AgIAAAAAAAACAwAAAAAAAAIEAAAAAAAA 0 1 2 3 4 2x2 L SP2 SY2 SY3 B BgEAAAAAAAACAgAAAAAAAAMCAAAAAAAABAIAAAAAAAAFAgAAAAAAAAIDAAAAAAAAAwMAAAAAAAAEAwAAAAAAAAUDAAAAAAAABgMAAAAAAAACBAAAAAAAAAMEAAAAAAAABAQAAAAAAAAFBAAAAAAAAAYEAAAAAAAAAgUAAAAAAAADBQAAAAAAAAQFAAAAAAAABQUAAAAAAAAGBQAAAAAAAA== A HS FrontStabilisator L SP2 SY2 SY3 B AwIAAAAAAAADAwAAAAAAAA== false true 270 300 350 400 450 500 550 600 650 AgEAAAAAAAACAgAAAAAAAAIDAAAAAAAAAgQAAAAAAAA= V R B B-R RH F B-F-R X L SP2 SY2 SY3 B AgIAAAAAAAADAgAAAAAAAAQCAAAAAAAABQIAAAAAAAAGAgAAAAAAAAcCAAAAAAAACAIAAAAAAAACAwAAAAAAAAMDAAAAAAAABAMAAAAAAAAFAwAAAAAAAAYDAAAAAAAABwMAAAAAAAAIAwAAAAAAAAIEAAAAAAAAAwQAAAAAAAAEBAAAAAAAAAUEAAAAAAAABgQAAAAAAAAHBAAAAAAAAAgEAAAAAAAA false true N M K B CM DM DK AgEAAAAAAAA= N M K B CM DM DK 270 300 350 400 450 500 550 600 650 AQEAAAAAAAABAgAAAAAAAAEDAAAAAAAAAQgAAAAAAAABCQAAAAAAAA== 270 300 350 400 450 500 550 600 650 L SP2 SY2 SY3 B AQIAAAAAAAACAgAAAAAAAAMCAAAAAAAABAIAAAAAAAAHAgAAAAAAAAgCAAAAAAAACQIAAAAAAAABAwAAAAAAAAIDAAAAAAAAAwMAAAAAAAAEAwAAAAAAAAcDAAAAAAAACAMAAAAAAAAJAwAAAAAAAAEEAAAAAAAAAgQAAAAAAAA= 30 65 270 300 350 400 450 500 550 600 650 AgEAAAAAAAACAgAAAAAAAAIDAAAAAAAAAgQAAAAAAAABCQAAAAAAAA== L SP2 SY2 SY3 B Enkel Dubbel AgIAAAAAAAA= false true L SP2 SY2 SY3 B AgIAAAAAAAACAwAAAAAAAAIFAAAAAAAA N M K B CM DM DK false true L SP2 SY2 SY3 B BAIEAAAAAAA= Zonder Greep Meenemer N M K B CM DM DK false true AgUCAAAAAAADBQIAAAAAAAIGAgAAAAAAAwYCAAAAAAACBwIAAAAAAAMHAgAAAAAA 0 1 2 3 4 2x2 N M K B CM DM DK AgEAAAAAAAADAQAAAAAAAAQBAAAAAAAABQEAAAAAAAAGAQAAAAAAAAICAAAAAAAAAwIAAAAAAAAEAgAAAAAAAAUCAAAAAAAABgIAAAAAAAACAwAAAAAAAAMDAAAAAAAABAMAAAAAAAAFAwAAAAAAAAYDAAAAAAAAAgQAAAAAAAADBAAAAAAAAAQEAAAAAAAABQQAAAAAAAAGBAAAAAAAAAYGAAAAAAAABgcAAAAAAAA= 270 300 350 400 450 500 550 600 650 SW MG BZ L SP2 SY2 SY3 B BQICAAAAAAAFAwIAAAAAAAUCAwAAAAAABQMDAAAAAAA= 270 300 350 400 450 500 550 600 650 S ANTR FW FS FA BS QZ S-AZ ANTR-AZ CF AS AF AZ AwECAAAAAAAFAQIAAAAAAAYBAgAAAAAABwECAAAAAAAIAQIAAAAAAAkBAgAAAAAABgICAAAAAAAHAgIAAAAAAAgCAgAAAAAACQICAAAAAAA=