Index: development/models/zTryout/Wilmer/ConfigTemplates.xml =================================================================== diff -u -r1877 -r1888 --- development/models/zTryout/Wilmer/ConfigTemplates.xml (.../ConfigTemplates.xml) (revision 1877) +++ development/models/zTryout/Wilmer/ConfigTemplates.xml (.../ConfigTemplates.xml) (revision 1888) @@ -1,7 +1,7 @@ - + - + @@ -13,120 +13,160 @@ - + - + + + + + + + - + - + - + - + + + + + + + - + + + + - + - + - + - + - + + + - + + + + + + + - + - + - + + + + + + + + + + + - + - + - + + + - + - - - - - - - - + + + + @@ -138,17 +178,44 @@ 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; + true index 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).ID; - index c2 of Overview.Config; + 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; @@ -159,36 +226,91 @@ end index; Configurations - ;overview.config[1].load@value;overview.config[1].loaded@value;overview.loadedconfigid@value; + ;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, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + + 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("CONFIG.Database.ConfigAnalyseProperties"; true; SQLCon; _Query); +Preferences.ConfigAnalyseProperties@options = ExecuteOptionsQuery(Preferences.ConfigAnalyseProperties@localname; true; SQLCon; _Query); _CopyOptionsToArray = CopyOptionsToArray(Preferences.ConfigAnalyseProperties@localname; Preferences.Preferences@localname); Config analyseProperties ;preferences.configanalyseproperties@options; - true + Preferences.Preferences@length > 0 index 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.Activate BottomButtons.Activate = false; index c of Overview.Config; - if Overview.Config(c).ID == Overview.LoadedConfigID then + if Overview.Config(c).ConfigId == Overview.LoadedConfigID then Overview.Config(c).Active = true; else Overview.Config(c).Active = false; @@ -197,11 +319,45 @@ 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; true @@ -217,7 +373,11 @@ + + + +