Index: development/models/mat/MAT Configurator,1.0.0.xml
===================================================================
diff -u -r2435 -r2452
--- development/models/mat/MAT Configurator,1.0.0.xml (.../MAT Configurator,1.0.0.xml) (revision 2435)
+++ development/models/mat/MAT Configurator,1.0.0.xml (.../MAT Configurator,1.0.0.xml) (revision 2452)
@@ -7,30 +7,30 @@
-
+
-
+
-
+
-
+
-
+
@@ -40,23 +40,23 @@
-
+
-
+
-
+
-
+
-
+
@@ -81,7 +81,7 @@
-
+
@@ -106,7 +106,7 @@
-
+
@@ -119,20 +119,20 @@
-
+
-
+
-
+
-
+
-
+
@@ -142,7 +142,7 @@
-
+
@@ -155,57 +155,66 @@
-
+
-
+
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
+
+
+
-
-
-
-
+
+
+
+
+
+
+
-
+
-
-
-
+
+
+
-
+
-
+
@@ -219,7 +228,7 @@
-
+
@@ -233,29 +242,43 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -276,7 +299,9 @@
-
+
+
+
@@ -285,18 +310,22 @@
-
+
+
+
-
+
-
+
-
+
+
+
@@ -307,23 +336,27 @@
-
+
+
+
-
+
-
+
-
+
+
+
-
+
@@ -338,11 +371,11 @@
-
+
-
+
@@ -377,7 +410,7 @@
-
+
@@ -392,10 +425,10 @@
-
+
-
+
@@ -404,7 +437,7 @@
-
+
@@ -419,27 +452,27 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
@@ -460,11 +493,11 @@
-
+
-
+
-
+
@@ -473,7 +506,7 @@
-
+
@@ -499,7 +532,7 @@
-
+
@@ -525,7 +558,7 @@
-
+
@@ -543,7 +576,7 @@
-
+
@@ -564,10 +597,10 @@
-
+
-
+
@@ -583,7 +616,7 @@
-
+
@@ -596,17 +629,17 @@
-
+
-
+
-
+
@@ -623,7 +656,7 @@
-
+
@@ -637,10 +670,10 @@
-
+
-
+
@@ -653,56 +686,58 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
+
+
-
+
-
+
-
+
-
+
@@ -1194,46 +1229,9 @@
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;
-local string _ZijwandType;
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 == "Data.Kenmerken.Zijwandtype") then
- _ZijwandType = CONFIG.Database.ConfigAnalyseProperties.Value;
- end if;
-end for;
-
-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.BijhorendeLadeConfiguratie@options) then
- if (CONFIG.Database.ConfigAnalyseProperties.PropertyName == "Data.Kenmerken.Variant") then
- aaaDebugInfo = CONFIG.Database.ConfigAnalyseProperties.PropertyName;
- if (CONFIG.Database.ConfigAnalyseProperties.Value == "LBX") then
- if (_ZijwandType == "Free") then
- DATA.Kenmerken.LadeType = "LegraboxFree";
- else
- DATA.Kenmerken.LadeType = "LegraboxPure";
- end if;
- end if;
- if (CONFIG.Database.ConfigAnalyseProperties.Value == "MVX") then
- DATA.Kenmerken.LadeType = "Merivobox";
- end if;
- if (CONFIG.Database.ConfigAnalyseProperties.Value == "TAX") then
- DATA.Kenmerken.LadeType = "Taorbox";
- end if;
- if (CONFIG.Database.ConfigAnalyseProperties.Value == "TBX") then
- DATA.Kenmerken.LadeType = "Tandembox";
- end if;
- else
- _Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value);
- end if;
- end if;
-end for;
BijhorendeLadeConfiguratie:: Properties ophalen op basis van ConfigId
;config.database.configanalyseproperties@options;
@@ -1256,6 +1254,7 @@
STATE.ReferentieConfiguratieLoaded and (CONFIG.Database.Configurations.Name == CONFIG.ReferentieConfiguratie)
STATE.ReferentieConfiguratieLoaded = false;
+STATE.GebruikDefaultWaarden = true;
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.%'";
@@ -1267,13 +1266,13 @@
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);
+ if ((CONFIG.Database.ConfigAnalyseProperties.PropertyName + "Default") in CONFIG.Defaults.ReferentieConfiguratie@options) then
+ _Result = SetValue((CONFIG.Database.ConfigAnalyseProperties.PropertyName + "Default"); CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
end for;
ReferentieConfiguratie: Properties ophalen op basis van ConfigId
- ;state.referentieconfiguratieloaded@value;config.database.configanalyseproperties@options;
+ ;state.referentieconfiguratieloaded@value;state.gebruikdefaultwaarden@value;config.database.configanalyseproperties@options;
(CONFIG.ReferentieConfiguratie == "") and (CONFIG.InputMode <> "Edit") and (CONFIG.Settings.KlantId <> "") and (CONFIG.Settings.PersonalityId <> "")
@@ -1293,6 +1292,7 @@
STATE.KlantVoorkeurenLoaded and (CONFIG.Database.Configurations.Name == CONFIG.KlantVoorkeurenConfigurationName)
STATE.KlantVoorkeurenLoaded = false;
+STATE.GebruikDefaultWaarden = true;
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 <> ''";
@@ -1304,13 +1304,13 @@
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);
+ if ((CONFIG.Database.ConfigAnalyseProperties.PropertyName + "Default") in CONFIG.Defaults.KlantVoorkeuren@options) then
+ _Result = SetValue((CONFIG.Database.ConfigAnalyseProperties.PropertyName + "Default"); CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
end for;
KlantVoorkeuren: Properties ophalen op basis van ConfigId
- ;state.klantvoorkeurenloaded@value;config.database.configanalyseproperties@options;
+ ;state.klantvoorkeurenloaded@value;state.gebruikdefaultwaarden@value;config.database.configanalyseproperties@options;
(CONFIG.ReferentieConfiguratie == "") and (CONFIG.InputMode <> "Edit") and (CONFIG.Settings.PersonalityId <> "") and (len(CONFIG.Database.ConfigAnalyseProperties) == 0)
@@ -1332,6 +1332,7 @@
STATE.PersonalityVoorkeurenLoaded and (CONFIG.Database.Configurations.Name == CONFIG.PersonalityVoorkeurenConfigurationName)
STATE.PersonalityVoorkeurenLoaded = false;
+STATE.GebruikDefaultWaarden = true;
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 <> ''";
@@ -1343,13 +1344,13 @@
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);
+ if ((CONFIG.Database.ConfigAnalyseProperties.PropertyName + "Default") in CONFIG.Defaults.PersonalityVoorkeuren@options) then
+ _Result = SetValue((CONFIG.Database.ConfigAnalyseProperties.PropertyName + "Default"); CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
end for;
PersonalityVoorkeuren: Properties ophalen op basis van ConfigId
- ;state.personalityvoorkeurenloaded@value;config.database.configanalyseproperties@options;
+ ;state.personalityvoorkeurenloaded@value;state.gebruikdefaultwaarden@value;config.database.configanalyseproperties@options;
@@ -1385,7 +1386,11 @@
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.Materiaal = GetArg("data;kenmerken;materiaal");
else
- if not(BEHAVIOR.OperationMode == "AxCreate") then
+ if (STATE.GebruikDefaultWaarden) then
+ DATA.Kenmerken.Materiaal = DATA.Kenmerken.MateriaalDefault;
+ end if;
+
+ if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.GebruikDefaultWaarden)) then
DATA.Kenmerken.Materiaal = UI.Kenmerken.Materiaal.Value;
end if;
end if;
@@ -1409,7 +1414,11 @@
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.Kleur = GetArg("data;kenmerken;kleur");
else
- if not(BEHAVIOR.OperationMode == "AxCreate") then
+ if (STATE.GebruikDefaultWaarden) then
+ DATA.Kenmerken.Kleur = DATA.Kenmerken.KleurDefault;
+ end if;
+
+ if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.GebruikDefaultWaarden)) then
DATA.Kenmerken.Kleur = switch (DATA.Kenmerken.Materiaal)
case "CF": UI.Kenmerken.MatVinylFiberglassKleur.Value
case "AF": UI.Kenmerken.MatAntislipFiberKleur.Value
@@ -1700,6 +1709,31 @@
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.LadeType = GetArg("data;kenmerken;ladetype");
else
+ if (STATE.BijhorendeLadeConfiguratieLoaded) then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Zijwandtype")@id;
+ local string _ZijwandType = CONFIG.Database.ConfigAnalyseProperties.Value;
+
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Variant")@id;
+ local string _LadeVariant = CONFIG.Database.ConfigAnalyseProperties.Value;
+
+ if (_LadeVariant == "LBX") then
+ if (_ZijwandType == "Free") then
+ DATA.Kenmerken.LadeType = "LegraboxFree";
+ else
+ DATA.Kenmerken.LadeType = "LegraboxPure";
+ end if;
+ end if;
+ if (_LadeVariant == "MVX") then
+ DATA.Kenmerken.LadeType = "Merivobox";
+ end if;
+ if (_LadeVariant == "TAX") then
+ DATA.Kenmerken.LadeType = "Taorbox";
+ end if;
+ if (_LadeVariant == "TBX") then
+ DATA.Kenmerken.LadeType = "Tandembox";
+ end if;
+ end if;
+
if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
DATA.Kenmerken.LadeType = UI.Kenmerken.LadeType;
end if;
@@ -1733,7 +1767,16 @@
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.IsBinnenBreedte = CBool(GetArg("data;kenmerken;isbinnenbreedte"));
else
- if (not(BEHAVIOR.OperationMode == "AxCreate")and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
+ if (STATE.BijhorendeLadeConfiguratieLoaded) then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Isbinnenbreedte")@id;
+ DATA.Kenmerken.IsBinnenBreedte = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
+ end if;
+
+ if (STATE.GebruikDefaultWaarden) then
+ DATA.Kenmerken.IsBinnenBreedte = DATA.Kenmerken.IsBinnenBreedteDefault;
+ end if;
+
+ if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded) and not(STATE.GebruikDefaultWaarden)) then
DATA.Kenmerken.IsBinnenBreedte = UI.Kenmerken.IsBinnenBreedte;
end if;
end if;
@@ -1773,6 +1816,11 @@
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.CorpusWanddikte = CDbl(Replace(GetArg("data;kenmerken;corpuswanddikte");".";","));
else
+ if (STATE.BijhorendeLadeConfiguratieLoaded) then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Corpuswandikte")@id;
+ DATA.Kenmerken.Corpuswanddikte = CDbl(CONFIG.Database.ConfigAnalyseProperties.Value);
+ end if;
+
if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
DATA.Kenmerken.CorpusWanddikte = UI.Kenmerken.CorpusWanddikte;
end if;
@@ -1844,6 +1892,11 @@
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.CorpusBreedte = CDbl(Replace(GetArg("data;kenmerken;corpusbreedte");".";","));
else
+ if (STATE.BijhorendeLadeConfiguratieLoaded) then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Corpusbreedte")@id;
+ DATA.Kenmerken.CorpusBreedte = CDbl(CONFIG.Database.ConfigAnalyseProperties.Value);
+ end if;
+
if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
DATA.Kenmerken.CorpusBreedte = UI.Kenmerken.CorpusBreedte;
end if;
@@ -1891,7 +1944,16 @@
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.HeeftOpvullijstLinks = CBool(GetArg("data;kenmerken;heeftopvullijstlinks"));
else
- if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
+ if (STATE.BijhorendeLadeConfiguratieLoaded) then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Heeftopvullijstlinks")@id;
+ DATA.Kenmerken.HeeftOpvullijstLinks = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
+ end if;
+
+ if (STATE.GebruikDefaultWaarden) then
+ DATA.Kenmerken.HeeftOpvullijstLinks = DATA.Kenmerken.HeeftOpvullijstLinksDefault;
+ end if;
+
+ if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded) and not(STATE.GebruikDefaultWaarden)) then
DATA.Kenmerken.HeeftOpvullijstLinks = UI.Kenmerken.HeeftOpvullijstLinks;
end if;
end if;
@@ -1923,7 +1985,16 @@
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.HeeftOpvullijstRechts = CBool(GetArg("data;kenmerken;heeftopvullijstrechts"));
else
- if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
+ if (STATE.BijhorendeLadeConfiguratieLoaded) then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Heeftopvullijstrechts")@id;
+ DATA.Kenmerken.HeeftOpvullijstRechts = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
+ end if;
+
+ if (STATE.GebruikDefaultWaarden) then
+ DATA.Kenmerken.HeeftOpvullijstRechts = DATA.Kenmerken.HeeftOpvullijstRechtsDefault;
+ end if;
+
+ if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded) and not(STATE.GebruikDefaultWaarden)) then
DATA.Kenmerken.HeeftOpvullijstRechts = UI.Kenmerken.HeeftOpvullijstRechts;
end if;
end if;
@@ -2152,6 +2223,11 @@
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.LadeDiepte = GetArg("data;kenmerken;ladediepte");
else
+ if (STATE.BijhorendeLadeConfiguratieLoaded) then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.LadeDiepte")@id;
+ DATA.Kenmerken.LadeDiepte = CONFIG.Database.ConfigAnalyseProperties.Value;
+ end if;
+
if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
DATA.Kenmerken.LadeDiepte = UI.Kenmerken.LadeDiepte;
end if;
@@ -2290,7 +2366,15 @@
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.VerpakkingType = GetArg("data;kenmerken;verpakkingtype");
else
- if not(BEHAVIOR.OperationMode == "AxCreate") then
+ if (STATE.BijhorendeLadeConfiguratieLoaded) then
+ DATA.Kenmerken.VerpakkingType = "ORGALUX";
+ end if;
+
+ if (STATE.GebruikDefaultWaarden) then
+ DATA.Kenmerken.VerpakkingType = DATA.Kenmerken.VerpakkingTypeDefault;
+ end if;
+
+ if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded) and not(STATE.GebruikDefaultWaarden)) then
DATA.Kenmerken.VerpakkingType = UI.Kenmerken.VerpakkingType;
end if;
end if;
@@ -2320,7 +2404,7 @@
_IsAantalZichtbaar = true;
end if;
-UI.Lijn.Aantal@visible = _IsAantalZichtbaar;
+UI.Lijn.Aantal@visible = (_IsAantalZichtbaar and not(BEHAVIOR.IsModeNabestellen));
Visible
;ui.lijn.aantal@visible;
@@ -2393,7 +2477,7 @@
_BEHAVIOR_IsReferentieZichtbaar = true;
end if;
-UI.Lijn.Referentie@visible = _BEHAVIOR_IsReferentieZichtbaar;
+UI.Lijn.Referentie@visible = (_BEHAVIOR_IsReferentieZichtbaar and not(BEHAVIOR.IsModeNabestellen));
Visible
;ui.lijn.referentie@visible;
@@ -2710,6 +2794,14 @@
BijhorendeLadeConfiguratieLoaded
;state.bijhorendeladeconfiguratieloaded@value;
+
+ true
+
+STATE.GebruikDefaultWaarden = false;
+
+ STATE.GebruikDefaultWaarden
+ ;state.gebruikdefaultwaarden@value;
+