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
CONFIG.Bulkwijzigingen.Isbulkconfiguratie = CBool(GetArg("isbulkconfiguratie")); // Alleen in AX
CONFIG.Bulkwijzigingen.ReferentieConfiguratieId = GetArg("referentieconfiguratieid"); // Alleen in AX
CONFIG.Bulkwijzigingen.BulkConfiguratieId = GetArg("bulkconfiguratieid"); // Alleen in AX
CONFIG.Bulkwijzigingen.TotaalAantalGepersisteerdeProperties = GetArg("totaalaantalgepersisteerdeproperties"); // Alleen in AX
Algemene input parameters ophalen
;config.backend@value;config.processmode@value;config.token@value;config.language@value;config.initiator@value;config.bulkwijzigingen.isbulkconfiguratie@value;config.bulkwijzigingen.referentieconfiguratieid@value;config.bulkwijzigingen.bulkconfiguratieid@value;config.bulkwijzigingen.totaalaantalgepersisteerdeproperties@value;
true
BEHAVIOR.IsEconAx = (CONFIG.Backend == "axapta");
BEHAVIOR.IsEconWeb = (CONFIG.Backend <> "axapta");
Instellen Gedrag Omgeving
;behavior.iseconax@value;behavior.iseconweb@value;
BEHAVIOR.IsEconAx
local string _Configuration = GetArg("configuration");
local string _BEHAVIOR_AccessMode;
local string _BEHAVIOR_OperationMode;
local string _BEHAVIOR_ContextName;
local boolean _IsNieuweIngaveInAx = (DATA.Lijn.GroeperingCode == ""); // Tijdelijk getest via GroeperingCode ingevuld; [TODO] vind een goede manier om de AxNew te bepalen.
local boolean _IsEditEdiFromSalesOrderIn;
local boolean _IsInitiatorAxMsgTableSalesOrderIn = (CONFIG.Initiator == "Ax.MsgTableSalesOrderIn");
_BEHAVIOR_AccessMode = "Intern"; // Voor AX is AccessMode altijd "Intern". (voorlopig toch)
_BEHAVIOR_OperationMode = "";
if (CONFIG.ProcessMode == "Background") then
_BEHAVIOR_OperationMode = "AxCreate";
else
if (_IsNieuweIngaveInAx) then
_BEHAVIOR_OperationMode = "New";
else
_BEHAVIOR_OperationMode = "Edit";
end if;
end if;
_BEHAVIOR_ContextName = "null";
if (CONFIG.ProcessMode == "Background") then
_BEHAVIOR_ContextName = "AxCreateVH4";
if ((CONFIG.Bulkwijzigingen.ReferentieConfiguratieId <> "") and (CONFIG.Bulkwijzigingen.BulkConfiguratieId <> "")) then
_BEHAVIOR_ContextName = "AxCreateBulkWijzigingenToepassen";
end if;
if (_IsInitiatorAxMsgTableSalesOrderIn) then
_BEHAVIOR_ContextName = "AxCreateEdi";
end if;
/* * /
_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;
/* */
else
if (_IsNieuweIngaveInAx) then
if (CONFIG.Bulkwijzigingen.Isbulkconfiguratie) then
_BEHAVIOR_ContextName = "AxNewBulkIngave";
else
_BEHAVIOR_ContextName = "AxNew";
end if;
else
_IsEditEdiFromSalesOrderIn = _IsInitiatorAxMsgTableSalesOrderIn;
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");
BEHAVIOR.IsAxCreate = ((_BEHAVIOR_OperationMode == "New") or (_BEHAVIOR_OperationMode == "AxCreate"));
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;behavior.isaxcreate@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
local string _AxKlantId = GetArg("AxKlantId");
local string _GeconverteerdeKlantId = CStr(CLng(_AxKlantId));
CONFIG.Settings.KlantId = _GeconverteerdeKlantId;
local string _OorsprongKetting = GetArg("OorsprongKetting");
if (not (_OorsprongKetting == "")) then
local long _PositieInOorsprongKettingNaOpeningshaakjes = 3;
local long _PositieEersteKommaInOorsprongKetting = CLng(InStr(1; _OorsprongKetting; ","));
local long _AantalKaraktersVanPersonalityId = _PositieEersteKommaInOorsprongKetting - _PositieInOorsprongKettingNaOpeningshaakjes;
local string _PersonalityId = Mid(_OorsprongKetting; _PositieInOorsprongKettingNaOpeningshaakjes; _AantalKaraktersVanPersonalityId);
CONFIG.Settings.PersonalityId = _PersonalityId;
local long _PositieEersteAanhalingstekenInOorsprongKetting = CLng(InStr(1; _OorsprongKetting; "\""));
local string _OorsprongKettingVanafPersonalityKlantId = Mid(_OorsprongKetting; _PositieEersteAanhalingstekenInOorsprongKetting + 1);
local long _PositieTweedeAanhalingstekenInOorsprongKetting = CLng(InStr(1; _OorsprongKettingVanafPersonalityKlantId; "\"")) + _PositieEersteAanhalingstekenInOorsprongKetting;
local long _AantalKaraktersVanPersonalityKlantId = _PositieTweedeAanhalingstekenInOorsprongKetting - _PositieEersteAanhalingstekenInOorsprongKetting - 1;
local string _PersonalityKlantId = Mid(_OorsprongKetting; _PositieEersteAanhalingstekenInOorsprongKetting + 1; _AantalKaraktersVanPersonalityKlantId);
if (CONFIG.Settings.PersonalityId == "1") then
_PersonalityKlantId = Mid(_PersonalityKlantId; 4); // Bij Personality Van Hoecke moet "K||" eraf gestript worden.
else
local long _PositieEersteUnderscoreInPersonalityKlantId = CLng(InStr(1; _PersonalityKlantId; "_"));
_PersonalityKlantId = Mid(_PersonalityKlantId; _PositieEersteUnderscoreInPersonalityKlantId + 1); // Bij andere Personalities moet de prefix eraf gestript worden.
end if;
CONFIG.Settings.PersonalityKlantId = _PersonalityKlantId;
end if;
if (CONFIG.Settings.PersonalityId == "") then
CONFIG.Settings.PersonalityId = "1";
CONFIG.Settings.PersonalityKlantId = CONFIG.Settings.KlantId;
end if;
CONFIG.Settings.AXUserId = GetArg("axuserid");
CONFIG.Settings.IsMaatwerkViewerToegelaten = CBool(GetArg("IsMaatwerkViewerToegelaten"));
/*
if (GetArg("FrontBevestigingVerbergen") <> "") then CONFIG.Settings.FrontBevestigingVerbergen = CBool(GetArg("FrontBevestigingVerbergen")) end if;
if (GetArg("VoorwandTypeVanMBinnenladeGlasToegelaten") <> "") then CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten = CBool(GetArg("VoorwandTypeVanMBinnenladeGlasToegelaten")) end if;
if (GetArg("VerpakkingVHossToegelaten") <> "") then CONFIG.Settings.VerpakkingVHossToegelaten= CBool(GetArg("VerpakkingVHossToegelaten")) end if;
if (GetArg("VerpakkingPalletToegelaten") <> "") then CONFIG.Settings.VerpakkingPalletToegelaten = CBool(GetArg("VerpakkingPalletToegelaten")) end if;
if (GetArg("VerpakkingProboxToegelaten") <> "") then CONFIG.Settings.VerpakkingProboxToegelaten= CBool(GetArg("VerpakkingProboxToegelaten")) end if;
if (GetArg("IsBenelux") <> "") then CONFIG.Settings.IsBenelux= CBool(GetArg("IsBenelux")) end if;
if (GetArg("NietMeeleverenVerbergen") <> "") then CONFIG.Settings.NietMeeleverenVerbergen= CBool(GetArg("NietMeeleverenVerbergen")) end if;
if (GetArg("MatMateriaalAntislipToegelaten") <> "") then CONFIG.Settings.MatMateriaalAntislipToegelaten= CBool(GetArg("MatMateriaalAntislipToegelaten")) end if;
if (GetArg("VerpakkingTooltipsTonen") <> "") then CONFIG.Settings.VerpakkingTooltipsTonen = CBool(GetArg("VerpakkingTooltipsTonen")) end if;
if (GetArg("IsAfwijkendeRugHoogteToegelaten") <> "") then CONFIG.Settings.IsAfwijkendeRugHoogteToegelaten= CBool(GetArg("IsAfwijkendeRugHoogteToegelaten")) end if;
if (GetArg("IsExportKlant") <> "") then CONFIG.Settings.IsExportKlant= CBool(GetArg("IsExportKlant")) end if;
*/
SalesTableAx = GetArg("SalesTableAx");
If (not(GetArg("DwarsverdelingTypeToegelaten") == "")) then
CONFIG.Settings.DwarsverdelingTypeToegelaten = CBool(GetArg("DwarsverdelingTypeToegelaten"));
end if;
Settings ophalen uit argumenten
;config.settings.klantid@value;config.settings.personalityid@value;config.settings.personalityklantid@value;config.settings.axuserid@value;config.settings.ismaatwerkviewertoegelaten@value;salestableax@value;config.settings.dwarsverdelingtypetoegelaten@value;
BEHAVIOR.IsAxCreate
CONFIG.CreateContext.KeyValue@Length = 8;
CONFIG.CreateContext.KeyValue(1).Name = "ProcessMode";
CONFIG.CreateContext.KeyValue(1).Value = CONFIG.ProcessMode;
CONFIG.CreateContext.KeyValue(2).Name = "OperationMode";
CONFIG.CreateContext.KeyValue(2).Value = BEHAVIOR.OperationMode;
CONFIG.CreateContext.KeyValue(3).Name = "ContextName";
CONFIG.CreateContext.KeyValue(3).Value = BEHAVIOR.ContextName;
CONFIG.CreateContext.KeyValue(4).Name = "axuserid";
CONFIG.CreateContext.KeyValue(4).Value = GetArg("axuserid");
CONFIG.CreateContext.KeyValue(5).Name = "IsMaatwerkViewerToegelaten";
CONFIG.CreateContext.KeyValue(5).Value = GetArg("IsMaatwerkViewerToegelaten");
CONFIG.CreateContext.KeyValue(6).Name = "SalesTableAx";
CONFIG.CreateContext.KeyValue(6).Value = GetArg("SalesTableAx");
CONFIG.CreateContext.KeyValue(7).Name = "AxKlantId";
CONFIG.CreateContext.KeyValue(7).Value = GetArg("AxKlantId");
CONFIG.CreateContext.KeyValue(8).Name = "OorsprongKetting";
CONFIG.CreateContext.KeyValue(8).Value = GetArg("OorsprongKetting");
/*
CONFIG.CreateContext.KeyValue(9).Name = "FrontBevestigingVerbergen";
CONFIG.CreateContext.KeyValue(9).Value = GetArg("FrontBevestigingVerbergen");
CONFIG.CreateContext.KeyValue(10).Name = "VoorwandTypeVanMBinnenladeGlasToegelaten";
CONFIG.CreateContext.KeyValue(10).Value = GetArg("VoorwandTypeVanMBinnenladeGlasToegelaten");
CONFIG.CreateContext.KeyValue(11).Name = "VerpakkingVHossToegelaten";
CONFIG.CreateContext.KeyValue(11).Value = GetArg("VerpakkingVHossToegelaten");
CONFIG.CreateContext.KeyValue(12).Name = "VerpakkingPalletToegelaten";
CONFIG.CreateContext.KeyValue(12).Value = GetArg("VerpakkingPalletToegelaten");
CONFIG.CreateContext.KeyValue(13).Name = "VerpakkingProboxToegelaten";
CONFIG.CreateContext.KeyValue(13).Value = GetArg("VerpakkingProboxToegelaten");
CONFIG.CreateContext.KeyValue(14).Name = "IsBenelux";
CONFIG.CreateContext.KeyValue(14).Value = GetArg("IsBenelux");
CONFIG.CreateContext.KeyValue(14).Name = "NietMeeleverenVerbergen";
CONFIG.CreateContext.KeyValue(14).Value = GetArg("NietMeeleverenVerbergen");
CONFIG.CreateContext.KeyValue(15).Name = "MatMateriaalAntislipToegelaten";
CONFIG.CreateContext.KeyValue(15).Value = GetArg("MatMateriaalAntislipToegelaten");
CONFIG.CreateContext.KeyValue(16).Name = "VerpakkingTooltipsTonen";
CONFIG.CreateContext.KeyValue(16).Value = GetArg("VerpakkingTooltipsTonen");
CONFIG.CreateContext.KeyValue(17).Name = "IsAfwijkendeRugHoogteToegelaten";
CONFIG.CreateContext.KeyValue(17).Value = GetArg("IsAfwijkendeRugHoogteToegelaten");
CONFIG.CreateContext.KeyValue(18).Name = "IsExportKlant";
CONFIG.CreateContext.KeyValue(18).Value = GetArg("IsExportKlant");
CONFIG.CreateContext.KeyValue(19).Name = "VerpakkingTooltipsTonen";
CONFIG.CreateContext.KeyValue(19).Value = GetArg("VerpakkingTooltipsTonen");
*/
CreateContext ophalen uit argumenten
;config.createcontext.keyvalue[1].name@value;config.createcontext.keyvalue[1].value@value;
(CONFIG.ProcessMode == "Background") and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"})
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.DwarsverdelingType = GetArg("data;kenmerken;dwarsverdelingtype");
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.LadeKleurBuiten = GetArg("data;kenmerken;ladekleurbuiten");
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.dwarsverdelingtype@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.ladekleurbuiten@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");
local boolean _IsAxUserIdNietMeegegeven = (BEHAVIOR.IsEconAx and (GetArg("axuserid") == "")); // Bron = Generic Model form in AX
if ((LCase(_DebugMode) == "true") or _IsAxUserIdNietMeegegeven) 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;
not(BEHAVIOR.ContextName == "AxNewBulkIngave")
local boolean _Result = CopyOptionsToArray("UI.Kenmerken.NietMeeleverenOptions"; "UI.Kenmerken.NietMeeleveren");
index i of UI.Kenmerken.NietMeeleveren
UI.Kenmerken.NietMeeleveren(i)@label = DATA.Kenmerken.NietMeeleveren@label;
UI.Kenmerken.NietMeeleveren(i)@repeat = false;
UI.Kenmerken.NietMeeleveren(i).IsSelected@style.controlclass = "vh-slidercheckbox";
UI.Kenmerken.NietMeeleveren(i).Text@style.controlclass = "vh-checkboxlist-item";
UI.Kenmerken.NietMeeleveren(i).Text = GetLocalizedLabel(UI.Kenmerken.NietMeeleveren(i).Text);
end index;
NietMeeleveren
;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)
;
true
local collection _ExportPersonalities = {"3";"10";"11";"13";"14";"16";"17";"18";"19";"20";"32";"33";"34";"35";"36";"37";"38";"39";"40";"41";"42";"43";"44";"45"; "48"; "49"; "50"; "51"; "52"; "53"; "54"; "55"; "56"; "57"; "58"; "59"; "61"; "62"; "63"; "64"; "65"; "66"; "67"; "68"; "69"; "70"; "71"; "72"; "73"; "74"};
BEHAVIOR.IsExportPersonality = (Config.Settings.PersonalityId in _ExportPersonalities);
Config settings ExportPersonalities
;behavior.isexportpersonality@value;
(CONFIG.Token <> "") and (Config.Backend <> "axapta")
// 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;
CONFIG.Settings.VerpakkingProboxToegelaten = 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;
// HAEFELE DE
if (Config.Settings.PersonalityId == "33") then
Config.Settings.VerpakkingTooltipsTonen = true;
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;
// OPO && OPO Duitsland && Blum CZ
if ((((Config.Settings.PersonalityId == "1") and (Config.Settings.KlantId == "30467")) or (Config.Settings.PersonalityId == "41")) or (((Config.Settings.PersonalityId == "1") and (Config.Settings.KlantId == "39481")) or (Config.Settings.PersonalityId == "71")) or (((Config.Settings.PersonalityId == "1") and (Config.Settings.KlantId == "39580")) or (Config.Settings.PersonalityId == "74"))) then
Config.Settings.DwarsverdelingTypeToegelaten = false;
end if;
//Blum Polen
if ((Config.Settings.PersonalityId == "48") or (Config.Settings.KlantId == "37598")) then
Config.Settings.FrontBevestigingSchroefToegelaten = false;
BEHAVIOR.IsMaximaleBreedteBeperktTot1168Mm = true;
end if;
Config settings hardcoded (settings voor de MP)
;config.settings.frontbevestigingverbergen@value;config.settings.isbenelux@value;config.settings.nietmeeleverenverbergen@value;config.settings.verpakkingproboxtoegelaten@value;config.settings.voorwandtypevanmbinnenladeglastoegelaten@value;config.settings.verpakkingtooltipstonen@value;config.settings.matmateriaalantisliptoegelaten@value;config.settings.dwarsverdelingtypetoegelaten@value;config.settings.frontbevestigingschroeftoegelaten@value;behavior.ismaximalebreedtebeperkttot1168mm@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'";
UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.StartMaatwerkViewer','true'";
UI.Buttons.Top.ProcessButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.ProcessedAndExit','true'|task:eCon.UI.Tasks.ProcessAndExitTask";
/*
UI.Buttons.Top.ProcessButton = "task:eCon.UI.Tasks.ProcessAndExitTask";
if (CONFIG.Backend == "axapta") then
STATE.ProcessedAndExit = true;
end if;
*/
UI.Buttons.Bottom.SaveAndExitButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndExit','true'";
UI.Buttons.Bottom.SaveAndContinueButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndContinue','true'";
local boolean _IsEditMode = (CONFIG.InputMode == "Edit");
local string _LabelSave = UI.Buttons.Top.SaveAndExitButton@label;
if (_IsEditMode) then
_LabelSave = TRL.SaveChangesButton@label;
end if;
UI.Buttons.Top.SaveAndExitButton@label = _LabelSave;
UI.Buttons.Bottom.SaveAndExitButton@label = _LabelSave;
UI.Buttons.Top.SaveAndExitButton@visible = (CONFIG.Backend <> "axapta");
UI.Buttons.Top.SaveAndContinueButton@visible = not(_IsEditMode) and (CONFIG.Backend <> "axapta") and not(Config.Bulkwijzigingen.IsBulkConfiguratie);
UI.Buttons.Top.PreferencesButton@visible = (CONFIG.Backend <> "axapta") and not(Config.Bulkwijzigingen.IsBulkConfiguratie);
UI.Buttons.Top.ProcessButton@visible = ((CONFIG.Backend == "axapta") and not(BEHAVIOR.ContextName == "AxNewBulkIngave"));
UI.Buttons.Bottom.SaveAndExitButton@visible = (CONFIG.Backend <> "axapta");
UI.Buttons.Bottom.SaveAndContinueButton@visible = not(_IsEditMode) and (CONFIG.Backend <> "axapta") and not(Config.Bulkwijzigingen.IsBulkConfiguratie);
UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@label = "Maatwerk Viewer";
Buttons
;ui.buttons.top.saveandexitbutton@default;ui.buttons.top.saveandcontinuebutton@default;ui.buttons.top.cancelbutton@default;ui.buttons.top.preferencesbutton@default;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@default;ui.buttons.top.processbutton@default;ui.buttons.bottom.saveandexitbutton@default;ui.buttons.bottom.saveandcontinuebutton@default;ui.buttons.top.saveandexitbutton@visible;ui.buttons.top.saveandcontinuebutton@visible;ui.buttons.top.preferencesbutton@visible;ui.buttons.top.processbutton@visible;ui.buttons.bottom.saveandexitbutton@visible;ui.buttons.bottom.saveandcontinuebutton@visible;
not(BEHAVIOR.ContextName == "AxNewBulkIngave")
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.LadeKleurBuiten;
for i = 1 to len(UI.Kenmerken.LadeKleurBuiten@options)
UI.Kenmerken.LadeKleurBuiten= UI.Kenmerken.LadeKleurBuiten@option(i)@id;
UI.Kenmerken.LadeKleurBuiten.Text = DATA.Kenmerken.LadeKleurBuiten@option(i)@label;
end for;
UI.Kenmerken.LadeKleurBuiten= 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;
SelectedOption = UI.Kenmerken.DwarsverdelingType;
for i = 1 to len(UI.Kenmerken.DwarsverdelingType@options)
UI.Kenmerken.DwarsverdelingType= UI.Kenmerken.DwarsverdelingType@option(i)@id;
UI.Kenmerken.DwarsverdelingType.Text = DATA.Kenmerken.DwarsverdelingType@option(i)@label;
end for;
UI.Kenmerken.DwarsverdelingType= SelectedOption;
Vertalingen UI image labels
;ui.kenmerken.bodemkleur@value;ui.kenmerken.ladekleur@value;ui.kenmerken.ladekleurbuiten@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;ui.kenmerken.dwarsverdelingtype@value;
(BEHAVIOR.ContextName == "AxNewBulkIngave") or (BEHAVIOR.IsInteractive and BEHAVIOR.IsEconWeb)
local string SelectedOption = "";
SelectedOption = UI.BulkKenmerken.BodemKleur;
for i = 1 to len(UI.BulkKenmerken.BodemKleur@options)
UI.BulkKenmerken.BodemKleur = UI.BulkKenmerken.BodemKleur@option(i)@id;
UI.BulkKenmerken.BodemKleur.Text = DATA.BulkKenmerken(1).BodemKleur@option(i)@label;
end for;
UI.BulkKenmerken.BodemKleur= SelectedOption;
SelectedOption = UI.BulkKenmerken.DwarsverdelingType;
for i = 1 to len(UI.BulkKenmerken.DwarsverdelingType@options)
UI.BulkKenmerken.DwarsverdelingType = UI.BulkKenmerken.DwarsverdelingType@option(i)@id;
UI.BulkKenmerken.DwarsverdelingType.Text = DATA.BulkKenmerken(1).DwarsverdelingType@option(i)@label;
end for;
UI.BulkKenmerken.DwarsverdelingType= SelectedOption;
SelectedOption = UI.BulkKenmerken.LadeKleur;
for i = 1 to len(UI.BulkKenmerken.LadeKleur@options)
UI.BulkKenmerken.LadeKleur = UI.BulkKenmerken.LadeKleur@option(i)@id;
UI.BulkKenmerken.LadeKleur.Text = DATA.BulkKenmerken(1).LadeKleur@option(i)@label;
end for;
UI.BulkKenmerken.LadeKleur = SelectedOption;
SelectedOption = UI.BulkKenmerken.LadeKleurBuiten;
for i = 1 to len(UI.BulkKenmerken.LadeKleurBuiten@options)
UI.BulkKenmerken.LadeKleurBuiten= UI.BulkKenmerken.LadeKleurBuiten@option(i)@id;
UI.BulkKenmerken.LadeKleurBuiten.Text = DATA.BulkKenmerken(1).LadeKleurBuiten@option(i)@label;
end for;
UI.BulkKenmerken.LadeKleurBuiten = SelectedOption;
SelectedOption = UI.BulkKenmerken.MatAntislipFiberKleur;
for i = 1 to len(UI.BulkKenmerken.MatAntislipFiberKleur@options)
UI.BulkKenmerken.MatAntislipFiberKleur = UI.BulkKenmerken.MatAntislipFiberKleur@option(i)@id;
UI.BulkKenmerken.MatAntislipFiberKleur.Text = GetLocalizedLabel("MatAntislipFiberKleur_" + UI.BulkKenmerken.MatAntislipFiberKleur);
end for;
UI.BulkKenmerken.MatAntislipFiberKleur = SelectedOption;
SelectedOption = UI.BulkKenmerken.MatAntislipFlockKleur;
for i = 1 to len(UI.BulkKenmerken.MatAntislipFlockKleur@options)
UI.BulkKenmerken.MatAntislipFlockKleur = UI.BulkKenmerken.MatAntislipFlockKleur@option(i)@id;
UI.BulkKenmerken.MatAntislipFlockKleur.Text = GetLocalizedLabel("MatAntislipFlockKleur_" + UI.BulkKenmerken.MatAntislipFlockKleur);
end for;
UI.BulkKenmerken.MatAntislipFlockKleur = SelectedOption;
SelectedOption = UI.BulkKenmerken.MatMateriaal;
for i = 1 to len(UI.BulkKenmerken.MatMateriaal@options)
UI.BulkKenmerken.MatMateriaal = UI.BulkKenmerken.MatMateriaal@option(i)@id;
UI.BulkKenmerken.MatMateriaal.Text = DATA.BulkKenmerken(1).MatMateriaal@option(UI.BulkKenmerken.MatMateriaal.Value)@label;
end for;
UI.BulkKenmerken.MatMateriaal = SelectedOption;
SelectedOption = UI.BulkKenmerken.MatVinylFiberglassKleur;
for i = 1 to len(UI.BulkKenmerken.MatVinylFiberglassKleur@options)
UI.BulkKenmerken.MatVinylFiberglassKleur = UI.BulkKenmerken.MatVinylFiberglassKleur@option(i)@id;
UI.BulkKenmerken.MatVinylFiberglassKleur.Text = GetLocalizedLabel("MatVinylFiberglassKleur_" + UI.BulkKenmerken.MatVinylFiberglassKleur);
end for;
UI.BulkKenmerken.MatVinylFiberglassKleur = SelectedOption;
SelectedOption = UI.BulkKenmerken.OpvullijstKleur;
for i = 1 to len(UI.BulkKenmerken.OpvullijstKleur@options)
UI.BulkKenmerken.OpvullijstKleur = UI.BulkKenmerken.OpvullijstKleur@option(i)@id;
UI.BulkKenmerken.OpvullijstKleur.Text = DATA.BulkKenmerken(1).OpvullijstKleur@option(i)@label;
end for;
UI.BulkKenmerken.OpvullijstKleur = SelectedOption;
SelectedOption = UI.BulkKenmerken.VoorwandTypeVanCBinnenlade;
for i = 1 to len(UI.BulkKenmerken.VoorwandTypeVanCBinnenlade@options)
UI.BulkKenmerken.VoorwandTypeVanCBinnenlade = UI.BulkKenmerken.VoorwandTypeVanCBinnenlade@option(i)@id;
UI.BulkKenmerken.VoorwandTypeVanCBinnenlade.Text = DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade@option(i)@label;
end for;
UI.BulkKenmerken.VoorwandTypeVanCBinnenlade= SelectedOption;
SelectedOption = UI.BulkKenmerken.VoorwandTypeVanMBinnenlade;
for i = 1 to len(UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@options)
UI.BulkKenmerken.VoorwandTypeVanMBinnenlade = UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@option(i)@id;
UI.BulkKenmerken.VoorwandTypeVanMBinnenlade.Text = DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade@option(i)@label;
end for;
UI.BulkKenmerken.VoorwandTypeVanMBinnenlade= SelectedOption;
SelectedOption = UI.BulkKenmerken.VoorwandTypeVanKBinnenlade;
for i = 1 to len(UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@options)
UI.BulkKenmerken.VoorwandTypeVanKBinnenlade = UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@option(i)@id;
UI.BulkKenmerken.VoorwandTypeVanKBinnenlade.Text = DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade@option(i)@label;
end for;
UI.BulkKenmerken.VoorwandTypeVanKBinnenlade= SelectedOption;
SelectedOption = UI.BulkKenmerken.ZijwandType;
for i = 1 to len(UI.BulkKenmerken.ZijwandType@options)
UI.BulkKenmerken.ZijwandType = UI.BulkKenmerken.ZijwandType@option(i)@id;
UI.BulkKenmerken.ZijwandType.Text = DATA.BulkKenmerken(1).ZijwandType@option(i)@label;
end for;
UI.BulkKenmerken.ZijwandType = SelectedOption;
Vertalingen bulk UI image labels
;ui.bulkkenmerken.bodemkleur@value;ui.bulkkenmerken.dwarsverdelingtype@value;ui.bulkkenmerken.ladekleur@value;ui.bulkkenmerken.ladekleurbuiten@value;ui.bulkkenmerken.matantislipfiberkleur@value;ui.bulkkenmerken.matantislipflockkleur@value;ui.bulkkenmerken.matmateriaal@value;ui.bulkkenmerken.matvinylfiberglasskleur@value;ui.bulkkenmerken.opvullijstkleur@value;ui.bulkkenmerken.voorwandtypevancbinnenlade@value;ui.bulkkenmerken.voorwandtypevanmbinnenlade@value;ui.bulkkenmerken.voorwandtypevankbinnenlade@value;ui.bulkkenmerken.zijwandtype@value;
true
local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern");
//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;
UI.BulkKenmerken.FrontBevestiging@option("D")@visible = _IsIntern;
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;
UI.Kenmerken.NietMeeleveren(i)@visible = (_IsZichtbaarIntern or _IsZichtbaarExtern);
end index;
UI.Kenmerken.Toepassing@option("SST")@visible = true; //Dit mag weg van zodra SpaceStep live is
DATA.BulkKenmerken@length = 1;
Beperkingen Intern/Extern
;ui.kenmerken.opvullijstkleur@options;ui.kenmerken.matmateriaal@options;ui.kenmerken.frontbevestiging@options;ui.bulkkenmerken.frontbevestiging@options;ui.kenmerken.toepassing@options;
true
UI.Kenmerken.VoorwandTypeVanMBinnenlade@option("Glas")@visible = (UI.Kenmerken.VoorwandTypeVanMBinnenlade@option("Glas")@visible and Config.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten);
UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@option("Glas")@visible = (UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@option("Glas")@visible and Config.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten);
Beperkingen Settings
;ui.kenmerken.voorwandtypevanmbinnenlade@options;ui.bulkkenmerken.voorwandtypevanmbinnenlade@options;
(CONFIG.Settings.KlantId == "6819")
Config.Settings.IsBeschikbaarVoorKlant = true
IsBeschikbaarVoorKlant
;config.settings.isbeschikbaarvoorklant@value;
true
STATE.Initialized = false;
Einde initialisatie
;state.initialized@value;
BEHAVIOR.IsEconWeb
if ((BEHAVIOR.OperationMode == "CreateConfig") and ((CONFIG.Bulkwijzigingen.ReferentieConfiguratieId <> "") and (CONFIG.Bulkwijzigingen.BulkConfiguratieId <> ""))) then
BEHAVIOR.OperationMode = "WebCreateBulkWijzigingenToepassen";
end if;
if ((BEHAVIOR.ContextName == "WebShopNew") and (CONFIG.Bulkwijzigingen.IsBulkConfiguratie)) then
BEHAVIOR.ContextName = "WebShopNewBulkIngave";
end if;
Gedrag OperationMode en ContextName (Web)
;behavior.operationmode@value;behavior.contextname@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 = CONFIG.Settings.VerpakkingPalletToegelaten;
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;
UI.BulkKenmerken.VerpakkingType@option("Probox")@visible = _BEHAVIOR_IsVerpakkingProboxZichtbaar;
UI.BulkKenmerken.VerpakkingType@option("VHoss")@visible = _BEHAVIOR_IsVerpakkingVHossZichtbaar;
UI.BulkKenmerken.VerpakkingType@option("Pallet")@visible = _BEHAVIOR_IsVerpakkingPalletZichtbaar;
Gedrag Verpakkingen instellen
;ui.kenmerken.verpakkingtype@options;ui.bulkkenmerken.verpakkingtype@options;
STATE.VerpakkingTooltipsTrigger
local string _SelectedOption = "";
if not(Config.Settings.VerpakkingTooltipsTonen) then
_SelectedOption = UI.Kenmerken.VerpakkingType;
for i = 1 to len(DATA.Kenmerken.VerpakkingType@options)
UI.Kenmerken.VerpakkingType = DATA.Kenmerken.VerpakkingType@option(i)@id;
UI.Kenmerken.VerpakkingType.Url = "";
end for;
UI.Kenmerken.VerpakkingType = _SelectedOption;
_SelectedOption = UI.BulkKenmerken.VerpakkingType;
for i = 1 to len(DATA.BulkKenmerken(1).VerpakkingType@options)
UI.BulkKenmerken.VerpakkingType = DATA.BulkKenmerken(1).VerpakkingType@option(i)@id;
UI.BulkKenmerken.VerpakkingType.Url = "";
end for;
UI.BulkKenmerken.VerpakkingType = _SelectedOption;
end if;
STATE.VerpakkingTooltipsTrigger = false;
Gedrag Verpakkingen Tooltips instellen
;ui.kenmerken.verpakkingtype@value;ui.bulkkenmerken.verpakkingtype@value;state.verpakkingtooltipstrigger@value;
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;
// Override all lines above!
_BEHAVIOR_MatMateriaalAntislipToegelaten = false; // Antislip (AGO)
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;
not((BEHAVIOR.ContextName == "AxNewBulkIngave") or (BEHAVIOR.ContextName == "WebShopNewBulkIngave"))
local string _VorigeSoortVerpakking = UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde;
UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde = UI.Kenmerken.VerpakkingType;
if (BEHAVIOR.IsInteractive and (CONFIG.InputMode == "New")) then
if (_VorigeSoortVerpakking <> UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde) and (_VorigeSoortVerpakking <> "") 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") and not(_VorigeSoortVerpakking in {"V1";"Probox";""})) 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;
(BEHAVIOR.ContextName == "AxNewBulkIngave") or (BEHAVIOR.ContextName == "WebShopNewBulkIngave")
local string _VorigeSoortVerpakking = UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde;
UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde = UI.BulkKenmerken.VerpakkingType;
if (_VorigeSoortVerpakking <> UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde) then
if (UI.BulkKenmerken.VerpakkingType == "Pallet" or UI.BulkKenmerken.VerpakkingType == "VHoss") then
UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen = "True";
UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten = "True";
UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder = "True";
UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront = "True";
UI.BulkKenmerken.NietMeeleveren_FrontBevestiging = "True";
UI.BulkKenmerken.NietMeeleveren_Geleider = "True";
UI.BulkKenmerken.NietMeeleveren_Opvullijst = "True";
UI.BulkKenmerken.NietMeeleveren_Zijstabilisering = "True";
end if;
if ((UI.BulkKenmerken.VerpakkingType <> "Pallet") and (UI.BulkKenmerken.VerpakkingType <> "VHoss") and not(_VorigeSoortVerpakking in {"V1";"Probox";""})) then
UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen = "NietWijzigen";
UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten = "NietWijzigen";
UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder = "NietWijzigen";
UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront = "NietWijzigen";
UI.BulkKenmerken.NietMeeleveren_FrontBevestiging = "NietWijzigen";
UI.BulkKenmerken.NietMeeleveren_Geleider = "NietWijzigen";
UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor = "NietWijzigen";
UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant = "NietWijzigen";
UI.BulkKenmerken.NietMeeleveren_Opvullijst = "NietWijzigen";
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet = "NietWijzigen";
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = "NietWijzigen";
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang = "NietWijzigen";
UI.BulkKenmerken.NietMeeleveren_Zijstabilisering = "NietWijzigen";
end if;
end if;
Gedrag niet meeleveren opties selecteren indien VerpakkingType VHoss/Pallet (bulkconfig)
;ui.propertiesenkelvoorincodevanrules.verpakkingtypevorigewaarde@value;
true
local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern");
local boolean _BEHAVIOR_IsNietMeeleverenZichtbaarVolgensSpaceStep;
local collection _TOBProducten= {"TiponBlumotionSet";"TiponBlumotionSetEenhedenEnMeenemers"; "TiponBlumotionSynchronisatieStang"};
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 <> "InschuifElementZijkant") and not(UI.Kenmerken.NietMeeleveren(i).Id in _TOBProducten)) then //Deze worden opgevangen in andere rules
UI.Kenmerken.NietMeeleveren(i)@visible = ((_IsZichtbaarIntern or _IsZichtbaarExtern) and _BEHAVIOR_IsNietMeeleverenZichtbaarVolgensSpaceStep);
end if;
end index;
Gedrag niet meeleveren zichtbaarheid
;
true
local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern");
UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen@visible = ((not(_IsIntern) and ("AfdekkapBinnen" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern);
UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten@visible = ((not(_IsIntern) and ("AfdekkapBuiten" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern);
UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder@visible = ((not(_IsIntern) and ("AfdekkapRugwandHouder" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern);
UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront@visible = ((not(_IsIntern) and ("BevestigingBodemFront" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern);
UI.BulkKenmerken.NietMeeleveren_FrontBevestiging@visible = ((not(_IsIntern) and ("FrontBevestiging" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern);
UI.BulkKenmerken.NietMeeleveren_Geleider@visible = ((not(_IsIntern) and ("Geleider" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern);
UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor@visible = ((not(_IsIntern) and ("InschuifElementVoor" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern);
UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant@visible = ((not(_IsIntern) and ("InschuifElementZijkant" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern);
UI.BulkKenmerken.NietMeeleveren_Opvullijst@visible = ((not(_IsIntern) and ("Opvullijst" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern);
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet@visible = ((not(_IsIntern) and ("TiponBlumotionSet" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern);
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@visible = ((not(_IsIntern) and ("TiponBlumotionSetEenhedenEnMeenemers" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern);
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang@visible = ((not(_IsIntern) and ("TiponBlumotionSynchronisatieStang" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern);
UI.BulkKenmerken.NietMeeleveren_Zijstabilisering@visible = ((not(_IsIntern) and ("Zijstabilisering" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern);
Gedrag niet meeleveren zichtbaarheid (BulkKenmerken)
;ui.bulkkenmerken.nietmeeleveren_afdekkapbinnen@visible;ui.bulkkenmerken.nietmeeleveren_afdekkapbuiten@visible;ui.bulkkenmerken.nietmeeleveren_afdekkaprugwandhouder@visible;ui.bulkkenmerken.nietmeeleveren_bevestigingbodemfront@visible;ui.bulkkenmerken.nietmeeleveren_frontbevestiging@visible;ui.bulkkenmerken.nietmeeleveren_geleider@visible;ui.bulkkenmerken.nietmeeleveren_inschuifelementvoor@visible;ui.bulkkenmerken.nietmeeleveren_inschuifelementzijkant@visible;ui.bulkkenmerken.nietmeeleveren_opvullijst@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionset@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@visible;ui.bulkkenmerken.nietmeeleveren_zijstabilisering@visible;
true
local boolean _BEHAVIOR_IsNietMeeleverenZichtbaar;
if (DATA.Kenmerken.ZijwandType == "Free") then
_BEHAVIOR_IsNietMeeleverenZichtbaar = true;
else
_BEHAVIOR_IsNietMeeleverenZichtbaar = false;
end if;
index i of UI.Kenmerken.NietMeeleveren
if (UI.Kenmerken.NietMeeleveren(i).id == "InschuifElementZijkant") then
UI.Kenmerken.NietMeeleveren(i)@visible = _BEHAVIOR_IsNietMeeleverenZichtbaar;
end if;
end index;
Gedrag niet meeleveren zichtbaarheid InschuifElementZijkant
;
true
local Boolean _BEHAVIOR_IsNMTOBZichtbaar;
local boolean TOBSetSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet;
local boolean TOBSetEnMeenemersSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers;
local boolean TOBStangSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang;
local boolean _VorigeWaardeNMTiponBlumotionSet = UI.PropertiesEnkelVoorInCodeVanRules.TiponBlumotionSetVorigeWaarde;
local boolean AlleIndividueleTOBSelected = (TOBStangSelected and TOBSetEnMeenemersSelected);
local collection _TOBProducten= {"TiponBlumotionSet";"TiponBlumotionSetEenhedenEnMeenemers"; "TiponBlumotionSynchronisatieStang"};
if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then
_BEHAVIOR_IsNMTOBZichtbaar = true;
else
_BEHAVIOR_IsNMTOBZichtbaar = false;
end if;
index i of UI.Kenmerken.NietMeeleveren
if (UI.Kenmerken.NietMeeleveren(i).Id in _TOBProducten) then
UI.Kenmerken.NietMeeleveren(i)@visible = _BEHAVIOR_IsNMTOBZichtbaar;
end if;
end index;
if (not(DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet) and AlleIndividueleTOBSelected) then
if(_VorigeWaardeNMTiponBlumotionSet) then
DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = false;
DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = false;
AlleIndividueleTOBSelected = false;
else
DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = true;
end if;
end if;
if (_VorigeWaardeNMTiponBlumotionSet and not(AlleIndividueleTOBSelected)) then
DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = false;
end if;
if ((DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet) and not(AlleIndividueleTOBSelected)) then
DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = true;
DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = true;
end if;
UI.PropertiesEnkelVoorInCodeVanRules.TiponBlumotionSetVorigeWaarde = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet;
Gedrag niet meeleveren TOB
;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;ui.propertiesenkelvoorincodevanrules.tiponblumotionsetvorigewaarde@value;
true
local boolean _BEHAVIOR_IsProductiewijzeZichtbaar;
if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive == true) then
_BEHAVIOR_IsProductiewijzeZichtbaar = true;
if (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 _IsDwarsverdelingTypeZichtbaar = false;
local boolean _IsDwarsverdelingTypeMandatory = false;
if ((CLng(DATA.Kenmerken.DwarsverdelingAantal) > 0) and Config.Settings.DwarsverdelingTypeToegelaten and (DATA.Kenmerken.Toepassing <> "SST")) then
_IsDwarsverdelingTypeZichtbaar = true;
_IsDwarsverdelingTypeMandatory = true;
end if;
UI.Kenmerken.DwarsverdelingType@visible = _IsDwarsverdelingTypeZichtbaar;
UI.Kenmerken.DwarsverdelingType@mandatory = _IsDwarsverdelingTypeMandatory;
Gedrag DwarsverdelingType
;ui.kenmerken.dwarsverdelingtype@visible;ui.kenmerken.dwarsverdelingtype@mandatory;
not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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;
UI.Kenmerken.FrontBevestiging@option("S")@visible = Config.Settings.FrontBevestigingSchroefToegelaten;
UI.BulkKenmerken.FrontBevestiging@option("S")@visible = Config.Settings.FrontBevestigingSchroefToegelaten;
Gedrag Frontbevestiging
;ui.kenmerken.frontbevestiging@mandatory;ui.kenmerken.frontbevestiging@visible;ui.kenmerken.frontbevestiging@options;ui.bulkkenmerken.frontbevestiging@options;
true
local boolean _IsBlumPolen = (Config.Settings.PersonalityId == "48");
local boolean _BEHAVIOR_IsDesignKleurInoxZichtbaar = not(_IsBlumPolen);
UI.Kenmerken.LadeKleurBuiten@option("INGL")@visible = _BEHAVIOR_IsDesignKleurInoxZichtbaar;
Gedrag LadeKleurBuiten
;ui.kenmerken.ladekleurbuiten@options;
true
local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern");
local boolean _BEHAVIOR_IsAfwijkendeRugHoogteZichtbaar = false;
if _IsIntern then
_BEHAVIOR_IsAfwijkendeRugHoogteZichtbaar = true;
else
if ((DATA.Kenmerken.LadeHoogte in {"C";"K"}) and (DATA.Kenmerken.Toepassing == "L")) then
_BEHAVIOR_IsAfwijkendeRugHoogteZichtbaar = true;
end if;
end if;
UI.Kenmerken.HeeftAfwijkendeRugHoogte@visible = _BEHAVIOR_IsAfwijkendeRugHoogteZichtbaar;
Gedrag HeeftAfwijkendeRugHoogte
;ui.kenmerken.heeftafwijkenderughoogte@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;
local Boolean _TriggerDummy = DATA.Kenmerken.HeeftAfwijkendeRugHoogte;
if ((DATA.Kenmerken.HeeftAfwijkendeRugHoogte) or (DATA.Kenmerken.Toepassing == "SY")) then
_BEHAVIOR_IsRugHoogteMandatory = true;
else
_BEHAVIOR_IsRugHoogteMandatory = false;
end if;
if DATA.Kenmerken.HeeftAfwijkendeRugHoogte 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;
true
local boolean _IsBlumPolen = (Config.Settings.PersonalityId == "48");
local boolean _BEHAVIOR_IsSpaceStepZichtbaar = not(_IsBlumPolen);
UI.Kenmerken.Toepassing@option("SST")@visible = _BEHAVIOR_IsSpaceStepZichtbaar;
Gedrag Toepassing
;ui.kenmerken.toepassing@options;
true
local boolean BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar;
If ((BEHAVIOR.IsEconAX) and (BEHAVIOR.IsInteractive)) then
BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar = true;
else
BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar = false;
end if;
UI.StatusBalk.Code@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar;
UI.StatusBalk.LadeDiepte@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar;
UI.StatusBalk.CorpusBreedte@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar;
UI.StatusBalk.Wand@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar;
UI.StatusBalk.Draagkracht@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar;
UI.StatusBalk.FrontBevestiging@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar;
UI.StatusBalk.Diverse@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar;
UI.StatusBalk.VerpakkingType@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar;
Gedrag kenmerken statusbalk
;ui.statusbalk.code@visible;ui.statusbalk.ladediepte@visible;ui.statusbalk.corpusbreedte@visible;ui.statusbalk.wand@visible;ui.statusbalk.draagkracht@visible;ui.statusbalk.frontbevestiging@visible;ui.statusbalk.diverse@visible;ui.statusbalk.verpakkingtype@visible;
BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}
local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern");
UI.Kenmerken.LadeKleur@mandatory = false;
UI.Kenmerken.BodemKleur@mandatory = false;
UI.Kenmerken.Corpusbreedte@mandatory = false;
UI.Kenmerken.LadeDiepte@mandatory = false;
UI.Kenmerken.LadeHoogte@mandatory = false;
UI.Kenmerken.GeleiderTechnologie@mandatory = false;
UI.Kenmerken.Draagkracht@mandatory = false;
UI.Kenmerken.ZijwandType@mandatory = false;
UI.Kenmerken.Frontbevestiging@mandatory = false;
UI.Kenmerken.VerpakkingType@mandatory = false;
UI.Kenmerken.RugwandMateriaal@mandatory = false;
UI.Kenmerken.Toepassing@mandatory = false;
UI.Lijn.Aantal@mandatory = false;
$BulkToepassingPane@visible = _IsIntern;
$BulkDimensiesPane@visible = _IsIntern;
$BulkKleurPane@visible = true;
$BulkAfwerkingPane@visible = true;
$BulkOptiesPane@visible = true;
$BulkMatPane@visible = true;
$BulkVerpakkingPane@visible = true;
$ToepassingPane@visible = false;
$Kleurpane@visible = false;
$DimensiesPane@visible = false;
$AfwerkingPane@visible = false;
$OptiesPane@visible = false;
$MatPane@visible = false;
$VerpakkingPane@visible = false;
$MaatwerkViewerPane@visible = false;
UI.BulkKenmerken.VoorWandTypeVanCBinnenlade@visible = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "C"));
UI.BulkKenmerken.VoorWandTypeVanMBinnenlade@visible = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "M"));
UI.BulkKenmerken.VoorWandTypeVanKBinnenlade@visible = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "K"));
UI.BulkKenmerken.VoorWandTypeVanCBinnenlade@mandatory = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "C"));
UI.BulkKenmerken.VoorWandTypeVanMBinnenlade@mandatory = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "M"));
UI.BulkKenmerken.VoorWandTypeVanKBinnenlade@mandatory = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "K"));
UI.BulkKenmerken.LadeKleurBuiten@visible = (DATA.BulkKenmerken(1).ZijwandType == "Design");
UI.BulkKenmerken.LadeKleurBuiten@mandatory = (DATA.BulkKenmerken(1).ZijwandType == "Design");
UI.BulkKenmerken.Meenemerset@visible = (DATA.BulkKenmerken(1).IsBinnenlade == "True");
UI.BulkKenmerken.Frontbevestiging@visible = (not(DATA.BulkKenmerken(1).IsBinnenlade == "True") and not(Config.Settings.FrontBevestigingVerbergen));
UI.BulkKenmerken.CorpusWanddikte@visible = (DATA.BulkKenmerken(1).IsBinnenbreedte == "False");
UI.BulkKenmerken.LadeHoogte@mandatory = (DATA.BulkKenmerken(1).IsBinnenlade == "True");
UI.BulkKenmerken.DraagKracht@visible = _IsIntern;
if (UI.BulkKenmerken.CorpusBreedte.Wijzigen == "Wijzigen") then
UI.BulkKenmerken.CorpusBreedte.Breedte@visible = true;
else
UI.BulkKenmerken.CorpusBreedte.Breedte@visible = false;
UI.BulkKenmerken.CorpusBreedte.Breedte@default = 0;
end if;
if ((UI.BulkKenmerken.CorpusBreedte.Wijzigen == "Wijzigen") and (DATA.BulkKenmerken(1).IsBinnenBreedte == "NietWijzigen")) then
UI.BulkKenmerken.IsBinnenbreedte@default = "True";
end if;
if (UI.BulkKenmerken.CorpusBreedte.Wijzigen == "NietWijzigen") then
UI.BulkKenmerken.IsBinnenbreedte@default = "NietWijzigen";
end if;
if ((UI.BulkKenmerken.DwarsverdelingAantal == "0") or (UI.BulkKenmerken.DwarsverdelingAantal == "NietWijzigen")) then
UI.BulkKenmerken.DwarsverdelingType@visible = false;
else
UI.BulkKenmerken.DwarsverdelingType@visible = true;
end if;
UI.BulkKenmerken.CorpusBreedte.Breedte@enabled = (UI.BulkKenmerken.CorpusBreedte.Wijzigen == "Wijzigen");
UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen@visible = (((_IsIntern) or (("AfdekkapBinnen" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen));
UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten@visible = (((_IsIntern) or (("AfdekkapBuiten" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen));
UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder@visible = (((_IsIntern) or (("AfdekkapRugwandHouder" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen));
UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront@visible = (((_IsIntern) or (("BevestigingBodemFront" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen));
UI.BulkKenmerken.NietMeeleveren_FrontBevestiging@visible = (((_IsIntern) or (("FrontBevestiging" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen));
UI.BulkKenmerken.NietMeeleveren_Geleider@visible = (((_IsIntern) or (("Geleider" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen));
UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor@visible = (((_IsIntern) or (("InschuifElementVoor" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen));
UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant@visible = (((_IsIntern) or (("InschuifElementZijkant" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen));
UI.BulkKenmerken.NietMeeleveren_Opvullijst@visible = (((_IsIntern) or (("Opvullijst" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen));
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet@visible = (((_IsIntern) or (("TiponBlumotionSet" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen));
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@visible = (((_IsIntern) or (("TiponBlumotionSetEenhedenEnMeenemers" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen));
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang@visible = (((_IsIntern) or (("TiponBlumotionSynchronisatieStang" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen));
UI.BulkKenmerken.NietMeeleveren_Zijstabilisering@visible = (((_IsIntern) or (("Zijstabilisering" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen));
Gedrag Bulkkenmerkconfiurator
;ui.kenmerken.ladekleur@mandatory;ui.kenmerken.bodemkleur@mandatory;ui.kenmerken.corpusbreedte@mandatory;ui.kenmerken.ladediepte@mandatory;ui.kenmerken.ladehoogte@mandatory;ui.kenmerken.geleidertechnologie@mandatory;ui.kenmerken.draagkracht@mandatory;ui.kenmerken.zijwandtype@mandatory;ui.kenmerken.frontbevestiging@mandatory;ui.kenmerken.verpakkingtype@mandatory;ui.kenmerken.rugwandmateriaal@mandatory;ui.kenmerken.toepassing@mandatory;ui.lijn.aantal@mandatory;ui.bulkkenmerken.voorwandtypevancbinnenlade@visible;ui.bulkkenmerken.voorwandtypevanmbinnenlade@visible;ui.bulkkenmerken.voorwandtypevankbinnenlade@visible;ui.bulkkenmerken.voorwandtypevancbinnenlade@mandatory;ui.bulkkenmerken.voorwandtypevanmbinnenlade@mandatory;ui.bulkkenmerken.voorwandtypevankbinnenlade@mandatory;ui.bulkkenmerken.ladekleurbuiten@visible;ui.bulkkenmerken.ladekleurbuiten@mandatory;ui.bulkkenmerken.meenemerset@visible;ui.bulkkenmerken.frontbevestiging@visible;ui.bulkkenmerken.corpuswanddikte@visible;ui.bulkkenmerken.ladehoogte@mandatory;ui.bulkkenmerken.draagkracht@visible;ui.bulkkenmerken.corpusbreedte.breedte@visible;ui.bulkkenmerken.isbinnenbreedte@default;ui.bulkkenmerken.dwarsverdelingtype@visible;ui.bulkkenmerken.corpusbreedte.breedte@enabled;ui.bulkkenmerken.nietmeeleveren_afdekkapbinnen@visible;ui.bulkkenmerken.nietmeeleveren_afdekkapbuiten@visible;ui.bulkkenmerken.nietmeeleveren_afdekkaprugwandhouder@visible;ui.bulkkenmerken.nietmeeleveren_bevestigingbodemfront@visible;ui.bulkkenmerken.nietmeeleveren_frontbevestiging@visible;ui.bulkkenmerken.nietmeeleveren_geleider@visible;ui.bulkkenmerken.nietmeeleveren_inschuifelementvoor@visible;ui.bulkkenmerken.nietmeeleveren_inschuifelementzijkant@visible;ui.bulkkenmerken.nietmeeleveren_opvullijst@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionset@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@visible;ui.bulkkenmerken.nietmeeleveren_zijstabilisering@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 = Cbool(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.LadeKleurBuiten = UI.Kenmerken.LadeKleurBuiten.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;
DATA.Kenmerken.DwarsverdelingType = UI.Kenmerken.DwarsverdelingType.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.ladekleurbuiten@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.voorwandtypevancbinnenlade@value;data.kenmerken.voorwandtypevanmbinnenlade@value;data.kenmerken.voorwandtypevankbinnenlade@value;data.kenmerken.zijwandtype@value;data.kenmerken.dwarsverdelingtype@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;
BEHAVIOR.IsInteractive
DATA.BulkKenmerken(1).BodemKleur = UI.BulkKenmerken.BodemKleur.Value;
DATA.BulkKenmerken(1).CorpusWanddikte = UI.BulkKenmerken.CorpusWanddikte;
DATA.BulkKenmerken(1).Draagkracht = UI.BulkKenmerken.Draagkracht;
DATA.BulkKenmerken(1).DwarsverdelingAantal = UI.BulkKenmerken.DwarsverdelingAantal;
DATA.BulkKenmerken(1).DwarsverdelingType = UI.BulkKenmerken.DwarsverdelingType.Value;
DATA.BulkKenmerken(1).FrontBevestiging = UI.BulkKenmerken.FrontBevestiging;
DATA.BulkKenmerken(1).GeleiderTechnologie = UI.BulkKenmerken.GeleiderTechnologie;
DATA.BulkKenmerken(1).HeeftOpvullijstLinks = UI.BulkKenmerken.HeeftOpvullijstLinks;
DATA.BulkKenmerken(1).HeeftOpvullijstRechts = UI.BulkKenmerken.HeeftOpvullijstRechts;
DATA.BulkKenmerken(1).HeeftZijstabilisering = UI.BulkKenmerken.HeeftZijstabilisering;
DATA.BulkKenmerken(1).IsBinnenbreedte = UI.BulkKenmerken.IsBinnenbreedte;
DATA.BulkKenmerken(1).IsBinnenlade = UI.BulkKenmerken.IsBinnenlade;
DATA.BulkKenmerken(1).LadeDiepte = UI.BulkKenmerken.LadeDiepte;
DATA.BulkKenmerken(1).LadeHoogte = UI.BulkKenmerken.LadeHoogte;
DATA.BulkKenmerken(1).LadeKleur = UI.BulkKenmerken.LadeKleur.Value;
DATA.BulkKenmerken(1).LadeKleurBuiten = UI.BulkKenmerken.LadeKleurBuiten.Value;
DATA.BulkKenmerken(1).Meenemerset = UI.BulkKenmerken.Meenemerset;
DATA.BulkKenmerken(1).OpvullijstKleur = UI.BulkKenmerken.OpvullijstKleur.Value;
DATA.BulkKenmerken(1).VerpakkingType = UI.BulkKenmerken.VerpakkingType;
DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade = UI.BulkKenmerken.VoorwandTypeVanCBinnenlade.Value;
DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade = UI.BulkKenmerken.VoorwandTypeVanMBinnenlade.Value;
DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade = UI.BulkKenmerken.VoorwandTypeVanKBinnenlade.Value;
DATA.BulkKenmerken(1).ZijwandType = UI.BulkKenmerken.ZijwandType.Value;
if (UI.BulkKenmerken.CorpusBreedte.Wijzigen == "Wijzigen") then
DATA.BulkKenmerken(1).CorpusBreedte = CStr(UI.BulkKenmerken.CorpusBreedte.Breedte);
else
DATA.BulkKenmerken(1).CorpusBreedte = UI.BulkKenmerken.CorpusBreedte.Wijzigen;
end if;
DATA.BulkKenmerken(1).HeeftMat = UI.BulkKenmerken.HeeftMat;
DATA.BulkKenmerken(1).MatMateriaal = UI.BulkKenmerken.MatMateriaal.Value;
DATA.BulkKenmerken(1).MatKleur = switch (UI.BulkKenmerken.MatMateriaal.Value)
case "CF": UI.BulkKenmerken.MatVinylFiberglassKleur.value
case "AF": UI.BulkKenmerken.MatAntislipFiberKleur.value
case "AZ": UI.BulkKenmerken.MatAntislipFlockKleur.value
else ""
end switch;
DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen = UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen;
DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten = UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten;
DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder = UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder;
DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront = UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront;
DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging = UI.BulkKenmerken.NietMeeleveren_FrontBevestiging;
DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider = UI.BulkKenmerken.NietMeeleveren_Geleider;
DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor = UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor;
DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant = UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant;
DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst = UI.BulkKenmerken.NietMeeleveren_Opvullijst;
DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet = UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet;
DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers;
DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang;
DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering = UI.BulkKenmerken.NietMeeleveren_Zijstabilisering;
Values - BulkKenmerken
;data.bulkkenmerken[1].bodemkleur@value;data.bulkkenmerken[1].corpuswanddikte@value;data.bulkkenmerken[1].draagkracht@value;data.bulkkenmerken[1].dwarsverdelingaantal@value;data.bulkkenmerken[1].dwarsverdelingtype@value;data.bulkkenmerken[1].frontbevestiging@value;data.bulkkenmerken[1].geleidertechnologie@value;data.bulkkenmerken[1].heeftopvullijstlinks@value;data.bulkkenmerken[1].heeftopvullijstrechts@value;data.bulkkenmerken[1].heeftzijstabilisering@value;data.bulkkenmerken[1].isbinnenbreedte@value;data.bulkkenmerken[1].isbinnenlade@value;data.bulkkenmerken[1].ladediepte@value;data.bulkkenmerken[1].ladehoogte@value;data.bulkkenmerken[1].ladekleur@value;data.bulkkenmerken[1].ladekleurbuiten@value;data.bulkkenmerken[1].meenemerset@value;data.bulkkenmerken[1].opvullijstkleur@value;data.bulkkenmerken[1].verpakkingtype@value;data.bulkkenmerken[1].voorwandtypevancbinnenlade@value;data.bulkkenmerken[1].voorwandtypevanmbinnenlade@value;data.bulkkenmerken[1].voorwandtypevankbinnenlade@value;data.bulkkenmerken[1].zijwandtype@value;data.bulkkenmerken[1].corpusbreedte@value;data.bulkkenmerken[1].heeftmat@value;data.bulkkenmerken[1].matmateriaal@value;data.bulkkenmerken[1].matkleur@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_afdekkapbinnen@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_afdekkapbuiten@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_afdekkaprugwandhouder@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_bevestigingbodemfront@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_frontbevestiging@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_geleider@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_inschuifelementvoor@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_inschuifelementzijkant@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_opvullijst@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_zijstabilisering@value;
not(CONFIG.InputMode == "Edit") and not((CONFIG.Backend == "axapta") and (CONFIG.ProcessMode == "Background")) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) and not(BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen")
DATA.Kenmerken.Toepassing = "L";
DATA.Kenmerken.MeenemerSet = "Z";
DATA.Kenmerken.DwarsverdelingType = "Enkel";
Defaults invullen
;data.kenmerken.toepassing@value;data.kenmerken.meenemerset@value;data.kenmerken.dwarsverdelingtype@value;
(BEHAVIOR.IsEconAX or (BEHAVIOR.IsEconWeb and not(BEHAVIOR.IsInteractive))) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"})
If (((BEHAVIOR.IsInteractive) and (BEHAVIOR.OperationMode == "New")) or (not((BEHAVIOR.IsInteractive)) and (GetArg("data;kenmerken;rugwandmateriaal") == ""))) then //Bij een edit zou bij toepassing L het rugwandmateriaal soms onterecht terug op Hout springen
if (UI.Kenmerken.Toepassing == "SP") then
DATA.Kenmerken.RugwandMateriaal = "Staal"
else
if ((DATA.Kenmerken.Toepassing == "L") and (DATA.Kenmerken.RugwandMateriaal == "Staal")) then
DATA.Kenmerken.RugwandMateriaal = "Staal";
else
DATA.Kenmerken.RugwandMateriaal = "Hout";
end if;
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") == "") and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"})
DATA.Kenmerken.Dwarsverdelingaantal = "0";
Default invullen voor Dwarsverdelingaantal
;data.kenmerken.dwarsverdelingaantal@value;
BEHAVIOR.IsEconAX and not(BEHAVIOR.IsInteractive) and (GetArg("data;kenmerken;dwarsverdelingtype") == "") and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) and (not(DATA.Kenmerken.Dwarsverdelingaantal == "0") and not(DATA.Kenmerken.Dwarsverdelingaantal == ""))
DATA.Kenmerken.DwarsverdelingType = "Enkel";
Default invullen voor DwarsverdelingType
;data.kenmerken.dwarsverdelingtype@value;
(UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "K") and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
DATA.Kenmerken.VoorwandTypeVanKBinnenlade = "Metaal";
Default invullen voor VoorwandTypeVanKBinnenlade
;data.kenmerken.voorwandtypevankbinnenlade@value;
BEHAVIOR.IsEconAX and BEHAVIOR.IsInteractive and (DATA.Kenmerken.VerpakkingType == "") and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
DATA.Kenmerken.VerpakkingType = "V1";
Default invullen voor VerpakkingTpe
;data.kenmerken.verpakkingtype@value;
not(BEHAVIOR.IsInteractive)
if ((CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_opvullijst"))) and (not(GetArg("data;kenmerken;opvullijstkleur") == ""))) then
if not(DATA.Kenmerken.OpvullijstKleur@option(GetArg("data;kenmerken;opvullijstkleur"))@valid) then
DATA.Kenmerken.OpvullijstKleur = DATA.Kenmerken.OpvullijstKleur@option(2)@id;
end if;
end if;
Waarde verbeteren bij verkeerde opvullijstkleur EDI order wanneer deze opvullijst niet moet worden meegeleverd
;
(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;
(BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen")
local string _Connection = GetSetting("data.connectionstring") + ";cache=false";
local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.BulkWijzigingen.ReferentieConfiguratieId + "'";
CONFIG.Database.Configurations@options = {};
CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query);
STATE.BulkReferentieConfiguratieLoaded = true;
ReferentieConfiguratie: ConfigId ophalen op basis van ReferentieConfiguratie (bij bulkconfiguratie Web)
;config.database.configurations@options;state.bulkreferentieconfiguratieloaded@value;
STATE.BulkReferentieConfiguratieLoaded and (CONFIG.Database.Configurations.Name == CONFIG.BulkWijzigingen.ReferentieConfiguratieId) and (CONFIG.BulkWijzigingen.BulkConfiguratieId <> "") and (BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen")
STATE.BulkReferentieConfiguratieLoaded = 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;
_Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value);
end for;
ReferentieConfiguratie: Properties ophalen op basis van ConfigId (bij bulkconfiguratie Web)
;state.bulkreferentieconfiguratieloaded@value;config.database.configanalyseproperties@options;
(BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen")
local string _Connection = GetSetting("data.connectionstring") + ";cache=false";
local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.BulkWijzigingen.BulkConfiguratieId + "'";
CONFIG.Database.Configurations@options = {};
CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query);
STATE.BulkConfiguratieLoaded = true;
BulkConfiguratie: ConfigId ophalen op basis van BulkConfiguratieId (Web)
;config.database.configurations@options;state.bulkconfiguratieloaded@value;
STATE.BulkConfiguratieLoaded and (CONFIG.Database.Configurations.Name == CONFIG.BulkWijzigingen.BulkConfiguratieId) and (BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen")
STATE.BulkConfiguratieLoaded = 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.BulkConfiguratie@options) then
if (CONFIG.Database.ConfigAnalyseProperties.Value <> "") then
_Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value);
end if;
end if;
end for;
BulkConfiguratie: Properties ophalen op basis van ConfigId (Web)
;state.bulkconfiguratieloaded@value;config.database.configanalyseproperties@options;
not(STATE.BulkReferentieConfiguratieLoaded) and (BEHAVIOR.Contextname == "AxCreateBulkWijzigingenToepassen")
local string strConnectionString = GetSetting("data.navision.connectionstring");
local string propertyName = "";
local string propertyValue = "";
for i = 1 to CDbl(CONFIG.Bulkwijzigingen.TotaalAantalGepersisteerdeProperties)
propertyName = GetStringValue(strConnectionString; "EConConfigSpecSetup"; "XMLPath"; "Model"; "="; "LBX Configurator"; "DetailLink"; "="; i;);
propertyValue = GetStringValue(strConnectionString; "EConConfigurationSpec"; "ValueTxt"; "DetailLink"; "="; i; "ObjectId"; "="; CONFIG.Bulkwijzigingen.ReferentieConfiguratieId;);
if not(propertyName in CONFIG.Defaults.BulkConfiguratie@options) then
if (propertyValue <> "") then
local boolean _Result = SetValue(propertyName; propertyValue);
end if;
end if;
end for;
STATE.BulkReferentieConfiguratieLoaded = true;
ReferentieConfiguratie ophalen en invullen (AX)
;state.bulkreferentieconfiguratieloaded@value;
not(STATE.BulkConfiguratieLoaded) and(BEHAVIOR.Contextname == "AxCreateBulkWijzigingenToepassen")
local string strConnectionString = GetSetting("data.navision.connectionstring");
local string propertyName = "";
local string propertyValue = "";
for i = 1 to CDbl(CONFIG.Bulkwijzigingen.TotaalAantalGepersisteerdeProperties)
propertyName = GetStringValue(strConnectionString; "EConConfigSpecSetup"; "XMLPath"; "Model"; "="; "LBX Configurator"; "DetailLink"; "="; i;);
propertyValue = GetStringValue(strConnectionString; "EConConfigurationSpec"; "ValueTxt"; "DetailLink"; "="; i; "ObjectId"; "="; CONFIG.Bulkwijzigingen.BulkConfiguratieId;);
if (propertyName in CONFIG.Defaults.BulkConfiguratie@options) then
if (propertyValue <> "") then
local boolean _Result = SetValue(propertyName; propertyValue);
end if;
end if;
end for;
STATE.BulkConfiguratieLoaded = true;
BulkConfiguratie ophalen en invullen (AX)
;state.bulkconfiguratieloaded@value;
(BEHAVIOR.Contextname == "AxCreateBulkWijzigingenToepassen") or (BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen")
if (DATA.BulkKenmerken(1).BodemKleur <> "NietWijzigen") then
DATA.Kenmerken.BodemKleur = DATA.BulkKenmerken(1).BodemKleur;
end if;
if (DATA.BulkKenmerken(1).CorpusBreedte <> "NietWijzigen") then
DATA.Kenmerken.CorpusBreedte = CDbl(DATA.BulkKenmerken(1).CorpusBreedte );
end if;
if ((DATA.BulkKenmerken(1).CorpusWanddikte <> 0) and (DATA.BulkKenmerken(1).IsBinnenbreedte == "False")) then
DATA.Kenmerken.CorpusWanddikte = DATA.BulkKenmerken(1).CorpusWanddikte;
end if;
if (DATA.BulkKenmerken(1).Draagkracht <> "NietWijzigen") then
DATA.Kenmerken.Draagkracht = DATA.BulkKenmerken(1).Draagkracht;
end if;
if (DATA.BulkKenmerken(1).DwarsverdelingAantal <> "NietWijzigen") then
DATA.Kenmerken.DwarsverdelingAantal = DATA.BulkKenmerken(1).DwarsverdelingAantal;
end if;
if (DATA.BulkKenmerken(1).DwarsverdelingType <> "NietWijzigen") then
DATA.Kenmerken.DwarsverdelingType = DATA.BulkKenmerken(1).DwarsverdelingType ;
end if;
if (DATA.BulkKenmerken(1).FrontBevestiging <> "NietWijzigen") then
DATA.Kenmerken.FrontBevestiging = DATA.BulkKenmerken(1).FrontBevestiging;
end if;
if (DATA.BulkKenmerken(1).GeleiderTechnologie <> "NietWijzigen") then
DATA.Kenmerken.GeleiderTechnologie = DATA.BulkKenmerken(1).GeleiderTechnologie;
end if;
if (DATA.BulkKenmerken(1).HeeftMat == "True") then
DATA.Kenmerken.MatMateriaal = DATA.BulkKenmerken(1).MatMateriaal;
end if;
if (DATA.BulkKenmerken(1).HeeftMat == "False") then
DATA.Kenmerken.MatMateriaal = "";
end if;
if (DATA.BulkKenmerken(1).HeeftMat == "True") then
DATA.Kenmerken.MatKleur = DATA.BulkKenmerken(1).MatKleur;
end if;
if (DATA.BulkKenmerken(1).HeeftMat == "False") then
DATA.Kenmerken.MatKleur = "";
end if;
if (DATA.BulkKenmerken(1).HeeftOpvullijstLinks <> "NietWijzigen") then
DATA.Kenmerken.HeeftOpvullijstLinks = CBool(DATA.BulkKenmerken(1).HeeftOpvullijstLinks);
end if;
if (DATA.BulkKenmerken(1).HeeftOpvullijstRechts <> "NietWijzigen") then
DATA.Kenmerken.HeeftOpvullijstRechts = CBool(DATA.BulkKenmerken(1).HeeftOpvullijstRechts);
end if;
if (DATA.BulkKenmerken(1).HeeftZijstabilisering <> "NietWijzigen") then
DATA.Kenmerken.HeeftZijstabilisering = CBool(DATA.BulkKenmerken(1).HeeftZijstabilisering);
end if;
if (DATA.BulkKenmerken(1).IsBinnenBreedte <> "NietWijzigen") then
DATA.Kenmerken.IsBinnenBreedte = CBool(DATA.BulkKenmerken(1).IsBinnenBreedte);
end if;
if (DATA.BulkKenmerken(1).IsBinnenlade <> "NietWijzigen") then
DATA.Kenmerken.IsBinnenlade = CBool(DATA.BulkKenmerken(1).IsBinnenlade);
end if;
if (DATA.BulkKenmerken(1).Meenemerset <> "NietWijzigen") then
DATA.Kenmerken.Meenemerset = DATA.BulkKenmerken(1).Meenemerset;
end if;
if (DATA.BulkKenmerken(1).LadeDiepte <> "NietWijzigen") then
DATA.Kenmerken.LadeDiepte = DATA.BulkKenmerken(1).LadeDiepte;
end if;
if (DATA.BulkKenmerken(1).LadeKleur <> "NietWijzigen") then
DATA.Kenmerken.LadeKleur = DATA.BulkKenmerken(1).LadeKleur;
end if;
if (DATA.BulkKenmerken(1).LadeKleurBuiten <> "NietWijzigen") then
DATA.Kenmerken.LadeKleurBuiten = DATA.BulkKenmerken(1).LadeKleurBuiten;
end if;
if (DATA.BulkKenmerken(1).LadeHoogte <> "NietWijzigen") then
DATA.Kenmerken.LadeHoogte = DATA.BulkKenmerken(1).LadeHoogte;
DATA.Kenmerken.RugHoogte = DATA.BulkKenmerken(1).LadeHoogte;
DATA.Kenmerken.HeeftAfwijkendeRugHoogte = false;
end if;
if (DATA.BulkKenmerken(1).OpvullijstKleur <> "NietWijzigen") then
DATA.Kenmerken.OpvullijstKleur = DATA.BulkKenmerken(1).OpvullijstKleur;
end if;
if (DATA.BulkKenmerken(1).VerpakkingType <> "NietWijzigen") then
DATA.Kenmerken.VerpakkingType = DATA.BulkKenmerken(1).VerpakkingType;
end if;
if (DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade <> "") then
DATA.Kenmerken.VoorwandTypeVanCBinnenlade = DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade;
end if;
if (DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade <> "") then
DATA.Kenmerken.VoorwandTypeVanKBinnenlade = DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade;
end if;
if (DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade <> "") then
DATA.Kenmerken.VoorwandTypeVanMBinnenlade = DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade;
end if;
if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen <> "NietWijzigen") then
Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBinnen = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen);
end if;
if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten <> "NietWijzigen") then
Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBuiten = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten);
end if;
if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder <> "NietWijzigen") then
Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder);
end if;
if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront <> "NietWijzigen") then
Data.Kenmerken.NietMeeleveren.NietMeeleveren_BevestigingBodemFront = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront);
end if;
if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging <> "NietWijzigen") then
Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging);
end if;
if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider <> "NietWijzigen") then
Data.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider);
end if;
if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor <> "NietWijzigen") then
Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementVoor = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor);
end if;
if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant <> "NietWijzigen") then
Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementZijkant = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant);
end if;
if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst <> "NietWijzigen") then
Data.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst);
end if;
if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet <> "NietWijzigen") then
Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet);
end if;
if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers <> "NietWijzigen") then
Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers);
end if;
if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang <> "NietWijzigen") then
Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang);
end if;
if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering <> "NietWijzigen") then
Data.Kenmerken.NietMeeleveren.NietMeeleveren_Zijstabilisering = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering);
end if;
if (DATA.BulkKenmerken(1).ZijwandType <> "NietWijzigen") then
DATA.Kenmerken.ZijwandType= DATA.BulkKenmerken(1).ZijwandType;
end if;
Bulkkenmerken invullen in DATA kenmerken
;data.kenmerken.bodemkleur@value;data.kenmerken.corpusbreedte@value;data.kenmerken.corpuswanddikte@value;data.kenmerken.draagkracht@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.dwarsverdelingtype@value;data.kenmerken.frontbevestiging@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.meenemerset@value;data.kenmerken.ladediepte@value;data.kenmerken.ladekleur@value;data.kenmerken.ladekleurbuiten@value;data.kenmerken.ladehoogte@value;data.kenmerken.rughoogte@value;data.kenmerken.heeftafwijkenderughoogte@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.verpakkingtype@value;data.kenmerken.voorwandtypevancbinnenlade@value;data.kenmerken.voorwandtypevankbinnenlade@value;data.kenmerken.voorwandtypevanmbinnenlade@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.zijwandtype@value;
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 (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then
_CorpusWanddikte = DATA.BulkKenmerken(1).CorpusWanddikte;
_IsBinnenbreedte = (DATA.BulkKenmerken(1).IsBinnenbreedte == "True");
_HeeftOpvullijstLinks = (DATA.BulkKenmerken(1).HeeftOpvullijstLinks == "True");
_HeeftOpvullijstRechts = (DATA.BulkKenmerken(1).HeeftOpvullijstRechts == "True");
end if;
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 (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then
if UI.BulkKenmerken.CorpusBreedte.Breedte > 0 then
_InterneBreedte = CDbl(DATA.BulkKenmerken(1).CorpusBreedte) - DATA.BerekendeWaarden.CorpusBreedteDelta;
end if;
else
if DATA.Kenmerken.CorpusBreedte > 0 then
_InterneBreedte = DATA.Kenmerken.CorpusBreedte - DATA.BerekendeWaarden.CorpusBreedteDelta;
end if;
end if;
DATA.BerekendeWaarden.InterneBreedte = _InterneBreedte;
Bereken InterneBreedte
;data.berekendewaarden.internebreedte@value;
(DATA.Kenmerken.LadeHoogte <> "")
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")) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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 or (DATA.Kenmerken.RugHoogte == ""))
local boolean _IsExtern = (CONFIG.Settings.OperationMode == "Extern");
if (DATA.Kenmerken.Toepassing == "SY") then
DATA.Kenmerken.RugHoogte = "M";
else
if (not(DATA.Kenmerken.HeeftAfwijkendeRugHoogte) and (DATA.Kenmerken.LadeHoogte <> "")) then
DATA.Kenmerken.RugHoogte = DATA.Kenmerken.LadeHoogte;
end if;
end if;
if DATA.Kenmerken.HeeftAfwijkendeRugHoogte and _IsExtern then
DATA.Kenmerken.RugHoogte = "M";
end if;
Bereken Rughoogte
;data.kenmerken.rughoogte@value;
DATA.Kenmerken.LadeHoogte <> "" and DATA.Kenmerken.Rughoogte <> ""
if (DATA.Kenmerken.LadeHoogte == DATA.Kenmerken.Rughoogte) or (DATA.Kenmerken.Toepassing == "SY") 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 = 397;
local double MINIMUM_BREEDTE_UITSPARING = 150;
local double MINIMUM_BREEDTE_ZIJSTABILISERING = 362;
local double MINIMUM_BREEDTE_DUBBELEDWARSVVERDELING = 210;
// 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;
if (not(DATA.Kenmerken.DwarsverdelingAantal == "0") and DATA.Kenmerken.DwarsverdelingType == "Dubbel") then
_MinimumBreedte = Max(_MinimumBreedte; MINIMUM_BREEDTE_DUBBELEDWARSVVERDELING);
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 MAX_BREEDTE_EXTERN = 1350;
local double MAX_BREEDTE_INTERN_V1 = 1350;
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 MAX_1168_mm = 1168;
local double _MaximumBreedte = MAXIMUM_BREEDTE;
if (DATA.Kenmerken.IsBinnenlade) then
_MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_BINNENLADE);
end if;
if ((DATA.Kenmerken.RugwandMateriaal == "Staal") and (DATA.Kenmerken.Toepassing <> "SP")) 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;
if ((BEHAVIOR.IsMaximaleBreedteBeperktTot1168Mm) and (BEHAVIOR.IsEconWeb)) then
_MaximumBreedte = Min(_MaximumBreedte; MAX_1168_mm);
end if;
if (BEHAVIOR.IsEconWeb) then
_MaximumBreedte = Min(_MaximumBreedte; MAX_BREEDTE_EXTERN);
end if;
if ((BEHAVIOR.IsEconAx) and (DATA.Kenmerken.VerpakkingType in {"V1"})) then
_MaximumBreedte = Min(_MaximumBreedte; MAX_BREEDTE_INTERN_V1);
end if;
RANGE.InterneBreedte.Maximum = _MaximumBreedte;
// todo: controleren op extra beperkingen (niet in extremabepaler) bv. zijstabilisering, tipon, flatpack
InterneBreedte maximum
;range.internebreedte.maximum@value;
true
local long _Minimum = 1;
if (DATA.Kenmerken.VerpakkingType == "Pallet") then
_Minimum = 8;
end if;
RANGE.Aantal.MINIMUM = _Minimum;
Aantal minimum
;range.aantal.minimum@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.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.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
;
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.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.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
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
;
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.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.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;
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
CONFIG.Settings.OperationMode@valids = ConstrainedOptions("CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids"; "CONFIG.Settings.OperationMode"; "DATA.Kenmerken.HeeftAfwijkendeRugHoogte"; CurrentBoolean(DATA.Kenmerken.HeeftAfwijkendeRugHoogte); "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing);
Applying constraints for property CONFIG.Settings.OperationMode
;config.settings.operationmode@valids;
true
DATA.Kenmerken.HeeftAfwijkendeRugHoogte@style.invalidbooleans = ConstrainedBooleanInvalids("CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.HeeftAfwijkendeRugHoogte"; "CONFIG.Settings.OperationMode"; CONFIG.Settings.OperationMode; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing);
Applying constraints for property DATA.Kenmerken.HeeftAfwijkendeRugHoogte
;
true
DATA.Kenmerken.RugHoogte@valids = ConstrainedOptions("CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;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"; "CONFIG.Settings.OperationMode"; CONFIG.Settings.OperationMode; "DATA.Kenmerken.HeeftAfwijkendeRugHoogte"; CurrentBoolean(DATA.Kenmerken.HeeftAfwijkendeRugHoogte); "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "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("CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids")
ConstraintsErrorMessagesFor("CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids")
Gather constraint messages for decision table CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@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;
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.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
;
true
DATA.Kenmerken.Toepassing@valids = ConstrainedOptions("CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;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,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.Toepassing"; "CONFIG.Settings.OperationMode"; CONFIG.Settings.OperationMode; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.HeeftAfwijkendeRugHoogte"; CurrentBoolean(DATA.Kenmerken.HeeftAfwijkendeRugHoogte); "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; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType);
Applying constraints for property DATA.Kenmerken.Toepassing
;data.kenmerken.toepassing@valids;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.Toepassing,DATA.Kenmerken.ZijwandType@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.Toepassing,DATA.Kenmerken.ZijwandType@Valids")
Gather constraint messages for decision table DATA.Kenmerken.Toepassing,DATA.Kenmerken.ZijwandType@Valids
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeHoogte@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeHoogte@Valids")
Gather constraint messages for decision table DATA.Kenmerken.DwarsverdelingType,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
;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids")
Gather constraint messages for decision table DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@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.LadeKleur,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.Toepassing,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.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType);
Applying constraints for property DATA.Kenmerken.ZijwandType
;data.kenmerken.zijwandtype@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
;
true
DATA.Kenmerken.DwarsverdelingType@valids = ConstrainedOptions("DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeKleur@Valids"; "DATA.Kenmerken.DwarsverdelingType"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur);
Applying constraints for property DATA.Kenmerken.DwarsverdelingType
;data.kenmerken.dwarsverdelingtype@valids;
ConstraintsNotSatisfiedFor("DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeKleur@Valids")
ConstraintsErrorMessagesFor("DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeKleur@Valids")
Gather constraint messages for decision table DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeKleur@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
;
true
DATA.Kenmerken.LadeKleur@valids = ConstrainedOptions("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.LadeKleur"; "CONFIG.Settings.IsBenelux"; CurrentBoolean(CONFIG.Settings.IsBenelux); "DATA.Kenmerken.DwarsverdelingType"; DATA.Kenmerken.DwarsverdelingType; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType);
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.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.LadeHoogte@valids = ConstrainedOptions("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeHoogte@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.DwarsverdelingType"; DATA.Kenmerken.DwarsverdelingType; "DATA.Kenmerken.HeeftAfwijkendeRugHoogte"; CurrentBoolean(DATA.Kenmerken.HeeftAfwijkendeRugHoogte); "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "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.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.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
;
not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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.DwarsverdelingType@options)
UI.Kenmerken.DwarsverdelingType@option(i)@valid = DATA.Kenmerken.DwarsverdelingType@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.LadeKleurBuiten@options)
UI.Kenmerken.LadeKleurBuiten@option(i)@valid = DATA.Kenmerken.LadeKleurBuiten@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.dwarsverdelingtype@valids;ui.kenmerken.frontbevestiging@valids;ui.kenmerken.geleidertechnologie@valids;ui.kenmerken.ladediepte@valids;ui.kenmerken.ladehoogte@valids;ui.kenmerken.ladekleur@valids;ui.kenmerken.ladekleurbuiten@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;
not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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;
(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
for i = 1 to len(DATA.BulkKenmerken(1).BodemKleur@options)
UI.BulkKenmerken.BodemKleur@option(i)@valid = DATA.BulkKenmerken(1).BodemKleur@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).DwarsverdelingType@options)
UI.BulkKenmerken.DwarsverdelingType@option(i)@valid = DATA.BulkKenmerken(1).DwarsverdelingType@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).FrontBevestiging@options)
UI.BulkKenmerken.FrontBevestiging@option(i)@valid = DATA.BulkKenmerken(1).FrontBevestiging@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).GeleiderTechnologie@options)
UI.BulkKenmerken.GeleiderTechnologie@option(i)@valid = DATA.BulkKenmerken(1).GeleiderTechnologie@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).LadeDiepte@options)
UI.BulkKenmerken.LadeDiepte@option(i)@valid = DATA.BulkKenmerken(1).LadeDiepte@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).LadeHoogte@options)
UI.BulkKenmerken.LadeHoogte@option(i)@valid = DATA.BulkKenmerken(1).LadeHoogte@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).LadeKleur@options)
UI.BulkKenmerken.LadeKleur@option(i)@valid = DATA.BulkKenmerken(1).LadeKleur@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).LadeKleurBuiten@options)
UI.BulkKenmerken.LadeKleurBuiten@option(i)@valid = DATA.BulkKenmerken(1).LadeKleurBuiten@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).VerpakkingType@options)
UI.BulkKenmerken.VerpakkingType@option(i)@valid = DATA.BulkKenmerken(1).VerpakkingType@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen@options)
UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten@options)
UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder@options)
UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront@options)
UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging@options)
UI.BulkKenmerken.NietMeeleveren_FrontBevestiging@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider@options)
UI.BulkKenmerken.NietMeeleveren_Geleider@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor@options)
UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant@options)
UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst@options)
UI.BulkKenmerken.NietMeeleveren_Opvullijst@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet@options)
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@options)
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang@options)
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang@option(i)@valid;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering@options)
UI.BulkKenmerken.NietMeeleveren_Zijstabilisering@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering@option(i)@valid;
end for;
Valids - BulkKenmerken
;ui.bulkkenmerken.bodemkleur@valids;ui.bulkkenmerken.dwarsverdelingtype@valids;ui.bulkkenmerken.frontbevestiging@valids;ui.bulkkenmerken.geleidertechnologie@valids;ui.bulkkenmerken.ladediepte@valids;ui.bulkkenmerken.ladehoogte@valids;ui.bulkkenmerken.ladekleur@valids;ui.bulkkenmerken.ladekleurbuiten@valids;ui.bulkkenmerken.verpakkingtype@valids;ui.bulkkenmerken.nietmeeleveren_afdekkapbinnen@valids;ui.bulkkenmerken.nietmeeleveren_afdekkapbuiten@valids;ui.bulkkenmerken.nietmeeleveren_afdekkaprugwandhouder@valids;ui.bulkkenmerken.nietmeeleveren_bevestigingbodemfront@valids;ui.bulkkenmerken.nietmeeleveren_frontbevestiging@valids;ui.bulkkenmerken.nietmeeleveren_geleider@valids;ui.bulkkenmerken.nietmeeleveren_inschuifelementvoor@valids;ui.bulkkenmerken.nietmeeleveren_inschuifelementzijkant@valids;ui.bulkkenmerken.nietmeeleveren_opvullijst@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotionset@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@valids;ui.bulkkenmerken.nietmeeleveren_zijstabilisering@valids;
(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
local string MatKleur = "";
for i = 1 to len(DATA.BulkKenmerken(1).MatKleur@options)
MatKleur = DATA.BulkKenmerken(1).MatKleur@option(i)@id;
for j = 1 to len(UI.BulkKenmerken.MatAntislipFiberKleur@options)
if (MatKleur == UI.BulkKenmerken.MatAntislipFiberKleur@option(j)@id) then
UI.BulkKenmerken.MatAntislipFiberKleur@option(j)@valid = DATA.BulkKenmerken(1).MatKleur@option(i)@valid;
end if;
end for;
for j = 1 to len(UI.BulkKenmerken.MatAntislipFlockKleur@options)
if (MatKleur == UI.BulkKenmerken.MatAntislipFlockKleur@option(j)@id) then
UI.BulkKenmerken.MatAntislipFlockKleur@option(j)@valid = DATA.BulkKenmerken(1).MatKleur@option(i)@valid;
end if;
end for;
for j = 1 to len(UI.BulkKenmerken.MatVinylFiberglassKleur@options)
if (MatKleur == UI.BulkKenmerken.MatVinylFiberglassKleur@option(j)@id) then
UI.BulkKenmerken.MatVinylFiberglassKleur@option(j)@valid = DATA.BulkKenmerken(1).MatKleur@option(i)@valid;
end if;
end for;
end for;
for i = 1 to len(DATA.BulkKenmerken(1).MatMateriaal@options)
UI.BulkKenmerken.MatMateriaal@option(i)@valid = DATA.BulkKenmerken(1).MatMateriaal@option(i)@valid;
end for;
Valids - BulkKenmerken Mat
;ui.bulkkenmerken.matmateriaal@valids;
true
local string _WarningText = "";
local string _AantalStuks = "???";
local string _VerpakkingTypeTekst = "";
local boolean _IsVerpakkingIdentiekeLades = (DATA.Kenmerken.VerpakkingType == "Pallet");
if _IsVerpakkingIdentiekeLades then
_WarningText = TRL.VerpakkingIdentiekeLadesMelding@label;
end if;
local string _OnvertaaldeWaardeIdentiekeLadesMelding = "VerpakkingIdentiekeLadesMelding"; // Wanneer de melding in een gevraagde taal niet voorzien is.
if (_WarningText == "") or (_WarningText == _OnvertaaldeWaardeIdentiekeLadesMelding) then
_WarningText = GetLocalizedLabel("VerpakkingTypeLabel");
end if;
if not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then
_AantalStuks = switch DATA.Kenmerken.VerpakkingType
case "Probox": "4"
case "Pallet": "8"
else "???"
end switch;
_VerpakkingTypeTekst = Replace(_WarningText ; "{1}"; _AantalStuks);
UI.Kenmerken.VerpakkingTypeLabel@default = _VerpakkingTypeTekst;
UI.Kenmerken.VerpakkingTypeLabel@visible = (DATA.Kenmerken.VerpakkingType in {"Pallet";"Probox"});
else
_AantalStuks = switch DATA.BulkKenmerken(1).VerpakkingType
case "Probox": "4"
case "Pallet": "8"
else "???"
end switch;
_VerpakkingTypeTekst = Replace(_WarningText ; "{1}"; _AantalStuks);
UI.BulkKenmerken.VerpakkingTypeLabel@default = _VerpakkingTypeTekst;
UI.BulkKenmerken.VerpakkingTypeLabel@visible = (DATA.BulkKenmerken(1).VerpakkingType in {"Pallet";"Probox"});
end if;
Message Probox/Pallet
;ui.kenmerken.verpakkingtypelabel@default;ui.kenmerken.verpakkingtypelabel@visible;
true
if not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then
UI.Kenmerken.GeleiderTechnologieLabel@default = UI.Kenmerken.GeleiderTechnologieLabel@label;
UI.Kenmerken.GeleiderTechnologieLabel@visible = (DATA.Kenmerken.GeleiderTechnologie == "TOB" and DATA.Kenmerken.Toepassing <> "SST");
else
UI.BulkKenmerken.GeleiderTechnologieLabel@default = UI.BulkKenmerken.GeleiderTechnologieLabel@label;
UI.BulkKenmerken.GeleiderTechnologieLabel@visible = (DATA.BulkKenmerken(1).GeleiderTechnologie == "TOB");
end if;
Message TIP-ON BLUMOTION
;ui.kenmerken.geleidertechnologielabel@default;ui.kenmerken.geleidertechnologielabel@visible;
not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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.DwarsverdelingType@default = DATA.Kenmerken.DwarsverdelingType;
UI.Kenmerken.FrontBevestiging@default = DATA.Kenmerken.FrontBevestiging;
UI.Kenmerken.GeleiderTechnologie@default = DATA.Kenmerken.GeleiderTechnologie;
UI.Kenmerken.HeeftAfwijkendeRugHoogte@default = Cstr(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.LadeKleurBuiten@default = DATA.Kenmerken.LadeKleurBuiten;
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.dwarsverdelingtype@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.ladekleurbuiten@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;
not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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;
not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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;
not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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;
BEHAVIOR.IsInteractive and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
UI.BulkKenmerken.BodemKleur@default = DATA.BulkKenmerken(1).BodemKleur;
UI.BulkKenmerken.CorpusWanddikte@default = DATA.BulkKenmerken(1).CorpusWanddikte;
UI.BulkKenmerken.Draagkracht@default = DATA.BulkKenmerken(1).Draagkracht;
UI.BulkKenmerken.DwarsverdelingAantal@default = DATA.BulkKenmerken(1).DwarsverdelingAantal;
UI.BulkKenmerken.DwarsverdelingType@default = DATA.BulkKenmerken(1).DwarsverdelingType;
UI.BulkKenmerken.FrontBevestiging@default = DATA.BulkKenmerken(1).FrontBevestiging;
UI.BulkKenmerken.GeleiderTechnologie@default = DATA.BulkKenmerken(1).GeleiderTechnologie;
UI.BulkKenmerken.HeeftOpvullijstLinks@default = DATA.BulkKenmerken(1).HeeftOpvullijstLinks;
UI.BulkKenmerken.HeeftOpvullijstRechts@default = DATA.BulkKenmerken(1).HeeftOpvullijstRechts;
UI.BulkKenmerken.HeeftZijstabilisering@default = DATA.BulkKenmerken(1).HeeftZijstabilisering;
UI.BulkKenmerken.IsBinnenbreedte@default = DATA.BulkKenmerken(1).IsBinnenbreedte;
UI.BulkKenmerken.IsBinnenlade@default = DATA.BulkKenmerken(1).IsBinnenlade;
UI.BulkKenmerken.LadeDiepte@default = DATA.BulkKenmerken(1).LadeDiepte;
UI.BulkKenmerken.LadeHoogte@default = DATA.BulkKenmerken(1).LadeHoogte;
UI.BulkKenmerken.LadeKleur@default = DATA.BulkKenmerken(1).LadeKleur;
UI.BulkKenmerken.LadeKleurBuiten@default = DATA.BulkKenmerken(1).LadeKleurBuiten;
UI.BulkKenmerken.Meenemerset@default = DATA.BulkKenmerken(1).Meenemerset;
UI.BulkKenmerken.OpvullijstKleur@default = DATA.BulkKenmerken(1).OpvullijstKleur;
UI.BulkKenmerken.VerpakkingType@default = DATA.BulkKenmerken(1).VerpakkingType;
UI.BulkKenmerken.VoorwandTypeVanCBinnenlade@default = DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade;
UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@default = DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade;
UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@default = DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade;
UI.BulkKenmerken.ZijwandType@default = DATA.BulkKenmerken(1).ZijwandType;
if (DATA.BulkKenmerken(1).CorpusBreedte <> "NietWijzigen") then
UI.BulkKenmerken.CorpusBreedte.Wijzigen@default = "Wijzigen";
UI.BulkKenmerken.CorpusBreedte.Breedte@default = CDbl(DATA.BulkKenmerken(1).CorpusBreedte);
else
UI.BulkKenmerken.CorpusBreedte.Wijzigen@default = "NietWijzigen";
end if;
UI.BulkKenmerken.InterneBreedte@default = DATA.BerekendeWaarden.InterneBreedte;
UI.BulkKenmerken.MatMateriaal@default = DATA.BulkKenmerken(1).MatMateriaal;
UI.BulkKenmerken.HeeftMat@default = DATA.BulkKenmerken(1).HeeftMat;
UI.BulkKenmerken.MatVinylFiberglassKleur@default = "";
UI.BulkKenmerken.MatAntislipFiberKleur@default = "";
UI.BulkKenmerken.MatAntislipFlockKleur@default = "";
switch UI.BulkKenmerken.MatMateriaal
case "CF": UI.BulkKenmerken.MatVinylFiberglassKleur@default = DATA.BulkKenmerken(1).MatKleur
case "AF": UI.BulkKenmerken.MatAntislipFiberKleur@default = DATA.BulkKenmerken(1).MatKleur
case "AZ": UI.BulkKenmerken.MatAntislipFlockKleur@default = DATA.BulkKenmerken(1).MatKleur
end switch;
UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen;
UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten;
UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder;
UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront;
UI.BulkKenmerken.NietMeeleveren_FrontBevestiging@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging;
UI.BulkKenmerken.NietMeeleveren_Geleider@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider;
UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor;
UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant;
UI.BulkKenmerken.NietMeeleveren_Opvullijst@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst;
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet;
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers;
UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang;
UI.BulkKenmerken.NietMeeleveren_Zijstabilisering@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering;
Values - BulkKenmerken
;ui.bulkkenmerken.bodemkleur@default;ui.bulkkenmerken.corpuswanddikte@default;ui.bulkkenmerken.draagkracht@default;ui.bulkkenmerken.dwarsverdelingaantal@default;ui.bulkkenmerken.dwarsverdelingtype@default;ui.bulkkenmerken.frontbevestiging@default;ui.bulkkenmerken.geleidertechnologie@default;ui.bulkkenmerken.heeftopvullijstlinks@default;ui.bulkkenmerken.heeftopvullijstrechts@default;ui.bulkkenmerken.heeftzijstabilisering@default;ui.bulkkenmerken.isbinnenbreedte@default;ui.bulkkenmerken.isbinnenlade@default;ui.bulkkenmerken.ladediepte@default;ui.bulkkenmerken.ladehoogte@default;ui.bulkkenmerken.ladekleur@default;ui.bulkkenmerken.ladekleurbuiten@default;ui.bulkkenmerken.meenemerset@default;ui.bulkkenmerken.opvullijstkleur@default;ui.bulkkenmerken.verpakkingtype@default;ui.bulkkenmerken.voorwandtypevancbinnenlade@default;ui.bulkkenmerken.voorwandtypevanmbinnenlade@default;ui.bulkkenmerken.voorwandtypevankbinnenlade@default;ui.bulkkenmerken.zijwandtype@default;ui.bulkkenmerken.corpusbreedte.wijzigen@default;ui.bulkkenmerken.corpusbreedte.breedte@default;ui.bulkkenmerken.internebreedte@default;ui.bulkkenmerken.matmateriaal@default;ui.bulkkenmerken.heeftmat@default;ui.bulkkenmerken.matvinylfiberglasskleur@default;ui.bulkkenmerken.matantislipfiberkleur@default;ui.bulkkenmerken.matantislipflockkleur@default;ui.bulkkenmerken.nietmeeleveren_afdekkapbinnen@default;ui.bulkkenmerken.nietmeeleveren_afdekkapbuiten@default;ui.bulkkenmerken.nietmeeleveren_afdekkaprugwandhouder@default;ui.bulkkenmerken.nietmeeleveren_bevestigingbodemfront@default;ui.bulkkenmerken.nietmeeleveren_frontbevestiging@default;ui.bulkkenmerken.nietmeeleveren_geleider@default;ui.bulkkenmerken.nietmeeleveren_inschuifelementvoor@default;ui.bulkkenmerken.nietmeeleveren_inschuifelementzijkant@default;ui.bulkkenmerken.nietmeeleveren_opvullijst@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotionset@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@default;ui.bulkkenmerken.nietmeeleveren_zijstabilisering@default;
true
if (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then
UI.BulkKenmerken.CorpusBreedte@label = switch (UI.BulkKenmerken.IsBinnenbreedte)
case "NietWijzigen": UI.BulkKenmerken.CorpusBreedte@label
case "True": TRL.CorpusBinnenbreedte@label
else TRL.CorpusBuitenbreedte@label
end switch;
else
UI.Kenmerken.CorpusBreedte@label = switch (UI.Kenmerken.IsBinnenbreedte)
case true: TRL.CorpusBinnenbreedte@label
else TRL.CorpusBuitenbreedte@label
end switch;
end if;
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 = TRL.Z@label;
else
UI.Kenmerken.UitsparingData.Z1@label = TRL.Z1@label;
end if;
Label UitsparingData Z1
;
true
if (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then
UI.BulkKenmerken.LadeKleur@label = switch (DATA.BulkKenmerken(1).ZijwandType)
case "Design": TRL.LadeKleurBinnen@label
else DATA.Kenmerken.LadeKleur@label
end switch;
else
UI.Kenmerken.LadeKleur@label = switch (DATA.Kenmerken.ZijwandType)
case "Design": TRL.LadeKleurBinnen@label
else DATA.Kenmerken.LadeKleur@label
end switch;
end if;
Label LadeKleur
;
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 = TRL.Z@label;
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 = false;
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);
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);
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
UI.Kenmerken.UitsparingDataHart.X@label = TRL.HartX@label;
UI.Kenmerken.UitsparingDataHart.Y@label = TRL.HartY@label;
UI.Kenmerken.UitsparingDataHart.M@label = TRL.HartPositie@label;
Labels instellen
;
UI.Kenmerken.UitsparingDataHartToepassen == "True"
UI.Kenmerken.UitsparingDataHartToepassen = "";
UI.Kenmerken.UitsparingData.X.BreedteRugDeel = UI.Kenmerken.UitsparingDataHart.X.BreedteRugDeel;
UI.Kenmerken.UitsparingData.Y.BreedteRugDeel = UI.Kenmerken.UitsparingDataHart.Y.BreedteRugDeel;
UI.Kenmerken.UitsparingData.M.BreedteRugDeel = UI.Kenmerken.UitsparingDataHart.M.BreedteRugDeel;
UI.Kenmerken.UitsparingData.Z1.CodeUitsparing = UI.Kenmerken.UitsparingDataHart.Z1.CodeUitsparing;
UI.Kenmerken.UitsparingData.Z2.CodeUitsparing = UI.Kenmerken.UitsparingDataHart.Z2.CodeUitsparing;
Uitsparingwaarden overnemen
;ui.kenmerken.uitsparingdataharttoepassen@value;ui.kenmerken.uitsparingdata.x.breedterugdeel@value;ui.kenmerken.uitsparingdata.y.breedterugdeel@value;ui.kenmerken.uitsparingdata.m.breedterugdeel@value;ui.kenmerken.uitsparingdata.z1.codeuitsparing@value;ui.kenmerken.uitsparingdata.z2.codeuitsparing@value;
true
if (UI.Kenmerken.UitsparingDataHart.Z1.CodeUitsparing == "SY_Recht_M_D240_B160") then
UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing = 160;
end if;
if (UI.Kenmerken.UitsparingDataHart.Z1.CodeUitsparing == "SY_Recht_M_D240_B300") then
UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing = 300;
end if;
if (UI.Kenmerken.UitsparingDataHart.Z2.CodeUitsparing == "SY_Recht_M_D240_B160") then
UI.Kenmerken.UitsparingDataHart.Z2.BreedteUitsparing = 160;
end if;
if (UI.Kenmerken.UitsparingDataHart.Z2.CodeUitsparing == "SY_Recht_M_D240_B300") then
UI.Kenmerken.UitsparingDataHart.Z2.BreedteUitsparing = 300;
end if;
UI.Kenmerken.UitsparingDataHart.M.PositieHart = DATA.BerekendeWaarden.InterneBreedte / 2;
if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then
UI.Kenmerken.UitsparingDataHart.X.BreedteRugdeel = UI.Kenmerken.UitsparingDataHart.M.PositieHart - UI.Kenmerken.UitsparingDataHart.X.AfstandHart - (UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing / 2);
UI.Kenmerken.UitsparingDataHart.Y.BreedteRugdeel = UI.Kenmerken.UitsparingDataHart.M.PositieHart - UI.Kenmerken.UitsparingDataHart.Y.AfstandHart - (UI.Kenmerken.UitsparingDataHart.Z2.BreedteUitsparing / 2);
UI.Kenmerken.UitsparingDataHart.M.BreedteRugdeel = DATA.BerekendeWaarden.InterneBreedte - UI.Kenmerken.UitsparingDataHart.X.BreedteRugdeel - UI.Kenmerken.UitsparingDataHart.Y.BreedteRugdeel - UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing - UI.Kenmerken.UitsparingDataHart.Z2.BreedteUitsparing;
end if;
if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then
if (UI.Kenmerken.UitsparingDataHart.X.AfstandHart == 0) then
UI.Kenmerken.UitsparingDataHart.X.BreedteRugdeel = (DATA.BerekendeWaarden.InterneBreedte / 2) + UI.Kenmerken.UitsparingDataHart.Y.AfstandHart - (UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing / 2);
UI.Kenmerken.UitsparingDataHart.Y.BreedteRugdeel = DATA.BerekendeWaarden.InterneBreedte - UI.Kenmerken.UitsparingDataHart.X.BreedteRugdeel - UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing;
end if;
if (UI.Kenmerken.UitsparingDataHart.Y.AfstandHart == 0) then
UI.Kenmerken.UitsparingDataHart.Y.BreedteRugdeel = (DATA.BerekendeWaarden.InterneBreedte / 2) + UI.Kenmerken.UitsparingDataHart.X.AfstandHart - (UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing / 2);
UI.Kenmerken.UitsparingDataHart.X.BreedteRugdeel = DATA.BerekendeWaarden.InterneBreedte - UI.Kenmerken.UitsparingDataHart.Y.BreedteRugdeel - UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing;
end if;
UI.Kenmerken.UitsparingDataHart.M.BreedteRugdeel = 0;
end if;
Berekening van hart naar standaard uitsparingwaarden
;ui.kenmerken.uitsparingdatahart.z1.breedteuitsparing@value;ui.kenmerken.uitsparingdatahart.z2.breedteuitsparing@value;ui.kenmerken.uitsparingdatahart.m.positiehart@value;ui.kenmerken.uitsparingdatahart.x.breedterugdeel@value;ui.kenmerken.uitsparingdatahart.y.breedterugdeel@value;ui.kenmerken.uitsparingdatahart.m.breedterugdeel@value;
true
if ((DATA.Kenmerken.Toepassing == "SY") and (BEHAVIOR.IsEconAx)) then
UI.Kenmerken.IsUitsparingHartZichtbaar@visible = true;
else
UI.Kenmerken.IsUitsparingHartZichtbaar@visible = false;
end if;
if (UI.Kenmerken.IsUitsparingHartZichtbaar and DATA.Kenmerken.Toepassing == "SY") then
UI.Kenmerken.UitsparingDataHartToepassen@visible = true;
UI.Kenmerken.UitsparingDataHart@visible = true;
else
UI.Kenmerken.UitsparingDataHartToepassen@visible = false;
UI.Kenmerken.UitsparingDataHart@visible = false;
end if;
if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then
UI.Kenmerken.UitsparingDataHart.M@visible = true;
UI.Kenmerken.UitsparingDataHart.Z2@visible = true;
else
UI.Kenmerken.UitsparingDataHart.M@visible = false;
UI.Kenmerken.UitsparingDataHart.Z2@visible = false;
end if;
Gedrag UitsparingDataHart
;ui.kenmerken.isuitsparinghartzichtbaar@visible;ui.kenmerken.uitsparingdataharttoepassen@visible;ui.kenmerken.uitsparingdatahart@visible;ui.kenmerken.uitsparingdatahart.m@visible;ui.kenmerken.uitsparingdatahart.z2@visible;
true
local boolean _IsMaatwerkViewerToegelaten = false;
if BEHAVIOR.IsEconAX then
_IsMaatwerkViewerToegelaten = CONFIG.Settings.IsMaatwerkViewerToegelaten;
end if;
local boolean _BEHAVIOR_IsPanelMaatwerkViewerZichtbaar = (_IsMaatwerkViewerToegelaten == true);
local boolean _BEHAVIOR_IsButtonMaatwerkViewerZichtbaar = (_IsMaatwerkViewerToegelaten == true);
UI.MWViewer@visible = _BEHAVIOR_IsPanelMaatwerkViewerZichtbaar;
UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible = _BEHAVIOR_IsButtonMaatwerkViewerZichtbaar;
Gedrag MaatwerkViewer button visible
;ui.mwviewer@visible;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@visible;
(UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible)
local boolean _BEHAVIOR_IsButtonMaatwerkViewerEnabled = false;
local long _AantalOngeldigeVelden = InvalidFields();
if _AantalOngeldigeVelden == 0 then
_BEHAVIOR_IsButtonMaatwerkViewerEnabled = true;
else
if (_AantalOngeldigeVelden == 1) then
DATA.Lijn.InvalidFieldSet@options = InvalidFieldSet();
if (DATA.Lijn.InvalidFieldSet@option(1)@id == "Ui.Lijn.Aantal") then
_BEHAVIOR_IsButtonMaatwerkViewerEnabled = true;
end if
end if
end if;
// Tijdelijk : controle op valid fields negeren; Button steeds enabled
// _BEHAVIOR_IsButtonMaatwerkViewerEnabled = true;
UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@enabled = _BEHAVIOR_IsButtonMaatwerkViewerEnabled;
Gedrag MaatwerkViewer button enabled
;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@enabled;
(UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible)
UI.MWViewer.BerekenAantal@default = 1;
UI.MWViewer.BerekenKlantnummer@default = CONFIG.Settings.KlantId;
UI.MWViewer.BerekenDatum@default = ""; // Default = Now
UI.MWViewer.FileSuffixVast@default = "001";
UI.MWViewer.HeeftVasteFileSuffix@default = false;
Initialiseer MaatwerkViewer velden
;ui.mwviewer.berekenaantal@default;ui.mwviewer.berekenklantnummer@default;ui.mwviewer.berekendatum@default;ui.mwviewer.filesuffixvast@default;ui.mwviewer.heeftvastefilesuffix@default;
true
UI.MWViewer.FileSuffixVast@visible = (UI.MWViewer.HeeftVasteFileSuffix == true);
Visible - TimeSuffixVast
;ui.mwviewer.filesuffixvast@visible;
(UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible) and (STATE.StartMaatwerkViewer == true)
// local collection _PropertyNamen = {"Data.Kenmerken.Familie";"Data.Kenmerken.Variant";"Data.Kenmerken.BodemKleur";"Data.Kenmerken.Draagkracht"};
// Vreemd genoeg lukt het niet via een locale collection :-(
// Dan maar via een array-Property
CONFIG.WebService.PropertyNamen@length = 999;
local string _NumPrefix = "NUM;"; // de numerieke properties moeten met deze prefix aangeduid worden, want moeten omgezet worden van "," naar "." voor de webservice request.
local Long _i = 0;
// Hoofdletters (Firstcase) zoals de "eCon-ConfigAnalyse Namen" :
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Familie";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Variant";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Bodemkleur";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Corpusbreedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Corpuswanddikte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Draagkracht";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Dwarsverdelingaantal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Dwarsverdelingtype";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Frontbevestiging";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Geleidertechnologie";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftmat";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftafwijkenderughoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftopvullijstlinks";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftopvullijstrechts";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftzijstabilisering";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Isbinnenbreedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Isbinnenlade";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladediepte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladehoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladekleur";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladekleurbuiten";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matkleur";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matmateriaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Meenemerset";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkapbinnen";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkapbuiten";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkaprugwandhouder";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_bevestigingbodemfront";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_inschuifelementvoor";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_inschuifelementzijkant";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_opvullijst";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionseteenhedenenmeenemers";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionsynchronisatiestang";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_zijstabilisering";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Opvullijstkleur";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Productiewijze";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Rughoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Rugwandmateriaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Breedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Diepte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Hoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Kleur";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Uitvoering";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Bewegingstechnologie";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Stekkerservodrive";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Stekkertype";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Toepassing";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Uitsparingaantal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.M.Breedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Hoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Materiaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.X.Breedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Hoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Materiaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Y.Breedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Hoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Materiaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Z1.Breedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Diepte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Hoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Materiaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Vorm";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Z2.Breedte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Diepte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Hoogte";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Materiaal";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Vorm";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Voorwandtypevancbinnenlade";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Voorwandtypevanmbinnenlade";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Voorwandtypevankbinnenlade";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Verpakkingtype";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandtype";
CONFIG.WebService.PropertyNamen@length = _i;
/*
// ==========================================
// !!! LET OP !!! Hetvolgende werkt NIET !!!
// ==========================================
// Hoofdletters (UpperCamelCase) zoals de "eCon-property Namen" :
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Familie";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Variant";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.BodemKleur";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Draagkracht";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.FrontBevestiging";
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.GeleiderTechnologie";
...
_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.ZijwandVerhogingType";
*/
MaatwerkViewer Properties in Array steken
;config.webservice.propertynamen[1]@value;
(STATE.StartMaatwerkViewer == true)
STATE.StartMaatwerkViewer = false;
// ================================
// Initialisatie
// ================================
local string _XmlRequest = "";
local string _Service = GetSetting("data.vanhoecke.connectionstring.cache.maatwerkviewerservice");
local string _Variant = Data.Kenmerken.Variant;
local string _TimeSuffix = "001";
local string _FileSuffixVast = UI.MWViewer.FileSuffixVast;
if (UI.MWViewer.HeeftVasteFileSuffix) then
_FileSuffixVast = replace(_FileSuffixVast; ":"; "");
_FileSuffixVast = replace(_FileSuffixVast; "?"; "");
_FileSuffixVast = replace(_FileSuffixVast; "*"; "");
_FileSuffixVast = replace(_FileSuffixVast; "/"; "");
_FileSuffixVast = replace(_FileSuffixVast; "\\"; "");
_FileSuffixVast = replace(_FileSuffixVast; "<"; "");
_FileSuffixVast = replace(_FileSuffixVast; ">"; "");
_FileSuffixVast = Trim(_FileSuffixVast);
end if;
if (UI.MWViewer.HeeftVasteFileSuffix and (_FileSuffixVast <> "") ) then
_TimeSuffix = _FileSuffixVast;
else
_TimeSuffix = CStr(Year()) + CStr(Month()) + CStr(Day()) + "_" + CStr(Hour()) + "" + CStr(Minute()) + "" + CStr(Second());
end if;
local string _PersonalityId = Config.Settings.PersonalityId;
local string _BerekenKlantNummer = CStr(UI.MWViewer.BerekenKlantnummer);
local string _BerekenAantal = CStr(UI.MWViewer.BerekenAantal);
local string _BerekenDatum = CStr(UI.MWViewer.BerekenDatum);
local string _Username = "WimV-TEST";
local string _Filename = "maatwerkviewer_" + _Variant + "_" + _TimeSuffix + ".txt"; // File extension : .txt OF .xls
//local string _Filepath = "\\\\Notes01\\shared\\w v\\";
local string _Filepath = "\\\\Notes01\\shared\\AX\\e-Con_MaatwerkViewer\\";
local string _FullFilename = _Filepath + _Filename;
local string _EconConfiguratieKVPs = "";
local string _PropertyNaam = "";
local string _PropertyWaarde = "";
// ================================
// Lokale Development/Debugging (tijdelijk)
// ================================
/* * /
local boolean _WebServiceAfleidenNaarLokalePC = false;
if _WebServiceAfleidenNaarLokalePC then
_Service = replace(_Service; "cachestaging2010"; "WV-W10");
_FullFilename = "\\\\WV-W10\\D$\\Temp\\maatwerkviewer_LBX_001.xls";
end if;
/* */
// ================================
// Fallback Default values
// ================================
if (_PersonalityId == "") then
_PersonalityId = "1";
end if;
if (_BerekenKlantNummer == "") then
_BerekenKlantNummer = "6819";
end if;
if (_BerekenAantal == "") or (_BerekenAantal == "0") then
_BerekenAantal = "1";
end if;
// ====================================
// Kenmerken KeyValuePairs opbouwen
// ====================================
index i of CONFIG.WebService.PropertyNamen
_PropertyNaam = CONFIG.WebService.PropertyNamen(i);
if Mid(_PropertyNaam; 1; 4) == "NUM;" then
_PropertyNaam = Mid(_PropertyNaam; 5); // "NUM;" prefix afkappen.
_PropertyWaarde = Replace(CStr(Eval(_PropertyNaam)); ","; ".");
else
_PropertyWaarde = CStr(Eval(_PropertyNaam));
end if;
_EconConfiguratieKVPs = _EconConfiguratieKVPs + " <view:String EconConfiguratieKey='" + _PropertyNaam + "'>" + _PropertyWaarde + "</view:String> ";
end index;
// ================================
// _XmlRequest opbouwen
// ================================
_XmlRequest = _XmlRequest + "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:view='http://www.vanhoecke.be/WS/PM/Maatwerk/Viewer/Viewer'>";
_XmlRequest = _XmlRequest + "<soapenv:Header/>";
_XmlRequest = _XmlRequest + "<soapenv:Body>";
_XmlRequest = _XmlRequest + "<view:SchrijfPlatteTekst>"; // WebMethod : SchrijfPlatteTekst OF SchrijfExcel
_XmlRequest = _XmlRequest + "<view:MaatwerkViewerRequest>";
/* * /
// Request Header is niet voorzien in het Caché-object WS.PM.Maatwerk.Viewer.MaatwerkViewerRequest, dus hier niet toevoegen, anders zal de WS-call crashen.
_XmlRequest = _XmlRequest + "<view:Header>";
_XmlRequest = _XmlRequest + "<view:PersonalityID>" + _PersonalityId + "</view:PersonalityID>";
_XmlRequest = _XmlRequest + "</view:Header>";
/* */
_XmlRequest = _XmlRequest + "<view:KlantNummer>" + _BerekenKlantNummer + "</view:KlantNummer>";
_XmlRequest = _XmlRequest + "<view:Aantal>" + _BerekenAantal + "</view:Aantal>";
_XmlRequest = _XmlRequest + "<view:Datum>" + _BerekenDatum + "</view:Datum>";
_XmlRequest = _XmlRequest + "<view:Username>" + _Username + "</view:Username>";
_XmlRequest = _XmlRequest + "<view:Filename>" + _FullFilename + "</view:Filename>";
_XmlRequest = _XmlRequest + "<view:EconConfiguratie>" + _EconConfiguratieKVPs + "</view:EconConfiguratie>";
_XmlRequest = _XmlRequest + "</view:MaatwerkViewerRequest>";
_XmlRequest = _XmlRequest + "</view:SchrijfPlatteTekst>"; // WebMethod : SchrijfPlatteTekst OF SchrijfExcel
_XmlRequest = _XmlRequest + "</soapenv:Body>";
_XmlRequest = _XmlRequest + "</soapenv:Envelope>";
// ================================
// WebService call uitvoeren
// ================================
local boolean _Result = LoadFromXMLService("CONFIG.WebService.MaatwerkViewerSchrijfExcel.ResultaatDummy"; _Service; false; _XmlRequest);
local string _Status = "";
local string _Feedback = "";
if (_Result) then
_Status = "Gelukt: ";
STATE.MaatwerkViewerServiceLoaded = true;
UI.MWViewer.OutputFilePath = _FullFileName;
else
_Status = "Mislukt: ";
STATE.MaatwerkViewerServiceLoaded = false;
UI.MWViewer.OutputFilePath = "[Error]";
end if;
// Debugging info :
_Feedback = "Resultaat van de web service 'MaatwerkViewer in Excel' Status ='" + _Status + "'. " + "\n" + "(LET OP: Soap fault wordt ook als succes teruggegeven)";
local long _FeedbackResult = MsgBox(_Feedback);
// AaaDebugInfo = _Status + _Service;
MaatwerkViewer starten
;state.startmaatwerkviewer@value;state.maatwerkviewerserviceloaded@value;ui.mwviewer.outputfilepath@value;
true
if(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;
not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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 and not(BEHAVIOR.OperationMode == "CreateConfig")) 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.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;
not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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 BHAVIOR_IsLadeKleurBuitenVisible = false;
local boolean BHAVIOR_IsLadeKleurBuitenMandatory = false;
local string DummyTrigger = DATA.Kenmerken.ZijwandType;
If (DATA.Kenmerken.ZijwandType == "Design") then
BHAVIOR_IsLadeKleurBuitenVisible = true;
BHAVIOR_IsLadeKleurBuitenMandatory = true;
end if;
UI.kenmerken.LadeKleurBuiten@visible = BHAVIOR_IsLadeKleurBuitenVisible;
UI.kenmerken.LadeKleurBuiten@mandatory = BHAVIOR_IsLadeKleurBuitenMandatory;
LadeKleurBuiten
;ui.kenmerken.ladekleurbuiten@visible;ui.kenmerken.ladekleurbuiten@mandatory;
true
local boolean _HeeftMatAntislipFiberKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AF"));
UI.Kenmerken.MatAntislipFiberKleur@mandatory = _HeeftMatAntislipFiberKleur;
UI.Kenmerken.MatAntislipFiberKleur@visible = _HeeftMatAntislipFiberKleur;
local boolean _HeeftBulkMatAntislipFiberKleur = ((UI.BulkKenmerken.HeeftMat == "True") and (UI.BulkKenmerken.MatMateriaal.Value == "AF") and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}));
UI.BulkKenmerken.MatAntislipFiberKleur@mandatory = _HeeftBulkMatAntislipFiberKleur;
UI.BulkKenmerken.MatAntislipFiberKleur@visible = _HeeftBulkMatAntislipFiberKleur;
MatAntislipFiberKleur
;ui.kenmerken.matantislipfiberkleur@mandatory;ui.kenmerken.matantislipfiberkleur@visible;ui.bulkkenmerken.matantislipfiberkleur@mandatory;ui.bulkkenmerken.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;
local boolean _HeeftBulkMatAntislipFlockKleur = ((UI.BulkKenmerken.HeeftMat == "True") and (UI.BulkKenmerken.MatMateriaal.Value == "AZ") and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}));
UI.BulkKenmerken.MatAntislipFlockKleur@mandatory = _HeeftBulkMatAntislipFlockKleur;
UI.BulkKenmerken.MatAntislipFlockKleur@visible = _HeeftBulkMatAntislipFlockKleur;
MatAntislipFlockKleur
;ui.kenmerken.matantislipflockkleur@mandatory;ui.kenmerken.matantislipflockkleur@visible;ui.bulkkenmerken.matantislipflockkleur@mandatory;ui.bulkkenmerken.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;
UI.BulkKenmerken.MatMateriaal@mandatory = (UI.BulkKenmerken.HeeftMat == "True");
UI.BulkKenmerken.MatMateriaal@visible = (UI.BulkKenmerken.HeeftMat == "True");
MatMateriaal
;ui.kenmerken.matmateriaal@mandatory;ui.kenmerken.matmateriaal@visible;ui.bulkkenmerken.matmateriaal@mandatory;ui.bulkkenmerken.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;
local boolean _HeeftBulkMatVinylFiberglassKleur = ((UI.BulkKenmerken.HeeftMat == "True") and (UI.BulkKenmerken.MatMateriaal.Value == "CF") and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}));
UI.BulkKenmerken.MatVinylFiberglassKleur@mandatory = _HeeftBulkMatVinylFiberglassKleur;
UI.BulkKenmerken.MatVinylFiberglassKleur@visible = _HeeftBulkMatVinylFiberglassKleur;
MatVinylFiberglassKleur
;ui.kenmerken.matvinylfiberglasskleur@mandatory;ui.kenmerken.matvinylfiberglasskleur@visible;ui.bulkkenmerken.matvinylfiberglasskleur@mandatory;ui.bulkkenmerken.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
local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern");
UI.Kenmerken.VerpakkingType@visible = Not(Config.Settings.VerpakkingTypeVerbergen);
UI.BulkKenmerken.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;ui.bulkkenmerken.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;
true
local string _Model = GetModel();
if not(Data.Kenmerken.LadeHoogte == "") then
UI.StatusBalk.Code = Data.Kenmerken.LadeHoogte ;
if (Data.Kenmerken.IsBinnenlade) then
UI.StatusBalk.Code = Data.Kenmerken.LadeHoogte + "/Z";
end if;
end if;
if not(Data.Kenmerken.LadeDiepte == "") then
UI.StatusBalk.LadeDiepte = Data.Kenmerken.LadeDiepte ;
end if;
UI.StatusBalk.CorpusBreedte = CInternal(Data.Kenmerken.CorpusBreedte) + " mm";
if not(Data.Kenmerken.isBinnenBreedte) then
UI.StatusBalk.Wand = CInternal(Data.Kenmerken.CorpusWanddikte) + " mm";
else
UI.StatusBalk.Wand = "B";
end if;
if not(Data.Kenmerken.Draagkracht == "") then
UI.StatusBalk.Draagkracht = Data.Kenmerken.Draagkracht + " kg" ;
end if;
local string _FrontBevestigingOptionLabel = DATA.Kenmerken.FrontBevestiging@id + "_" + DATA.Kenmerken.FrontBevestiging@option(DATA.Kenmerken.FrontBevestiging)@id;
if (not(Data.Kenmerken.FrontBevestiging == "") and not(Data.Kenmerken.IsBinnenLade)) then
UI.StatusBalk.FrontBevestiging = GetLabel(_FrontBevestigingOptionLabel; _Model; ""; "nl");
else
UI.StatusBalk.FrontBevestiging = "---";
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; ""; "nl");
local string _MatKleur = GetLabel(_MatKleurOptionLabel; _Model; ""; "nl");
if not(Data.Kenmerken.MatMateriaal == "") then
UI.StatusBalk.Diverse = "Mat: " + _MatMateriaal + " , " + _MatKleur ;
end if;
else
UI.StatusBalk.Diverse = "---";
end if;
if not(Data.Kenmerken.VerpakkingType == "") then
UI.StatusBalk.VerpakkingType = Data.Kenmerken.VerpakkingType ;
end if;
Statusbalk updaten
;ui.statusbalk.code@value;ui.statusbalk.ladediepte@value;ui.statusbalk.corpusbreedte@value;ui.statusbalk.wand@value;ui.statusbalk.draagkracht@value;ui.statusbalk.frontbevestiging@value;ui.statusbalk.verpakkingtype@value;
STATE.ValidationNeeded or (UI.Lijn.Aantal <> 0)
local double _Minimum = RANGE.Aantal.Minimum;
local double _Maximum = RANGE.Aantal.Maximum;
if UI.Lijn.Aantal@mandatory then
UI.Lijn.Aantal@inputvalidation = "min:" + _Minimum + ";multiplication:1;maxdecimals:0;";
else
UI.Lijn.Aantal@inputvalidation = "";
end if;
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)) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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)) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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 not(DATA.Kenmerken.Rughoogte == "") 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;
not(STATE.Initialized) and (BEHAVIOR.OperationMode == "AxCreate")
local string _TriggerDummyM = UI.Kenmerken.UitsparingData.M.Hoogte;
STATE.ProcessedAndExit = true;
ProcessedAndExit voor AxCreate
;state.processedandexit@value;
(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
local boolean _IsGeldig = false;
for i = 1 to Len(CONFIG.Defaults.BulkConfiguratie@options)
if not(_IsGeldig) then
local string _PropertyName = CONFIG.Defaults.BulkConfiguratie@option(i)@id;
local string _PropertyValue = CStr(Eval(_PropertyName));
if not((_PropertyValue == "NietWijzigen") or (_PropertyValue == "") or (_PropertyValue == "0")) then
_IsGeldig = true;
end if;
end if;
end for;
if (BEHAVIOR.ContextName == "AxNewBulkIngave") then
UI.Buttons.Top.ProcessButton@visible = _IsGeldig;
else
UI.Buttons.Top.SaveAndExitButton@visible = _IsGeldig;
UI.Buttons.Bottom.SaveAndExitButton@visible = _IsGeldig;
end if;
local string _TriggerDummy1 = DATA.BulkKenmerken(1).BodemKleur;
local string _TriggerDummy2 = DATA.BulkKenmerken(1).CorpusBreedte;
local double _TriggerDummy3 = DATA.BulkKenmerken(1).CorpusWanddikte;
local string _TriggerDummy4 = DATA.BulkKenmerken(1).Draagkracht;
local string _TriggerDummy5 = DATA.BulkKenmerken(1).DwarsverdelingAantal;
local string _TriggerDummy6 = DATA.BulkKenmerken(1).FrontBevestiging;
local string _TriggerDummy7 = DATA.BulkKenmerken(1).GeleiderTechnologie;
local string _TriggerDummy8 = DATA.BulkKenmerken(1).HeeftOpvullijstLinks;
local string _TriggerDummy9 = DATA.BulkKenmerken(1).HeeftOpvullijstRechts;
local string _TriggerDummy10 = DATA.BulkKenmerken(1).HeeftZijstabilisering;
local string _TriggerDummy11 = DATA.BulkKenmerken(1).IsBinnenlade;
local string _TriggerDummy12 = DATA.BulkKenmerken(1).IsBinnenBreedte;
local string _TriggerDummy13 = DATA.BulkKenmerken(1).LadeDiepte;
local string _TriggerDummy14 = DATA.BulkKenmerken(1).LadeHoogte;
local string _TriggerDummy15 = DATA.BulkKenmerken(1).LadeKleur;
local string _TriggerDummy16 = DATA.BulkKenmerken(1).LadeKleurBuiten;
local string _TriggerDummy17 = DATA.BulkKenmerken(1).Meenemerset;
local string _TriggerDummy18 = DATA.BulkKenmerken(1).OpvullijstKleur;
local string _TriggerDummy19 = DATA.BulkKenmerken(1).VerpakkingType;
local string _TriggerDummy20 = DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade;
local string _TriggerDummy21 = DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade;
local string _TriggerDummy22 = DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade;
local string _TriggerDummy23 = DATA.BulkKenmerken(1).ZijwandType;
local string _TriggerDummy24 = DATA.BulkKenmerken(1).HeeftMat;
local string _TriggerDummy25 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen;
local string _TriggerDummy26 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten;
local string _TriggerDummy27 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder
local string _TriggerDummy28 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront;
local string _TriggerDummy29 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging;
local string _TriggerDummy30 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider
local string _TriggerDummy31 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor;
local string _TriggerDummy32 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant;
local string _TriggerDummy33 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst;
local string _TriggerDummy34 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet;
local string _TriggerDummy36 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers;
local string _TriggerDummy37 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang;
local string _TriggerDummy38 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering;
IsGeldig BulkConfiguratie
;ui.buttons.top.processbutton@visible;
(STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit or not(BEHAVIOR.IsInteractive)) // (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;
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 STATE.ProcessedAndExit or STATE.KlantVoorkeurenSaved) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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 ((DATA.Kenmerken.Dwarsverdelingaantal == "0") or (DATA.Kenmerken.Dwarsverdelingaantal == "")) then
DATA.Kenmerken.DwarsverdelingType = "";
UI.Kenmerken.DwarsverdelingType = "";
end if;
if not(UI.Kenmerken.OpvullijstKleur@visible) then
DATA.Kenmerken.OpvullijstKleur = "";
UI.Kenmerken.OpvullijstKleur = "";
end if;
if not(UI.Kenmerken.LadeKleurBuiten@visible) then
DATA.Kenmerken.LadeKleurBuiten = "";
UI.Kenmerken.LadeKleurBuiten = "";
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) or ((DATA.Kenmerken.Productiewijze <> "V") and (DATA.Kenmerken.Productiewijze <> ""))) then
DATA.Kenmerken.MatMateriaal = "";
DATA.Kenmerken.MatKleur = "";
UI.Kenmerken.MatMateriaal = "";
UI.Kenmerken.MatAntislipFiberKleur = "";
UI.Kenmerken.MatAntislipFlockKleur = "";
UI.Kenmerken.MatAntislipKleur = "";
UI.Kenmerken.MatVinylFiberglassKleur = "";
end if;
if (not(BEHAVIOR.ContextName == "AxCreateBulkWijzigingenToepassen") and not (BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen")) then
DATA.BulkKenmerken(1) = "";
DATA.BulkKenmerken@length = 0;
end if;
if (BEHAVIOR.IsEconAx) then
DATA.Lijn.WinkelkarInfo(1) = "";
DATA.Lijn.WinkelkarInfo@length = 0;
end if;
Verborgen properties wissen
;data.kenmerken.corpuswanddikte@value;ui.kenmerken.corpuswanddikte@value;data.kenmerken.frontbevestiging@value;ui.kenmerken.frontbevestiging@value;data.kenmerken.dwarsverdelingtype@value;ui.kenmerken.dwarsverdelingtype@value;data.kenmerken.opvullijstkleur@value;ui.kenmerken.opvullijstkleur@value;data.kenmerken.ladekleurbuiten@value;ui.kenmerken.ladekleurbuiten@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;data.bulkkenmerken[1]@value;data.lijn.winkelkarinfo[1]@value;
(STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit or STATE.KlantVoorkeurenSaved) and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
if not(UI.BulkKenmerken.CorpusWanddikte@visible) then
DATA.BulkKenmerken(1).CorpusWanddikte = 0;
UI.BulkKenmerken.CorpusWanddikte = 0;
end if;
if (DATA.BulkKenmerken(1).IsBinnenlade == "True") then // and not (Config.Settings.FrontBevestigingVerbergen)
DATA.BulkKenmerken(1).FrontBevestiging = "NietWijzigen";
UI.BulkKenmerken.FrontBevestiging = "NietWijzigen";
end if;
if (DATA.BulkKenmerken(1).ZijwandType <> "Design") then
DATA.BulkKenmerken(1).LadeKleurBuiten = "NietWijzigen";
UI.BulkKenmerken.LadeKleurBuiten= "NietWijzigen";
end if;
if (DATA.BulkKenmerken(1).IsBinnenlade <> "True") then
DATA.BulkKenmerken(1).Meenemerset = "NietWijzigen";
UI.BulkKenmerken.Meenemerset = "NietWijzigen";
end if;
if (DATA.BulkKenmerken(1).DwarsverdelingAantal == "NietWijzigen") then
DATA.BulkKenmerken(1).DwarsverdelingType = "NietWijzigen";
UI.BulkKenmerken.DwarsverdelingType = "NietWijzigen";
end if;
if not(UI.BulkKenmerken.VoorwandTypeVanCBinnenlade@visible) then
DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade = "";
UI.BulkKenmerken.VoorwandTypeVanCBinnenlade = "";
end if;
if not(UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@visible) then
DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade = "";
UI.BulkKenmerken.VoorwandTypeVanMBinnenlade = "";
end if;
if not(UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@visible) then
DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade = "";
UI.BulkKenmerken.VoorwandTypeVanKBinnenlade = "";
end if;
if (UI.BulkKenmerken.HeeftMat in {"False";"NietWijzigen"}) then
DATA.BulkKenmerken(1).MatMateriaal = "";
DATA.BulkKenmerken(1).MatKleur = "";
UI.BulkKenmerken.MatMateriaal = "";
UI.BulkKenmerken.MatAntislipFiberKleur = "";
UI.BulkKenmerken.MatAntislipFlockKleur = "";
UI.BulkKenmerken.MatVinylFiberglassKleur = "";
end if;
Verborgen properties wissen (Bulk)
;data.bulkkenmerken[1].corpuswanddikte@value;ui.bulkkenmerken.corpuswanddikte@value;data.bulkkenmerken[1].frontbevestiging@value;ui.bulkkenmerken.frontbevestiging@value;data.bulkkenmerken[1].ladekleurbuiten@value;ui.bulkkenmerken.ladekleurbuiten@value;data.bulkkenmerken[1].meenemerset@value;ui.bulkkenmerken.meenemerset@value;data.bulkkenmerken[1].dwarsverdelingtype@value;ui.bulkkenmerken.dwarsverdelingtype@value;data.bulkkenmerken[1].voorwandtypevancbinnenlade@value;ui.bulkkenmerken.voorwandtypevancbinnenlade@value;data.bulkkenmerken[1].voorwandtypevanmbinnenlade@value;ui.bulkkenmerken.voorwandtypevanmbinnenlade@value;data.bulkkenmerken[1].voorwandtypevankbinnenlade@value;ui.bulkkenmerken.voorwandtypevankbinnenlade@value;data.bulkkenmerken[1].matmateriaal@value;data.bulkkenmerken[1].matkleur@value;ui.bulkkenmerken.matmateriaal@value;ui.bulkkenmerken.matantislipfiberkleur@value;ui.bulkkenmerken.matantislipflockkleur@value;ui.bulkkenmerken.matvinylfiberglasskleur@value;
STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
if (UI.Kenmerken.ProductieWijze == "") then
DATA.Kenmerken.ProductieWijze = "V";
end if;
if (not(UI.Kenmerken.IsBinnenlade)) then
DATA.Kenmerken.MeenemerSet = "Z";
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.meenemerset@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")) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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 _LadeKleurBuitenOptionLabel = DATA.Kenmerken.LadeKleurBuiten@id + "_" + DATA.Kenmerken.LadeKleurBuiten@option(DATA.Kenmerken.LadeKleurBuiten)@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 _LadeKleurBuitenInfo = GetLabel(DATA.Kenmerken.LadeKleurBuiten@id; _Model; ""; _TaalCode) + ": " + GetLabel(_LadeKleurBuitenOptionLabel; _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 (DATA.Kenmerken.ZijwandType == "Design") then
if (_TaalCode == "de") then
_Groepering = _Groepering + ", " + _LadeKleurBuitenInfo;
else
_Groepering = _Groepering + ", " + LCase(_LadeKleurBuitenInfo);
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")) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
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(TRL.InfoDiverse_Mat@id; _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(TRL.InfoDiverse_Opvullijst@id; _Model; ""; _TaalCode) + ": ";
local string _Links = GetLabel(TRL.InfoDiverse_Links@id; _Model; ""; _TaalCode);
local string _Rechts = GetLabel(TRL.InfoDiverse_Rechts@id; _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") and UI.Kenmerken.IsBinnenlade) 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 == "True") or ((DATA.Kenmerken.RugHoogte <> DATA.Kenmerken.LadeHoogte) and (DATA.Kenmerken.Toepassing == "SY"))) then
_InfoRugHoogte = GetLabel(UI.Kenmerken.RugHoogte@id; _Model; ""; _TaalCode) + ": " + GetLabel(_RugHoogteOptionLabel; _Model; ""; _TaalCode);
end if;
if (UI.Kenmerken.ProductieWijze <> "V") then
_InfoProductieWijze = GetLabel(TRL.InfoDiverse_Enkel@id; _Model; ""; _TaalCode) + " " + GetLabel(_ProductieWijzeOptionLabel; _Model; ""; _TaalCode);
end if;
if ((UI.Kenmerken.DwarsverdelingAantal <> "") and (CLng(UI.Kenmerken.DwarsverdelingAantal) > 0)) then
if (DATA.Kenmerken.DwarsverdelingType == "Dubbel") then
_InfoDwarsverdeling = GetLabel(TRL.DubbeleDwarsverdeling@id; _Model; ""; _TaalCode);
else
_InfoDwarsverdeling = GetLabel(UI.Kenmerken.DwarsverdelingAantal@id; _Model; ""; _TaalCode)
end if;
_InfoDwarsverdeling = _InfoDwarsverdeling + " (" + GetLabel("Aantal"; _Model; ""; _TaalCode) + ": " + UI.Kenmerken.DwarsverdelingAantal + ")";
end if;
if _IsSmalleLade then
_InfoIsSmalleLade = GetLabel(TRL.InfoDiverse_IsSmalleLade@id; _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) and (UI.Kenmerken.NietMeeleveren(j).Id <> "TiponBlumotionSet") 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(TRL.InfoDiverse_Sokkel@id; _Model; ""; _TaalCode) + " " + GetLabel(TRL.InfoDiverse_Afkorting_Diepte@id; _Model; ""; _TaalCode) + ":" + UI.Kenmerken.SpaceStep.Sokkeldiepte + "x" + GetLabel(TRL.InfoDiverse_Afkorting_Breedte@id; _Model; ""; _TaalCode) + ":" + UI.Kenmerken.SpaceStep.Sokkelbreedte + "x" + GetLabel(TRL.InfoDiverse_Afkorting_Hoogte@id; _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)) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) // 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 == "True")) 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;
STATE.ProcessedAndExit and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})
STATE.ProcessedAndExit = false;
STATE.ValidationNeeded = true;
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>" + TRL.BewarenError@label + ":" + "</b>";
_Feedback = _Feedback + "<ul style='list-style-type:square;'>";
for i = 1 to Len(DATA.Lijn.InvalidFieldSet@options)
local string _PropertyName = DATA.Lijn.InvalidFieldSet@option(i)@id;
local string _Label = CStr(Eval(_PropertyName + "@label"));
_Feedback = _Feedback + "<li>";
_Feedback = _Feedback + _Label;
_Feedback = _Feedback + "</li>";
end for;
_Feedback = _Feedback + "</ul>";
local long _FeedbackResult = MsgBox(_Feedback);
end if;
SaveAndExit
;state.savedandexit@value;state.validationneeded@value;returnvalue@value;
STATE.SavedAndContinue
STATE.SavedAndContinue = false;
STATE.ValidationNeeded = true;
if (InvalidFields() == 0) then
ReturnValue = "{\"status\":\"ok\",\"name\":\"" + ElementName(CONFIG.ConfigurationName) + "\",\"version\":\"" + ElementVersion(CONFIG.ConfigurationName) + "\",\"continue\":\"true\"}";
local boolean _Result = SaveAndExit();
else
STATE.WinkelkarInfoCalculated = false;
STATE.WinkelkarInfoDiverseCalculated = false;
local string _Feedback = "";
_Feedback = _Feedback + "<b>" + TRL.BewarenError@label + ":" + "</b>";
_Feedback = _Feedback + "<ul style='list-style-type:square;'>";
for i = 1 to Len(DATA.Lijn.InvalidFieldSet@options)
local string _PropertyName = DATA.Lijn.InvalidFieldSet@option(i)@id;
local string _Label = CStr(Eval(_PropertyName + "@label"));
_Feedback = _Feedback + "<li>";
_Feedback = _Feedback + _Label;
_Feedback = _Feedback + "</li>";
end for;
_Feedback = _Feedback + "</ul>";
local long _FeedbackResult = MsgBox(_Feedback);
end if;
SaveAndContinue
;state.savedandcontinue@value;state.validationneeded@value;returnvalue@value;
STATE.KlantVoorkeurenSaved
STATE.KlantVoorkeurenSaved = false;
local boolean _Result;
_Result = SetArg("saveas"; ElementName(CONFIG.KlantVoorkeurenConfigurationName));
_Result = eCon.UI.Tasks.Functions.Save(false);
local string _Feedback = "";
if (_Result) then
_Feedback = _Feedback + "<b>" + TRL.BewarenKlantVoorkeurenSucces@label + "</b>";
_Feedback = _Feedback + "<ul style='list-style-type:square;'>";
for i = 1 to Len(CONFIG.Defaults.KlantVoorkeuren@options)
local string _PropertyName = CONFIG.Defaults.KlantVoorkeuren@option(i)@id;
local string _Label = CStr(Eval(_PropertyName + "@id"));
local string _Id = CStr(Eval(_PropertyName));
local string _Type = CStr(Eval(_PropertyName + "@Type"));
if ((_Type == "String") and(_Id <> "")) then
_Feedback = _Feedback + "<li>";
_Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id); //eval(_PropertyName));
_Feedback = _Feedback + "</li>";
end if;
if ((_Type == "Double") and(CDbl(_Id) > 0)) then
_Feedback = _Feedback + "<li>";
_Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + _Id;
_Feedback = _Feedback + "</li>";
end if;
if (_Type == "Boolean") then
local boolean _IsNietMeeleveren = CBool(InStr(1; LCase(_Label); LCase("NietMeeleveren_")));
local long _PositionOfUnderscore = InStrRev(LCase(_PropertyName); "_");
local string _ShortName = Mid(LCase(_PropertyName); _PositionOfUnderscore + 1);
if (_IsNietMeeleveren and CBool(_Id) and (LCase(_ShortName) in CONFIG.NietMeeleverenExtern@options)) then
_Feedback = _Feedback + "<li>";
_Feedback = _Feedback + DATA.Kenmerken.NietMeeleveren@label + ": " + GetLocalizedLabel(_Label);
_Feedback = _Feedback + "</li>";
end if;
if not(_IsNietMeeleveren) then
_Feedback = _Feedback + "<li>";
_Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id);
_Feedback = _Feedback + "</li>";
end if;
end if;
end for;
_Feedback = _Feedback + "</ul>";
else
_Feedback = _Feedback + "<b>" + TRL.BewarenKlantVoorkeurenError@label + "</b>";
end if;
local long _FeedbackResult = MsgBox(_Feedback);
_Result = SetArg("saveas"; ElementName(CONFIG.ConfigurationName)); // originele ConfigurationName terugzetten
SaveKlantVoorkeuren
;state.klantvoorkeurensaved@value;
BAIAAAAAAAA=
BQMAAAAAAAA=
AgEAAAAAAAACAgAAAAAAAAIDAAAAAAAAAgQAAAAAAAABCQAAAAAAAA==
AQEAAAAAAAACAQAAAAAAAAMBAAAAAAAACAEAAAAAAAAJAQAAAAAAAAEFAAAAAAAAAgUAAAAAAAA=
AQQCAAAAAAACBAIAAAAAAA==
AQYAAAAAAAA=
AgEAAAAAAAACBQAAAAAAAA==
AQIAAAAAAAACAgAAAAAAAAMCAAAAAAAABQIAAAAAAAABAwAAAAAAAA==
AQIAAAAAAAACAgAAAAAAAAMCAAAAAAAABwIAAAAAAAAIAgAAAAAAAAkCAAAAAAAAAQMAAAAAAAACAwAAAAAAAA==
AgIAAAAAAAACAwAAAAAAAA==
AgIAAAAAAAA=
AgIAAAAAAAA=
AQIAAAAAAAADAgAAAAAAAAUCAAAAAAAAAQMAAAAAAAA=
BAIAAAAAAAAEAwAAAAAAAAIEAAAAAAAAAwQAAAAAAAAEBAAAAAAAAA==
AQMAAAAAAAADAwAAAAAAAAQDAAAAAAAABQMAAAAAAAA=
AgEDAAAAAAACAgMAAAAAAA==
AQMBAAAAAAAJAwEAAAAAAAMFAQAAAAAACQMCAAAAAAABAwMAAAAAAAkDAwAAAAAAAwUDAAAAAAAEAQQAAAAAAAcBBAAAAAAAAQMEAAAAAAACAwQAAAAAAAkDBAAAAAAAAwUEAAAAAAA=
AQEDAgAAAAABAwUCAAAAAA==
AQIAAAAAAAA=
AgUDAAAAAAA=
AgICAAAAAAA=
AgIAAAAAAAA=
BgECAAAAAAAHAQIAAAAAAAgBAgAAAAAACQECAAAAAAADAgIAAAAAAAUCAgAAAAAABgICAAAAAAAHAgIAAAAAAAgCAgAAAAAACQICAAAAAAA=
AQIBAAAAAAADAgEAAAAAAA==
AQIBAAAAAAA=
AgQAAAAAAAADBAAAAAAAAAQEAAAAAAAABQQAAAAAAAAGBAAAAAAAAA==
BQMAAAAAAAA=
AgIAAAAAAAADAgAAAAAAAAQCAAAAAAAABQIAAAAAAAAGAgAAAAAAAAIDAAAAAAAAAwMAAAAAAAAEAwAAAAAAAAUDAAAAAAAABgMAAAAAAAACBAAAAAAAAAMEAAAAAAAABAQAAAAAAAAFBAAAAAAAAAYEAAAAAAAA
BAIAAAAAAAA=
AgIDAQEAAAACAgQBAQAAAAICAQIBAAAAAgICAgEAAAACAgUCAQAAAAICAwMBAAAAAgIEAwEAAAACAgMEAQAAAAICBAQBAAAAAgIDBQEAAAACAgQFAQAAAA==
AQMAAAAAAAACAwAAAAAAAAQDAAAAAAAA
AgEAAAAAAAACAgAAAAAAAAIDAAAAAAAA
AgQAAAAAAAA=