STATE.InitializedInitialisatie;true
CONFIG.Backend = GetArg("backend"); // Voorlopig alleen "axapta", dus AX
CONFIG.ProcessMode = GetArg("processmode"); // Alleen in AX : "Background" of "Interactive"
CONFIG.Token = GetArg("vh_token"); // Alleen in Web : Token van Intracto
CONFIG.Language = GetArg("language"); // Web en AX
CONFIG.Initiator = GetArg("initiator"); // Alleen in AX
CONFIG.Settings.HeeftAssortimentIP = CBool(GetArg("HeeftAssortimentIP")); // Alleen in AX
CONFIG.Settings.HeeftAssortimentKS = CBool(GetArg("HeeftAssortimentKS")); // Alleen in AX
Algemene input parameters ophalen;config.backend@value;config.processmode@value;config.token@value;config.language@value;config.initiator@value;config.settings.heeftassortimentip@value;config.settings.heeftassortimentks@value;true
BEHAVIOR.IsEconAx = (CONFIG.Backend == "axapta");
BEHAVIOR.IsEconWeb = (CONFIG.Backend <> "axapta");
Instellen Gedrag Omgeving;behavior.iseconax@value;behavior.iseconweb@value;BEHAVIOR.IsEconAx
local string _Configuration = GetArg("configuration");
local string _BEHAVIOR_AccessMode;
local string _BEHAVIOR_OperationMode;
local string _BEHAVIOR_ContextName;
local boolean _IsNieuweIngaveInAx = (DATA.Lijn.GroeperingCode == ""); // Tijdelijk getest via GroeperingCode ingevuld; [TODO] vind een goede manier om de AxNew te bepalen.
local boolean _IsEditEdiFromSalesOrderIn;
local boolean _IsInitiatorAxSalesOrderIn = ((CONFIG.Initiator == "Ax.SalesOrderIn") or (CONFIG.Initiator == "Ax.MsgTableSalesOrderIn"));
_BEHAVIOR_AccessMode = "Intern"; // Voor AX is AccessMode altijd "Intern". (voorlopig toch)
_BEHAVIOR_OperationMode = "";
if (CONFIG.ProcessMode == "Background") then
_BEHAVIOR_OperationMode = "AxCreate";
else
if (_IsNieuweIngaveInAx) then
_BEHAVIOR_OperationMode = "New";
else
_BEHAVIOR_OperationMode = "Edit";
end if;
end if;
_BEHAVIOR_ContextName = "null";
if (CONFIG.ProcessMode == "Background") then
if (_IsInitiatorAxSalesOrderIn) then
_BEHAVIOR_ContextName = "AxCreateEdi";
else
_BEHAVIOR_ContextName = "AxCreateVH4";
/* * /
_KenmerkenOorsprong = "VH4"; // VH4 of EDI of OCC [TODO] onderscheid nog te bepalen, indien mogelijk.
if _KenmerkenOorsprong == "VH4" then
_BEHAVIOR_ContextName = "AxCreateVH4";
end if;
if _KenmerkenOorsprong == "OCC" then
_BEHAVIOR_ContextName = "AxCreateOcc";
end if;
/* */
end if;
else
if (_IsNieuweIngaveInAx) then
_BEHAVIOR_ContextName = "AxNew";
else
_IsEditEdiFromSalesOrderIn = _IsInitiatorAxSalesOrderIn;
if _IsEditEdiFromSalesOrderIn then
_BEHAVIOR_ContextName = "AxEditEdi";
else
_BEHAVIOR_ContextName = "AxEdit";
end if;
end if;
end if;
BEHAVIOR.AccessMode = _BEHAVIOR_AccessMode;
BEHAVIOR.OperationMode = _BEHAVIOR_OperationMode;
BEHAVIOR.ContextName = _BEHAVIOR_ContextName;
BEHAVIOR.IsInteractive = (CONFIG.ProcessMode <> "Background");
CONFIG.InputMode = BEHAVIOR.OperationMode;
CONFIG.Settings.OperationMode = BEHAVIOR.AccessMode;
Instellen Gedrag Ax (AccessMode, OperationMode, ContextName);behavior.accessmode@value;behavior.operationmode@value;behavior.contextname@value;behavior.isinteractive@value;config.inputmode@value;config.settings.operationmode@value;BEHAVIOR.IsEconWeb
local string _AccessMode = GetArg("operationmode");
local string _Configuration = GetArg("configuration");
local boolean _IsModeNabestellen = CBool(GetArg("nabestelling"));
local string _BEHAVIOR_AccessMode;
local string _BEHAVIOR_OperationMode;
local string _BEHAVIOR_ContextName;
_BEHAVIOR_AccessMode = "Extern";
if (LCase(_AccessMode) == "intern") then
_BEHAVIOR_AccessMode = "Intern";
end if;
_BEHAVIOR_OperationMode = "";
if (CONFIG.TOKEN == "128eababb1a1596e3c130b0e0fd5be820334a01a16bf777d1c5439fcfa861e16") then
_BEHAVIOR_OperationMode = "CreateConfig";
_BEHAVIOR_AccessMode = "Intern"; // CreateConfig volgt de beperkingen van de InterneVerwerking (o.a. voor EDI-bestellingen met specifieke verpakking of verlaagde rug of stalen rug)
else
if (_Configuration <> "") then
_BEHAVIOR_OperationMode = "Edit";
else
_BEHAVIOR_OperationMode = "New";
end if;
end if;
_BEHAVIOR_ContextName = "null";
if (_BEHAVIOR_OperationMode == "CreateConfig") then
_BEHAVIOR_ContextName = "WebCreateConfig";
else
if (_BEHAVIOR_OperationMode == "Edit") then
_BEHAVIOR_ContextName = "WebShopEdit";
else
_BEHAVIOR_ContextName = "WebShopNew";
end if;
end if;
BEHAVIOR.AccessMode = _BEHAVIOR_AccessMode;
BEHAVIOR.OperationMode = _BEHAVIOR_OperationMode;
BEHAVIOR.ContextName = _BEHAVIOR_ContextName;
BEHAVIOR.IsInteractive = (_BEHAVIOR_OperationMode <> "CreateConfig");
BEHAVIOR.IsModeNabestellen = _IsModeNabestellen;
CONFIG.InputMode = BEHAVIOR.OperationMode;
CONFIG.Settings.OperationMode = BEHAVIOR.AccessMode;
Instellen Gedrag Web (AccessMode, OperationMode, ContextName);behavior.accessmode@value;behavior.operationmode@value;behavior.contextname@value;behavior.isinteractive@value;behavior.ismodenabestellen@value;config.inputmode@value;config.settings.operationmode@value;BEHAVIOR.IsEconAxInitialisatie AX;true
CONFIG.Settings.KlantId = GetArg("KlantId");
CONFIG.Settings.PersonalityId = GetArg("PersonalityId");
CONFIG.Settings.AXUserId = GetArg("axuserid"); // Alleen in AX
CONFIG.Settings.IsMaatwerkViewerToegelaten = CBool(GetArg("IsMaatwerkViewerToegelaten")); // Alleen in AX
SalesTableAx = GetArg("SalesTableAx");
Settings ophalen uit argumenten;config.settings.klantid@value;config.settings.personalityid@value;config.settings.axuserid@value;config.settings.ismaatwerkviewertoegelaten@value;salestableax@value;not(BEHAVIOR.IsInteractive) // = AxCreate
/*
Data.Kenmerken.CorpusBreedte = CDbl(Replace(GetArg("data;kenmerken;corpusbreedte");".";","));
Data.Kenmerken.CorpusWanddikte = CDbl(Replace(GetArg("data;kenmerken;corpuswanddikte");".";","));
Data.Kenmerken.Familie = GetArg("data;kenmerken;familie");
Data.Kenmerken.HeeftOpvullijstLinks = CBool(GetArg("data;kenmerken;heeftopvullijstlinks"));
Data.Kenmerken.HeeftOpvullijstRechts = CBool(GetArg("data;kenmerken;heeftopvullijstrechts"));
Data.Kenmerken.IsBinnenbreedte = CBool(GetArg("data;kenmerken;isbinnenbreedte"));
Data.Kenmerken.LadeDiepte = GetArg("data;kenmerken;ladediepte");
Data.Kenmerken.Variant = GetArg("data;kenmerken;variant");
Data.Kenmerken.VerpakkingType = GetArg("data;kenmerken;verpakkingtype");
Data.Lijn.Aantal = CDbl(GetArg("data;lijn;aantal"));
Data.Lijn.Referentie = GetArg("data;lijn;referentie");
*/Kenmerken ophalen uit argumenten (Background);BEHAVIOR.IsInteractive Kenmerken ophalen uit argumenten (Interactive);BEHAVIOR.IsEconWeb
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 _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;BEHAVIOR.IsEconWeb
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 (Web);config.database.languages@options;state.languagesloaded@value;BEHAVIOR.IsInteractive
HELP.HelpUrl = "mat/" + 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 = DATA.Kenmerken.NietMeeleveren@label;
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;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 (BEHAVIOR.IsEconWeb)
CONFIG.Settings.BijhorendeLadeConfiguratie = GetArg("bijhorendeladeconfiguratie"); // Alleen in Web
local string _Setting = GetSetting("data.vanhoecke.connectionstring.vhisie4.settings");
local string _Json = _Setting + CONFIG.Token;
local boolean _Result;
if not(BEHAVIOR.OperationMode == "CreateConfig") then
// Setings ophalen op basis van de vh_token
_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 (Web);config.settings.bijhorendeladeconfiguratie@value;(BEHAVIOR.IsEconWeb) and (CONFIG.Token <> "")
local collection _ExportPersonalities = {"3";"10";"11";"13";"14";"16";"17";"18";"19";"20";"32";"33";"34";"35";"36"};
Config settings hardcoded (settings voor de MP);true
Config.ReferentieConfiguratie = GetArg("referentieconfiguratie");
ReferentieConfiguratie ophalen;config.referentieconfiguratie@value;(BEHAVIOR.IsEconWeb) and (BEHAVIOR.IsInteractive)
CONFIG.KlantVoorkeurenConfigurationName = DATA.Kenmerken.Variant + "_" + Config.Settings.PersonalityId + "_" + CONFIG.Settings.KlantId;
KlantVoorkeuren naam bepalen;config.klantvoorkeurenconfigurationname@value;trueUI.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'";
UI.Buttons.Top.ProcessButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.ProcessedAndExit','true'|task:eCon.UI.Tasks.ProcessAndExitTask";
UI.Buttons.Bottom.SaveAndExitButton@default = UI.Buttons.Top.SaveAndExitButton@default;
UI.Buttons.Bottom.SaveAndContinueButton@default = UI.Buttons.Top.SaveAndContinueButton@default;
local boolean _IsEditMode = (CONFIG.InputMode == "Edit");
local string _LabelSave = UI.Buttons.Top.SaveAndExitButton@label;
if (_IsEditMode) then
_LabelSave = TRL.SaveChangesButton@label;
end if;
UI.Buttons.Top.SaveAndExitButton@label = _LabelSave;
UI.Buttons.Bottom.SaveAndExitButton@label = _LabelSave;
UI.Buttons.Top.SaveAndExitButton@visible = BEHAVIOR.IsEconWeb;
UI.Buttons.Top.SaveAndContinueButton@visible = not(_IsEditMode) and BEHAVIOR.IsEconWeb;
UI.Buttons.Top.PreferencesButton@visible = BEHAVIOR.IsEconWeb;
UI.Buttons.Top.ProcessButton@visible = BEHAVIOR.IsEconAx;
UI.Buttons.Bottom.SaveAndExitButton@visible = BEHAVIOR.IsEconWeb;
UI.Buttons.Bottom.SaveAndContinueButton@visible = not(_IsEditMode) and BEHAVIOR.IsEconWeb;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@default;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.Materiaal;
for i = 1 to len(UI.Kenmerken.Materiaal@options)
UI.Kenmerken.Materiaal = UI.Kenmerken.Materiaal@option(i)@id;
UI.Kenmerken.Materiaal.Text = DATA.Kenmerken.Materiaal@option(UI.Kenmerken.Materiaal.Value)@label;
end for;
UI.Kenmerken.Materiaal = 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.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;
Vertalingen UI image labels;ui.kenmerken.materiaal@value;ui.kenmerken.matantislipfiberkleur@value;ui.kenmerken.matantislipflockkleur@value;ui.kenmerken.matvinylfiberglasskleur@value;true
local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern");
Beperkingen Intern/Extern;true
if (CONFIG.InputMode == "New") then
STATE.DataKenmerkenInvullenVia = "InitieleDefaults";
else
STATE.DataKenmerkenInvullenVia = "UI";
end if;Start StatenFlow DataKenmerkenInvullenVia ;state.datakenmerkeninvullenvia@value;true
STATE.Initialized = false;
Einde initialisatie;state.initialized@value;true
if (BEHAVIOR.isInteractive) then
Default.Kenmerken.LadeToepassing = "L";
Default.Kenmerken.VerpakkingType = "ORGALUX";
end if;
Defaults instellen;default.kenmerken.ladetoepassing@value;default.kenmerken.verpakkingtype@value;(CONFIG.Settings.BijhorendeLadeConfiguratie <> "") and (CONFIG.InputMode <> "Edit") and (BEHAVIOR.IsModeNabestellen)
local string _Connection = GetSetting("data.connectionstring") + ";cache=false";
local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.Settings.BijhorendeLadeConfiguratie + "'";
CONFIG.Database.Configurations@options = {};
CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query);
STATE.BijhorendeLadeConfiguratieLoaded = true;
BijhorendeLadeConfiguratie: ConfigId ophalen op basis van ReferentieConfiguratie;config.database.configurations@options;state.bijhorendeladeconfiguratieloaded@value;STATE.BijhorendeLadeConfiguratieLoaded and (CONFIG.Database.Configurations.Name == CONFIG.Settings.BijhorendeLadeConfiguratie)
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);
//Waarden worden rechtstreeks ingevuld in de rule van de betreffende properties
BijhorendeLadeConfiguratie:: Properties ophalen op basis van ConfigId;config.database.configanalyseproperties@options;(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 (Replace(CONFIG.Database.ConfigAnalyseProperties.PropertyName;"Data";"Default") in CONFIG.Defaults.ReferentieConfiguratie@options) then
_Result = SetValue(Replace(CONFIG.Database.ConfigAnalyseProperties.PropertyName;"Data";"Default"); 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 (Replace(CONFIG.Database.ConfigAnalyseProperties.PropertyName;"Data";"Default") in CONFIG.Defaults.KlantVoorkeuren@options) then
_Result = SetValue(Replace(CONFIG.Database.ConfigAnalyseProperties.PropertyName;"Data";"Default"); 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 (Replace(CONFIG.Database.ConfigAnalyseProperties.PropertyName;"Data";"Default") in CONFIG.Defaults.PersonalityVoorkeuren@options) then
_Result = SetValue(Replace(CONFIG.Database.ConfigAnalyseProperties.PropertyName;"Data";"Default"); CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
end for;
PersonalityVoorkeuren: Properties ophalen op basis van ConfigId;state.personalityvoorkeurenloaded@value;config.database.configanalyseproperties@options;true
for i = 1 to len(DATA.Kenmerken.Materiaal@options)
UI.Kenmerken.Materiaal@option(i)@valid = DATA.Kenmerken.Materiaal@option(i)@valid;
end for;
Valids;ui.kenmerken.materiaal@valids;true/*
local string SelectedOption = "";
SelectedOption = UI.Kenmerken.Materiaal;
for i = 1 to len(UI.Kenmerken.Materiaal@options)
UI.Kenmerken.Materiaal = UI.Kenmerken.Materiaal@option(i)@id;
UI.Kenmerken.Materiaal.Text = DATA.Kenmerken.Materiaal@option(UI.Kenmerken.Materiaal.Value)@label;
end for;
UI.Kenmerken.Materiaal = SelectedOption;
*/UI Image label;truelocal string _DummyTrigger = UI.Kenmerken.Materiaal;
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
DATA.Kenmerken.Materiaal = Default.Kenmerken.Materiaal;
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.Materiaal = GetArg("data;kenmerken;materiaal");
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
end if;
*/
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.Materiaal = UI.Kenmerken.Materiaal.Value;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
end if;
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.Materiaal = GetArg("data;kenmerken;materiaal");
else
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;
*/DATA waarde instellen;data.kenmerken.materiaal@value;true
local string DummyTrigger = STATE.DataKenmerkenInvullenVia;
UI.Kenmerken.Materiaal@default = DATA.Kenmerken.Materiaal;
UI waarde instellen;ui.kenmerken.materiaal@default;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
DATA.Kenmerken.Kleur = Default.Kenmerken.Kleur;
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.Kleur = GetArg("data;kenmerken;kleur");
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
end if;
*/
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.Kleur = switch (DATA.Kenmerken.Materiaal)
case "CF": UI.Kenmerken.MatVinylFiberglassKleur.Value
case "AF": UI.Kenmerken.MatAntislipFiberKleur.Value
case "AZ": UI.Kenmerken.MatAntislipFlockKleur.Value
else ""
end switch;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
end if;
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.Kleur = GetArg("data;kenmerken;kleur");
else
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
case "AZ": UI.Kenmerken.MatAntislipFlockKleur.Value
else ""
end switch;
end if;
end if;
*/DATA waarde instellen;data.kenmerken.kleur@value;true
local string MatKleur = "";
for i = 1 to len(DATA.Kenmerken.Kleur@options)
MatKleur = DATA.Kenmerken.Kleur@option(i)@id;
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.Kleur@option(i)@valid;
end if;
end for;
end for;
Valids;true/*
local string 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;
*/UI Image label;true
local string _DummyTrigger = DATA.Kenmerken.Materiaal;
local boolean _HeeftMatAntislipFlockKleur = (DATA.Kenmerken.Materiaal == "AZ");
UI.Kenmerken.MatAntislipFlockKleur@visible = _HeeftMatAntislipFlockKleur;
Visible;ui.kenmerken.matantislipflockkleur@visible;true
local string _DummyTrigger = DATA.Kenmerken.Materiaal;
local boolean _HeeftMatAntislipFlockKleur = (DATA.Kenmerken.Materiaal == "AZ");
UI.Kenmerken.MatAntislipFlockKleur@mandatory = _HeeftMatAntislipFlockKleur;
Mandatory;ui.kenmerken.matantislipflockkleur@mandatory;true
local string _DummyTrigger = DATA.Kenmerken.Materiaal;
if (DATA.Kenmerken.Materiaal == "AZ") then
UI.Kenmerken.MatAntislipFlockKleur@default = DATA.Kenmerken.Kleur;
else
UI.Kenmerken.MatAntislipFlockKleur@default = "";
end if;
UI waarde instellen;ui.kenmerken.matantislipflockkleur@default;true
local string MatKleur = "";
for i = 1 to len(DATA.Kenmerken.Kleur@options)
MatKleur = DATA.Kenmerken.Kleur@option(i)@id;
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.Kleur@option(i)@valid;
end if;
end for;
end for;
Valids;true/*
local string 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;
*/UI Image label;true
local string _DummyTrigger = DATA.Kenmerken.Materiaal;
local boolean _HeeftMatAntislipFiberKleur = (DATA.Kenmerken.Materiaal == "AF");
UI.Kenmerken.MatAntislipFiberKleur@visible = _HeeftMatAntislipFiberKleur;
Visible;ui.kenmerken.matantislipfiberkleur@visible;true
local string _DummyTrigger = DATA.Kenmerken.Materiaal;
local boolean _HeeftMatAntislipFiberKleur = (DATA.Kenmerken.Materiaal == "AF");
UI.Kenmerken.MatAntislipFiberKleur@mandatory = _HeeftMatAntislipFiberKleur;
Mandatory;ui.kenmerken.matantislipfiberkleur@mandatory;true
local string _DummyTrigger = DATA.Kenmerken.Materiaal;
if (DATA.Kenmerken.Materiaal == "AF") then
UI.Kenmerken.MatAntislipFiberKleur@default = DATA.Kenmerken.Kleur;
else
UI.Kenmerken.MatAntislipFiberKleur@default = "";
end if;
UI waarde instellen;ui.kenmerken.matantislipfiberkleur@default;true
local string MatKleur = "";
for i = 1 to len(DATA.Kenmerken.Kleur@options)
MatKleur = DATA.Kenmerken.Kleur@option(i)@id;
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.Kleur@option(i)@valid;
end if;
end for;
end for;
Valids;true/*
local string 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;
*/UI Image label;true
local string _DummyTrigger = DATA.Kenmerken.Materiaal;
local boolean _HeeftMatVinylFiberglassKleur = (DATA.Kenmerken.Materiaal == "CF");
UI.Kenmerken.MatVinylFiberglassKleur@visible = _HeeftMatVinylFiberglassKleur;
Visible;ui.kenmerken.matvinylfiberglasskleur@visible;true
local string _DummyTrigger = DATA.Kenmerken.Materiaal;
local boolean _HeeftMatVinylFiberglassKleur = (DATA.Kenmerken.Materiaal == "CF");
UI.Kenmerken.MatVinylFiberglassKleur@mandatory = _HeeftMatVinylFiberglassKleur;
Mandatory;ui.kenmerken.matvinylfiberglasskleur@mandatory;true
local string _DummyTrigger = DATA.Kenmerken.Materiaal;
if (DATA.Kenmerken.Materiaal == "CF") then
UI.Kenmerken.MatVinylFiberglassKleur@default = DATA.Kenmerken.Kleur;
else
UI.Kenmerken.MatVinylFiberglassKleur@default = "";
end if;
UI waarde instellen;ui.kenmerken.matvinylfiberglasskleur@default;true
$BreedtePane@visible = not(BEHAVIOR.IsModeNabestellen);
Visible;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
local string Dummy = "DoeNiets";
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.ViaNettoBreedte = CBool(GetArg("data;kenmerken;vianettobreedte"));
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
end if;
*/
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.ViaNettoBreedte = UI.Kenmerken.ViaNettoBreedte;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
end if;
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
if BEHAVIOR.IsModeNabestellen then
DATA.Kenmerken.ViaNettoBreedte = false;
end if;
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.ViaNettoBreedte = CBool(GetArg("data;kenmerken;vianettobreedte"));
else
if not(BEHAVIOR.OperationMode == "AxCreate") then
DATA.Kenmerken.ViaNettoBreedte = UI.Kenmerken.ViaNettoBreedte;
end if;
if BEHAVIOR.IsModeNabestellen then
DATA.Kenmerken.ViaNettoBreedte = false;
end if;
end if;
*/DATA waarde instellen;true
UI.Kenmerken.ViaNettoBreedte@default = DATA.Kenmerken.ViaNettoBreedte;
UI waarde instellen;ui.kenmerken.vianettobreedte@default;true
for i = 1 to len(DATA.Kenmerken.LadeType@options)
UI.Kenmerken.LadeType@option(i)@valid = DATA.Kenmerken.LadeType@option(i)@valid;
end for;
Valids;ui.kenmerken.ladetype@valids;true
UI.Kenmerken.LadeType@visible = not(DATA.Kenmerken.ViaNettoBreedte and DATA.Kenmerken.ViaNettoDiepte);
Visible;ui.kenmerken.ladetype@visible;true
UI.Kenmerken.LadeType@mandatory = not(DATA.Kenmerken.ViaNettoBreedte and DATA.Kenmerken.ViaNettoDiepte);
Mandatory;ui.kenmerken.ladetype@mandatory;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
DATA.Kenmerken.LadeType = Default.Kenmerken.LadeType;
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.LadeType = GetArg("data;kenmerken;ladetype");
end if;
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Variant")@id;
local string _LadeVariant = CONFIG.Database.ConfigAnalyseProperties.Value;
if (_LadeVariant == "LBX") then
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Zijwandtype")@id;
local string _ZijwandType = CONFIG.Database.ConfigAnalyseProperties.Value;
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 (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.LadeType = UI.Kenmerken.LadeType;
end if;
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
if (not(UI.Kenmerken.LadeType@visible) and DATA.Kenmerken.ViaNettoBreedte and DATA.Kenmerken.ViaNettoDiepte) then
DATA.Kenmerken.LadeType = "";
UI.Kenmerken.LadeType = "";
end if;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
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.Variant")@id;
local string _LadeVariant = CONFIG.Database.ConfigAnalyseProperties.Value;
if (_LadeVariant == "LBX") then
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Zijwandtype")@id;
local string _ZijwandType = CONFIG.Database.ConfigAnalyseProperties.Value;
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;
end if;
*/;data.kenmerken.ladetype@value;true
local string DummyTrigger = STATE.DataKenmerkenInvullenVia;
UI.Kenmerken.LadeType@default = DATA.Kenmerken.LadeType;
UI waarde instellen;ui.kenmerken.ladetype@default;true
for i = 1 to len(DATA.Kenmerken.LadeToepassing@options)
UI.Kenmerken.LadeToepassing@option(i)@valid = DATA.Kenmerken.LadeToepassing@option(i)@valid;
end for;
UI.Kenmerken.LadeToepassing@option("SP")@valid = true;
UI.Kenmerken.LadeToepassing@option("SY")@valid = true;
Valids;ui.kenmerken.ladetoepassing@valids;true
UI.Kenmerken.LadeToepassing@visible = not(DATA.Kenmerken.ViaNettoBreedte and DATA.Kenmerken.ViaNettoDiepte);
UI.Kenmerken.LadeToepassing@option("SP")@visible = true;
UI.Kenmerken.LadeToepassing@option("SY")@visible = true;
Visible;ui.kenmerken.ladetoepassing@visible;ui.kenmerken.ladetoepassing@options;true
UI.Kenmerken.LadeToepassing@mandatory = not(DATA.Kenmerken.ViaNettoBreedte and DATA.Kenmerken.ViaNettoDiepte);
Mandatory;ui.kenmerken.ladetoepassing@mandatory;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
DATA.Kenmerken.LadeToepassing = Default.Kenmerken.LadeToepassing;
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.LadeToepassing = GetArg("data;kenmerken;ladetoepassing");
end if;
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Toepassing")@id;
DATA.Kenmerken.LadeToepassing = CONFIG.Database.ConfigAnalyseProperties.Value;
end if;
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.LadeToepassing = UI.Kenmerken.LadeToepassing;
end if;
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
if (not(UI.Kenmerken.LadeToepassing@visible) and DATA.Kenmerken.ViaNettoBreedte and DATA.Kenmerken.ViaNettoDiepte) then
DATA.Kenmerken.LadeToepassing = "";
UI.Kenmerken.LadeToepassing= "";
end if;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.LadeToepassing = GetArg("data;kenmerken;ladetoepassing");
else
if (STATE.BijhorendeLadeConfiguratieLoaded) then
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Toepassing")@id;
DATA.Kenmerken.LadeToepassing = CONFIG.Database.ConfigAnalyseProperties.Value;
end if;
if (STATE.GebruikDefaultWaarden) then
DATA.Kenmerken.LadeToepassing = DATA.Kenmerken.LadeToepassingDefault;
end if;
if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded) and not(STATE.GebruikDefaultWaarden)) then
DATA.Kenmerken.LadeToepassing = UI.Kenmerken.LadeToepassing;
end if;
end if;
*/;data.kenmerken.ladetoepassing@value;true
local string DummyTrigger = STATE.DataKenmerkenInvullenVia;
UI.Kenmerken.LadeToepassing@default = DATA.Kenmerken.LadeToepassing;
UI waarde instellen;ui.kenmerken.ladetoepassing@default;true
UI.Kenmerken.IsBinnenBreedte@visible = not(DATA.Kenmerken.ViaNettoBreedte);
Visible;ui.kenmerken.isbinnenbreedte@visible;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
DATA.Kenmerken.IsBinnenBreedte = Default.Kenmerken.IsBinnenBreedte;
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
if (not(GetArg("data;kenmerken;isbinnenbreedte") == "")) then
DATA.Kenmerken.IsBinnenBreedte = CBool(GetArg("data;kenmerken;isbinnenbreedte"));
end if;
end if;
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Isbinnenbreedte")@id;
DATA.Kenmerken.IsBinnenBreedte = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.IsBinnenBreedte = UI.Kenmerken.IsBinnenBreedte;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
end if;
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs and not(GetArg("data;kenmerken;isbinnenbreedte") == "")) then //Defaultwaarde is true en als in background deze parameter niet wordt meegegeven wordt die anders foutief false, daarom deze extra controle
DATA.Kenmerken.IsBinnenBreedte = CBool(GetArg("data;kenmerken;isbinnenbreedte"));
else
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;
*/DATA waarde instellen;data.kenmerken.isbinnenbreedte@value;true
UI.Kenmerken.IsBinnenbreedte@default = DATA.Kenmerken.IsBinnenbreedte;
UI waarde instellen;ui.kenmerken.isbinnenbreedte@default;true
UI.Kenmerken.CorpusWanddikte@visible = (not(UI.Kenmerken.IsBinnenbreedte) and not(DATA.Kenmerken.ViaNettoBreedte));
Visible;ui.kenmerken.corpuswanddikte@visible;true
UI.Kenmerken.CorpusWanddikte@mandatory = not(UI.Kenmerken.IsBinnenbreedte);
Mandatory;ui.kenmerken.corpuswanddikte@mandatory;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
local string Dummy = "DoeNiets";
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.CorpusWanddikte = CDbl(Replace(GetArg("data;kenmerken;corpuswanddikte");".";","));
end if;
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Corpuswandikte")@id;
DATA.Kenmerken.Corpuswanddikte = CDbl(CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.CorpusWanddikte = UI.Kenmerken.CorpusWanddikte;
end if;
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
if (DATA.Kenmerken.IsBinnenbreedte) then
DATA.Kenmerken.CorpusWanddikte = 0;
UI.Kenmerken.CorpusWanddikte = 0;
end if;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
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;
end if;
*/DATA waarde instellen;true
UI.Kenmerken.CorpusWanddikte@default = DATA.Kenmerken.CorpusWanddikte;
UI waarde instellen;ui.kenmerken.corpuswanddikte@default;true
local string _Minimum = "1";
local string _Maximum = "100";
local string _multiplication = Replace("0,5";",";".");
if (UI.Kenmerken.CorpusWanddikte@visible and (STATE.ValidationNeeded or (UI.Kenmerken.CorpusWanddikte <> 0))) then
if (BEHAVIOR.IsEconAx) then
_multiplication = Replace("0,1";",";".");
end if;
UI.Kenmerken.CorpusWanddikte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:" + _multiplication + ";maxdecimals:1;";
end if;
if not(UI.Kenmerken.CorpusWanddikte@visible) then
UI.Kenmerken.CorpusWanddikte@inputvalidation = "";
end if;Validatie;ui.kenmerken.corpuswanddikte@rangeset;true
UI.Kenmerken.CorpusBreedte@visible = not(DATA.Kenmerken.ViaNettoBreedte);Visible;ui.kenmerken.corpusbreedte@visible;true
UI.Kenmerken.CorpusBreedte@label = switch (UI.Kenmerken.IsBinnenbreedte)
case true: TRL.CorpusBinnenbreedte@label
else TRL.CorpusBuitenbreedte@label
end switch;
Label;true
UI.Kenmerken.CorpusBreedte@mandatory = not(DATA.Kenmerken.ViaNettoBreedte);
Mandatory;ui.kenmerken.corpusbreedte@mandatory;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
local string Dummy = "DoeNiets";
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.CorpusBreedte = CDbl(Replace(GetArg("data;kenmerken;corpusbreedte");".";","));
end if;
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Corpusbreedte")@id;
DATA.Kenmerken.CorpusBreedte = CDbl(CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.CorpusBreedte = UI.Kenmerken.CorpusBreedte;
end if;
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
if not(UI.Kenmerken.Corpusbreedte@visible) then
DATA.Kenmerken.Corpusbreedte = 0;
UI.Kenmerken.Corpusbreedte = 0;
end if;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
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;
end if;
*/DATA waarde instellen;true
UI.Kenmerken.CorpusBreedte@default = DATA.Kenmerken.CorpusBreedte;
UI waarde instellen;ui.kenmerken.corpusbreedte@default;true
local string _Minimum = "1";
local string _Maximum = "1500";
if (UI.Kenmerken.CorpusBreedte@visible and (STATE.ValidationNeeded or (UI.Kenmerken.CorpusBreedte <> 0))) then
UI.Kenmerken.CorpusBreedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;";
else
UI.Kenmerken.CorpusBreedte@inputvalidation = "";
end if;
Validatie;ui.kenmerken.corpusbreedte@rangeset;true
UI.Kenmerken.HeeftOpvullijstLinks@visible = not(DATA.Kenmerken.ViaNettoBreedte);
Visible;ui.kenmerken.heeftopvullijstlinks@visible;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
DATA.Kenmerken.HeeftOpvullijstLinks = Default.Kenmerken.HeeftOpvullijstLinks;
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.HeeftOpvullijstLinks = CBool(GetArg("data;kenmerken;heeftopvullijstlinks"));
end if;
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Heeftopvullijstlinks")@id;
DATA.Kenmerken.HeeftOpvullijstLinks = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.HeeftOpvullijstLinks = UI.Kenmerken.HeeftOpvullijstLinks;
end if;
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
if not(UI.Kenmerken.HeeftOpvullijstLinks@visible) then
DATA.Kenmerken.HeeftOpvullijstLinks = false;
UI.Kenmerken.HeeftOpvullijstLinks = false;
end if;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.HeeftOpvullijstLinks = CBool(GetArg("data;kenmerken;heeftopvullijstlinks"));
else
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;
*/DATA waarde instellen;data.kenmerken.heeftopvullijstlinks@value;true
UI.Kenmerken.HeeftOpvullijstLinks@default = DATA.Kenmerken.HeeftOpvullijstLinks;
UI waarde instellen;ui.kenmerken.heeftopvullijstlinks@default;true
UI.Kenmerken.HeeftOpvullijstRechts@visible = not(DATA.Kenmerken.ViaNettoBreedte);
Visible;ui.kenmerken.heeftopvullijstrechts@visible;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
DATA.Kenmerken.HeeftOpvullijstRechts = Default.Kenmerken.HeeftOpvullijstRechts;
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.HeeftOpvullijstRechts = CBool(GetArg("data;kenmerken;heeftopvullijstrechts"));
end if;
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Heeftopvullijstrechts")@id;
DATA.Kenmerken.HeeftOpvullijstRechts = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.HeeftOpvullijstRechts = UI.Kenmerken.HeeftOpvullijstRechts;
end if;
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
if not(UI.Kenmerken.HeeftOpvullijstRechts@visible) then
DATA.Kenmerken.HeeftOpvullijstRechts = false;
UI.Kenmerken.HeeftOpvullijstRechts = false;
end if;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.HeeftOpvullijstRechts = CBool(GetArg("data;kenmerken;heeftopvullijstrechts"));
else
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;
*/DATA waarde instellen;data.kenmerken.heeftopvullijstrechts@value;true
UI.Kenmerken.HeeftOpvullijstLinks@default = DATA.Kenmerken.HeeftOpvullijstLinks;
UI waarde instellen;ui.kenmerken.heeftopvullijstlinks@default;true
local boolean _HeeftOpvullijst = (UI.Kenmerken.HeeftOpvullijstLinks or UI.Kenmerken.HeeftOpvullijstRechts);
UI.Kenmerken.OpvullijstDikte@visible = _HeeftOpvullijst;
Visible;ui.kenmerken.opvullijstdikte@visible;true
UI.Kenmerken.OpvullijstDikte = 25;
UI waarde instellen;ui.kenmerken.opvullijstdikte@value;true
UI.Kenmerken.HeeftTbxMinTolerantieIB@visible = false; //not(DATA.Kenmerken.ViaNettoBreedte) and (DATA.Kenmerken.LadeType == "Tandembox");
Visible;ui.kenmerken.heefttbxmintolerantieib@visible;true
DATA.Kenmerken.HeeftTbxMinTolerantieIB = ((DATA.Kenmerken.Corpuswanddikte <> 0) and not(DATA.Kenmerken.IsBinnenbreedte) and (DATA.Kenmerken.LadeType == "Tandembox")); //UI.Kenmerken.HeeftTbxMinTolerantieIB;
DATA waarde instellen;data.kenmerken.heefttbxmintolerantieib@value;true
UI.Kenmerken.HeeftTbxMinTolerantieIB@default = DATA.Kenmerken.HeeftTbxMinTolerantieIB;
UI waarde instellen;ui.kenmerken.heefttbxmintolerantieib@default;true
UI.Kenmerken.NettoBreedte@enabled = DATA.Kenmerken.ViaNettoBreedte;
Enabled;ui.kenmerken.nettobreedte@enabled;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 _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;
local double _NettoBreedte = DATA.Kenmerken.CorpusBreedte - (2 * _CorpusWanddikte) - (_AantalOpvullijsten * _OpvullijstDikte);
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
local string Dummy = "DoeNiets";
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.NettoBreedte = CDbl(GetArg("data;kenmerken;nettobreedte"));
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
end if;
*/
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.NettoBreedte = UI.Kenmerken.NettoBreedte;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
end if;
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
if not(DATA.Kenmerken.ViaNettoBreedte) then
if (DATA.Kenmerken.LadeType == "Merivobox") then
_NettoBreedte = (_NettoBreedte - 56);
end if;
if (DATA.Kenmerken.LadeType == "LegraboxPure") then
_NettoBreedte = (_NettoBreedte - (2 * 21));
end if;
if (DATA.Kenmerken.LadeType == "LegraboxFree") then
_NettoBreedte = (_NettoBreedte - (2 * 21) - (2 * 1));
end if;
if (DATA.Kenmerken.LadeType == "Taorbox") then
_NettoBreedte = (_NettoBreedte - 0.5 - (2 * 21));
end if;
if (DATA.Kenmerken.LadeType == "Tandembox") then
_NettoBreedte = (_NettoBreedte - 85);
if (DATA.Kenmerken.HeeftTbxMinTolerantieIB) then
_NettoBreedte = (_NettoBreedte - 1);
end if;
end if;
//Op deze manier ziet de gebruiker geen negatieve waarden.
if (_NettoBreedte < 0) then
_NettoBreedte = 0;
end if;
DATA.Kenmerken.NettoBreedte = _NettoBreedte;
end if;
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.NettoBreedte = CDbl(GetArg("data;kenmerken;nettobreedte"));
else
if not(BEHAVIOR.OperationMode == "AxCreate") then
DATA.Kenmerken.NettoBreedte = UI.Kenmerken.NettoBreedte;
end if;
end if;
if not(DATA.Kenmerken.ViaNettoBreedte) then
if (DATA.Kenmerken.LadeType == "Merivobox") then
_NettoBreedte = (_NettoBreedte - 56);
end if;
if (DATA.Kenmerken.LadeType == "LegraboxPure") then
_NettoBreedte = (_NettoBreedte - (2 * 21));
end if;
if (DATA.Kenmerken.LadeType == "LegraboxFree") then
_NettoBreedte = (_NettoBreedte - (2 * 21) - (2 * 1));
end if;
if (DATA.Kenmerken.LadeType == "Taorbox") then
_NettoBreedte = (_NettoBreedte - 0.5 - (2 * 21));
end if;
if (DATA.Kenmerken.LadeType == "Tandembox") then
_NettoBreedte = (_NettoBreedte - 85);
if (DATA.Kenmerken.HeeftTbxMinTolerantieIB) then
_NettoBreedte = (_NettoBreedte - 1);
end if;
end if;
//Op deze manier ziet de gebruiker geen negatieve waarden.
if (_NettoBreedte < 0) then
_NettoBreedte = 0;
end if;
DATA.Kenmerken.NettoBreedte = _NettoBreedte;
end if;
*/
DATA waarde instellen;true
UI.Kenmerken.NettoBreedte@default = DATA.Kenmerken.NettoBreedte;
UI waarde instellen;ui.kenmerken.nettobreedte@default;true
$DieptePane@visible = not(BEHAVIOR.IsModeNabestellen);
Visible;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
local string Dummy = "DoeNiets";
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.ViaNettoDiepte = CBool(GetArg("data;kenmerken;vianettodiepte"));
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
end if;
*/
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.ViaNettoDiepte = UI.Kenmerken.ViaNettoDiepte;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
end if;
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
if BEHAVIOR.IsModeNabestellen then
DATA.Kenmerken.ViaNettoDiepte = false;
end if;
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.ViaNettoDiepte = CBool(GetArg("data;kenmerken;vianettodiepte"));
else
if not(BEHAVIOR.OperationMode == "AxCreate") then
DATA.Kenmerken.ViaNettoDiepte = UI.Kenmerken.ViaNettoDiepte;
end if;
if BEHAVIOR.IsModeNabestellen then
DATA.Kenmerken.ViaNettoDiepte = false;
end if;
end if;
*/DATA waarde instellen;true
UI.Kenmerken.ViaNettoDiepte@default = DATA.Kenmerken.ViaNettoDiepte;
UI waarde instellen;ui.kenmerken.vianettodiepte@default;true
for i = 1 to len(DATA.Kenmerken.LadeDiepte@options)
UI.Kenmerken.LadeDiepte@option(i)@valid = DATA.Kenmerken.LadeDiepte@option(i)@valid;
end for;
Valids;ui.kenmerken.ladediepte@valids;true
UI.Kenmerken.LadeDiepte@visible = not(DATA.Kenmerken.ViaNettoDiepte);
Visible;ui.kenmerken.ladediepte@visible;true
UI.Kenmerken.LadeDiepte@mandatory = not(DATA.Kenmerken.ViaNettoDiepte);
Mandatory;ui.kenmerken.ladediepte@mandatory;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
local string Dummy = "DoeNiets";
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.LadeDiepte = GetArg("data;kenmerken;ladediepte");
end if;
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.LadeDiepte")@id;
DATA.Kenmerken.LadeDiepte = CONFIG.Database.ConfigAnalyseProperties.Value;
end if;
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.LadeDiepte = UI.Kenmerken.LadeDiepte;
end if;
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
if not(UI.Kenmerken.LadeDiepte@visible) then
DATA.Kenmerken.LadeDiepte = "";
UI.Kenmerken.LadeDiepte = "";
end if;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
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;
end if;
*/;true
UI.Kenmerken.LadeDiepte@default = DATA.Kenmerken.LadeDiepte;
UI waarde instellen;ui.kenmerken.ladediepte@default;true
local collection _LbxLadeTypes = {"LegraboxPure";"LegraboxFree"};
UI.Kenmerken.HeeftLbxBinnenladeGlazenFront@visible = not(DATA.Kenmerken.ViaNettoBreedte) and (DATA.Kenmerken.LadeType in _LbxLadeTypes);
Visible;ui.kenmerken.heeftlbxbinnenladeglazenfront@visible;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
local string Dummy = "DoeNiets";
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront = CBool(GetArg("data;kenmerken;heeftlbxbinnenladeglazenfront"));
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
end if;
*/
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront = UI.Kenmerken.HeeftLbxBinnenladeGlazenFront;
end if;
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
if not(UI.Kenmerken.HeeftLbxBinnenladeGlazenFront@visible) then
DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront = false;
UI.Kenmerken.HeeftLbxBinnenladeGlazenFront = false;
end if;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront = CBool(GetArg("data;kenmerken;heeftlbxbinnenladeglazenfront"));
else
if not(BEHAVIOR.OperationMode == "AxCreate") then
DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront = UI.Kenmerken.HeeftLbxBinnenladeGlazenFront;
end if;
end if;
*/
DATA waarde instellen;true
UI.Kenmerken.HeeftLbxBinnenladeGlazenFront@default = DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront;
UI waarde instellen;ui.kenmerken.heeftlbxbinnenladeglazenfront@default;true
UI.Kenmerken.NettoDiepte@enabled = DATA.Kenmerken.ViaNettoDiepte;
Enabled;ui.kenmerken.nettodiepte@enabled;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
local string Dummy = "DoeNiets";
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.NettoDiepte = CDbl(GetArg("data;kenmerken;nettodiepte"));
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
end if;
*/
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.NettoDiepte = UI.Kenmerken.NettoDiepte;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
end if;
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
local double _NettoDiepte = CDbl(DATA.Kenmerken.LadeDiepte);
if not(DATA.Kenmerken.ViaNettoDiepte) then
if (DATA.Kenmerken.LadeType == "Merivobox") then
_NettoDiepte = (_NettoDiepte - 26);
end if;
if (DATA.Kenmerken.LadeType == "LegraboxPure") then
_NettoDiepte = (_NettoDiepte- 27);
if (DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront) then
_NettoDiepte = (_NettoDiepte - 13);
end if;
end if;
if (DATA.Kenmerken.LadeType == "LegraboxFree") then
_NettoDiepte = (_NettoDiepte - 27);
if (DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront) then
_NettoDiepte = (_NettoDiepte - 13);
end if;
end if;
if (DATA.Kenmerken.LadeType == "Taorbox") then
_NettoDiepte = (_NettoDiepte - 27);
end if;
if (DATA.Kenmerken.LadeType == "Tandembox") then
_NettoDiepte = (_NettoDiepte - 27);
end if;
//Op deze manier ziet de gebruiker geen negatieve waarden.
if (_NettoDiepte < 0) then
_NettoDiepte = 0;
end if;
DATA.Kenmerken.NettoDiepte = _NettoDiepte ;
end if;
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.NettoDiepte = CDbl(GetArg("data;kenmerken;nettodiepte"));
else
if not(BEHAVIOR.OperationMode == "AxCreate") then
DATA.Kenmerken.NettoDiepte = UI.Kenmerken.NettoDiepte;
end if;
end if;
local double _NettoDiepte = CDbl(DATA.Kenmerken.LadeDiepte);
if not(DATA.Kenmerken.ViaNettoDiepte) then
if (DATA.Kenmerken.LadeType == "Merivobox") then
_NettoDiepte = (_NettoDiepte - 26);
end if;
if (DATA.Kenmerken.LadeType == "LegraboxPure") then
_NettoDiepte = (_NettoDiepte- 27);
if (DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront) then
_NettoDiepte = (_NettoDiepte - 13);
end if;
end if;
if (DATA.Kenmerken.LadeType == "LegraboxFree") then
_NettoDiepte = (_NettoDiepte - 27);
if (DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront) then
_NettoDiepte = (_NettoDiepte - 13);
end if;
end if;
if (DATA.Kenmerken.LadeType == "Taorbox") then
_NettoDiepte = (_NettoDiepte - 27);
end if;
if (DATA.Kenmerken.LadeType == "Tandembox") then
_NettoDiepte = (_NettoDiepte - 27);
end if;
//Op deze manier ziet de gebruiker geen negatieve waarden.
if (_NettoDiepte < 0) then
_NettoDiepte = 0;
end if;
DATA.Kenmerken.NettoDiepte = _NettoDiepte ;
end if;
*/
DATA waarde instellen;true
UI.Kenmerken.NettoDiepte@default = DATA.Kenmerken.NettoDiepte;
UI waarde instellen;ui.kenmerken.nettodiepte@default;true
$UitsparingPane@visible = (DATA.Kenmerken.LadeToepassing in {"SP";"SY"});
Visible;trueVisibletrueMandatorytrue
$UitsparingPane@label = switch (DATA.Kenmerken.LadeToepassing)
case "SY": DATA.Kenmerken.LadeToepassing@option("SY")@label
case "SP": DATA.Kenmerken.LadeToepassing@option("SP")@label
else ""
end switch;
/*
if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then
UI.Kenmerken.UitsparingData.Z1@label = TRL.Z@label;
else
UI.Kenmerken.UitsparingData.Z1@label = TRL.Z1@label;
end if;
*/
Label;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
local string Dummy = "DoeNiets";
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.UitsparingData.UitsparingAantal = GetArg("data;kenmerken;uitsparingdata;uitsparingaantal");
DATA.Kenmerken.UitsparingData.X.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;x;breedte");".";","));
DATA.Kenmerken.UitsparingData.M.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;m;breedte");".";","));
DATA.Kenmerken.UitsparingData.Y.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;y;breedte");".";","));
DATA.Kenmerken.UitsparingData.Z1.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;breedte");".";","));
DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;diepte");".";","));
DATA.Kenmerken.UitsparingData.Z2.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z2;breedte");".";","));
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
end if;
*/
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.UitsparingData.UitsparingAantal = UI.Kenmerken.UitsparingData.UitsparingAantal;
DATA.Kenmerken.UitsparingData.X.Breedte = UI.Kenmerken.UitsparingData.X.Breedte;
DATA.Kenmerken.UitsparingData.M.Breedte = UI.Kenmerken.UitsparingData.M.Breedte;
DATA.Kenmerken.UitsparingData.Y.Breedte = UI.Kenmerken.UitsparingData.Y.Breedte;
DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.Kenmerken.UitsparingData.Z1.Breedte;
DATA.Kenmerken.UitsparingData.Z1.Diepte = UI.Kenmerken.UitsparingData.Z1.Diepte;
DATA.Kenmerken.UitsparingData.Z2.Breedte = UI.Kenmerken.UitsparingData.Z2.Breedte;
end if;
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
if not($UitsparingPane@visible) then
DATA.Kenmerken.UitsparingData.UitsparingAantal = "";
DATA.Kenmerken.UitsparingData.X.Breedte = 0;
DATA.Kenmerken.UitsparingData.M.Breedte = 0;
DATA.Kenmerken.UitsparingData.Y.Breedte = 0;
DATA.Kenmerken.UitsparingData.Z1.Breedte = 0;
DATA.Kenmerken.UitsparingData.Z1.Diepte = 0;
DATA.Kenmerken.UitsparingData.Z2.Breedte = 0;
end if;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
DATA waarde instellen;true
UI.Kenmerken.UitsparingData.UitsparingAantal@default = DATA.Kenmerken.UitsparingData.UitsparingAantal;
UI.Kenmerken.UitsparingData.X.Breedte@default = DATA.Kenmerken.UitsparingData.X.Breedte;
UI.Kenmerken.UitsparingData.M.Breedte@default = DATA.Kenmerken.UitsparingData.M.Breedte;
UI.Kenmerken.UitsparingData.Y.Breedte@default = DATA.Kenmerken.UitsparingData.Y.Breedte;
UI.Kenmerken.UitsparingData.Z1.Breedte@default = DATA.Kenmerken.UitsparingData.Z1.Breedte;
UI.Kenmerken.UitsparingData.Z1.Diepte@default = DATA.Kenmerken.UitsparingData.Z1.Diepte;
UI.Kenmerken.UitsparingData.Z2.Breedte@default = DATA.Kenmerken.UitsparingData.Z2.Breedte;
/*
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;
*/UI waarde instellen;ui.kenmerken.uitsparingdata.uitsparingaantal@default;ui.kenmerken.uitsparingdata.x.breedte@default;ui.kenmerken.uitsparingdata.m.breedte@default;ui.kenmerken.uitsparingdata.y.breedte@default;ui.kenmerken.uitsparingdata.z1.breedte@default;ui.kenmerken.uitsparingdata.z1.diepte@default;ui.kenmerken.uitsparingdata.z2.breedte@default;true
$VerpakkingPane@visible = not(BEHAVIOR.IsModeNabestellen);
Visible;true
local boolean _IsVerpakkingTypeBasisVisible = true;
local boolean _IsVerpakkingTypeTaorVisible = true;
local boolean _IsVerpakkingTypeOrgaluxVisible = true;
if (BEHAVIOR.IsEconAX) then
_IsVerpakkingTypeBasisVisible = false;
_IsVerpakkingTypeOrgaluxVisible = false;
if (CONFIG.Settings.HeeftAssortimentKS) then
_IsVerpakkingTypeOrgaluxVisible = true;
if (CONFIG.Settings.HeeftAssortimentIP) then
_IsVerpakkingTypeBasisVisible = true;
end if;
end if;
end if;
UI.Kenmerken.VerpakkingType@option("Basis")@visible= _IsVerpakkingTypeBasisVisible;
UI.Kenmerken.VerpakkingType@option("TAOR")@visible = _IsVerpakkingTypeTaorVisible;
UI.Kenmerken.VerpakkingType@option("ORGALUX")@visible = _IsVerpakkingTypeOrgaluxVisible;
Visible;ui.kenmerken.verpakkingtype@options;true
local boolean _IsVerpakkingTypeBasisValid = true;
local boolean _IsVerpakkingTypeTaorValid = true;
local boolean _IsVerpakkingTypeOrgaluxValid = true;
if (BEHAVIOR.IsEconAX) then
_IsVerpakkingTypeBasisValid = false;
_IsVerpakkingTypeOrgaluxValid = false;
if (CONFIG.Settings.HeeftAssortimentKS) then
_IsVerpakkingTypeOrgaluxValid = true;
if (CONFIG.Settings.HeeftAssortimentIP) then
_IsVerpakkingTypeBasisValid = true;
end if;
end if;
end if;
UI.Kenmerken.VerpakkingType@option("Basis")@valid = _IsVerpakkingTypeBasisValid;
UI.Kenmerken.VerpakkingType@option("TAOR")@valid = _IsVerpakkingTypeTaorValid;
UI.Kenmerken.VerpakkingType@option("ORGALUX")@valid = _IsVerpakkingTypeOrgaluxValid;
Valids;ui.kenmerken.verpakkingtype@valids;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
DATA.Kenmerken.VerpakkingType = Default.Kenmerken.VerpakkingType;
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.VerpakkingType = GetArg("data;kenmerken;verpakkingtype");
end if;
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
DATA.Kenmerken.VerpakkingType = "ORGALUX";
end if;
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Kenmerken.VerpakkingType = UI.Kenmerken.VerpakkingType;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
end if;
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Kenmerken.VerpakkingType = GetArg("data;kenmerken;verpakkingtype");
else
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;
*/
;data.kenmerken.verpakkingtype@value;true
UI.Kenmerken.VerpakkingType@default = DATA.Kenmerken.VerpakkingType;
UI waarde instellen;ui.kenmerken.verpakkingtype@default;true
UI.Kenmerken.VerpakkingTypeLabel@visible = (DATA.Kenmerken.VerpakkingType == "Basis");
Visible;ui.kenmerken.verpakkingtypelabel@visible;true
UI.Kenmerken.VerpakkingTypeLabel@default = UI.Kenmerken.VerpakkingTypeLabel@label;
UI waarde instellen;ui.kenmerken.verpakkingtypelabel@default;true
local boolean _IsAantalZichtbaar;
if(BEHAVIOR.IsEconAX) then
_IsAantalZichtbaar = false;
else
_IsAantalZichtbaar = true;
end if;
UI.Lijn.Aantal@visible = _IsAantalZichtbaar;
Visible;ui.lijn.aantal@visible;true
local boolean _IsAantalVerplicht;
if(BEHAVIOR.IsEconAX) then
_IsAantalVerplicht = false;
else
_IsAantalVerplicht = true;
end if;
UI.Lijn.Aantal@mandatory = _IsAantalVerplicht;
Mandatory;ui.lijn.aantal@mandatory;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
local string Dummy = "DoeNiets";
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Lijn.Aantal = CDbl(GetArg("data;lijn;aantal"));
end if;
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
DATA.Lijn.Aantal = 1;
end if;
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Lijn.Aantal = UI.Lijn.Aantal;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
end if;
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Lijn.Aantal = CDbl(GetArg("data;lijn;aantal"));
else
if (STATE.BijhorendeLadeConfiguratieLoaded) then
DATA.Lijn.Aantal = 1;
end if;
if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
DATA.Lijn.Aantal = UI.Lijn.Aantal;
end if;
end if;
*/
DATA waarde instellen;true
UI.Lijn.Aantal@default = DATA.Lijn.Aantal;
UI waarde instellen;ui.lijn.aantal@default;STATE.ValidationNeeded or (UI.Lijn.Aantal <> 0)
local double _Minimum = RANGE.Aantal.Minimum;
local double _Maximum = RANGE.Aantal.Maximum;
if UI.Lijn.Aantal@mandatory then
UI.Lijn.Aantal@inputvalidation = "min:" + _Minimum + ";multiplication:1;maxdecimals:0;";
else
UI.Lijn.Aantal@inputvalidation = "";
end if;
Validatie;ui.lijn.aantal@rangeset;true
local boolean _BEHAVIOR_IsReferentieZichtbaar;
if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive == true) then
_BEHAVIOR_IsReferentieZichtbaar = false;
else
_BEHAVIOR_IsReferentieZichtbaar = true;
end if;
UI.Lijn.Referentie@visible = _BEHAVIOR_IsReferentieZichtbaar;
Visible;ui.lijn.referentie@visible;true
if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
local string Dummy = "DoeNiets";
else
if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Lijn.Referentie = GetArg("data;lijn;referentie");
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
end if;
*/
if (STATE.DataKenmerkenInvullenVia == "UI") then
DATA.Lijn.Referentie = UI.Lijn.Referentie;
end if;
/*
if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
end if;
if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
end if;
*/
end if;
/*
if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
DATA.Lijn.Referentie = GetArg("data;lijn;referentie");
else
if not(BEHAVIOR.OperationMode == "AxCreate") then
DATA.Lijn.Referentie = UI.Lijn.Referentie;
end if;
end if;
*/
DATA waarde instellen;true
UI.Lijn.Referentie@default = DATA.Lijn.Referentie;
UI waarde instellen;ui.lijn.referentie@default;true
local boolean _IsMaatwerkViewerToegelaten = false;
if BEHAVIOR.IsEconAX then
_IsMaatwerkViewerToegelaten = CONFIG.Settings.IsMaatwerkViewerToegelaten;
end if;
local boolean _BEHAVIOR_IsPanelMaatwerkViewerZichtbaar = (_IsMaatwerkViewerToegelaten == true);
local boolean _BEHAVIOR_IsButtonMaatwerkViewerZichtbaar = (_IsMaatwerkViewerToegelaten == true);
UI.MWViewer@visible = _BEHAVIOR_IsPanelMaatwerkViewerZichtbaar;
UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible = _BEHAVIOR_IsButtonMaatwerkViewerZichtbaar;
Gedrag MaatwerkViewer button visible;ui.mwviewer@visible;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@visible;(UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible)
local boolean _BEHAVIOR_IsButtonMaatwerkViewerEnabled = false;
local long _AantalOngeldigeVelden = InvalidFields();
if _AantalOngeldigeVelden == 0 then
_BEHAVIOR_IsButtonMaatwerkViewerEnabled = true;
else
if (_AantalOngeldigeVelden == 1) then
DATA.Lijn.InvalidFieldSet@options = InvalidFieldSet();
if (DATA.Lijn.InvalidFieldSet@option(1)@id == "Ui.Lijn.Aantal") then
_BEHAVIOR_IsButtonMaatwerkViewerEnabled = true;
end if
end if
end if;
UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@enabled = _BEHAVIOR_IsButtonMaatwerkViewerEnabled;
Gedrag MaatwerkViewer button enabled;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@enabled;(UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible)
UI.MWViewer.BerekenAantal@default = 1;
UI.MWViewer.BerekenKlantnummer@default = CONFIG.Settings.KlantId;
UI.MWViewer.BerekenDatum@default = ""; // Default = Now
UI.MWViewer.FileSuffixVast@default = "001";
UI.MWViewer.HeeftVasteFileSuffix@default = false;
Initialiseer MaatwerkViewer velden;ui.mwviewer.berekenaantal@default;ui.mwviewer.berekenklantnummer@default;ui.mwviewer.berekendatum@default;ui.mwviewer.filesuffixvast@default;ui.mwviewer.heeftvastefilesuffix@default;true
UI.MWViewer.FileSuffixVast@visible = (UI.MWViewer.HeeftVasteFileSuffix == true);
Visible - TimeSuffixVast;ui.mwviewer.filesuffixvast@visible;(UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible) and (STATE.StartMaatwerkViewer == true)
// local collection _PropertyNamen = {"Data.Kenmerken.Familie";"Data.Kenmerken.Variant";"Data.Kenmerken.BodemKleur";"Data.Kenmerken.Draagkracht"};
// Vreemd genoeg lukt het niet via een locale collection :-(
// Dan maar via een array-Property
CONFIG.WebService.PropertyNamen@length = 999;
local Long _i = 0;
// Hoofdletters (Firstcase) zoals de "eCon-ConfigAnalyse Namen" :
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Familie";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Variant";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Bodemkleur";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Corpusbreedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Corpuswanddikte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Draagkracht";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Frontbevestiging";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Geleidertechnologie";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Internebreedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Isbinnenbreedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Isbinnenlade";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladediepte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladehoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladekleur";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matkleur";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matmateriaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Meenemerset";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftmat";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftafwijkenderughoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftopvullijstlinks";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftopvullijstrechts";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftzijstabilisering";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Opvullijstkleur";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Productiewijze";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Rughoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Rugwandmateriaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Toepassing";
/*
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Uitsparingaantal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Breedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Hoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Materiaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Breedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Hoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Materiaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Breedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Hoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Materiaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Breedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Diepte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Hoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Materiaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Vorm";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Breedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Diepte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Hoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Materiaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Vorm";
*/
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Verpakkingtype";
CONFIG.WebService.PropertyNamen@length = _i;
/*
// ==========================================
// !!! LET OP !!! Hetvolgende werkt NIET !!!
// ==========================================
// Hoofdletters (UpperCamelCase) zoals de "eCon-property Namen" :
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Familie";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Variant";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.BodemKleur";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Draagkracht";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.FrontBevestiging";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.GeleiderTechnologie";
...
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.ZijwandVerhogingType";
*/
MaatwerkViewer Properties in Array steken;config.webservice.propertynamen[1]@value;(STATE.StartMaatwerkViewer == true)
STATE.StartMaatwerkViewer = false;
// ================================
// Initialisatie
// ================================
local string _XmlRequest = "";
local string _Service = GetSetting("data.vanhoecke.connectionstring.cache.maatwerkviewerservice");
local string _Variant = Data.Kenmerken.Variant;
local string _TimeSuffix = "001";
local string _FileSuffixVast = UI.MWViewer.FileSuffixVast;
if (UI.MWViewer.HeeftVasteFileSuffix) then
_FileSuffixVast = replace(_FileSuffixVast; ":"; "");
_FileSuffixVast = replace(_FileSuffixVast; "?"; "");
_FileSuffixVast = replace(_FileSuffixVast; "*"; "");
_FileSuffixVast = replace(_FileSuffixVast; "/"; "");
_FileSuffixVast = replace(_FileSuffixVast; "\\"; "");
_FileSuffixVast = replace(_FileSuffixVast; "<"; "");
_FileSuffixVast = replace(_FileSuffixVast; ">"; "");
_FileSuffixVast = Trim(_FileSuffixVast);
end if;
if (UI.MWViewer.HeeftVasteFileSuffix and (_FileSuffixVast <> "") ) then
_TimeSuffix = _FileSuffixVast;
else
_TimeSuffix = CStr(Year()) + CStr(Month()) + CStr(Day()) + "_" + CStr(Hour()) + "" + CStr(Minute()) + "" + CStr(Second());
end if;
local string _PersonalityId = Config.Settings.PersonalityId;
local string _BerekenKlantNummer = CStr(UI.MWViewer.BerekenKlantnummer);
local string _BerekenAantal = CStr(UI.MWViewer.BerekenAantal);
local string _BerekenDatum = CStr(UI.MWViewer.BerekenDatum);
local string _Username = "WimV-TEST";
local string _Filename = "maatwerkviewer_" + _Variant + "_" + _TimeSuffix + ".txt"; // File extension : .txt OF .xls
//local string _Filepath = "\\\\Notes01\\shared\\w v\\";
local string _Filepath = "\\\\Notes01\\shared\\AX\\e-Con_MaatwerkViewer\\";
local string _FullFilename = _Filepath + _Filename;
local string _EconConfiguratieKVPs = "";
local string _PropertyNaam = "";
// ================================
// Lokale Development/Debugging (tijdelijk)
// ================================
/* * /
local boolean _WebServiceAfleidenNaarLokalePC = false;
if _WebServiceAfleidenNaarLokalePC then
_Service = replace(_Service; "cachestaging2010"; "WV-W10");
_Filename = "\\\\WV-W10\\D$\\Temp\\maatwerkviewer_MVX_001.xls";
end if;
/* */
// ================================
// Fallback Default values
// ================================
if (_PersonalityId == "") then
_PersonalityId = "1";
end if;
if (_BerekenKlantNummer == "") then
_BerekenKlantNummer = "6819";
end if;
if (_BerekenAantal == "") or (_BerekenAantal == "0") then
_BerekenAantal = "1";
end if;
// ====================================
// Kenmerken KeyValuePairs opbouwen
// ====================================
index i of CONFIG.WebService.PropertyNamen
_PropertyNaam = CONFIG.WebService.PropertyNamen(i);
_EconConfiguratieKVPs = _EconConfiguratieKVPs + " <view:String EconConfiguratieKey='" + _PropertyNaam + "'>" + CStr(Eval(_PropertyNaam)) + "</view:String> ";
end index;
// ================================
// _XmlRequest opbouwen
// ================================
_XmlRequest = _XmlRequest + "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:view='http://www.vanhoecke.be/WS/PM/Maatwerk/Viewer/Viewer'>";
_XmlRequest = _XmlRequest + "<soapenv:Header/>";
_XmlRequest = _XmlRequest + "<soapenv:Body>";
_XmlRequest = _XmlRequest + "<view:SchrijfPlatteTekst>"; // WebMethod : SchrijfPlatteTekst OF SchrijfExcel
_XmlRequest = _XmlRequest + "<view:MaatwerkViewerRequest>";
/* * /
// Request Header is niet voorzien in het Caché-object WS.PM.Maatwerk.Viewer.MaatwerkViewerRequest, dus hier niet toevoegen, anders zal de WS-call crashen.
_XmlRequest = _XmlRequest + "<view:Header>";
_XmlRequest = _XmlRequest + "<view:PersonalityID>" + _PersonalityId + "</view:PersonalityID>";
_XmlRequest = _XmlRequest + "</view:Header>";
/* */
_XmlRequest = _XmlRequest + "<view:KlantNummer>" + _BerekenKlantNummer + "</view:KlantNummer>";
_XmlRequest = _XmlRequest + "<view:Aantal>" + _BerekenAantal + "</view:Aantal>";
_XmlRequest = _XmlRequest + "<view:Datum>" + _BerekenDatum + "</view:Datum>";
_XmlRequest = _XmlRequest + "<view:Username>" + _Username + "</view:Username>";
_XmlRequest = _XmlRequest + "<view:Filename>" + _FullFilename + "</view:Filename>";
_XmlRequest = _XmlRequest + "<view:EconConfiguratie>" + _EconConfiguratieKVPs + "</view:EconConfiguratie>";
_XmlRequest = _XmlRequest + "</view:MaatwerkViewerRequest>";
_XmlRequest = _XmlRequest + "</view:SchrijfPlatteTekst>"; // WebMethod : SchrijfPlatteTekst OF SchrijfExcel
_XmlRequest = _XmlRequest + "</soapenv:Body>";
_XmlRequest = _XmlRequest + "</soapenv:Envelope>";
// ================================
// WebService call uitvoeren
// ================================
local boolean _Result = LoadFromXMLService("CONFIG.WebService.MaatwerkViewerSchrijfExcel.ResultaatDummy"; _Service; false; _XmlRequest);
local string _Status = "";
local string _Feedback = "";
if (_Result) then
_Status = "Gelukt: ";
STATE.MaatwerkViewerServiceLoaded = true;
UI.MWViewer.OutputFilePath = _FullFileName;
else
_Status = "Mislukt: ";
STATE.MaatwerkViewerServiceLoaded = false;
UI.MWViewer.OutputFilePath = "[Error]";
end if;
// Debugging info :
_Feedback = "Resultaat van de web service 'MaatwerkViewer in Excel' Status ='" + _Status + "'. " + "\n" + "(LET OP: Soap fault wordt ook als succes teruggegeven)";
local long _FeedbackResult = MsgBox(_Feedback);
// AaaDebugInfo = _Status + _Service;
MaatwerkViewer starten;state.startmaatwerkviewer@value;state.maatwerkviewerserviceloaded@value;ui.mwviewer.outputfilepath@value;true
if ((STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit")) then
STATE.DataKenmerkenInvullenVia = "DefaultenOnExit";
end if;
StatenFlow DataKenmerkenInvullenVia Fase 2;state.datakenmerkeninvullenvia@value;true
if (STATE.DataKenmerkenInvullenVia == "InitieleDefaults") then
if not(BEHAVIOR.IsInteractive) then
STATE.DataKenmerkenInvullenVia = "GetArgs";
else
if (STATE.BijhorendeLadeConfiguratieLoaded) then
STATE.DataKenmerkenInvullenVia = "BijhorendeLade";
else
STATE.DataKenmerkenInvullenVia = "UI";
end if;
end if;
end if;
if ((STATE.DataKenmerkenInvullenVia == "BijhorendeLade") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
STATE.DataKenmerkenInvullenVia = "UI";
end if;
if ((STATE.DataKenmerkenInvullenVia in {"UI";"GetArgs"}) and (STATE.SavedAndExit or STATE.SavedAndContinue or STATE.KlantVoorkeurenSaved or STATE.ProcessedAndExit)) then
STATE.DataKenmerkenInvullenVia = "LeegmakenOnExit";
end if;
StatenFlow DataKenmerkenInvullenVia Fase 1;state.datakenmerkeninvullenvia@value;STATE.BijhorendeLadeConfiguratieLoadedSTATE.BijhorendeLadeConfiguratieLoaded = false;BijhorendeLadeConfiguratieLoaded;state.bijhorendeladeconfiguratieloaded@value;trueDATA.Kenmerken.Kleur@valids = ConstrainedOptions("DATA.Kenmerken.Kleur,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeType,DATA.Kenmerken.Materiaal@Valids"; "DATA.Kenmerken.Kleur"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeType"; DATA.Kenmerken.LadeType; "DATA.Kenmerken.Materiaal"; DATA.Kenmerken.Materiaal);
Applying constraints for property DATA.Kenmerken.Kleur;data.kenmerken.kleur@valids;ConstraintsNotSatisfiedFor("DATA.Kenmerken.Kleur,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeType,DATA.Kenmerken.Materiaal@Valids")ConstraintsErrorMessagesFor("DATA.Kenmerken.Kleur,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeType,DATA.Kenmerken.Materiaal@Valids")Gather constraint messages for decision table DATA.Kenmerken.Kleur,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeType,DATA.Kenmerken.Materiaal@Valids;trueDATA.Kenmerken.LadeDiepte@valids = ConstrainedOptions("DATA.Kenmerken.Kleur,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeType,DATA.Kenmerken.Materiaal@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeType,DATA.Kenmerken.Materiaal@Valids"; "DATA.Kenmerken.LadeDiepte"; "DATA.Kenmerken.Kleur"; DATA.Kenmerken.Kleur; "DATA.Kenmerken.LadeType"; DATA.Kenmerken.LadeType; "DATA.Kenmerken.Materiaal"; DATA.Kenmerken.Materiaal);
Applying constraints for property DATA.Kenmerken.LadeDiepte;data.kenmerken.ladediepte@valids;trueDATA.Kenmerken.LadeType@valids = ConstrainedOptions("DATA.Kenmerken.Kleur,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeType,DATA.Kenmerken.Materiaal@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeType,DATA.Kenmerken.Materiaal@Valids"; "DATA.Kenmerken.LadeType"; "DATA.Kenmerken.Kleur"; DATA.Kenmerken.Kleur; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.Materiaal"; DATA.Kenmerken.Materiaal);
Applying constraints for property DATA.Kenmerken.LadeType;data.kenmerken.ladetype@valids;trueDATA.Kenmerken.Materiaal@valids = ConstrainedOptions("DATA.Kenmerken.Kleur,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeType,DATA.Kenmerken.Materiaal@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeType,DATA.Kenmerken.Materiaal@Valids"; "DATA.Kenmerken.Materiaal"; "DATA.Kenmerken.Kleur"; DATA.Kenmerken.Kleur; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeType"; DATA.Kenmerken.LadeType);
Applying constraints for property DATA.Kenmerken.Materiaal;data.kenmerken.materiaal@valids;ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeType,DATA.Kenmerken.Materiaal@Valids")ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeType,DATA.Kenmerken.Materiaal@Valids")Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeType,DATA.Kenmerken.Materiaal@Valids;true
if (CONFIG.InputMode == "CreateConfig") then
STATE.WinkelkarInfoCalculated = false;
end if;
State aanpassen;state.winkelkarinfocalculated@value;true
if (CONFIG.InputMode == "CreateConfig") then
STATE.WinkelkarInfoDiverseCalculated = false;
end if;
State aanpassen;state.winkelkarinfodiversecalculated@value;trueBerekennot(STATE.Initialized) and (BEHAVIOR.OperationMode == "AxCreate")
STATE.ProcessedAndExit = true;
ProcessedAndExit voor AxCreate;state.processedandexit@value;(STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit or not(BEHAVIOR.IsInteractive))
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;true
DATA.Lijn.GroeperingCode = DATA.Kenmerken.Variant + "_" + DATA.Kenmerken.Materiaal + ";" + DATA.Kenmerken.Kleur;
Bepaal GroeperingCode;data.lijn.groeperingcode@value;STATE.SavedAndExit or STATE.SavedAndContinue or STATE.KlantVoorkeurenSaved or STATE.ProcessedAndExit
/*
if not(UI.Kenmerken.CorpusWanddikte@visible) then
DATA.Kenmerken.CorpusWanddikte = 0;
UI.Kenmerken.CorpusWanddikte = 0;
end if;
if not(UI.Kenmerken.Corpusbreedte@visible) then
DATA.Kenmerken.Corpusbreedte = 0;
UI.Kenmerken.Corpusbreedte = 0;
end if;
if not(UI.Kenmerken.HeeftOpvullijstLinks@visible) then
DATA.Kenmerken.HeeftOpvullijstLinks = false;
UI.Kenmerken.HeeftOpvullijstLinks = false;
end if;
if not(UI.Kenmerken.HeeftOpvullijstRechts@visible) then
DATA.Kenmerken.HeeftOpvullijstRechts = false;
UI.Kenmerken.HeeftOpvullijstRechts = false;
end if;
if not(UI.Kenmerken.HeeftLbxBinnenladeGlazenFront@visible) then
DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront = false;
UI.Kenmerken.HeeftLbxBinnenladeGlazenFront = false;
end if;
if not(UI.Kenmerken.LadeDiepte@visible) then
DATA.Kenmerken.LadeDiepte = "";
UI.Kenmerken.LadeDiepte = "";
end if;
if (not(UI.Kenmerken.LadeType@visible) and DATA.Kenmerken.ViaNettoBreedte and DATA.Kenmerken.ViaNettoDiepte) then
DATA.Kenmerken.LadeType = "";
UI.Kenmerken.LadeType = "";
end if;
if (not(UI.Kenmerken.LadeToepassing@visible) and DATA.Kenmerken.ViaNettoBreedte and DATA.Kenmerken.ViaNettoDiepte) then
DATA.Kenmerken.LadeToepassing = "";
UI.Kenmerken.LadeToepassing= "";
end if;
*/
Verborgen properties wissen;STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExitVerborgen properties defaulten;not(STATE.WinkelkarInfoCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or not(BEHAVIOR.IsInteractive))
/*
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;
_Groepering = "MERIVOBOX - ";
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 = "";
DATA.Lijn.WinkelkarInfo(i).CorpusWanddikte = "";
DATA.Lijn.WinkelkarInfo(i).Draagkracht = "";
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 = "";
DATA.Lijn.WinkelkarInfo(i).TaalCode = _TaalCode;
DATA.Lijn.WinkelkarInfo(i).TotaalPrijs = "";
end for;
*/
WinkelkarInfo;not(STATE.WinkelkarInfoDiverseCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or not(BEHAVIOR.IsInteractive))
/*
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 _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;
local double MINIMUM_BREEDTE_GEWONE_LADE = 237; // Kleiner dan deze afmeting is "Smalle lade"
local boolean _IsSmalleLade = (DATA.Kenmerken.InterneBreedte < MINIMUM_BREEDTE_GEWONE_LADE);
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 _InfoIsSmalleLade = "";
local string _InfoNietMeeleveren = "";
local string _UitsparingAfmetingen = "";
if (UI.Kenmerken.Toepassing <> "L" and UI.Kenmerken.Toepassing <> "SST") 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.ZijwandType == "Free") then
_InfoZijwandType = GetLabel(_ZijwandTypeOptionLabel; _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 _IsSmalleLade then
_InfoIsSmalleLade = GetLabel("InfoDiverse_IsSmalleLade"; _Model; ""; _TaalCode);
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 = 16;
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] = _InfoIsSmalleLade;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[15] = _InfoNietMeeleveren;
end for;
*/
WinkelkarInfo - InfoDiverse;STATE.SavedAndExit or STATE.SavedAndContinue or not(BEHAVIOR.IsInteractive) or (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive)
if (DATA.Kenmerken.VerpakkingType == "Basis") then
ItemId = "9.683.185.8";
end if;
if (DATA.Kenmerken.VerpakkingType == "TAOR") then
ItemId = "9.584.908.8";
end if;
if (DATA.Kenmerken.VerpakkingType == "ORGALUX") then
ItemId = "9.741.396.11";
end if;
// tijdelijk totdat kenmerken binnenkomen
if (ItemId == "") then ItemId = "9.683.185.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.ProcessedAndExit
STATE.ProcessedAndExit = false;
STATE.ValidationNeeded = true;
ProcessedAndExit ;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>" + TRL.BewarenError@label + ":" + "</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>" + TRL.BewarenError@label + ":" + "</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>" + TRL.BewarenKlantVoorkeurenSucces@label + "</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 + DATA.Kenmerken.NietMeeleveren@label + ": " + 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>" + TRL.BewarenKlantVoorkeurenError@label + "</b>";
end if;
local long _FeedbackResult = MsgBox(_Feedback);
_Result = SetArg("saveas"; ElementName(CONFIG.ConfigurationName)); // originele ConfigurationName terugzetten
SaveKlantVoorkeuren;state.klantvoorkeurensaved@value;EAUCAAAAAAARBQIAAAAAABAFAwAAAAAAEQUDAAAAAAA=ARAFAQAAAAACEAUBAAAAAAERBQEAAAAAAhEFAQAAAAA=