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; (CONFIG.Backend == "axapta") 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(GetArg("data;kenmerken;corpusbreedte")); Data.Kenmerken.CorpusWanddikte = CDbl(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.GeleiderTechnologie = GetArg("data;kenmerken;geleidertechnologie"); 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.IsBinnenbreedte = CBool(GetArg("data;kenmerken;isbinnenbreedte")); Data.Kenmerken.IsBinnenlade = CBool(GetArg("data;kenmerken;isbinnenlade")); Data.Kenmerken.LadeDiepte = GetArg("data;kenmerken;ladediepte"); Data.Kenmerken.LadeHoogte = GetArg("data;kenmerken;ladehoogte"); 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_AfdekkapBinnen = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkapbinnen")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBuiten = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkapbuiten")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkaprugwandhouder")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_BevestigingBodemFront = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_bevestigingbodemfront")); 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_InschuifElementVoor = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_inschuifelementvoor")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementZijkant = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_inschuifelementzijkant")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_opvullijst")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tobset")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tobseteenhedenenmeenemers")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionsynchronisatiestang")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_Zijstabilisering = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_zijstabilisering")); 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.M.Breedte = CDbl(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.UitsparingAantal = GetArg("data;kenmerken;uitsparingdata.uitsparingaantal"); Data.Kenmerken.UitsparingData.X.Breedte = CDbl(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(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(GetArg("data;kenmerken;uitsparingdata;z1;breedte")); Data.Kenmerken.UitsparingData.Z1.Diepte = CDbl(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(GetArg("data;kenmerken;uitsparingdata;z2;breedte")); Data.Kenmerken.UitsparingData.Z2.Diepte = CDbl(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.VoorwandTypeVanCBinnenlade = GetArg("data;kenmerken;voorwandtypevancbinnenlade"); Data.Kenmerken.VoorwandTypeVanKBinnenlade = GetArg("data;kenmerken;voorwandtypevankbinnenlade"); Data.Kenmerken.VoorwandTypeVanMBinnenlade = GetArg("data;kenmerken;voorwandtypevanmbinnenlade"); Data.Kenmerken.ZijwandType = GetArg("data;kenmerken;zijwandtype"); Data.Lijn.Aantal = CDbl(GetArg("data;lijn;aantal")); Data.Lijn.Referentie = GetArg("data;lijn;referentie"); //Data.Kenmerken. = GetArg("data;kenmerken;explicietgekozenkenmerken"); //Data.Kenmerken. = GetArg("data;kenmerken;gekoppeldeingegevenkenmerken"); //Data.Kenmerken. = GetArg("data;kenmerken;omschrijving"); //Data.Kenmerken.NietMeeleveren.NietMeeleveren_ = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponsynchronisatieset")); 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.geleidertechnologie@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladediepte@value;data.kenmerken.ladehoogte@value;data.kenmerken.ladekleur@value;data.kenmerken.matkleur@value;data.kenmerken.matmateriaal@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkapbinnen@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkapbuiten@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkaprugwandhouder@value;data.kenmerken.nietmeeleveren.nietmeeleveren_bevestigingbodemfront@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestiging@value;data.kenmerken.nietmeeleveren.nietmeeleveren_geleider@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelementvoor@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelementzijkant@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.kenmerken.nietmeeleveren.nietmeeleveren_zijstabilisering@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.productiewijze@value;data.kenmerken.rughoogte@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.toepassing@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.uitsparingaantal@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.voorwandtypevancbinnenlade@value;data.kenmerken.voorwandtypevankbinnenlade@value;data.kenmerken.voorwandtypevanmbinnenlade@value;data.kenmerken.zijwandtype@value;data.lijn.aantal@value;data.lijn.referentie@value; (CONFIG.ProcessMode <> "Background") Kenmerken ophalen uit argumenten (Interactive) ; true UI.Lijn.Aantal@visible = false; UI.Lijn.Aantal@mandatory = false; Kenmerk beperkingen ;ui.lijn.aantal@visible;ui.lijn.aantal@mandatory; 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") 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 = "lbx/" + CONFIG.Language + ".xml"; Tooltips ;help.helpurl@value; true local boolean _Result = CopyOptionsToArray("UI.Kenmerken.NietMeeleverenOptions"; "UI.Kenmerken.NietMeeleveren"); index i of UI.Kenmerken.NietMeeleveren UI.Kenmerken.NietMeeleveren(i)@label = GetLocalizedLabel("NietMeeleveren"); UI.Kenmerken.NietMeeleveren(i)@repeat = false; UI.Kenmerken.NietMeeleveren(i).IsSelected@style.controlclass = "vh-slidercheckbox"; UI.Kenmerken.NietMeeleveren(i).Text@style.controlclass = "vh-checkboxlist-item"; UI.Kenmerken.NietMeeleveren(i).Text = GetLocalizedLabel(UI.Kenmerken.NietMeeleveren(i).Text); end index; NietMeeleveren ;ui.kenmerken.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"; CONFIG.Settings.VerpakkingVHossToegelaten = true; else _Result = LoadFromJSONService("CONFIG.Settings.KeyValue"; _Json; false); /*if not(_Result) then ReturnValue = "{\"status\":\"cancel\"}"; _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; Config settings ophalen ;config.inputmode@value;config.settings.operationmode@value;config.settings.verpakkingvhosstoegelaten@value; (CONFIG.Token <> "") and (Config.Backend <> "axapta") // HEIN + SEEFELDER if ((Config.Settings.PersonalityId == "11") or (Config.Settings.PersonalityId == "13")) then Config.Settings.FrontBevestigingVerbergen = true; Config.Settings.IsBenelux = false; end if; // DARO if (Config.Settings.PersonalityId == "10") then Config.Settings.NietMeeleverenVerbergen = true; Config.Settings.IsBenelux = false; /*index i of UI.Kenmerken.NietMeeleveren local string _Id = UI.Kenmerken.NietMeeleveren(i).Id; if (_Id == "AfdekkapBinnen") OR (_Id == "AfdekkapBuiten") then UI.Kenmerken.NietMeeleveren(i)@visible = false; end if; end index;*/ end if; // SFS if (Config.Settings.PersonalityId == "3") then Config.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten = false; end if; // VAN HOECKE if (Config.Settings.PersonalityId == "1") then Config.Settings.NietMeeleverenVerbergen = false; end if; Config settings hardcoded ;config.settings.frontbevestigingverbergen@value;config.settings.isbenelux@value;config.settings.nietmeeleverenverbergen@value;config.settings.voorwandtypevanmbinnenladeglastoegelaten@value; true 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"; STATE.ProcessedAndExit = true; 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;state.processedandexit@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.Kenmerken.BodemKleur; for i = 1 to len(UI.Kenmerken.BodemKleur@options) UI.Kenmerken.BodemKleur = UI.Kenmerken.BodemKleur@option(i)@id; UI.Kenmerken.BodemKleur.Text = DATA.Kenmerken.BodemKleur@option(i)@label; end for; UI.Kenmerken.BodemKleur= SelectedOption; SelectedOption = UI.Kenmerken.LadeKleur; for i = 1 to len(UI.Kenmerken.LadeKleur@options) UI.Kenmerken.LadeKleur = UI.Kenmerken.LadeKleur@option(i)@id; UI.Kenmerken.LadeKleur.Text = DATA.Kenmerken.LadeKleur@option(i)@label; end for; UI.Kenmerken.LadeKleur = SelectedOption; SelectedOption = UI.Kenmerken.MatAntislipKleur; for i = 1 to len(UI.Kenmerken.MatAntislipKleur@options) UI.Kenmerken.MatAntislipKleur = UI.Kenmerken.MatAntislipKleur@option(i)@id; UI.Kenmerken.MatAntislipKleur.Text = GetLocalizedLabel("MatAntislipKleur_" + UI.Kenmerken.MatAntislipKleur); end for; UI.Kenmerken.MatAntislipKleur = SelectedOption; SelectedOption = UI.Kenmerken.MatAntislipFiberKleur; for i = 1 to len(UI.Kenmerken.MatAntislipFiberKleur@options) UI.Kenmerken.MatAntislipFiberKleur = UI.Kenmerken.MatAntislipFiberKleur@option(i)@id; UI.Kenmerken.MatAntislipFiberKleur.Text = GetLocalizedLabel("MatAntislipFiberKleur_" + UI.Kenmerken.MatAntislipFiberKleur); end for; UI.Kenmerken.MatAntislipFiberKleur = SelectedOption; SelectedOption = UI.Kenmerken.MatAntislipFlockKleur; for i = 1 to len(UI.Kenmerken.MatAntislipFlockKleur@options) UI.Kenmerken.MatAntislipFlockKleur = UI.Kenmerken.MatAntislipFlockKleur@option(i)@id; UI.Kenmerken.MatAntislipFlockKleur.Text = GetLocalizedLabel("MatAntislipFlockKleur_" + UI.Kenmerken.MatAntislipFlockKleur); end for; UI.Kenmerken.MatAntislipFlockKleur = SelectedOption; SelectedOption = UI.Kenmerken.MatMateriaal; for i = 1 to len(UI.Kenmerken.MatMateriaal@options) UI.Kenmerken.MatMateriaal = UI.Kenmerken.MatMateriaal@option(i)@id; UI.Kenmerken.MatMateriaal.Text = DATA.Kenmerken.MatMateriaal@option(UI.Kenmerken.MatMateriaal.Value)@label; end for; UI.Kenmerken.MatMateriaal = SelectedOption; SelectedOption = UI.Kenmerken.MatVinylFiberglassKleur; for i = 1 to len(UI.Kenmerken.MatVinylFiberglassKleur@options) UI.Kenmerken.MatVinylFiberglassKleur = UI.Kenmerken.MatVinylFiberglassKleur@option(i)@id; UI.Kenmerken.MatVinylFiberglassKleur.Text = GetLocalizedLabel("MatVinylFiberglassKleur_" + UI.Kenmerken.MatVinylFiberglassKleur); end for; UI.Kenmerken.MatVinylFiberglassKleur = SelectedOption; SelectedOption = UI.Kenmerken.MatWolviltKleur; for i = 1 to len(UI.Kenmerken.MatWolviltKleur@options) UI.Kenmerken.MatWolviltKleur = UI.Kenmerken.MatWolviltKleur@option(i)@id; UI.Kenmerken.MatWolviltKleur.Text = GetLocalizedLabel("MatWolviltKleur_" + UI.Kenmerken.MatWolviltKleur); end for; UI.Kenmerken.MatWolviltKleur = SelectedOption; SelectedOption = UI.Kenmerken.OpvullijstKleur; for i = 1 to len(UI.Kenmerken.OpvullijstKleur@options) UI.Kenmerken.OpvullijstKleur = UI.Kenmerken.OpvullijstKleur@option(i)@id; UI.Kenmerken.OpvullijstKleur.Text = DATA.Kenmerken.OpvullijstKleur@option(i)@label; end for; UI.Kenmerken.OpvullijstKleur = SelectedOption; SelectedOption = UI.Kenmerken.VoorwandTypeVanCBinnenlade; for i = 1 to len(UI.Kenmerken.VoorwandTypeVanCBinnenlade@options) UI.Kenmerken.VoorwandTypeVanCBinnenlade = UI.Kenmerken.VoorwandTypeVanCBinnenlade@option(i)@id; UI.Kenmerken.VoorwandTypeVanCBinnenlade.Text = DATA.Kenmerken.VoorwandTypeVanCBinnenlade@option(i)@label; end for; UI.Kenmerken.VoorwandTypeVanCBinnenlade= SelectedOption; SelectedOption = UI.Kenmerken.VoorwandTypeVanMBinnenlade; for i = 1 to len(UI.Kenmerken.VoorwandTypeVanMBinnenlade@options) UI.Kenmerken.VoorwandTypeVanMBinnenlade = UI.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@id; UI.Kenmerken.VoorwandTypeVanMBinnenlade.Text = DATA.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@label; end for; UI.Kenmerken.VoorwandTypeVanMBinnenlade= SelectedOption; SelectedOption = UI.Kenmerken.VoorwandTypeVanKBinnenlade; for i = 1 to len(UI.Kenmerken.VoorwandTypeVanKBinnenlade@options) UI.Kenmerken.VoorwandTypeVanKBinnenlade = UI.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@id; UI.Kenmerken.VoorwandTypeVanKBinnenlade.Text = DATA.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@label; end for; UI.Kenmerken.VoorwandTypeVanKBinnenlade= SelectedOption; SelectedOption = UI.Kenmerken.ZijwandType; for i = 1 to len(UI.Kenmerken.ZijwandType@options) UI.Kenmerken.ZijwandType = UI.Kenmerken.ZijwandType@option(i)@id; UI.Kenmerken.ZijwandType.Text = DATA.Kenmerken.ZijwandType@option(i)@label; end for; UI.Kenmerken.ZijwandType = SelectedOption; Vertalingen UI image labels ;ui.kenmerken.bodemkleur@value;ui.kenmerken.ladekleur@value;ui.kenmerken.matantislipkleur@value;ui.kenmerken.matantislipfiberkleur@value;ui.kenmerken.matantislipflockkleur@value;ui.kenmerken.matmateriaal@value;ui.kenmerken.matvinylfiberglasskleur@value;ui.kenmerken.matwolviltkleur@value;ui.kenmerken.opvullijstkleur@value;ui.kenmerken.voorwandtypevancbinnenlade@value;ui.kenmerken.voorwandtypevanmbinnenlade@value;ui.kenmerken.voorwandtypevankbinnenlade@value;ui.kenmerken.zijwandtype@value; true local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); UI.Kenmerken.HeeftAfwijkendeRugHoogte@visible = _IsIntern; //UI.Kenmerken.RugHoogte@visible = _IsIntern; // afhankelijk van "afwijkende" rughoogte flag //UI.Kenmerken.RugHoogte@mandatory = _IsIntern; // afhankelijk van "afwijkende" rughoogte flag UI.Kenmerken.ProductieWijze@visible = _IsIntern; UI.Kenmerken.ProductieWijze@mandatory = _IsIntern; UI.Kenmerken.RugwandMateriaal@visible = _IsIntern; UI.Kenmerken.RugwandMateriaal@mandatory = _IsIntern; UI.Kenmerken.OpvullijstKleur@option("LG")@visible = true; // Op "false" zetten wanneer PM deze uitfaseert (rond aug 2019) UI.Kenmerken.MatMateriaal@option("CV")@visible = false; // Wolvilt matten zijn uitgefaseerd; opkuis later ... UI.Kenmerken.MatMateriaal@option("AZ")@visible = true; // Flock UI.Kenmerken.FrontBevestiging@option("D")@visible = _IsIntern; UI.Kenmerken.VerpakkingType@option("Pallet")@visible = _IsIntern; index i of UI.Kenmerken.NietMeeleveren local boolean _IsZichtbaar = UI.Kenmerken.NietMeeleveren(i)@visible; local boolean _IsZichtbaarExtern = (not(_IsIntern) and (UI.Kenmerken.NietMeeleveren(i).id in CONFIG.NietMeeleverenExtern@options)); UI.Kenmerken.NietMeeleveren(i)@visible = (_IsIntern or _IsZichtbaarExtern) and (_IsZichtbaar); end index; Beperkingen Intern/Extern ;ui.kenmerken.heeftafwijkenderughoogte@visible;ui.kenmerken.productiewijze@visible;ui.kenmerken.productiewijze@mandatory;ui.kenmerken.rugwandmateriaal@visible;ui.kenmerken.rugwandmateriaal@mandatory;ui.kenmerken.opvullijstkleur@options;ui.kenmerken.matmateriaal@options;ui.kenmerken.frontbevestiging@options;ui.kenmerken.verpakkingtype@options; true UI.Kenmerken.VerpakkingType@option("VHoss")@visible = (UI.Kenmerken.VerpakkingType@option("VHoss")@visible and CONFIG.Settings.VerpakkingVHossToegelaten); UI.Kenmerken.VoorwandTypeVanMBinnenlade@option("Glas")@visible = (UI.Kenmerken.VoorwandTypeVanMBinnenlade@option("Glas")@visible and Config.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten); Beperkingen Settings ;ui.kenmerken.verpakkingtype@options;ui.kenmerken.voorwandtypevanmbinnenlade@options; (CONFIG.Settings.KlantId == "6819") Config.Settings.IsBeschikbaarVoorKlant = true IsBeschikbaarVoorKlant ;config.settings.isbeschikbaarvoorklant@value; true STATE.Initialized = false; Einde initialisatie ;state.initialized@value; not((CONFIG.Backend == "axapta") and (CONFIG.ProcessMode == "Background")) DATA.Kenmerken.CorpusBreedte = UI.Kenmerken.CorpusBreedte; DATA.Kenmerken.CorpusWanddikte = UI.Kenmerken.CorpusWanddikte; DATA.Kenmerken.Draagkracht = UI.Kenmerken.Draagkracht; DATA.Kenmerken.DwarsverdelingAantal = UI.Kenmerken.DwarsverdelingAantal; DATA.Kenmerken.FrontBevestiging = UI.Kenmerken.FrontBevestiging; DATA.Kenmerken.GeleiderTechnologie = UI.Kenmerken.GeleiderTechnologie; DATA.Kenmerken.HeeftAfwijkendeRugHoogte = UI.Kenmerken.HeeftAfwijkendeRugHoogte; DATA.Kenmerken.HeeftOpvullijstLinks = UI.Kenmerken.HeeftOpvullijstLinks; DATA.Kenmerken.HeeftOpvullijstRechts = UI.Kenmerken.HeeftOpvullijstRechts; DATA.Kenmerken.HeeftZijstabilisering = UI.Kenmerken.HeeftZijstabilisering; DATA.Kenmerken.IsBinnenbreedte = UI.Kenmerken.IsBinnenbreedte; DATA.Kenmerken.IsBinnenlade = UI.Kenmerken.IsBinnenlade; DATA.Kenmerken.LadeDiepte = UI.Kenmerken.LadeDiepte; DATA.Kenmerken.LadeHoogte = UI.Kenmerken.LadeHoogte; DATA.Kenmerken.MeenemerSet = UI.Kenmerken.MeenemerSet; DATA.Kenmerken.ProductieWijze = UI.Kenmerken.ProductieWijze; DATA.Kenmerken.RugHoogte = UI.Kenmerken.RugHoogte; DATA.Kenmerken.RugwandMateriaal = UI.Kenmerken.RugwandMateriaal; DATA.Kenmerken.Toepassing = UI.Kenmerken.Toepassing; DATA.Kenmerken.VerpakkingType = UI.Kenmerken.VerpakkingType; DATA.Kenmerken.UitsparingData.X.Breedte = UI.Kenmerken.UitsparingData.X.BreedteRugdeel; DATA.Kenmerken.UitsparingData.X.Hoogte = UI.Kenmerken.UitsparingData.X.Hoogte; DATA.Kenmerken.UitsparingData.X.Materiaal = UI.Kenmerken.UitsparingData.X.Materiaal; DATA.Kenmerken.UitsparingData.M.Breedte = UI.Kenmerken.UitsparingData.M.BreedteRugdeel; DATA.Kenmerken.UitsparingData.M.Hoogte = UI.Kenmerken.UitsparingData.M.Hoogte; DATA.Kenmerken.UitsparingData.M.Materiaal = UI.Kenmerken.UitsparingData.M.Materiaal; DATA.Kenmerken.UitsparingData.Y.Breedte = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; DATA.Kenmerken.UitsparingData.Y.Hoogte = UI.Kenmerken.UitsparingData.Y.Hoogte; DATA.Kenmerken.UitsparingData.Y.Materiaal = UI.Kenmerken.UitsparingData.Y.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; DATA.Kenmerken.UitsparingData.Z1.Diepte = UI.Kenmerken.UitsparingData.Z1.Diepte; DATA.Kenmerken.UitsparingData.Z1.Hoogte = UI.Kenmerken.UitsparingData.Z1.Hoogte; DATA.Kenmerken.UitsparingData.Z1.Materiaal = UI.Kenmerken.UitsparingData.Z1.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Vorm = UI.Kenmerken.UitsparingData.Z1.Vorm; DATA.Kenmerken.UitsparingData.Z2.Breedte = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing; DATA.Kenmerken.UitsparingData.Z2.Diepte = UI.Kenmerken.UitsparingData.Z2.Diepte; DATA.Kenmerken.UitsparingData.Z2.Hoogte = UI.Kenmerken.UitsparingData.Z2.Hoogte; DATA.Kenmerken.UitsparingData.Z2.Materiaal = UI.Kenmerken.UitsparingData.Z2.Materiaal; DATA.Kenmerken.UitsparingData.Z2.Vorm = UI.Kenmerken.UitsparingData.Z2.Vorm; DATA.Kenmerken.UitsparingData.UitsparingAantal = UI.Kenmerken.UitsparingData.UitsparingAantal; DATA.Lijn.Aantal = UI.Lijn.Aantal; DATA.Lijn.Referentie = UI.Lijn.Referentie; // IMAGE CONTROLS DATA.Kenmerken.BodemKleur = UI.Kenmerken.BodemKleur.Value; DATA.Kenmerken.LadeKleur = UI.Kenmerken.LadeKleur.Value; DATA.Kenmerken.OpvullijstKleur = UI.Kenmerken.OpvullijstKleur.Value; DATA.Kenmerken.VoorwandTypeVanCBinnenlade = UI.Kenmerken.VoorwandTypeVanCBinnenlade.Value; DATA.Kenmerken.VoorwandTypeVanMBinnenlade = UI.Kenmerken.VoorwandTypeVanMBinnenlade.Value; DATA.Kenmerken.VoorwandTypeVanKBinnenlade = UI.Kenmerken.VoorwandTypeVanKBinnenlade.Value; DATA.Kenmerken.ZijwandType = UI.Kenmerken.ZijwandType.Value; index i of UI.Kenmerken.NietMeeleveren local string _IsSelected = CStr(UI.Kenmerken.NietMeeleveren(i).IsSelected); local string _NietMeeleverenProperty = "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.Kenmerken.NietMeeleveren(i).Id; local boolean _Result = SetValue(_NietMeeleverenProperty; _IsSelected); end index; 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.geleidertechnologie@value;data.kenmerken.heeftafwijkenderughoogte@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladediepte@value;data.kenmerken.ladehoogte@value;data.kenmerken.meenemerset@value;data.kenmerken.productiewijze@value;data.kenmerken.rughoogte@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.toepassing@value;data.kenmerken.verpakkingtype@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.lijn.aantal@value;data.lijn.referentie@value;data.kenmerken.bodemkleur@value;data.kenmerken.ladekleur@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.voorwandtypevancbinnenlade@value;data.kenmerken.voorwandtypevanmbinnenlade@value;data.kenmerken.voorwandtypevankbinnenlade@value;data.kenmerken.zijwandtype@value;state.winkelkarinfocalculated@value;state.winkelkarinfodiversecalculated@value; true DATA.Kenmerken.MatMateriaal = UI.Kenmerken.MatMateriaal.Value; DATA.Kenmerken.MatKleur = switch (UI.Kenmerken.MatMateriaal.Value) case "CV": UI.Kenmerken.MatWolviltKleur.Value case "CF": UI.Kenmerken.MatVinylFiberglassKleur.value case "AS": UI.Kenmerken.MatAntislipKleur.value case "AF": UI.Kenmerken.MatAntislipFiberKleur.value case "AZ": UI.Kenmerken.MatAntislipFlockKleur.value else "" end switch; Values - Mat ;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value; not(CONFIG.InputMode == "Edit") and not((CONFIG.Backend == "axapta") and (CONFIG.ProcessMode == "Background")) DATA.Kenmerken.Toepassing = "L"; DATA.Kenmerken.MeenemerSet = "Z"; Defaults invullen ;data.kenmerken.toepassing@value;data.kenmerken.meenemerset@value; (CONFIG.ReferentieConfiguratie <> "") and (CONFIG.InputMode <> "Edit") 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.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.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 UI.Kenmerken.OpvullijstDikte = 25; Bereken OpvullijstDikte ;ui.kenmerken.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; if (_HeeftOpvullijstLinks) then _AantalOpvullijsten = _AantalOpvullijsten + 1; end if; if (_HeeftOpvullijstRechts) then _AantalOpvullijsten = _AantalOpvullijsten + 1; end if; if (_IsBinnenbreedte) then _CorpusWanddikte = 0; end if; DATA.BerekendeWaarden.CorpusBreedteDelta = (2 * _CorpusWanddikte) + (_AantalOpvullijsten * _OpvullijstDikte) + _MinTolerantieIB; Bereken CorpusBreedteDelta ;data.berekendewaarden.corpusbreedtedelta@value; true local double _InterneBreedte = 0; if DATA.Kenmerken.CorpusBreedte > 0 then _InterneBreedte = DATA.Kenmerken.CorpusBreedte - DATA.BerekendeWaarden.CorpusBreedteDelta; end if; DATA.BerekendeWaarden.InterneBreedte = _InterneBreedte; Bereken InterneBreedte ;data.berekendewaarden.internebreedte@value; false local string _LadeCode = DATA.Kenmerken.LadeHoogte; if (DATA.Kenmerken.IsBinnenlade) then _LadeCode = _LadeCode + "/Z"; end if; DATA.BerekendeWaarden.LadeCode = _LadeCode; Bereken LadeCode (inactive, zie berekende waarden winkelkarinfo) ;data.berekendewaarden.ladecode@value; (DATA.Kenmerken.IsBinnenlade) and ((DATA.Kenmerken.LadeHoogte == "M") or (DATA.Kenmerken.LadeHoogte == "C") or (DATA.Kenmerken.LadeHoogte == "K")) local string _VoorwandType = ""; if (DATA.Kenmerken.LadeHoogte == "M") then if (DATA.Kenmerken.VoorwandTypeVanMBinnenlade == "Glas") then _VoorwandType = "Vulling"; end if; if (DATA.Kenmerken.VoorwandTypeVanMBinnenlade == "Metaal") then _VoorwandType = "Voorstuk"; end if; end if; if (DATA.Kenmerken.LadeHoogte == "C") then if ((DATA.Kenmerken.VoorwandTypeVanCBinnenlade == "GlasHoog") or (DATA.Kenmerken.VoorwandTypeVanCBinnenlade == "GlasLaag")) then _VoorwandType = "Vulling"; end if; if (DATA.Kenmerken.VoorwandTypeVanCBinnenlade == "Reling") then _VoorwandType = "Reling"; end if; end if; if (DATA.Kenmerken.LadeHoogte == "K") then if (DATA.Kenmerken.VoorwandTypeVanKBinnenlade == "Metaal") then _VoorwandType = "Voorstuk"; end if; end if; DATA.BerekendeWaarden.VoorwandType = _VoorwandType; Bereken VoorwandType ;data.berekendewaarden.voorwandtype@value; (DATA.Kenmerken.IsBinnenlade) and (DATA.Kenmerken.LadeHoogte == "C") DATA.BerekendeWaarden.VoorwandVerhogingHoogte = switch DATA.Kenmerken.VoorwandTypeVanCBinnenlade case "GlasLaag": "Laag" case "GlasHoog": "Hoog" else "" end switch; Bereken VoorwandVerhogingHoogte ;data.berekendewaarden.voorwandverhoginghoogte@value; (DATA.Kenmerken.LadeHoogte <> "") local string _AfbeeldingCode = "" if (DATA.Kenmerken.ProductieWijze <> "V") then local string _ProductieWijze = DATA.Kenmerken.ProductieWijze; _AfbeeldingCode = _AfbeeldingCode + "SpecialeProductieWijze"; if (_ProductieWijze == "B") then _AfbeeldingCode = _AfbeeldingCode + "_Bodem" ; end if; if (_ProductieWijze == "BR") then _AfbeeldingCode = _AfbeeldingCode + "_BodemEnRug_" + DATA.Kenmerken.RugHoogte; end if; if (_ProductieWijze == "R") then _AfbeeldingCode = _AfbeeldingCode + "_Rug_" + DATA.Kenmerken.RugHoogte; end if; if (_ProductieWijze == "RRWH") then _AfbeeldingCode = _AfbeeldingCode + "_RugMetHouders_" + DATA.Kenmerken.RugHoogte; end if; if (_ProductieWijze == "F") then local string _LadeHoogte = DATA.Kenmerken.LadeHoogte; local string _VoorwandTypeVanBinnenlade = ""; if (_LadeHoogte == "C") then _VoorwandTypeVanBinnenlade = DATA.Kenmerken.VoorwandTypeVanCBinnenlade; end if; if (_LadeHoogte == "M") then _VoorwandTypeVanBinnenlade = DATA.Kenmerken.VoorwandTypeVanMBinnenlade; end if; if (_LadeHoogte == "K") then _VoorwandTypeVanBinnenlade = DATA.Kenmerken.VoorwandTypeVanKBinnenlade; end if; _AfbeeldingCode = _AfbeeldingCode + "_Front_" + _LadeHoogte + "_" + _VoorwandTypeVanBinnenlade; end if; else _AfbeeldingCode = DATA.Kenmerken.LadeHoogte; if (DATA.Kenmerken.IsBinnenlade) then _AfbeeldingCode = _AfbeeldingCode + "_Z"; end if; if (DATA.Kenmerken.Toepassing == "SP") then _AfbeeldingCode = _AfbeeldingCode + "_" + "Spoelbak"; end if; if (DATA.Kenmerken.Toepassing == "SY") then _AfbeeldingCode = _AfbeeldingCode + "_" + "Sifon"; if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then _AfbeeldingCode = _AfbeeldingCode + "_x2"; end if; end if; if (DATA.Kenmerken.IsBinnenlade) then if (DATA.BerekendeWaarden.VoorwandType <> "") then _AfbeeldingCode = _AfbeeldingCode + "_" + DATA.BerekendeWaarden.VoorwandType; end if; if (DATA.BerekendeWaarden.VoorwandVerhogingHoogte <> "") then _AfbeeldingCode = _AfbeeldingCode + "_" + DATA.BerekendeWaarden.VoorwandVerhogingHoogte; end if; end if; if (DATA.Kenmerken.ZijwandType == "Free") then _AfbeeldingCode = _AfbeeldingCode + "_" + DATA.Kenmerken.ZijwandType; end if; end if; _AfbeeldingCode = _AfbeeldingCode + "_Legra"; DATA.BerekendeWaarden.AfbeeldingCode = _AfbeeldingCode; Bereken AfbeeldingCode ;data.berekendewaarden.afbeeldingcode@value; 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 local double MINIMUM_BREEDTE = 237; local double MINIMUM_BREEDTE_SPOELBAKLADE = 350; local double MINIMUM_BREEDTE_SIFONLADE_ENKEL = 300; local double MINIMUM_BREEDTE_SIFONLADE_DUBBEL = 400; local double MINIMUM_BREEDTE_UITSPARING = 150; local double MINIMUM_BREEDTE_ZIJSTABILISERING = 362; local double _MinimumBreedte = MINIMUM_BREEDTE; if (DATA.Kenmerken.Toepassing == "SP") then _MinimumBreedte = Max(_MinimumBreedte; MINIMUM_BREEDTE_SPOELBAKLADE); end if; if (DATA.Kenmerken.Toepassing == "SY") then local double _MinimumBreedteZ1 = Max(DATA.Kenmerken.UitsparingData.Z1.Breedte; MINIMUM_BREEDTE_UITSPARING); local double _MinimumBreedteSifon = 0; if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then _MinimumBreedteSifon = MINIMUM_BREEDTE_SIFONLADE_ENKEL + _MinimumBreedteZ1; end if; if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then local double _MinimumBreedteZ2 = Max(DATA.Kenmerken.UitsparingData.Z2.Breedte; MINIMUM_BREEDTE_UITSPARING); _MinimumBreedteSifon = MINIMUM_BREEDTE_SIFONLADE_DUBBEL + _MinimumBreedteZ1 + _MinimumBreedteZ2; end if; _MinimumBreedte = Max(_MinimumBreedte; _MinimumBreedteSifon); end if; if (DATA.Kenmerken.HeeftZijstabilisering) then _MinimumBreedte = Max(_MinimumBreedte; MINIMUM_BREEDTE_ZIJSTABILISERING); end if; RANGE.InterneBreedte.Minimum = _MinimumBreedte; // todo: controleren op extra beperkingen (niet in extremabepaler) bv. geleidertechnologie InterneBreedte minimum ;range.internebreedte.minimum@value; true local double MAXIMUM_BREEDTE = 1430; local double MAXIMUM_BREEDTE_BINNENLADE = 1168; local double MAXIMUM_BREEDTE_RUGWANDMATERIAAL_STAAL = 1168; local double MAXIMUM_BREEDTE_VERPAKKINGTYPE_VHOSS = 1168; local double MAXIMUM_BREEDTE_DWARSVERDELING = 1168; local double MAXIMUM_BREEDTE_GELEIDERTECHNOLOGIE_TIPONBLUMOTION = 1368; local double _MaximumBreedte = MAXIMUM_BREEDTE; if (DATA.Kenmerken.IsBinnenlade) then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_BINNENLADE); end if; if (DATA.Kenmerken.RugwandMateriaal == "Staal") then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_RUGWANDMATERIAAL_STAAL); end if; if (DATA.Kenmerken.VerpakkingType == "VHoss") then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_VERPAKKINGTYPE_VHOSS); end if; if (DATA.Kenmerken.DwarsverdelingAantal <> "0") then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_DWARSVERDELING); end if; if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_GELEIDERTECHNOLOGIE_TIPONBLUMOTION); end if; RANGE.InterneBreedte.Maximum = _MaximumBreedte; // todo: controleren op extra beperkingen (niet in extremabepaler) bv. zijstabilisering, tipon, flatpack InterneBreedte maximum ;range.internebreedte.maximum@value; 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; 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.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@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 ; true DATA.Kenmerken.RugwandMateriaal@valids = ConstrainedOptions("DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.RugwandMateriaal"; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.RugwandMateriaal ;data.kenmerken.rugwandmateriaal@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.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids ; true DATA.Kenmerken.RugHoogte@valids = ConstrainedOptions("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.RugHoogte"; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.RugHoogte ;data.kenmerken.rughoogte@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids ; true DATA.Kenmerken.ProductieWijze@valids = ConstrainedOptions("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids"; "DATA.Kenmerken.ProductieWijze"; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade)); Applying constraints for property DATA.Kenmerken.ProductieWijze ;data.kenmerken.productiewijze@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 ; 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 ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids ; true DATA.Kenmerken.HeeftZijstabilisering@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.HeeftZijstabilisering"; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.HeeftZijstabilisering ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids") Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids ; true CONFIG.Settings.IsBenelux@style.invalidbooleans = ConstrainedBooleanInvalids("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids"; "CONFIG.Settings.IsBenelux"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur); Applying constraints for property CONFIG.Settings.IsBenelux ; true DATA.Kenmerken.LadeKleur@valids = ConstrainedOptions("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids"; "DATA.Kenmerken.LadeKleur"; "CONFIG.Settings.IsBenelux"; CurrentBoolean(CONFIG.Settings.IsBenelux); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte); Applying constraints for property DATA.Kenmerken.LadeKleur ;data.kenmerken.ladekleur@valids; ConstraintsNotSatisfiedFor("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids") ConstraintsErrorMessagesFor("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids") Gather constraint messages for decision table CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids ; true CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten@style.invalidbooleans = ConstrainedBooleanInvalids("CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids"; "CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten"; "DATA.Kenmerken.VoorwandTypeVanMBinnenlade"; DATA.Kenmerken.VoorwandTypeVanMBinnenlade); Applying constraints for property CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten ; ConstraintsNotSatisfiedFor("CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids") ConstraintsErrorMessagesFor("CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids") Gather constraint messages for decision table CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids ; true CONFIG.Settings.OperationMode@valids = ConstrainedOptions("CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids"; "CONFIG.Settings.OperationMode"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property CONFIG.Settings.OperationMode ;config.settings.operationmode@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids ; true DATA.Kenmerken.VerpakkingType@valids = ConstrainedOptions("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.VerpakkingType"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType); Applying constraints for property DATA.Kenmerken.VerpakkingType ;data.kenmerken.verpakkingtype@valids; true DATA.Kenmerken.ZijwandType@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.ZijwandType"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType); Applying constraints for property DATA.Kenmerken.ZijwandType ;data.kenmerken.zijwandtype@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids") Gather constraint messages for decision table DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids ; true DATA.Kenmerken.MeenemerSet@valids = ConstrainedOptions("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids"; "DATA.Kenmerken.MeenemerSet"; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.VoorwandTypeVanMBinnenlade"; DATA.Kenmerken.VoorwandTypeVanMBinnenlade); Applying constraints for property DATA.Kenmerken.MeenemerSet ;data.kenmerken.meenemerset@valids; true DATA.Kenmerken.VoorwandTypeVanMBinnenlade@valids = ConstrainedOptions("CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids"; "DATA.Kenmerken.VoorwandTypeVanMBinnenlade"; "CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten"; CurrentBoolean(CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten); "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.MeenemerSet"; DATA.Kenmerken.MeenemerSet); Applying constraints for property DATA.Kenmerken.VoorwandTypeVanMBinnenlade ;data.kenmerken.voorwandtypevanmbinnenlade@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids") Gather constraint messages for decision table DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids") Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids ; true DATA.Kenmerken.GeleiderTechnologie@valids = ConstrainedOptions("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.GeleiderTechnologie"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.MeenemerSet"; DATA.Kenmerken.MeenemerSet; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.GeleiderTechnologie ;data.kenmerken.geleidertechnologie@valids; true DATA.Kenmerken.Toepassing@valids = ConstrainedOptions("CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids"; "DATA.Kenmerken.Toepassing"; "CONFIG.Settings.OperationMode"; CONFIG.Settings.OperationMode; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering); "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "DATA.Kenmerken.RugwandMateriaal"; DATA.Kenmerken.RugwandMateriaal; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType); Applying constraints for property DATA.Kenmerken.Toepassing ;data.kenmerken.toepassing@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.GeleiderTechnologie,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.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.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; true DATA.Kenmerken.LadeDiepte@valids = ConstrainedOptions("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.LadeDiepte"; "CONFIG.Settings.IsBenelux"; CurrentBoolean(CONFIG.Settings.IsBenelux); "DATA.Kenmerken.Draagkracht"; DATA.Kenmerken.Draagkracht; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.MatKleur"; DATA.Kenmerken.MatKleur; "DATA.Kenmerken.MatMateriaal"; DATA.Kenmerken.MatMateriaal; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType); Applying constraints for property DATA.Kenmerken.LadeDiepte ;data.kenmerken.ladediepte@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids") Gather constraint messages for decision table DATA.Kenmerken.MatKleur,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.IsBinnenlade@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.IsBinnenlade"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.MeenemerSet"; DATA.Kenmerken.MeenemerSet; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.VoorwandTypeVanMBinnenlade"; DATA.Kenmerken.VoorwandTypeVanMBinnenlade); Applying constraints for property DATA.Kenmerken.IsBinnenlade ; true DATA.Kenmerken.LadeHoogte@valids = ConstrainedOptions("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.LadeHoogte"; "CONFIG.Settings.IsBenelux"; CurrentBoolean(CONFIG.Settings.IsBenelux); "CONFIG.Settings.OperationMode"; CONFIG.Settings.OperationMode; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType); Applying constraints for property DATA.Kenmerken.LadeHoogte ;data.kenmerken.ladehoogte@valids; true for i = 1 to len(DATA.Kenmerken.BodemKleur@options) UI.Kenmerken.BodemKleur@option(i)@valid = DATA.Kenmerken.BodemKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.Draagkracht@options) UI.Kenmerken.Draagkracht@option(i)@valid = DATA.Kenmerken.Draagkracht@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.DwarsverdelingAantal@options) UI.Kenmerken.DwarsverdelingAantal@option(i)@valid = DATA.Kenmerken.DwarsverdelingAantal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.FrontBevestiging@options) UI.Kenmerken.FrontBevestiging@option(i)@valid = DATA.Kenmerken.FrontBevestiging@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.GeleiderTechnologie@options) UI.Kenmerken.GeleiderTechnologie@option(i)@valid = DATA.Kenmerken.GeleiderTechnologie@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeDiepte@options) UI.Kenmerken.LadeDiepte@option(i)@valid = DATA.Kenmerken.LadeDiepte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeHoogte@options) UI.Kenmerken.LadeHoogte@option(i)@valid = DATA.Kenmerken.LadeHoogte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeKleur@options) UI.Kenmerken.LadeKleur@option(i)@valid = DATA.Kenmerken.LadeKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.MeenemerSet@options) UI.Kenmerken.MeenemerSet@option(i)@valid = DATA.Kenmerken.MeenemerSet@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.OpvullijstKleur@options) UI.Kenmerken.OpvullijstKleur@option(i)@valid = DATA.Kenmerken.OpvullijstKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ProductieWijze@options) UI.Kenmerken.ProductieWijze@option(i)@valid = DATA.Kenmerken.ProductieWijze@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.RugHoogte@options) UI.Kenmerken.RugHoogte@option(i)@valid = DATA.Kenmerken.RugHoogte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.RugwandMateriaal@options) UI.Kenmerken.RugwandMateriaal@option(i)@valid = DATA.Kenmerken.RugwandMateriaal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.Toepassing@options) UI.Kenmerken.Toepassing@option(i)@valid = DATA.Kenmerken.Toepassing@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.VerpakkingType@options) UI.Kenmerken.VerpakkingType@option(i)@valid = DATA.Kenmerken.VerpakkingType@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.VoorwandTypeVanCBinnenlade@options) UI.Kenmerken.VoorwandTypeVanCBinnenlade@option(i)@valid = DATA.Kenmerken.VoorwandTypeVanCBinnenlade@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.VoorwandTypeVanMBinnenlade@options) UI.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@valid = DATA.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.VoorwandTypeVanKBinnenlade@options) UI.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@valid = DATA.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ZijwandType@options) UI.Kenmerken.ZijwandType@option(i)@valid = DATA.Kenmerken.ZijwandType@option(i)@valid; end for; Valids ;ui.kenmerken.bodemkleur@valids;ui.kenmerken.draagkracht@valids;ui.kenmerken.dwarsverdelingaantal@valids;ui.kenmerken.frontbevestiging@valids;ui.kenmerken.geleidertechnologie@valids;ui.kenmerken.ladediepte@valids;ui.kenmerken.ladehoogte@valids;ui.kenmerken.ladekleur@valids;ui.kenmerken.meenemerset@valids;ui.kenmerken.opvullijstkleur@valids;ui.kenmerken.productiewijze@valids;ui.kenmerken.rughoogte@valids;ui.kenmerken.rugwandmateriaal@valids;ui.kenmerken.toepassing@valids;ui.kenmerken.verpakkingtype@valids;ui.kenmerken.voorwandtypevancbinnenlade@valids;ui.kenmerken.voorwandtypevanmbinnenlade@valids;ui.kenmerken.voorwandtypevankbinnenlade@valids;ui.kenmerken.zijwandtype@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.Kenmerken.MatAntislipKleur@options) if (MatKleur == UI.Kenmerken.MatAntislipKleur@option(j)@id) then UI.Kenmerken.MatAntislipKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.Kenmerken.MatAntislipFiberKleur@options) if (MatKleur == UI.Kenmerken.MatAntislipFiberKleur@option(j)@id) then UI.Kenmerken.MatAntislipFiberKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.Kenmerken.MatAntislipFlockKleur@options) if (MatKleur == UI.Kenmerken.MatAntislipFlockKleur@option(j)@id) then UI.Kenmerken.MatAntislipFlockKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.Kenmerken.MatVinylFiberglassKleur@options) if (MatKleur == UI.Kenmerken.MatVinylFiberglassKleur@option(j)@id) then UI.Kenmerken.MatVinylFiberglassKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.Kenmerken.MatWolviltKleur@options) if (MatKleur == UI.Kenmerken.MatWolviltKleur@option(j)@id) then UI.Kenmerken.MatWolviltKleur@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.Kenmerken.MatMateriaal@option(i)@valid = DATA.Kenmerken.MatMateriaal@option(i)@valid; end for; Valids - Mat ;ui.kenmerken.matmateriaal@valids; true UI.Kenmerken.VerpakkingTypeLabel@default = GetLocalizedLabel("VerpakkingTypeLabel"); UI.Kenmerken.VerpakkingTypeLabel@visible = (DATA.Kenmerken.VerpakkingType == "Probox"); Message Probox ;ui.kenmerken.verpakkingtypelabel@default;ui.kenmerken.verpakkingtypelabel@visible; true UI.Kenmerken.GeleiderTechnologieLabel@default = GetLocalizedLabel("GeleiderTechnologieLabel"); UI.Kenmerken.GeleiderTechnologieLabel@visible = (DATA.Kenmerken.GeleiderTechnologie == "TOB"); Message TIP-ON BLUMOTION ;ui.kenmerken.geleidertechnologielabel@default;ui.kenmerken.geleidertechnologielabel@visible; true UI.Kenmerken.BodemKleur@default = DATA.Kenmerken.BodemKleur; UI.Kenmerken.CorpusBreedte@default = DATA.Kenmerken.CorpusBreedte; UI.Kenmerken.CorpusWanddikte@default = DATA.Kenmerken.CorpusWanddikte; UI.Kenmerken.Draagkracht@default = DATA.Kenmerken.Draagkracht; UI.Kenmerken.DwarsverdelingAantal@default = DATA.Kenmerken.DwarsverdelingAantal; UI.Kenmerken.FrontBevestiging@default = DATA.Kenmerken.FrontBevestiging; UI.Kenmerken.GeleiderTechnologie@default = DATA.Kenmerken.GeleiderTechnologie; UI.Kenmerken.HeeftAfwijkendeRugHoogte@default = DATA.Kenmerken.HeeftAfwijkendeRugHoogte; UI.Kenmerken.HeeftOpvullijstLinks@default = DATA.Kenmerken.HeeftOpvullijstLinks; UI.Kenmerken.HeeftOpvullijstRechts@default = DATA.Kenmerken.HeeftOpvullijstRechts; UI.Kenmerken.HeeftZijstabilisering@default = DATA.Kenmerken.HeeftZijstabilisering; UI.Kenmerken.IsBinnenbreedte@default = DATA.Kenmerken.IsBinnenbreedte; UI.Kenmerken.IsBinnenlade@default = DATA.Kenmerken.IsBinnenlade; UI.Kenmerken.LadeDiepte@default = DATA.Kenmerken.LadeDiepte; UI.Kenmerken.LadeHoogte@default = DATA.Kenmerken.LadeHoogte; UI.Kenmerken.LadeKleur@default = DATA.Kenmerken.LadeKleur; UI.Kenmerken.MeenemerSet@default = DATA.Kenmerken.MeenemerSet; UI.Kenmerken.OpvullijstKleur@default = DATA.Kenmerken.OpvullijstKleur; UI.Kenmerken.ProductieWijze@default = DATA.Kenmerken.ProductieWijze; UI.Kenmerken.RugHoogte@default = DATA.Kenmerken.RugHoogte; UI.Kenmerken.RugwandMateriaal@default = DATA.Kenmerken.RugwandMateriaal; UI.Kenmerken.Toepassing@default = DATA.Kenmerken.Toepassing; UI.Kenmerken.VerpakkingType@default = DATA.Kenmerken.VerpakkingType; UI.Kenmerken.VoorwandTypeVanMBinnenlade@default = DATA.Kenmerken.VoorwandTypeVanMBinnenlade; UI.Kenmerken.VoorwandTypeVanCBinnenlade@default = DATA.Kenmerken.VoorwandTypeVanCBinnenlade; UI.Kenmerken.VoorwandTypeVanKBinnenlade@default = DATA.Kenmerken.VoorwandTypeVanKBinnenlade; UI.Kenmerken.ZijwandType@default = DATA.Kenmerken.ZijwandType; UI.Kenmerken.InterneBreedte@default = DATA.BerekendeWaarden.InterneBreedte; UI.Lijn.Aantal@default = DATA.Lijn.Aantal; UI.Lijn.Referentie@default = DATA.Lijn.Referentie; index i of UI.Kenmerken.NietMeeleveren local boolean _IsChecked = CBool(Eval("DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.Kenmerken.NietMeeleveren(i).Id)); UI.Kenmerken.NietMeeleveren(i).IsSelected@default = _IsChecked; end index; Values ;ui.kenmerken.bodemkleur@default;ui.kenmerken.corpusbreedte@default;ui.kenmerken.corpuswanddikte@default;ui.kenmerken.draagkracht@default;ui.kenmerken.dwarsverdelingaantal@default;ui.kenmerken.frontbevestiging@default;ui.kenmerken.geleidertechnologie@default;ui.kenmerken.heeftafwijkenderughoogte@default;ui.kenmerken.heeftopvullijstlinks@default;ui.kenmerken.heeftopvullijstrechts@default;ui.kenmerken.heeftzijstabilisering@default;ui.kenmerken.isbinnenbreedte@default;ui.kenmerken.isbinnenlade@default;ui.kenmerken.ladediepte@default;ui.kenmerken.ladehoogte@default;ui.kenmerken.ladekleur@default;ui.kenmerken.meenemerset@default;ui.kenmerken.opvullijstkleur@default;ui.kenmerken.productiewijze@default;ui.kenmerken.rughoogte@default;ui.kenmerken.rugwandmateriaal@default;ui.kenmerken.toepassing@default;ui.kenmerken.verpakkingtype@default;ui.kenmerken.voorwandtypevanmbinnenlade@default;ui.kenmerken.voorwandtypevancbinnenlade@default;ui.kenmerken.voorwandtypevankbinnenlade@default;ui.kenmerken.zijwandtype@default;ui.kenmerken.internebreedte@default;ui.lijn.aantal@default;ui.lijn.referentie@default; true UI.Kenmerken.MatMateriaal@default = DATA.Kenmerken.MatMateriaal; UI.Kenmerken.HeeftMat@default = (UI.Kenmerken.MatMateriaal <> ""); UI.Kenmerken.MatWolviltKleur@default = ""; UI.Kenmerken.MatVinylFiberglassKleur@default = ""; UI.Kenmerken.MatAntislipKleur@default = ""; UI.Kenmerken.MatAntislipFiberKleur@default = ""; UI.Kenmerken.MatAntislipFlockKleur@default = ""; switch UI.Kenmerken.MatMateriaal case "CV": UI.Kenmerken.MatWolviltKleur@default = DATA.Kenmerken.MatKleur case "CF": UI.Kenmerken.MatVinylFiberglassKleur@default = DATA.Kenmerken.MatKleur case "AS": UI.Kenmerken.MatAntislipKleur@default = DATA.Kenmerken.MatKleur case "AF": UI.Kenmerken.MatAntislipFiberKleur@default = DATA.Kenmerken.MatKleur case "AZ": UI.Kenmerken.MatAntislipFlockKleur@default = DATA.Kenmerken.MatKleur end switch Values - Mat ;ui.kenmerken.matmateriaal@default;ui.kenmerken.heeftmat@default;ui.kenmerken.matwolviltkleur@default;ui.kenmerken.matvinylfiberglasskleur@default;ui.kenmerken.matantislipkleur@default;ui.kenmerken.matantislipfiberkleur@default;ui.kenmerken.matantislipflockkleur@default; true UI.Kenmerken.UitsparingData.X.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.X.Breedte; UI.Kenmerken.UitsparingData.X.Hoogte@default = DATA.Kenmerken.UitsparingData.X.Hoogte; UI.Kenmerken.UitsparingData.X.Materiaal@default = DATA.Kenmerken.UitsparingData.X.Materiaal; UI.Kenmerken.UitsparingData.M.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.M.Breedte; UI.Kenmerken.UitsparingData.M.Hoogte@default = DATA.Kenmerken.UitsparingData.M.Hoogte; UI.Kenmerken.UitsparingData.M.Materiaal@default = DATA.Kenmerken.UitsparingData.M.Materiaal; UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.Y.Breedte; UI.Kenmerken.UitsparingData.Y.Hoogte@default = DATA.Kenmerken.UitsparingData.Y.Hoogte; UI.Kenmerken.UitsparingData.Y.Materiaal@default = DATA.Kenmerken.UitsparingData.Y.Materiaal; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@default = DATA.Kenmerken.UitsparingData.Z1.Breedte; UI.Kenmerken.UitsparingData.Z1.Diepte@default = DATA.Kenmerken.UitsparingData.Z1.Diepte; UI.Kenmerken.UitsparingData.Z1.Hoogte@default = DATA.Kenmerken.UitsparingData.Z1.Hoogte; UI.Kenmerken.UitsparingData.Z1.Materiaal@default = DATA.Kenmerken.UitsparingData.Z1.Materiaal; UI.Kenmerken.UitsparingData.Z1.Vorm@default = DATA.Kenmerken.UitsparingData.Z1.Vorm; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@default = DATA.Kenmerken.UitsparingData.Z2.Breedte; UI.Kenmerken.UitsparingData.Z2.Diepte@default = DATA.Kenmerken.UitsparingData.Z2.Diepte; UI.Kenmerken.UitsparingData.Z2.Hoogte@default = DATA.Kenmerken.UitsparingData.Z2.Hoogte; UI.Kenmerken.UitsparingData.Z2.Materiaal@default = DATA.Kenmerken.UitsparingData.Z2.Materiaal; UI.Kenmerken.UitsparingData.Z2.Vorm@default = DATA.Kenmerken.UitsparingData.Z2.Vorm; UI.Kenmerken.UitsparingData.UitsparingAantal@default = DATA.Kenmerken.UitsparingData.UitsparingAantal; Values - UitsparingData ;ui.kenmerken.uitsparingdata.x.breedterugdeel@default;ui.kenmerken.uitsparingdata.x.hoogte@default;ui.kenmerken.uitsparingdata.x.materiaal@default;ui.kenmerken.uitsparingdata.m.breedterugdeel@default;ui.kenmerken.uitsparingdata.m.hoogte@default;ui.kenmerken.uitsparingdata.m.materiaal@default;ui.kenmerken.uitsparingdata.y.breedterugdeel@default;ui.kenmerken.uitsparingdata.y.hoogte@default;ui.kenmerken.uitsparingdata.y.materiaal@default;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z1.diepte@default;ui.kenmerken.uitsparingdata.z1.hoogte@default;ui.kenmerken.uitsparingdata.z1.materiaal@default;ui.kenmerken.uitsparingdata.z1.vorm@default;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z2.diepte@default;ui.kenmerken.uitsparingdata.z2.hoogte@default;ui.kenmerken.uitsparingdata.z2.materiaal@default;ui.kenmerken.uitsparingdata.z2.vorm@default;ui.kenmerken.uitsparingdata.uitsparingaantal@default; true UI.Kenmerken.CorpusBreedte@label = switch (UI.Kenmerken.IsBinnenbreedte) case true: GetLocalizedLabel("CorpusBinnenbreedte") else GetLocalizedLabel("CorpusBuitenbreedte") end switch; Label CorpusBreedte ; true $UitsparingPane@label = switch (UI.Kenmerken.Toepassing) case "SY": UI.Kenmerken.Toepassing@option("SY")@label case "SP": UI.Kenmerken.Toepassing@option("SP")@label else "" end switch; Label UitsparingDataPane ; (DATA.Kenmerken.Toepassing == "SY") or (DATA.Kenmerken.Toepassing == "SP") if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then UI.Kenmerken.UitsparingData.Z1@label = GetLocalizedLabel("Z"); else UI.Kenmerken.UitsparingData.Z1@label = GetLocalizedLabel("Z1"); end if; Label UitsparingData Z1 ; true if (UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing == 150) then UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_M_D250_B150"; /* DEPRECATED */ end if; if (UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing == 160) then UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_M_D240_B160"; end if; if (UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing == 300) then // UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_M_D250_B300"; /* DEPRECATED */ UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_M_D240_B300"; end if; Values UitsparingData Z1 ;ui.kenmerken.uitsparingdata.z1.codeuitsparing@default; true if (UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing == 150) then UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_M_D250_B150"; /* DEPRECATED */ end if; if (UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing == 160) then UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_M_D240_B160"; end if; if (UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing == 300) then // UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_M_D250_B300"; /* DEPRECATED */ UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_M_D240_B300"; end if; Values UitsparingData Z2 ;ui.kenmerken.uitsparingdata.z2.codeuitsparing@default; true local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing in {"SP"}); UI.Kenmerken.UitsparingDataSpoelbak@visible = (_IsSpoelbaklade); UI.Kenmerken.UitsparingDataSpoelbak.Z1@label = GetLocalizedLabel("Z"); local double _BreedteX = 158; local double _BreedteY = 158; local double _BreedteZ1 = 0; if (DATA.BerekendeWaarden.InterneBreedte > 0) then _BreedteZ1 = DATA.BerekendeWaarden.InterneBreedte - (_BreedteX + _BreedteY); end if; UI.Kenmerken.UitsparingDataSpoelbak.X = _BreedteX; UI.Kenmerken.UitsparingDataSpoelbak.Y = _BreedteY; UI.Kenmerken.UitsparingDataSpoelbak.Z1 = _BreedteZ1; Visible - UitsparingData Spoelbaklade ;ui.kenmerken.uitsparingdataspoelbak@visible;ui.kenmerken.uitsparingdataspoelbak.x@value;ui.kenmerken.uitsparingdataspoelbak.y@value;ui.kenmerken.uitsparingdataspoelbak.z1@value; (UI.Kenmerken.UitsparingData@visible) or (UI.Kenmerken.UitsparingDataSpoelbak@visible) local string _UitsparingAantal = UI.Kenmerken.UitsparingData.UitsparingAantal; if (_UitsparingAantal == "") then _UitsparingAantal = "Enkel"; end if; local string _ImageUrl = "./images/Vanhoecke/lbx/UitsparingData/LBX_Toepassing_" + UI.Kenmerken.Toepassing + "_" + _UitsparingAantal + ".png"; UI.Kenmerken.UitsparingData.Afbeelding@default = _ImageUrl; UI.Kenmerken.UitsparingDataSpoelbak.Afbeelding@default = _ImageUrl; UitsparingData afbeelding ;ui.kenmerken.uitsparingdata.afbeelding@default;ui.kenmerken.uitsparingdataspoelbak.afbeelding@default; true local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SY"}); local boolean _HeeftDubbeleUitsparing = (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); UI.Kenmerken.UitsparingData@visible = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.UitsparingAantal@mandatory = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.X.BreedteRugdeel@mandatory = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@mandatory = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@mandatory = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.M.BreedteRugdeel@mandatory = _HeeftDubbeleUitsparing; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@mandatory = _HeeftDubbeleUitsparing; UI.Kenmerken.UitsparingData.M@visible = _HeeftDubbeleUitsparing; UI.Kenmerken.UitsparingData.Z2@visible = _HeeftDubbeleUitsparing; Visible en mandatory - UitsparingData Aantal en Breedtes ;ui.kenmerken.uitsparingdata@visible;ui.kenmerken.uitsparingdata.uitsparingaantal@mandatory;ui.kenmerken.uitsparingdata.x.breedterugdeel@mandatory;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@mandatory;ui.kenmerken.uitsparingdata.y.breedterugdeel@mandatory;ui.kenmerken.uitsparingdata.m.breedterugdeel@mandatory;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@mandatory;ui.kenmerken.uitsparingdata.m@visible;ui.kenmerken.uitsparingdata.z2@visible; true local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); local boolean _HeeftDubbeleUitsparing = (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); UI.Kenmerken.UitsparingData.X.CodeRugdeel@visible = false; UI.Kenmerken.UitsparingData.X.CodeRugdeel@mandatory = false; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@visible = _IsSifonlade; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@mandatory = _IsSifonlade; UI.Kenmerken.UitsparingData.M.CodeRugdeel@visible = false; UI.Kenmerken.UitsparingData.M.CodeRugdeel@mandatory = false; UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@visible = (_HeeftDubbeleUitsparing and _IsSifonlade); UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@mandatory = (_HeeftDubbeleUitsparing and _IsSifonlade); UI.Kenmerken.UitsparingData.Y.CodeRugdeel@visible = false; UI.Kenmerken.UitsparingData.Y.CodeRugdeel@mandatory = false; // Placeholders om de uitlijning te behouden :-P /* UI.Kenmerken.UitsparingData.X.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.X.CodeRugdeel@visible); UI.Kenmerken.UitsparingData.Z1.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@visible); UI.Kenmerken.UitsparingData.M.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.M.CodeRugdeel@visible); UI.Kenmerken.UitsparingData.Z2.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@visible); UI.Kenmerken.UitsparingData.Y.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Y.CodeRugdeel@visible); */ UI.Kenmerken.UitsparingData.X.CodePlaceholder@visible = false; UI.Kenmerken.UitsparingData.Z1.CodePlaceholder@visible = false; UI.Kenmerken.UitsparingData.M.CodePlaceholder@visible = false; UI.Kenmerken.UitsparingData.Z2.CodePlaceholder@visible = false; UI.Kenmerken.UitsparingData.Y.CodePlaceholder@visible = false; Visible en mandatory - UitsparingData Code ;ui.kenmerken.uitsparingdata.x.coderugdeel@visible;ui.kenmerken.uitsparingdata.x.coderugdeel@mandatory;ui.kenmerken.uitsparingdata.z1.codeuitsparing@visible;ui.kenmerken.uitsparingdata.z1.codeuitsparing@mandatory;ui.kenmerken.uitsparingdata.m.coderugdeel@visible;ui.kenmerken.uitsparingdata.m.coderugdeel@mandatory;ui.kenmerken.uitsparingdata.z2.codeuitsparing@visible;ui.kenmerken.uitsparingdata.z2.codeuitsparing@mandatory;ui.kenmerken.uitsparingdata.y.coderugdeel@visible;ui.kenmerken.uitsparingdata.y.coderugdeel@mandatory;ui.kenmerken.uitsparingdata.x.codeplaceholder@visible;ui.kenmerken.uitsparingdata.z1.codeplaceholder@visible;ui.kenmerken.uitsparingdata.m.codeplaceholder@visible;ui.kenmerken.uitsparingdata.z2.codeplaceholder@visible;ui.kenmerken.uitsparingdata.y.codeplaceholder@visible; (DATA.Kenmerken.Toepassing == "SY") local string _RugdeelOpMaat = "SY_M_BM"; local string _UitsparingSmal = "SY_Recht_M_D240_B160"; if (UI.Kenmerken.UitsparingData.UitsparingAantal == "") then UI.Kenmerken.UitsparingData.UitsparingAantal@default = "Enkel"; end if; if (UI.Kenmerken.UitsparingData.X.CodeRugdeel <> _RugdeelOpMaat) then UI.Kenmerken.UitsparingData.X.CodeRugdeel@default = _RugdeelOpMaat; end if; if (UI.Kenmerken.UitsparingData.M.CodeRugdeel <> _RugdeelOpMaat) then UI.Kenmerken.UitsparingData.M.CodeRugdeel@default = _RugdeelOpMaat; end if; if (UI.Kenmerken.UitsparingData.Y.CodeRugdeel <> _RugdeelOpMaat) then UI.Kenmerken.UitsparingData.Y.CodeRugdeel@default = _RugdeelOpMaat; end if; Defaults voor Sifonlade ;ui.kenmerken.uitsparingdata.uitsparingaantal@default;ui.kenmerken.uitsparingdata.x.coderugdeel@default;ui.kenmerken.uitsparingdata.m.coderugdeel@default;ui.kenmerken.uitsparingdata.y.coderugdeel@default; not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.X@visible) and not(CONFIG.InputMode == "CreateConfig") UI.Kenmerken.UitsparingData.X.BreedteRugdeel@default = 0; UitsparingData breedte X defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.x.breedterugdeel@default; not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Y@visible) and not(CONFIG.InputMode == "CreateConfig") UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@default = 0; UitsparingData breedte Y defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.y.breedterugdeel@default; not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.M@visible) and not(CONFIG.InputMode == "CreateConfig") UI.Kenmerken.UitsparingData.M.BreedteRugdeel@default = 0; UitsparingData breedte M defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.m.breedterugdeel@default; not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z1@visible) and not(CONFIG.InputMode == "CreateConfig") local string _UitsparingSmal = "SY_Recht_M_D240_B160"; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@default = 0; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = _UitsparingSmal; UitsparingData breedte Z1 defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z1.codeuitsparing@default; not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z2@visible) and not(CONFIG.InputMode == "CreateConfig") local string _UitsparingSmal = "SY_Recht_M_D240_B160"; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@default = 0; UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = _UitsparingSmal; UitsparingData breedte Z2 defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z2.codeuitsparing@default; (DATA.Kenmerken.Toepassing in {"SY"}) local string _CodeX = UI.Kenmerken.UitsparingData.X.CodeRugdeel; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; switch _CodeX case "SY_M_BM": // enige mogelijkheid bij Sifonlade //X.BreedteRugdeel@default = 0; UI.Kenmerken.UitsparingData.X.Hoogte = "M"; UI.Kenmerken.UitsparingData.X.Materiaal = "Hout"; UI.Kenmerken.UitsparingData.X.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Hout")@label; _MinimumBreedte = 150; _MaximumBreedte = 999; end switch; RANGE.UitsparingDataBreedteX.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteX.Maximum = _MaximumBreedte; UitsparingData X invullen ;range.uitsparingdatabreedtex.minimum@value;range.uitsparingdatabreedtex.maximum@value; (DATA.Kenmerken.Toepassing in {"SY"}) local string _CodeZ1 = UI.Kenmerken.UitsparingData.Z1.CodeUitsparing; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; UI.Kenmerken.UitsparingData.Z1.Hoogte = "M"; UI.Kenmerken.UitsparingData.Z1.Vorm = "Recht"; UI.Kenmerken.UitsparingData.Z1.Materiaal = "Staal"; UI.Kenmerken.UitsparingData.Z1.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Staal")@label; switch _CodeZ1 case "SY_Recht_M_D250_B150": UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 150; UI.Kenmerken.UitsparingData.Z1.Diepte = 250; _MinimumBreedte = 150; _MaximumBreedte = 150; case "SY_Recht_M_D250_B300": UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 300; UI.Kenmerken.UitsparingData.Z1.Diepte = 250; _MinimumBreedte = 300; _MaximumBreedte = 300; case "SY_Recht_M_D240_B160": UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 160; UI.Kenmerken.UitsparingData.Z1.Diepte = 240; _MinimumBreedte = 160; _MaximumBreedte = 160; case "SY_Recht_M_D240_B300": UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 300; UI.Kenmerken.UitsparingData.Z1.Diepte = 240; _MinimumBreedte = 300; _MaximumBreedte = 300; end switch; RANGE.UitsparingDataBreedteZ1.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteZ1.Maximum = _MaximumBreedte; UitsparingData Z1 invullen ;ui.kenmerken.uitsparingdata.z1.hoogte@value;ui.kenmerken.uitsparingdata.z1.vorm@value;ui.kenmerken.uitsparingdata.z1.materiaal@value;ui.kenmerken.uitsparingdata.z1.materiaaldisplay@value;range.uitsparingdatabreedtez1.minimum@value;range.uitsparingdatabreedtez1.maximum@value; (DATA.Kenmerken.Toepassing in {"SY"}) local string _CodeM = UI.Kenmerken.UitsparingData.M.CodeRugdeel; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; switch _CodeM case "SY_M_BM": // enige mogelijkheid bij Sifonlade //UI.Kenmerken.UitsparingData.M.BreedteRugdeel@default = 0; UI.Kenmerken.UitsparingData.M.Hoogte = "M"; UI.Kenmerken.UitsparingData.M.Materiaal = "Hout"; UI.Kenmerken.UitsparingData.M.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Hout")@label; _MinimumBreedte = 97; _MaximumBreedte = 999; end switch; RANGE.UitsparingDataBreedteM.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteM.Maximum = _Maximumbreedte; UitsparingData M invullen ;range.uitsparingdatabreedtem.minimum@value;range.uitsparingdatabreedtem.maximum@value; (DATA.Kenmerken.Toepassing in {"SY"}) local string _CodeZ2 = UI.Kenmerken.UitsparingData.Z2.CodeUitsparing; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; UI.Kenmerken.UitsparingData.Z2.Hoogte = "M"; UI.Kenmerken.UitsparingData.Z2.Vorm = "Recht"; UI.Kenmerken.UitsparingData.Z2.Materiaal = "Staal"; UI.Kenmerken.UitsparingData.Z2.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Staal")@label; switch _CodeZ2 case "SY_Recht_M_D250_B150": UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 150; UI.Kenmerken.UitsparingData.Z2.Diepte = 250; _MinimumBreedte = 150; _MaximumBreedte = 150; case "SY_Recht_M_D250_B300": UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 300; UI.Kenmerken.UitsparingData.Z2.Diepte = 250; _MinimumBreedte = 300; _MaximumBreedte = 300; case "SY_Recht_M_D240_B160": UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 160; UI.Kenmerken.UitsparingData.Z2.Diepte = 240; _MinimumBreedte = 160; _MaximumBreedte = 160; case "SY_Recht_M_D240_B300": UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 300; UI.Kenmerken.UitsparingData.Z2.Diepte = 240; _MinimumBreedte = 300; _MaximumBreedte = 300; end switch; RANGE.UitsparingDataBreedteZ2.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteZ2.Maximum = _MaximumBreedte; UitsparingData Z2 invullen ;ui.kenmerken.uitsparingdata.z2.hoogte@value;ui.kenmerken.uitsparingdata.z2.vorm@value;ui.kenmerken.uitsparingdata.z2.materiaal@value;ui.kenmerken.uitsparingdata.z2.materiaaldisplay@value;range.uitsparingdatabreedtez2.minimum@value;range.uitsparingdatabreedtez2.maximum@value; (DATA.Kenmerken.Toepassing in {"SY"}) local string _CodeY = UI.Kenmerken.UitsparingData.Y.CodeRugdeel; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; switch _CodeY case "SY_M_BM": // enige mogelijkheid bij Sifonlade //UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@default = 0; UI.Kenmerken.UitsparingData.Y.Hoogte = "M"; UI.Kenmerken.UitsparingData.Y.Materiaal = "Hout"; UI.Kenmerken.UitsparingData.Y.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Hout")@label; _MinimumBreedte = 150; _MaximumBreedte = 999; end switch; RANGE.UitsparingDataBreedteY.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteY.Maximum = _MaximumBreedte; UitsparingData Y invullen ;range.uitsparingdatabreedtey.minimum@value;range.uitsparingdatabreedtey.maximum@value; (UI.Kenmerken.UitsparingData@visible) and (UI.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") local double _SuggestieX = 0; local double _SuggestieY = 0; local double _SuggestieZ1 = 0; local double _BreedteX = UI.Kenmerken.UitsparingData.X.BreedteRugdeel; local double _BreedteY = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; local double _BreedteZ1 = UI.Kenmerken.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 = (_BreedteSaldo / 2); _SuggestieY = _SuggestieX; 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.Kenmerken.UitsparingData.X.GesuggereerdeWaarde = _SuggestieX; UI.Kenmerken.UitsparingData.Y.GesuggereerdeWaarde = _SuggestieY; UI.Kenmerken.UitsparingData.Z1.GesuggereerdeWaarde = _SuggestieZ1; UI.Kenmerken.UitsparingData.M.GesuggereerdeWaarde = 0; UI.Kenmerken.UitsparingData.Z2.GesuggereerdeWaarde = 0; Bereken GesuggereerdeWaarden Enkele uitsparing ;ui.kenmerken.uitsparingdata.x.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.y.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z1.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.m.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z2.gesuggereerdewaarde@value; (UI.Kenmerken.UitsparingData@visible) and (UI.Kenmerken.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.Kenmerken.UitsparingData.X.BreedteRugdeel; local double _BreedteM = UI.Kenmerken.UitsparingData.M.BreedteRugdeel; local double _BreedteY = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; local double _BreedteZ1 = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; local double _BreedteZ2 = UI.Kenmerken.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 = (_BreedteSaldo / 2); _SuggestieZ2 = _SuggestieZ1; 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 = (_BreedteSaldo / 2); _SuggestieY = _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 _SuggestieX = 0; _SuggestieY = 0; if (_BreedteX == 0) then _SuggestieX = _BreedteY; end if; if (_BreedteY == 0) then _SuggestieY = _BreedteX; end if; _SuggestieM = (_BreedteSaldo - _SuggestieX - _SuggestieY); end if; end if; else // Combinatie van RugBreedtes en UitsparingBreedtes niet ingevuld : TO DO local boolean _dummy = true; end if; end if; end if; UI.Kenmerken.UitsparingData.X.GesuggereerdeWaarde = _SuggestieX; UI.Kenmerken.UitsparingData.M.GesuggereerdeWaarde = _SuggestieM; UI.Kenmerken.UitsparingData.Y.GesuggereerdeWaarde = _SuggestieY; UI.Kenmerken.UitsparingData.Z1.GesuggereerdeWaarde = _SuggestieZ1; UI.Kenmerken.UitsparingData.Z2.GesuggereerdeWaarde = _SuggestieZ2; Bereken GesuggereerdeWaarden Dubbele uitsparing ;ui.kenmerken.uitsparingdata.x.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.m.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.y.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z1.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z2.gesuggereerdewaarde@value; (DATA.Kenmerken.Toepassing in {"SY"}); local boolean _HeeftDubbeleUitsparing = (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); local double _TotaleBreedte = 0; local double _BreedteX = UI.Kenmerken.UitsparingData.X.BreedteRugdeel; local double _BreedteZ1 = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; local double _BreedteM = UI.Kenmerken.UitsparingData.M.BreedteRugdeel; local double _BreedteZ2 = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing; local double _BreedteY = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; _TotaleBreedte = _BreedteX + _BreedteZ1 + _BreedteY; if (_HeeftDubbeleUitsparing) then _TotaleBreedte = _TotaleBreedte + _BreedteM + _BreedteZ2; end if; UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte = _TotaleBreedte; Bereken TotaleBreedte ;ui.kenmerken.uitsparingdata.uitsparingdata_totalebreedte@value; UI.Kenmerken.UitsparingData@visible UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte = DATA.BerekendeWaarden.InterneBreedte; Instellen VerwachteBreedte bij Uitsparingen ;ui.kenmerken.uitsparingdata.uitsparingdata_verwachtebreedte@value; false //true // indien HeeftUitsparing local boolean _IsGeldigTotaleBreedte = (UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte == UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte); local string _ControlClass = ""; //"colorBlack"; if not(_IsGeldigTotaleBreedte) then _ControlClass = "eConInvalidField"; // ui-state-error""colorRed"; end if; UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte@style = "controlclass:" + _ControlClass; // _CssClassname; //UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte@styleClass = _CssClassname; UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte@visible = not(_IsGeldigTotaleBreedte); Visible en formatting - VerwachteBreedte ;ui.kenmerken.uitsparingdata.uitsparingdata_verwachtebreedte@visible; (RANGE.UitsparingDataBreedteX.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteX.Maximum == RANGE.UitsparingDataBreedteX.Minimum); UI.Kenmerken.UitsparingData.X.BreedteRugdeel@enabled = not(_IsVasteBreedte); Breedte X wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.x.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteM.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteM.Maximum == RANGE.UitsparingDataBreedteM.Minimum); UI.Kenmerken.UitsparingData.M.BreedteRugdeel@enabled = not(_IsVasteBreedte); Breedte M wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.m.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteY.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteY.Maximum == RANGE.UitsparingDataBreedteY.Minimum); UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@enabled = not(_IsVasteBreedte); Breedte Y wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.y.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteZ1.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteZ1.Maximum == RANGE.UitsparingDataBreedteZ1.Minimum); UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@enabled = not(_IsVasteBreedte); Breedte Z1 wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@enabled; (RANGE.UitsparingDataBreedteZ2.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteZ2.Maximum == RANGE.UitsparingDataBreedteZ2.Minimum); UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@enabled = not(_IsVasteBreedte); Breedte Z2 wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@enabled; true UI.Kenmerken.CorpusWanddikte@mandatory = not(UI.Kenmerken.IsBinnenbreedte); UI.Kenmerken.CorpusWanddikte@visible = not(UI.Kenmerken.IsBinnenbreedte); CorpusWanddikte ;ui.kenmerken.corpuswanddikte@mandatory;ui.kenmerken.corpuswanddikte@visible; true local Boolean _FrontBevestigingVerbergen = (Config.Settings.FrontBevestigingVerbergen or UI.Kenmerken.IsBinnenlade); UI.Kenmerken.FrontBevestiging@mandatory = not(UI.Kenmerken.IsBinnenlade); UI.Kenmerken.FrontBevestiging@visible = not(_FrontBevestigingVerbergen); FrontBevestiging ;ui.kenmerken.frontbevestiging@mandatory;ui.kenmerken.frontbevestiging@visible; true local boolean _HeeftMatAntislipFiberKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AF")); UI.Kenmerken.MatAntislipFiberKleur@mandatory = _HeeftMatAntislipFiberKleur; UI.Kenmerken.MatAntislipFiberKleur@visible = _HeeftMatAntislipFiberKleur; MatAntislipFiberKleur ;ui.kenmerken.matantislipfiberkleur@mandatory;ui.kenmerken.matantislipfiberkleur@visible; true local boolean _HeeftMatAntislipFlockKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AZ")); UI.Kenmerken.MatAntislipFlockKleur@mandatory = _HeeftMatAntislipFlockKleur; UI.Kenmerken.MatAntislipFlockKleur@visible = _HeeftMatAntislipFlockKleur; MatAntislipFlockKleur ;ui.kenmerken.matantislipflockkleur@mandatory;ui.kenmerken.matantislipflockkleur@visible; true local boolean _HeeftMatAntislipKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AS")); UI.Kenmerken.MatAntislipKleur@mandatory = _HeeftMatAntislipKleur; UI.Kenmerken.MatAntislipKleur@visible = _HeeftMatAntislipKleur; MatAntislipKleur ;ui.kenmerken.matantislipkleur@mandatory;ui.kenmerken.matantislipkleur@visible; true UI.Kenmerken.MatMateriaal@mandatory = UI.Kenmerken.HeeftMat; UI.Kenmerken.MatMateriaal@visible = UI.Kenmerken.HeeftMat; MatMateriaal ;ui.kenmerken.matmateriaal@mandatory;ui.kenmerken.matmateriaal@visible; true local boolean _HeeftMatVinylFiberglassKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "CF")); UI.Kenmerken.MatVinylFiberglassKleur@mandatory = _HeeftMatVinylFiberglassKleur; UI.Kenmerken.MatVinylFiberglassKleur@visible = _HeeftMatVinylFiberglassKleur; MatVinylFiberglassKleur ;ui.kenmerken.matvinylfiberglasskleur@mandatory;ui.kenmerken.matvinylfiberglasskleur@visible; true local boolean _HeeftMatWolviltKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "CV")); UI.Kenmerken.MatWolviltKleur@mandatory = _HeeftMatWolviltKleur; UI.Kenmerken.MatWolviltKleur@visible = _HeeftMatWolviltKleur; MatWolviltKleur ;ui.kenmerken.matwolviltkleur@mandatory;ui.kenmerken.matwolviltkleur@visible; true local boolean _HeeftOpvullijst = (UI.Kenmerken.HeeftOpvullijstLinks or UI.Kenmerken.HeeftOpvullijstRechts); UI.Kenmerken.OpvullijstKleur@mandatory = _HeeftOpvullijst; UI.Kenmerken.OpvullijstKleur@visible = _HeeftOpvullijst; UI.Kenmerken.OpvullijstDikte@visible = _HeeftOpvullijst; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "Opvullijst") then UI.Kenmerken.NietMeeleveren(i)@visible = (_HeeftOpvullijst and Not(Config.Settings.NietMeeleverenVerbergen)); end if; end index; Opvullijst ;ui.kenmerken.opvullijstkleur@mandatory;ui.kenmerken.opvullijstkleur@visible;ui.kenmerken.opvullijstdikte@visible; true UI.Kenmerken.RugHoogte@mandatory = UI.Kenmerken.HeeftAfwijkendeRugHoogte or (UI.Kenmerken.Toepassing == "SY"); UI.Kenmerken.RugHoogte@visible = UI.Kenmerken.HeeftAfwijkendeRugHoogte; RugHoogte ;ui.kenmerken.rughoogte@mandatory;ui.kenmerken.rughoogte@visible; true local boolean _HeeftVoorwandTypeC = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "C")); UI.Kenmerken.VoorwandTypeVanCBinnenlade@mandatory = _HeeftVoorwandTypeC; UI.Kenmerken.VoorwandTypeVanCBinnenlade@visible = _HeeftVoorwandTypeC; VoorwandTypeVanCBinnenlade ;ui.kenmerken.voorwandtypevancbinnenlade@mandatory;ui.kenmerken.voorwandtypevancbinnenlade@visible; true local boolean _HeeftVoorwandTypeM = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "M")); UI.Kenmerken.VoorwandTypeVanMBinnenlade@mandatory = _HeeftVoorwandTypeM; UI.Kenmerken.VoorwandTypeVanMBinnenlade@visible = _HeeftVoorwandTypeM; VoorwandTypeVanMBinnenlade ;ui.kenmerken.voorwandtypevanmbinnenlade@mandatory;ui.kenmerken.voorwandtypevanmbinnenlade@visible; true local boolean _HeeftVoorwandTypeK = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "K")); UI.Kenmerken.VoorwandTypeVanKBinnenlade@visible = _HeeftVoorwandTypeK; UI.Kenmerken.VoorwandTypeVanKBinnenlade@mandatory = _HeeftVoorwandTypeK; VoorwandTypeVanKBinnenlade ;ui.kenmerken.voorwandtypevankbinnenlade@visible;ui.kenmerken.voorwandtypevankbinnenlade@mandatory; true local boolean _HeeftVoorwandTypeK = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "K")); local boolean _HeeftVoorwandTypeM = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "M")); local boolean _HeeftMeenemerSet = (_HeeftVoorwandTypeK or _HeeftVoorwandTypeM); UI.Kenmerken.MeenemerSet@visible = _HeeftMeenemerSet; UI.Kenmerken.MeenemerSet@mandatory = _HeeftMeenemerSet; MeenemerSet ;ui.kenmerken.meenemerset@visible;ui.kenmerken.meenemerset@mandatory; true // UI.Kenmerken.FrontBevestiging@visible = Not(Config.Settings.FrontBevestigingVerbergen); UI.Kenmerken.VerpakkingType@visible = Not(Config.Settings.VerpakkingTypeVerbergen); index i of UI.Kenmerken.NietMeeleveren UI.Kenmerken.NietMeeleveren(i)@visible = (UI.Kenmerken.NietMeeleveren(i)@visible and Not(Config.Settings.NietMeeleverenVerbergen)); end index; Visible properties ;ui.kenmerken.verpakkingtype@visible; false //STATE.Saved //true //local string _Language = GetArg("language"); //local string _Model = GetModel(); UI.Url.OverzichtParameters@length = 2; UI.Url.OverzichtParameters[1].Key = GetLocalizedLabel(UI.Kenmerken.LadeKleur.Value); UI.Url.OverzichtParameters[1].Value = GetLocalizedLabel("bla"); UI.Url.OverzichtParameters[2].Key = GetLocalizedLabel(UI.Kenmerken.BodemKleur.Value); UI.Url.OverzichtParameters[2].Value = GetLocalizedLabel("bla"); local string _BaseUrl = "http://ax-e-con-dev/econsql/VHTest/index.html"; local string _QueryString = ""; if (UI.Url.OverzichtParameters@length > 0) then _QueryString = "?"; end if; index i of UI.Url.OverzichtParameters _QueryString = _QueryString + UI.Url.OverzichtParameters(i).Key + "=" + UI.Url.OverzichtParameters(i).Value; if (i < UI.Url.OverzichtParameters@length) then _QueryString = _QueryString + "&"; end if; end index; UI.Url.Overzicht = _BaseUrl + _QueryString; Output = UI.Url.Overzicht; //Flag = false; Overzicht updaten ;ui.url.overzichtparameters[1].key@value;ui.url.overzichtparameters[1].value@value;ui.url.overzichtparameters[2].key@value;ui.url.overzichtparameters[2].value@value;ui.url.overzicht@value;output@value; (DATA.BerekendeWaarden.AfbeeldingCode <> "") //local string _Url = "./images/Vanhoecke/tbx/AfbeeldingCode/tbx_AB_ER.jpg"; local string _Url = "./images/Vanhoecke/lbx/Test/" + DATA.BerekendeWaarden.AfbeeldingCode + ".svg"; //local string _Url = "http://res.vanhoecke.be/Images/GENERIEK/LEGRA_BOX/" + DATA.BerekendeWaarden.AfbeeldingCode + ".svg"; UI.Image = _Url; //@style = "imgsrc:" + _Url + ";"; Image updaten ;ui.image@value; 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.Kenmerken.CorpusBreedte <> 0) local double _Minimum = RANGE.CorpusBreedte.Minimum; local double _Maximum = RANGE.CorpusBreedte.Maximum; UI.Kenmerken.CorpusBreedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation CorpusBreedte ;ui.kenmerken.corpusbreedte@rangeset; UI.Kenmerken.CorpusWanddikte@visible and (STATE.ValidationNeeded or (UI.Kenmerken.CorpusWanddikte <> 0)) local double _Minimum = 1; local double _Maximum = 100; UI.Kenmerken.CorpusWanddikte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.5;maxdecimals:1;"; Validation CorpusWanddikte on ;ui.kenmerken.corpuswanddikte@rangeset; not(UI.Kenmerken.CorpusWanddikte@visible) UI.Kenmerken.CorpusWanddikte@inputvalidation = ""; Validation CorpusWanddikte off ;ui.kenmerken.corpuswanddikte@rangeset; false //(UI.Kenmerken.InterneBreedte <> 0) local double _Minimum = RANGE.InterneBreedte.Minimum; local double _Maximum = RANGE.InterneBreedte.Maximum; UI.Kenmerken.InterneBreedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.5;maxdecimals:1;"; Validation InterneBreedte ;ui.kenmerken.internebreedte@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.X@visible) and (STATE.ValidationNeeded or (UI.Kenmerken.UitsparingData.X.BreedteRugdeel <> 0)) local double _Minimum = RANGE.UitsparingDataBreedteX.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteX.Maximum; UI.Kenmerken.UitsparingData.X.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteX on ;ui.kenmerken.uitsparingdata.x.breedterugdeel@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.X@visible) UI.Kenmerken.UitsparingData.X.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteX off ;ui.kenmerken.uitsparingdata.x.breedterugdeel@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.M@visible) and (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") and (STATE.ValidationNeeded or (UI.Kenmerken.UitsparingData.M.BreedteRugdeel <> 0)) local double _Minimum = RANGE.UitsparingDataBreedteM.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteM.Maximum; UI.Kenmerken.UitsparingData.M.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteM on ;ui.kenmerken.uitsparingdata.m.breedterugdeel@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.M@visible) UI.Kenmerken.UitsparingData.M.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteM off ;ui.kenmerken.uitsparingdata.m.breedterugdeel@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Y@visible) and (STATE.ValidationNeeded or (UI.Kenmerken.UitsparingData.Y.BreedteRugdeel <> 0)) local double _Minimum = RANGE.UitsparingDataBreedteY.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteY.Maximum; UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteY on ;ui.kenmerken.uitsparingdata.y.breedterugdeel@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.Y@visible) UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteY off ;ui.kenmerken.uitsparingdata.y.breedterugdeel@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z1@visible) and (STATE.ValidationNeeded or (Config.InputMode == "CreateConfig")) local double _Minimum = RANGE.UitsparingDataBreedteZ1.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteZ1.Maximum; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteZ1 on ;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.Z1@visible) UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@inputvalidation = ""; Validation UitsparingData BreedteZ1 off ;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z2@visible) and (STATE.ValidationNeeded or (Config.InputMode == "CreateConfig")) local double _Minimum = RANGE.UitsparingDataBreedteZ2.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteZ2.Maximum; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteZ2 on ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.Z2@visible) UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@inputvalidation = ""; Validation UitsparingData BreedteZ2 off ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@rangeset; true local double _VerwachteBreedte = UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte; local string _InputValidation = ""; // 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.Kenmerken.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.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte@inputvalidation = _InputValidation; Validation UitsparingData TotaleBreedte ;ui.kenmerken.uitsparingdata.uitsparingdata_totalebreedte@rangeset; (STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit or (CONFIG.InputMode == "CreateConfig")) 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.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig")) local string _LadeCode = DATA.Kenmerken.LadeHoogte; if (DATA.Kenmerken.IsBinnenlade) then _LadeCode = _LadeCode + "/Z"; end if; DATA.BerekendeWaarden.LadeCode = _LadeCode; Bereken LadeCode ;data.berekendewaarden.ladecode@value; true DATA.Lijn.GroeperingCode = DATA.Kenmerken.Variant + "_" + DATA.Kenmerken.LadeKleur + ";" + DATA.Kenmerken.BodemKleur; Bepaal GroeperingCode ;data.lijn.groeperingcode@value; STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.Backend == "axapta") or STATE.KlantVoorkeurenSaved if not(UI.Kenmerken.CorpusWanddikte@visible) then DATA.Kenmerken.CorpusWanddikte = 0; UI.Kenmerken.CorpusWanddikte = 0; end if; if (UI.Kenmerken.IsBinnenlade) then // and not (Config.Settings.FrontBevestigingVerbergen) DATA.Kenmerken.FrontBevestiging = ""; UI.Kenmerken.FrontBevestiging = ""; end if; if not(UI.Kenmerken.OpvullijstKleur@visible) then DATA.Kenmerken.OpvullijstKleur = ""; UI.Kenmerken.OpvullijstKleur = ""; end if; if (not(UI.Kenmerken.HeeftOpvullijstLinks) and not(UI.Kenmerken.HeeftOpvullijstRechts)) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = false; end if; if not(UI.Kenmerken.VoorwandTypeVanCBinnenlade@visible) then DATA.Kenmerken.VoorwandTypeVanCBinnenlade = ""; UI.Kenmerken.VoorwandTypeVanCBinnenlade = ""; end if; if not(UI.Kenmerken.VoorwandTypeVanMBinnenlade@visible) then DATA.Kenmerken.VoorwandTypeVanMBinnenlade = ""; UI.Kenmerken.VoorwandTypeVanMBinnenlade = ""; end if; if not(UI.Kenmerken.VoorwandTypeVanKBinnenlade@visible) then DATA.Kenmerken.VoorwandTypeVanKBinnenlade = ""; UI.Kenmerken.VoorwandTypeVanKBinnenlade = ""; end if; if not(DATA.Kenmerken.Toepassing == "SY") then DATA.Kenmerken.UitsparingData.UitsparingAantal = ""; DATA.Kenmerken.UitsparingData.X.Breedte = 0; DATA.Kenmerken.UitsparingData.X.Hoogte = ""; DATA.Kenmerken.UitsparingData.X.Materiaal = ""; DATA.Kenmerken.UitsparingData.Y.Breedte = 0; DATA.Kenmerken.UitsparingData.Y.Hoogte = ""; DATA.Kenmerken.UitsparingData.Y.Materiaal = ""; DATA.Kenmerken.UitsparingData.Z1.Breedte = 0; DATA.Kenmerken.UitsparingData.Z1.Diepte = 0; DATA.Kenmerken.UitsparingData.Z1.Hoogte = ""; DATA.Kenmerken.UitsparingData.Z1.Materiaal = ""; DATA.Kenmerken.UitsparingData.Z1.Vorm = ""; UI.Kenmerken.UitsparingData.UitsparingAantal = ""; UI.Kenmerken.UitsparingData.X.BreedteRugdeel = 0; UI.Kenmerken.UitsparingData.X.Hoogte = ""; UI.Kenmerken.UitsparingData.X.Materiaal = ""; UI.Kenmerken.UitsparingData.Y.BreedteRugdeel = 0; UI.Kenmerken.UitsparingData.Y.Hoogte = ""; UI.Kenmerken.UitsparingData.Y.Materiaal = ""; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 0; UI.Kenmerken.UitsparingData.Z1.Diepte = 0; UI.Kenmerken.UitsparingData.Z1.Hoogte = ""; UI.Kenmerken.UitsparingData.Z1.Materiaal = ""; UI.Kenmerken.UitsparingData.Z1.Vorm = ""; end if; if not(UI.Kenmerken.UitsparingData.M@visible) then DATA.Kenmerken.UitsparingData.M.Breedte = 0; DATA.Kenmerken.UitsparingData.M.Hoogte = ""; DATA.Kenmerken.UitsparingData.M.Materiaal = ""; UI.Kenmerken.UitsparingData.M.BreedteRugdeel = 0; UI.Kenmerken.UitsparingData.M.Hoogte = ""; UI.Kenmerken.UitsparingData.M.Materiaal = ""; end if; if not(UI.Kenmerken.UitsparingData.Z2@visible) then DATA.Kenmerken.UitsparingData.Z2.Breedte = 0; DATA.Kenmerken.UitsparingData.Z2.Diepte = 0; DATA.Kenmerken.UitsparingData.Z2.Hoogte = ""; DATA.Kenmerken.UitsparingData.Z2.Materiaal = ""; DATA.Kenmerken.UitsparingData.Z2.Vorm = ""; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 0; UI.Kenmerken.UitsparingData.Z2.Diepte = 0; UI.Kenmerken.UitsparingData.Z2.Hoogte = ""; UI.Kenmerken.UitsparingData.Z2.Materiaal = ""; UI.Kenmerken.UitsparingData.Z2.Vorm = ""; end if; if not(UI.Kenmerken.HeeftMat) then DATA.Kenmerken.MatMateriaal = ""; DATA.Kenmerken.MatKleur = ""; UI.Kenmerken.MatMateriaal = ""; UI.Kenmerken.MatAntislipFiberKleur = ""; UI.Kenmerken.MatAntislipFlockKleur = ""; UI.Kenmerken.MatAntislipKleur = ""; UI.Kenmerken.MatVinylFiberglassKleur = ""; UI.Kenmerken.MatWolviltKleur = ""; end if; Verborgen properties wissen ;data.kenmerken.corpuswanddikte@value;ui.kenmerken.corpuswanddikte@value;data.kenmerken.frontbevestiging@value;ui.kenmerken.frontbevestiging@value;data.kenmerken.opvullijstkleur@value;ui.kenmerken.opvullijstkleur@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.voorwandtypevancbinnenlade@value;ui.kenmerken.voorwandtypevancbinnenlade@value;data.kenmerken.voorwandtypevanmbinnenlade@value;ui.kenmerken.voorwandtypevanmbinnenlade@value;data.kenmerken.voorwandtypevankbinnenlade@value;ui.kenmerken.voorwandtypevankbinnenlade@value;data.kenmerken.uitsparingdata.uitsparingaantal@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;ui.kenmerken.uitsparingdata.uitsparingaantal@value;ui.kenmerken.uitsparingdata.x.breedterugdeel@value;ui.kenmerken.uitsparingdata.x.hoogte@value;ui.kenmerken.uitsparingdata.x.materiaal@value;ui.kenmerken.uitsparingdata.y.breedterugdeel@value;ui.kenmerken.uitsparingdata.y.hoogte@value;ui.kenmerken.uitsparingdata.y.materiaal@value;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@value;ui.kenmerken.uitsparingdata.z1.diepte@value;ui.kenmerken.uitsparingdata.z1.hoogte@value;ui.kenmerken.uitsparingdata.z1.materiaal@value;ui.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;ui.kenmerken.uitsparingdata.m.breedterugdeel@value;ui.kenmerken.uitsparingdata.m.hoogte@value;ui.kenmerken.uitsparingdata.m.materiaal@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;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@value;ui.kenmerken.uitsparingdata.z2.diepte@value;ui.kenmerken.uitsparingdata.z2.hoogte@value;ui.kenmerken.uitsparingdata.z2.materiaal@value;ui.kenmerken.uitsparingdata.z2.vorm@value;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value;ui.kenmerken.matmateriaal@value;ui.kenmerken.matantislipfiberkleur@value;ui.kenmerken.matantislipflockkleur@value;ui.kenmerken.matantislipkleur@value;ui.kenmerken.matvinylfiberglasskleur@value;ui.kenmerken.matwolviltkleur@value; STATE.SavedAndExit or STATE.SavedAndContinue or (Config.Backend == "axapta") if (UI.Kenmerken.ProductieWijze == "") then DATA.Kenmerken.ProductieWijze = "V"; end if; if (DATA.Kenmerken.Toepassing == "SP") then local double _Breedte = 158; DATA.Kenmerken.UitsparingData.UitsparingAantal = "Enkel"; DATA.Kenmerken.UitsparingData.X.Breedte = _Breedte; DATA.Kenmerken.UitsparingData.X.Hoogte = "M"; DATA.Kenmerken.UitsparingData.X.Materiaal = "Staal"; DATA.Kenmerken.UitsparingData.Y.Breedte = _Breedte; DATA.Kenmerken.UitsparingData.Y.Hoogte = "M"; DATA.Kenmerken.UitsparingData.Y.Materiaal = "Staal"; DATA.Kenmerken.UitsparingData.Z1.Breedte = DATA.BerekendeWaarden.InterneBreedte - (2 * _Breedte); DATA.Kenmerken.UitsparingData.Z1.Diepte = 0; DATA.Kenmerken.UitsparingData.Z1.Hoogte = ""; DATA.Kenmerken.UitsparingData.Z1.Materiaal = ""; DATA.Kenmerken.UitsparingData.Z1.Vorm = "Recht"; end if; Verborgen properties defaulten ;data.kenmerken.productiewijze@value;data.kenmerken.uitsparingdata.uitsparingaantal@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; 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 _LadeKleurOptionLabel = DATA.Kenmerken.LadeKleur@id + "_" + DATA.Kenmerken.LadeKleur@option(DATA.Kenmerken.LadeKleur)@id; local string _BodemKleurOptionLabel = DATA.Kenmerken.BodemKleur@id + "_" + DATA.Kenmerken.BodemKleur@option(DATA.Kenmerken.BodemKleur)@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 _LadeKleurInfo = GetLabel(DATA.Kenmerken.LadeKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_LadeKleurOptionLabel; _Model; ""; _TaalCode); local string _BodemKleurInfo = GetLabel(DATA.Kenmerken.BodemKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_BodemKleurOptionLabel; _Model; ""; _TaalCode); local string _Groepering = "LEGRABOX - "; if (_TaalCode == "de") then _Groepering = _Groepering + _LadeKleurInfo + ", " + _BodemKleurInfo; else _Groepering = _Groepering + LCase(_LadeKleurInfo) + ", " + LCase(_BodemKleurInfo); end if; 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 = _Groepering; 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 = ""; 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 _ToepassingOptionLabel = DATA.Kenmerken.Toepassing@id + "_" + DATA.Kenmerken.Toepassing@option(DATA.Kenmerken.Toepassing)@id; 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 string _RugwandMateriaalOptionLabel = DATA.Kenmerken.RugwandMateriaal@id + "_" + DATA.Kenmerken.RugwandMateriaal@option(DATA.Kenmerken.RugwandMateriaal)@id; local string _VerpakkingTypeOptionLabel = DATA.Kenmerken.VerpakkingType@id + "_" + DATA.Kenmerken.VerpakkingType@option(DATA.Kenmerken.VerpakkingType)@id; local string _VoorwandTypeVanMBinnenladeOptionLabel = DATA.Kenmerken.VoorwandTypeVanMBinnenlade@id + "_" + DATA.Kenmerken.VoorwandTypeVanMBinnenlade@option(DATA.Kenmerken.VoorwandTypeVanMBinnenlade)@id; local string _VoorwandTypeVanCBinnenladeOptionLabel = DATA.Kenmerken.VoorwandTypeVanCBinnenlade@id + "_" + DATA.Kenmerken.VoorwandTypeVanCBinnenlade@option(DATA.Kenmerken.VoorwandTypeVanCBinnenlade)@id; local string _VoorwandTypeVanKBinnenladeOptionLabel = DATA.Kenmerken.VoorwandTypeVanKBinnenlade@id + "_" + DATA.Kenmerken.VoorwandTypeVanKBinnenlade@option(DATA.Kenmerken.VoorwandTypeVanKBinnenlade)@id; local string _ZijwandTypeOptionLabel = DATA.Kenmerken.ZijwandType@id + "_" + DATA.Kenmerken.ZijwandType@option(DATA.Kenmerken.ZijwandType)@id; local string _RugHoogteOptionLabel = DATA.Kenmerken.RugHoogte@id + "_" + DATA.Kenmerken.RugHoogte@option(DATA.Kenmerken.RugHoogte)@id; local string _ProductieWijzeOptionLabel = DATA.Kenmerken.ProductieWijze@id + "_" + DATA.Kenmerken.ProductieWijze@option(DATA.Kenmerken.ProductieWijze)@id; 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 _InfoToepassing = ""; local string _InfoGeleider = ""; local string _InfoMat = ""; local string _InfoZijwandType = ""; local string _InfoZijstabilisering = ""; local string _InfoOpvullijst = ""; local string _InfoVoorwandType = ""; local string _InfoMeenemerSet = ""; local string _InfoVerpakking = ""; local string _InfoRugwandMateriaal = ""; local string _InfoRugHoogte = ""; local string _InfoProductieWijze = ""; local string _InfoDwarsverdeling = ""; local string _InfoNietMeeleveren = ""; local string _UitsparingAfmetingen = ""; if (UI.Kenmerken.Toepassing <> "L") then if (UI.Kenmerken.Toepassing == "SY") then local string _X = CStr(UI.Kenmerken.UitsparingData.X.BreedteRugdeel); local string _M = CStr(UI.Kenmerken.UitsparingData.M.BreedteRugdeel); local string _Y = CStr(UI.Kenmerken.UitsparingData.Y.BreedteRugdeel); local string _Z1 = CStr(UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing); local string _Z2 = CStr(UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing); _UitsparingAfmetingen = _UitsparingAfmetingen + " (" +_X + "/" + _Z1; if (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + _M + "/" + _Z2; end if; _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + _Y + ")"; end if; _InfoToepassing = GetLabel(_ToepassingOptionLabel; _Model; ""; _TaalCode) + _UitsparingAfmetingen; end if; if (UI.Kenmerken.GeleiderTechnologie == "TOB") then _InfoGeleider = GetLabel(_GeleiderTechnologieOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.HeeftMat) then local string _MatMateriaalOptionLabel = "MatMateriaal_" + DATA.Kenmerken.MatMateriaal; local string _MatKleurOptionLabel = switch DATA.Kenmerken.MatMateriaal case "CV": "MatWolviltKleur_" + UI.Kenmerken.MatWolviltKleur.Value case "CF": "MatVinylFiberglassKleur_" + UI.Kenmerken.MatVinylFiberglassKleur.Value case "AS": "MatAntislipKleur_" + UI.Kenmerken.MatAntislipKleur.Value case "AF": "MatAntislipFiberKleur_" + UI.Kenmerken.MatAntislipFiberKleur.Value case "AZ": "MatAntislipFlockKleur_" + UI.Kenmerken.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; end if; if (UI.Kenmerken.ZijwandType == "Free") then _InfoZijwandType = GetLabel(_ZijwandTypeOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.HeeftZijstabilisering) then _InfoZijstabilisering = GetLabel(UI.Kenmerken.HeeftZijstabilisering@id; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.HeeftOpvullijstLinks or UI.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = GetLabel("InfoDiverse_Opvullijst"; _Model; ""; _TaalCode) + ": "; local string _Links = GetLabel("Links"; _Model; ""; _TaalCode); local string _Rechts = GetLabel("Rechts"; _Model; ""; _TaalCode); if (UI.Kenmerken.HeeftOpvullijstLinks and UI.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = _InfoOpvullijst + _Links + "+" + _Rechts; else if (UI.Kenmerken.HeeftOpvullijstLinks) then _InfoOpvullijst = _InfoOpvullijst + _Links; end if; if (UI.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = _InfoOpvullijst + _Rechts; end if; end if; end if; if ((_InfoOpvullijst <> "") and (UI.Kenmerken.OpvullijstKleur <> "")) then _InfoOpvullijst = _InfoOpvullijst + " (" + GetLabel(_OpvullijstKleurOptionLabel ; _Model; ""; _TaalCode) + ")"; end if; if (UI.Kenmerken.VoorwandTypeVanMBinnenlade <> "") then _InfoVoorwandType = GetLabel(UI.Kenmerken.VoorwandTypeVanMBinnenlade@id; _Model; ""; _TaalCode) + ": " + GetLabel(_VoorwandTypeVanMBinnenladeOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.VoorwandTypeVanCBinnenlade <> "") then _InfoVoorwandType = GetLabel(UI.Kenmerken.VoorwandTypeVanCBinnenlade@id; _Model; ""; _TaalCode) + ": " + GetLabel(_VoorwandTypeVanCBinnenladeOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.VoorwandTypeVanKBinnenlade <> "") then _InfoVoorwandType = GetLabel(UI.Kenmerken.VoorwandTypeVanKBinnenlade@id; _Model; ""; _TaalCode) + ": " + GetLabel(_VoorwandTypeVanKBinnenladeOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.MeenemerSet == "V") then _InfoMeenemerSet = GetLabel(UI.Kenmerken.MeenemerSet@id; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.VerpakkingType <> "V1") then _InfoVerpakking = GetLabel(_VerpakkingTypeOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.RugwandMateriaal == "Staal") then _InfoRugwandMateriaal = GetLabel(UI.Kenmerken.RugwandMateriaal@id; _Model; ""; _TaalCode) + ": " + GetLabel(_RugwandMateriaalOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.HeeftAfwijkendeRugHoogte) then _InfoRugHoogte = GetLabel(UI.Kenmerken.RugHoogte@id; _Model; ""; _TaalCode) + ": " + GetLabel(_RugHoogteOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.ProductieWijze <> "V") then _InfoProductieWijze = GetLabel("InfoDiverse_Enkel"; _Model; ""; _TaalCode) + " " + GetLabel(_ProductieWijzeOptionLabel; _Model; ""; _TaalCode); end if; if ((UI.Kenmerken.DwarsverdelingAantal <> "") and (CLng(UI.Kenmerken.DwarsverdelingAantal) > 0)) then _InfoDwarsverdeling = GetLabel(UI.Kenmerken.DwarsverdelingAantal@id; _Model; ""; _TaalCode) + " (" + GetLabel("Aantal"; _Model; ""; _TaalCode) + ": " + UI.Kenmerken.DwarsverdelingAantal + ")"; end if; index j of UI.Kenmerken.NietMeeleveren local string _Separator = ", "; if (_InfoNietMeeleveren == "") then _Separator = ""; end if; if (UI.Kenmerken.NietMeeleveren(j).IsSelected) and (UI.Kenmerken.NietMeeleveren(j)@visible) then _InfoNietMeeleveren = _InfoNietMeeleveren + _Separator + GetLabel(UI.Kenmerken.NietMeeleveren@id + "_" + UI.Kenmerken.NietMeeleveren(j).Id; _Model; ""; _TaalCode); end if; end index; if (_InfoNietMeeleveren <> "") then _InfoNietMeeleveren = GetLabel(UI.Kenmerken.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 = 14; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[1] = _InfoToepassing; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[2] = _InfoGeleider; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[3] = _InfoMat; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[4] = _InfoZijwandType; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[5] = _InfoZijstabilisering; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[6] = _InfoOpvullijst; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[7] = _InfoVoorwandType; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[8] = _InfoMeenemerSet; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[9] = _InfoVerpakking; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[10] = _InfoRugwandMateriaal; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[11] = _InfoRugHoogte; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[12] = _InfoProductieWijze; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[13] = _InfoDwarsverdeling; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[14] = _InfoNietMeeleveren; end for; WinkelkarInfo - InfoDiverse ;state.winkelkarinfodiversecalculated@value; STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig") or (CONFIG.Backend == "axapta") if (DATA.Kenmerken.ProductieWijze <> "V") then ItemId = "9.963.542.8" else if (DATA.Kenmerken.VerpakkingType == "V1") then ItemId = "9.657.336.8" end if; if (DATA.Kenmerken.VerpakkingType == "VHoss") then ItemId = "9.963.666.8" end if; if (DATA.Kenmerken.VerpakkingType == "Probox") then ItemId = "9.963.585.8" end if; if (DATA.Kenmerken.VerpakkingType == "Pallet") then ItemId = "9.963.615.8" end if; end if; // tijdelijk totdat kenmerken binnenkomen if (ItemId == "") then ItemId = "9.657.336.8" 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 or STATE.SavedAndContinue) and (InvalidFields() == 0)) or (CONFIG.Backend == "axapta")) Defaults voor verborgen properties ; (CONFIG.Settings.OperationMode == "Extern") if ((UI.Kenmerken.Toepassing <> "SY") and not(UI.Kenmerken.HeeftAfwijkendeRugHoogte)) then DATA.Kenmerken.RugHoogte = DATA.Kenmerken.LadeHoogte; end if; RugHoogte ;data.kenmerken.rughoogte@value; (CONFIG.Settings.OperationMode == "Extern") if (UI.Kenmerken.Toepassing == "SP") then DATA.Kenmerken.RugwandMateriaal = "Staal"; else DATA.Kenmerken.RugwandMateriaal = "Hout"; end if; RugwandMateriaal ;data.kenmerken.rugwandmateriaal@value; false //STATE.ProcessedAndExit STATE.ProcessedAndExit = false; STATE.ValidationNeeded = true; if (InvalidFields() == 0) then local boolean _Result = ProcessAndExit(true); 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; ProcessAndExit ;state.processedandexit@value;state.validationneeded@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; V1 Probox VHoss Pallet Pure Free BAIAAAAAAAA= N M K C F V1 Probox VHoss Pallet BQMAAAAAAAA= 40 70 270 300 350 400 450 500 550 600 650 AgEAAAAAAAACAgAAAAAAAAIDAAAAAAAAAgQAAAAAAAABCQAAAAAAAA== 270 300 350 400 450 500 550 600 650 N M K C F AQEAAAAAAAACAQAAAAAAAAMBAAAAAAAACAEAAAAAAAAJAQAAAAAAAAEDAAAAAAAACQMAAAAAAAABBQAAAAAAAAIFAAAAAAAA 270 300 350 400 450 500 550 600 650 N M K C F Pure Free AQQCAAAAAAACBAIAAAAAAA== false true V R B B-R RH F AQYAAAAAAAA= false true N M K C F AgEAAAAAAAACBQAAAAAAAA== N M K C F Pure Free AQIAAAAAAAACAgAAAAAAAAMCAAAAAAAABQIAAAAAAAA= 270 300 350 400 450 500 550 600 650 L SP SY AQIAAAAAAAACAgAAAAAAAAMCAAAAAAAABwIAAAAAAAAIAgAAAAAAAAkCAAAAAAAAAQMAAAAAAAACAwAAAAAAAA== false true L SP SY AgIAAAAAAAACAwAAAAAAAA== B TOB L SP SY AgIAAAAAAAA= false true L SP SY AgIAAAAAAAA= Hout Staal L SP SY AQIAAAAAAAACAwAAAAAAAA== N M K C F L SP SY AQIAAAAAAAADAgAAAAAAAAUCAAAAAAAAAQMAAAAAAAA= L SP SY V1 Probox VHoss Pallet AgQAAAAAAAADBAAAAAAAAA== N M K C F L SP SY AQMAAAAAAAADAwAAAAAAAAQDAAAAAAAABQMAAAAAAAA= B TOB 270 300 350 400 450 500 550 600 650 L SP SY AgEDAAAAAAACAgMAAAAAAA== 270 300 350 400 450 500 550 600 650 N M K C F SW-M OG-M TS-M PS-M INGL AwUBAAAAAAADBQMAAAAAAAMFBAAAAAAABAEFAAAAAAAHAQUAAAAAAAIDBQAAAAAACAMFAAAAAAADBQUAAAAAAA== false true 270 300 350 400 450 500 550 600 650 N M K C F SW-M OG-M TS-M PS-M INGL AQEDAgAAAAABAwUCAAAAAA== false true Glas Metaal AQEAAAAAAAA= Intern Extern N M K C F L SP SY AgUDAAAAAAA= 270 300 350 400 450 500 550 600 650 ANTR S FW FA FS BS QZ BLW OR PG ROT ZW S-AZ ANTR-AZ CV CF AS AF AZ BQgBAAAAAAAGCAEAAAAAAAcIAQAAAAAACAgBAAAAAAAJCAEAAAAAAAcJAQAAAAAACAkBAAAAAAAJCQEAAAAAAAcKAQAAAAAACAoBAAAAAAAJCgEAAAAAAAcLAQAAAAAACAsBAAAAAAAJCwEAAAAAAAUMAQAAAAAABgwBAAAAAAAHDAEAAAAAAAgMAQAAAAAACQwBAAAAAAA= false true Z V Glas Metaal AgIBAAAAAAA= B TOB Z V AgIAAAAAAAA= ANTR S FW FA FS BS QZ BLW OR PG ROT ZW S-AZ ANTR-AZ CV CF AS AF AZ CwEAAAAAAAA=