trueSQLCon = GetSetting("data.sql.connectionstring") & ";cache=false";Connections;sqlcon@value;true
Result.VoorkeurenKlaar = true;
Rule1;result.voorkeurenklaar@value;Overview.LoadKlantConfiguraties
Overview.LoadKlantConfiguraties = false;
local string _SearchKey = "%" + "_12348" + "%";
local string _Query = "SELECT modelname, id, name FROM eCon.Configurations " +
" WHERE name LIKE '" + _SearchKey + "' AND modelname = '" + FromMainModel.ModelName + "' " ;
local boolean _CopyOptionsToArray;
Overview.KlantConfiguraties@options = ExecuteOptionsQuery(Overview.KlantConfiguraties@localname; true; SQLCon; _Query);
_CopyOptionsToArray = CopyOptionsToArray(Overview.KlantConfiguraties@localname; Overview.Config@localname);
KlantConfiguraties ophalen;overview.loadklantconfiguraties@value;overview.klantconfiguraties@options;trueindex c1 of Overview.Config;
Overview.Config(c1)@repeat = false;
if Overview.Config(c1).Load then
Overview.Config(c1).Load = false;
Overview.Config(c1).Loaded = true;
Overview.LoadedConfigID = Overview.Config(c1).ConfigId;
Overview.LoadedConfigName = Overview.Config(c1).Name;
Overview.LoadedLine = c1;
index c2 of Overview.Config;
if c1 <> c2 then
Overview.Config(c2).Loaded = false;
end if;
end index;
end if;
Overview.Config(c1).Name@style.controlclass = if Overview.Config(c1).Loaded then "bold" else "" end if;
end index;Configurations;overview.config[1].load@value;overview.config[1].loaded@value;overview.loadedconfigid@value;overview.loadedconfigname@value;overview.loadedline@value;Overview.LoadedConfigID <> ""local string _Query = "SELECT propertyname, shortname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" +
Overview.LoadedConfigID + "' AND propertyname LIKE 'Data.%' AND value <> ''";
local boolean _CopyOptionsToArray;
Preferences.ConfigAnalyseProperties@options = ExecuteOptionsQuery(Preferences.ConfigAnalyseProperties@localname; true; SQLCon; _Query);
_CopyOptionsToArray = CopyOptionsToArray(Preferences.ConfigAnalyseProperties@localname; Preferences.Preferences@localname);Config analyseProperties;preferences.configanalyseproperties@options;Preferences.Preferences@length > 0index p of Preferences.Preferences;
Preferences.Preferences(p)@repeat = false;
end index;Preferences;true
local boolean _IsVisible;
index p of Preferences.Preferences;
if Preferences.Preferences(p).PropertyName <> "" then
_IsVisible = false;
for i = 1 to Len(Preferences.KenmerknamenLBX@options)
if LCase(Preferences.Preferences(p).PropertyName) == LCase(Preferences.KenmerknamenLBX@option(i)@id) then
_IsVisible = true;
end if;
end for;
Preferences.Preferences(p)@Visible = _IsVisible;
Preferences.Preferences(p).visible = _IsVisible;
end if;
end index
Make preferences visible;preferences.preferences[1]@visible;preferences.preferences[1].visible@value;true
local boolean _IsBooleanValue;
index p of Preferences.Preferences;
_IsBooleanValue = (Preferences.Preferences(p).Value in {"true"; "false"});
if _IsBooleanValue then
Preferences.Preferences(p).BooleanValue = CBool(Preferences.Preferences(p).Value);
else
Preferences.Preferences(p).TranslatedValue = GetLabel(Preferences.Preferences(p).ShortName + "_" + Preferences.Preferences(p).Value; FromMainModel.ModelName; ""; FromMainModel.TaalCode);
end if;
Preferences.Preferences(p).BooleanValue@visible = _IsBooleanValue;
// Preferences.Preferences(p).Value@visible = not(_IsBooleanValue);
Preferences.Preferences(p).TranslatedValue@visible = not(_IsBooleanValue);
end index;
Typed values;preferences.preferences[1].booleanvalue@value;preferences.preferences[1].booleanvalue@visible;preferences.preferences[1].translatedvalue@visible;true
index p of Preferences.Preferences;
Preferences.Preferences(p).KenmerkNaam = GetLabel(Preferences.Preferences(p).ShortName; FromMainModel.ModelName; ""; FromMainModel.TaalCode);
end index;
Kenmerknamen vertalen;preferences.preferences[1].kenmerknaam@value;BottomButtons.ActivateBottomButtons.Activate = false;
index c of Overview.Config;
if Overview.Config(c).ConfigId == Overview.LoadedConfigID then
Overview.Config(c).Active = true;
else
Overview.Config(c).Active = false;
end if
end index;Activate;bottombuttons.activate@value;true// popup afsluiten
// Result.NewConfig = _ConfigName;
BottomButtons.Copy2@default = "task:eCon.UI.Tasks.SetValueTask:'" + BottomButtons.Copy@localname + "','true',true,true|" +
"task:eCon.UI.Tasks.ExitTask:true,null,true";
Copy2 instellen;bottombuttons.copy2@default;BottomButtons.Copy
BottomButtons.Copy = false;
local long _Line;
local long _CopiedFromLine;
local string _SequenceNr = "002";
local string _ConfigName = "LBX_1_12348" + "_" + _SequenceNr;
_Line = AddPosition(Overview.Config@localname; Overview.Config[1].Name@id; _ConfigName);
Overview.Config(_Line).ConfigId = Overview.LoadedConfigId;
Overview.Config(_Line).Name = _ConfigName;
Overview.Config(_Line).CopiedFrom = Overview.LoadedConfigName;
Overview.Config(_Line).Active = false;
Overview.Config(_Line).Loaded = true;
Overview.Config(Overview.LoadedLine).Loaded = false;
Result.VoorkeurenKlaar = true;
Copy;bottombuttons.copy@value;overview.config[1].configid@value;overview.config[1].name@value;overview.config[1].copiedfrom@value;overview.config[1].active@value;overview.config[1].loaded@value;result.voorkeurenklaar@value;trueDelete