Index: development/models/mat/MAT Configurator,1.0.0.xml
===================================================================
diff -u -r2519 -r2536
--- development/models/mat/MAT Configurator,1.0.0.xml (.../MAT Configurator,1.0.0.xml) (revision 2519)
+++ development/models/mat/MAT Configurator,1.0.0.xml (.../MAT Configurator,1.0.0.xml) (revision 2536)
@@ -7,30 +7,30 @@
-
+
-
+
-
+
-
+
-
+
@@ -43,16 +43,16 @@
-
+
-
+
-
+
-
+
@@ -77,7 +77,7 @@
-
+
@@ -108,7 +108,7 @@
-
+
@@ -121,10 +121,10 @@
-
+
-
+
@@ -134,7 +134,7 @@
-
+
@@ -144,7 +144,7 @@
-
+
@@ -157,10 +157,10 @@
-
+
-
+
@@ -213,14 +213,14 @@
-
+
-
+
@@ -234,7 +234,7 @@
-
+
@@ -248,17 +248,17 @@
-
+
-
+
-
+
@@ -270,7 +270,7 @@
-
+
@@ -291,7 +291,7 @@
-
+
@@ -300,14 +300,14 @@
-
+
-
+
@@ -318,7 +318,7 @@
-
+
@@ -329,7 +329,7 @@
-
+
@@ -340,33 +340,33 @@
-
+
-
+
-
+
-
+
-
+
-
+
@@ -378,7 +378,7 @@
-
+
@@ -392,18 +392,18 @@
-
+
-
+
-
+
@@ -415,7 +415,7 @@
-
+
@@ -429,26 +429,26 @@
-
+
-
+
-
+
-
+
@@ -483,7 +483,7 @@
-
+
@@ -498,25 +498,25 @@
-
+
-
+
-
+
-
+
-
+
@@ -532,7 +532,7 @@
-
+
@@ -543,15 +543,15 @@
-
+
-
+
@@ -561,23 +561,23 @@
-
+
-
+
-
+
@@ -594,10 +594,10 @@
-
+
-
+
@@ -606,7 +606,7 @@
-
+
@@ -615,7 +615,7 @@
-
+
@@ -628,7 +628,7 @@
-
+
@@ -640,15 +640,15 @@
-
+
-
+
@@ -671,20 +671,20 @@
-
+
-
+
-
+
-
+
@@ -710,7 +710,7 @@
-
+
@@ -736,7 +736,7 @@
-
+
@@ -754,7 +754,7 @@
-
+
@@ -772,7 +772,7 @@
-
+
@@ -800,15 +800,15 @@
-
+
-
+
@@ -826,15 +826,15 @@
-
+
-
+
@@ -849,7 +849,7 @@
-
+
@@ -863,10 +863,10 @@
-
+
-
+
@@ -882,7 +882,7 @@
-
+
@@ -895,17 +895,17 @@
-
+
-
+
-
+
@@ -922,7 +922,7 @@
-
+
@@ -936,10 +936,10 @@
-
+
-
+
@@ -952,44 +952,44 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
@@ -1000,25 +1000,25 @@
-
+
-
+
-
+
-
+
-
+
-
+
@@ -1484,12 +1484,16 @@
true
if (CONFIG.InputMode == "New") then
- STATE.DataKenmerkenInvullenVia = "InitieleDefaults";
+ if not(BEHAVIOR.IsInteractive) then
+ STATE.DataKenmerkenInvullenVia = "GetArgs";
+ else
+ STATE.DataKenmerkenInvullenVia = "InitieleDefaults";
+ end if;
else
STATE.DataKenmerkenInvullenVia = "UI";
end if;
Start StatenFlow DataKenmerkenInvullenVia
- ;state.datakenmerkeninvullenvia@value;
+ ;
true
@@ -1688,44 +1692,35 @@
true
local string _DummyTrigger = UI.Kenmerken.Materiaal;
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults") and (DATA.Kenmerken.Materiaal == "")) then
DATA.Kenmerken.Materiaal = Default.Kenmerken.Materiaal;
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.Materiaal = GetArg("data;kenmerken;materiaal");
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
-
- end if;
- */
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.Materiaal = UI.Kenmerken.Materiaal.Value;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
-
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
- */
end if;
-/*
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
+ DATA.Kenmerken.Materiaal = Default.Kenmerken.Materiaal;
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.Materiaal = GetArg("data;kenmerken;materiaal");
-else
- if (STATE.GebruikDefaultWaarden) then
- DATA.Kenmerken.Materiaal = DATA.Kenmerken.MateriaalDefault;
- end if;
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.GebruikDefaultWaarden)) then
- DATA.Kenmerken.Materiaal = UI.Kenmerken.Materiaal.Value;
- end if;
end if;
- */
+*/
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.Materiaal = UI.Kenmerken.Materiaal.Value;
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
+*/
+
DATA waarde instellen
;data.kenmerken.materiaal@value;
@@ -1744,57 +1739,40 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults") and (DATA.Kenmerken.Kleur == "")) then
DATA.Kenmerken.Kleur = Default.Kenmerken.Kleur;
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.Kleur = GetArg("data;kenmerken;kleur");
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
-
- end if;
- */
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.Kleur = switch (DATA.Kenmerken.Materiaal)
- case "CF": UI.Kenmerken.MatVinylFiberglassKleur.Value
- case "AF": UI.Kenmerken.MatAntislipFiberKleur.Value
- case "AZ": UI.Kenmerken.MatAntislipFlockKleur.Value
- else ""
- end switch;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
-
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
- */
end if;
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
+ DATA.Kenmerken.Kleur = Default.Kenmerken.Kleur;
+end if;
-
-
-/*
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.Kleur = GetArg("data;kenmerken;kleur");
-else
- if (STATE.GebruikDefaultWaarden) then
- DATA.Kenmerken.Kleur = DATA.Kenmerken.KleurDefault;
- end if;
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.GebruikDefaultWaarden)) then
- DATA.Kenmerken.Kleur = switch (DATA.Kenmerken.Materiaal)
- case "CF": UI.Kenmerken.MatVinylFiberglassKleur.Value
- case "AF": UI.Kenmerken.MatAntislipFiberKleur.Value
- case "AZ": UI.Kenmerken.MatAntislipFlockKleur.Value
- else ""
- end switch;
- end if;
end if;
-*/
+*/
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.Kleur = switch (DATA.Kenmerken.Materiaal)
+ case "CF": UI.Kenmerken.MatVinylFiberglassKleur.Value
+ case "AF": UI.Kenmerken.MatAntislipFiberKleur.Value
+ case "AZ": UI.Kenmerken.MatAntislipFlockKleur.Value
+ else ""
+ end switch;
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
+*/
+
DATA waarde instellen
;data.kenmerken.kleur@value;
@@ -2027,51 +2005,39 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
- local string Dummy = "DoeNiets";
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.ViaNettoBreedte = CBool(GetArg("data;kenmerken;vianettobreedte"));
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
-
- end if;
- */
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.ViaNettoBreedte = UI.Kenmerken.ViaNettoBreedte;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
-
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
- */
- if BEHAVIOR.IsModeNabestellen then
- DATA.Kenmerken.ViaNettoBreedte = false;
- end if;
-
+/*
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults")) then
end if;
-/*
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
+end if;
+*/
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.ViaNettoBreedte = CBool(GetArg("data;kenmerken;vianettobreedte"));
-else
- if not(BEHAVIOR.OperationMode == "AxCreate") then
- DATA.Kenmerken.ViaNettoBreedte = UI.Kenmerken.ViaNettoBreedte;
- end if;
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- if BEHAVIOR.IsModeNabestellen then
- DATA.Kenmerken.ViaNettoBreedte = false;
- end if;
-
end if;
-*/
+*/
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.ViaNettoBreedte = UI.Kenmerken.ViaNettoBreedte;
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
+*/
+if BEHAVIOR.IsModeNabestellen then
+ DATA.Kenmerken.ViaNettoBreedte = false;
+end if;
+
DATA waarde instellen
- ;
+ ;data.kenmerken.vianettobreedte@value;
true
@@ -2112,97 +2078,62 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults") and (DATA.Kenmerken.LadeType == "")) then
DATA.Kenmerken.LadeType = Default.Kenmerken.LadeType;
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.LadeType = GetArg("data;kenmerken;ladetype");
- end if;
+end if;
+
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
+ DATA.Kenmerken.LadeType = Default.Kenmerken.LadeType;
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
+ DATA.Kenmerken.LadeType = GetArg("data;kenmerken;ladetype");
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Variant")@id;
+ local string _LadeVariant = CONFIG.Database.ConfigAnalyseProperties.Value;
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Variant")@id;
- local string _LadeVariant = CONFIG.Database.ConfigAnalyseProperties.Value;
+ if (_LadeVariant == "LBX") then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Zijwandtype")@id;
+ local string _ZijwandType = CONFIG.Database.ConfigAnalyseProperties.Value;
- if (_LadeVariant == "LBX") then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Zijwandtype")@id;
- local string _ZijwandType = CONFIG.Database.ConfigAnalyseProperties.Value;
-
- if (_ZijwandType == "Free") then
- DATA.Kenmerken.LadeType = "LegraboxFree";
- else
- DATA.Kenmerken.LadeType = "LegraboxPure";
- end if;
+ if (_ZijwandType == "Free") then
+ DATA.Kenmerken.LadeType = "LegraboxFree";
+ else
+ DATA.Kenmerken.LadeType = "LegraboxPure";
end if;
- if (_LadeVariant == "MVX") then
- DATA.Kenmerken.LadeType = "Merivobox";
- end if;
- if (_LadeVariant == "TAX") then
- DATA.Kenmerken.LadeType = "Taorbox";
- end if;
- if (_LadeVariant == "TBX") then
- DATA.Kenmerken.LadeType = "Tandembox";
- end if;
end if;
-
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.LadeType = UI.Kenmerken.LadeType;
+ if (_LadeVariant == "MVX") then
+ DATA.Kenmerken.LadeType = "Merivobox";
end if;
-
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
- if (not(UI.Kenmerken.LadeType@visible) and DATA.Kenmerken.ViaNettoBreedte and DATA.Kenmerken.ViaNettoDiepte) then
- DATA.Kenmerken.LadeType = "";
- UI.Kenmerken.LadeType = "";
- end if;
+ if (_LadeVariant == "TAX") then
+ DATA.Kenmerken.LadeType = "Taorbox";
end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
+ if (_LadeVariant == "TBX") then
+ DATA.Kenmerken.LadeType = "Tandembox";
end if;
- */
end if;
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.LadeType = UI.Kenmerken.LadeType;
+end if;
-
-
-
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+ if (not(UI.Kenmerken.LadeType@visible) and DATA.Kenmerken.ViaNettoBreedte and DATA.Kenmerken.ViaNettoDiepte) then
+ DATA.Kenmerken.LadeType = "";
+ UI.Kenmerken.LadeType = "";
+ end if;
+end if;
/*
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
- DATA.Kenmerken.LadeType = GetArg("data;kenmerken;ladetype");
-else
- if (STATE.BijhorendeLadeConfiguratieLoaded) then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Variant")@id;
- local string _LadeVariant = CONFIG.Database.ConfigAnalyseProperties.Value;
-
- if (_LadeVariant == "LBX") then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Zijwandtype")@id;
- local string _ZijwandType = CONFIG.Database.ConfigAnalyseProperties.Value;
-
- if (_ZijwandType == "Free") then
- DATA.Kenmerken.LadeType = "LegraboxFree";
- else
- DATA.Kenmerken.LadeType = "LegraboxPure";
- end if;
- end if;
- if (_LadeVariant == "MVX") then
- DATA.Kenmerken.LadeType = "Merivobox";
- end if;
- if (_LadeVariant == "TAX") then
- DATA.Kenmerken.LadeType = "Taorbox";
- end if;
- if (_LadeVariant == "TBX") then
- DATA.Kenmerken.LadeType = "Tandembox";
- end if;
- end if;
-
- if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
- DATA.Kenmerken.LadeType = UI.Kenmerken.LadeType;
- end if;
end if;
-*/
+*/
+
- ;data.kenmerken.ladetype@value;
+ ;data.kenmerken.ladetype@value;config.database.configanalyseproperties@value;
true
@@ -2249,59 +2180,42 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
- DATA.Kenmerken.LadeToepassing = Default.Kenmerken.LadeToepassing;
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.LadeToepassing = GetArg("data;kenmerken;ladetoepassing");
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Toepassing")@id;
- DATA.Kenmerken.LadeToepassing = CONFIG.Database.ConfigAnalyseProperties.Value;
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.LadeToepassing = UI.Kenmerken.LadeToepassing;
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
- if (not(UI.Kenmerken.LadeToepassing@visible) and DATA.Kenmerken.ViaNettoBreedte and DATA.Kenmerken.ViaNettoDiepte) then
- DATA.Kenmerken.LadeToepassing = "";
- UI.Kenmerken.LadeToepassing= "";
- end if;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
- */
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults") and (DATA.Kenmerken.LadeToepassing == "")) then
+ DATA.Kenmerken.LadeToepassing = Default.Kenmerken.LadeToepassing ;
end if;
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
+ DATA.Kenmerken.LadeToepassing = Default.Kenmerken.LadeToepassing ;
+end if;
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
+ DATA.Kenmerken.LadeToepassing = GetArg("data;kenmerken;ladetoepassing");
+end if;
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Toepassing")@id;
+ DATA.Kenmerken.LadeToepassing = CONFIG.Database.ConfigAnalyseProperties.Value;
+end if;
-/*
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
- DATA.Kenmerken.LadeToepassing = GetArg("data;kenmerken;ladetoepassing");
-else
- if (STATE.BijhorendeLadeConfiguratieLoaded) then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Toepassing")@id;
- DATA.Kenmerken.LadeToepassing = CONFIG.Database.ConfigAnalyseProperties.Value;
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.LadeToepassing = UI.Kenmerken.LadeToepassing;
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+ if (not(UI.Kenmerken.LadeToepassing@visible) and DATA.Kenmerken.ViaNettoBreedte and DATA.Kenmerken.ViaNettoDiepte) then
+ DATA.Kenmerken.LadeToepassing = "";
+ UI.Kenmerken.LadeToepassing= "";
end if;
-
- if (STATE.GebruikDefaultWaarden) then
- DATA.Kenmerken.LadeToepassing = DATA.Kenmerken.LadeToepassingDefault;
- end if;
-
- if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded) and not(STATE.GebruikDefaultWaarden)) then
- DATA.Kenmerken.LadeToepassing = UI.Kenmerken.LadeToepassing;
- end if;
end if;
-*/
+/*
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
+*/
+
- ;data.kenmerken.ladetoepassing@value;
+ ;data.kenmerken.ladetoepassing@value;config.database.configanalyseproperties@value;
true
@@ -2326,57 +2240,41 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
+/*
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults")) then
+end if;
+
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
DATA.Kenmerken.IsBinnenBreedte = Default.Kenmerken.IsBinnenBreedte;
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- if (not(GetArg("data;kenmerken;isbinnenbreedte") == "")) then
- DATA.Kenmerken.IsBinnenBreedte = CBool(GetArg("data;kenmerken;isbinnenbreedte"));
- end if;
+end if;
+*/
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
+ if (not(GetArg("data;kenmerken;isbinnenbreedte") == "")) then
+ DATA.Kenmerken.IsBinnenBreedte = CBool(GetArg("data;kenmerken;isbinnenbreedte"));
end if;
-
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Isbinnenbreedte")@id;
- DATA.Kenmerken.IsBinnenBreedte = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.IsBinnenBreedte = UI.Kenmerken.IsBinnenBreedte;
+end if;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
-
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
-*/
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Isbinnenbreedte")@id;
+ DATA.Kenmerken.IsBinnenBreedte = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.IsBinnenBreedte = UI.Kenmerken.IsBinnenBreedte;
+end if;
/*
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs and not(GetArg("data;kenmerken;isbinnenbreedte") == "")) then //Defaultwaarde is true en als in background deze parameter niet wordt meegegeven wordt die anders foutief false, daarom deze extra controle
- DATA.Kenmerken.IsBinnenBreedte = CBool(GetArg("data;kenmerken;isbinnenbreedte"));
-else
- if (STATE.BijhorendeLadeConfiguratieLoaded) then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Isbinnenbreedte")@id;
- DATA.Kenmerken.IsBinnenBreedte = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
- end if;
-
- if (STATE.GebruikDefaultWaarden) then
- DATA.Kenmerken.IsBinnenBreedte = DATA.Kenmerken.IsBinnenBreedteDefault;
- end if;
-
- if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded) and not(STATE.GebruikDefaultWaarden)) then
- DATA.Kenmerken.IsBinnenBreedte = UI.Kenmerken.IsBinnenBreedte;
- end if;
end if;
-*/
+
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
+*/
+
DATA waarde instellen
- ;data.kenmerken.isbinnenbreedte@value;
+ ;config.database.configanalyseproperties@value;data.kenmerken.isbinnenbreedte@value;
true
@@ -2407,52 +2305,42 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
- local string Dummy = "DoeNiets";
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.CorpusWanddikte = CDbl(Replace(GetArg("data;kenmerken;corpuswanddikte");".";","));
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Corpuswandikte")@id;
- DATA.Kenmerken.Corpuswanddikte = CDbl(CONFIG.Database.ConfigAnalyseProperties.Value);
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.CorpusWanddikte = UI.Kenmerken.CorpusWanddikte;
+/*
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults") and (DATA.Kenmerken.CorpusWanddikte == "")) then
+end if;
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
- if (DATA.Kenmerken.IsBinnenbreedte) then
- DATA.Kenmerken.CorpusWanddikte = 0;
- UI.Kenmerken.CorpusWanddikte = 0;
- end if;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
- */
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
end if;
+*/
-/*
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.CorpusWanddikte = CDbl(Replace(GetArg("data;kenmerken;corpuswanddikte");".";","));
-else
- if (STATE.BijhorendeLadeConfiguratieLoaded) then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Corpuswandikte")@id;
- DATA.Kenmerken.Corpuswanddikte = CDbl(CONFIG.Database.ConfigAnalyseProperties.Value);
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Corpuswandikte")@id;
+ DATA.Kenmerken.Corpuswanddikte = CDbl(CONFIG.Database.ConfigAnalyseProperties.Value);
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.CorpusWanddikte = UI.Kenmerken.CorpusWanddikte;
+
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+ if (DATA.Kenmerken.IsBinnenbreedte) then
+ DATA.Kenmerken.CorpusWanddikte = 0;
+ UI.Kenmerken.CorpusWanddikte = 0;
end if;
-
- if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
- DATA.Kenmerken.CorpusWanddikte = UI.Kenmerken.CorpusWanddikte;
- end if;
end if;
-*/
+/*
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
+*/
+
DATA waarde instellen
- ;
+ ;data.kenmerken.corpuswanddikte@value;config.database.configanalyseproperties@value;
true
@@ -2514,51 +2402,41 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
- local string Dummy = "DoeNiets";
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.CorpusBreedte = CDbl(Replace(GetArg("data;kenmerken;corpusbreedte");".";","));
+/*
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults") and (DATA.Kenmerken.CorpusBreedte == "")) then
+end if;
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Corpusbreedte")@id;
- DATA.Kenmerken.CorpusBreedte = CDbl(CONFIG.Database.ConfigAnalyseProperties.Value);
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.CorpusBreedte = UI.Kenmerken.CorpusBreedte;
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
- if not(UI.Kenmerken.Corpusbreedte@visible) then
- DATA.Kenmerken.Corpusbreedte = 0;
- UI.Kenmerken.Corpusbreedte = 0;
- end if;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
- */
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
end if;
-/*
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
+*/
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.CorpusBreedte = CDbl(Replace(GetArg("data;kenmerken;corpusbreedte");".";","));
-else
- if (STATE.BijhorendeLadeConfiguratieLoaded) then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Corpusbreedte")@id;
- DATA.Kenmerken.CorpusBreedte = CDbl(CONFIG.Database.ConfigAnalyseProperties.Value);
+
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Corpusbreedte")@id;
+ DATA.Kenmerken.CorpusBreedte = CDbl(CONFIG.Database.ConfigAnalyseProperties.Value);
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.CorpusBreedte = UI.Kenmerken.CorpusBreedte;
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+ if not(UI.Kenmerken.Corpusbreedte@visible) then
+ DATA.Kenmerken.Corpusbreedte = 0;
+ UI.Kenmerken.Corpusbreedte = 0;
end if;
-
- if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
- DATA.Kenmerken.CorpusBreedte = UI.Kenmerken.CorpusBreedte;
- end if;
end if;
-*/
+/*
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
+*/
+
DATA waarde instellen
- ;
+ ;data.kenmerken.corpusbreedte@value;config.database.configanalyseproperties@value;
true
@@ -2596,56 +2474,42 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
+/*
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults")) then
+end if;
+
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
DATA.Kenmerken.HeeftOpvullijstLinks = Default.Kenmerken.HeeftOpvullijstLinks;
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.HeeftOpvullijstLinks = CBool(GetArg("data;kenmerken;heeftopvullijstlinks"));
+end if;
+*/
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
+ DATA.Kenmerken.HeeftOpvullijstLinks = CBool(GetArg("data;kenmerken;heeftopvullijstlinks"));
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Heeftopvullijstlinks")@id;
+ DATA.Kenmerken.HeeftOpvullijstLinks = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.HeeftOpvullijstLinks = UI.Kenmerken.HeeftOpvullijstLinks;
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+ if not(UI.Kenmerken.HeeftOpvullijstLinks@visible) then
+ DATA.Kenmerken.HeeftOpvullijstLinks = false;
+ UI.Kenmerken.HeeftOpvullijstLinks = false;
end if;
-
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Heeftopvullijstlinks")@id;
- DATA.Kenmerken.HeeftOpvullijstLinks = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.HeeftOpvullijstLinks = UI.Kenmerken.HeeftOpvullijstLinks;
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
- if not(UI.Kenmerken.HeeftOpvullijstLinks@visible) then
- DATA.Kenmerken.HeeftOpvullijstLinks = false;
- UI.Kenmerken.HeeftOpvullijstLinks = false;
- end if;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
- */
end if;
/*
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
- DATA.Kenmerken.HeeftOpvullijstLinks = CBool(GetArg("data;kenmerken;heeftopvullijstlinks"));
-else
- if (STATE.BijhorendeLadeConfiguratieLoaded) then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Heeftopvullijstlinks")@id;
- DATA.Kenmerken.HeeftOpvullijstLinks = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
- end if;
-
- if (STATE.GebruikDefaultWaarden) then
- DATA.Kenmerken.HeeftOpvullijstLinks = DATA.Kenmerken.HeeftOpvullijstLinksDefault;
- end if;
-
- if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded) and not(STATE.GebruikDefaultWaarden)) then
- DATA.Kenmerken.HeeftOpvullijstLinks = UI.Kenmerken.HeeftOpvullijstLinks;
- end if;
end if;
-*/
+*/
+
DATA waarde instellen
- ;data.kenmerken.heeftopvullijstlinks@value;
+ ;data.kenmerken.heeftopvullijstlinks@value;config.database.configanalyseproperties@value;
true
@@ -2668,58 +2532,42 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
- DATA.Kenmerken.HeeftOpvullijstRechts = Default.Kenmerken.HeeftOpvullijstRechts;
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.HeeftOpvullijstRechts = CBool(GetArg("data;kenmerken;heeftopvullijstrechts"));
+/*
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults")) then
+end if;
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Heeftopvullijstrechts")@id;
- DATA.Kenmerken.HeeftOpvullijstRechts = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.HeeftOpvullijstRechts = UI.Kenmerken.HeeftOpvullijstRechts;
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
- if not(UI.Kenmerken.HeeftOpvullijstRechts@visible) then
- DATA.Kenmerken.HeeftOpvullijstRechts = false;
- UI.Kenmerken.HeeftOpvullijstRechts = false;
- end if;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
- */
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
+ DATA.Kenmerken.HeeftOpvullijstRechts = Default.Kenmerken.HeeftOpvullijstRechts ;
end if;
+*/
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
+ DATA.Kenmerken.HeeftOpvullijstRechts = CBool(GetArg("data;kenmerken;heeftopvullijstrechts"));
+end if;
-/*
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
- DATA.Kenmerken.HeeftOpvullijstRechts = CBool(GetArg("data;kenmerken;heeftopvullijstrechts"));
-else
- if (STATE.BijhorendeLadeConfiguratieLoaded) then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Heeftopvullijstrechts")@id;
- DATA.Kenmerken.HeeftOpvullijstRechts = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
- end if;
-
- if (STATE.GebruikDefaultWaarden) then
- DATA.Kenmerken.HeeftOpvullijstRechts = DATA.Kenmerken.HeeftOpvullijstRechtsDefault;
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Heeftopvullijstrechts")@id;
+ DATA.Kenmerken.HeeftOpvullijstRechts = CBool(CONFIG.Database.ConfigAnalyseProperties.Value);
+end if;
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.HeeftOpvullijstRechts = UI.Kenmerken.HeeftOpvullijstRechts;
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+ if not(UI.Kenmerken.HeeftOpvullijstRechts@visible) then
+ DATA.Kenmerken.HeeftOpvullijstRechts = false;
+ UI.Kenmerken.HeeftOpvullijstRechts = false;
end if;
-
- if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded) and not(STATE.GebruikDefaultWaarden)) then
- DATA.Kenmerken.HeeftOpvullijstRechts = UI.Kenmerken.HeeftOpvullijstRechts;
- end if;
end if;
-*/
+/*
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
+*/
+
DATA waarde instellen
- ;data.kenmerken.heeftopvullijstrechts@value;
+ ;data.kenmerken.heeftopvullijstrechts@value;config.database.configanalyseproperties@value;
true
@@ -2813,95 +2661,52 @@
local double _NettoBreedte = DATA.Kenmerken.CorpusBreedte - (2 * _CorpusWanddikte) - (_AantalOpvullijsten * _OpvullijstDikte);
DATA.BerekendeWaarden.InterneBreedte = _NettoBreedte;
+/*
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults")) then
+end if;
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
- local string Dummy = "DoeNiets";
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.NettoBreedte = CDbl(GetArg("data;kenmerken;nettobreedte"));
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
-
- end if;
- */
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.NettoBreedte = UI.Kenmerken.NettoBreedte;
-
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
+end if;
+*/
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
+ DATA.Kenmerken.NettoBreedte = CDbl(GetArg("data;kenmerken;nettobreedte"));
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
+end if;
*/
-
- if not(DATA.Kenmerken.ViaNettoBreedte) then
- if (DATA.Kenmerken.LadeType == "Merivobox") then
- _NettoBreedte = (_NettoBreedte - 56);
- end if;
-
- if (DATA.Kenmerken.LadeType == "LegraboxPure") then
- _NettoBreedte = (_NettoBreedte - (2 * 21));
- if (_IsLbxSpoelbaklade) then
- _NettoBreedte = 122;
- end if;
- end if;
-
- if (DATA.Kenmerken.LadeType == "LegraboxFree") then
- _NettoBreedte = (_NettoBreedte - (2 * 21) - (2 * 1));
- if (_IsLbxSpoelbaklade) then
- _NettoBreedte = 122;
- end if;
- end if;
-
- if (DATA.Kenmerken.LadeType == "Taorbox") then
- _NettoBreedte = (_NettoBreedte - 0.5 - (2 * 21));
- end if;
-
- if (DATA.Kenmerken.LadeType == "Tandembox") then
- _NettoBreedte = (_NettoBreedte - 85);
- if (DATA.Kenmerken.HeeftTbxMinTolerantieIB) then
- _NettoBreedte = (_NettoBreedte - 1);
- end if;
- end if;
-
- //Op deze manier ziet de gebruiker geen negatieve waarden.
- if (_NettoBreedte < 0) then
- _NettoBreedte = 0;
- end if;
-
- DATA.Kenmerken.NettoBreedte = _NettoBreedte;
- end if;
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.NettoBreedte = UI.Kenmerken.NettoBreedte;
end if;
-
-
-
/*
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
- DATA.Kenmerken.NettoBreedte = CDbl(GetArg("data;kenmerken;nettobreedte"));
-else
- if not(BEHAVIOR.OperationMode == "AxCreate") then
- DATA.Kenmerken.NettoBreedte = UI.Kenmerken.NettoBreedte;
- end if;
end if;
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
+*/
+
if not(DATA.Kenmerken.ViaNettoBreedte) then
if (DATA.Kenmerken.LadeType == "Merivobox") then
_NettoBreedte = (_NettoBreedte - 56);
end if;
if (DATA.Kenmerken.LadeType == "LegraboxPure") then
_NettoBreedte = (_NettoBreedte - (2 * 21));
+ if (_IsLbxSpoelbaklade) then
+ _NettoBreedte = 122;
+ end if;
end if;
if (DATA.Kenmerken.LadeType == "LegraboxFree") then
_NettoBreedte = (_NettoBreedte - (2 * 21) - (2 * 1));
+ if (_IsLbxSpoelbaklade) then
+ _NettoBreedte = 122;
+ end if;
end if;
if (DATA.Kenmerken.LadeType == "Taorbox") then
@@ -2922,10 +2727,9 @@
DATA.Kenmerken.NettoBreedte = _NettoBreedte;
end if;
-*/
DATA waarde instellen
- ;data.berekendewaarden.internebreedte@value;
+ ;data.berekendewaarden.internebreedte@value;data.kenmerken.nettobreedte@value;
true
@@ -2950,49 +2754,39 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
- local string Dummy = "DoeNiets";
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.ViaNettoDiepte = CBool(GetArg("data;kenmerken;vianettodiepte"));
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
-
- end if;
- */
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.ViaNettoDiepte = UI.Kenmerken.ViaNettoDiepte;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
-
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
-*/
- if BEHAVIOR.IsModeNabestellen then
- DATA.Kenmerken.ViaNettoDiepte = false;
- end if;
+/*
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults")) then
end if;
-/*
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
+end if;
+*/
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.ViaNettoDiepte = CBool(GetArg("data;kenmerken;vianettodiepte"));
-else
- if not(BEHAVIOR.OperationMode == "AxCreate") then
- DATA.Kenmerken.ViaNettoDiepte = UI.Kenmerken.ViaNettoDiepte;
- end if;
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- if BEHAVIOR.IsModeNabestellen then
- DATA.Kenmerken.ViaNettoDiepte = false;
- end if;
end if;
-*/
+*/
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.ViaNettoDiepte = UI.Kenmerken.ViaNettoDiepte;
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
+*/
+if BEHAVIOR.IsModeNabestellen then
+ DATA.Kenmerken.ViaNettoDiepte = false;
+end if;
+
DATA waarde instellen
- ;
+ ;data.kenmerken.vianettodiepte@value;
true
@@ -3033,52 +2827,42 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
- local string Dummy = "DoeNiets";
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.LadeDiepte = GetArg("data;kenmerken;ladediepte");
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.LadeDiepte")@id;
- DATA.Kenmerken.LadeDiepte = CONFIG.Database.ConfigAnalyseProperties.Value;
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.LadeDiepte = UI.Kenmerken.LadeDiepte;
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
- if not(UI.Kenmerken.LadeDiepte@visible) then
- DATA.Kenmerken.LadeDiepte = "";
- UI.Kenmerken.LadeDiepte = "";
- end if;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
- */
+/*
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults") and (DATA.Kenmerken.LadeDiepte == "")) then
end if;
-/*
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
- DATA.Kenmerken.LadeDiepte = GetArg("data;kenmerken;ladediepte");
-else
- if (STATE.BijhorendeLadeConfiguratieLoaded) then
- CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.LadeDiepte")@id;
- DATA.Kenmerken.LadeDiepte = CONFIG.Database.ConfigAnalyseProperties.Value;
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
+end if;
+*/
+
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
+ DATA.Kenmerken.LadeDiepte = GetArg("data;kenmerken;ladediepte");
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
+ CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.LadeDiepte")@id;
+ DATA.Kenmerken.LadeDiepte = CONFIG.Database.ConfigAnalyseProperties.Value;
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.LadeDiepte = UI.Kenmerken.LadeDiepte;
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+ if not(UI.Kenmerken.LadeDiepte@visible) then
+ DATA.Kenmerken.LadeDiepte = "";
+ UI.Kenmerken.LadeDiepte = "";
end if;
-
- if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
- DATA.Kenmerken.LadeDiepte = UI.Kenmerken.LadeDiepte;
- end if;
end if;
-*/
+/*
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
+*/
+
- ;
+ ;data.kenmerken.ladediepte@value;config.database.configanalyseproperties@value;
true
@@ -3103,46 +2887,39 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
- local string Dummy = "DoeNiets";
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront = CBool(GetArg("data;kenmerken;heeftlbxbinnenladeglazenfront"));
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
-
- end if;
- */
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront = UI.Kenmerken.HeeftLbxBinnenladeGlazenFront;
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
- if not(UI.Kenmerken.HeeftLbxBinnenladeGlazenFront@visible) then
- DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront = false;
- UI.Kenmerken.HeeftLbxBinnenladeGlazenFront = false;
- end if;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
- */
+/*
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults") ) then
end if;
-/*
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
+end if;
+*/
+
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront = CBool(GetArg("data;kenmerken;heeftlbxbinnenladeglazenfront"));
-else
- if not(BEHAVIOR.OperationMode == "AxCreate") then
- DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront = UI.Kenmerken.HeeftLbxBinnenladeGlazenFront;
- end if;
end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
+
+end if;
*/
-
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront = UI.Kenmerken.HeeftLbxBinnenladeGlazenFront;
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+ if not(UI.Kenmerken.HeeftLbxBinnenladeGlazenFront@visible) then
+ DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront = false;
+ UI.Kenmerken.HeeftLbxBinnenladeGlazenFront = false;
+ end if;
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
+*/
DATA waarde instellen
- ;
+ ;data.kenmerken.heeftlbxbinnenladeglazenfront@value;
true
@@ -3165,81 +2942,34 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
- local string Dummy = "DoeNiets";
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.NettoDiepte = CDbl(GetArg("data;kenmerken;nettodiepte"));
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
-
- end if;
- */
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.NettoDiepte = UI.Kenmerken.NettoDiepte;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
-
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
- */
- local double _NettoDiepte = CDbl(DATA.Kenmerken.LadeDiepte);
-
- if not(DATA.Kenmerken.ViaNettoDiepte) then
- if (DATA.Kenmerken.LadeType == "Merivobox") then
- _NettoDiepte = (_NettoDiepte - 26);
- end if;
-
- if (DATA.Kenmerken.LadeType == "LegraboxPure") then
- _NettoDiepte = (_NettoDiepte- 27);
- if (DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront) then
- _NettoDiepte = (_NettoDiepte - 13);
- end if;
- end if;
-
- if (DATA.Kenmerken.LadeType == "LegraboxFree") then
- _NettoDiepte = (_NettoDiepte - 27);
- if (DATA.Kenmerken.HeeftLbxBinnenladeGlazenFront) then
- _NettoDiepte = (_NettoDiepte - 13);
- end if;
- end if;
-
- if (DATA.Kenmerken.LadeType == "Taorbox") then
- _NettoDiepte = (_NettoDiepte - 27);
- end if;
-
- if (DATA.Kenmerken.LadeType == "Tandembox") then
- _NettoDiepte = (_NettoDiepte - 27);
- end if;
-
- //Op deze manier ziet de gebruiker geen negatieve waarden.
- if (_NettoDiepte < 0) then
- _NettoDiepte = 0;
- end if;
-
- DATA.Kenmerken.NettoDiepte = _NettoDiepte ;
- end if;
+/*
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults") ) then
+end if;
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
end if;
+*/
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
+ DATA.Kenmerken.NettoDiepte = CDbl(GetArg("data;kenmerken;nettodiepte"));
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
+
+end if;
+*/
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.NettoDiepte = UI.Kenmerken.NettoDiepte;
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+end if;
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
-/*
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
- DATA.Kenmerken.NettoDiepte = CDbl(GetArg("data;kenmerken;nettodiepte"));
-else
- if not(BEHAVIOR.OperationMode == "AxCreate") then
- DATA.Kenmerken.NettoDiepte = UI.Kenmerken.NettoDiepte;
- end if;
end if;
-
+*/
local double _NettoDiepte = CDbl(DATA.Kenmerken.LadeDiepte);
if not(DATA.Kenmerken.ViaNettoDiepte) then
@@ -3276,10 +3006,9 @@
DATA.Kenmerken.NettoDiepte = _NettoDiepte ;
end if;
-*/
DATA waarde instellen
- ;
+ ;data.kenmerken.nettodiepte@value;
true
@@ -3430,89 +3159,93 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults") and (DATA.Kenmerken.UitsparingData.UitsparingAantal == "")) then
DATA.Kenmerken.UitsparingData.UitsparingAantal = Default.Kenmerken.UitsparingData.UitsparingAantal;
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.UitsparingData.UitsparingAantal = GetArg("data;kenmerken;uitsparingdata;uitsparingaantal");
- DATA.Kenmerken.UitsparingData.X.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;x;breedte");".";","));
- DATA.Kenmerken.UitsparingData.M.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;m;breedte");".";","));
- DATA.Kenmerken.UitsparingData.Y.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;y;breedte");".";","));
- DATA.Kenmerken.UitsparingData.Z1.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;breedte");".";","));
- DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;diepte");".";","));
- DATA.Kenmerken.UitsparingData.Z2.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z2;breedte");".";","));
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
-
- end if;
- */
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.UitsparingData.UitsparingAantal = UI.Kenmerken.UitsparingData.UitsparingAantal;
- DATA.Kenmerken.UitsparingData.X.Breedte = UI.Kenmerken.UitsparingData.X.Breedte;
- DATA.Kenmerken.UitsparingData.M.Breedte = UI.Kenmerken.UitsparingData.M.Breedte;
- DATA.Kenmerken.UitsparingData.Y.Breedte = UI.Kenmerken.UitsparingData.Y.Breedte;
- DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.Kenmerken.UitsparingData.Z1.Breedte;
- DATA.Kenmerken.UitsparingData.Z1.Diepte = UI.Kenmerken.UitsparingData.Diepte;
- DATA.Kenmerken.UitsparingData.Z2.Breedte = UI.Kenmerken.UitsparingData.Z2.Breedte;
- end if;
-
- if (DATA.Kenmerken.LadeType in {"LegraboxPure";"LegraboxFree"}) then
- if (DATA.kenmerken.LadeToepassing == "SP") then
- DATA.Kenmerken.UitsparingData.X.Breedte = 158;
- DATA.Kenmerken.UitsparingData.Y.Breedte = 158;
- DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(DATA.kenmerken.LadeDiepte);
- end if;
- end if;
- /*
- if (DATA.Kenmerken.LadeType == "Merivobox") then
+end if;
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
+ DATA.Kenmerken.UitsparingData.UitsparingAantal = Default.Kenmerken.UitsparingData.UitsparingAantal;
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
+ DATA.Kenmerken.UitsparingData.UitsparingAantal = GetArg("data;kenmerken;uitsparingdata;uitsparingaantal");
+ DATA.Kenmerken.UitsparingData.X.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;x;breedte");".";","));
+ DATA.Kenmerken.UitsparingData.M.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;m;breedte");".";","));
+ DATA.Kenmerken.UitsparingData.Y.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;y;breedte");".";","));
+ DATA.Kenmerken.UitsparingData.Z1.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;breedte");".";","));
+ DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;diepte");".";","));
+ DATA.Kenmerken.UitsparingData.Z2.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z2;breedte");".";","));
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
+
+end if;
+*/
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.UitsparingData.UitsparingAantal = UI.Kenmerken.UitsparingData.UitsparingAantal;
+ DATA.Kenmerken.UitsparingData.X.Breedte = UI.Kenmerken.UitsparingData.X.Breedte;
+ DATA.Kenmerken.UitsparingData.M.Breedte = UI.Kenmerken.UitsparingData.M.Breedte;
+ DATA.Kenmerken.UitsparingData.Y.Breedte = UI.Kenmerken.UitsparingData.Y.Breedte;
+ DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.Kenmerken.UitsparingData.Z1.Breedte;
+ DATA.Kenmerken.UitsparingData.Z1.Diepte = UI.Kenmerken.UitsparingData.Diepte;
+ DATA.Kenmerken.UitsparingData.Z2.Breedte = UI.Kenmerken.UitsparingData.Z2.Breedte;
+end if;
+
+if (DATA.Kenmerken.LadeType in {"LegraboxPure";"LegraboxFree"}) then
+ if (DATA.kenmerken.LadeToepassing == "SP") then
+ DATA.Kenmerken.UitsparingData.X.Breedte = 158;
+ DATA.Kenmerken.UitsparingData.Y.Breedte = 158;
+ DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(DATA.kenmerken.LadeDiepte);
end if;
- */
- if (DATA.Kenmerken.LadeType == "Tandembox") then
- if (DATA.kenmerken.LadeToepassing == "SY") then
- DATA.Kenmerken.UitsparingData.Z1.Breedte = 160;
- DATA.Kenmerken.UitsparingData.Z2.Breedte = 160;
- end if;
- if (DATA.kenmerken.LadeToepassing == "SP") then
- DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(DATA.kenmerken.LadeDiepte) - 150;
- end if;
- end if;
- /*
- if (DATA.Kenmerken.LadeType == "Taorbox") then
+end if;
+/*
+if (DATA.Kenmerken.LadeType == "Merivobox") then
+end if;
+*/
+if (DATA.Kenmerken.LadeType == "Tandembox") then
+ if (DATA.kenmerken.LadeToepassing == "SY") then
+ DATA.Kenmerken.UitsparingData.Z1.Breedte = 160;
+ DATA.Kenmerken.UitsparingData.Z2.Breedte = 160;
end if;
- */
if (DATA.kenmerken.LadeToepassing == "SP") then
- DATA.Kenmerken.UitsparingData.UitsparingAantal = "Enkel";
+ DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(DATA.kenmerken.LadeDiepte) - 150;
end if;
-
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
- if not($UitsparingPane@visible) then
- DATA.Kenmerken.UitsparingData.UitsparingAantal = "";
- DATA.Kenmerken.UitsparingData.X.Breedte = 0;
+end if;
+/*
+if (DATA.Kenmerken.LadeType == "Taorbox") then
+
+end if;
+*/
+if (DATA.kenmerken.LadeToepassing == "SP") then
+ DATA.Kenmerken.UitsparingData.UitsparingAantal = "Enkel";
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+ if not($UitsparingPane@visible) then
+ DATA.Kenmerken.UitsparingData.UitsparingAantal = "";
+ DATA.Kenmerken.UitsparingData.X.Breedte = 0;
+ DATA.Kenmerken.UitsparingData.M.Breedte = 0;
+ DATA.Kenmerken.UitsparingData.Y.Breedte = 0;
+ DATA.Kenmerken.UitsparingData.Z1.Breedte = 0;
+ DATA.Kenmerken.UitsparingData.Z1.Diepte = 0;
+ DATA.Kenmerken.UitsparingData.Z2.Breedte = 0;
+ else
+ if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then
DATA.Kenmerken.UitsparingData.M.Breedte = 0;
- DATA.Kenmerken.UitsparingData.Y.Breedte = 0;
- DATA.Kenmerken.UitsparingData.Z1.Breedte = 0;
- DATA.Kenmerken.UitsparingData.Z1.Diepte = 0;
DATA.Kenmerken.UitsparingData.Z2.Breedte = 0;
- else
- if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then
- DATA.Kenmerken.UitsparingData.M.Breedte = 0;
- DATA.Kenmerken.UitsparingData.Z2.Breedte = 0;
- end if;
end if;
-
end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
- end if;
- */
end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
+*/
DATA waarde instellen
- ;data.kenmerken.uitsparingdata.uitsparingaantal@value;
+ ;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.kenmerken.uitsparingdata.x.breedte@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.y.breedte@value;data.kenmerken.uitsparingdata.z1.breedte@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z2.breedte@value;
true
@@ -3726,47 +3459,33 @@
true
-if (STATE.DataKenmerkenInvullenVia in {"InitieleDefaults";"GetriggerdeDefaults"}) then
+if ((STATE.DataKenmerkenInvullenVia == "InitieleDefaults") and (DATA.Kenmerken.VerpakkingType == "")) then
DATA.Kenmerken.VerpakkingType = Default.Kenmerken.VerpakkingType;
-else
- if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
- DATA.Kenmerken.VerpakkingType = GetArg("data;kenmerken;verpakkingtype");
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
- DATA.Kenmerken.VerpakkingType = "ORGALUX";
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "UI") then
- DATA.Kenmerken.VerpakkingType = UI.Kenmerken.VerpakkingType;
- end if;
- /*
- if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
-
- end if;
-
- if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
-
- end if;
-*/
end if;
-/*
-if (BEHAVIOR.InvullenDATAKenmerkenViaGetArgs) then
+if ((STATE.DataKenmerkenInvullenVia == "GetriggerdeDefaults")) then
+ DATA.Kenmerken.VerpakkingType = Default.Kenmerken.VerpakkingType;
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
DATA.Kenmerken.VerpakkingType = GetArg("data;kenmerken;verpakkingtype");
-else
- if (STATE.BijhorendeLadeConfiguratieLoaded) then
- DATA.Kenmerken.VerpakkingType = "ORGALUX";
- end if;
-
- if (STATE.GebruikDefaultWaarden) then
- DATA.Kenmerken.VerpakkingType = DATA.Kenmerken.VerpakkingTypeDefault;
- end if;
-
- if (not(BEHAVIOR.OperationMode == "AxCreate") and not(STATE.BijhorendeLadeConfiguratieLoaded) and not(STATE.GebruikDefaultWaarden)) then
- DATA.Kenmerken.VerpakkingType = UI.Kenmerken.VerpakkingType;
- end if;
end if;
+
+if (STATE.DataKenmerkenInvullenVia == "BijhorendeLade") then
+ DATA.Kenmerken.VerpakkingType = "ORGALUX";
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "UI") then
+ DATA.Kenmerken.VerpakkingType = UI.Kenmerken.VerpakkingType;
+end if;
+/*
+if (STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit") then
+
+end if;
+
+if (STATE.DataKenmerkenInvullenVia == "DefaulterenOnExit") then
+
+end if;
*/
@@ -4260,31 +3979,25 @@
true
-if (not(STATE.DataIsIngevuldViaGetArgs) and (STATE.DataKenmerkenInvullenVia == "GetArgs")) then
+if (not(STATE.DataIsIngevuldViaGetArgs) and (STATE.DataKenmerkenInvullenVia == "InitieleDefaults")) then //DATA ingevuld via gtArgs EN daarna zijn de defaults gezet indien nodig
STATE.DataIsIngevuldViaGetArgs = true
end if;
STATE.DataIsIngevuldViaGetArgs
;state.dataisingevuldviagetargs@value;
-
+
true
- /*
-if ((STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit")) then
- STATE.DataKenmerkenInvullenVia = "DefaultenOnExit";
-end if;
-*/
- StatenFlow DataKenmerkenInvullenVia Fase 2
- ;
-
-
- true
//Volgorder van de if's in deze rule respecteren
+if ((STATE.DataKenmerkenInvullenVia == "BijhorendeLade") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
+ STATE.DataKenmerkenInvullenVia = "InitieleDefaults";
+end if;
+
if (STATE.DataKenmerkenInvullenVia == "InitieleDefaults") then
if not(BEHAVIOR.IsInteractive) then
- STATE.DataKenmerkenInvullenVia = "GetArgs";
+ STATE.DataKenmerkenInvullenVia = "LeegmakenOnExit";
else
if (STATE.BijhorendeLadeConfiguratieLoaded) then
STATE.DataKenmerkenInvullenVia = "BijhorendeLade";
@@ -4294,20 +4007,31 @@
end if;
end if;
-if ((STATE.DataKenmerkenInvullenVia == "BijhorendeLade") and not(STATE.BijhorendeLadeConfiguratieLoaded)) then
- STATE.DataKenmerkenInvullenVia = "UI";
-end if;
+if (STATE.DataKenmerkenInvullenVia == "GetArgs") then
+ if (STATE.BijhorendeLadeConfiguratieLoaded) then
+ STATE.DataKenmerkenInvullenVia = "BijhorendeLade";
+ else
+ STATE.DataKenmerkenInvullenVia = "InitieleDefaults";
+ end if;
+end if;
-
if ((STATE.DataKenmerkenInvullenVia == "LeegmakenOnExit")) then
STATE.DataKenmerkenInvullenVia = "DefaultenOnExit";
end if;
-if ((STATE.DataKenmerkenInvullenVia in {"UI";"GetArgs"}) and (STATE.SavedAndExit or STATE.SavedAndContinue or STATE.KlantVoorkeurenSaved or STATE.ProcessedAndExit) and (DATA.Lijn.IsGeldig)) then
- STATE.DataKenmerkenInvullenVia = "LeegmakenOnExit";
+if ((STATE.DataKenmerkenInvullenVia in {"UI";"InitieleDefaults"}) and (STATE.SavedAndExit or STATE.SavedAndContinue or STATE.KlantVoorkeurenSaved or STATE.ProcessedAndExit)) then
+ if not(BEHAVIOR.IsInteractive) then
+ STATE.DataKenmerkenInvullenVia = "LeegmakenOnExit";
+ else
+ if (DATA.Lijn.IsGeldig) then
+ STATE.DataKenmerkenInvullenVia = "LeegmakenOnExit";
+ else
+ local string Dummy = "We mogen pas naar leegmakenOnExit bij een geldige configuratie in interactieve modus";
+ end if;
+ end if;
end if;
- StatenFlow DataKenmerkenInvullenVia Fase 1
+ StatenFlow DataKenmerkenInvullenVia
;state.datakenmerkeninvullenvia@value;