STATE.Initialized
Initialisatie
;
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
Algemene input parameters ophalen
;config.backend@value;config.processmode@value;config.token@value;config.language@value;config.initiator@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;
_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 (CONFIG.Initiator == "Ax.SalesOrderIn") 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 = (CONFIG.Initiator == "Ax.SalesOrderIn");
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 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");
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;config.inputmode@value;config.settings.operationmode@value;
BEHAVIOR.IsEconAx
Initialisatie AX
;
true
CONFIG.Settings.KlantId = GetArg("KlantId");
CONFIG.Settings.PersonalityId = GetArg("PersonalityId");
SalesTableAx = GetArg("SalesTableAx");
Settings ophalen uit argumenten
;config.settings.klantid@value;config.settings.personalityid@value;salestableax@value;
(CONFIG.ProcessMode == "Background")
Data.Kenmerken.BodemKleur = GetArg("data;kenmerken;bodemkleur");
Data.Kenmerken.CorpusBreedte = CDbl(Replace(GetArg("data;kenmerken;corpusbreedte");".";","));
Data.Kenmerken.CorpusWanddikte = CDbl(Replace(GetArg("data;kenmerken;corpuswanddikte");".";","));
Data.Kenmerken.Draagkracht = GetArg("data;kenmerken;draagkracht");
Data.Kenmerken.DwarsverdelingAantal = GetArg("data;kenmerken;dwarsverdelingaantal");
Data.Kenmerken.Familie = GetArg("data;kenmerken;familie");
Data.Kenmerken.FrontBevestiging = GetArg("data;kenmerken;frontbevestiging");
Data.Kenmerken.GeleiderTechnologie = GetArg("data;kenmerken;geleidertechnologie");
Data.Kenmerken.HeeftOpvullijstLinks = CBool(GetArg("data;kenmerken;heeftopvullijstlinks"));
Data.Kenmerken.HeeftOpvullijstRechts = CBool(GetArg("data;kenmerken;heeftopvullijstrechts"));
Data.Kenmerken.HeeftZijstabilisering = CBool(GetArg("data;kenmerken;heeftzijstabilisering"));
Data.Kenmerken.IsBinnenbreedte = CBool(GetArg("data;kenmerken;isbinnenbreedte"));
Data.Kenmerken.IsBinnenlade = CBool(GetArg("data;kenmerken;isbinnenlade"));
Data.Kenmerken.LadeDiepte = GetArg("data;kenmerken;ladediepte");
Data.Kenmerken.LadeHoogte = GetArg("data;kenmerken;ladehoogte");
Data.Kenmerken.LadeKleur = GetArg("data;kenmerken;ladekleur");
Data.Kenmerken.MatKleur = GetArg("data;kenmerken;matkleur");
Data.Kenmerken.MatMateriaal = GetArg("data;kenmerken;matmateriaal");
Data.Kenmerken.MeenemerSet = GetArg("data;kenmerken;meenemerset");
Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBinnen = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkapbinnen"));
Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBuiten = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkapbuiten"));
Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkaprugwandhouder"));
Data.Kenmerken.NietMeeleveren.NietMeeleveren_BevestigingBodemFront = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_bevestigingbodemfront"));
Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_frontbevestiging"));
Data.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_geleider"));
Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementVoor = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_inschuifelementvoor"));
Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementZijkant = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_inschuifelementzijkant"));
Data.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_opvullijst"));
Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionset"));
Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionseteenhedenenmeenemers"));
Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionsynchronisatiestang"));
Data.Kenmerken.NietMeeleveren.NietMeeleveren_Zijstabilisering = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_zijstabilisering"));
Data.Kenmerken.OpvullijstKleur = GetArg("data;kenmerken;opvullijstkleur");
Data.Kenmerken.ProductieWijze = GetArg("data;kenmerken;productiewijze");
Data.Kenmerken.RugHoogte = GetArg("data;kenmerken;rughoogte");
Data.Kenmerken.RugwandMateriaal = GetArg("data;kenmerken;rugwandmateriaal");
Data.Kenmerken.Toepassing = GetArg("data;kenmerken;toepassing");
Data.Kenmerken.UitsparingData.UitsparingAantal = GetArg("data;kenmerken;uitsparingdata;uitsparingaantal");
Data.Kenmerken.UitsparingData.M.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;m;breedte");".";","));
Data.Kenmerken.UitsparingData.M.Hoogte = GetArg("data;kenmerken;uitsparingdata;m;hoogte");
Data.Kenmerken.UitsparingData.M.Materiaal = GetArg("data;kenmerken;uitsparingdata;m;materiaal");
Data.Kenmerken.UitsparingData.X.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;x;breedte");".";","));
Data.Kenmerken.UitsparingData.X.Hoogte = GetArg("data;kenmerken;uitsparingdata;x;hoogte");
Data.Kenmerken.UitsparingData.X.Materiaal = GetArg("data;kenmerken;uitsparingdata;x;materiaal");
Data.Kenmerken.UitsparingData.Y.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;y;breedte");".";","));
Data.Kenmerken.UitsparingData.Y.Hoogte = GetArg("data;kenmerken;uitsparingdata;y;hoogte");
Data.Kenmerken.UitsparingData.Y.Materiaal = GetArg("data;kenmerken;uitsparingdata;y;materiaal");
Data.Kenmerken.UitsparingData.Z1.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;breedte");".";","));
Data.Kenmerken.UitsparingData.Z1.Diepte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;diepte");".";","));
Data.Kenmerken.UitsparingData.Z1.Hoogte = GetArg("data;kenmerken;uitsparingdata;z1;hoogte");
Data.Kenmerken.UitsparingData.Z1.Materiaal = GetArg("data;kenmerken;uitsparingdata;z1;materiaal");
Data.Kenmerken.UitsparingData.Z1.Vorm = GetArg("data;kenmerken;uitsparingdata;z1;vorm");
Data.Kenmerken.UitsparingData.Z2.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z2;breedte");".";","));
Data.Kenmerken.UitsparingData.Z2.Diepte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z2;diepte");".";","));
Data.Kenmerken.UitsparingData.Z2.Hoogte = GetArg("data;kenmerken;uitsparingdata;z2;hoogte");
Data.Kenmerken.UitsparingData.Z2.Materiaal = GetArg("data;kenmerken;uitsparingdata;z2;materiaal");
Data.Kenmerken.UitsparingData.Z2.Vorm = GetArg("data;kenmerken;uitsparingdata;z2;vorm");
Data.Kenmerken.Variant = GetArg("data;kenmerken;variant");
Data.Kenmerken.VerpakkingType = GetArg("data;kenmerken;verpakkingtype");
Data.Kenmerken.VoorwandTypeVanCBinnenlade = GetArg("data;kenmerken;voorwandtypevancbinnenlade");
Data.Kenmerken.VoorwandTypeVanKBinnenlade = GetArg("data;kenmerken;voorwandtypevankbinnenlade");
Data.Kenmerken.VoorwandTypeVanMBinnenlade = GetArg("data;kenmerken;voorwandtypevanmbinnenlade");
Data.Kenmerken.ZijwandType = GetArg("data;kenmerken;zijwandtype");
DATA.Kenmerken.SpaceStep.Breedte = CDbl(Replace(GetArg("data;kenmerken;spacestep;breedte");".";","));
DATA.Kenmerken.SpaceStep.Hoogte = CDbl(Replace(GetArg("data;kenmerken;spacestep;hoogte");".";","));
DATA.Kenmerken.SpaceStep.Diepte = GetArg("data;kenmerken;spacestep;diepte");
DATA.Kenmerken.SpaceStep.Kleur = GetArg("data;kenmerken;spacestep;kleur");
DATA.Kenmerken.SpaceStep.Uitvoering = GetArg("data;kenmerken;spacestep;uitvoering");
DATA.Kenmerken.SpaceStep.Bewegingstechnologie = GetArg("data;kenmerken;spacestep;bewegingstechnologie");
DATA.Kenmerken.SpaceStep.StekkerServodrive = Cbool(Replace(GetArg("data;kenmerken;spacestep;stekkerservodrive");".";","));
DATA.Kenmerken.SpaceStep.StekkerType = GetArg("data;kenmerken;spacestep;stekkertype");
Data.Lijn.Aantal = CDbl(GetArg("data;lijn;aantal"));
Data.Lijn.Referentie = GetArg("data;lijn;referentie");
//Data.Kenmerken. = GetArg("data;kenmerken;explicietgekozenkenmerken");
//Data.Kenmerken. = GetArg("data;kenmerken;gekoppeldeingegevenkenmerken");
//Data.Kenmerken. = GetArg("data;kenmerken;omschrijving");
//Data.Kenmerken.NietMeeleveren.NietMeeleveren_ = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponsynchronisatieset"));
Kenmerken ophalen uit argumenten (Background)
;data.kenmerken.bodemkleur@value;data.kenmerken.corpusbreedte@value;data.kenmerken.corpuswanddikte@value;data.kenmerken.draagkracht@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.familie@value;data.kenmerken.frontbevestiging@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladediepte@value;data.kenmerken.ladehoogte@value;data.kenmerken.ladekleur@value;data.kenmerken.matkleur@value;data.kenmerken.matmateriaal@value;data.kenmerken.meenemerset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkapbinnen@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkapbuiten@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkaprugwandhouder@value;data.kenmerken.nietmeeleveren.nietmeeleveren_bevestigingbodemfront@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestiging@value;data.kenmerken.nietmeeleveren.nietmeeleveren_geleider@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelementvoor@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelementzijkant@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.kenmerken.nietmeeleveren.nietmeeleveren_zijstabilisering@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.productiewijze@value;data.kenmerken.rughoogte@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.toepassing@value;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.x.breedte@value;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.y.breedte@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.breedte@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.z2.breedte@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value;data.kenmerken.variant@value;data.kenmerken.verpakkingtype@value;data.kenmerken.voorwandtypevancbinnenlade@value;data.kenmerken.voorwandtypevankbinnenlade@value;data.kenmerken.voorwandtypevanmbinnenlade@value;data.kenmerken.zijwandtype@value;data.kenmerken.spacestep.breedte@value;data.kenmerken.spacestep.hoogte@value;data.kenmerken.spacestep.diepte@value;data.kenmerken.spacestep.kleur@value;data.kenmerken.spacestep.uitvoering@value;data.kenmerken.spacestep.bewegingstechnologie@value;data.kenmerken.spacestep.stekkerservodrive@value;data.kenmerken.spacestep.stekkertype@value;data.lijn.aantal@value;data.lijn.referentie@value;
(CONFIG.ProcessMode <> "Background")
Kenmerken ophalen uit argumenten (Interactive)
;
not(CONFIG.Backend == "axapta")
if (CONFIG.Token == "") then
// todo: configurator afsluiten indien geen token opgegeven
local boolean _Result = true; //Exit(true;false);
end if;
Initialisatie web
;
true
STATE.KlantVoorkeurenSaved = false;
Initialisatie states
;state.klantvoorkeurensaved@value;
true
local string _DebugMode = GetSetting("ui.debugmode");
if (LCase(_DebugMode) == "true") then
Config.Settings.DebugMode = true;
end if;
$InspectorPane@visible = Config.Settings.DebugMode;
Ophalen DebugMode
;config.settings.debugmode@value;
(CONFIG.Backend <> "axapta")
local string _Connection = GetSetting("data.connectionstring");
local string _Query = "SELECT Id, Name FROM ti.MDLanguage WHERE Active = '1'";
CONFIG.Database.Languages@options = {};
CONFIG.Database.Languages@options = ExecuteOptionsQuery("CONFIG.Database.Languages"; true; _Connection; _Query);
STATE.LanguagesLoaded = true;
Actieve talen ophalen
;config.database.languages@options;state.languagesloaded@value;
BEHAVIOR.IsInteractive
HELP.HelpUrl = "lbx/" + CONFIG.Language + ".xml";
Tooltips
;help.helpurl@value;
true
local boolean _Result = CopyOptionsToArray("UI.Kenmerken.NietMeeleverenOptions"; "UI.Kenmerken.NietMeeleveren");
index i of UI.Kenmerken.NietMeeleveren
UI.Kenmerken.NietMeeleveren(i)@label = GetLocalizedLabel("NietMeeleveren");
UI.Kenmerken.NietMeeleveren(i)@repeat = false;
UI.Kenmerken.NietMeeleveren(i).IsSelected@style.controlclass = "vh-slidercheckbox";
UI.Kenmerken.NietMeeleveren(i).Text@style.controlclass = "vh-checkboxlist-item";
UI.Kenmerken.NietMeeleveren(i).Text = GetLocalizedLabel(UI.Kenmerken.NietMeeleveren(i).Text);
end index;
NietMeeleveren
;ui.kenmerken.nietmeeleveren[1].text@value;
true
local boolean _Result;
local string _SaveAs = GetArg("saveas");
local string _Configuration = GetArg("configuration");
local string _Version = GetArg("version");
if (_SaveAs == "" and _Configuration <> "") then
_SaveAs = ElementId(_Configuration; _Version);
end if;
if (CONFIG.ConfigurationName == "") then
if (_SaveAs <> "") then
CONFIG.ConfigurationName = _SaveAs;
else
CONFIG.ConfigurationName = NewId() + ",1";
end if;
end if;
if ((_SaveAs == "") and (CONFIG.ConfigurationName <> "")) then
_Result = SetArg("saveas"; ElementName(CONFIG.ConfigurationName));
_SaveAs = CONFIG.ConfigurationName;
end if;
if ((CONFIG.ConfigurationName <> "") and (_SaveAs <> "") and (CONFIG.ConfigurationName <> _SaveAs)) then
CONFIG.ConfigurationName = _SaveAs;
end if
ConfigurationId bepalen
;config.configurationname@value;
(CONFIG.Token <> "") and (BEHAVIOR.IsEconWeb)
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.Token <> "") and (Config.Backend <> "axapta")
local collection _ExportPersonalities = {"3";"10";"11";"13";"14";"16";"17";"18";"19";"20";"32";"33";"34";"35";"36"};
// HEIN + SEEFELDER
if ((Config.Settings.PersonalityId == "11") or (Config.Settings.PersonalityId == "13")) then
Config.Settings.FrontBevestigingVerbergen = true;
Config.Settings.IsBenelux = false;
end if;
// DARO
if (Config.Settings.PersonalityId == "10") then
Config.Settings.NietMeeleverenVerbergen = false;
Config.Settings.IsBenelux = false;
/*index i of UI.Kenmerken.NietMeeleveren
local string _Id = UI.Kenmerken.NietMeeleveren(i).Id;
if (_Id == "AfdekkapBinnen") OR (_Id == "AfdekkapBuiten") then
UI.Kenmerken.NietMeeleveren(i)@visible = false;
end if;
end index;*/
end if;
// SFS
if (Config.Settings.PersonalityId == "3") then
Config.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten = false;
end if;
// FURNIFIT
if (Config.Settings.PersonalityId == "24") then
Config.Settings.VerpakkingProboxToegelaten = false;
end if;
// VAN HOECKE
if (Config.Settings.PersonalityId == "1") then
Config.Settings.NietMeeleverenVerbergen = false;
end if;
// MatMateriaalAntislip verbergen voor alle MP
if (Config.Settings.PersonalityId <> "1") then
CONFIG.Settings.MatMateriaalAntislipToegelaten = false;
end if;
Config settings hardcoded (settings voor de MP)
;config.settings.frontbevestigingverbergen@value;config.settings.isbenelux@value;config.settings.nietmeeleverenverbergen@value;config.settings.voorwandtypevanmbinnenladeglastoegelaten@value;config.settings.verpakkingproboxtoegelaten@value;config.settings.matmateriaalantisliptoegelaten@value;
true
Config.ReferentieConfiguratie = GetArg("referentieconfiguratie");
ReferentieConfiguratie ophalen
;config.referentieconfiguratie@value;
(Config.InputMode <> "CreateConfig") and (Config.Backend <> "axapta")
CONFIG.KlantVoorkeurenConfigurationName = DATA.Kenmerken.Variant + "_" + Config.Settings.PersonalityId + "_" + CONFIG.Settings.KlantId;
KlantVoorkeuren naam bepalen
;config.klantvoorkeurenconfigurationname@value;
true
UI.Buttons.Top.SaveAndExitButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndExit','true'";
UI.Buttons.Top.SaveAndContinueButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndContinue','true'";
UI.Buttons.Top.CancelButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.Cancelled','true'";
UI.Buttons.Top.PreferencesButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.KlantVoorkeurenSaved','true'";
// andere werking in AX
//UI.Buttons.Top.ProcessButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.ProcessedAndExit','true'";
UI.Buttons.Top.ProcessButton = "task:eCon.UI.Tasks.ProcessAndExitTask";
if (CONFIG.Backend == "axapta") then
STATE.ProcessedAndExit = true;
end if;
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 = GetLocalizedLabel("SaveAndExitButton");
if (_IsEditMode) then
_LabelSave = GetLocalizedLabel("SaveChangesButton");
end if;
UI.Buttons.Top.SaveAndExitButton@label = _LabelSave;
UI.Buttons.Bottom.SaveAndExitButton@label = _LabelSave;
UI.Buttons.Top.SaveAndExitButton@visible = (CONFIG.Backend <> "axapta");
UI.Buttons.Top.SaveAndContinueButton@visible = not(_IsEditMode) and (CONFIG.Backend <> "axapta");
UI.Buttons.Top.PreferencesButton@visible = (CONFIG.Backend <> "axapta");
UI.Buttons.Top.ProcessButton@visible = (CONFIG.Backend == "axapta");
UI.Buttons.Bottom.SaveAndExitButton@visible = (CONFIG.Backend <> "axapta");
UI.Buttons.Bottom.SaveAndContinueButton@visible = not(_IsEditMode) and (CONFIG.Backend <> "axapta");
Buttons
;ui.buttons.top.saveandexitbutton@default;ui.buttons.top.saveandcontinuebutton@default;ui.buttons.top.cancelbutton@default;ui.buttons.top.preferencesbutton@default;ui.buttons.top.processbutton@value;state.processedandexit@value;ui.buttons.bottom.saveandexitbutton@default;ui.buttons.bottom.saveandcontinuebutton@default;ui.buttons.top.saveandexitbutton@visible;ui.buttons.top.saveandcontinuebutton@visible;ui.buttons.top.preferencesbutton@visible;ui.buttons.top.processbutton@visible;ui.buttons.bottom.saveandexitbutton@visible;ui.buttons.bottom.saveandcontinuebutton@visible;
true
local string SelectedOption = "";
SelectedOption = UI.Kenmerken.BodemKleur;
for i = 1 to len(UI.Kenmerken.BodemKleur@options)
UI.Kenmerken.BodemKleur = UI.Kenmerken.BodemKleur@option(i)@id;
UI.Kenmerken.BodemKleur.Text = DATA.Kenmerken.BodemKleur@option(i)@label;
end for;
UI.Kenmerken.BodemKleur= SelectedOption;
SelectedOption = UI.Kenmerken.LadeKleur;
for i = 1 to len(UI.Kenmerken.LadeKleur@options)
UI.Kenmerken.LadeKleur = UI.Kenmerken.LadeKleur@option(i)@id;
UI.Kenmerken.LadeKleur.Text = DATA.Kenmerken.LadeKleur@option(i)@label;
end for;
UI.Kenmerken.LadeKleur = SelectedOption;
SelectedOption = UI.Kenmerken.MatAntislipKleur;
for i = 1 to len(UI.Kenmerken.MatAntislipKleur@options)
UI.Kenmerken.MatAntislipKleur = UI.Kenmerken.MatAntislipKleur@option(i)@id;
UI.Kenmerken.MatAntislipKleur.Text = GetLocalizedLabel("MatAntislipKleur_" + UI.Kenmerken.MatAntislipKleur);
end for;
UI.Kenmerken.MatAntislipKleur = SelectedOption;
SelectedOption = UI.Kenmerken.MatAntislipFiberKleur;
for i = 1 to len(UI.Kenmerken.MatAntislipFiberKleur@options)
UI.Kenmerken.MatAntislipFiberKleur = UI.Kenmerken.MatAntislipFiberKleur@option(i)@id;
UI.Kenmerken.MatAntislipFiberKleur.Text = GetLocalizedLabel("MatAntislipFiberKleur_" + UI.Kenmerken.MatAntislipFiberKleur);
end for;
UI.Kenmerken.MatAntislipFiberKleur = SelectedOption;
SelectedOption = UI.Kenmerken.MatAntislipFlockKleur;
for i = 1 to len(UI.Kenmerken.MatAntislipFlockKleur@options)
UI.Kenmerken.MatAntislipFlockKleur = UI.Kenmerken.MatAntislipFlockKleur@option(i)@id;
UI.Kenmerken.MatAntislipFlockKleur.Text = GetLocalizedLabel("MatAntislipFlockKleur_" + UI.Kenmerken.MatAntislipFlockKleur);
end for;
UI.Kenmerken.MatAntislipFlockKleur = SelectedOption;
SelectedOption = UI.Kenmerken.MatMateriaal;
for i = 1 to len(UI.Kenmerken.MatMateriaal@options)
UI.Kenmerken.MatMateriaal = UI.Kenmerken.MatMateriaal@option(i)@id;
UI.Kenmerken.MatMateriaal.Text = DATA.Kenmerken.MatMateriaal@option(UI.Kenmerken.MatMateriaal.Value)@label;
end for;
UI.Kenmerken.MatMateriaal = SelectedOption;
SelectedOption = UI.Kenmerken.MatVinylFiberglassKleur;
for i = 1 to len(UI.Kenmerken.MatVinylFiberglassKleur@options)
UI.Kenmerken.MatVinylFiberglassKleur = UI.Kenmerken.MatVinylFiberglassKleur@option(i)@id;
UI.Kenmerken.MatVinylFiberglassKleur.Text = GetLocalizedLabel("MatVinylFiberglassKleur_" + UI.Kenmerken.MatVinylFiberglassKleur);
end for;
UI.Kenmerken.MatVinylFiberglassKleur = SelectedOption;
SelectedOption = UI.Kenmerken.OpvullijstKleur;
for i = 1 to len(UI.Kenmerken.OpvullijstKleur@options)
UI.Kenmerken.OpvullijstKleur = UI.Kenmerken.OpvullijstKleur@option(i)@id;
UI.Kenmerken.OpvullijstKleur.Text = DATA.Kenmerken.OpvullijstKleur@option(i)@label;
end for;
UI.Kenmerken.OpvullijstKleur = SelectedOption;
SelectedOption = UI.Kenmerken.VoorwandTypeVanCBinnenlade;
for i = 1 to len(UI.Kenmerken.VoorwandTypeVanCBinnenlade@options)
UI.Kenmerken.VoorwandTypeVanCBinnenlade = UI.Kenmerken.VoorwandTypeVanCBinnenlade@option(i)@id;
UI.Kenmerken.VoorwandTypeVanCBinnenlade.Text = DATA.Kenmerken.VoorwandTypeVanCBinnenlade@option(i)@label;
end for;
UI.Kenmerken.VoorwandTypeVanCBinnenlade= SelectedOption;
SelectedOption = UI.Kenmerken.VoorwandTypeVanMBinnenlade;
for i = 1 to len(UI.Kenmerken.VoorwandTypeVanMBinnenlade@options)
UI.Kenmerken.VoorwandTypeVanMBinnenlade = UI.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@id;
UI.Kenmerken.VoorwandTypeVanMBinnenlade.Text = DATA.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@label;
end for;
UI.Kenmerken.VoorwandTypeVanMBinnenlade= SelectedOption;
SelectedOption = UI.Kenmerken.VoorwandTypeVanKBinnenlade;
for i = 1 to len(UI.Kenmerken.VoorwandTypeVanKBinnenlade@options)
UI.Kenmerken.VoorwandTypeVanKBinnenlade = UI.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@id;
UI.Kenmerken.VoorwandTypeVanKBinnenlade.Text = DATA.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@label;
end for;
UI.Kenmerken.VoorwandTypeVanKBinnenlade= SelectedOption;
SelectedOption = UI.Kenmerken.ZijwandType;
for i = 1 to len(UI.Kenmerken.ZijwandType@options)
UI.Kenmerken.ZijwandType = UI.Kenmerken.ZijwandType@option(i)@id;
UI.Kenmerken.ZijwandType.Text = DATA.Kenmerken.ZijwandType@option(i)@label;
end for;
UI.Kenmerken.ZijwandType = SelectedOption;
SelectedOption = UI.Kenmerken.SpaceStep.Kleur;
for i = 1 to len(UI.Kenmerken.SpaceStep.Kleur@options)
UI.Kenmerken.SpaceStep.Kleur = UI.Kenmerken.SpaceStep.Kleur@option(i)@id;
UI.Kenmerken.SpaceStep.Kleur.Text = DATA.Kenmerken.SpaceStep.Kleur@option(i)@label;
end for;
UI.Kenmerken.SpaceStep.Kleur = SelectedOption;
Vertalingen UI image labels
;ui.kenmerken.bodemkleur@value;ui.kenmerken.ladekleur@value;ui.kenmerken.matantislipkleur@value;ui.kenmerken.matantislipfiberkleur@value;ui.kenmerken.matantislipflockkleur@value;ui.kenmerken.matmateriaal@value;ui.kenmerken.matvinylfiberglasskleur@value;ui.kenmerken.opvullijstkleur@value;ui.kenmerken.voorwandtypevancbinnenlade@value;ui.kenmerken.voorwandtypevanmbinnenlade@value;ui.kenmerken.voorwandtypevankbinnenlade@value;ui.kenmerken.zijwandtype@value;ui.kenmerken.spacestep.kleur@value;
true
local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern");
UI.Kenmerken.HeeftAfwijkendeRugHoogte@visible = _IsIntern;
//UI.Kenmerken.RugHoogte@visible = _IsIntern; // afhankelijk van "afwijkende" rughoogte flag
//UI.Kenmerken.RugHoogte@mandatory = _IsIntern; // afhankelijk van "afwijkende" rughoogte flag
//UI.Kenmerken.ProductieWijze@visible = _IsIntern;
//UI.Kenmerken.ProductieWijze@mandatory = _IsIntern;
UI.Kenmerken.RugwandMateriaal@visible = _IsIntern; //Dit mag weg van zodra SpaceStep live is
UI.Kenmerken.RugwandMateriaal@mandatory = _IsIntern; //Dit mag weg van zodra SpaceStep live is
UI.Kenmerken.OpvullijstKleur@option("LG")@visible = true; // Op "false" zetten wanneer PM deze uitfaseert (rond aug 2019)
UI.Kenmerken.MatMateriaal@option("AZ")@visible = true; // Flock
UI.Kenmerken.FrontBevestiging@option("D")@visible = _IsIntern;
Beperkingen Intern/Extern
;ui.kenmerken.heeftafwijkenderughoogte@visible;ui.kenmerken.rugwandmateriaal@visible;ui.kenmerken.rugwandmateriaal@mandatory;ui.kenmerken.opvullijstkleur@options;ui.kenmerken.matmateriaal@options;ui.kenmerken.frontbevestiging@options;
true
UI.Kenmerken.VoorwandTypeVanMBinnenlade@option("Glas")@visible = (UI.Kenmerken.VoorwandTypeVanMBinnenlade@option("Glas")@visible and Config.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten);
Beperkingen Settings
;ui.kenmerken.voorwandtypevanmbinnenlade@options;
(CONFIG.Settings.KlantId == "6819")
Config.Settings.IsBeschikbaarVoorKlant = true
IsBeschikbaarVoorKlant
;config.settings.isbeschikbaarvoorklant@value;
true
STATE.Initialized = false;
Einde initialisatie
;state.initialized@value;
true
// Gedrag Verpakkingen :
local boolean _BEHAVIOR_IsVerpakkingProboxZichtbaar;
local boolean _BEHAVIOR_IsVerpakkingVHossZichtbaar;
local boolean _BEHAVIOR_IsVerpakkingPalletZichtbaar;
if (CONFIG.Settings.OperationMode == "Intern") or (CONFIG.InputMode == "CreateConfig") or (BEHAVIOR.IsEconAx) then
_BEHAVIOR_IsVerpakkingProboxZichtbaar = true;
_BEHAVIOR_IsVerpakkingVHossZichtbaar = true;
_BEHAVIOR_IsVerpakkingPalletZichtbaar = true;
else
_BEHAVIOR_IsVerpakkingProboxZichtbaar = CONFIG.Settings.VerpakkingProboxToegelaten;
_BEHAVIOR_IsVerpakkingVHossZichtbaar = CONFIG.Settings.VerpakkingVHossToegelaten;
_BEHAVIOR_IsVerpakkingPalletZichtbaar = false;
end if;
// Controls Verpakkingen :
UI.Kenmerken.VerpakkingType@option("Probox")@visible = _BEHAVIOR_IsVerpakkingProboxZichtbaar;
UI.Kenmerken.VerpakkingType@option("VHoss")@visible = _BEHAVIOR_IsVerpakkingVHossZichtbaar;
UI.Kenmerken.VerpakkingType@option("Pallet")@visible = _BEHAVIOR_IsVerpakkingPalletZichtbaar;
Gedrag Verpakkingen instellen
;ui.kenmerken.verpakkingtype@options;
true
local boolean _BEHAVIOR_MatMateriaalAntislipToegelaten;
if (CONFIG.Settings.OperationMode == "Intern") or (CONFIG.InputMode == "CreateConfig") or (BEHAVIOR.IsEconAx) then
_BEHAVIOR_MatMateriaalAntislipToegelaten = true;
else
_BEHAVIOR_MatMateriaalAntislipToegelaten = Config.Settings.MatMateriaalAntislipToegelaten;
end if;
UI.Kenmerken.MatMateriaal@option("AS")@visible = _BEHAVIOR_MatMateriaalAntislipToegelaten;
Gedrag Matten
;ui.kenmerken.matmateriaal@options;
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;
Gedrag Referentie
;ui.lijn.referentie@visible;
true
local string _VorigeSoortVerpakking = UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde;
UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde = UI.Kenmerken.VerpakkingType;
if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive) then
if (_VorigeSoortVerpakking <> UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde) then
if (UI.Kenmerken.VerpakkingType == "Pallet" or UI.Kenmerken.VerpakkingType == "VHoss") then
index i of UI.Kenmerken.NietMeeleveren
if ((UI.Kenmerken.NietMeeleveren(i).Id <> "InschuifElementVoor") and (UI.Kenmerken.NietMeeleveren(i).Id <> "InschuifElementZijkant")) then
UI.Kenmerken.NietMeeleveren(i).IsSelected = true;
else
UI.Kenmerken.NietMeeleveren(i).IsSelected = false;
end if;
end index;
end if;
if (UI.Kenmerken.VerpakkingType <> "Pallet" and UI.Kenmerken.VerpakkingType <> "VHoss") then
index i of UI.Kenmerken.NietMeeleveren
UI.Kenmerken.NietMeeleveren(i).IsSelected = false;
end index;
end if;
end if;
end if;
Gedrag niet meeleveren opties selecteren indien VerpakkingType VHoss/Pallet
;ui.propertiesenkelvoorincodevanrules.verpakkingtypevorigewaarde@value;
true
local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern");
local boolean _BEHAVIOR_IsNietMeeleverenZichtbaarVolgensSpaceStep;
if((UI.Kenmerken.SpaceStep.Uitvoering == "Volledig") or (UI.Kenmerken.Toepassing <> "SST")) then
_BEHAVIOR_IsNietMeeleverenZichtbaarVolgensSpaceStep = true;
else
_BEHAVIOR_IsNietMeeleverenZichtbaarVolgensSpaceStep = false;
end if;
index i of UI.Kenmerken.NietMeeleveren
local boolean _IsZichtbaarExtern = (not(_IsIntern) and (UI.Kenmerken.NietMeeleveren(i).id in CONFIG.NietMeeleverenExtern@options));
local boolean _IsZichtbaarIntern = _IsIntern;
if (UI.Kenmerken.NietMeeleveren(i).id <> "Opvullijst" and UI.Kenmerken.NietMeeleveren(i).id <> "TiponBlumotionSet") then //Opvullijst wordt opgevangen in een andere rule, in 'Mandatory en visible properties' folder
UI.Kenmerken.NietMeeleveren(i)@visible = ((_IsZichtbaarIntern or _IsZichtbaarExtern) and _BEHAVIOR_IsNietMeeleverenZichtbaarVolgensSpaceStep);
end if;
if (UI.Kenmerken.NietMeeleveren(i).id == "TiponBlumotionSet") then
UI.Kenmerken.NietMeeleveren(i)@visible = (_IsZichtbaarExtern and _BEHAVIOR_IsNietMeeleverenZichtbaarVolgensSpaceStep);
end if;
end index;
Gedrag niet meeleveren zichtbaarheid
;
true
local boolean TOBSetSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet;
local boolean TOBSetEnMeenemersSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers;
local boolean TOBStangSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang;
if (BEHAVIOR.IsEconWeb and TOBSetSelected) then
DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = true;
DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = true;
end if;
if (BEHAVIOR.IsEconWeb and not(TOBSetSelected)) then
DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = false;
DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = false;
end if;
if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive and TOBSetEnMeenemersSelected and TOBStangSelected) then
DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = true;
end if;
if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive and not(TOBSetEnMeenemersSelected and TOBStangSelected)) then
DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = false;
end if;
Gedrag niet meeleveren TOB
;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;
true
local boolean _BEHAVIOR_IsProductiewijzeZichtbaar;
if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive == true) then
if (UI.Kenmerken.VerpakkingType == "V1") then
_BEHAVIOR_IsProductiewijzeZichtbaar = true;
end if;
if ((UI.Kenmerken.VerpakkingType <> "V1") or UI.Kenmerken.Toepassing == "SST") then
_BEHAVIOR_IsProductiewijzeZichtbaar = false;
end if;
else
_BEHAVIOR_IsProductiewijzeZichtbaar = false;
end if;
UI.Kenmerken.Productiewijze@visible = _BEHAVIOR_IsProductiewijzeZichtbaar;
UI.Kenmerken.ProductieWijze@mandatory = _BEHAVIOR_IsProductiewijzeZichtbaar;
Gedrag Productiewijze
;ui.kenmerken.productiewijze@visible;ui.kenmerken.productiewijze@mandatory;
true
local boolean _IsAantalZichtbaar;
local boolean _IsAantalVerplicht;
if(BEHAVIOR.IsEconAX) then
_IsAantalZichtbaar = false;
_IsAantalVerplicht = false;
else
_IsAantalZichtbaar = true;
_IsAantalVerplicht = true;
end if;
UI.Lijn.Aantal@visible = _IsAantalZichtbaar;
UI.Lijn.Aantal@mandatory = _IsAantalVerplicht;
Gedrag Aantal
;ui.lijn.aantal@visible;ui.lijn.aantal@mandatory;
true
local Boolean _BEHAVIOR_IsFrontbevestigingZichtbaar;
local Boolean _BEHAVIOR_IsFrontbevestigingMandatory;
if ((Config.Settings.FrontBevestigingVerbergen or DATA.Kenmerken.IsBinnenlade) or (DATA.Kenmerken.SpaceStep.Uitvoering <> "Volledig" and DATA.Kenmerken.Toepassing == "SST")) then
_BEHAVIOR_IsFrontbevestigingZichtbaar = false;
else
_BEHAVIOR_IsFrontbevestigingZichtbaar = true;
end if;
if (DATA.Kenmerken.IsBinnenlade or (DATA.Kenmerken.SpaceStep.Uitvoering <> "Volledig" and DATA.Kenmerken.Toepassing == "SST")) then
_BEHAVIOR_IsFrontbevestigingMandatory = false;
else
_BEHAVIOR_IsFrontbevestigingMandatory = true;
end if;
UI.Kenmerken.FrontBevestiging@mandatory = _BEHAVIOR_IsFrontbevestigingMandatory;
UI.Kenmerken.FrontBevestiging@visible = _BEHAVIOR_IsFrontbevestigingZichtbaar;
Gedrag Frontbevestiging
;ui.kenmerken.frontbevestiging@mandatory;ui.kenmerken.frontbevestiging@visible;
true
local boolean _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar;
if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive) then
if (DATA.Kenmerken.Toepassing == "SST") then
if (DATA.Kenmerken.SpaceStep.Uitvoering == "Volledig") then
_BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = true;
else
_BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = false;
end if;
else
_BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = true;
end if;
else
_BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = false;
end if;
UI.Kenmerken.SneltoetsenNietMeeleveren@visible = _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar;
Gedrag knoppen selecteren niet meeleveren
;ui.kenmerken.sneltoetsennietmeeleveren@visible;
DATA.Kenmerken.Toepassing == "SY" or DATA.Kenmerken.Toepassing == "SP"
local boolean _BEHAVIOR_IsRugwandMateriaalHoutValid;
local boolean _BEHAVIOR_IsRugwandMateriaalStaalValid;
if (DATA.Kenmerken.Toepassing == "SY") then
_BEHAVIOR_IsRugwandMateriaalHoutValid = true;
_BEHAVIOR_IsRugwandMateriaalStaalValid = false;
end if;
if (DATA.Kenmerken.Toepassing == "SP") then
_BEHAVIOR_IsRugwandMateriaalHoutValid = false;
_BEHAVIOR_IsRugwandMateriaalStaalValid = true;
end if;
DATA.Kenmerken.RugwandMateriaal@option("Hout")@valid = _BEHAVIOR_IsRugwandMateriaalHoutValid;
DATA.Kenmerken.RugwandMateriaal@option("Staal")@valid = _BEHAVIOR_IsRugwandMateriaalStaalValid;
local string TriggerDummy = DATA.Kenmerken.RugwandMateriaal;
Gedrag RugwandMateriaal toepassing SY/SP
;data.kenmerken.rugwandmateriaal@valids;
DATA.Kenmerken.Toepassing == "L" or DATA.Kenmerken.Toepassing == "SST"
local boolean _BEHAVIOR_IsRugwandMateriaalHoutValid;
local boolean _BEHAVIOR_IsRugwandMateriaalStaalValid;
If (DATA.Kenmerken.LadeHoogte <> "" and DATA.Kenmerken.LadeKleur <> "" and DATA.Kenmerken.CorpusBreedte <> 0 and DATA.Kenmerken.RugwandMateriaal == "Staal") then
_BEHAVIOR_IsRugwandMateriaalHoutValid = true;
if (STATE.BestaatStalenRugLoaded == "WebServiceIsGeladen") then
if (CONFIG.Settings.StalenRugBeschikbaar.BestaatStalenRug) then
_BEHAVIOR_IsRugwandMateriaalStaalValid = true;
else
_BEHAVIOR_IsRugwandMateriaalStaalValid = false;
end if;
else
_BEHAVIOR_IsRugwandMateriaalStaalValid = false;
end if;
else
_BEHAVIOR_IsRugwandMateriaalHoutValid = true;
_BEHAVIOR_IsRugwandMateriaalStaalValid = true;
end if;
DATA.Kenmerken.RugwandMateriaal@option("Hout")@valid = _BEHAVIOR_IsRugwandMateriaalHoutValid;
DATA.Kenmerken.RugwandMateriaal@option("Staal")@valid = _BEHAVIOR_IsRugwandMateriaalStaalValid;
local string TriggerDummy = DATA.Kenmerken.RugwandMateriaal;
Gedrag RugwandMateriaal toepassing L/SST
;data.kenmerken.rugwandmateriaal@valids;
true
local Boolean _BEHAVIOR_IsRugHoogteZichtbaar;
local Boolean _BEHAVIOR_IsRugHoogteMandatory;
if ((DATA.Kenmerken.HeeftAfwijkendeRugHoogte) or (DATA.Kenmerken.Toepassing == "SY")) then
_BEHAVIOR_IsRugHoogteMandatory = true;
else
_BEHAVIOR_IsRugHoogteMandatory = false;
end if;
if (DATA.Kenmerken.HeeftAfwijkendeRugHoogte and BEHAVIOR.IsEconAX) then
_BEHAVIOR_IsRugHoogteZichtbaar = true;
else
_BEHAVIOR_IsRugHoogteZichtbaar = false;
end if;
UI.Kenmerken.RugHoogte@mandatory = _BEHAVIOR_IsRugHoogteMandatory;
UI.Kenmerken.RugHoogte@visible = _BEHAVIOR_IsRugHoogteZichtbaar;
Gedrag Rughoogte
;ui.kenmerken.rughoogte@mandatory;ui.kenmerken.rughoogte@visible;
not((CONFIG.Backend == "axapta") and (CONFIG.ProcessMode == "Background"))
DATA.Kenmerken.CorpusBreedte = UI.Kenmerken.CorpusBreedte;
DATA.Kenmerken.CorpusWanddikte = UI.Kenmerken.CorpusWanddikte;
DATA.Kenmerken.Draagkracht = UI.Kenmerken.Draagkracht;
DATA.Kenmerken.DwarsverdelingAantal = UI.Kenmerken.DwarsverdelingAantal;
DATA.Kenmerken.FrontBevestiging = UI.Kenmerken.FrontBevestiging;
DATA.Kenmerken.GeleiderTechnologie = UI.Kenmerken.GeleiderTechnologie;
DATA.Kenmerken.HeeftAfwijkendeRugHoogte = UI.Kenmerken.HeeftAfwijkendeRugHoogte;
DATA.Kenmerken.HeeftOpvullijstLinks = UI.Kenmerken.HeeftOpvullijstLinks;
DATA.Kenmerken.HeeftOpvullijstRechts = UI.Kenmerken.HeeftOpvullijstRechts;
DATA.Kenmerken.HeeftZijstabilisering = UI.Kenmerken.HeeftZijstabilisering;
DATA.Kenmerken.IsBinnenbreedte = UI.Kenmerken.IsBinnenbreedte;
DATA.Kenmerken.IsBinnenlade = UI.Kenmerken.IsBinnenlade;
DATA.Kenmerken.LadeDiepte = UI.Kenmerken.LadeDiepte;
DATA.Kenmerken.LadeHoogte = UI.Kenmerken.LadeHoogte;
DATA.Kenmerken.MeenemerSet = UI.Kenmerken.MeenemerSet;
DATA.Kenmerken.ProductieWijze = UI.Kenmerken.ProductieWijze;
DATA.Kenmerken.RugHoogte = UI.Kenmerken.RugHoogte;
DATA.Kenmerken.RugwandMateriaal = UI.Kenmerken.RugwandMateriaal;
DATA.Kenmerken.Toepassing = UI.Kenmerken.Toepassing;
DATA.Kenmerken.VerpakkingType = UI.Kenmerken.VerpakkingType;
DATA.Kenmerken.UitsparingData.X.Breedte = UI.Kenmerken.UitsparingData.X.BreedteRugdeel;
DATA.Kenmerken.UitsparingData.X.Hoogte = UI.Kenmerken.UitsparingData.X.Hoogte;
DATA.Kenmerken.UitsparingData.X.Materiaal = UI.Kenmerken.UitsparingData.X.Materiaal;
DATA.Kenmerken.UitsparingData.M.Breedte = UI.Kenmerken.UitsparingData.M.BreedteRugdeel;
DATA.Kenmerken.UitsparingData.M.Hoogte = UI.Kenmerken.UitsparingData.M.Hoogte;
DATA.Kenmerken.UitsparingData.M.Materiaal = UI.Kenmerken.UitsparingData.M.Materiaal;
DATA.Kenmerken.UitsparingData.Y.Breedte = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel;
DATA.Kenmerken.UitsparingData.Y.Hoogte = UI.Kenmerken.UitsparingData.Y.Hoogte;
DATA.Kenmerken.UitsparingData.Y.Materiaal = UI.Kenmerken.UitsparingData.Y.Materiaal;
DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing;
DATA.Kenmerken.UitsparingData.Z1.Diepte = UI.Kenmerken.UitsparingData.Z1.Diepte;
DATA.Kenmerken.UitsparingData.Z1.Hoogte = UI.Kenmerken.UitsparingData.Z1.Hoogte;
DATA.Kenmerken.UitsparingData.Z1.Materiaal = UI.Kenmerken.UitsparingData.Z1.Materiaal;
DATA.Kenmerken.UitsparingData.Z1.Vorm = UI.Kenmerken.UitsparingData.Z1.Vorm;
DATA.Kenmerken.UitsparingData.Z2.Breedte = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing;
DATA.Kenmerken.UitsparingData.Z2.Diepte = UI.Kenmerken.UitsparingData.Z2.Diepte;
DATA.Kenmerken.UitsparingData.Z2.Hoogte = UI.Kenmerken.UitsparingData.Z2.Hoogte;
DATA.Kenmerken.UitsparingData.Z2.Materiaal = UI.Kenmerken.UitsparingData.Z2.Materiaal;
DATA.Kenmerken.UitsparingData.Z2.Vorm = UI.Kenmerken.UitsparingData.Z2.Vorm;
DATA.Kenmerken.UitsparingData.UitsparingAantal = UI.Kenmerken.UitsparingData.UitsparingAantal;
DATA.Lijn.Aantal = UI.Lijn.Aantal;
DATA.Lijn.Referentie = UI.Lijn.Referentie;
// IMAGE CONTROLS
DATA.Kenmerken.BodemKleur = UI.Kenmerken.BodemKleur.Value;
DATA.Kenmerken.LadeKleur = UI.Kenmerken.LadeKleur.Value;
DATA.Kenmerken.OpvullijstKleur = UI.Kenmerken.OpvullijstKleur.Value;
DATA.Kenmerken.VoorwandTypeVanCBinnenlade = UI.Kenmerken.VoorwandTypeVanCBinnenlade.Value;
DATA.Kenmerken.VoorwandTypeVanMBinnenlade = UI.Kenmerken.VoorwandTypeVanMBinnenlade.Value;
DATA.Kenmerken.VoorwandTypeVanKBinnenlade = UI.Kenmerken.VoorwandTypeVanKBinnenlade.Value;
DATA.Kenmerken.ZijwandType = UI.Kenmerken.ZijwandType.Value;
index i of UI.Kenmerken.NietMeeleveren
local string _IsSelected = CStr(UI.Kenmerken.NietMeeleveren(i).IsSelected);
local string _NietMeeleverenProperty = "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.Kenmerken.NietMeeleveren(i).Id;
local boolean _Result = SetValue(_NietMeeleverenProperty; _IsSelected);
end index;
if (CONFIG.InputMode == "CreateConfig") then
STATE.WinkelkarInfoCalculated = false;
STATE.WinkelkarInfoDiverseCalculated = false;
end if;
Values
;data.kenmerken.corpusbreedte@value;data.kenmerken.corpuswanddikte@value;data.kenmerken.draagkracht@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.frontbevestiging@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.heeftafwijkenderughoogte@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladediepte@value;data.kenmerken.ladehoogte@value;data.kenmerken.meenemerset@value;data.kenmerken.productiewijze@value;data.kenmerken.rughoogte@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.toepassing@value;data.kenmerken.verpakkingtype@value;data.kenmerken.uitsparingdata.x.breedte@value;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.y.breedte@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.breedte@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.z2.breedte@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.lijn.aantal@value;data.lijn.referentie@value;data.kenmerken.bodemkleur@value;data.kenmerken.ladekleur@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.voorwandtypevancbinnenlade@value;data.kenmerken.voorwandtypevanmbinnenlade@value;data.kenmerken.voorwandtypevankbinnenlade@value;data.kenmerken.zijwandtype@value;state.winkelkarinfocalculated@value;state.winkelkarinfodiversecalculated@value;
true
DATA.Kenmerken.MatMateriaal = UI.Kenmerken.MatMateriaal.Value;
DATA.Kenmerken.MatKleur = switch (UI.Kenmerken.MatMateriaal.Value)
case "CF": UI.Kenmerken.MatVinylFiberglassKleur.value
case "AS": UI.Kenmerken.MatAntislipKleur.value
case "AF": UI.Kenmerken.MatAntislipFiberKleur.value
case "AZ": UI.Kenmerken.MatAntislipFlockKleur.value
else ""
end switch;
Values - Mat
;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value;
not((CONFIG.Backend == "axapta") and (CONFIG.ProcessMode == "Background"))
DATA.Kenmerken.SpaceStep.Breedte = UI.Kenmerken.SpaceStep.Sokkelbreedte;
DATA.Kenmerken.SpaceStep.Hoogte = UI.Kenmerken.SpaceStep.Sokkelhoogte;
DATA.Kenmerken.SpaceStep.Diepte = UI.Kenmerken.SpaceStep.Sokkeldiepte;
DATA.Kenmerken.SpaceStep.Kleur = UI.Kenmerken.SpaceStep.Kleur.Value;
DATA.Kenmerken.SpaceStep.Uitvoering = UI.Kenmerken.SpaceStep.Uitvoering;
DATA.Kenmerken.SpaceStep.Bewegingstechnologie = UI.Kenmerken.SpaceStep.Bewegingstechnologie;
DATA.Kenmerken.SpaceStep.StekkerServodrive = UI.Kenmerken.SpaceStep.StekkerServodrive;
DATA.Kenmerken.SpaceStep.StekkerType = UI.Kenmerken.SpaceStep.StekkerType;
Values - SpaceStep
;data.kenmerken.spacestep.breedte@value;data.kenmerken.spacestep.hoogte@value;data.kenmerken.spacestep.diepte@value;data.kenmerken.spacestep.kleur@value;data.kenmerken.spacestep.uitvoering@value;data.kenmerken.spacestep.bewegingstechnologie@value;data.kenmerken.spacestep.stekkerservodrive@value;data.kenmerken.spacestep.stekkertype@value;
not(CONFIG.InputMode == "Edit") and not((CONFIG.Backend == "axapta") and (CONFIG.ProcessMode == "Background"))
DATA.Kenmerken.Toepassing = "L";
DATA.Kenmerken.MeenemerSet = "Z";
Defaults invullen
;data.kenmerken.toepassing@value;data.kenmerken.meenemerset@value;
BEHAVIOR.IsEconAX and (BEHAVIOR.OperationMode == "New") //Bij een edit zou bij toepassing L het rugwandmateriaal soms onterecht terug op Hout springen
If (BEHAVIOR.IsInteractive) then
if (UI.Kenmerken.Toepassing == "SP") then
DATA.Kenmerken.RugwandMateriaal = "Staal"
else
DATA.Kenmerken.RugwandMateriaal = "Hout"
end if;
end if;
local string Dummy = DATA.Kenmerken.SpaceStep.Uitvoering; //RugwandMateriaal wordt leeggehaald bij SST uitvoering <> "Volledig"
//->wanneer opnieuw volledig wordt gekozen wordt RugwandMateriaal opnieuw gedefaulteerd
Default invullen voor RugwandMateriaal
;
BEHAVIOR.IsEconAX and not(BEHAVIOR.IsInteractive) and GetArg("data;kenmerken;dwarsverdelingaantal") == ""
DATA.Kenmerken.Dwarsverdelingaantal = "0";
Default invullen voor Dwarsverdelingaantal
;data.kenmerken.dwarsverdelingaantal@value;
(UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "K")
DATA.Kenmerken.VoorwandTypeVanKBinnenlade = "Metaal";
Default invullen voor VoorwandTypeVanKBinnenlade
;data.kenmerken.voorwandtypevankbinnenlade@value;
BEHAVIOR.IsEconAX and BEHAVIOR.IsInteractive and DATA.Kenmerken.VerpakkingType == ""
DATA.Kenmerken.VerpakkingType = "V1";
Default invullen voor VerpakkingTpe
;data.kenmerken.verpakkingtype@value;
(CONFIG.ReferentieConfiguratie <> "") and (CONFIG.InputMode <> "Edit")
local string _Connection = GetSetting("data.connectionstring") + ";cache=false";
local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.ReferentieConfiguratie + "'";
CONFIG.Database.Configurations@options = {};
CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query);
STATE.ReferentieConfiguratieLoaded = true;
ReferentieConfiguratie: ConfigId ophalen op basis van ReferentieConfiguratie
;config.database.configurations@options;state.referentieconfiguratieloaded@value;
STATE.ReferentieConfiguratieLoaded and (CONFIG.Database.Configurations.Name == CONFIG.ReferentieConfiguratie)
STATE.ReferentieConfiguratieLoaded = false;
local string _Connection = GetSetting("data.connectionstring") + ";cache=false";
local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%'";
local boolean _Result;
CONFIG.Database.ConfigAnalyseProperties@options = {};
CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query);
for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options)
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id;
if (CONFIG.Database.ConfigAnalyseProperties.PropertyName in CONFIG.Defaults.ReferentieConfiguratie@options) then
_Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
end for;
ReferentieConfiguratie: Properties ophalen op basis van ConfigId
;state.referentieconfiguratieloaded@value;config.database.configanalyseproperties@options;
(CONFIG.ReferentieConfiguratie == "") and (CONFIG.InputMode <> "Edit") and (CONFIG.Settings.KlantId <> "") and (CONFIG.Settings.PersonalityId <> "")
local string _Connection = GetSetting("data.connectionstring") + ";cache=false";
local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.KlantVoorkeurenConfigurationName + "'";
CONFIG.Database.Configurations@options = {};
CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query);
STATE.KlantVoorkeurenLoaded = true;
KlantVoorkeuren: ConfigId ophalen op basis van KlantId
;config.database.configurations@options;state.klantvoorkeurenloaded@value;
STATE.KlantVoorkeurenLoaded and (CONFIG.Database.Configurations.Name == CONFIG.KlantVoorkeurenConfigurationName)
STATE.KlantVoorkeurenLoaded = false;
local string _Connection = GetSetting("data.connectionstring") + ";cache=false";
local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%' AND value <> ''";
local boolean _Result;
CONFIG.Database.ConfigAnalyseProperties@options = {};
CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query);
for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options)
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id;
if (CONFIG.Database.ConfigAnalyseProperties.PropertyName in CONFIG.Defaults.KlantVoorkeuren@options) then
_Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
end for;
KlantVoorkeuren: Properties ophalen op basis van ConfigId
;state.klantvoorkeurenloaded@value;config.database.configanalyseproperties@options;
(CONFIG.ReferentieConfiguratie == "") and (CONFIG.InputMode <> "Edit") and (CONFIG.Settings.PersonalityId <> "") and (len(CONFIG.Database.ConfigAnalyseProperties) == 0)
CONFIG.PersonalityVoorkeurenConfigurationName = DATA.Kenmerken.Variant + "_" + CONFIG.Settings.PersonalityId;
local string _Connection = GetSetting("data.connectionstring") + ";cache=false";
local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.PersonalityVoorkeurenConfigurationName + "'";
CONFIG.Database.Configurations@options = {};
CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query);
STATE.PersonalityVoorkeurenLoaded = true;
PersonalityVoorkeuren: ConfigId ophalen op basis van PersonalityId
;config.personalityvoorkeurenconfigurationname@value;config.database.configurations@options;state.personalityvoorkeurenloaded@value;
STATE.PersonalityVoorkeurenLoaded and (CONFIG.Database.Configurations.Name == CONFIG.PersonalityVoorkeurenConfigurationName)
STATE.PersonalityVoorkeurenLoaded = false;
local string _Connection = GetSetting("data.connectionstring") + ";cache=false";
local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%' AND value <> ''";
local boolean _Result;
CONFIG.Database.ConfigAnalyseProperties@options = {};
CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query);
for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options)
CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id;
if (CONFIG.Database.ConfigAnalyseProperties.PropertyName in CONFIG.Defaults.PersonalityVoorkeuren@options) then
_Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
end for;
PersonalityVoorkeuren: Properties ophalen op basis van ConfigId
;state.personalityvoorkeurenloaded@value;config.database.configanalyseproperties@options;
true
UI.Kenmerken.OpvullijstDikte = 25;
Bereken OpvullijstDikte
;ui.kenmerken.opvullijstdikte@value;
true
local double _CorpusWanddikte = DATA.Kenmerken.CorpusWanddikte;
local double _OpvullijstDikte = DATA.BerekendeWaarden.OpvullijstDikte;
local boolean _IsBinnenbreedte = DATA.Kenmerken.IsBinnenbreedte;
local boolean _HeeftOpvullijstLinks = DATA.Kenmerken.HeeftOpvullijstLinks;
local boolean _HeeftOpvullijstRechts = DATA.Kenmerken.HeeftOpvullijstRechts;
local long _MinTolerantieIB = 0;
local long _AantalOpvullijsten = 0;
if (_HeeftOpvullijstLinks) then
_AantalOpvullijsten = _AantalOpvullijsten + 1;
end if;
if (_HeeftOpvullijstRechts) then
_AantalOpvullijsten = _AantalOpvullijsten + 1;
end if;
if (_IsBinnenbreedte) then
_CorpusWanddikte = 0;
end if;
DATA.BerekendeWaarden.CorpusBreedteDelta = (2 * _CorpusWanddikte) + (_AantalOpvullijsten * _OpvullijstDikte) + _MinTolerantieIB;
Bereken CorpusBreedteDelta
;data.berekendewaarden.corpusbreedtedelta@value;
true
local double _InterneBreedte = 0;
if DATA.Kenmerken.CorpusBreedte > 0 then
_InterneBreedte = DATA.Kenmerken.CorpusBreedte - DATA.BerekendeWaarden.CorpusBreedteDelta;
end if;
DATA.BerekendeWaarden.InterneBreedte = _InterneBreedte;
Bereken InterneBreedte
;data.berekendewaarden.internebreedte@value;
false
local string _LadeCode = DATA.Kenmerken.LadeHoogte;
if (DATA.Kenmerken.IsBinnenlade) then
_LadeCode = _LadeCode + "/Z";
end if;
DATA.BerekendeWaarden.LadeCode = _LadeCode;
Bereken LadeCode (inactive, zie berekende waarden winkelkarinfo)
;data.berekendewaarden.ladecode@value;
(DATA.Kenmerken.IsBinnenlade) and ((DATA.Kenmerken.LadeHoogte == "M") or (DATA.Kenmerken.LadeHoogte == "C") or (DATA.Kenmerken.LadeHoogte == "K"))
local string _VoorwandType = "";
if (DATA.Kenmerken.LadeHoogte == "M") then
if (DATA.Kenmerken.VoorwandTypeVanMBinnenlade == "Glas") then
_VoorwandType = "Vulling";
end if;
if (DATA.Kenmerken.VoorwandTypeVanMBinnenlade == "Metaal") then
_VoorwandType = "Voorstuk";
end if;
end if;
if (DATA.Kenmerken.LadeHoogte == "C") then
if ((DATA.Kenmerken.VoorwandTypeVanCBinnenlade == "GlasHoog") or (DATA.Kenmerken.VoorwandTypeVanCBinnenlade == "GlasLaag")) then
_VoorwandType = "Vulling";
end if;
if (DATA.Kenmerken.VoorwandTypeVanCBinnenlade == "Reling") then
_VoorwandType = "Reling";
end if;
end if;
if (DATA.Kenmerken.LadeHoogte == "K") then
if (DATA.Kenmerken.VoorwandTypeVanKBinnenlade == "Metaal") then
_VoorwandType = "Voorstuk";
end if;
end if;
DATA.BerekendeWaarden.VoorwandType = _VoorwandType;
Bereken VoorwandType
;data.berekendewaarden.voorwandtype@value;
(DATA.Kenmerken.IsBinnenlade) and (DATA.Kenmerken.LadeHoogte == "C")
DATA.BerekendeWaarden.VoorwandVerhogingHoogte = switch DATA.Kenmerken.VoorwandTypeVanCBinnenlade
case "GlasLaag": "Laag"
case "GlasHoog": "Hoog"
else ""
end switch;
Bereken VoorwandVerhogingHoogte
;data.berekendewaarden.voorwandverhoginghoogte@value;
BEHAVIOR.IsInteractive
if (not(DATA.Kenmerken.HeeftAfwijkendeRugHoogte) and (DATA.Kenmerken.LadeHoogte <> "")) then
if (DATA.Kenmerken.Toepassing <> "SY") then
DATA.Kenmerken.RugHoogte = DATA.Kenmerken.LadeHoogte;
end if;
end if;
Bereken Rughoogte
;
DATA.Kenmerken.LadeHoogte <> "" and DATA.Kenmerken.Rughoogte <> ""
if (DATA.Kenmerken.LadeHoogte == DATA.Kenmerken.Rughoogte) then
DATA.Kenmerken.HeeftAfwijkendeRughoogte = false;
else
DATA.Kenmerken.HeeftAfwijkendeRughoogte = true;
end if;
Bereken HeeftAfwijkendeRughoogte
;data.kenmerken.heeftafwijkenderughoogte@value;
(DATA.Kenmerken.LadeHoogte <> "")
local string _AfbeeldingCode = ""
if (DATA.Kenmerken.Toepassing <> "SST") then
if (DATA.Kenmerken.ProductieWijze <> "V") then
local string _ProductieWijze = DATA.Kenmerken.ProductieWijze;
_AfbeeldingCode = _AfbeeldingCode + "SpecialeProductieWijze";
if (_ProductieWijze == "B") then
_AfbeeldingCode = _AfbeeldingCode + "_Bodem" ;
end if;
if (_ProductieWijze == "BR") then
_AfbeeldingCode = _AfbeeldingCode + "_BodemEnRug_" + DATA.Kenmerken.RugHoogte;
end if;
if (_ProductieWijze == "R") then
_AfbeeldingCode = _AfbeeldingCode + "_Rug_" + DATA.Kenmerken.RugHoogte;
end if;
if (_ProductieWijze == "RRWH") then
_AfbeeldingCode = _AfbeeldingCode + "_RugMetHouders_" + DATA.Kenmerken.RugHoogte;
end if;
if (_ProductieWijze == "F") then
local string _LadeHoogte = DATA.Kenmerken.LadeHoogte;
local string _VoorwandTypeVanBinnenlade = "";
if (_LadeHoogte == "C") then
_VoorwandTypeVanBinnenlade = DATA.Kenmerken.VoorwandTypeVanCBinnenlade;
end if;
if (_LadeHoogte == "M") then
_VoorwandTypeVanBinnenlade = DATA.Kenmerken.VoorwandTypeVanMBinnenlade;
end if;
if (_LadeHoogte == "K") then
_VoorwandTypeVanBinnenlade = DATA.Kenmerken.VoorwandTypeVanKBinnenlade;
end if;
_AfbeeldingCode = _AfbeeldingCode + "_Front_" + _LadeHoogte + "_" + _VoorwandTypeVanBinnenlade;
end if;
else
_AfbeeldingCode = DATA.Kenmerken.LadeHoogte;
if (DATA.Kenmerken.IsBinnenlade) then
_AfbeeldingCode = _AfbeeldingCode + "_Z";
end if;
if (DATA.Kenmerken.Toepassing == "SP") then
_AfbeeldingCode = _AfbeeldingCode + "_" + "Spoelbak";
end if;
if (DATA.Kenmerken.Toepassing == "SY") then
_AfbeeldingCode = _AfbeeldingCode + "_" + "Sifon";
if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then
_AfbeeldingCode = _AfbeeldingCode + "_x2";
end if;
end if;
if (DATA.Kenmerken.IsBinnenlade) then
if (DATA.BerekendeWaarden.VoorwandType <> "") then
_AfbeeldingCode = _AfbeeldingCode + "_" + DATA.BerekendeWaarden.VoorwandType;
end if;
if (DATA.BerekendeWaarden.VoorwandVerhogingHoogte <> "") then
_AfbeeldingCode = _AfbeeldingCode + "_" + DATA.BerekendeWaarden.VoorwandVerhogingHoogte;
end if;
end if;
if (DATA.Kenmerken.ZijwandType == "Free") then
_AfbeeldingCode = _AfbeeldingCode + "_" + DATA.Kenmerken.ZijwandType;
end if;
end if;
_AfbeeldingCode = _AfbeeldingCode + "_Legra";
else
if (DATA.Kenmerken.SpaceStep.Uitvoering == "Volledig") then
_AfbeeldingCode = "SST_Volledig"
end if;
if (DATA.Kenmerken.SpaceStep.Uitvoering == "SokkelEnTablet") then
_AfbeeldingCode = "SST_SokkelEnTablet"
end if;
if (DATA.Kenmerken.SpaceStep.Uitvoering == "Tablet") then
_AfbeeldingCode = "SST_Tablet"
end if;
end if;
DATA.BerekendeWaarden.AfbeeldingCode = _AfbeeldingCode;
Bereken AfbeeldingCode
;data.berekendewaarden.afbeeldingcode@value;
true
RANGE.CorpusBreedte.Minimum = RANGE.InterneBreedte.Minimum + DATA.BerekendeWaarden.CorpusBreedteDelta;
CorpusBreedte minimum
;range.corpusbreedte.minimum@value;
true
RANGE.CorpusBreedte.Maximum = RANGE.InterneBreedte.Maximum + DATA.BerekendeWaarden.CorpusBreedteDelta;
CorpusBreedte maximum
;range.corpusbreedte.maximum@value;
true
local double MINIMUM_BREEDTE_SMALLELADE = 148;
local double MINIMUM_BREEDTE_SMALLELADE_TOB = 171;
local double MINIMUM_BREEDTE_SMALLEBINNENLADE = 187;
local double MINIMUM_BREEDTE_GEWONE_LADE = 237; // Kleiner dan deze afmeting is "Smalle lade"
local double MINIMUM_BREEDTE_SPOELBAKLADE = 350;
local double MINIMUM_BREEDTE_SIFONLADE_ENKEL = 300;
local double MINIMUM_BREEDTE_SIFONLADE_DUBBEL = 400;
local double MINIMUM_BREEDTE_UITSPARING = 150;
local double MINIMUM_BREEDTE_ZIJSTABILISERING = 362;
// Gedeelte voor (extra) Smalle Lade
local double _MinimumBreedte = MINIMUM_BREEDTE_SMALLELADE;
if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then
_MinimumBreedte = Max(_MinimumBreedte; MINIMUM_BREEDTE_SMALLELADE_TOB);
end if;
if (DATA.Kenmerken.IsBinnenlade) then
_MinimumBreedte= Max(_MinimumBreedte; MINIMUM_BREEDTE_SMALLEBINNENLADE);
end if;
// Gedeelte voor gewone lades
if (DATA.Kenmerken.Toepassing == "SP") then
_MinimumBreedte = Max(_MinimumBreedte; MINIMUM_BREEDTE_SPOELBAKLADE);
end if;
if (DATA.Kenmerken.Toepassing == "SY") then
local double _MinimumBreedteZ1 = Max(DATA.Kenmerken.UitsparingData.Z1.Breedte; MINIMUM_BREEDTE_UITSPARING);
local double _MinimumBreedteSifon = 0;
if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then
_MinimumBreedteSifon = MINIMUM_BREEDTE_SIFONLADE_ENKEL + _MinimumBreedteZ1;
end if;
if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then
local double _MinimumBreedteZ2 = Max(DATA.Kenmerken.UitsparingData.Z2.Breedte; MINIMUM_BREEDTE_UITSPARING);
_MinimumBreedteSifon = MINIMUM_BREEDTE_SIFONLADE_DUBBEL + _MinimumBreedteZ1 + _MinimumBreedteZ2;
end if;
_MinimumBreedte = Max(_MinimumBreedte; _MinimumBreedteSifon);
end if;
if (DATA.Kenmerken.HeeftZijstabilisering) then
_MinimumBreedte = Max(_MinimumBreedte; MINIMUM_BREEDTE_ZIJSTABILISERING);
end if;
RANGE.InterneBreedte.Minimum = _MinimumBreedte;
// todo: controleren op extra beperkingen (niet in extremabepaler) bv. geleidertechnologie
InterneBreedte minimum
;range.internebreedte.minimum@value;
true
local double MAXIMUM_BREEDTE = 1430;
local double MAXIMUM_BREEDTE_BINNENLADE = 1168;
local double MAXIMUM_BREEDTE_RUGWANDMATERIAAL_STAAL = 1168;
local double MAXIMUM_BREEDTE_VERPAKKINGTYPE_VHOSS = 1168;
local double MAXIMUM_BREEDTE_DWARSVERDELING = 1168;
local double MAXIMUM_BREEDTE_GELEIDERTECHNOLOGIE_TIPONBLUMOTION = 1368;
local double _MaximumBreedte = MAXIMUM_BREEDTE;
if (DATA.Kenmerken.IsBinnenlade) then
_MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_BINNENLADE);
end if;
if (DATA.Kenmerken.RugwandMateriaal == "Staal") then
_MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_RUGWANDMATERIAAL_STAAL);
end if;
if (DATA.Kenmerken.VerpakkingType == "VHoss") then
_MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_VERPAKKINGTYPE_VHOSS);
end if;
if (DATA.Kenmerken.DwarsverdelingAantal <> "0") then
_MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_DWARSVERDELING);
end if;
if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then
_MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_GELEIDERTECHNOLOGIE_TIPONBLUMOTION);
end if;
RANGE.InterneBreedte.Maximum = _MaximumBreedte;
// todo: controleren op extra beperkingen (niet in extremabepaler) bv. zijstabilisering, tipon, flatpack
InterneBreedte maximum
;range.internebreedte.maximum@value;
UI.Kenmerken.SneltoetsenNietMeeleveren <> ""
local boolean _AlleNietMeeleverensSelecteren;
if (UI.Kenmerken.SneltoetsenNietMeeleveren == "AllesSelecteren") then
_AlleNietMeeleverensSelecteren = true;
end if;
if (UI.Kenmerken.SneltoetsenNietMeeleveren == "AllesDeselecteren") then
_AlleNietMeeleverensSelecteren = false;
end if;
index i of UI.Kenmerken.NietMeeleveren
local string _NietMeeleverenProperty = "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.Kenmerken.NietMeeleveren(i).Id;
local boolean _Result = SetValue(_NietMeeleverenProperty; CStr(_AlleNietMeeleverensSelecteren));
end index;
UI.Kenmerken.SneltoetsenNietMeeleveren = "";
Logica sneltoetsen niet meeleveren
;ui.kenmerken.sneltoetsennietmeeleveren@value;
true
DATA.Kenmerken.Draagkracht@valids = ConstrainedOptions("DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids"; "DATA.Kenmerken.Draagkracht"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte);
Applying constraints for property DATA.Kenmerken.Draagkracht
;data.kenmerken.draagkracht@valids;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids")
Gather constraint messages for decision table DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids")
Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids")
Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids")
Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids")
Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids")
Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids
;
true
CONFIG.Settings.IsBenelux@style.invalidbooleans = ConstrainedBooleanInvalids("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids"; "CONFIG.Settings.IsBenelux"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur);
Applying constraints for property CONFIG.Settings.IsBenelux
;
ConstraintsNotSatisfiedFor("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids")
ConstraintsErrorMessagesFor("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids")
Gather constraint messages for decision table CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids
;
true
DATA.Kenmerken.ZijwandType@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.ZijwandType"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType);
Applying constraints for property DATA.Kenmerken.ZijwandType
;data.kenmerken.zijwandtype@valids;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids")
Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids")
Gather constraint messages for decision table DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids")
Gather constraint messages for decision table DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids
;
true
DATA.Kenmerken.LadeKleur@valids = ConstrainedOptions("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids"; "DATA.Kenmerken.LadeKleur"; "CONFIG.Settings.IsBenelux"; CurrentBoolean(CONFIG.Settings.IsBenelux); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte);
Applying constraints for property DATA.Kenmerken.LadeKleur
;data.kenmerken.ladekleur@valids;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids")
Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids
;
true
DATA.Kenmerken.GeleiderTechnologie@valids = ConstrainedOptions("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.GeleiderTechnologie"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.MeenemerSet"; DATA.Kenmerken.MeenemerSet; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing);
Applying constraints for property DATA.Kenmerken.GeleiderTechnologie
;data.kenmerken.geleidertechnologie@valids;
true
CONFIG.Settings.OperationMode@valids = ConstrainedOptions("CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids"; "CONFIG.Settings.OperationMode"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing);
Applying constraints for property CONFIG.Settings.OperationMode
;config.settings.operationmode@valids;
true
DATA.Kenmerken.HeeftZijstabilisering@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.HeeftZijstabilisering"; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing);
Applying constraints for property DATA.Kenmerken.HeeftZijstabilisering
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids")
Gather constraint messages for decision table DATA.Kenmerken.RugHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids")
Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids
;
ConstraintsNotSatisfiedFor("CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids")
ConstraintsErrorMessagesFor("CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids")
Gather constraint messages for decision table CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids")
Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids")
Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids")
Gather constraint messages for decision table DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids")
Gather constraint messages for decision table DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids")
Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids")
Gather constraint messages for decision table DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids")
Gather constraint messages for decision table DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids")
Gather constraint messages for decision table DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids")
Gather constraint messages for decision table DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids
;
true
DATA.Kenmerken.RugHoogte@valids = ConstrainedOptions("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.VerpakkingType@Valids"; "DATA.Kenmerken.RugHoogte"; "DATA.Kenmerken.RugwandMateriaal"; DATA.Kenmerken.RugwandMateriaal; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType);
Applying constraints for property DATA.Kenmerken.RugHoogte
;data.kenmerken.rughoogte@valids;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.VerpakkingType@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.VerpakkingType@Valids")
Gather constraint messages for decision table DATA.Kenmerken.RugHoogte,DATA.Kenmerken.VerpakkingType@Valids
;
true
DATA.Kenmerken.Toepassing@valids = ConstrainedOptions("CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids"; "DATA.Kenmerken.Toepassing"; "CONFIG.Settings.OperationMode"; CONFIG.Settings.OperationMode; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering); "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "DATA.Kenmerken.RugwandMateriaal"; DATA.Kenmerken.RugwandMateriaal; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType);
Applying constraints for property DATA.Kenmerken.Toepassing
;data.kenmerken.toepassing@valids;
true
DATA.Kenmerken.RugwandMateriaal@valids = ConstrainedOptions("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.RugwandMateriaal"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing);
Applying constraints for property DATA.Kenmerken.RugwandMateriaal
;data.kenmerken.rugwandmateriaal@valids;
true
DATA.Kenmerken.MeenemerSet@valids = ConstrainedOptions("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids"; "DATA.Kenmerken.MeenemerSet"; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.VoorwandTypeVanMBinnenlade"; DATA.Kenmerken.VoorwandTypeVanMBinnenlade);
Applying constraints for property DATA.Kenmerken.MeenemerSet
;data.kenmerken.meenemerset@valids;
true
DATA.Kenmerken.VoorwandTypeVanMBinnenlade@valids = ConstrainedOptions("CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids"; "DATA.Kenmerken.VoorwandTypeVanMBinnenlade"; "CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten"; CurrentBoolean(CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten); "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.MeenemerSet"; DATA.Kenmerken.MeenemerSet);
Applying constraints for property DATA.Kenmerken.VoorwandTypeVanMBinnenlade
;data.kenmerken.voorwandtypevanmbinnenlade@valids;
true
CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten@style.invalidbooleans = ConstrainedBooleanInvalids("CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids"; "CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten"; "DATA.Kenmerken.VoorwandTypeVanMBinnenlade"; DATA.Kenmerken.VoorwandTypeVanMBinnenlade);
Applying constraints for property CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids")
Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids
;
ConstraintsNotSatisfiedFor("CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids")
ConstraintsErrorMessagesFor("CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids")
Gather constraint messages for decision table CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids
;
true
DATA.Kenmerken.LadeDiepte@valids = ConstrainedOptions("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.LadeDiepte"; "CONFIG.Settings.IsBenelux"; CurrentBoolean(CONFIG.Settings.IsBenelux); "DATA.Kenmerken.Draagkracht"; DATA.Kenmerken.Draagkracht; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.MatKleur"; DATA.Kenmerken.MatKleur; "DATA.Kenmerken.MatMateriaal"; DATA.Kenmerken.MatMateriaal; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType);
Applying constraints for property DATA.Kenmerken.LadeDiepte
;data.kenmerken.ladediepte@valids;
true
DATA.Kenmerken.MatKleur@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids"; "DATA.Kenmerken.MatKleur"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.MatMateriaal"; DATA.Kenmerken.MatMateriaal);
Applying constraints for property DATA.Kenmerken.MatKleur
;data.kenmerken.matkleur@valids;
true
DATA.Kenmerken.MatMateriaal@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids"; "DATA.Kenmerken.MatMateriaal"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.MatKleur"; DATA.Kenmerken.MatKleur);
Applying constraints for property DATA.Kenmerken.MatMateriaal
;data.kenmerken.matmateriaal@valids;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids")
Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids
;
true
DATA.Kenmerken.ProductieWijze@valids = ConstrainedOptions("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids"; "DATA.Kenmerken.ProductieWijze"; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType);
Applying constraints for property DATA.Kenmerken.ProductieWijze
;data.kenmerken.productiewijze@valids;
true
DATA.Kenmerken.VerpakkingType@valids = ConstrainedOptions("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.VerpakkingType"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType);
Applying constraints for property DATA.Kenmerken.VerpakkingType
;data.kenmerken.verpakkingtype@valids;
true
DATA.Kenmerken.LadeHoogte@valids = ConstrainedOptions("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.LadeHoogte"; "CONFIG.Settings.IsBenelux"; CurrentBoolean(CONFIG.Settings.IsBenelux); "CONFIG.Settings.OperationMode"; CONFIG.Settings.OperationMode; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.RugwandMateriaal"; DATA.Kenmerken.RugwandMateriaal; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType);
Applying constraints for property DATA.Kenmerken.LadeHoogte
;data.kenmerken.ladehoogte@valids;
true
DATA.Kenmerken.IsBinnenlade@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.IsBinnenlade"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.MeenemerSet"; DATA.Kenmerken.MeenemerSet; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.VoorwandTypeVanMBinnenlade"; DATA.Kenmerken.VoorwandTypeVanMBinnenlade);
Applying constraints for property DATA.Kenmerken.IsBinnenlade
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids")
Gather constraint messages for decision table DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids
;
true
for i = 1 to len(DATA.Kenmerken.BodemKleur@options)
UI.Kenmerken.BodemKleur@option(i)@valid = DATA.Kenmerken.BodemKleur@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.Draagkracht@options)
UI.Kenmerken.Draagkracht@option(i)@valid = DATA.Kenmerken.Draagkracht@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.DwarsverdelingAantal@options)
UI.Kenmerken.DwarsverdelingAantal@option(i)@valid = DATA.Kenmerken.DwarsverdelingAantal@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.FrontBevestiging@options)
UI.Kenmerken.FrontBevestiging@option(i)@valid = DATA.Kenmerken.FrontBevestiging@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.GeleiderTechnologie@options)
UI.Kenmerken.GeleiderTechnologie@option(i)@valid = DATA.Kenmerken.GeleiderTechnologie@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.LadeDiepte@options)
UI.Kenmerken.LadeDiepte@option(i)@valid = DATA.Kenmerken.LadeDiepte@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.LadeHoogte@options)
UI.Kenmerken.LadeHoogte@option(i)@valid = DATA.Kenmerken.LadeHoogte@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.LadeKleur@options)
UI.Kenmerken.LadeKleur@option(i)@valid = DATA.Kenmerken.LadeKleur@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.MeenemerSet@options)
UI.Kenmerken.MeenemerSet@option(i)@valid = DATA.Kenmerken.MeenemerSet@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.OpvullijstKleur@options)
UI.Kenmerken.OpvullijstKleur@option(i)@valid = DATA.Kenmerken.OpvullijstKleur@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.ProductieWijze@options)
UI.Kenmerken.ProductieWijze@option(i)@valid = DATA.Kenmerken.ProductieWijze@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.RugHoogte@options)
UI.Kenmerken.RugHoogte@option(i)@valid = DATA.Kenmerken.RugHoogte@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.RugwandMateriaal@options)
UI.Kenmerken.RugwandMateriaal@option(i)@valid = DATA.Kenmerken.RugwandMateriaal@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.Toepassing@options)
UI.Kenmerken.Toepassing@option(i)@valid = DATA.Kenmerken.Toepassing@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.VerpakkingType@options)
UI.Kenmerken.VerpakkingType@option(i)@valid = DATA.Kenmerken.VerpakkingType@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.VoorwandTypeVanCBinnenlade@options)
UI.Kenmerken.VoorwandTypeVanCBinnenlade@option(i)@valid = DATA.Kenmerken.VoorwandTypeVanCBinnenlade@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.VoorwandTypeVanMBinnenlade@options)
UI.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@valid = DATA.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.VoorwandTypeVanKBinnenlade@options)
UI.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@valid = DATA.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.ZijwandType@options)
UI.Kenmerken.ZijwandType@option(i)@valid = DATA.Kenmerken.ZijwandType@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.SpaceStep.Diepte@options)
UI.Kenmerken.SpaceStep.Sokkeldiepte@option(i)@valid = DATA.Kenmerken.SpaceStep.Diepte@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.SpaceStep.Kleur@options)
UI.Kenmerken.SpaceStep.Kleur@option(i)@valid = DATA.Kenmerken.SpaceStep.Kleur@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.SpaceStep.Uitvoering@options)
UI.Kenmerken.SpaceStep.Uitvoering@option(i)@valid = DATA.Kenmerken.SpaceStep.Uitvoering@option(i)@valid;
end for;
for i = 1 to len(DATA.Kenmerken.SpaceStep.Bewegingstechnologie@options)
UI.Kenmerken.SpaceStep.Bewegingstechnologie@option(i)@valid = DATA.Kenmerken.SpaceStep.Bewegingstechnologie@option(i)@valid;
end for;
Valids
;ui.kenmerken.bodemkleur@valids;ui.kenmerken.draagkracht@valids;ui.kenmerken.dwarsverdelingaantal@valids;ui.kenmerken.frontbevestiging@valids;ui.kenmerken.geleidertechnologie@valids;ui.kenmerken.ladediepte@valids;ui.kenmerken.ladehoogte@valids;ui.kenmerken.ladekleur@valids;ui.kenmerken.meenemerset@valids;ui.kenmerken.opvullijstkleur@valids;ui.kenmerken.productiewijze@valids;ui.kenmerken.rughoogte@valids;ui.kenmerken.rugwandmateriaal@valids;ui.kenmerken.toepassing@valids;ui.kenmerken.verpakkingtype@valids;ui.kenmerken.voorwandtypevancbinnenlade@valids;ui.kenmerken.voorwandtypevanmbinnenlade@valids;ui.kenmerken.voorwandtypevankbinnenlade@valids;ui.kenmerken.zijwandtype@valids;ui.kenmerken.spacestep.sokkeldiepte@valids;ui.kenmerken.spacestep.kleur@valids;ui.kenmerken.spacestep.uitvoering@valids;ui.kenmerken.spacestep.bewegingstechnologie@valids;
true
local string MatKleur = "";
for i = 1 to len(DATA.Kenmerken.MatKleur@options)
MatKleur = DATA.Kenmerken.MatKleur@option(i)@id;
for j = 1 to len(UI.Kenmerken.MatAntislipKleur@options)
if (MatKleur == UI.Kenmerken.MatAntislipKleur@option(j)@id) then
UI.Kenmerken.MatAntislipKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid;
end if;
end for;
for j = 1 to len(UI.Kenmerken.MatAntislipFiberKleur@options)
if (MatKleur == UI.Kenmerken.MatAntislipFiberKleur@option(j)@id) then
UI.Kenmerken.MatAntislipFiberKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid;
end if;
end for;
for j = 1 to len(UI.Kenmerken.MatAntislipFlockKleur@options)
if (MatKleur == UI.Kenmerken.MatAntislipFlockKleur@option(j)@id) then
UI.Kenmerken.MatAntislipFlockKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid;
end if;
end for;
for j = 1 to len(UI.Kenmerken.MatVinylFiberglassKleur@options)
if (MatKleur == UI.Kenmerken.MatVinylFiberglassKleur@option(j)@id) then
UI.Kenmerken.MatVinylFiberglassKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid;
end if;
end for;
end for;
for i = 1 to len(DATA.Kenmerken.MatMateriaal@options)
UI.Kenmerken.MatMateriaal@option(i)@valid = DATA.Kenmerken.MatMateriaal@option(i)@valid;
end for;
Valids - Mat
;ui.kenmerken.matmateriaal@valids;
true
UI.Kenmerken.VerpakkingTypeLabel@default = GetLocalizedLabel("VerpakkingTypeLabel");
UI.Kenmerken.VerpakkingTypeLabel@visible = (DATA.Kenmerken.VerpakkingType == "Probox");
Message Probox
;ui.kenmerken.verpakkingtypelabel@default;ui.kenmerken.verpakkingtypelabel@visible;
true
UI.Kenmerken.GeleiderTechnologieLabel@default = GetLocalizedLabel("GeleiderTechnologieLabel");
UI.Kenmerken.GeleiderTechnologieLabel@visible = (DATA.Kenmerken.GeleiderTechnologie == "TOB" and DATA.Kenmerken.Toepassing <> "SST");
Message TIP-ON BLUMOTION
;ui.kenmerken.geleidertechnologielabel@default;ui.kenmerken.geleidertechnologielabel@visible;
true
UI.Kenmerken.BodemKleur@default = DATA.Kenmerken.BodemKleur;
UI.Kenmerken.CorpusBreedte@default = DATA.Kenmerken.CorpusBreedte;
UI.Kenmerken.CorpusWanddikte@default = DATA.Kenmerken.CorpusWanddikte;
UI.Kenmerken.Draagkracht@default = DATA.Kenmerken.Draagkracht;
UI.Kenmerken.DwarsverdelingAantal@default = DATA.Kenmerken.DwarsverdelingAantal;
UI.Kenmerken.FrontBevestiging@default = DATA.Kenmerken.FrontBevestiging;
UI.Kenmerken.GeleiderTechnologie@default = DATA.Kenmerken.GeleiderTechnologie;
UI.Kenmerken.HeeftAfwijkendeRugHoogte@default = DATA.Kenmerken.HeeftAfwijkendeRugHoogte;
UI.Kenmerken.HeeftOpvullijstLinks@default = DATA.Kenmerken.HeeftOpvullijstLinks;
UI.Kenmerken.HeeftOpvullijstRechts@default = DATA.Kenmerken.HeeftOpvullijstRechts;
UI.Kenmerken.HeeftZijstabilisering@default = DATA.Kenmerken.HeeftZijstabilisering;
UI.Kenmerken.IsBinnenbreedte@default = DATA.Kenmerken.IsBinnenbreedte;
UI.Kenmerken.IsBinnenlade@default = DATA.Kenmerken.IsBinnenlade;
UI.Kenmerken.LadeDiepte@default = DATA.Kenmerken.LadeDiepte;
UI.Kenmerken.LadeHoogte@default = DATA.Kenmerken.LadeHoogte;
UI.Kenmerken.LadeKleur@default = DATA.Kenmerken.LadeKleur;
UI.Kenmerken.MeenemerSet@default = DATA.Kenmerken.MeenemerSet;
UI.Kenmerken.OpvullijstKleur@default = DATA.Kenmerken.OpvullijstKleur;
UI.Kenmerken.ProductieWijze@default = DATA.Kenmerken.ProductieWijze;
UI.Kenmerken.RugHoogte@default = DATA.Kenmerken.RugHoogte;
UI.Kenmerken.RugwandMateriaal@default = DATA.Kenmerken.RugwandMateriaal;
UI.Kenmerken.Toepassing@default = DATA.Kenmerken.Toepassing;
UI.Kenmerken.VerpakkingType@default = DATA.Kenmerken.VerpakkingType;
UI.Kenmerken.VoorwandTypeVanMBinnenlade@default = DATA.Kenmerken.VoorwandTypeVanMBinnenlade;
UI.Kenmerken.VoorwandTypeVanCBinnenlade@default = DATA.Kenmerken.VoorwandTypeVanCBinnenlade;
UI.Kenmerken.VoorwandTypeVanKBinnenlade@default = DATA.Kenmerken.VoorwandTypeVanKBinnenlade;
UI.Kenmerken.ZijwandType@default = DATA.Kenmerken.ZijwandType;
UI.Kenmerken.InterneBreedte@default = DATA.BerekendeWaarden.InterneBreedte;
UI.Lijn.Aantal@default = DATA.Lijn.Aantal;
UI.Lijn.Referentie@default = DATA.Lijn.Referentie;
local boolean _DummyCheckV01 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBinnen;
local boolean _DummyCheckV02 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBuiten;
local boolean _DummyCheckV03 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder;
local boolean _DummyCheckV04 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_BevestigingBodemFront;
local boolean _DummyCheckV05 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging;
local boolean _DummyCheckV06 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider;
local boolean _DummyCheckV07 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementVoor;
local boolean _DummyCheckV08 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementZijkant;
local boolean _DummyCheckV09 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst;
local boolean _DummyCheckV10 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet;
local boolean _DummyCheckV11 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers;
local boolean _DummyCheckV12 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang;
local boolean _DummyCheckV13 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Zijstabilisering;
index i of UI.Kenmerken.NietMeeleveren
local boolean _IsChecked = CBool(Eval("DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.Kenmerken.NietMeeleveren(i).Id));
UI.Kenmerken.NietMeeleveren(i).IsSelected@default = _IsChecked;
end index;
Values
;ui.kenmerken.bodemkleur@default;ui.kenmerken.corpusbreedte@default;ui.kenmerken.corpuswanddikte@default;ui.kenmerken.draagkracht@default;ui.kenmerken.dwarsverdelingaantal@default;ui.kenmerken.frontbevestiging@default;ui.kenmerken.geleidertechnologie@default;ui.kenmerken.heeftafwijkenderughoogte@default;ui.kenmerken.heeftopvullijstlinks@default;ui.kenmerken.heeftopvullijstrechts@default;ui.kenmerken.heeftzijstabilisering@default;ui.kenmerken.isbinnenbreedte@default;ui.kenmerken.isbinnenlade@default;ui.kenmerken.ladediepte@default;ui.kenmerken.ladehoogte@default;ui.kenmerken.ladekleur@default;ui.kenmerken.meenemerset@default;ui.kenmerken.opvullijstkleur@default;ui.kenmerken.productiewijze@default;ui.kenmerken.rughoogte@default;ui.kenmerken.rugwandmateriaal@default;ui.kenmerken.toepassing@default;ui.kenmerken.verpakkingtype@default;ui.kenmerken.voorwandtypevanmbinnenlade@default;ui.kenmerken.voorwandtypevancbinnenlade@default;ui.kenmerken.voorwandtypevankbinnenlade@default;ui.kenmerken.zijwandtype@default;ui.kenmerken.internebreedte@default;ui.lijn.aantal@default;ui.lijn.referentie@default;
true
UI.Kenmerken.MatMateriaal@default = DATA.Kenmerken.MatMateriaal;
UI.Kenmerken.HeeftMat@default = (UI.Kenmerken.MatMateriaal <> "");
UI.Kenmerken.MatVinylFiberglassKleur@default = "";
UI.Kenmerken.MatAntislipKleur@default = "";
UI.Kenmerken.MatAntislipFiberKleur@default = "";
UI.Kenmerken.MatAntislipFlockKleur@default = "";
switch UI.Kenmerken.MatMateriaal
case "CF": UI.Kenmerken.MatVinylFiberglassKleur@default = DATA.Kenmerken.MatKleur
case "AS": UI.Kenmerken.MatAntislipKleur@default = DATA.Kenmerken.MatKleur
case "AF": UI.Kenmerken.MatAntislipFiberKleur@default = DATA.Kenmerken.MatKleur
case "AZ": UI.Kenmerken.MatAntislipFlockKleur@default = DATA.Kenmerken.MatKleur
end switch
Values - Mat
;ui.kenmerken.matmateriaal@default;ui.kenmerken.heeftmat@default;ui.kenmerken.matvinylfiberglasskleur@default;ui.kenmerken.matantislipkleur@default;ui.kenmerken.matantislipfiberkleur@default;ui.kenmerken.matantislipflockkleur@default;
true
UI.Kenmerken.UitsparingData.X.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.X.Breedte;
UI.Kenmerken.UitsparingData.X.Hoogte@default = DATA.Kenmerken.UitsparingData.X.Hoogte;
UI.Kenmerken.UitsparingData.X.Materiaal@default = DATA.Kenmerken.UitsparingData.X.Materiaal;
UI.Kenmerken.UitsparingData.M.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.M.Breedte;
UI.Kenmerken.UitsparingData.M.Hoogte@default = DATA.Kenmerken.UitsparingData.M.Hoogte;
UI.Kenmerken.UitsparingData.M.Materiaal@default = DATA.Kenmerken.UitsparingData.M.Materiaal;
UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.Y.Breedte;
UI.Kenmerken.UitsparingData.Y.Hoogte@default = DATA.Kenmerken.UitsparingData.Y.Hoogte;
UI.Kenmerken.UitsparingData.Y.Materiaal@default = DATA.Kenmerken.UitsparingData.Y.Materiaal;
UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@default = DATA.Kenmerken.UitsparingData.Z1.Breedte;
UI.Kenmerken.UitsparingData.Z1.Diepte@default = DATA.Kenmerken.UitsparingData.Z1.Diepte;
UI.Kenmerken.UitsparingData.Z1.Hoogte@default = DATA.Kenmerken.UitsparingData.Z1.Hoogte;
UI.Kenmerken.UitsparingData.Z1.Materiaal@default = DATA.Kenmerken.UitsparingData.Z1.Materiaal;
UI.Kenmerken.UitsparingData.Z1.Vorm@default = DATA.Kenmerken.UitsparingData.Z1.Vorm;
UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@default = DATA.Kenmerken.UitsparingData.Z2.Breedte;
UI.Kenmerken.UitsparingData.Z2.Diepte@default = DATA.Kenmerken.UitsparingData.Z2.Diepte;
UI.Kenmerken.UitsparingData.Z2.Hoogte@default = DATA.Kenmerken.UitsparingData.Z2.Hoogte;
UI.Kenmerken.UitsparingData.Z2.Materiaal@default = DATA.Kenmerken.UitsparingData.Z2.Materiaal;
UI.Kenmerken.UitsparingData.Z2.Vorm@default = DATA.Kenmerken.UitsparingData.Z2.Vorm;
UI.Kenmerken.UitsparingData.UitsparingAantal@default = DATA.Kenmerken.UitsparingData.UitsparingAantal;
Values - UitsparingData
;ui.kenmerken.uitsparingdata.x.breedterugdeel@default;ui.kenmerken.uitsparingdata.x.hoogte@default;ui.kenmerken.uitsparingdata.x.materiaal@default;ui.kenmerken.uitsparingdata.m.breedterugdeel@default;ui.kenmerken.uitsparingdata.m.hoogte@default;ui.kenmerken.uitsparingdata.m.materiaal@default;ui.kenmerken.uitsparingdata.y.breedterugdeel@default;ui.kenmerken.uitsparingdata.y.hoogte@default;ui.kenmerken.uitsparingdata.y.materiaal@default;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z1.diepte@default;ui.kenmerken.uitsparingdata.z1.hoogte@default;ui.kenmerken.uitsparingdata.z1.materiaal@default;ui.kenmerken.uitsparingdata.z1.vorm@default;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z2.diepte@default;ui.kenmerken.uitsparingdata.z2.hoogte@default;ui.kenmerken.uitsparingdata.z2.materiaal@default;ui.kenmerken.uitsparingdata.z2.vorm@default;ui.kenmerken.uitsparingdata.uitsparingaantal@default;
true
UI.Kenmerken.SpaceStep.Sokkelbreedte@default = DATA.Kenmerken.SpaceStep.Breedte;
UI.Kenmerken.SpaceStep.Sokkelhoogte@default = DATA.Kenmerken.SpaceStep.Hoogte;
UI.Kenmerken.SpaceStep.Sokkeldiepte@default = DATA.Kenmerken.SpaceStep.Diepte;
UI.Kenmerken.SpaceStep.Kleur@default = DATA.Kenmerken.SpaceStep.Kleur;
UI.Kenmerken.SpaceStep.Uitvoering@default = DATA.Kenmerken.SpaceStep.Uitvoering;
UI.Kenmerken.SpaceStep.Bewegingstechnologie@default = DATA.Kenmerken.SpaceStep.Bewegingstechnologie;
UI.Kenmerken.SpaceStep.StekkerServodrive@default = DATA.Kenmerken.SpaceStep.StekkerServodrive;
UI.Kenmerken.SpaceStep.StekkerType@default = DATA.Kenmerken.SpaceStep.StekkerType;
Values - SpaceStep
;ui.kenmerken.spacestep.sokkelbreedte@default;ui.kenmerken.spacestep.sokkelhoogte@default;ui.kenmerken.spacestep.sokkeldiepte@default;ui.kenmerken.spacestep.kleur@default;ui.kenmerken.spacestep.uitvoering@default;ui.kenmerken.spacestep.bewegingstechnologie@default;ui.kenmerken.spacestep.stekkerservodrive@default;ui.kenmerken.spacestep.stekkertype@default;
true
UI.Kenmerken.CorpusBreedte@label = switch (UI.Kenmerken.IsBinnenbreedte)
case true: GetLocalizedLabel("CorpusBinnenbreedte")
else GetLocalizedLabel("CorpusBuitenbreedte")
end switch;
Label CorpusBreedte
;
true
$UitsparingPane@label = switch (UI.Kenmerken.Toepassing)
case "SY": UI.Kenmerken.Toepassing@option("SY")@label
case "SP": UI.Kenmerken.Toepassing@option("SP")@label
else ""
end switch;
Label UitsparingDataPane
;
(DATA.Kenmerken.Toepassing == "SY") or (DATA.Kenmerken.Toepassing == "SP")
if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then
UI.Kenmerken.UitsparingData.Z1@label = GetLocalizedLabel("Z");
else
UI.Kenmerken.UitsparingData.Z1@label = GetLocalizedLabel("Z1");
end if;
Label UitsparingData Z1
;
true
if (UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing == 150) then
UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_M_D250_B150"; /* DEPRECATED */
end if;
if (UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing == 160) then
UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_M_D240_B160";
end if;
if (UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing == 300) then
// UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_M_D250_B300"; /* DEPRECATED */
UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_M_D240_B300";
end if;
Values UitsparingData Z1
;ui.kenmerken.uitsparingdata.z1.codeuitsparing@default;
true
if (UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing == 150) then
UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_M_D250_B150"; /* DEPRECATED */
end if;
if (UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing == 160) then
UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_M_D240_B160";
end if;
if (UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing == 300) then
// UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_M_D250_B300"; /* DEPRECATED */
UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_M_D240_B300";
end if;
Values UitsparingData Z2
;ui.kenmerken.uitsparingdata.z2.codeuitsparing@default;
true
local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing in {"SP"});
UI.Kenmerken.UitsparingDataSpoelbak@visible = (_IsSpoelbaklade);
UI.Kenmerken.UitsparingDataSpoelbak.Z1@label = GetLocalizedLabel("Z");
local double _BreedteX = 158;
local double _BreedteY = 158;
local double _BreedteZ1 = 0;
if (DATA.BerekendeWaarden.InterneBreedte > 0) then
_BreedteZ1 = DATA.BerekendeWaarden.InterneBreedte - (_BreedteX + _BreedteY);
end if;
UI.Kenmerken.UitsparingDataSpoelbak.X = _BreedteX;
UI.Kenmerken.UitsparingDataSpoelbak.Y = _BreedteY;
UI.Kenmerken.UitsparingDataSpoelbak.Z1 = _BreedteZ1;
Visible - UitsparingData Spoelbaklade
;ui.kenmerken.uitsparingdataspoelbak@visible;ui.kenmerken.uitsparingdataspoelbak.x@value;ui.kenmerken.uitsparingdataspoelbak.y@value;ui.kenmerken.uitsparingdataspoelbak.z1@value;
(UI.Kenmerken.UitsparingData@visible) or (UI.Kenmerken.UitsparingDataSpoelbak@visible)
local string _UitsparingAantal = UI.Kenmerken.UitsparingData.UitsparingAantal;
if (_UitsparingAantal == "") then
_UitsparingAantal = "Enkel";
end if;
local string _ImageUrl = "./images/Vanhoecke/lbx/UitsparingData/LBX_Toepassing_" + UI.Kenmerken.Toepassing + "_" + _UitsparingAantal + ".png";
UI.Kenmerken.UitsparingData.Afbeelding@default = _ImageUrl;
UI.Kenmerken.UitsparingDataSpoelbak.Afbeelding@default = _ImageUrl;
UitsparingData afbeelding
;ui.kenmerken.uitsparingdata.afbeelding@default;ui.kenmerken.uitsparingdataspoelbak.afbeelding@default;
true
local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SY"});
local boolean _HeeftDubbeleUitsparing = (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel");
UI.Kenmerken.UitsparingData@visible = _HeeftUitsparingData;
UI.Kenmerken.UitsparingData.UitsparingAantal@mandatory = _HeeftUitsparingData;
UI.Kenmerken.UitsparingData.X.BreedteRugdeel@mandatory = _HeeftUitsparingData;
UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@mandatory = _HeeftUitsparingData;
UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@mandatory = _HeeftUitsparingData;
UI.Kenmerken.UitsparingData.M.BreedteRugdeel@mandatory = _HeeftDubbeleUitsparing;
UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@mandatory = _HeeftDubbeleUitsparing;
UI.Kenmerken.UitsparingData.M@visible = _HeeftDubbeleUitsparing;
UI.Kenmerken.UitsparingData.Z2@visible = _HeeftDubbeleUitsparing;
Visible en mandatory - UitsparingData Aantal en Breedtes
;ui.kenmerken.uitsparingdata@visible;ui.kenmerken.uitsparingdata.uitsparingaantal@mandatory;ui.kenmerken.uitsparingdata.x.breedterugdeel@mandatory;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@mandatory;ui.kenmerken.uitsparingdata.y.breedterugdeel@mandatory;ui.kenmerken.uitsparingdata.m.breedterugdeel@mandatory;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@mandatory;ui.kenmerken.uitsparingdata.m@visible;ui.kenmerken.uitsparingdata.z2@visible;
true
local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY");
local boolean _HeeftDubbeleUitsparing = (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel");
UI.Kenmerken.UitsparingData.X.CodeRugdeel@visible = true;
UI.Kenmerken.UitsparingData.X.CodeRugdeel@style.controlclass = "hidden"; //indien visible, dan ControlClass="SmallTiles"
UI.Kenmerken.UitsparingData.X.CodeRugdeel@mandatory = false;
UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@visible = _IsSifonlade;
UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@mandatory = _IsSifonlade;
UI.Kenmerken.UitsparingData.M.CodeRugdeel@visible = false;
UI.Kenmerken.UitsparingData.M.CodeRugdeel@mandatory = false;
UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@visible = (_HeeftDubbeleUitsparing and _IsSifonlade);
UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@mandatory = (_HeeftDubbeleUitsparing and _IsSifonlade);
UI.Kenmerken.UitsparingData.Y.CodeRugdeel@visible = false;
UI.Kenmerken.UitsparingData.Y.CodeRugdeel@mandatory = false;
// Placeholders om de uitlijning te behouden :-P
/*
UI.Kenmerken.UitsparingData.X.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.X.CodeRugdeel@visible);
UI.Kenmerken.UitsparingData.Z1.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@visible);
UI.Kenmerken.UitsparingData.M.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.M.CodeRugdeel@visible);
UI.Kenmerken.UitsparingData.Z2.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@visible);
UI.Kenmerken.UitsparingData.Y.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Y.CodeRugdeel@visible);
*/
UI.Kenmerken.UitsparingData.X.CodePlaceholder@visible = false;
UI.Kenmerken.UitsparingData.Z1.CodePlaceholder@visible = false;
UI.Kenmerken.UitsparingData.M.CodePlaceholder@visible = false;
UI.Kenmerken.UitsparingData.Z2.CodePlaceholder@visible = false;
UI.Kenmerken.UitsparingData.Y.CodePlaceholder@visible = false;
Visible en mandatory - UitsparingData Code
;ui.kenmerken.uitsparingdata.x.coderugdeel@visible;ui.kenmerken.uitsparingdata.x.coderugdeel@mandatory;ui.kenmerken.uitsparingdata.z1.codeuitsparing@visible;ui.kenmerken.uitsparingdata.z1.codeuitsparing@mandatory;ui.kenmerken.uitsparingdata.m.coderugdeel@visible;ui.kenmerken.uitsparingdata.m.coderugdeel@mandatory;ui.kenmerken.uitsparingdata.z2.codeuitsparing@visible;ui.kenmerken.uitsparingdata.z2.codeuitsparing@mandatory;ui.kenmerken.uitsparingdata.y.coderugdeel@visible;ui.kenmerken.uitsparingdata.y.coderugdeel@mandatory;ui.kenmerken.uitsparingdata.x.codeplaceholder@visible;ui.kenmerken.uitsparingdata.z1.codeplaceholder@visible;ui.kenmerken.uitsparingdata.m.codeplaceholder@visible;ui.kenmerken.uitsparingdata.z2.codeplaceholder@visible;ui.kenmerken.uitsparingdata.y.codeplaceholder@visible;
(DATA.Kenmerken.Toepassing == "SY")
local string _RugdeelOpMaat = "SY_M_BM";
local string _UitsparingSmal = "SY_Recht_M_D240_B160";
if (UI.Kenmerken.UitsparingData.UitsparingAantal == "") then
UI.Kenmerken.UitsparingData.UitsparingAantal@default = "Enkel";
end if;
if (UI.Kenmerken.UitsparingData.X.CodeRugdeel <> _RugdeelOpMaat) then
UI.Kenmerken.UitsparingData.X.CodeRugdeel@default = _RugdeelOpMaat;
end if;
if (UI.Kenmerken.UitsparingData.M.CodeRugdeel <> _RugdeelOpMaat) then
UI.Kenmerken.UitsparingData.M.CodeRugdeel@default = _RugdeelOpMaat;
end if;
if (UI.Kenmerken.UitsparingData.Y.CodeRugdeel <> _RugdeelOpMaat) then
UI.Kenmerken.UitsparingData.Y.CodeRugdeel@default = _RugdeelOpMaat;
end if;
Defaults voor Sifonlade
;ui.kenmerken.uitsparingdata.uitsparingaantal@default;ui.kenmerken.uitsparingdata.x.coderugdeel@default;ui.kenmerken.uitsparingdata.m.coderugdeel@default;ui.kenmerken.uitsparingdata.y.coderugdeel@default;
not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.X@visible) and not(CONFIG.InputMode == "CreateConfig")
UI.Kenmerken.UitsparingData.X.BreedteRugdeel@default = 0;
UitsparingData breedte X defaulten indien niet zichtbaar
;ui.kenmerken.uitsparingdata.x.breedterugdeel@default;
not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Y@visible) and not(CONFIG.InputMode == "CreateConfig")
UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@default = 0;
UitsparingData breedte Y defaulten indien niet zichtbaar
;ui.kenmerken.uitsparingdata.y.breedterugdeel@default;
not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.M@visible) and not(CONFIG.InputMode == "CreateConfig")
UI.Kenmerken.UitsparingData.M.BreedteRugdeel@default = 0;
UitsparingData breedte M defaulten indien niet zichtbaar
;ui.kenmerken.uitsparingdata.m.breedterugdeel@default;
not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z1@visible) and not(CONFIG.InputMode == "CreateConfig")
local string _UitsparingSmal = "SY_Recht_M_D240_B160";
UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@default = 0;
UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = _UitsparingSmal;
UitsparingData breedte Z1 defaulten indien niet zichtbaar
;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z1.codeuitsparing@default;
not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z2@visible) and not(CONFIG.InputMode == "CreateConfig")
local string _UitsparingSmal = "SY_Recht_M_D240_B160";
UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@default = 0;
UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = _UitsparingSmal;
UitsparingData breedte Z2 defaulten indien niet zichtbaar
;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z2.codeuitsparing@default;
(DATA.Kenmerken.Toepassing in {"SY"})
local string _CodeX = UI.Kenmerken.UitsparingData.X.CodeRugdeel;
local double _MinimumBreedte = 0;
local double _MaximumBreedte = 0;
switch _CodeX
case "SY_M_BM": // enige mogelijkheid bij Sifonlade
//X.BreedteRugdeel@default = 0;
UI.Kenmerken.UitsparingData.X.Hoogte = "M";
UI.Kenmerken.UitsparingData.X.Materiaal = "Hout";
UI.Kenmerken.UitsparingData.X.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Hout")@label;
_MinimumBreedte = 150;
_MaximumBreedte = 999;
end switch;
RANGE.UitsparingDataBreedteX.Minimum = _MinimumBreedte;
RANGE.UitsparingDataBreedteX.Maximum = _MaximumBreedte;
UitsparingData X invullen
;range.uitsparingdatabreedtex.minimum@value;range.uitsparingdatabreedtex.maximum@value;
(DATA.Kenmerken.Toepassing in {"SY"})
local string _CodeZ1 = UI.Kenmerken.UitsparingData.Z1.CodeUitsparing;
local double _MinimumBreedte = 0;
local double _MaximumBreedte = 0;
UI.Kenmerken.UitsparingData.Z1.Hoogte = "M";
UI.Kenmerken.UitsparingData.Z1.Vorm = "Recht";
UI.Kenmerken.UitsparingData.Z1.Materiaal = "Staal";
UI.Kenmerken.UitsparingData.Z1.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Staal")@label;
switch _CodeZ1
case "SY_Recht_M_D250_B150":
UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 150;
UI.Kenmerken.UitsparingData.Z1.Diepte = 250;
_MinimumBreedte = 150;
_MaximumBreedte = 150;
case "SY_Recht_M_D250_B300":
UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 300;
UI.Kenmerken.UitsparingData.Z1.Diepte = 250;
_MinimumBreedte = 300;
_MaximumBreedte = 300;
case "SY_Recht_M_D240_B160":
UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 160;
UI.Kenmerken.UitsparingData.Z1.Diepte = 240;
_MinimumBreedte = 160;
_MaximumBreedte = 160;
case "SY_Recht_M_D240_B300":
UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 300;
UI.Kenmerken.UitsparingData.Z1.Diepte = 240;
_MinimumBreedte = 300;
_MaximumBreedte = 300;
end switch;
RANGE.UitsparingDataBreedteZ1.Minimum = _MinimumBreedte;
RANGE.UitsparingDataBreedteZ1.Maximum = _MaximumBreedte;
UitsparingData Z1 invullen
;ui.kenmerken.uitsparingdata.z1.hoogte@value;ui.kenmerken.uitsparingdata.z1.vorm@value;ui.kenmerken.uitsparingdata.z1.materiaal@value;ui.kenmerken.uitsparingdata.z1.materiaaldisplay@value;range.uitsparingdatabreedtez1.minimum@value;range.uitsparingdatabreedtez1.maximum@value;
(DATA.Kenmerken.Toepassing in {"SY"})
local string _CodeM = UI.Kenmerken.UitsparingData.M.CodeRugdeel;
local double _MinimumBreedte = 0;
local double _MaximumBreedte = 0;
switch _CodeM
case "SY_M_BM": // enige mogelijkheid bij Sifonlade
//UI.Kenmerken.UitsparingData.M.BreedteRugdeel@default = 0;
UI.Kenmerken.UitsparingData.M.Hoogte = "M";
UI.Kenmerken.UitsparingData.M.Materiaal = "Hout";
UI.Kenmerken.UitsparingData.M.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Hout")@label;
_MinimumBreedte = 97;
_MaximumBreedte = 999;
end switch;
RANGE.UitsparingDataBreedteM.Minimum = _MinimumBreedte;
RANGE.UitsparingDataBreedteM.Maximum = _Maximumbreedte;
UitsparingData M invullen
;range.uitsparingdatabreedtem.minimum@value;range.uitsparingdatabreedtem.maximum@value;
(DATA.Kenmerken.Toepassing in {"SY"})
local string _CodeZ2 = UI.Kenmerken.UitsparingData.Z2.CodeUitsparing;
local double _MinimumBreedte = 0;
local double _MaximumBreedte = 0;
UI.Kenmerken.UitsparingData.Z2.Hoogte = "M";
UI.Kenmerken.UitsparingData.Z2.Vorm = "Recht";
UI.Kenmerken.UitsparingData.Z2.Materiaal = "Staal";
UI.Kenmerken.UitsparingData.Z2.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Staal")@label;
switch _CodeZ2
case "SY_Recht_M_D250_B150":
UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 150;
UI.Kenmerken.UitsparingData.Z2.Diepte = 250;
_MinimumBreedte = 150;
_MaximumBreedte = 150;
case "SY_Recht_M_D250_B300":
UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 300;
UI.Kenmerken.UitsparingData.Z2.Diepte = 250;
_MinimumBreedte = 300;
_MaximumBreedte = 300;
case "SY_Recht_M_D240_B160":
UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 160;
UI.Kenmerken.UitsparingData.Z2.Diepte = 240;
_MinimumBreedte = 160;
_MaximumBreedte = 160;
case "SY_Recht_M_D240_B300":
UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 300;
UI.Kenmerken.UitsparingData.Z2.Diepte = 240;
_MinimumBreedte = 300;
_MaximumBreedte = 300;
end switch;
RANGE.UitsparingDataBreedteZ2.Minimum = _MinimumBreedte;
RANGE.UitsparingDataBreedteZ2.Maximum = _MaximumBreedte;
UitsparingData Z2 invullen
;ui.kenmerken.uitsparingdata.z2.hoogte@value;ui.kenmerken.uitsparingdata.z2.vorm@value;ui.kenmerken.uitsparingdata.z2.materiaal@value;ui.kenmerken.uitsparingdata.z2.materiaaldisplay@value;range.uitsparingdatabreedtez2.minimum@value;range.uitsparingdatabreedtez2.maximum@value;
(DATA.Kenmerken.Toepassing in {"SY"})
local string _CodeY = UI.Kenmerken.UitsparingData.Y.CodeRugdeel;
local double _MinimumBreedte = 0;
local double _MaximumBreedte = 0;
switch _CodeY
case "SY_M_BM": // enige mogelijkheid bij Sifonlade
//UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@default = 0;
UI.Kenmerken.UitsparingData.Y.Hoogte = "M";
UI.Kenmerken.UitsparingData.Y.Materiaal = "Hout";
UI.Kenmerken.UitsparingData.Y.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Hout")@label;
_MinimumBreedte = 150;
_MaximumBreedte = 999;
end switch;
RANGE.UitsparingDataBreedteY.Minimum = _MinimumBreedte;
RANGE.UitsparingDataBreedteY.Maximum = _MaximumBreedte;
UitsparingData Y invullen
;range.uitsparingdatabreedtey.minimum@value;range.uitsparingdatabreedtey.maximum@value;
(UI.Kenmerken.UitsparingData@visible) and (UI.Kenmerken.UitsparingData.UitsparingAantal == "Enkel")
local double _SuggestieX = 0;
local double _SuggestieY = 0;
local double _SuggestieZ1 = 0;
local double _BreedteX = UI.Kenmerken.UitsparingData.X.BreedteRugdeel;
local double _BreedteY = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel;
local double _BreedteZ1 = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing;
local double _VerwachteBreedte = DATA.BerekendeWaarden.InterneBreedte;
local boolean _AlleBreedtesIngevuld = (_BreedteX > 0) and (_BreedteY > 0) and (_BreedteZ1 > 0);
local boolean _AlleBreedtesLeeg = (_BreedteX == 0) and (_BreedteY == 0) and (_BreedteZ1 == 0);
local boolean _ToonGesuggereerdeWaarde = false;
if ((_AlleBreedtesIngevuld) or (_AlleBreedtesLeeg)) then
_ToonGesuggereerdeWaarde = false;
else
_ToonGesuggereerdeWaarde = (_VerwachteBreedte > 0);
end if;
if (_ToonGesuggereerdeWaarde) then
local double _BreedteSaldo = _VerwachteBreedte - (_BreedteX + _BreedteY + _BreedteZ1);
if (_BreedteZ1 > 0) then
if ((_BreedteX == 0) and (_BreedteY == 0)) then
_SuggestieX = Round((_BreedteSaldo / 2) ; 0.1);
_SuggestieY = (_BreedteSaldo - _SuggestieX); // _SuggestieY = _SuggestieX , except when _SuggestieX is rounded.
else
if (_BreedteX == 0) then
_SuggestieX = _BreedteSaldo;
end if;
if (_BreedteY == 0) then
_SuggestieY = _BreedteSaldo;
end if;
end if;
else
// BreedteZ1 == 0
if ((_BreedteX > 0) and (_BreedteY > 0)) then
_SuggestieZ1 = _BreedteSaldo;
else
if (_BreedteX == 0) then
_SuggestieX = _BreedteY;
_SuggestieZ1 = (_BreedteSaldo - _SuggestieX);
end if;
if (_BreedteY == 0) then
_SuggestieY = _BreedteX;
_SuggestieZ1 = (_BreedteSaldo - _SuggestieY);
end if;
end if;
end if;
end if;
UI.Kenmerken.UitsparingData.X.GesuggereerdeWaarde = _SuggestieX;
UI.Kenmerken.UitsparingData.Y.GesuggereerdeWaarde = _SuggestieY;
UI.Kenmerken.UitsparingData.Z1.GesuggereerdeWaarde = _SuggestieZ1;
UI.Kenmerken.UitsparingData.M.GesuggereerdeWaarde = 0;
UI.Kenmerken.UitsparingData.Z2.GesuggereerdeWaarde = 0;
Bereken GesuggereerdeWaarden Enkele uitsparing
;ui.kenmerken.uitsparingdata.x.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.y.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z1.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.m.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z2.gesuggereerdewaarde@value;
(UI.Kenmerken.UitsparingData@visible) and (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel")
local double _SuggestieX = 0;
local double _SuggestieM = 0;
local double _SuggestieY = 0;
local double _SuggestieZ1 = 0;
local double _SuggestieZ2 = 0;
local double _BreedteX = UI.Kenmerken.UitsparingData.X.BreedteRugdeel;
local double _BreedteM = UI.Kenmerken.UitsparingData.M.BreedteRugdeel;
local double _BreedteY = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel;
local double _BreedteZ1 = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing;
local double _BreedteZ2 = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing;
local double _VerwachteBreedte = DATA.BerekendeWaarden.InterneBreedte;
local boolean _AlleRugBreedtesLeeg = (_BreedteX == 0) and (_BreedteM == 0) and (_BreedteY == 0);
local boolean _AlleRugBreedtesIngevuld = (_BreedteX > 0) and (_BreedteM > 0) and (_BreedteY > 0);
local boolean _AlleBreedtesIngevuld = (_AlleRugBreedtesIngevuld) and (_BreedteZ1 > 0) and (_BreedteZ2 > 0);
local boolean _ToonGesuggereerdeWaarde = false;
if ((_AlleRugBreedtesLeeg) or (_AlleBreedtesIngevuld)) then
_ToonGesuggereerdeWaarde = false;
else
_ToonGesuggereerdeWaarde = (_VerwachteBreedte > 0);
end if;
if (_ToonGesuggereerdeWaarde) then
local double _BreedteSaldo = _VerwachteBreedte - (_BreedteX + _BreedteM + _BreedteY + _BreedteZ1 + _BreedteZ2);
if (_AlleRugBreedtesIngevuld) then
if ((_BreedteZ1 == 0) and (_BreedteZ2 == 0)) then
_SuggestieZ1 = Round((_BreedteSaldo / 2) ; 0.1);
_SuggestieZ2 = (_BreedteSaldo - _SuggestieZ1); // _SuggestieZ2 = _SuggestieZ1 , except when _SuggestieZ1 is rounded.
else
if (_BreedteZ1 == 0) then
_SuggestieZ1 = _BreedteSaldo;
end if;
if (_BreedteZ2 == 0) then
_SuggestieZ2 = _BreedteSaldo;
end if;
end if;
else
// (not _AlleRugBreedtesIngevuld)
if ((_BreedteZ1 > 0) and (_BreedteZ2 > 0)) then
if (_BreedteM > 0) then
if ((_BreedteX == 0) and (_BreedteY == 0)) then
_SuggestieX = Round((_BreedteSaldo / 2) ; 0.1);
_SuggestieY = (_BreedteSaldo - _SuggestieX); // _SuggestieY = _SuggestieX , except when _SuggestieX is rounded.
else
if (_BreedteX == 0) then
_SuggestieX = _BreedteSaldo;
end if;
if (_BreedteY == 0) then
_SuggestieY = _BreedteSaldo;
end if;
end if;
else
// BreedteM == 0
if ((_BreedteX > 0) and (_BreedteY > 0)) then
_SuggestieM = _BreedteSaldo;
else
_SuggestieX = 0;
_SuggestieY = 0;
if (_BreedteX == 0) then
_SuggestieX = _BreedteY;
end if;
if (_BreedteY == 0) then
_SuggestieY = _BreedteX;
end if;
_SuggestieM = (_BreedteSaldo - _SuggestieX - _SuggestieY);
end if;
end if;
else
// Combinatie van RugBreedtes en UitsparingBreedtes niet ingevuld : TO DO
local boolean _dummy = true;
end if;
end if;
end if;
UI.Kenmerken.UitsparingData.X.GesuggereerdeWaarde = _SuggestieX;
UI.Kenmerken.UitsparingData.M.GesuggereerdeWaarde = _SuggestieM;
UI.Kenmerken.UitsparingData.Y.GesuggereerdeWaarde = _SuggestieY;
UI.Kenmerken.UitsparingData.Z1.GesuggereerdeWaarde = _SuggestieZ1;
UI.Kenmerken.UitsparingData.Z2.GesuggereerdeWaarde = _SuggestieZ2;
Bereken GesuggereerdeWaarden Dubbele uitsparing
;ui.kenmerken.uitsparingdata.x.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.m.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.y.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z1.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z2.gesuggereerdewaarde@value;
(DATA.Kenmerken.Toepassing in {"SY"});
local boolean _HeeftDubbeleUitsparing = (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel");
local double _TotaleBreedte = 0;
local double _BreedteX = UI.Kenmerken.UitsparingData.X.BreedteRugdeel;
local double _BreedteZ1 = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing;
local double _BreedteM = UI.Kenmerken.UitsparingData.M.BreedteRugdeel;
local double _BreedteZ2 = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing;
local double _BreedteY = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel;
_TotaleBreedte = _BreedteX + _BreedteZ1 + _BreedteY;
if (_HeeftDubbeleUitsparing) then
_TotaleBreedte = _TotaleBreedte + _BreedteM + _BreedteZ2;
end if;
UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte = _TotaleBreedte;
Bereken TotaleBreedte
;ui.kenmerken.uitsparingdata.uitsparingdata_totalebreedte@value;
UI.Kenmerken.UitsparingData@visible
UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte = DATA.BerekendeWaarden.InterneBreedte;
Instellen VerwachteBreedte bij Uitsparingen
;ui.kenmerken.uitsparingdata.uitsparingdata_verwachtebreedte@value;
false //true // indien HeeftUitsparing
local boolean _IsGeldigTotaleBreedte = (UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte == UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte);
local string _ControlClass = ""; //"colorBlack";
if not(_IsGeldigTotaleBreedte) then
_ControlClass = "eConInvalidField"; // ui-state-error""colorRed";
end if;
UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte@style = "controlclass:" + _ControlClass; // _CssClassname;
//UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte@styleClass = _CssClassname;
UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte@visible = not(_IsGeldigTotaleBreedte);
Visible en formatting - VerwachteBreedte
;ui.kenmerken.uitsparingdata.uitsparingdata_verwachtebreedte@visible;
(RANGE.UitsparingDataBreedteX.Maximum > 0)
local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteX.Maximum == RANGE.UitsparingDataBreedteX.Minimum);
UI.Kenmerken.UitsparingData.X.BreedteRugdeel@enabled = not(_IsVasteBreedte);
Breedte X wordt read-only indien Range.Max = Range.Min
;ui.kenmerken.uitsparingdata.x.breedterugdeel@enabled;
(RANGE.UitsparingDataBreedteM.Maximum > 0)
local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteM.Maximum == RANGE.UitsparingDataBreedteM.Minimum);
UI.Kenmerken.UitsparingData.M.BreedteRugdeel@enabled = not(_IsVasteBreedte);
Breedte M wordt read-only indien Range.Max = Range.Min
;ui.kenmerken.uitsparingdata.m.breedterugdeel@enabled;
(RANGE.UitsparingDataBreedteY.Maximum > 0)
local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteY.Maximum == RANGE.UitsparingDataBreedteY.Minimum);
UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@enabled = not(_IsVasteBreedte);
Breedte Y wordt read-only indien Range.Max = Range.Min
;ui.kenmerken.uitsparingdata.y.breedterugdeel@enabled;
(RANGE.UitsparingDataBreedteZ1.Maximum > 0)
local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteZ1.Maximum == RANGE.UitsparingDataBreedteZ1.Minimum);
UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@enabled = not(_IsVasteBreedte);
UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@style.controlclass =
if _IsVasteBreedte
then "vh-INPUTuitsparingDataDISABLED"
else "vh-INPUTuitsparingData"
end if;
Breedte Z1 wordt read-only indien Range.Max = Range.Min
;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@enabled;
(RANGE.UitsparingDataBreedteZ2.Maximum > 0)
local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteZ2.Maximum == RANGE.UitsparingDataBreedteZ2.Minimum);
UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@enabled = not(_IsVasteBreedte);
UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@style.controlclass =
if _IsVasteBreedte
then "vh-INPUTuitsparingDataDISABLED"
else "vh-INPUTuitsparingData"
end if;
Breedte Z2 wordt read-only indien Range.Max = Range.Min
;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@enabled;
BEHAVIOR.IsEconAx and (CONFIG.ProcessMode == "Background")
DATA.Kenmerken.UitsparingData.X.Hoogte = UI.Kenmerken.UitsparingData.X.Hoogte;
DATA.Kenmerken.UitsparingData.X.Materiaal = UI.Kenmerken.UitsparingData.X.Materiaal;
DATA.Kenmerken.UitsparingData.M.Hoogte = UI.Kenmerken.UitsparingData.M.Hoogte;
DATA.Kenmerken.UitsparingData.M.Materiaal = UI.Kenmerken.UitsparingData.M.Materiaal;
DATA.Kenmerken.UitsparingData.Y.Hoogte = UI.Kenmerken.UitsparingData.Y.Hoogte;
DATA.Kenmerken.UitsparingData.Y.Materiaal = UI.Kenmerken.UitsparingData.Y.Materiaal;
DATA.Kenmerken.UitsparingData.Z1.Diepte = UI.Kenmerken.UitsparingData.Z1.Diepte;
DATA.Kenmerken.UitsparingData.Z1.Hoogte = UI.Kenmerken.UitsparingData.Z1.Hoogte;
DATA.Kenmerken.UitsparingData.Z1.Materiaal = UI.Kenmerken.UitsparingData.Z1.Materiaal;
DATA.Kenmerken.UitsparingData.Z1.Vorm = UI.Kenmerken.UitsparingData.Z1.Vorm;
DATA.Kenmerken.UitsparingData.Z2.Diepte = UI.Kenmerken.UitsparingData.Z2.Diepte;
DATA.Kenmerken.UitsparingData.Z2.Hoogte = UI.Kenmerken.UitsparingData.Z2.Hoogte;
DATA.Kenmerken.UitsparingData.Z2.Materiaal = UI.Kenmerken.UitsparingData.Z2.Materiaal;
DATA.Kenmerken.UitsparingData.Z2.Vorm = UI.Kenmerken.UitsparingData.Z2.Vorm;
/*
// De Breedtes moeten ingevuld zijn in de EDI-input waarden
DATA.Kenmerken.UitsparingData.X.Breedte = UI.Kenmerken.UitsparingData.X.BreedteRugdeel;
DATA.Kenmerken.UitsparingData.M.Breedte = UI.Kenmerken.UitsparingData.M.BreedteRugdeel;
DATA.Kenmerken.UitsparingData.Y.Breedte = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel;
DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing;
DATA.Kenmerken.UitsparingData.Z2.Breedte = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing;
*/
UitsparingData UI naar DATA (ax-background mode)
;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value;
true
if(DATA.Kenmerken.Toepassing == "SST") then
$SpaceStepPane@visible = true;
else
$SpaceStepPane@visible = false;
end if;
Is SpaceStepPane visible
;
DATA.Kenmerken.Toepassing == "SST"
DATA.Kenmerken.SpaceStep.Kleur = "OG-M";
DATA.Kenmerken.SpaceStep.Uitvoering = "Volledig";
//DARO
if (Config.Settings.PersonalityId == "10") then
DATA.Kenmerken.SpaceStep.StekkerType = "UK";
else
DATA.Kenmerken.SpaceStep.StekkerType = "EU";
end if;
Defaults voor SpaceStep
;data.kenmerken.spacestep.kleur@value;data.kenmerken.spacestep.uitvoering@value;data.kenmerken.spacestep.stekkertype@value;
false
local boolean _IsIntern = (BEHAVIOR.AccessMode == "Intern")
local boolean _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
local boolean _BEHAVIOR_IsSpaceStepPaneZichtbaar;
local boolean _BEHAVIOR_IsRugwandMateriaalZichtbaar;
local boolean _BEHAVIOR_IsStekkerServodriveZichtbaar;
local boolean _BEHAVIOR_IsStekkerTypeMandatory;
if($SpaceStepPane@visible) then
_BEHAVIOR_IsSpaceStepPaneZichtbaar = true;
else
_BEHAVIOR_IsSpaceStepPaneZichtbaar = false;
end if;
if((DATA.Kenmerken.SpaceStep.Uitvoering == "Volledig") or (DATA.Kenmerken.Toepassing <> "SST")) then
_BEHAVIOR_ZijnLadeKenmerkenZichtbaar = true;
else
_BEHAVIOR_ZijnLadeKenmerkenZichtbaar = false;
end if;
if(_IsIntern and _BEHAVIOR_ZijnLadeKenmerkenZichtbaar) then
_BEHAVIOR_IsRugwandMateriaalZichtbaar = true;
else
_BEHAVIOR_IsRugwandMateriaalZichtbaar = false;
end if;
if(DATA.Kenmerken.SpaceStep.Bewegingstechnologie == "Servodrive" and _BEHAVIOR_IsSpaceStepPaneZichtbaar) then
_BEHAVIOR_IsStekkerServodriveZichtbaar = true;
else
_BEHAVIOR_IsStekkerServodriveZichtbaar = false;
end if;
if(DATA.Kenmerken.SpaceStep.StekkerServodrive) then
_BEHAVIOR_IsStekkerTypeMandatory = true;
else
_BEHAVIOR_IsStekkerTypeMandatory = false;
end if;
$DimensiesPane@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar);
UI.Kenmerken.IsBinnenLade@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar);
UI.Kenmerken.Geleidertechnologie@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar);
UI.Kenmerken.Draagkracht@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar);
UI.Kenmerken.HeeftOpvullijstLinks@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar);
UI.Kenmerken.HeeftOpvullijstRechts@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar);
UI.Kenmerken.DwarsverdelingAantal@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar);
UI.Kenmerken.HeeftZijstabilisering@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar);
UI.Kenmerken.ZijwandType@visible = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
UI.Kenmerken.LadeKleur@visible = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
UI.Kenmerken.BodemKleur@visible = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
$MatPane@visible = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
UI.Kenmerken.RugwandMateriaal@visible = _BEHAVIOR_IsRugwandMateriaalZichtbaar;
UI.Kenmerken.SpaceStep.StekkerServodrive@visible = _BEHAVIOR_IsStekkerServodriveZichtbaar;
UI.Kenmerken.LadeKleur@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
UI.Kenmerken.BodemKleur@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
UI.Kenmerken.RugwandMateriaal@mandatory = _BEHAVIOR_IsRugwandMateriaalZichtbaar;
UI.Kenmerken.ZijwandType@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
UI.Kenmerken.LadeDiepte@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
UI.Kenmerken.LadeHoogte@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
UI.Kenmerken.Corpusbreedte@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
UI.Kenmerken.Draagkracht@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
UI.Kenmerken.Corpusbreedte@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
UI.Kenmerken.Geleidertechnologie@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar;
UI.Kenmerken.SpaceStep.Sokkelbreedte@mandatory = _BEHAVIOR_IsSpaceStepPaneZichtbaar;
UI.Kenmerken.SpaceStep.Sokkelhoogte@mandatory = _BEHAVIOR_IsSpaceStepPaneZichtbaar;
UI.Kenmerken.SpaceStep.Uitvoering@mandatory = _BEHAVIOR_IsSpaceStepPaneZichtbaar;
UI.Kenmerken.SpaceStep.Sokkeldiepte@mandatory = _BEHAVIOR_IsSpaceStepPaneZichtbaar;
UI.Kenmerken.SpaceStep.Bewegingstechnologie@mandatory = _BEHAVIOR_IsSpaceStepPaneZichtbaar;
UI.Kenmerken.SpaceStep.Kleur@mandatory = _BEHAVIOR_IsSpaceStepPaneZichtbaar;
UI.Kenmerken.SpaceStep.StekkerServodrive@mandatory = false;
UI.Kenmerken.SpaceStep.StekkerType@mandatory = _BEHAVIOR_IsStekkerTypeMandatory;
UI.Kenmerken.SpaceStep.Kleur@visible = false;
UI.Kenmerken.SpaceStep.StekkerType@visible = false;
UI.Kenmerken.SpaceStep.Uitvoering@option("SokkelEnTablet")@visible = false;
UI.Kenmerken.SpaceStep.Uitvoering@option("Tablet")@visible = false;
Kenmerken verbergen/mandatory aanpassen indien SpaceStep
;ui.kenmerken.isbinnenlade@visible;ui.kenmerken.geleidertechnologie@visible;ui.kenmerken.draagkracht@visible;ui.kenmerken.heeftopvullijstlinks@visible;ui.kenmerken.heeftopvullijstrechts@visible;ui.kenmerken.dwarsverdelingaantal@visible;ui.kenmerken.heeftzijstabilisering@visible;ui.kenmerken.zijwandtype@visible;ui.kenmerken.ladekleur@visible;ui.kenmerken.bodemkleur@visible;ui.kenmerken.rugwandmateriaal@visible;ui.kenmerken.spacestep.stekkerservodrive@visible;ui.kenmerken.ladekleur@mandatory;ui.kenmerken.bodemkleur@mandatory;ui.kenmerken.rugwandmateriaal@mandatory;ui.kenmerken.zijwandtype@mandatory;ui.kenmerken.ladediepte@mandatory;ui.kenmerken.ladehoogte@mandatory;ui.kenmerken.corpusbreedte@mandatory;ui.kenmerken.draagkracht@mandatory;ui.kenmerken.geleidertechnologie@mandatory;ui.kenmerken.spacestep.sokkelbreedte@mandatory;ui.kenmerken.spacestep.sokkelhoogte@mandatory;ui.kenmerken.spacestep.uitvoering@mandatory;ui.kenmerken.spacestep.sokkeldiepte@mandatory;ui.kenmerken.spacestep.bewegingstechnologie@mandatory;ui.kenmerken.spacestep.kleur@mandatory;ui.kenmerken.spacestep.stekkerservodrive@mandatory;ui.kenmerken.spacestep.stekkertype@mandatory;ui.kenmerken.spacestep.kleur@visible;ui.kenmerken.spacestep.stekkertype@visible;ui.kenmerken.spacestep.uitvoering@options;
UI.Kenmerken.Toepassing == "SST" and UI.Kenmerken.SpaceStep.Uitvoering == "Volledig"
local long _DiktePlaatmateriaal = 18;
local long _DikteBlumOpvullijst = 50;
DATA.Kenmerken.Draagkracht = "40";
DATA.Kenmerken.HeeftOpvullijstLinks = false;
DATA.Kenmerken.HeeftOpvullijstRechts = false;
DATA.Kenmerken.DwarsverdelingAantal = "0";
DATA.Kenmerken.HeeftZijstabilisering = false;
DATA.Kenmerken.IsBinnenLade = false;
DATA.Kenmerken.IsBinnenBreedte = true;
DATA.Kenmerken.ProductieWijze = "V";
DATA.Kenmerken.Corpusbreedte = DATA.Kenmerken.SpaceStep.Breedte - (2*_DiktePlaatmateriaal) - (2*_DikteBlumOpvullijst);
if(DATA.Kenmerken.SpaceStep.Diepte == "505") then
DATA.Kenmerken.LadeDiepte = "450";
end if;
if(DATA.Kenmerken.SpaceStep.Diepte == "555") then
DATA.Kenmerken.LadeDiepte = "500";
end if;
if(DATA.Kenmerken.SpaceStep.Hoogte >= 150 and DATA.Kenmerken.SpaceStep.Hoogte < 166) then
DATA.Kenmerken.LadeHoogte = "N";
end if;
if(DATA.Kenmerken.SpaceStep.Hoogte >= 166 and DATA.Kenmerken.SpaceStep.Hoogte < 204) then
DATA.Kenmerken.LadeHoogte = "M";
end if;
if(DATA.Kenmerken.SpaceStep.Hoogte >= 204 and DATA.Kenmerken.SpaceStep.Hoogte <= 250) then
DATA.Kenmerken.LadeHoogte = "K";
end if;
if(DATA.Kenmerken.SpaceStep.Bewegingstechnologie == "TOB") then
DATA.Kenmerken.Geleidertechnologie = "TOB";
else
DATA.Kenmerken.Geleidertechnologie = "B";
end if;
Values bij SpaceStep met lade
;data.kenmerken.draagkracht@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenlade@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.productiewijze@value;data.kenmerken.corpusbreedte@value;data.kenmerken.ladediepte@value;data.kenmerken.ladehoogte@value;data.kenmerken.geleidertechnologie@value;
UI.Kenmerken.Toepassing == "SST" and UI.Kenmerken.SpaceStep.Uitvoering <> "Volledig" and UI.Kenmerken.SpaceStep.Uitvoering <> ""
DATA.Kenmerken.Geleidertechnologie = "";
DATA.Kenmerken.Draagkracht = "";
DATA.Kenmerken.HeeftOpvullijstLinks = false;
DATA.Kenmerken.HeeftOpvullijstRechts = false;
DATA.Kenmerken.DwarsverdelingAantal = "0";
DATA.Kenmerken.HeeftZijstabilisering = false;
DATA.Kenmerken.IsBinnenBreedte = true;
DATA.Kenmerken.Rugwandmateriaal = "";
DATA.Kenmerken.IsBinnenLade = false;
DATA.Kenmerken.LadeKleur = "";
DATA.Kenmerken.BodemKleur = "";
DATA.Kenmerken.LadeDiepte = "";
DATA.Kenmerken.Corpusbreedte = 0;
DATA.Kenmerken.HeeftMat = false;
DATA.Kenmerken.MatMateriaal = "";
DATA.Kenmerken.ProductieWijze = "V";
index i of UI.Kenmerken.NietMeeleveren
UI.Kenmerken.NietMeeleveren(i).IsSelected = false;
end index;
if(DATA.Kenmerken.SpaceStep.Hoogte >= 150 and DATA.Kenmerken.SpaceStep.Hoogte < 166) then
DATA.Kenmerken.LadeHoogte = "N";
end if;
if(DATA.Kenmerken.SpaceStep.Hoogte >= 166 and DATA.Kenmerken.SpaceStep.Hoogte < 204) then
DATA.Kenmerken.LadeHoogte = "M";
end if;
if(DATA.Kenmerken.SpaceStep.Hoogte >= 204 and DATA.Kenmerken.SpaceStep.Hoogte <= 250) then
DATA.Kenmerken.LadeHoogte = "K";
end if;
Values bij SpaceStep zonder lade
;data.kenmerken.geleidertechnologie@value;data.kenmerken.draagkracht@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladekleur@value;data.kenmerken.bodemkleur@value;data.kenmerken.ladediepte@value;data.kenmerken.corpusbreedte@value;data.kenmerken.heeftmat@value;data.kenmerken.matmateriaal@value;data.kenmerken.productiewijze@value;data.kenmerken.ladehoogte@value;
true
if (DATA.Kenmerken.Toepassing <> "SST") then
DATA.Kenmerken.SpaceStep.Breedte = 0;
DATA.Kenmerken.SpaceStep.Hoogte = 0;
DATA.Kenmerken.SpaceStep.Diepte = "";
DATA.Kenmerken.SpaceStep.Kleur = "";
DATA.Kenmerken.SpaceStep.Uitvoering = "";
DATA.Kenmerken.SpaceStep.Bewegingstechnologie = "";
DATA.Kenmerken.SpaceStep.StekkerServodrive = false;
DATA.Kenmerken.SpaceStep.StekkerType = "";
else
if (DATA.Kenmerken.SpaceStep.Bewegingstechnologie <> "Servodrive") then
DATA.Kenmerken.SpaceStep.StekkerServodrive = false;
end if;
end if;
Values verborgen SpaceStep properties wissen
;data.kenmerken.spacestep.breedte@value;data.kenmerken.spacestep.hoogte@value;data.kenmerken.spacestep.diepte@value;data.kenmerken.spacestep.kleur@value;data.kenmerken.spacestep.uitvoering@value;data.kenmerken.spacestep.bewegingstechnologie@value;data.kenmerken.spacestep.stekkerservodrive@value;data.kenmerken.spacestep.stekkertype@value;
true
UI.Kenmerken.CorpusWanddikte@mandatory = not(UI.Kenmerken.IsBinnenbreedte);
UI.Kenmerken.CorpusWanddikte@visible = not(UI.Kenmerken.IsBinnenbreedte);
CorpusWanddikte
;ui.kenmerken.corpuswanddikte@mandatory;ui.kenmerken.corpuswanddikte@visible;
true
local boolean _HeeftMatAntislipFiberKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AF"));
UI.Kenmerken.MatAntislipFiberKleur@mandatory = _HeeftMatAntislipFiberKleur;
UI.Kenmerken.MatAntislipFiberKleur@visible = _HeeftMatAntislipFiberKleur;
MatAntislipFiberKleur
;ui.kenmerken.matantislipfiberkleur@mandatory;ui.kenmerken.matantislipfiberkleur@visible;
true
local boolean _HeeftMatAntislipFlockKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AZ"));
UI.Kenmerken.MatAntislipFlockKleur@mandatory = _HeeftMatAntislipFlockKleur;
UI.Kenmerken.MatAntislipFlockKleur@visible = _HeeftMatAntislipFlockKleur;
MatAntislipFlockKleur
;ui.kenmerken.matantislipflockkleur@mandatory;ui.kenmerken.matantislipflockkleur@visible;
true
local boolean _HeeftMatAntislipKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AS"));
UI.Kenmerken.MatAntislipKleur@mandatory = _HeeftMatAntislipKleur;
UI.Kenmerken.MatAntislipKleur@visible = _HeeftMatAntislipKleur;
MatAntislipKleur
;ui.kenmerken.matantislipkleur@mandatory;ui.kenmerken.matantislipkleur@visible;
true
UI.Kenmerken.MatMateriaal@mandatory = UI.Kenmerken.HeeftMat;
UI.Kenmerken.MatMateriaal@visible = UI.Kenmerken.HeeftMat;
MatMateriaal
;ui.kenmerken.matmateriaal@mandatory;ui.kenmerken.matmateriaal@visible;
true
local boolean _HeeftMatVinylFiberglassKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "CF"));
UI.Kenmerken.MatVinylFiberglassKleur@mandatory = _HeeftMatVinylFiberglassKleur;
UI.Kenmerken.MatVinylFiberglassKleur@visible = _HeeftMatVinylFiberglassKleur;
MatVinylFiberglassKleur
;ui.kenmerken.matvinylfiberglasskleur@mandatory;ui.kenmerken.matvinylfiberglasskleur@visible;
true
local boolean _HeeftOpvullijst = (UI.Kenmerken.HeeftOpvullijstLinks or UI.Kenmerken.HeeftOpvullijstRechts);
UI.Kenmerken.OpvullijstKleur@mandatory = _HeeftOpvullijst;
UI.Kenmerken.OpvullijstKleur@visible = _HeeftOpvullijst;
UI.Kenmerken.OpvullijstDikte@visible = _HeeftOpvullijst;
index i of UI.Kenmerken.NietMeeleveren
if (UI.Kenmerken.NietMeeleveren(i).Id == "Opvullijst") then
UI.Kenmerken.NietMeeleveren(i)@visible = (_HeeftOpvullijst and Not(Config.Settings.NietMeeleverenVerbergen));
end if;
end index;
Opvullijst
;ui.kenmerken.opvullijstkleur@mandatory;ui.kenmerken.opvullijstkleur@visible;ui.kenmerken.opvullijstdikte@visible;
true
local boolean _HeeftVoorwandTypeC = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "C"));
UI.Kenmerken.VoorwandTypeVanCBinnenlade@mandatory = _HeeftVoorwandTypeC;
UI.Kenmerken.VoorwandTypeVanCBinnenlade@visible = _HeeftVoorwandTypeC;
VoorwandTypeVanCBinnenlade
;ui.kenmerken.voorwandtypevancbinnenlade@mandatory;ui.kenmerken.voorwandtypevancbinnenlade@visible;
true
local boolean _HeeftVoorwandTypeM = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "M"));
UI.Kenmerken.VoorwandTypeVanMBinnenlade@mandatory = _HeeftVoorwandTypeM;
UI.Kenmerken.VoorwandTypeVanMBinnenlade@visible = _HeeftVoorwandTypeM;
VoorwandTypeVanMBinnenlade
;ui.kenmerken.voorwandtypevanmbinnenlade@mandatory;ui.kenmerken.voorwandtypevanmbinnenlade@visible;
true
local boolean _HeeftVoorwandTypeK = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "K"));
UI.Kenmerken.VoorwandTypeVanKBinnenlade@visible = _HeeftVoorwandTypeK;
UI.Kenmerken.VoorwandTypeVanKBinnenlade@mandatory = _HeeftVoorwandTypeK;
VoorwandTypeVanKBinnenlade
;ui.kenmerken.voorwandtypevankbinnenlade@visible;ui.kenmerken.voorwandtypevankbinnenlade@mandatory;
true
local boolean _HeeftVoorwandTypeK = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "K"));
local boolean _HeeftVoorwandTypeM = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "M"));
local boolean _HeeftMeenemerSet = (_HeeftVoorwandTypeK or _HeeftVoorwandTypeM);
UI.Kenmerken.MeenemerSet@visible = _HeeftMeenemerSet;
UI.Kenmerken.MeenemerSet@mandatory = _HeeftMeenemerSet;
MeenemerSet
;ui.kenmerken.meenemerset@visible;ui.kenmerken.meenemerset@mandatory;
true
// UI.Kenmerken.FrontBevestiging@visible = Not(Config.Settings.FrontBevestigingVerbergen);
UI.Kenmerken.VerpakkingType@visible = Not(Config.Settings.VerpakkingTypeVerbergen);
index i of UI.Kenmerken.NietMeeleveren
UI.Kenmerken.NietMeeleveren(i)@visible = (UI.Kenmerken.NietMeeleveren(i)@visible and Not(Config.Settings.NietMeeleverenVerbergen));
end index;
Visible properties
;ui.kenmerken.verpakkingtype@visible;
false //STATE.Saved //true
//local string _Language = GetArg("language");
//local string _Model = GetModel();
UI.Url.OverzichtParameters@length = 2;
UI.Url.OverzichtParameters[1].Key = GetLocalizedLabel(UI.Kenmerken.LadeKleur.Value);
UI.Url.OverzichtParameters[1].Value = GetLocalizedLabel("bla");
UI.Url.OverzichtParameters[2].Key = GetLocalizedLabel(UI.Kenmerken.BodemKleur.Value);
UI.Url.OverzichtParameters[2].Value = GetLocalizedLabel("bla");
local string _BaseUrl = "http://ax-e-con-dev/econsql/VHTest/index.html";
local string _QueryString = "";
if (UI.Url.OverzichtParameters@length > 0) then
_QueryString = "?";
end if;
index i of UI.Url.OverzichtParameters
_QueryString = _QueryString + UI.Url.OverzichtParameters(i).Key + "=" + UI.Url.OverzichtParameters(i).Value;
if (i < UI.Url.OverzichtParameters@length) then
_QueryString = _QueryString + "&";
end if;
end index;
UI.Url.Overzicht = _BaseUrl + _QueryString;
Output = UI.Url.Overzicht;
//Flag = false;
Overzicht updaten
;ui.url.overzichtparameters[1].key@value;ui.url.overzichtparameters[1].value@value;ui.url.overzichtparameters[2].key@value;ui.url.overzichtparameters[2].value@value;ui.url.overzicht@value;output@value;
(DATA.BerekendeWaarden.AfbeeldingCode <> "")
//local string _Url = "./images/Vanhoecke/tbx/AfbeeldingCode/tbx_AB_ER.jpg";
local string _Url = "./images/Vanhoecke/lbx/Test/" + DATA.BerekendeWaarden.AfbeeldingCode + ".svg";
//local string _Url = "http://res.vanhoecke.be/Images/GENERIEK/LEGRA_BOX/" + DATA.BerekendeWaarden.AfbeeldingCode + ".svg";
UI.Image = _Url;
//@style = "imgsrc:" + _Url + ";";
Image updaten
;ui.image@value;
STATE.ValidationNeeded or (UI.Lijn.Aantal <> 0)
local double _Minimum = RANGE.Aantal.Minimum;
local double _Maximum = RANGE.Aantal.Maximum;
UI.Lijn.Aantal@inputvalidation = "min:" + _Minimum + ";multiplication:1;maxdecimals:0;";
Validation Aantal
;ui.lijn.aantal@rangeset;
(UI.Kenmerken.CorpusBreedte@visible or (UI.Kenmerken.SpaceStep.Uitvoering == "Volledig" and UI.Kenmerken.Toepassing == "SST")) and (STATE.ValidationNeeded or (UI.Kenmerken.CorpusBreedte <> 0))
local string _Minimum = Replace(cstr(RANGE.CorpusBreedte.Minimum);",";".");
local string _Maximum = Replace(cstr(RANGE.CorpusBreedte.Maximum);",";".");
UI.Kenmerken.CorpusBreedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;";
Validation CorpusBreedte on
;ui.kenmerken.corpusbreedte@rangeset;
UI.Kenmerken.Toepassing == "SST" and UI.Kenmerken.SpaceStep.Uitvoering <> "Volledig"
UI.Kenmerken.CorpusBreedte@inputvalidation = "";
Validation CorpusBreedte off
;ui.kenmerken.corpusbreedte@rangeset;
UI.Kenmerken.CorpusWanddikte@visible and (STATE.ValidationNeeded or (UI.Kenmerken.CorpusWanddikte <> 0))
local string _Minimum = "1";
local string _Maximum = "100";
local string _multiplication = Replace("0,5";",";".");
if (BEHAVIOR.IsEconAx) then
_multiplication = Replace("0,1";",";".");
end if;
UI.Kenmerken.CorpusWanddikte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:" + _multiplication + ";maxdecimals:1;";
Validation CorpusWanddikte on
;ui.kenmerken.corpuswanddikte@rangeset;
not(UI.Kenmerken.CorpusWanddikte@visible)
UI.Kenmerken.CorpusWanddikte@inputvalidation = "";
Validation CorpusWanddikte off
;ui.kenmerken.corpuswanddikte@rangeset;
false //(UI.Kenmerken.InterneBreedte <> 0)
local double _Minimum = RANGE.InterneBreedte.Minimum;
local double _Maximum = RANGE.InterneBreedte.Maximum;
UI.Kenmerken.InterneBreedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.5;maxdecimals:1;";
Validation InterneBreedte
;ui.kenmerken.internebreedte@rangeset;
(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.X@visible) and (STATE.ValidationNeeded or (UI.Kenmerken.UitsparingData.X.BreedteRugdeel <> 0))
local double _Minimum = RANGE.UitsparingDataBreedteX.Minimum;
local double _Maximum = RANGE.UitsparingDataBreedteX.Maximum;
UI.Kenmerken.UitsparingData.X.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;";
Validation UitsparingData BreedteX on
;ui.kenmerken.uitsparingdata.x.breedterugdeel@rangeset;
not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.X@visible)
UI.Kenmerken.UitsparingData.X.BreedteRugdeel@inputvalidation = "";
Validation UitsparingData BreedteX off
;ui.kenmerken.uitsparingdata.x.breedterugdeel@rangeset;
(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.M@visible) and (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") and (STATE.ValidationNeeded or (UI.Kenmerken.UitsparingData.M.BreedteRugdeel <> 0))
local double _Minimum = RANGE.UitsparingDataBreedteM.Minimum;
local double _Maximum = RANGE.UitsparingDataBreedteM.Maximum;
UI.Kenmerken.UitsparingData.M.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;";
Validation UitsparingData BreedteM on
;ui.kenmerken.uitsparingdata.m.breedterugdeel@rangeset;
not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.M@visible)
UI.Kenmerken.UitsparingData.M.BreedteRugdeel@inputvalidation = "";
Validation UitsparingData BreedteM off
;ui.kenmerken.uitsparingdata.m.breedterugdeel@rangeset;
(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Y@visible) and (STATE.ValidationNeeded or (UI.Kenmerken.UitsparingData.Y.BreedteRugdeel <> 0))
local double _Minimum = RANGE.UitsparingDataBreedteY.Minimum;
local double _Maximum = RANGE.UitsparingDataBreedteY.Maximum;
UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;";
Validation UitsparingData BreedteY on
;ui.kenmerken.uitsparingdata.y.breedterugdeel@rangeset;
not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.Y@visible)
UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@inputvalidation = "";
Validation UitsparingData BreedteY off
;ui.kenmerken.uitsparingdata.y.breedterugdeel@rangeset;
(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z1@visible) and (STATE.ValidationNeeded or (Config.InputMode == "CreateConfig"))
local double _Minimum = RANGE.UitsparingDataBreedteZ1.Minimum;
local double _Maximum = RANGE.UitsparingDataBreedteZ1.Maximum;
UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;";
Validation UitsparingData BreedteZ1 on
;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@rangeset;
not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.Z1@visible)
UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@inputvalidation = "";
Validation UitsparingData BreedteZ1 off
;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@rangeset;
(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z2@visible) and (STATE.ValidationNeeded or (Config.InputMode == "CreateConfig"))
local double _Minimum = RANGE.UitsparingDataBreedteZ2.Minimum;
local double _Maximum = RANGE.UitsparingDataBreedteZ2.Maximum;
UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;";
Validation UitsparingData BreedteZ2 on
;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@rangeset;
not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.Z2@visible)
UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@inputvalidation = "";
Validation UitsparingData BreedteZ2 off
;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@rangeset;
true
local double _VerwachteBreedte = UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte;
local string _InputValidation = "";
// opgelet: kommagetallen worden niet aanvaard bij min/max, puntgetallen wel
// m.a.w. 200,5 wordt aanzien als 2005 ///// 200.5 wordt aanzien als 200.5 of 200,5
if (UI.Kenmerken.UitsparingData@visible) then
local string _strVerwachteBreedte = Replace(CStr(_VerwachteBreedte); ","; "."); // TO DO: mooier via Format(value; fmt), lukt me voorlopig niet :-/
_InputValidation = "min:" + _strVerwachteBreedte + ";max:" + _strVerwachteBreedte + ";multiplication:0.1;maxdecimals:1;";
end if;
UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte@inputvalidation = _InputValidation;
Validation UitsparingData TotaleBreedte
;ui.kenmerken.uitsparingdata.uitsparingdata_totalebreedte@rangeset;
STATE.ValidationNeeded or UI.Kenmerken.SpaceStep.Sokkelbreedte <> 0
local string _Minimum = Replace(cstr(RANGE.SpaceStepBreedte.Minimum);",";".");
local string _Maximum = Replace(cstr(RANGE.SpaceStepBreedte.Maximum);",";".");
if (DATA.Kenmerken.Toepassing == "SST") then
UI.Kenmerken.SpaceStep.Sokkelbreedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;";
else
UI.Kenmerken.SpaceStep.Sokkelbreedte@inputvalidation = "";
end if;
Validation SpaceStepBreedte
;ui.kenmerken.spacestep.sokkelbreedte@rangeset;
STATE.ValidationNeeded or UI.Kenmerken.SpaceStep.Sokkelhoogte <> 0
local string _Minimum = Replace(cstr(RANGE.SpaceStepHoogte.Minimum);",";".");
local string _Maximum = Replace(cstr(RANGE.SpaceStepHoogte.Maximum);",";".");
if (DATA.Kenmerken.Toepassing == "SST") then
UI.Kenmerken.SpaceStep.Sokkelhoogte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;";
else
UI.Kenmerken.SpaceStep.Sokkelhoogte@inputvalidation = "";
end if;
Validation SpaceStepHoogte
;ui.kenmerken.spacestep.sokkelhoogte@rangeset;
BEHAVIOR.IsEconAX and (DATA.Kenmerken.Toepassing == "L" or DATA.Kenmerken.Toepassing == "SST")
and DATA.Kenmerken.LadeHoogte <> "" and DATA.Kenmerken.LadeKleur <> "" and DATA.Kenmerken.CorpusBreedte <> 0 and DATA.Kenmerken.RugwandMateriaal == "Staal"
local string _XmlRequest = "";
local string _eConTaal = CONFIG.Language;
local string _VhTaalCode = _eConTaal; // Nog te converteren naar vhTaalCode
_XmlRequest = _XmlRequest + "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:v4='http://vhisie.vanhoecke.be/V4'>";
_XmlRequest = _XmlRequest + "<soapenv:Header/>";
_XmlRequest = _XmlRequest + "<soapenv:Body>";
_XmlRequest = _XmlRequest + "<v4:BestaatStalenRug>";
_XmlRequest = _XmlRequest + "<v4:Request>";
_XmlRequest = _XmlRequest + "<v4:Header>";
_XmlRequest = _XmlRequest + "<v4:KlantID>" + Config.Settings.KlantId + "</v4:KlantID>"; // bv. 12486
_XmlRequest = _XmlRequest + "<v4:PersonalityID>" + Config.Settings.PersonalityId + "</v4:PersonalityID>";
_XmlRequest = _XmlRequest + "<v4:Taal>" + _VhTaalCode + "</v4:Taal>";
_XmlRequest = _XmlRequest + "</v4:Header>";
_XmlRequest = _XmlRequest + "<v4:LadeHoogte>" + DATA.Kenmerken.LadeHoogte + "</v4:LadeHoogte>";
_XmlRequest = _XmlRequest + "<v4:LadeKleur>" + DATA.Kenmerken.LadeKleur + "</v4:LadeKleur>";
_XmlRequest = _XmlRequest + "<v4:LadeVariant>" + "LBX" + "</v4:LadeVariant>";
_XmlRequest = _XmlRequest + "<v4:InterneBreedte>" + DATA.BerekendeWaarden.InterneBreedte + "</v4:InterneBreedte>";
if (UI.Kenmerken.HeeftAfwijkendeRughoogte) then
_XmlRequest = _XmlRequest + "<v4:RugHoogte>" + DATA.Kenmerken.RugHoogte + "</v4:RugHoogte>";
else
_XmlRequest = _XmlRequest + "<v4:RugHoogte>" + DATA.Kenmerken.LadeHoogte + "</v4:RugHoogte>";
end if;
_XmlRequest = _XmlRequest + "</v4:Request>";
_XmlRequest = _XmlRequest + "</v4:BestaatStalenRug>";
_XmlRequest = _XmlRequest + "</soapenv:Body>";
_XmlRequest = _XmlRequest + "</soapenv:Envelope>";
local string _Service = GetSetting("data.vanhoecke.connectionstring.cache.bestaatstalenrug");
local boolean _Result = LoadFromXMLService("CONFIG.Settings.StalenRugBeschikbaar.BestaatStalenRug"; _Service; false; _XmlRequest);
if (_Result) then
STATE.BestaatStalenRugLoaded = "WebServiceIsGeladen";
else
STATE.BestaatStalenRugLoaded = "WebServiceIsNietGeladen";
end if;
Validation Stalen Rug
;state.bestaatstalenrugloaded@value;
(STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit or (CONFIG.InputMode == "CreateConfig"))
DATA.Lijn.InvalidFieldSet@options = InvalidFieldSet();
DATA.Lijn.OngeldigeWaarden@length = len(DATA.Lijn.InvalidFieldSet@options);
index i of DATA.Lijn.OngeldigeWaarden;
DATA.Lijn.OngeldigeWaarden(i) = DATA.Lijn.InvalidFieldSet@option(i)@label;
end index;
DATA.Lijn.IsGeldig = (InvalidFields() == 0);
IsGeldig
;data.lijn.invalidfieldset@options;data.lijn.isgeldig@value;
STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig"))
local string _LadeCode = DATA.Kenmerken.LadeHoogte;
if (DATA.Kenmerken.IsBinnenlade) then
_LadeCode = _LadeCode + "/Z";
end if;
DATA.BerekendeWaarden.LadeCode = _LadeCode;
Bereken LadeCode
;data.berekendewaarden.ladecode@value;
true
DATA.Lijn.GroeperingCode = DATA.Kenmerken.Variant + "_" + DATA.Kenmerken.LadeKleur + ";" + DATA.Kenmerken.BodemKleur;
Bepaal GroeperingCode
;data.lijn.groeperingcode@value;
STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.Backend == "axapta") or STATE.KlantVoorkeurenSaved
if not(UI.Kenmerken.CorpusWanddikte@visible) then
DATA.Kenmerken.CorpusWanddikte = 0;
UI.Kenmerken.CorpusWanddikte = 0;
end if;
if (UI.Kenmerken.IsBinnenlade) and (BEHAVIOR.IsEconWeb) then // and not (Config.Settings.FrontBevestigingVerbergen)
DATA.Kenmerken.FrontBevestiging = "";
UI.Kenmerken.FrontBevestiging = "";
end if;
if not(UI.Kenmerken.OpvullijstKleur@visible) then
DATA.Kenmerken.OpvullijstKleur = "";
UI.Kenmerken.OpvullijstKleur = "";
end if;
if (not(UI.Kenmerken.HeeftOpvullijstLinks) and not(UI.Kenmerken.HeeftOpvullijstRechts)) then
DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = false;
end if;
if not(UI.Kenmerken.VoorwandTypeVanCBinnenlade@visible) then
DATA.Kenmerken.VoorwandTypeVanCBinnenlade = "";
UI.Kenmerken.VoorwandTypeVanCBinnenlade = "";
end if;
if not(UI.Kenmerken.VoorwandTypeVanMBinnenlade@visible) then
DATA.Kenmerken.VoorwandTypeVanMBinnenlade = "";
UI.Kenmerken.VoorwandTypeVanMBinnenlade = "";
end if;
if not(UI.Kenmerken.VoorwandTypeVanKBinnenlade@visible) then
DATA.Kenmerken.VoorwandTypeVanKBinnenlade = "";
UI.Kenmerken.VoorwandTypeVanKBinnenlade = "";
end if;
if not(DATA.Kenmerken.Toepassing in {"SY";"SP"}) then
DATA.Kenmerken.UitsparingData.UitsparingAantal = "";
DATA.Kenmerken.UitsparingData.X.Breedte = 0;
DATA.Kenmerken.UitsparingData.X.Hoogte = "";
DATA.Kenmerken.UitsparingData.X.Materiaal = "";
DATA.Kenmerken.UitsparingData.Y.Breedte = 0;
DATA.Kenmerken.UitsparingData.Y.Hoogte = "";
DATA.Kenmerken.UitsparingData.Y.Materiaal = "";
DATA.Kenmerken.UitsparingData.Z1.Breedte = 0;
DATA.Kenmerken.UitsparingData.Z1.Diepte = 0;
DATA.Kenmerken.UitsparingData.Z1.Hoogte = "";
DATA.Kenmerken.UitsparingData.Z1.Materiaal = "";
DATA.Kenmerken.UitsparingData.Z1.Vorm = "";
UI.Kenmerken.UitsparingData.UitsparingAantal = "";
UI.Kenmerken.UitsparingData.X.BreedteRugdeel = 0;
UI.Kenmerken.UitsparingData.X.Hoogte = "";
UI.Kenmerken.UitsparingData.X.Materiaal = "";
UI.Kenmerken.UitsparingData.Y.BreedteRugdeel = 0;
UI.Kenmerken.UitsparingData.Y.Hoogte = "";
UI.Kenmerken.UitsparingData.Y.Materiaal = "";
UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 0;
UI.Kenmerken.UitsparingData.Z1.Diepte = 0;
UI.Kenmerken.UitsparingData.Z1.Hoogte = "";
UI.Kenmerken.UitsparingData.Z1.Materiaal = "";
UI.Kenmerken.UitsparingData.Z1.Vorm = "";
end if;
if not(UI.Kenmerken.UitsparingData.M@visible) then
DATA.Kenmerken.UitsparingData.M.Breedte = 0;
DATA.Kenmerken.UitsparingData.M.Hoogte = "";
DATA.Kenmerken.UitsparingData.M.Materiaal = "";
UI.Kenmerken.UitsparingData.M.BreedteRugdeel = 0;
UI.Kenmerken.UitsparingData.M.Hoogte = "";
UI.Kenmerken.UitsparingData.M.Materiaal = "";
end if;
local string _TriggerDummy = UI.Kenmerken.UitsparingData.Z2.Hoogte;
if not(UI.Kenmerken.UitsparingData.Z2@visible) then
DATA.Kenmerken.UitsparingData.Z2.Breedte = 0;
DATA.Kenmerken.UitsparingData.Z2.Diepte = 0;
DATA.Kenmerken.UitsparingData.Z2.Hoogte = "";
DATA.Kenmerken.UitsparingData.Z2.Materiaal = "";
DATA.Kenmerken.UitsparingData.Z2.Vorm = "";
UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 0;
UI.Kenmerken.UitsparingData.Z2.Diepte = 0;
UI.Kenmerken.UitsparingData.Z2.Hoogte = "";
UI.Kenmerken.UitsparingData.Z2.Materiaal = "";
UI.Kenmerken.UitsparingData.Z2.Vorm = "";
end if;
if not(UI.Kenmerken.HeeftMat) then
DATA.Kenmerken.MatMateriaal = "";
DATA.Kenmerken.MatKleur = "";
UI.Kenmerken.MatMateriaal = "";
UI.Kenmerken.MatAntislipFiberKleur = "";
UI.Kenmerken.MatAntislipFlockKleur = "";
UI.Kenmerken.MatAntislipKleur = "";
UI.Kenmerken.MatVinylFiberglassKleur = "";
end if;
Verborgen properties wissen
;data.kenmerken.corpuswanddikte@value;ui.kenmerken.corpuswanddikte@value;data.kenmerken.frontbevestiging@value;ui.kenmerken.frontbevestiging@value;data.kenmerken.opvullijstkleur@value;ui.kenmerken.opvullijstkleur@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.voorwandtypevancbinnenlade@value;ui.kenmerken.voorwandtypevancbinnenlade@value;data.kenmerken.voorwandtypevanmbinnenlade@value;ui.kenmerken.voorwandtypevanmbinnenlade@value;data.kenmerken.voorwandtypevankbinnenlade@value;ui.kenmerken.voorwandtypevankbinnenlade@value;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.kenmerken.uitsparingdata.x.breedte@value;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.y.breedte@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.breedte@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;ui.kenmerken.uitsparingdata.uitsparingaantal@value;ui.kenmerken.uitsparingdata.x.breedterugdeel@value;ui.kenmerken.uitsparingdata.x.hoogte@value;ui.kenmerken.uitsparingdata.x.materiaal@value;ui.kenmerken.uitsparingdata.y.breedterugdeel@value;ui.kenmerken.uitsparingdata.y.hoogte@value;ui.kenmerken.uitsparingdata.y.materiaal@value;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@value;ui.kenmerken.uitsparingdata.z1.diepte@value;ui.kenmerken.uitsparingdata.z1.hoogte@value;ui.kenmerken.uitsparingdata.z1.materiaal@value;ui.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;ui.kenmerken.uitsparingdata.m.breedterugdeel@value;ui.kenmerken.uitsparingdata.m.hoogte@value;ui.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.z2.breedte@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@value;ui.kenmerken.uitsparingdata.z2.diepte@value;ui.kenmerken.uitsparingdata.z2.hoogte@value;ui.kenmerken.uitsparingdata.z2.materiaal@value;ui.kenmerken.uitsparingdata.z2.vorm@value;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value;ui.kenmerken.matmateriaal@value;ui.kenmerken.matantislipfiberkleur@value;ui.kenmerken.matantislipflockkleur@value;ui.kenmerken.matantislipkleur@value;ui.kenmerken.matvinylfiberglasskleur@value;
STATE.SavedAndExit or STATE.SavedAndContinue or (Config.Backend == "axapta")
if (UI.Kenmerken.ProductieWijze == "") then
DATA.Kenmerken.ProductieWijze = "V";
end if;
if (DATA.Kenmerken.Toepassing == "SP") then
local double _Breedte = 158;
DATA.Kenmerken.UitsparingData.UitsparingAantal = "Enkel";
DATA.Kenmerken.UitsparingData.X.Breedte = UI.Kenmerken.UitsparingDataSpoelbak.X;
DATA.Kenmerken.UitsparingData.X.Hoogte = "M";
DATA.Kenmerken.UitsparingData.X.Materiaal = "Staal";
DATA.Kenmerken.UitsparingData.Y.Breedte = UI.Kenmerken.UitsparingDataSpoelbak.Y;
DATA.Kenmerken.UitsparingData.Y.Hoogte = "M";
DATA.Kenmerken.UitsparingData.Y.Materiaal = "Staal";
DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.Kenmerken.UitsparingDataSpoelbak.Z1;
DATA.Kenmerken.UitsparingData.Z1.Diepte = 0;
DATA.Kenmerken.UitsparingData.Z1.Hoogte = "";
DATA.Kenmerken.UitsparingData.Z1.Materiaal = "";
DATA.Kenmerken.UitsparingData.Z1.Vorm = "Recht";
end if;
Verborgen properties defaulten
;data.kenmerken.productiewijze@value;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.kenmerken.uitsparingdata.x.breedte@value;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.y.breedte@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.breedte@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;
not(STATE.WinkelkarInfoCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig"))
STATE.WinkelkarInfoCalculated = true;
local string _Model = GetModel();
local string _FrontBevestigingOptionLabel = DATA.Kenmerken.FrontBevestiging@id + "_" + DATA.Kenmerken.FrontBevestiging@option(DATA.Kenmerken.FrontBevestiging)@id;
local string _LadeKleurOptionLabel = DATA.Kenmerken.LadeKleur@id + "_" + DATA.Kenmerken.LadeKleur@option(DATA.Kenmerken.LadeKleur)@id;
local string _BodemKleurOptionLabel = DATA.Kenmerken.BodemKleur@id + "_" + DATA.Kenmerken.BodemKleur@option(DATA.Kenmerken.BodemKleur)@id;
local string _SokkelKleurOptionLabel = "spacestepkleur" + "_" + DATA.Kenmerken.SpaceStep.Kleur@option(DATA.Kenmerken.SpaceStep.Kleur)@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 _SokkeKleurInfo = GetLabel(DATA.Kenmerken.SpaceStep.Kleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_SokkelKleurOptionLabel; _Model; ""; _TaalCode);
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;
if (DATA.Kenmerken.Toepassing == "SST") then
_Groepering = "SPACESTEP - LEGRABOX - ";
else
_Groepering = "LEGRABOX - ";
end if;
if (DATA.Kenmerken.Toepassing == "SST") then
if (_TaalCode == "de") then
_Groepering = _Groepering + _SokkeKleurInfo + ", " + _LadeKleurInfo + ", " + _BodemKleurInfo;
else
_Groepering = _Groepering + LCase(_SokkeKleurInfo) + ", " + LCase(_LadeKleurInfo) + ", " + LCase(_BodemKleurInfo);
end if;
else
if (_TaalCode == "de") then
_Groepering = _Groepering + _LadeKleurInfo + ", " + _BodemKleurInfo;
else
_Groepering = _Groepering + LCase(_LadeKleurInfo) + ", " + LCase(_BodemKleurInfo);
end if;
end if;
if not(DATA.Kenmerken.Toepassing == "SST") then
DATA.Lijn.WinkelkarInfo(i).Aantal = CStr(DATA.Lijn.Aantal);
DATA.Lijn.WinkelkarInfo(i).AfbeeldingCode = DATA.BerekendeWaarden.AfbeeldingCode;
DATA.Lijn.WinkelkarInfo(i).CorpusBreedte = CStr(DATA.Kenmerken.CorpusBreedte) + " mm";
DATA.Lijn.WinkelkarInfo(i).CorpusWanddikte = _CorpusWanddikte;
DATA.Lijn.WinkelkarInfo(i).Draagkracht = CStr(DATA.Kenmerken.Draagkracht) + " kg";
DATA.Lijn.WinkelkarInfo(i).EenheidPrijs = "";
DATA.Lijn.WinkelkarInfo(i).FrontBevestiging = GetLabel(_FrontBevestigingOptionLabel; _Model; ""; _TaalCode);
DATA.Lijn.WinkelkarInfo(i).Groepering = _Groepering;
DATA.Lijn.WinkelkarInfo(i).LadeCode = DATA.BerekendeWaarden.LadeCode;
DATA.Lijn.WinkelkarInfo(i).LadeDiepte = CStr(DATA.Kenmerken.LadeDiepte) + " mm";
DATA.Lijn.WinkelkarInfo(i).TaalCode = _TaalCode;
DATA.Lijn.WinkelkarInfo(i).TotaalPrijs = "";
else
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 if;
end for;
WinkelkarInfo
;state.winkelkarinfocalculated@value;
not(STATE.WinkelkarInfoDiverseCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig"))
STATE.WinkelkarInfoDiverseCalculated = true;
local string _Model = GetModel();
local string _ToepassingOptionLabel = DATA.Kenmerken.Toepassing@id + "_" + DATA.Kenmerken.Toepassing@option(DATA.Kenmerken.Toepassing)@id;
local string _GeleiderTechnologieOptionLabel = DATA.Kenmerken.GeleiderTechnologie@id + "_" + DATA.Kenmerken.GeleiderTechnologie@option(DATA.Kenmerken.GeleiderTechnologie)@id;
local string _OpvullijstKleurOptionLabel = DATA.Kenmerken.OpvullijstKleur@id + "_" + DATA.Kenmerken.OpvullijstKleur@option(DATA.Kenmerken.OpvullijstKleur)@id;
local string _RugwandMateriaalOptionLabel = DATA.Kenmerken.RugwandMateriaal@id + "_" + DATA.Kenmerken.RugwandMateriaal@option(DATA.Kenmerken.RugwandMateriaal)@id;
local string _VerpakkingTypeOptionLabel = DATA.Kenmerken.VerpakkingType@id + "_" + DATA.Kenmerken.VerpakkingType@option(DATA.Kenmerken.VerpakkingType)@id;
local string _VoorwandTypeVanMBinnenladeOptionLabel = DATA.Kenmerken.VoorwandTypeVanMBinnenlade@id + "_" + DATA.Kenmerken.VoorwandTypeVanMBinnenlade@option(DATA.Kenmerken.VoorwandTypeVanMBinnenlade)@id;
local string _VoorwandTypeVanCBinnenladeOptionLabel = DATA.Kenmerken.VoorwandTypeVanCBinnenlade@id + "_" + DATA.Kenmerken.VoorwandTypeVanCBinnenlade@option(DATA.Kenmerken.VoorwandTypeVanCBinnenlade)@id;
local string _VoorwandTypeVanKBinnenladeOptionLabel = DATA.Kenmerken.VoorwandTypeVanKBinnenlade@id + "_" + DATA.Kenmerken.VoorwandTypeVanKBinnenlade@option(DATA.Kenmerken.VoorwandTypeVanKBinnenlade)@id;
local string _ZijwandTypeOptionLabel = DATA.Kenmerken.ZijwandType@id + "_" + DATA.Kenmerken.ZijwandType@option(DATA.Kenmerken.ZijwandType)@id;
local string _RugHoogteOptionLabel = DATA.Kenmerken.RugHoogte@id + "_" + DATA.Kenmerken.RugHoogte@option(DATA.Kenmerken.RugHoogte)@id;
local string _ProductieWijzeOptionLabel = DATA.Kenmerken.ProductieWijze@id + "_" + DATA.Kenmerken.ProductieWijze@option(DATA.Kenmerken.ProductieWijze)@id;
local string _SpaceStepBewegingstechnologieLabel = DATA.Kenmerken.SpaceStep.Bewegingstechnologie@id + "_" + DATA.Kenmerken.SpaceStep.Bewegingstechnologie@option(DATA.Kenmerken.SpaceStep.Bewegingstechnologie)@id;
local double MINIMUM_BREEDTE_GEWONE_LADE = 237; // Kleiner dan deze afmeting is "Smalle lade"
local boolean _IsSmalleLade = (DATA.BerekendeWaarden.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 _InfoSpaceStep = "";
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 _InfoSpaceStepBewegingstechnologie = "";
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.HeeftMat) then
local string _MatMateriaalOptionLabel = "MatMateriaal_" + DATA.Kenmerken.MatMateriaal;
local string _MatKleurOptionLabel = switch DATA.Kenmerken.MatMateriaal
case "CF": "MatVinylFiberglassKleur_" + UI.Kenmerken.MatVinylFiberglassKleur.Value
case "AS": "MatAntislipKleur_" + UI.Kenmerken.MatAntislipKleur.Value
case "AF": "MatAntislipFiberKleur_" + UI.Kenmerken.MatAntislipFiberKleur.Value
case "AZ": "MatAntislipFlockKleur_" + UI.Kenmerken.MatAntislipFlockKleur.Value
else ""
end switch;
local string _MatMateriaal = GetLabel(_MatMateriaalOptionLabel; _Model; ""; _TaalCode);
local string _MatKleur = GetLabel(_MatKleurOptionLabel; _Model; ""; _TaalCode);
local string _MatLabel = GetLabel("InfoDiverse_Mat"; _Model; ""; _TaalCode);
_InfoMat = _MatLabel + ": " + _MatKleur + "-" + _MatMateriaal;
end if;
if (UI.Kenmerken.ZijwandType == "Free") then
_InfoZijwandType = GetLabel(_ZijwandTypeOptionLabel; _Model; ""; _TaalCode);
end if;
if (UI.Kenmerken.HeeftZijstabilisering) then
_InfoZijstabilisering = GetLabel(UI.Kenmerken.HeeftZijstabilisering@id; _Model; ""; _TaalCode);
end if;
if (UI.Kenmerken.HeeftOpvullijstLinks or UI.Kenmerken.HeeftOpvullijstRechts) then
_InfoOpvullijst = GetLabel("InfoDiverse_Opvullijst"; _Model; ""; _TaalCode) + ": ";
local string _Links = GetLabel("Links"; _Model; ""; _TaalCode);
local string _Rechts = GetLabel("Rechts"; _Model; ""; _TaalCode);
if (UI.Kenmerken.HeeftOpvullijstLinks and UI.Kenmerken.HeeftOpvullijstRechts) then
_InfoOpvullijst = _InfoOpvullijst + _Links + "+" + _Rechts;
else
if (UI.Kenmerken.HeeftOpvullijstLinks) then
_InfoOpvullijst = _InfoOpvullijst + _Links;
end if;
if (UI.Kenmerken.HeeftOpvullijstRechts) then
_InfoOpvullijst = _InfoOpvullijst + _Rechts;
end if;
end if;
end if;
if ((_InfoOpvullijst <> "") and (UI.Kenmerken.OpvullijstKleur <> "")) then
_InfoOpvullijst = _InfoOpvullijst + " (" + GetLabel(_OpvullijstKleurOptionLabel ; _Model; ""; _TaalCode) + ")";
end if;
if (UI.Kenmerken.VoorwandTypeVanMBinnenlade <> "") then
_InfoVoorwandType = GetLabel(UI.Kenmerken.VoorwandTypeVanMBinnenlade@id; _Model; ""; _TaalCode) + ": " + GetLabel(_VoorwandTypeVanMBinnenladeOptionLabel; _Model; ""; _TaalCode);
end if;
if (UI.Kenmerken.VoorwandTypeVanCBinnenlade <> "") then
_InfoVoorwandType = GetLabel(UI.Kenmerken.VoorwandTypeVanCBinnenlade@id; _Model; ""; _TaalCode) + ": " + GetLabel(_VoorwandTypeVanCBinnenladeOptionLabel; _Model; ""; _TaalCode);
end if;
if (UI.Kenmerken.VoorwandTypeVanKBinnenlade <> "") then
_InfoVoorwandType = GetLabel(UI.Kenmerken.VoorwandTypeVanKBinnenlade@id; _Model; ""; _TaalCode) + ": " + GetLabel(_VoorwandTypeVanKBinnenladeOptionLabel; _Model; ""; _TaalCode);
end if;
if (UI.Kenmerken.MeenemerSet == "V") then
_InfoMeenemerSet = GetLabel(UI.Kenmerken.MeenemerSet@id; _Model; ""; _TaalCode);
end if;
if (UI.Kenmerken.VerpakkingType <> "V1") then
_InfoVerpakking = GetLabel(_VerpakkingTypeOptionLabel; _Model; ""; _TaalCode);
end if;
if (UI.Kenmerken.RugwandMateriaal == "Staal") then
_InfoRugwandMateriaal = GetLabel(UI.Kenmerken.RugwandMateriaal@id; _Model; ""; _TaalCode) + ": " + GetLabel(_RugwandMateriaalOptionLabel; _Model; ""; _TaalCode);
end if;
if (UI.Kenmerken.HeeftAfwijkendeRugHoogte) then
_InfoRugHoogte = GetLabel(UI.Kenmerken.RugHoogte@id; _Model; ""; _TaalCode) + ": " + GetLabel(_RugHoogteOptionLabel; _Model; ""; _TaalCode);
end if;
if (UI.Kenmerken.ProductieWijze <> "V") then
_InfoProductieWijze = GetLabel("InfoDiverse_Enkel"; _Model; ""; _TaalCode) + " " + GetLabel(_ProductieWijzeOptionLabel; _Model; ""; _TaalCode);
end if;
if ((UI.Kenmerken.DwarsverdelingAantal <> "") and (CLng(UI.Kenmerken.DwarsverdelingAantal) > 0)) then
_InfoDwarsverdeling = GetLabel(UI.Kenmerken.DwarsverdelingAantal@id; _Model; ""; _TaalCode) + " (" + GetLabel("Aantal"; _Model; ""; _TaalCode) + ": " + UI.Kenmerken.DwarsverdelingAantal + ")";
end if;
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;
if (UI.Kenmerken.Toepassing == "SST") then
_InfoSpaceStep = GetLabel("sokkel"; _Model; ""; _TaalCode) + " " + GetLabel("afkorting_diepte"; _Model; ""; _TaalCode) + ":" + UI.Kenmerken.SpaceStep.Sokkeldiepte + "x" + GetLabel("afkorting_breedte"; _Model; ""; _TaalCode) + ":" + UI.Kenmerken.SpaceStep.Sokkelbreedte + "x" + GetLabel("afkorting_hoogte"; _Model; ""; _TaalCode) + ":" + UI.Kenmerken.SpaceStep.Sokkelhoogte;
if (UI.Kenmerken.SpaceStep.Bewegingstechnologie == "Servodrive") then
_InfoSpaceStepBewegingstechnologie = GetLabel(UI.Kenmerken.SpaceStep.Bewegingstechnologie@id; _Model; ""; _TaalCode) + ": " + GetLabel(_SpaceStepBewegingstechnologieLabel; _Model; ""; _TaalCode);
end if;
end if;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse@length = 17;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[1] = _InfoSpaceStep;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[2] = _InfoToepassing;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[3] = _InfoGeleider;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[4] = _InfoMat;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[5] = _InfoZijwandType;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[6] = _InfoZijstabilisering;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[7] = _InfoOpvullijst;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[8] = _InfoVoorwandType;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[9] = _InfoMeenemerSet;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[10] = _InfoVerpakking;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[11] = _InfoRugwandMateriaal;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[12] = _InfoRugHoogte;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[13] = _InfoProductieWijze;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[14] = _InfoDwarsverdeling;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[15] = _InfoIsSmalleLade;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[16] = _InfoNietMeeleveren;
DATA.Lijn.WinkelkarInfo(i).InfoDiverse[17] = _InfoSpaceStepBewegingstechnologie;
end for;
WinkelkarInfo - InfoDiverse
;state.winkelkarinfodiversecalculated@value;
STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig") or (CONFIG.Backend == "axapta")
if(DATA.Kenmerken.Toepassing <> "SST") then
if (DATA.Kenmerken.ProductieWijze <> "V") then
ItemId = "9.963.542.8"
else
if (DATA.Kenmerken.VerpakkingType == "V1") then ItemId = "9.657.336.8" end if;
if (DATA.Kenmerken.VerpakkingType == "VHoss") then ItemId = "9.963.666.8" end if;
if (DATA.Kenmerken.VerpakkingType == "Probox") then ItemId = "9.963.585.8" end if;
if (DATA.Kenmerken.VerpakkingType == "Pallet") then ItemId = "9.963.615.8" end if;
end if;
else
ItemId = "7.001.184.1";
end if;
// tijdelijk totdat kenmerken binnenkomen
if (ItemId == "") then ItemId = "9.657.336.8" end if;
ItemId bepalen
;itemid@value;
STATE.Cancelled
STATE.Cancelled = false;
ReturnValue = "{\"status\":\"cancel\"}";
local boolean _Result = Exit(true;false);
Cancel
;state.cancelled@value;returnvalue@value;
((STATE.SavedAndExit or STATE.SavedAndContinue) and (InvalidFields() == 0)) // or (CONFIG.Backend == "axapta")
Defaults voor verborgen properties
;
not(BEHAVIOR.IsInteractive) //(CONFIG.Settings.OperationMode == "Extern")
if ((UI.Kenmerken.Toepassing <> "SY") and not(UI.Kenmerken.HeeftAfwijkendeRugHoogte)) then
DATA.Kenmerken.RugHoogte = DATA.Kenmerken.LadeHoogte;
end if;
RugHoogte
;data.kenmerken.rughoogte@value;
(CONFIG.Settings.OperationMode == "Extern")
if (UI.Kenmerken.Toepassing == "SP") then
DATA.Kenmerken.RugwandMateriaal = "Staal";
else
DATA.Kenmerken.RugwandMateriaal = "Hout";
end if;
RugwandMateriaal
;data.kenmerken.rugwandmateriaal@value;
false //STATE.ProcessedAndExit
STATE.ProcessedAndExit = false;
STATE.ValidationNeeded = true;
if (InvalidFields() == 0) then
local boolean _Result = ProcessAndExit(true);
else
STATE.WinkelkarInfoCalculated = false;
STATE.WinkelkarInfoDiverseCalculated = false;
local string _Feedback = "";
_Feedback = _Feedback + "<b>" + GetLocalizedLabel("BewarenError") + ":" + "</b>";
_Feedback = _Feedback + "<ul style='list-style-type:square;'>";
for i = 1 to Len(DATA.Lijn.InvalidFieldSet@options)
local string _PropertyName = DATA.Lijn.InvalidFieldSet@option(i)@id;
local string _Label = CStr(Eval(_PropertyName + "@label"));
_Feedback = _Feedback + "<li>";
_Feedback = _Feedback + _Label;
_Feedback = _Feedback + "</li>";
end for;
_Feedback = _Feedback + "</ul>";
local long _FeedbackResult = MsgBox(_Feedback);
end if;
ProcessAndExit
;state.processedandexit@value;state.validationneeded@value;
STATE.SavedAndExit
STATE.SavedAndExit = false;
STATE.ValidationNeeded = true;
if (InvalidFields() == 0) then
ReturnValue = "{\"status\":\"ok\",\"name\":\"" + ElementName(CONFIG.ConfigurationName) + "\",\"version\":\"" + ElementVersion(CONFIG.ConfigurationName) + "\"}";
local boolean _Result = SaveAndExit();
else
STATE.WinkelkarInfoCalculated = false;
STATE.WinkelkarInfoDiverseCalculated = false;
local string _Feedback = "";
_Feedback = _Feedback + "<b>" + GetLocalizedLabel("BewarenError") + ":" + "</b>";
_Feedback = _Feedback + "<ul style='list-style-type:square;'>";
for i = 1 to Len(DATA.Lijn.InvalidFieldSet@options)
local string _PropertyName = DATA.Lijn.InvalidFieldSet@option(i)@id;
local string _Label = CStr(Eval(_PropertyName + "@label"));
_Feedback = _Feedback + "<li>";
_Feedback = _Feedback + _Label;
_Feedback = _Feedback + "</li>";
end for;
_Feedback = _Feedback + "</ul>";
local long _FeedbackResult = MsgBox(_Feedback);
end if;
SaveAndExit
;state.savedandexit@value;state.validationneeded@value;returnvalue@value;
STATE.SavedAndContinue
STATE.SavedAndContinue = false;
STATE.ValidationNeeded = true;
if (InvalidFields() == 0) then
ReturnValue = "{\"status\":\"ok\",\"name\":\"" + ElementName(CONFIG.ConfigurationName) + "\",\"version\":\"" + ElementVersion(CONFIG.ConfigurationName) + "\",\"continue\":\"true\"}";
local boolean _Result = SaveAndExit();
else
STATE.WinkelkarInfoCalculated = false;
STATE.WinkelkarInfoDiverseCalculated = false;
local string _Feedback = "";
_Feedback = _Feedback + "<b>" + GetLocalizedLabel("BewarenError") + ":" + "</b>";
_Feedback = _Feedback + "<ul style='list-style-type:square;'>";
for i = 1 to Len(DATA.Lijn.InvalidFieldSet@options)
local string _PropertyName = DATA.Lijn.InvalidFieldSet@option(i)@id;
local string _Label = CStr(Eval(_PropertyName + "@label"));
_Feedback = _Feedback + "<li>";
_Feedback = _Feedback + _Label;
_Feedback = _Feedback + "</li>";
end for;
_Feedback = _Feedback + "</ul>";
local long _FeedbackResult = MsgBox(_Feedback);
end if;
SaveAndContinue
;state.savedandcontinue@value;state.validationneeded@value;returnvalue@value;
STATE.KlantVoorkeurenSaved
STATE.KlantVoorkeurenSaved = false;
local boolean _Result;
_Result = SetArg("saveas"; ElementName(CONFIG.KlantVoorkeurenConfigurationName));
_Result = eCon.UI.Tasks.Functions.Save(false);
local string _Feedback = "";
if (_Result) then
_Feedback = _Feedback + "<b>" + GetLocalizedLabel("BewarenKlantVoorkeurenSuccess") + "</b>";
_Feedback = _Feedback + "<ul style='list-style-type:square;'>";
for i = 1 to Len(CONFIG.Defaults.KlantVoorkeuren@options)
local string _PropertyName = CONFIG.Defaults.KlantVoorkeuren@option(i)@id;
local string _Label = CStr(Eval(_PropertyName + "@id"));
local string _Id = CStr(Eval(_PropertyName));
local string _Type = CStr(Eval(_PropertyName + "@Type"));
if ((_Type == "String") and(_Id <> "")) then
_Feedback = _Feedback + "<li>";
_Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id); //eval(_PropertyName));
_Feedback = _Feedback + "</li>";
end if;
if ((_Type == "Double") and(CDbl(_Id) > 0)) then
_Feedback = _Feedback + "<li>";
_Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + _Id;
_Feedback = _Feedback + "</li>";
end if;
if (_Type == "Boolean") then
local boolean _IsNietMeeleveren = CBool(InStr(1; LCase(_Label); LCase("NietMeeleveren_")));
local long _PositionOfUnderscore = InStrRev(LCase(_PropertyName); "_");
local string _ShortName = Mid(LCase(_PropertyName); _PositionOfUnderscore + 1);
if (_IsNietMeeleveren and CBool(_Id) and (LCase(_ShortName) in CONFIG.NietMeeleverenExtern@options)) then
_Feedback = _Feedback + "<li>";
_Feedback = _Feedback + GetLocalizedLabel("NietMeeleveren") + ": " + GetLocalizedLabel(_Label);
_Feedback = _Feedback + "</li>";
end if;
if not(_IsNietMeeleveren) then
_Feedback = _Feedback + "<li>";
_Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id);
_Feedback = _Feedback + "</li>";
end if;
end if;
end for;
_Feedback = _Feedback + "</ul>";
else
_Feedback = _Feedback + "<b>" + GetLocalizedLabel("BewarenKlantVoorkeurenError") + "</b>";
end if;
local long _FeedbackResult = MsgBox(_Feedback);
_Result = SetArg("saveas"; ElementName(CONFIG.ConfigurationName)); // originele ConfigurationName terugzetten
SaveKlantVoorkeuren
;state.klantvoorkeurensaved@value;
BAIAAAAAAAA=
BQMAAAAAAAA=
AgEAAAAAAAACAgAAAAAAAAIDAAAAAAAAAgQAAAAAAAABCQAAAAAAAA==
AQEAAAAAAAACAQAAAAAAAAMBAAAAAAAACAEAAAAAAAAJAQAAAAAAAAEDAAAAAAAACQMAAAAAAAABBQAAAAAAAAIFAAAAAAAA
AQQCAAAAAAACBAIAAAAAAA==
AQYAAAAAAAA=
AgEAAAAAAAACBQAAAAAAAA==
AQIAAAAAAAACAgAAAAAAAAMCAAAAAAAABQIAAAAAAAA=
AQIAAAAAAAACAgAAAAAAAAMCAAAAAAAABwIAAAAAAAAIAgAAAAAAAAkCAAAAAAAAAQMAAAAAAAACAwAAAAAAAA==
AgIAAAAAAAACAwAAAAAAAA==
AgIAAAAAAAA=
AgIAAAAAAAA=
AQIAAAAAAAADAgAAAAAAAAUCAAAAAAAAAQMAAAAAAAA=
BAIAAAAAAAAEAwAAAAAAAAIEAAAAAAAAAwQAAAAAAAAEBAAAAAAAAA==
AQMAAAAAAAADAwAAAAAAAAQDAAAAAAAABQMAAAAAAAA=
AgEDAAAAAAACAgMAAAAAAA==
AwUBAAAAAAADBQMAAAAAAAMFBAAAAAAABAEFAAAAAAAHAQUAAAAAAAIDBQAAAAAAAwUFAAAAAAA=
AQEDAgAAAAABAwUCAAAAAA==
AQIAAAAAAAA=
AgUDAAAAAAA=
AgICAAAAAAA=
AgIAAAAAAAA=
BgECAAAAAAAHAQIAAAAAAAgBAgAAAAAACQECAAAAAAADAgIAAAAAAAUCAgAAAAAABgICAAAAAAAHAgIAAAAAAAgCAgAAAAAACQICAAAAAAA=
AQIBAAAAAAADAgEAAAAAAA==
AQIBAAAAAAA=
AgQAAAAAAAADBAAAAAAAAAQEAAAAAAAABQQAAAAAAAAGBAAAAAAAAA==
BQMAAAAAAAA=
AgIAAAAAAAADAgAAAAAAAAQCAAAAAAAABQIAAAAAAAAGAgAAAAAAAAIDAAAAAAAAAwMAAAAAAAAEAwAAAAAAAAUDAAAAAAAABgMAAAAAAAACBAAAAAAAAAMEAAAAAAAABAQAAAAAAAAFBAAAAAAAAAYEAAAAAAAA