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"); Gedrag Omgeving instellen ;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 if (_IsInitiatorAxMsgTableSalesOrderIn) then _BEHAVIOR_ContextName = "AxCreateEdi"; else _BEHAVIOR_ContextName = "AxCreateVH4"; if ((CONFIG.Bulkwijzigingen.ReferentieConfiguratieId <> "") and (CONFIG.Bulkwijzigingen.BulkConfiguratieId <> "")) then _BEHAVIOR_ContextName = "AxCreateBulkWijzigingenToepassen"; 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; /* */ 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 /* CONFIG.Settings.KlantId = GetArg("KlantId"); */ 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"); // Alleen in AX CONFIG.Settings.IsMaatwerkViewerToegelaten = CBool(GetArg("IsMaatwerkViewerToegelaten")); // Alleen in AX SalesTableAx = GetArg("SalesTableAx"); Settings ophalen uit argumenten ;config.settings.klantid@value;config.settings.personalityid@value;config.settings.personalityklantid@value;config.settings.axuserid@value;config.settings.ismaatwerkviewertoegelaten@value;salestableax@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"); 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"}) local boolean _DataKenmerkenTbxVolgensOudeStructuur = false; if (GetArg("data;kenmerken;toepassing") == "") and (GetArg("data;toepassing") <> "") then _DataKenmerkenTbxVolgensOudeStructuur = true; end if; if _DataKenmerkenTbxVolgensOudeStructuur then DATA.Kenmerken.BodemKleur = GetArg("data;bodemkleur"); DATA.Kenmerken.CorpusBreedte = CDbl(Replace(GetArg("data;corpusbreedte");".";",")); DATA.Kenmerken.CorpusWanddikte = CDbl(Replace(GetArg("data;corpuswanddikte");".";",")); DATA.Kenmerken.Draagkracht = GetArg("data;draagkracht"); DATA.Kenmerken.DwarsverdelingAantal = GetArg("data;dwarsverdelingaantal"); DATA.Kenmerken.FrontBevestiging = GetArg("data;frontbevestiging"); DATA.Kenmerken.FrontOndersteuningType = GetArg("data;frontondersteuningtype"); DATA.Kenmerken.FrontStabilisatorAantal = GetArg("data;frontstabilisatoraantal"); DATA.Kenmerken.GeleiderTechnologie = GetArg("data;geleidertechnologie"); DATA.Kenmerken.GreepEnMeenemer = GetArg("data;greepenmeenemer"); DATA.Kenmerken.GeleiderTechnologie = GetArg("data;geleidertechnologie"); DATA.Kenmerken.HangmapBoringAantal = GetArg("data;hangmapboringaantal"); DATA.Kenmerken.HeeftOpvullijstLinks = CBool(GetArg("data;heeftopvullijstlinks")); DATA.Kenmerken.HeeftOpvullijstRechts = CBool(GetArg("data;heeftopvullijstrechts")); DATA.Kenmerken.HeeftZijstabilisering = CBool(GetArg("data;heeftzijstabilisering")); DATA.Kenmerken.InbouwHoogte = GetArg("data;inbouwhoogte"); DATA.Kenmerken.IsBinnenbreedte = CBool(GetArg("data;isbinnenbreedte")); DATA.Kenmerken.IsBinnenlade = CBool(GetArg("data;isbinnenlade")); DATA.Kenmerken.LadeDiepte = GetArg("data;ladediepte"); DATA.Kenmerken.LadeKleur = GetArg("data;ladekleur"); DATA.Kenmerken.MatKleur = GetArg("data;matkleur"); DATA.Kenmerken.MatMateriaal = GetArg("data;matmateriaal"); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Afdekkap = CBool(GetArg("data;nietmeeleveren;nietmeeleveren_afdekkap")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Antislipmat = CBool(GetArg("data;nietmeeleveren;nietmeeleveren_antislipmat")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Bodemsteun = CBool(GetArg("data;nietmeeleveren;nietmeeleveren_bodemsteun")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging = CBool(GetArg("data;nietmeeleveren;nietmeeleveren_frontbevestiging")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider = CBool(GetArg("data;nietmeeleveren;nietmeeleveren_geleider")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElement = CBool(GetArg("data;nietmeeleveren;nietmeeleveren_inschuifelement")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = CBool(GetArg("data;nietmeeleveren;nietmeeleveren_opvullijst")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Reling = CBool(GetArg("data;nietmeeleveren;nietmeeleveren_reling")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen = CBool(GetArg("data;nietmeeleveren;nietmeeleveren_tiponblumotiononderdelen")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = CBool(GetArg("data;nietmeeleveren;nietmeeleveren_tiponblumotionset")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = CBool(GetArg("data;nietmeeleveren;nietmeeleveren_tiponblumotionsynchronisatiestang")); // "data;nietmeeleveren;nietmeeleveren_tiponblumotionsynchronisatietoebehoren" was niet voorzien in de "oude structure" DATA.Kenmerken.OpvullijstKleur = GetArg("data;opvullijstkleur"); DATA.Kenmerken.ProductieWijze = GetArg("data;productiewijze"); DATA.Kenmerken.RugHoogte = GetArg("data;rughoogte"); DATA.Kenmerken.RugwandMateriaal = GetArg("data;rugwandmateriaal"); DATA.Kenmerken.Toepassing = GetArg("data;toepassing"); DATA.Kenmerken.UitsparingData.UitsparingAantal = GetArg("data;uitsparingdata;uitsparingaantal"); DATA.Kenmerken.UitsparingData.M.Breedte = CDbl(Replace(GetArg("data;uitsparingdata;m;breedte");".";",")); DATA.Kenmerken.UitsparingData.M.Hoogte = GetArg("data;uitsparingdata;m;hoogte"); DATA.Kenmerken.UitsparingData.M.Materiaal = GetArg("data;uitsparingdata;m;materiaal"); DATA.Kenmerken.UitsparingData.X.Breedte = CDbl(Replace(GetArg("data;uitsparingdata;x;breedte");".";",")); DATA.Kenmerken.UitsparingData.X.Hoogte = GetArg("data;uitsparingdata;x;hoogte"); DATA.Kenmerken.UitsparingData.X.Materiaal = GetArg("data;uitsparingdata;x;materiaal"); DATA.Kenmerken.UitsparingData.Y.Breedte = CDbl(Replace(GetArg("data;uitsparingdata;y;breedte");".";",")); DATA.Kenmerken.UitsparingData.Y.Hoogte = GetArg("data;uitsparingdata;y;hoogte"); DATA.Kenmerken.UitsparingData.Y.Materiaal = GetArg("data;uitsparingdata;y;materiaal"); DATA.Kenmerken.UitsparingData.Z1.Breedte = CDbl(Replace(GetArg("data;uitsparingdata;z1;breedte");".";",")); DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(Replace(GetArg("data;uitsparingdata;z1;diepte");".";",")); DATA.Kenmerken.UitsparingData.Z1.Hoogte = GetArg("data;uitsparingdata;z1;hoogte"); DATA.Kenmerken.UitsparingData.Z1.Materiaal = GetArg("data;uitsparingdata;z1;materiaal"); DATA.Kenmerken.UitsparingData.Z1.Vorm = GetArg("data;uitsparingdata;z1;vorm"); DATA.Kenmerken.UitsparingData.Z2.Breedte = CDbl(Replace(GetArg("data;uitsparingdata;z2;breedte");".";",")); DATA.Kenmerken.UitsparingData.Z2.Diepte = CDbl(Replace(GetArg("data;uitsparingdata;z2;diepte");".";",")); DATA.Kenmerken.UitsparingData.Z2.Hoogte = GetArg("data;uitsparingdata;z2;hoogte"); DATA.Kenmerken.UitsparingData.Z2.Materiaal = GetArg("data;uitsparingdata;z2;materiaal"); DATA.Kenmerken.UitsparingData.Z2.Vorm = GetArg("data;uitsparingdata;z2;vorm"); DATA.Kenmerken.VerpakkingType = GetArg("data;verpakkingtype"); DATA.Kenmerken.ZijkantHoogte = GetArg("data;zijkanthoogte"); DATA.Kenmerken.ZijwandHoogte = GetArg("data;zijwandhoogte"); DATA.Kenmerken.ZijwandVerhogingType = GetArg("data;zijwandverhogingtype"); DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur = GetArg("data;zijwandverhoginginschuifelementkleur"); else 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.FrontBevestiging = GetArg("data;kenmerken;frontbevestiging"); DATA.Kenmerken.FrontOndersteuningType = GetArg("data;kenmerken;frontondersteuningtype"); DATA.Kenmerken.FrontStabilisatorAantal = GetArg("data;kenmerken;frontstabilisatoraantal"); DATA.Kenmerken.GeleiderTechnologie = GetArg("data;kenmerken;geleidertechnologie"); DATA.Kenmerken.GreepEnMeenemer = GetArg("data;kenmerken;greepenmeenemer"); DATA.Kenmerken.GeleiderTechnologie = GetArg("data;kenmerken;geleidertechnologie"); local string _HangmapBoringAantal = GetArg("data;kenmerken;hangmapboringaantal"); if _HangmapBoringAantal == "" then _HangmapBoringAantal = "0"; end if; DATA.Kenmerken.HangmapBoringAantal = _HangmapBoringAantal; 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.InbouwHoogte = GetArg("data;kenmerken;inbouwhoogte"); 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.LadeKleur = GetArg("data;kenmerken;ladekleur"); DATA.Kenmerken.MatKleur = GetArg("data;kenmerken;matkleur"); DATA.Kenmerken.MatMateriaal = GetArg("data;kenmerken;matmateriaal"); DATA.Kenmerken.MinTolerantieOpIB = GetArg("data;kenmerken;mintolerantieopib"); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Afdekkap = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkap")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Antislipmat = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_antislipmat")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Bodemsteun = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_bodemsteun")); 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_InschuifElement = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_inschuifelement")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_opvullijst")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Reling = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_reling")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotiononderdelen")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionset")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionsynchronisatiestang")); DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionsynchronisatietoebehoren")); DATA.Kenmerken.OpvullijstKleur = GetArg("data;kenmerken;opvullijstkleur"); DATA.Kenmerken.Plaatmateriaal = GetArg("data;kenmerken;plaatmateriaal"); 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"); local string _UitsparingAantal = GetArg("data;kenmerken;uitsparingdata;uitsparingaantal"); if _UitsparingAantal == "1" then _UitsparingAantal = "Enkel"; end if; if _UitsparingAantal == "2" then _UitsparingAantal = "Dubbel"; end if; DATA.Kenmerken.UitsparingData.UitsparingAantal = _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.VerpakkingType = GetArg("data;kenmerken;verpakkingtype"); DATA.Kenmerken.ZijkantHoogte = GetArg("data;kenmerken;zijkanthoogte"); DATA.Kenmerken.ZijwandHoogte = GetArg("data;kenmerken;zijwandhoogte"); DATA.Kenmerken.ZijwandVerhogingType = GetArg("data;kenmerken;zijwandverhogingtype"); DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur = GetArg("data;kenmerken;zijwandverhoginginschuifelementkleur"); end if; DATA.Kenmerken.Familie = GetArg("data;kenmerken;familie"); DATA.Kenmerken.Variant = GetArg("data;kenmerken;variant"); DATA.Lijn.Aantal = CDbl(GetArg("data;lijn;aantal")); DATA.Lijn.Referentie = GetArg("data;lijn;referentie"); // IsAutomatischBepaaldMTIB invullen local boolean _IsAutomatischBepaaldMTIB = true; if (DATA.Kenmerken.MinTolerantieOpIB == "0") and (DATA.Kenmerken.CorpusWanddikte > 0) then _IsAutomatischBepaaldMTIB = false; end if; if (DATA.Kenmerken.MinTolerantieOpIB == "1") and (DATA.Kenmerken.IsBinnenbreedte) then _IsAutomatischBepaaldMTIB = false; end if; if (DATA.Kenmerken.MinTolerantieOpIB == "") then _IsAutomatischBepaaldMTIB = true; // (CorpusBreedte moet met InterneBreedte vergeleken worden) end if; DATA.BerekendeWaarden.IsAutomatischBepaaldMTIB = _IsAutomatischBepaaldMTIB; 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.frontbevestiging@value;data.kenmerken.frontondersteuningtype@value;data.kenmerken.frontstabilisatoraantal@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.greepenmeenemer@value;data.kenmerken.hangmapboringaantal@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.inbouwhoogte@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladediepte@value;data.kenmerken.ladekleur@value;data.kenmerken.matkleur@value;data.kenmerken.matmateriaal@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkap@value;data.kenmerken.nietmeeleveren.nietmeeleveren_antislipmat@value;data.kenmerken.nietmeeleveren.nietmeeleveren_bodemsteun@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestiging@value;data.kenmerken.nietmeeleveren.nietmeeleveren_geleider@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelement@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.nietmeeleveren.nietmeeleveren_reling@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotiononderdelen@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@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.verpakkingtype@value;data.kenmerken.zijkanthoogte@value;data.kenmerken.zijwandhoogte@value;data.kenmerken.zijwandverhogingtype@value;data.kenmerken.zijwandverhoginginschuifelementkleur@value;data.kenmerken.familie@value;data.kenmerken.variant@value;data.lijn.aantal@value;data.lijn.referentie@value;data.berekendewaarden.isautomatischbepaaldmtib@value; (CONFIG.ProcessMode <> "Background") Kenmerken ophalen uit argumenten (Interactive) ; BEHAVIOR.IsEconWeb if (CONFIG.Token == "") then // todo: configurator afsluiten indien geen token opgegeven local boolean _Result = true; //Exit(true;false); end if; Initialisatie web ; true STATE.KlantVoorkeurenSaved = false; Initialisatie states ;state.klantvoorkeurensaved@value; true /* local string _OperationMode = GetArg("operationmode"); local string _Configuration = GetArg("configuration"); if (_Configuration <> "") then CONFIG.InputMode = "Edit"; end if; CONFIG.Settings.OperationMode = "Extern"; if (LCase(_OperationMode) == "intern") or (BEHAVIOR.IsEconAx) then CONFIG.Settings.OperationMode = "Intern"; end if; */ Ophalen OperationMode en Inputmode ; 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; BEHAVIOR.IsEconWeb local string _Connection = GetSetting("data.connectionstring"); local string _Query = "SELECT Id, Name FROM ti.MDLanguage WHERE Active = '1'"; CONFIG.Database.Languages@options = {}; CONFIG.Database.Languages@options = ExecuteOptionsQuery("CONFIG.Database.Languages"; true; _Connection; _Query); STATE.LanguagesLoaded = true; Actieve talen ophalen ;config.database.languages@options;state.languagesloaded@value; (CONFIG.InputMode <> "CreateConfig") HELP.HelpUrl = "tbx/" + CONFIG.Language + ".xml"; Tooltips ;help.helpurl@value; not(BEHAVIOR.ContextName == "AxNewBulkIngave") local boolean _Result = CopyOptionsToArray("UI.NietMeeleverenOptions"; "UI.NietMeeleveren"); index i of UI.NietMeeleveren UI.NietMeeleveren(i)@label = GetLocalizedLabel("NietMeeleveren"); UI.NietMeeleveren(i)@repeat = false; UI.NietMeeleveren(i).IsSelected@style.controlclass = "vh-slidercheckbox"; UI.NietMeeleveren(i).Text@style.controlclass = "vh-checkboxlist-item"; UI.NietMeeleveren(i).Text = GetLocalizedLabel(UI.NietMeeleveren(i).Text); end index; NietMeeleveren ;ui.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; if (CONFIG.Settings.PersonalityId == "") then CONFIG.Settings.PersonalityId = "1"; end if; Config settings ophalen (Web) ;config.settings.personalityid@value; 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 (BEHAVIOR.IsEconWeb) // HEIN + SEEFELDER if ((CONFIG.Settings.PersonalityId == "11") or (CONFIG.Settings.PersonalityId == "13")) then CONFIG.Settings.FrontBevestigingVerbergen = true; CONFIG.Settings.FrontOndersteuningTypeVerbergen = true; end if; // DARO if (CONFIG.Settings.PersonalityId == "10") then //CONFIG.Settings.VerpakkingTypeVerbergen= true; CONFIG.Settings.NietMeeleverenVerbergen = true; CONFIG.Settings.IsBenelux = 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; // BLUM POLSKA if ((Config.Settings.PersonalityId == "48") or ((Config.Settings.PersonalityId == "1") and (Config.Settings.KlantId == "37598"))) then BEHAVIOR.IsMaximaleBreedteBeperktTot1168Mm = true; end if; // BLUM CZ if ((Config.Settings.PersonalityId == "74") or ((Config.Settings.PersonalityId == "1") and (Config.Settings.KlantId == "39580"))) then BEHAVIOR.IsToepassingSP2Toegelaten = false; end if; // MatMateriaalAntislip verbergen voor alle MP if (Config.Settings.PersonalityId <> "1") then CONFIG.Settings.MatMateriaalAntislipToegelaten = false; end if; BEHAVIOR.IsToepassingSP2Toegelaten Config settings hardcoded (settings voor de MP) ;config.settings.frontbevestigingverbergen@value;config.settings.frontondersteuningtypeverbergen@value;config.settings.nietmeeleverenverbergen@value;config.settings.isbenelux@value;config.settings.verpakkingproboxtoegelaten@value;config.settings.verpakkingtooltipstonen@value;behavior.ismaximalebreedtebeperkttot1168mm@value;behavior.istoepassingsp2toegelaten@value;config.settings.matmateriaalantisliptoegelaten@value; true local boolean _IsZijkantHoogteKToegelaten = true; /* if (BEHAVIOR.IsEconWeb) then local string _KlantIdNoteborn = "02669"; _IsZijkantHoogteKToegelaten = (CONFIG.Settings.KlantId == _KlantIdNoteborn); // Product heeft beperkte voorraad, vandaar tijdelijk enkel toegelaten voor klant Noterborn. // _IsZijkantHoogteKToegelaten = false; else local string _KlantIdNoteborn = "2669"; _IsZijkantHoogteKToegelaten = (CONFIG.Settings.KlantId == _KlantIdNoteborn); // Product heeft beperkte voorraad, vandaar tijdelijk enkel toegelaten voor klant Noterborn. end if; */ BEHAVIOR.IsZijkantHoogteKToegelaten = _IsZijkantHoogteKToegelaten; Instellen overig Gedrag (BEHAVIORS) ;behavior.iszijkanthoogtektoegelaten@value; (CONFIG.InputMode <> "CreateConfig") CONFIG.ReferentieConfiguratie = GetArg("referentieconfiguratie"); ReferentieConfiguratie ophalen ;config.referentieconfiguratie@value; (CONFIG.InputMode <> "CreateConfig") and (BEHAVIOR.IsEconWeb) 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.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 = GetLocalizedLabel("SaveAndExitButton"); if (_IsEditMode) then _LabelSave = TRL.SaveChangesButton@label; end if; UI.Buttons.Top.SaveAndExitButton@label = _LabelSave; UI.Buttons.Bottom.SaveAndExitButton@label = _LabelSave; UI.Buttons.Top.SaveAndExitButton@visible = (BEHAVIOR.IsEconWeb); UI.Buttons.Top.SaveAndContinueButton@visible = not(_IsEditMode) and (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 = (BEHAVIOR.IsEconWeb); 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.BodemKleur; for i = 1 to len(UI.BodemKleur@options) UI.BodemKleur = UI.BodemKleur@option(i)@id; UI.BodemKleur.Text = DATA.Kenmerken.BodemKleur@option(i)@label; end for; UI.BodemKleur = SelectedOption; SelectedOption = UI.InbouwHoogte; for i = 1 to len(UI.InbouwHoogte@options) UI.InbouwHoogte = UI.InbouwHoogte@option(i)@id; UI.InbouwHoogte.Text = DATA.Kenmerken.InbouwHoogte@option(i)@label; end for; UI.InbouwHoogte = SelectedOption; SelectedOption = UI.LadeKleur; for i = 1 to len(UI.LadeKleur@options) UI.LadeKleur = UI.LadeKleur@option(i)@id; UI.LadeKleur.Text = DATA.Kenmerken.LadeKleur@option(i)@label; end for; UI.LadeKleur = SelectedOption; SelectedOption = UI.MatAntislipKleur; for i = 1 to len(UI.MatAntislipKleur@options) UI.MatAntislipKleur = UI.MatAntislipKleur@option(i)@id; UI.MatAntislipKleur.Text = GetLocalizedLabel("MatAntislipKleur_" + UI.MatAntislipKleur); end for; UI.MatAntislipKleur = SelectedOption; SelectedOption = UI.MatAntislipFiberKleur; for i = 1 to len(UI.MatAntislipFiberKleur@options) UI.MatAntislipFiberKleur = UI.MatAntislipFiberKleur@option(i)@id; UI.MatAntislipFiberKleur.Text = GetLocalizedLabel("MatAntislipFiberKleur_" + UI.MatAntislipFiberKleur); end for; UI.MatAntislipFiberKleur = SelectedOption; SelectedOption = UI.MatAntislipFlockKleur; for i = 1 to len(UI.MatAntislipFlockKleur@options) UI.MatAntislipFlockKleur = UI.MatAntislipFlockKleur@option(i)@id; UI.MatAntislipFlockKleur.Text = GetLocalizedLabel("MatAntislipFlockKleur_" + UI.MatAntislipFlockKleur); end for; UI.MatAntislipFlockKleur = SelectedOption; SelectedOption = UI.MatMateriaal; for i = 1 to len(UI.MatMateriaal@options) UI.MatMateriaal = UI.MatMateriaal@option(i)@id; UI.MatMateriaal.Text = DATA.Kenmerken.MatMateriaal@option(UI.MatMateriaal.Value)@label; end for; UI.MatMateriaal = SelectedOption; SelectedOption = UI.MatVinylFiberglassKleur; for i = 1 to len(UI.MatVinylFiberglassKleur@options) UI.MatVinylFiberglassKleur = UI.MatVinylFiberglassKleur@option(i)@id; UI.MatVinylFiberglassKleur.Text = GetLocalizedLabel("MatVinylFiberglassKleur_" + UI.MatVinylFiberglassKleur); end for; UI.MatVinylFiberglassKleur = SelectedOption; SelectedOption = UI.OpvullijstKleur; for i = 1 to len(UI.OpvullijstKleur@options) UI.OpvullijstKleur = UI.OpvullijstKleur@option(i)@id; UI.OpvullijstKleur.Text = DATA.Kenmerken.OpvullijstKleur@option(i)@label; end for; UI.OpvullijstKleur = SelectedOption; SelectedOption = UI.ZijwandVerhogingType; for i = 1 to len(UI.ZijwandVerhogingType@options) UI.ZijwandVerhogingType = UI.ZijwandVerhogingType@option(i)@id; UI.ZijwandVerhogingType.Text = DATA.Kenmerken.ZijwandVerhogingType@option(i)@label; end for; UI.ZijwandVerhogingType = SelectedOption; SelectedOption = UI.ZijwandVerhogingRelingKleur; for i = 1 to len(UI.ZijwandVerhogingRelingKleur@options) UI.ZijwandVerhogingRelingKleur = UI.ZijwandVerhogingRelingKleur@option(i)@id; UI.ZijwandVerhogingRelingKleur.Text = DATA.Kenmerken.ZijwandVerhogingRelingKleur@option(i)@label; end for; UI.ZijwandVerhogingRelingKleur = SelectedOption; Vertalingen UI image labels ;ui.bodemkleur@value;ui.inbouwhoogte@value;ui.ladekleur@value;ui.matantislipkleur@value;ui.matantislipfiberkleur@value;ui.matantislipflockkleur@value;ui.matmateriaal@value;ui.matvinylfiberglasskleur@value;ui.opvullijstkleur@value;ui.zijwandverhogingtype@value;ui.zijwandverhogingrelingkleur@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.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.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; Vertalingen bulk UI image labels ;ui.bulkkenmerken.bodemkleur@value;ui.bulkkenmerken.ladekleur@value;ui.bulkkenmerken.matantislipfiberkleur@value;ui.bulkkenmerken.matantislipflockkleur@value;ui.bulkkenmerken.matmateriaal@value;ui.bulkkenmerken.matvinylfiberglasskleur@value;ui.bulkkenmerken.opvullijstkleur@value; true local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); UI.VerpakkingOptiesToonAlle@visible = false; // _IsIntern; Voorlopig zijn voor Intern alle verpakkingen toch reeds zichtbaar. UI.HeeftAfwijkendeRugHoogte@visible = _IsIntern; UI.HangmapBoringAantal@visible = false; // _IsIntern and not(UI.IsBinnenlade); Uitgefaseerd dus mag weg volgens PM, want wordt reeds geruime tijd niet meer gevraagd. UI.HangmapBoringAantal@mandatory = false; // --> idem :-P UI.ProductieWijze@visible = _IsIntern; UI.ProductieWijze@mandatory = _IsIntern; // Voor ProductieWijze bestaan er reeds andere constraints, daarom heeft volgende code geen effect, en moet dit dus ook via constraints toegepast worden. // Zie constraint "Bij AccessMode Intern is ProductieWijze X/BFR niet mogelijk". /* if _IsIntern then DATA.Kenmerken.ProductieWijze@option("B-F-R")@valid = false; DATA.Kenmerken.ProductieWijze@option("X")@valid = false; end if; */ UI.Plaatmateriaal@visible = _IsIntern; UI.Plaatmateriaal@mandatory = _IsIntern; UI.Toepassing@option("SY2")@visible = not(BEHAVIOR.IsInteractive); //Workaround vanwege onverklaarbaar gedrag van default en value UI.Toepassing@option("B")@visible = false; UI.FrontOndersteuningType@option("HS")@visible = _IsIntern; UI.BulkKenmerken.FrontOndersteuningType@option("HS")@visible = _IsIntern; UI.RugHoogte@option("X38")@visible = _IsIntern; UI.ZijwandVerhogingType@option("InschuifElement")@visible = false; UI.MatMateriaal@option("AZ")@visible = true; UI.Dwarsverdelingaantal@option("2x2")@visible = false; //Op 25/03/2021 werd de laatst mogelijke combinatie met deze 2x2 ook not valid dus kan deze optie op niet zichtbaar worden geplaatst UI.AfmetingenLayout.IsActiefMTIB@visible = _IsIntern; UI.AfmetingenLayout.IsActiefMTIBxLabelText@visible = _IsIntern; DATA.BulkKenmerken@length = 1; Beperkingen intern/extern ;ui.verpakkingoptiestoonalle@visible;ui.heeftafwijkenderughoogte@visible;ui.hangmapboringaantal@visible;ui.hangmapboringaantal@mandatory;ui.productiewijze@visible;ui.productiewijze@mandatory;ui.plaatmateriaal@visible;ui.plaatmateriaal@mandatory;ui.toepassing@options;ui.frontondersteuningtype@options;ui.bulkkenmerken.frontondersteuningtype@options;ui.rughoogte@options;ui.zijwandverhogingtype@options;ui.matmateriaal@options;ui.dwarsverdelingaantal@options;ui.afmetingenlayout.isactiefmtib@visible;ui.afmetingenlayout.isactiefmtibxlabeltext@visible; true STATE.Initialized = false; Einde initialisatie ;state.initialized@value; (CONFIG.Token == "updateKenmerken") or (CONFIG.Token == "128eababb1a1596e3c130b0e0fd5be820334a01a16bf777d1c5439fcfa861e16") CONFIG.InputMode = "CreateConfig"; CONFIG.Settings.OperationMode = "Extern"; if (CONFIG.Settings.PersonalityId == "") then CONFIG.Settings.PersonalityId = "1"; end if; Update kenmerken ;config.inputmode@value;config.settings.operationmode@value;config.settings.personalityid@value; (DATA.Toepassing <> "") UI.Toepassing@option("SY2")@visible = true; DATA.Kenmerken.Toepassing = DATA.Toepassing; DATA.Toepassing = ""; Toepassing ;ui.toepassing@options;data.kenmerken.toepassing@value;data.toepassing@value; (DATA.BodemKleur <> "") DATA.Kenmerken.BodemKleur = DATA.BodemKleur; DATA.BodemKleur = ""; BodemKleur ;data.kenmerken.bodemkleur@value;data.bodemkleur@value; (DATA.CorpusBreedte <> 0) DATA.Kenmerken.CorpusBreedte = DATA.CorpusBreedte; DATA.CorpusBreedte = 0; CorpusBreedte ;data.kenmerken.corpusbreedte@value;data.corpusbreedte@value; (DATA.CorpusWanddikte <> 0) DATA.Kenmerken.CorpusWanddikte = DATA.CorpusWanddikte; DATA.CorpusWanddikte = 0; CorpusWanddikte ;data.kenmerken.corpuswanddikte@value;data.corpuswanddikte@value; (DATA.DraagKracht <> "") DATA.Kenmerken.DraagKracht = DATA.DraagKracht; DATA.DraagKracht = ""; DraagKracht ;data.kenmerken.draagkracht@value;data.draagkracht@value; (DATA.DwarsverdelingAantal <> "") DATA.Kenmerken.DwarsverdelingAantal = DATA.DwarsverdelingAantal; DATA.DwarsverdelingAantal = ""; DwarsverdelingAantal ;data.kenmerken.dwarsverdelingaantal@value;data.dwarsverdelingaantal@value; (DATA.Frontbevestiging <> "") DATA.Kenmerken.Frontbevestiging = DATA.Frontbevestiging; DATA.Frontbevestiging = ""; Frontbevestiging ;data.kenmerken.frontbevestiging@value;data.frontbevestiging@value; (DATA.Frontondersteuningtype <> "") DATA.Kenmerken.Frontondersteuningtype = DATA.Frontondersteuningtype; DATA.Frontondersteuningtype = ""; Frontondersteuningtype ;data.kenmerken.frontondersteuningtype@value;data.frontondersteuningtype@value; (DATA.Frontstabilisatoraantal <> "") DATA.Kenmerken.Frontstabilisatoraantal = DATA.Frontstabilisatoraantal; DATA.Frontstabilisatoraantal = ""; Frontstabilisatoraantal ;data.kenmerken.frontstabilisatoraantal@value;data.frontstabilisatoraantal@value; (DATA.GeleiderTechnologie <> "") DATA.Kenmerken.GeleiderTechnologie = DATA.GeleiderTechnologie; DATA.GeleiderTechnologie = ""; GeleiderTechnologie ;data.kenmerken.geleidertechnologie@value;data.geleidertechnologie@value; (DATA.GreepEnMeenemer <> "") DATA.Kenmerken.GreepEnMeenemer = DATA.GreepEnMeenemer; DATA.GreepEnMeenemer = ""; GreepEnMeenemer ;data.kenmerken.greepenmeenemer@value;data.greepenmeenemer@value; (DATA.HangmapBoringAantal <> "") DATA.Kenmerken.HangmapBoringAantal = DATA.HangmapBoringAantal; DATA.HangmapBoringAantal = ""; HangmapBoringAantal ;data.kenmerken.hangmapboringaantal@value;data.hangmapboringaantal@value; (DATA.HeeftAfwijkendeRugHoogte) DATA.Kenmerken.HeeftAfwijkendeRugHoogte = DATA.HeeftAfwijkendeRugHoogte; DATA.HeeftAfwijkendeRugHoogte = false; HeeftAfwijkendeRugHoogte ;data.kenmerken.heeftafwijkenderughoogte@value;data.heeftafwijkenderughoogte@value; (DATA.HeeftOpvullijstLinks) DATA.Kenmerken.HeeftOpvullijstLinks = DATA.HeeftOpvullijstLinks; DATA.HeeftOpvullijstLinks = false; HeeftOpvullijstLinks ;data.kenmerken.heeftopvullijstlinks@value;data.heeftopvullijstlinks@value; (DATA.HeeftOpvullijstRechts) DATA.Kenmerken.HeeftOpvullijstRechts = DATA.HeeftOpvullijstRechts; DATA.HeeftOpvullijstRechts = false; HeeftOpvullijstRechts ;data.kenmerken.heeftopvullijstrechts@value;data.heeftopvullijstrechts@value; (DATA.HeeftZijstabilisering) DATA.Kenmerken.HeeftZijstabilisering = DATA.HeeftZijstabilisering; DATA.HeeftZijstabilisering = false; HeeftZijstabilisering ;data.kenmerken.heeftzijstabilisering@value;data.heeftzijstabilisering@value; (DATA.InbouwHoogte <> "") DATA.Kenmerken.InbouwHoogte = DATA.InbouwHoogte; DATA.InbouwHoogte = ""; InbouwHoogte ;data.kenmerken.inbouwhoogte@value;data.inbouwhoogte@value; (DATA.IsBinnenbreedte == false) DATA.Kenmerken.IsBinnenbreedte = DATA.IsBinnenbreedte; DATA.IsBinnenbreedte = true; IsBinnenbreedte ;data.kenmerken.isbinnenbreedte@value;data.isbinnenbreedte@value; (DATA.IsBinnenlade) DATA.Kenmerken.IsBinnenlade = DATA.IsBinnenlade; DATA.IsBinnenlade = false; IsBinnenlade ;data.kenmerken.isbinnenlade@value;data.isbinnenlade@value; (DATA.LadeDesign <> "") DATA.Kenmerken.LadeDesign = DATA.LadeDesign; DATA.LadeDesign = ""; LadeDesign ;data.kenmerken.ladedesign@value;data.ladedesign@value; (DATA.LadeDiepte <> "") DATA.Kenmerken.LadeDiepte = DATA.LadeDiepte; DATA.LadeDiepte = ""; LadeDiepte ;data.kenmerken.ladediepte@value;data.ladediepte@value; (DATA.LadeKleur <> "") DATA.Kenmerken.LadeKleur = DATA.LadeKleur; DATA.LadeKleur = ""; LadeKleur ;data.kenmerken.ladekleur@value;data.ladekleur@value; (DATA.MatKleur <> "") DATA.Kenmerken.MatKleur = DATA.MatKleur; DATA.MatKleur = ""; MatKleur ;data.kenmerken.matkleur@value;data.matkleur@value; (DATA.MatMateriaal <> "") DATA.Kenmerken.MatMateriaal = DATA.MatMateriaal; DATA.MatMateriaal = ""; MatMateriaal ;data.kenmerken.matmateriaal@value;data.matmateriaal@value; (DATA.NietMeeleveren.NietMeeleveren_Geleider) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider = DATA.NietMeeleveren.NietMeeleveren_Geleider; DATA.NietMeeleveren.NietMeeleveren_Geleider = false; NietMeeleveren Geleider ;data.kenmerken.nietmeeleveren.nietmeeleveren_geleider@value;data.nietmeeleveren.nietmeeleveren_geleider@value; (DATA.NietMeeleveren.NietMeeleveren_Afdekkap) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Afdekkap = DATA.NietMeeleveren.NietMeeleveren_Afdekkap; DATA.NietMeeleveren.NietMeeleveren_Afdekkap = false; NietMeeleveren Afdekkap ;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkap@value;data.nietmeeleveren.nietmeeleveren_afdekkap@value; (DATA.NietMeeleveren.NietMeeleveren_Bodemsteun) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Bodemsteun = DATA.NietMeeleveren.NietMeeleveren_Bodemsteun; DATA.NietMeeleveren.NietMeeleveren_Bodemsteun = false; NietMeeleveren Bodemsteun ;data.kenmerken.nietmeeleveren.nietmeeleveren_bodemsteun@value;data.nietmeeleveren.nietmeeleveren_bodemsteun@value; (DATA.NietMeeleveren.NietMeeleveren_Reling) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Reling = DATA.NietMeeleveren.NietMeeleveren_Reling; DATA.NietMeeleveren.NietMeeleveren_Reling = false; NietMeeleveren Reling ;data.kenmerken.nietmeeleveren.nietmeeleveren_reling@value;data.nietmeeleveren.nietmeeleveren_reling@value; (DATA.NietMeeleveren.NietMeeleveren_InschuifElement) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElement = DATA.NietMeeleveren.NietMeeleveren_InschuifElement; DATA.NietMeeleveren.NietMeeleveren_InschuifElement = false; NietMeeleveren InschuifElement ;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelement@value;data.nietmeeleveren.nietmeeleveren_inschuifelement@value; (DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSet) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSet; DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = false; NietMeeleveren TiponBlumotionSet ;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.nietmeeleveren.nietmeeleveren_tiponblumotionset@value; (DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = false; NietMeeleveren TiponBlumotionSynchronisatieStang ;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value; (DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen = DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; DATA.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen = false; NietMeeleveren TiponBlumotionOnderdelen ;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotiononderdelen@value;data.nietmeeleveren.nietmeeleveren_tiponblumotiononderdelen@value; (DATA.NietMeeleveren.NietMeeleveren_FrontBevestiging) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging = DATA.NietMeeleveren.NietMeeleveren_FrontBevestiging; DATA.NietMeeleveren.NietMeeleveren_FrontBevestiging = false; NietMeeleveren FrontBevestiging ;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestiging@value;data.nietmeeleveren.nietmeeleveren_frontbevestiging@value; (DATA.NietMeeleveren.NietMeeleveren_Opvullijst) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = DATA.NietMeeleveren.NietMeeleveren_Opvullijst; DATA.NietMeeleveren.NietMeeleveren_Opvullijst = false; NietMeeleveren Opvullijst ;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.nietmeeleveren.nietmeeleveren_opvullijst@value; (DATA.NietMeeleveren.NietMeeleveren_Antislipmat) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Antislipmat = DATA.NietMeeleveren.NietMeeleveren_Antislipmat; DATA.NietMeeleveren.NietMeeleveren_Antislipmat = false; NietMeeleveren Antislipmat ;data.kenmerken.nietmeeleveren.nietmeeleveren_antislipmat@value;data.nietmeeleveren.nietmeeleveren_antislipmat@value; (DATA.OpvullijstKleur <> "") DATA.Kenmerken.OpvullijstKleur = DATA.OpvullijstKleur; DATA.OpvullijstKleur = ""; local string OptionToSelect = ""; OptionToSelect = UI.OpvullijstKleur; for i = 1 to len(UI.OpvullijstKleur@options) UI.OpvullijstKleur= UI.OpvullijstKleur@option(i)@id; if (UI.OpvullijstKleur.Value == DATA.Kenmerken.OpvullijstKleur) then OptionToSelect = UI.OpvullijstKleur; end if; end for; UI.OpvullijstKleur@default = OptionToSelect; OpvullijstKleur ;data.kenmerken.opvullijstkleur@value;data.opvullijstkleur@value;ui.opvullijstkleur@default; (DATA.ProductieWijze <> "") DATA.Kenmerken.ProductieWijze = DATA.ProductieWijze; DATA.ProductieWijze = ""; ProductieWijze ;data.kenmerken.productiewijze@value;data.productiewijze@value; (DATA.RugHoogte <> "") DATA.Kenmerken.RugHoogte = DATA.RugHoogte; DATA.RugHoogte = ""; RugHoogte ;data.kenmerken.rughoogte@value;data.rughoogte@value; (DATA.RugwandMateriaal <> "") DATA.Kenmerken.RugwandMateriaal = DATA.RugwandMateriaal; DATA.RugwandMateriaal = ""; RugwandMateriaal ;data.kenmerken.rugwandmateriaal@value;data.rugwandmateriaal@value; (DATA.UitsparingData.UitsparingAantal <> "") DATA.Kenmerken.UitsparingData.UitsparingAantal = DATA.UitsparingData.UitsparingAantal; DATA.UitsparingData.UitsparingAantal = ""; UitsparingData UitsparingAantal ;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.uitsparingdata.uitsparingaantal@value; (DATA.UitsparingData.X.Breedte <> 0) DATA.Kenmerken.UitsparingData.X.Breedte = DATA.UitsparingData.X.Breedte; DATA.UitsparingData.X.Breedte = 0; UitsparingData X Breedte ;data.kenmerken.uitsparingdata.x.breedte@value;data.uitsparingdata.x.breedte@value; (DATA.UitsparingData.X.Hoogte <> "") DATA.Kenmerken.UitsparingData.X.Hoogte = DATA.UitsparingData.X.Hoogte; DATA.UitsparingData.X.Hoogte = ""; UitsparingData X Hoogte ;data.kenmerken.uitsparingdata.x.hoogte@value;data.uitsparingdata.x.hoogte@value; (DATA.UitsparingData.X.Materiaal <> "") DATA.Kenmerken.UitsparingData.X.Materiaal = DATA.UitsparingData.X.Materiaal; DATA.UitsparingData.X.Materiaal = ""; UitsparingData X Materiaal ;data.kenmerken.uitsparingdata.x.materiaal@value;data.uitsparingdata.x.materiaal@value; (DATA.UitsparingData.Z1.Breedte <> 0) DATA.Kenmerken.UitsparingData.Z1.Breedte = DATA.UitsparingData.Z1.Breedte; DATA.UitsparingData.Z1.Breedte = 0; UitsparingData Z1 Breedte ;data.kenmerken.uitsparingdata.z1.breedte@value;data.uitsparingdata.z1.breedte@value; (DATA.UitsparingData.Z1.Diepte <> 0) DATA.Kenmerken.UitsparingData.Z1.Diepte = DATA.UitsparingData.Z1.Diepte; DATA.UitsparingData.Z1.Diepte = 0; UitsparingData Z1 Diepte ;data.kenmerken.uitsparingdata.z1.diepte@value;data.uitsparingdata.z1.diepte@value; (DATA.UitsparingData.Z1.Hoogte <> "") DATA.Kenmerken.UitsparingData.Z1.Hoogte = DATA.UitsparingData.Z1.Hoogte; DATA.UitsparingData.Z1.Hoogte = ""; UitsparingData Z1 Hoogte ;data.kenmerken.uitsparingdata.z1.hoogte@value;data.uitsparingdata.z1.hoogte@value; (DATA.UitsparingData.Z1.Materiaal <> "") DATA.Kenmerken.UitsparingData.Z1.Materiaal = DATA.UitsparingData.Z1.Materiaal; DATA.UitsparingData.Z1.Materiaal = ""; UitsparingData Z1 Materiaal ;data.kenmerken.uitsparingdata.z1.materiaal@value;data.uitsparingdata.z1.materiaal@value; (DATA.UitsparingData.Z1.Vorm <> "") DATA.Kenmerken.UitsparingData.Z1.Vorm = DATA.UitsparingData.Z1.Vorm; DATA.UitsparingData.Z1.Vorm = ""; UitsparingData Z1 Vorm ;data.kenmerken.uitsparingdata.z1.vorm@value;data.uitsparingdata.z1.vorm@value; (DATA.UitsparingData.M.Breedte <> 0) DATA.Kenmerken.UitsparingData.M.Breedte = DATA.UitsparingData.M.Breedte; DATA.UitsparingData.M.Breedte = 0; UitsparingData M Breedte ;data.kenmerken.uitsparingdata.m.breedte@value;data.uitsparingdata.m.breedte@value; (DATA.UitsparingData.M.Hoogte <> "") DATA.Kenmerken.UitsparingData.M.Hoogte = DATA.UitsparingData.M.Hoogte; DATA.UitsparingData.M.Hoogte = ""; UitsparingData M Hoogte ;data.kenmerken.uitsparingdata.m.hoogte@value;data.uitsparingdata.m.hoogte@value; (DATA.UitsparingData.M.Materiaal <> "") DATA.Kenmerken.UitsparingData.M.Materiaal = DATA.UitsparingData.M.Materiaal; DATA.UitsparingData.M.Materiaal = ""; UitsparingData M Materiaal ;data.kenmerken.uitsparingdata.m.materiaal@value;data.uitsparingdata.m.materiaal@value; (DATA.UitsparingData.Z2.Breedte <> 0) DATA.Kenmerken.UitsparingData.Z2.Breedte = DATA.UitsparingData.Z2.Breedte; DATA.UitsparingData.Z2.Breedte = 0; UitsparingData Z2 Breedte ;data.kenmerken.uitsparingdata.z2.breedte@value;data.uitsparingdata.z2.breedte@value; (DATA.UitsparingData.Z2.Diepte <> 0) DATA.Kenmerken.UitsparingData.Z2.Diepte = DATA.UitsparingData.Z2.Diepte; DATA.UitsparingData.Z2.Diepte = 0; UitsparingData Z2 Diepte ;data.kenmerken.uitsparingdata.z2.diepte@value;data.uitsparingdata.z2.diepte@value; (DATA.UitsparingData.Z2.Hoogte <> "") DATA.Kenmerken.UitsparingData.Z2.Hoogte = DATA.UitsparingData.Z2.Hoogte; DATA.UitsparingData.Z2.Hoogte = ""; UitsparingData Z2 Hoogte ;data.kenmerken.uitsparingdata.z2.hoogte@value;data.uitsparingdata.z2.hoogte@value; (DATA.UitsparingData.Z2.Materiaal <> "") DATA.Kenmerken.UitsparingData.Z2.Materiaal = DATA.UitsparingData.Z2.Materiaal; DATA.UitsparingData.Z2.Materiaal = ""; UitsparingData Z2 Materiaal ;data.kenmerken.uitsparingdata.z2.materiaal@value;data.uitsparingdata.z2.materiaal@value; (DATA.UitsparingData.Z2.Vorm <> "") DATA.Kenmerken.UitsparingData.Z2.Vorm = DATA.UitsparingData.Z2.Vorm; DATA.UitsparingData.Z2.Vorm = ""; UitsparingData Z2 Vorm ;data.kenmerken.uitsparingdata.z2.vorm@value;data.uitsparingdata.z2.vorm@value; (DATA.UitsparingData.Y.Breedte <> 0) DATA.Kenmerken.UitsparingData.Y.Breedte = DATA.UitsparingData.Y.Breedte; DATA.UitsparingData.Y.Breedte = 0; UitsparingData Y Breedte ;data.kenmerken.uitsparingdata.y.breedte@value;data.uitsparingdata.y.breedte@value; (DATA.UitsparingData.Y.Hoogte <> "") DATA.Kenmerken.UitsparingData.Y.Hoogte = DATA.UitsparingData.Y.Hoogte; DATA.UitsparingData.Y.Hoogte = ""; UitsparingData Y Hoogte ;data.kenmerken.uitsparingdata.y.hoogte@value;data.uitsparingdata.y.hoogte@value; (DATA.UitsparingData.Y.Materiaal <> "") DATA.Kenmerken.UitsparingData.Y.Materiaal = DATA.UitsparingData.Y.Materiaal; DATA.UitsparingData.Y.Materiaal = ""; UitsparingData Y Materiaal ;data.kenmerken.uitsparingdata.y.materiaal@value;data.uitsparingdata.y.materiaal@value; (DATA.VerpakkingType <> "") DATA.Kenmerken.VerpakkingType = DATA.VerpakkingType; DATA.VerpakkingType = ""; VerpakkingType ;data.kenmerken.verpakkingtype@value;data.verpakkingtype@value; (DATA.ZijkantHoogte <> "") DATA.Kenmerken.ZijkantHoogte = DATA.ZijkantHoogte; DATA.ZijkantHoogte = ""; ZijkantHoogte ;data.kenmerken.zijkanthoogte@value;data.zijkanthoogte@value; (DATA.ZijwandHoogte <> "") DATA.Kenmerken.ZijwandHoogte = DATA.ZijwandHoogte; DATA.ZijwandHoogte = ""; ZijwandHoogte ;data.kenmerken.zijwandhoogte@value;data.zijwandhoogte@value; (DATA.ZijwandVerhogingMateriaal <> "") DATA.Kenmerken.ZijwandVerhogingMateriaal = DATA.ZijwandVerhogingMateriaal; DATA.ZijwandVerhogingMateriaal = ""; ZijwandVerhogingMateriaal ;data.kenmerken.zijwandverhogingmateriaal@value;data.zijwandverhogingmateriaal@value; (DATA.ZijwandVerhogingRelingKleur <> "") DATA.Kenmerken.ZijwandVerhogingRelingKleur = DATA.ZijwandVerhogingRelingKleur; DATA.ZijwandVerhogingRelingKleur = ""; ZijwandVerhogingRelingKleur ;data.kenmerken.zijwandverhogingrelingkleur@value;data.zijwandverhogingrelingkleur@value; (DATA.ZijwandVerhogingType <> "") DATA.Kenmerken.ZijwandVerhogingType = DATA.ZijwandVerhogingType; DATA.ZijwandVerhogingType = ""; local string OptionToSelect = ""; OptionToSelect = UI.ZijwandVerhogingType; for i = 1 to len(UI.ZijwandVerhogingType@options) UI.ZijwandVerhogingType = UI.ZijwandVerhogingType@option(i)@id; if (UI.ZijwandVerhogingType.Value == DATA.Kenmerken.ZijwandVerhogingType) then OptionToSelect = UI.ZijwandVerhogingType; end if; end for; UI.ZijwandVerhogingType@default = OptionToSelect; ZijwandVerhogingType ;data.kenmerken.zijwandverhogingtype@value;data.zijwandverhogingtype@value;ui.zijwandverhogingtype@default; (DATA.ZijwandVerhogingInschuifElementKleur <> "") DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur = DATA.ZijwandVerhogingInschuifElementKleur; DATA.ZijwandVerhogingInschuifElementKleur = ""; ZijwandVerhogingInschuifElementKleur ;data.kenmerken.zijwandverhoginginschuifelementkleur@value;data.zijwandverhoginginschuifelementkleur@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_IsVerpakkingProcomZichtbaar; local boolean _BEHAVIOR_IsVerpakkingPalletZichtbaar; local boolean _BEHAVIOR_IsVerpakkingProcomValid; local boolean _ToonAlleVerpakkingen = UI.VerpakkingOptiesToonAlle; local boolean _IsVHossToegelatenVoorKlant = (CONFIG.Settings.KlantId == "17999") // Klantspecifieke uitzondering : zie [ICT-2613] if (_ToonAlleVerpakkingen) or (CONFIG.InputMode == "CreateConfig") or (CONFIG.Settings.OperationMode == "Intern") or (BEHAVIOR.IsEconAx) then _BEHAVIOR_IsVerpakkingProboxZichtbaar = true; _BEHAVIOR_IsVerpakkingVHossZichtbaar = true; _BEHAVIOR_IsVerpakkingProcomZichtbaar = true; _BEHAVIOR_IsVerpakkingPalletZichtbaar = true; else _BEHAVIOR_IsVerpakkingProboxZichtbaar = CONFIG.Settings.VerpakkingProboxToegelaten; _BEHAVIOR_IsVerpakkingVHossZichtbaar = CONFIG.Settings.VerpakkingVHossToegelaten or _IsVHossToegelatenVoorKlant; _BEHAVIOR_IsVerpakkingProcomZichtbaar = CONFIG.Settings.VerpakkingProcomToegelaten and not(_IsVHossToegelatenVoorKlant); _BEHAVIOR_IsVerpakkingPalletZichtbaar = CONFIG.Settings.VerpakkingPalletToegelaten; end if; // TBX Procom verpakking is uitgesfaseerd. In eerste instantie op 'disabled' zetten. _BEHAVIOR_IsVerpakkingProcomValid = false; // Controls Verpakkingen : UI.VerpakkingType@option("Probox")@visible = _BEHAVIOR_IsVerpakkingProboxZichtbaar; UI.VerpakkingType@option("VHoss")@visible = _BEHAVIOR_IsVerpakkingVHossZichtbaar; UI.VerpakkingType@option("Procom")@visible = _BEHAVIOR_IsVerpakkingProcomZichtbaar; UI.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("Procom")@visible = _BEHAVIOR_IsVerpakkingProcomZichtbaar; UI.BulkKenmerken.VerpakkingType@option("Pallet")@visible = _BEHAVIOR_IsVerpakkingPalletZichtbaar; DATA.Kenmerken.VerpakkingType@option("Procom")@valid = _BEHAVIOR_IsVerpakkingProcomValid; DATA.BulkKenmerken(1).VerpakkingType@option("Procom")@valid = _BEHAVIOR_IsVerpakkingProcomValid; Gedrag Verpakkingen instellen ;ui.verpakkingtype@options;ui.bulkkenmerken.verpakkingtype@options;data.kenmerken.verpakkingtype@valids;data.bulkkenmerken[1].verpakkingtype@valids; STATE.VerpakkingTooltipsTrigger local string _SelectedOption = ""; if not(Config.Settings.VerpakkingTooltipsTonen) then _SelectedOption = UI.VerpakkingType; for i = 1 to len(DATA.Kenmerken.VerpakkingType@options) UI.VerpakkingType = DATA.Kenmerken.VerpakkingType@option(i)@id; UI.VerpakkingType.Url = ""; end for; UI.VerpakkingType = _SelectedOption; end if; STATE.VerpakkingTooltipsTrigger = false; Gedrag Verpakkingen Tooltips instellen ;ui.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.MatMateriaal@option("AS")@visible = _BEHAVIOR_MatMateriaalAntislipToegelaten; Gedrag Matten ;ui.matmateriaal@options; true local boolean _BEHAVIOR_IsReferentieZichtbaar; if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive == true) then _BEHAVIOR_IsReferentieZichtbaar = false; else _BEHAVIOR_IsReferentieZichtbaar = true; end if; UI.Lijn.Referentie@visible = _BEHAVIOR_IsReferentieZichtbaar; Gedrag Referentie ;ui.lijn.referentie@visible; true local 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 UI.Toepassing@option("AS")@visible = BEHAVIOR.IsToepassingSP2Toegelaten; Gedrag Toepassing ;ui.toepassing@options; true local boolean _IsIntern = (BEHAVIOR.AccessMode == "Intern") and (BEHAVIOR.OperationMode <> "CreateConfig"); local boolean _HeeftOpvullijst = (DATA.Kenmerken.HeeftOpvullijstLinks or DATA.Kenmerken.HeeftOpvullijstRechts); local boolean _BEHAVIOR_IsNietMeeleverenZichtbaarVolgensSpaceStep = false; local boolean _BEHAVIOR_IsOptieZichtbaar; local boolean _isGroeperingOptieVoorExterneMode; local collection _TOBProducten= {"TiponBlumotionSet";"TiponBlumotionOnderdelen"; "TiponBlumotionSynchronisatieStang"; "TiponBlumotionSynchronisatieToebehoren"}; if (CONFIG.Settings.NietMeeleverenVerbergen) or (_BEHAVIOR_IsNietMeeleverenZichtbaarVolgensSpaceStep) then // Alle opties verbergen : index i of UI.NietMeeleveren UI.NietMeeleveren(i)@visible = false; end index; else index i of UI.NietMeeleveren _BEHAVIOR_IsOptieZichtbaar = true; if _IsIntern then if (UI.NietMeeleveren(i).Id == "Antislipmat") then // Tijdelijk onzichtbaar zetten wegens niet meer nodig. Later eventueel de optie definitief verwijderen. _BEHAVIOR_IsOptieZichtbaar = false; end if; else // Extern mode : _BEHAVIOR_IsOptieZichtbaar = (UI.NietMeeleveren(i).Id in CONFIG.NietMeeleverenExtern@options); end if; if (UI.NietMeeleveren(i).Id == "Opvullijst") and (_BEHAVIOR_IsOptieZichtbaar) then _BEHAVIOR_IsOptieZichtbaar = _HeeftOpvullijst; end if; if (UI.NietMeeleveren(i).Id == "InschuifElement") then _BEHAVIOR_IsOptieZichtbaar = false; end if; if not(UI.NietMeeleveren(i).Id in _TOBProducten) then UI.NietMeeleveren(i)@visible = _BEHAVIOR_IsOptieZichtbaar; end if; end index; end if Gedrag NietMeeleveren zichtbaarheid ;ui.nietmeeleveren[1]@visible; true local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); UI.BulkKenmerken.NietMeeleveren_Afdekkap@visible = ((not(_IsIntern) and ("AfdekkapBinnen" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_Geleider@visible = ((not(_IsIntern) and ("Geleider" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_Bodemsteun@visible = ((not(_IsIntern) and ("Bodemsteun" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_Reling@visible = ((not(_IsIntern) and ("Reling" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_FrontBevestiging@visible = ((not(_IsIntern) and ("FrontBevestiging" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_InschuifElement@visible = ((not(_IsIntern) and ("InschuifElement" 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_TiponBlumotionSynchronisatieStang@visible = ((not(_IsIntern) and ("TiponBlumotionSynchronisatieStang" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren@visible = ((not(_IsIntern) and ("TiponBlumotionSynchronisatieToebehoren" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_TiponBlumotionOnderdelen@visible = ((not(_IsIntern) and ("TiponBlumotionOnderdelen" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); Gedrag NietMeeleveren zichtbaarheid (BulkKenmerken) ;ui.bulkkenmerken.nietmeeleveren_afdekkap@visible;ui.bulkkenmerken.nietmeeleveren_geleider@visible;ui.bulkkenmerken.nietmeeleveren_bodemsteun@visible;ui.bulkkenmerken.nietmeeleveren_reling@visible;ui.bulkkenmerken.nietmeeleveren_frontbevestiging@visible;ui.bulkkenmerken.nietmeeleveren_inschuifelement@visible;ui.bulkkenmerken.nietmeeleveren_opvullijst@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionset@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatietoebehoren@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotiononderdelen@visible; true local boolean _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar; if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive) then _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = true; else _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = false; end if; UI.SneltoetsenNietMeeleveren@visible = _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar; Gedrag knoppen selecteren niet meeleveren ;ui.sneltoetsennietmeeleveren@visible; not((BEHAVIOR.ContextName == "AxNewBulkIngave") or (BEHAVIOR.ContextName == "WebShopNewBulkIngave")) // !!! OPMERKING !!! // // Deze rule gaat niet over "Gedrag" van de controls, maar stelt data in (meer bepaald UI.NietMeeleveren-waarden) // en hoort daarom niet in de groep "Behaviors instellen" --> te verplaatsen naar folder "Niet Meeleveren" local string _VorigeSoortVerpakking = UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde; UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde = UI.VerpakkingType; // Bepalen of er defaults zijn vanuit bvb. klantvoorkeuren local boolean _MagNietMeeleverenWaardeOpFalseZetten; local boolean _HeeftDefaultsUitKlantVoorkeuren = false; if (CONFIG.ReferentieConfiguratie == "") and (len(CONFIG.Database.ConfigAnalyseProperties) > 0) then _HeeftDefaultsUitKlantVoorkeuren = (CONFIG.Database.Configurations.Name == CONFIG.KlantVoorkeurenConfigurationName); end if; if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive and (CONFIG.InputMode == "New")) then if (_VorigeSoortVerpakking <> UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde) and (_VorigeSoortVerpakking <> "") then if (UI.VerpakkingType == "Pallet" or UI.VerpakkingType == "VHoss" or UI.VerpakkingType == "Procom") then index i of UI.NietMeeleveren If (UI.NietMeeleveren(i).Id <> "Antislipmat") then UI.NietMeeleveren(i).IsSelected = true; end if; end index; else index i of UI.NietMeeleveren _MagNietMeeleverenWaardeOpFalseZetten = true; if _HeeftDefaultsUitKlantVoorkeuren then CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_" + LCase(UI.NietMeeleveren(i).Id))@id; // !!! BELANGRIJK : Case sensitive, anders werkt de selectie niet !!! if LCase(CONFIG.Database.ConfigAnalyseProperties.Value) == "true" then _MagNietMeeleverenWaardeOpFalseZetten = false; end if; end if; if not(_VorigeSoortVerpakking in {"Pallet";"VHoss";"Procom"}) then _MagNietMeeleverenWaardeOpFalseZetten = false; end if; if _MagNietMeeleverenWaardeOpFalseZetten then UI.NietMeeleveren(i).IsSelected = false; end if; end index; end if; end if; end if; Gedrag niet meeleveren opties selecteren indien VerpakkingType VHoss/Pallet/Procom ;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" or UI.BulkKenmerken.VerpakkingType == "Procom") then UI.BulkKenmerken.NietMeeleveren_Afdekkap = "True"; UI.BulkKenmerken.NietMeeleveren_Geleider = "True"; UI.BulkKenmerken.NietMeeleveren_Bodemsteun = "True"; UI.BulkKenmerken.NietMeeleveren_Reling = "True"; UI.BulkKenmerken.NietMeeleveren_FrontBevestiging = "True"; UI.BulkKenmerken.NietMeeleveren_InschuifElement = "True"; UI.BulkKenmerken.NietMeeleveren_Opvullijst = "True"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet = "True"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang = "True"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren = "True"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionOnderdelen = "True"; end if; if ((UI.BulkKenmerken.VerpakkingType <> "Pallet") and (UI.BulkKenmerken.VerpakkingType <> "VHoss") and (UI.BulkKenmerken.VerpakkingType <> "Procom") and not(_VorigeSoortVerpakking in {"V1";"Probox";""})) then UI.BulkKenmerken.NietMeeleveren_Afdekkap = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_Geleider = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_Bodemsteun = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_Reling = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_FrontBevestiging = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_InschuifElement = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_Opvullijst = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionOnderdelen = "NietWijzigen"; end if; end if; Gedrag niet meeleveren opties selecteren indien VerpakkingType VHoss/Pallet/Procom (bulk) ;ui.propertiesenkelvoorincodevanrules.verpakkingtypevorigewaarde@value; true local Boolean _BEHAVIOR_IsRugHoogteZichtbaar; local Boolean _BEHAVIOR_IsRugHoogteMandatory; local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SP2"; "SY2"; "SY3"}); if (DATA.Kenmerken.HeeftAfwijkendeRugHoogte and BEHAVIOR.IsEconAX) then _BEHAVIOR_IsRugHoogteZichtbaar = true; else _BEHAVIOR_IsRugHoogteZichtbaar = false; end if; if (DATA.Kenmerken.HeeftAfwijkendeRugHoogte or _HeeftUitsparingData) then _BEHAVIOR_IsRugHoogteMandatory = true; else _BEHAVIOR_IsRugHoogteMandatory = false; end if; UI.RugHoogte@visible = _BEHAVIOR_IsRugHoogteZichtbaar; UI.RugHoogte@mandatory = _BEHAVIOR_IsRugHoogteMandatory; Gedrag Rughoogte ;ui.rughoogte@visible;ui.rughoogte@mandatory; 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; true local boolean _BEHAVIOR_IsMengvormZichtbaar; local boolean _IsIntern = (BEHAVIOR.AccessMode == "Intern"); _BEHAVIOR_IsMengvormZichtbaar = _IsIntern; UI.LadeKleur@option("OG")@visible = _BEHAVIOR_IsMengvormZichtbaar; UI.LadeKleur@option("MG-GMA")@visible = _BEHAVIOR_IsMengvormZichtbaar; // Deel 2: checkbox "IsMengvormBeschikbaar" maakt ook gebruik van lokale variabele _BEHAVIOR_IsMengvormZichtbaar, daarom in dezelfde rule. local boolean _IsInschuifElement = (DATA.Kenmerken.ZijwandVerhogingType == "InschuifElement"); local boolean _BEHAVIOR_IsChkBoxUIMengvormZichtbaar = _BEHAVIOR_IsMengvormZichtbaar and not(_IsInschuifElement) ; UI.IsMengvormBeschikbaar@visible = _BEHAVIOR_IsChkBoxUIMengvormZichtbaar; Gedrag LadeKleur (mengvorm) ;ui.ladekleur@options;ui.ismengvormbeschikbaar@visible; BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"} local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); UI.Toepassing@mandatory = false; UI.LadeKleur@mandatory = false; UI.BodemKleur@mandatory = false; UI.ZijwandVerhogingType@mandatory = false; UI.ZijwandVerhogingInschuifElementKleur@mandatory = false; UI.ZijwandVerhogingRelingKleur@mandatory = false; UI.ZijwandVerhogingMateriaal@mandatory = false; UI.Corpusbreedte@mandatory = false; UI.LadeDiepte@mandatory = false; UI.InbouwHoogte@mandatory = false; UI.GeleiderTechnologie@mandatory = false; UI.Draagkracht@mandatory = false; UI.Plaatmateriaal@mandatory = false; UI.Frontondersteuningtype@mandatory = false; UI.Frontbevestiging@mandatory = false; UI.GreepEnMeenemer@mandatory = false; UI.VerpakkingType@mandatory = false; UI.RugwandMateriaal@mandatory = false; UI.Lijn.Aantal@mandatory = false; $BulkToepassingPane@visible = _IsIntern; $BulkDimensiesPane@visible = _IsIntern; $BulkKleurenPane@visible = true; $BulkAfwerkingPane@visible = true; $BulkOptiesPane@visible = true; $BulkMatPane@visible = true; $BulkVerpakkingPane@visible = true; $ToepassingPane@visible = false; $Kleurenpane@visible = false; $DimensiesPane@visible = false; $FrontPane@visible = false; $AfwerkingPane@visible = false; $OptiesPane@visible = false; $MatPane@visible = false; $VerpakkingPane@visible = false; $MaatwerkViewerPane@visible = false; 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.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; UI.BulkKenmerken.CorpusBreedte.Breedte@enabled = (UI.BulkKenmerken.CorpusBreedte.Wijzigen == "Wijzigen"); UI.BulkKenmerken.NietMeeleveren_Afdekkap@visible = (((_IsIntern) or (("Afdekkap" 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_Bodemsteun@visible = (((_IsIntern) or (("Bodemsteun" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_Reling@visible = (((_IsIntern) or (("Reling" 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_InschuifElement@visible = (((_IsIntern) or (("InschuifElement" 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_TiponBlumotionSynchronisatieStang@visible = (((_IsIntern) or (("TiponBlumotionSynchronisatieStang" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren@visible = (((_IsIntern) or (("TiponBlumotionSynchronisatieToebehoren" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_TiponBlumotionOnderdelen@visible = (((_IsIntern) or (("TiponBlumotionOnderdelen" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); Gedrag Bulkkenmerkconfiurator ;ui.toepassing@mandatory;ui.ladekleur@mandatory;ui.bodemkleur@mandatory;ui.zijwandverhogingtype@mandatory;ui.zijwandverhoginginschuifelementkleur@mandatory;ui.zijwandverhogingrelingkleur@mandatory;ui.zijwandverhogingmateriaal@mandatory;ui.corpusbreedte@mandatory;ui.ladediepte@mandatory;ui.inbouwhoogte@mandatory;ui.geleidertechnologie@mandatory;ui.draagkracht@mandatory;ui.plaatmateriaal@mandatory;ui.frontondersteuningtype@mandatory;ui.frontbevestiging@mandatory;ui.greepenmeenemer@mandatory;ui.verpakkingtype@mandatory;ui.rugwandmateriaal@mandatory;ui.lijn.aantal@mandatory;ui.bulkkenmerken.frontbevestiging@visible;ui.bulkkenmerken.corpuswanddikte@visible;ui.bulkkenmerken.draagkracht@visible;ui.bulkkenmerken.corpusbreedte.breedte@visible;ui.bulkkenmerken.isbinnenbreedte@default;ui.bulkkenmerken.corpusbreedte.breedte@enabled;ui.bulkkenmerken.nietmeeleveren_afdekkap@visible;ui.bulkkenmerken.nietmeeleveren_geleider@visible;ui.bulkkenmerken.nietmeeleveren_bodemsteun@visible;ui.bulkkenmerken.nietmeeleveren_reling@visible;ui.bulkkenmerken.nietmeeleveren_frontbevestiging@visible;ui.bulkkenmerken.nietmeeleveren_inschuifelement@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionset@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatietoebehoren@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotiononderdelen@visible; not(BEHAVIOR.IsEconAX and not(BEHAVIOR.IsInteractive)) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) and not((BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen") and not(STATE.BulkDataNaarUIToegepast)) // Read only controls niet overnemen //DATA.InterneBreedte = UI.InterneBreedte; //DATA.OpvullijstDikte = UI.OpvullijstDikte; // Simple controls DATA.Kenmerken.CorpusBreedte = UI.CorpusBreedte; DATA.Kenmerken.CorpusWanddikte = UI.CorpusWanddikte; DATA.Kenmerken.Draagkracht = UI.Draagkracht; DATA.Kenmerken.DwarsverdelingAantal = UI.DwarsverdelingAantal; DATA.Kenmerken.FrontBevestiging = UI.FrontBevestiging; DATA.Kenmerken.FrontStabilisatorAantal = UI.FrontStabilisatorAantal; DATA.Kenmerken.FrontOndersteuningType = UI.FrontOndersteuningType; DATA.Kenmerken.GeleiderTechnologie = UI.GeleiderTechnologie; DATA.Kenmerken.GreepEnMeenemer = UI.GreepEnMeenemer; DATA.Kenmerken.HangmapBoringAantal = UI.HangmapBoringAantal; DATA.Kenmerken.IsBinnenbreedte = UI.AfmetingenLayout.IsBinnenbreedte; DATA.Kenmerken.IsBinnenlade = UI.IsBinnenlade; DATA.Kenmerken.LadeDiepte = UI.LadeDiepte; DATA.Lijn.Aantal = UI.Lijn.Aantal; DATA.Lijn.Referentie = UI.Lijn.Referentie; DATA.Kenmerken.HeeftAfwijkendeRugHoogte = UI.HeeftAfwijkendeRugHoogte; DATA.Kenmerken.HeeftOpvullijstLinks = UI.HeeftOpvullijstLinks; DATA.Kenmerken.HeeftOpvullijstRechts= UI.HeeftOpvullijstRechts; DATA.Kenmerken.HeeftZijstabilisering = UI.HeeftZijstabilisering; DATA.Kenmerken.Plaatmateriaal = UI.Plaatmateriaal; DATA.Kenmerken.ProductieWijze = UI.ProductieWijze; DATA.Kenmerken.RugHoogte = UI.RugHoogte; DATA.Kenmerken.RugwandMateriaal = UI.RugwandMateriaal; DATA.Kenmerken.Toepassing = UI.Toepassing; DATA.Kenmerken.UitsparingData.X.Breedte = UI.UitsparingData.X.BreedteRugdeel; DATA.Kenmerken.UitsparingData.X.Hoogte = UI.UitsparingData.X.Hoogte; DATA.Kenmerken.UitsparingData.X.Materiaal = UI.UitsparingData.X.Materiaal; DATA.Kenmerken.UitsparingData.M.Breedte = UI.UitsparingData.M.BreedteRugdeel; DATA.Kenmerken.UitsparingData.M.Hoogte = UI.UitsparingData.M.Hoogte; DATA.Kenmerken.UitsparingData.M.Materiaal = UI.UitsparingData.M.Materiaal; DATA.Kenmerken.UitsparingData.Y.Breedte = UI.UitsparingData.Y.BreedteRugdeel; DATA.Kenmerken.UitsparingData.Y.Hoogte = UI.UitsparingData.Y.Hoogte; DATA.Kenmerken.UitsparingData.Y.Materiaal = UI.UitsparingData.Y.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.UitsparingData.Z1.BreedteUitsparing; DATA.Kenmerken.UitsparingData.Z1.Diepte = UI.UitsparingData.Z1.Diepte; DATA.Kenmerken.UitsparingData.Z1.Hoogte = UI.UitsparingData.Z1.Hoogte; DATA.Kenmerken.UitsparingData.Z1.Materiaal = UI.UitsparingData.Z1.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Vorm = UI.UitsparingData.Z1.Vorm; DATA.Kenmerken.UitsparingData.Z2.Breedte = UI.UitsparingData.Z2.BreedteUitsparing; DATA.Kenmerken.UitsparingData.Z2.Diepte = UI.UitsparingData.Z2.Diepte; DATA.Kenmerken.UitsparingData.Z2.Hoogte = UI.UitsparingData.Z2.Hoogte; DATA.Kenmerken.UitsparingData.Z2.Materiaal = UI.UitsparingData.Z2.Materiaal; DATA.Kenmerken.UitsparingData.Z2.Vorm = UI.UitsparingData.Z2.Vorm; DATA.Kenmerken.UitsparingData.UitsparingAantal = UI.UitsparingData.UitsparingAantal; DATA.Kenmerken.VerpakkingType = UI.VerpakkingType; DATA.Kenmerken.ZijwandVerhogingMateriaal = UI.ZijwandVerhogingMateriaal; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur = UI.ZijwandVerhogingInschuifElementKleur; // Niet meeleveren index i of UI.NietMeeleveren local string _IsSelected = CStr(UI.NietMeeleveren(i).IsSelected); local string _NietMeeleverenProperty = "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.NietMeeleveren(i).Id; local boolean _Result = SetValue(_NietMeeleverenProperty; _IsSelected); end index; // Image controls DATA.Kenmerken.BodemKleur = UI.BodemKleur.Value; DATA.Kenmerken.LadeKleur = UI.LadeKleur.Value; DATA.Kenmerken.OpvullijstKleur = UI.OpvullijstKleur.Value; DATA.Kenmerken.ZijwandVerhogingType = UI.ZijwandVerhogingType.Value; DATA.Kenmerken.ZijwandVerhogingRelingKleur = UI.ZijwandVerhogingRelingKleur.Value; 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.frontstabilisatoraantal@value;data.kenmerken.frontondersteuningtype@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.greepenmeenemer@value;data.kenmerken.hangmapboringaantal@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladediepte@value;data.lijn.aantal@value;data.lijn.referentie@value;data.kenmerken.heeftafwijkenderughoogte@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.plaatmateriaal@value;data.kenmerken.productiewijze@value;data.kenmerken.rughoogte@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.toepassing@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.kenmerken.verpakkingtype@value;data.kenmerken.zijwandverhogingmateriaal@value;data.kenmerken.zijwandverhoginginschuifelementkleur@value;data.kenmerken.bodemkleur@value;data.kenmerken.ladekleur@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.zijwandverhogingtype@value;data.kenmerken.zijwandverhogingrelingkleur@value;state.winkelkarinfocalculated@value;state.winkelkarinfodiversecalculated@value; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) // InbouwHoogte met verwante properties if (UI.InbouwHoogte.Value <> "") then DATA.Kenmerken.InbouwHoogte = UI.InbouwHoogte.Value; DATA.Kenmerken.ZijwandHoogte = UI.InbouwHoogte.ZijwandHoogte; DATA.Kenmerken.ZijkantHoogte = UI.InbouwHoogte.ZijkantHoogte; end if; Values Inbouwhoogte ;data.kenmerken.inbouwhoogte@value;data.kenmerken.zijwandhoogte@value;data.kenmerken.zijkanthoogte@value; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) DATA.Kenmerken.MatMateriaal = UI.MatMateriaal.Value; DATA.Kenmerken.MatKleur = switch (UI.MatMateriaal.Value) case "CF": UI.MatVinylFiberglassKleur.Value case "AS": UI.MatAntislipKleur.Value case "AF": UI.MatAntislipFiberKleur.Value case "AZ": UI.MatAntislipFlockKleur.Value else "" end switch; Values - Mat ;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value; true 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).FrontBevestiging = UI.BulkKenmerken.FrontBevestiging; DATA.BulkKenmerken(1).FrontOndersteuningType = UI.BulkKenmerken.FrontOndersteuningType; DATA.BulkKenmerken(1).FrontStabilisatorAantal = UI.BulkKenmerken.FrontStabilisatorAantal; 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).LadeKleur = UI.BulkKenmerken.LadeKleur.Value; DATA.BulkKenmerken(1).GreepEnMeenemer = UI.BulkKenmerken.GreepEnMeenemer; DATA.BulkKenmerken(1).OpvullijstKleur = UI.BulkKenmerken.OpvullijstKleur.Value; DATA.BulkKenmerken(1).VerpakkingType = UI.BulkKenmerken.VerpakkingType; 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_Afdekkap= UI.BulkKenmerken.NietMeeleveren_Afdekkap; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider= UI.BulkKenmerken.NietMeeleveren_Geleider; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Bodemsteun= UI.BulkKenmerken.NietMeeleveren_Bodemsteun; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Reling= UI.BulkKenmerken.NietMeeleveren_Reling; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging = UI.BulkKenmerken.NietMeeleveren_FrontBevestiging; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElement= UI.BulkKenmerken.NietMeeleveren_InschuifElement; 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_TiponBlumotionSynchronisatieStang= UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren= UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen= UI.BulkKenmerken.NietMeeleveren_TiponBlumotionOnderdelen; 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].frontbevestiging@value;data.bulkkenmerken[1].frontondersteuningtype@value;data.bulkkenmerken[1].frontstabilisatoraantal@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].ladekleur@value;data.bulkkenmerken[1].greepenmeenemer@value;data.bulkkenmerken[1].opvullijstkleur@value;data.bulkkenmerken[1].verpakkingtype@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_afdekkap@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_geleider@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_bodemsteun@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_reling@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_frontbevestiging@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_inschuifelement@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_opvullijst@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatietoebehoren@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotiononderdelen@value; (CONFIG.InputMode <> "Edit") and not(BEHAVIOR.OperationMode == "AxCreate") and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) and not(BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen") DATA.Kenmerken.Toepassing = "L"; DATA.Kenmerken.ProductieWijze = "V"; DATA.Kenmerken.RugwandMateriaal = "Hout"; DATA.Kenmerken.FrontOndersteuningType = "A"; Defaults invullen ;data.kenmerken.toepassing@value;data.kenmerken.productiewijze@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.frontondersteuningtype@value; (CONFIG.InputMode <> "Edit") and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) and not(BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen") if not(BEHAVIOR.IsInteractive) then if (BEHAVIOR.IsEconAx) and (GetArg("data;kenmerken;plaatmateriaal") == "") then DATA.Kenmerken.Plaatmateriaal = "HS"; end if; if (BEHAVIOR.IsEconWeb) then DATA.Kenmerken.Plaatmateriaal = "HS"; end if; else DATA.Kenmerken.Plaatmateriaal = "HS"; end if; Default invullen voor Plaatmateriaal ; (BEHAVIOR.IsEconWeb) and (CONFIG.ReferentieConfiguratie <> "") and (CONFIG.InputMode <> "Edit") and (CONFIG.InputMode <> "CreateConfig") 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 (Web) ;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; (BEHAVIOR.IsEconWeb) and (CONFIG.ReferentieConfiguratie == "") and (CONFIG.InputMode <> "Edit") and (CONFIG.InputMode <> "CreateConfig") 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 (Web) ;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; (BEHAVIOR.IsEconWeb) and (CONFIG.ReferentieConfiguratie == "") and (CONFIG.InputMode <> "Edit") and (Config.InputMode <> "CreateConfig") 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 (Web) ;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") and not(STATE.BulkConfiguratieToegepast) 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); if not(Config.Database.Configurations == "") then STATE.BulkReferentieConfiguratieLoaded = true; end if; 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") and not(STATE.BulkConfiguratieToegepast) 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); if not(Config.Database.Configurations == "") then STATE.BulkConfiguratieLoaded = true; end if; 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"; "="; "TBX 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"; "="; "TBX 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).FrontBevestiging <> "NietWijzigen") then DATA.Kenmerken.FrontBevestiging = DATA.BulkKenmerken(1).FrontBevestiging; end if; if (DATA.BulkKenmerken(1).FrontStabilisatorAantal <> "NietWijzigen") then DATA.Kenmerken.FrontStabilisatorAantal = DATA.BulkKenmerken(1).FrontStabilisatorAantal; end if; if (DATA.BulkKenmerken(1).FrontOndersteuningType <> "NietWijzigen") then DATA.Kenmerken.FrontOndersteuningType = DATA.BulkKenmerken(1).FrontOndersteuningType; 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).GreepEnMeenemer <> "NietWijzigen") then DATA.Kenmerken.GreepEnMeenemer = DATA.BulkKenmerken(1).GreepEnMeenemer ; 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).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).NietMeeleveren.NietMeeleveren_Afdekkap<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_Afdekkap= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Afdekkap); 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_Bodemsteun<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_Bodemsteun= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Bodemsteun); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Reling<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_Reling= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Reling); 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_InschuifElement<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElement= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElement); 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_TiponBlumotionSynchronisatieStang<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen); end if; STATE.BulkConfiguratieToegepast = true; 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.frontbevestiging@value;data.kenmerken.frontstabilisatoraantal@value;data.kenmerken.frontondersteuningtype@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.greepenmeenemer@value;data.kenmerken.ladediepte@value;data.kenmerken.ladekleur@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.verpakkingtype@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkap@value;data.kenmerken.nietmeeleveren.nietmeeleveren_geleider@value;data.kenmerken.nietmeeleveren.nietmeeleveren_bodemsteun@value;data.kenmerken.nietmeeleveren.nietmeeleveren_reling@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestiging@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelement@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatietoebehoren@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotiononderdelen@value;state.bulkconfiguratietoegepast@value; true local double Dikte = 25; if (DATA.Kenmerken.Toepassing == "B") then Dikte = 12.5; // Burobox slotplaat wisselkernen end if; DATA.BerekendeWaarden.OpvullijstDikte = Dikte; Bereken OpvullijstDikte ;data.berekendewaarden.opvullijstdikte@value; true local boolean _IsActiefMTIB = false; if DATA.BerekendeWaarden.IsAutomatischBepaaldMTIB then if not(DATA.Kenmerken.IsBinnenbreedte) and (DATA.Kenmerken.CorpusWanddikte > 0) then _IsActiefMTIB = true; end if; else _IsActiefMTIB = (DATA.Kenmerken.MinTolerantieOpIB == "1") end if; UI.AfmetingenLayout.IsActiefMTIB@default = _IsActiefMTIB; Bereken IsActiefMTIB ;ui.afmetingenlayout.isactiefmtib@default; true DATA.Kenmerken.MinTolerantieOpIB = (if UI.AfmetingenLayout.IsActiefMTIB then "1" else "0" end if); local boolean _IsAutomatischBepaaldMTIB = false; if (DATA.Kenmerken.MinTolerantieOpIB == "0") and ((DATA.Kenmerken.IsBinnenbreedte) or (DATA.Kenmerken.CorpusWanddikte == 0)) then _IsAutomatischBepaaldMTIB = true; end if; if (DATA.Kenmerken.MinTolerantieOpIB == "1") and (not(DATA.Kenmerken.IsBinnenbreedte)) then _IsAutomatischBepaaldMTIB = true; end if; DATA.BerekendeWaarden.IsAutomatischBepaaldMTIB = _IsAutomatischBepaaldMTIB; Bereken MinTolerantieOpIB ;data.kenmerken.mintolerantieopib@value;data.berekendewaarden.isautomatischbepaaldmtib@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 = CLng(DATA.Kenmerken.MinTolerantieOpIB); 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; // BEREKEN CORPUSBREEDTEDELTA if (_HeeftOpvullijstLinks) then _AantalOpvullijsten = _AantalOpvullijsten + 1; end if; if (_HeeftOpvullijstRechts) then _AantalOpvullijsten = _AantalOpvullijsten + 1; end if; if (DATA.Kenmerken.IsBinnenbreedte) then _CorpusWanddikte = 0; end if; DATA.BerekendeWaarden.CorpusBreedteDelta = (2 * _CorpusWanddikte) + (_AantalOpvullijsten * _OpvullijstDikte) + _MinTolerantieIB; // BEREKEN INTERNEBREEDTE 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; if (DATA.Kenmerken.MinTolerantieOpIB == "1") then UI.InterneBreedte@format = _InterneBreedte + " mm " + "(1 mm " + TRL.Tolerantie@label + ")"; else UI.InterneBreedte@format = _InterneBreedte + " mm "; end if; Bereken CorpusBreedteDelta en InterneBreedte (als deze niet in 1 rule berekend worden, wordt interneBreedte niet correct berekend bij createConfig) ;data.berekendewaarden.corpusbreedtedelta@value;data.berekendewaarden.internebreedte@value; false /*local double _InterneBreedte = 0; if DATA.CorpusBreedte > 0 then _InterneBreedte = DATA.CorpusBreedte - DATA.CorpusBreedteDelta; end if; DATA.InterneBreedte = _InterneBreedte; */ Bereken InterneBreedte ; BEHAVIOR.IsInteractive or (DATA.Kenmerken.RugHoogte == "") local string _LadeHoogte = mid(DATA.Kenmerken.InbouwHoogte; 1; 1); local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SP2"; "SY2"; "SY3"}); if (_HeeftUitsparingData) then DATA.Kenmerken.RugHoogte = "M"; // Bij SP2, SY2 en SY3 is de rughoogte altijd "M". (uitzondering: niet bij antaro, dus nog niet ondersteund : LadeCode "DS2" bij design "OMT" heeft B-rug ) else if (DATA.Kenmerken.HeeftAfwijkendeRugHoogte == false) and (_LadeHoogte <> "") then DATA.Kenmerken.RugHoogte = _LadeHoogte; end if; end if; Bereken Rughoogte ;data.kenmerken.rughoogte@value; DATA.Kenmerken.InbouwHoogte <> "" and DATA.Kenmerken.Rughoogte <> "" local string _LadeHoogte = mid(DATA.Kenmerken.InbouwHoogte; 1; 1); local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SP2"; "SY2"; "SY3"}); local boolean _HeeftStalenRug = (DATA.Kenmerken.RugwandMateriaal == "Staal"); if (_LadeHoogte == DATA.Kenmerken.Rughoogte) or (_HeeftUitsparingData) or (_HeeftStalenRug) then DATA.Kenmerken.HeeftAfwijkendeRughoogte = false; else DATA.Kenmerken.HeeftAfwijkendeRughoogte = true; end if; Bereken HeeftAfwijkendeRughoogte ;data.kenmerken.heeftafwijkenderughoogte@value; true DATA.Lijn.GroeperingCode = DATA.Kenmerken.LadeDesign + ";" + DATA.Kenmerken.BodemKleur; Bereken GroeperingCode ;data.lijn.groeperingcode@value; false // mogelijks via constraint // Constants local double MINDIEPTE_SIFONLADE_MET_TOB_STANG = 400; // Voorwaardelijke beperkingen local boolean IsLadeMetUitsparing = (DATA.Kenmerken.Toepassing in {"SY2"; "SY3"; "SP2"}); local boolean HeeftSynchrostang = (DATA.Kenmerken.GeleiderTechnologie == "TOB"); /*if (IsLadeMetUitsparing and HeeftSynchrostang) then // LadeDiepte Valids aanpassen : invalid indien kleiner dan MINDIEPTE_SIFONLADE_MET_TOB_STANG end if;*/ Minimum LadeDiepte voor UitsparingData (Inactive) ; true local long _Minimum = 1; if (UI.VerpakkingType == "Pallet") then _Minimum = 10; end if; RANGE.Aantal.MINIMUM = _Minimum; Aantal minimum ;range.aantal.minimum@value; true // maximum zit niet in validatie voor aantal // bedenking: voor GLS mogen max. 50 lades in een winkelkar //RANGE.Aantal.MAXIMUM = 2; Aantal maximum ; 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 // Constants local double MINIMUM_BREEDTE = 185; local double MIN_VOOR_BINNENLADE = 212; // Vroeger: TBX plus = 155 = MINIMUM_BREEDTE local double MIN_VOOR_TOB = 238; local double MIN_VOOR_SIFONLADE = 370; local double MIN_VOOR_SPOELBAKLADE = 411; // Defaults local double Breedte = MINIMUM_BREEDTE; // Voorwaardelijke beperkingen local double NieuweBeperking; if (DATA.Kenmerken.IsBinnenlade) then NieuweBeperking = MIN_VOOR_BINNENLADE; Breedte = eCon.Core.Functions.Max(Breedte; NieuweBeperking); end if; if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then NieuweBeperking = MIN_VOOR_TOB; Breedte = eCon.Core.Functions.Max(Breedte; NieuweBeperking); end if; if (DATA.Kenmerken.Toepassing in {"SY2"; "SY3"} ) then NieuweBeperking = MIN_VOOR_SIFONLADE; Breedte = eCon.Core.Functions.Max(Breedte; NieuweBeperking); end if; if (DATA.Kenmerken.Toepassing == "SP2") then NieuweBeperking = MIN_VOOR_SPOELBAKLADE; Breedte = eCon.Core.Functions.Max(Breedte; NieuweBeperking); end if; RANGE.InterneBreedte.Minimum = Breedte; InterneBreedte minimum ;range.internebreedte.minimum@value; true // Constants local double MAXIMUM_BREEDTE = 1500; local double MAX_BREEDTE_EXTERN = 1350; local double MAX_BREEDTE_INTERN_V1 = 1350; local double MAX_VOOR_BINNENLADE = 1168; // beperking max door lengte van de frontplaat local double MAX_VOOR_TOB = 1365; // beperking max door lengte van de synchro-stang (+adapter) local double MAX_VOOR_VHOSS = 1168; // = 1200 - 2x16 local double MAX_VOOR_DWARSVERDELING = 1168; // beperking max door lengte dwarslat (1077) local double MAX_1168_mm = 1168; local double MAXIMUM_BREEDTE_VERPAKKINGTYPE_VHOSS = 1168; // Defaults local double Breedte = MAXIMUM_BREEDTE; // Voorwaardelijke beperkingen local double NieuweBeperking; if (DATA.Kenmerken.IsBinnenlade) then NieuweBeperking = MAX_VOOR_BINNENLADE; Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking); end if; if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then NieuweBeperking = MAX_VOOR_TOB; Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking); end if; if (DATA.Kenmerken.VerpakkingType == "VHoss") then NieuweBeperking = MAX_VOOR_VHOSS; Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking); end if; if (DATA.Kenmerken.DwarsverdelingAantal <> "0") then NieuweBeperking = MAX_VOOR_DWARSVERDELING; Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking); end if; if ((BEHAVIOR.IsMaximaleBreedteBeperktTot1168Mm) and (BEHAVIOR.IsEconWeb)) then NieuweBeperking = MAX_1168_mm; Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking); end if; if (BEHAVIOR.IsEconWeb) then NieuweBeperking = MAX_BREEDTE_EXTERN; Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking); end if; if ((BEHAVIOR.IsEconAx) and (DATA.Kenmerken.VerpakkingType in {"V1"})) then NieuweBeperking = MAX_BREEDTE_INTERN_V1; Breedte = eCon.Core.Functions.Min(Breedte; NieuweBeperking); end if; if (DATA.Kenmerken.VerpakkingType == "VHoss") then Breedte = Min(Breedte ; MAXIMUM_BREEDTE_VERPAKKINGTYPE_VHOSS); end if; RANGE.InterneBreedte.Maximum = Breedte; InterneBreedte maximum ;range.internebreedte.maximum@value; true RANGE.UitsparingDataBreedteM.Minimum = 120; UitsparingDataBreedteM minimum ;range.uitsparingdatabreedtem.minimum@value; true RANGE.UitsparingDataBreedteM.Minimum = 120; UitsparingDataBreedteX minimum ;range.uitsparingdatabreedtem.minimum@value; true RANGE.UitsparingDataBreedteM.Minimum = 120; UitsparingDataBreedteY minimum ;range.uitsparingdatabreedtem.minimum@value; UI.SneltoetsenNietMeeleveren <> "" local boolean _AlleNietMeeleverensSelecteren; if (UI.SneltoetsenNietMeeleveren == "AllesSelecteren") then _AlleNietMeeleverensSelecteren = true; end if; if (UI.SneltoetsenNietMeeleveren == "AllesDeselecteren") then _AlleNietMeeleverensSelecteren = false; end if; index i of UI.NietMeeleveren local string _NietMeeleverenProperty = "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.NietMeeleveren(i).Id; If (UI.NietMeeleveren(i).Id <> "Antislipmat") then local boolean _Result = SetValue(_NietMeeleverenProperty; CStr(_AlleNietMeeleverensSelecteren)); end if; end index; UI.SneltoetsenNietMeeleveren = ""; Logica sneltoetsen niet meeleveren ;ui.sneltoetsennietmeeleveren@value; true local Boolean _BEHAVIOR_IsNMTOBZichtbaar; local boolean TOBOnderdelenSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; // Externe groepering voor de 3 TOB-opties (Set + Stang + Toebeh.) local boolean TOBSetSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet; // !!! LET OP: bij LBX komt dit overeen met TOB-SetEenhedenEnMeenemers, en dus niet met TOBSet !!! local boolean TOBStangSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; local boolean TOBToebehorenSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren; local boolean _VorigeWaardeNMTiponBlumotionOnderdelen = UI.PropertiesEnkelVoorInCodeVanRules.TiponBlumotionOnderdelenVorigeWaarde; local boolean AlleIndividueleTOBSelected = (DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren and DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang and DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet); local collection _TOBProducten= {"TiponBlumotionSet";"TiponBlumotionOnderdelen"; "TiponBlumotionSynchronisatieStang"; "TiponBlumotionSynchronisatieToebehoren"}; if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then _BEHAVIOR_IsNMTOBZichtbaar = true; else _BEHAVIOR_IsNMTOBZichtbaar = false; end if; index i of UI.NietMeeleveren if (UI.NietMeeleveren(i).Id in _TOBProducten) then UI.NietMeeleveren(i)@visible = _BEHAVIOR_IsNMTOBZichtbaar; end if; end index; if (not(DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen) and AlleIndividueleTOBSelected) then if(_VorigeWaardeNMTiponBlumotionOnderdelen) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = false; AlleIndividueleTOBSelected = false; else DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen = true; end if; end if; if (_VorigeWaardeNMTiponBlumotionOnderdelen and not(AlleIndividueleTOBSelected)) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen = false; end if; if (DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen and not(AlleIndividueleTOBSelected)) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = true; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = true; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren = true; end if; UI.PropertiesEnkelVoorInCodeVanRules.TiponBlumotionOnderdelenVorigeWaarde = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; Instellen waarden NietMeeleveren TOB groepering (voor extern) ;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotiononderdelen@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatietoebehoren@value;ui.propertiesenkelvoorincodevanrules.tiponblumotiononderdelenvorigewaarde@value; true If (DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Antislipmat == true) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Antislipmat = false; DATA.Kenmerken.MatMateriaal = ""; DATA.Kenmerken.MatKleur = ""; UI.MatMateriaal = ""; UI.MatAntislipFiberKleur = ""; UI.MatAntislipFlockKleur = ""; UI.MatAntislipKleur = ""; UI.MatVinylFiberglassKleur = ""; end if; Instellen niet meeleveren Antislipmat ;data.kenmerken.nietmeeleveren.nietmeeleveren_antislipmat@value;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value;ui.matmateriaal@value;ui.matantislipfiberkleur@value;ui.matantislipflockkleur@value;ui.matantislipkleur@value;ui.matvinylfiberglasskleur@value; true DATA.Kenmerken.LadeDesign@option("WA")@valid = DATA.Kenmerken.LadeKleur in {""; "SW"}; DATA.Kenmerken.LadeDesign@option("GA")@valid = DATA.Kenmerken.LadeKleur in {""; "MG"}; DATA.Kenmerken.LadeDesign@option("ZA")@valid = DATA.Kenmerken.LadeKleur in {""; "BZ"}; DATA.Kenmerken.LadeDesign@option("OMT")@valid = DATA.Kenmerken.LadeKleur in {""; "OG"}; DATA.Kenmerken.LadeDesign@option("GMA")@valid = DATA.Kenmerken.LadeKleur in {""; "MG-GMA"}; Set the valid options of DATA.Kenmerken.LadeDesign - Use the value of DATA.Kenmerken.LadeKleur ;data.kenmerken.ladedesign@valids; true DATA.Kenmerken.ZijwandVerhogingMateriaal@option("Glas")@valid = DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur in {""; "FG8"; "FZ8"}; DATA.Kenmerken.ZijwandVerhogingMateriaal@option("Alu")@valid = DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur in {""; "AluMG"; "AluSW"; "AluBZ"}; DATA.Kenmerken.ZijwandVerhogingMateriaal@option("ZV")@valid = DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur in {""; "ZV"}; Set the valid options of DATA.Kenmerken.ZijwandVerhogingMateriaal - Use the value of DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur ;data.kenmerken.zijwandverhogingmateriaal@valids; true DATA.Kenmerken.ZijwandVerhogingRelingKleur@option("SW")@valid = DATA.Kenmerken.LadeKleur in {""; "SW"}; DATA.Kenmerken.ZijwandVerhogingRelingKleur@option("MG")@valid = DATA.Kenmerken.LadeKleur in {""; "MG"; "MG-GMA"}; DATA.Kenmerken.ZijwandVerhogingRelingKleur@option("BZ")@valid = DATA.Kenmerken.LadeKleur in {""; "BZ"}; DATA.Kenmerken.ZijwandVerhogingRelingKleur@option("OG")@valid = DATA.Kenmerken.LadeKleur in {""; "OG"}; Set the valid options of DATA.Kenmerken.ZijwandVerhogingRelingKleur - Use the value of DATA.Kenmerken.LadeKleur ;data.kenmerken.zijwandverhogingrelingkleur@valids; true DATA.Kenmerken.HeeftOpvullijstRechts@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.HeeftOpvullijstRechts,DATA.Kenmerken.HeeftZijstabilisering@Valids"; "DATA.Kenmerken.HeeftOpvullijstRechts"; "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering)); Applying constraints for property DATA.Kenmerken.HeeftOpvullijstRechts ; true DATA.Kenmerken.HeeftOpvullijstLinks@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.HeeftOpvullijstLinks,DATA.Kenmerken.HeeftZijstabilisering@Valids"; "DATA.Kenmerken.HeeftOpvullijstLinks"; "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering)); Applying constraints for property DATA.Kenmerken.HeeftOpvullijstLinks ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.HeeftOpvullijstRechts,DATA.Kenmerken.HeeftZijstabilisering@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.HeeftOpvullijstRechts,DATA.Kenmerken.HeeftZijstabilisering@Valids") Gather constraint messages for decision table DATA.Kenmerken.HeeftOpvullijstRechts,DATA.Kenmerken.HeeftZijstabilisering@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.HeeftOpvullijstLinks,DATA.Kenmerken.HeeftZijstabilisering@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.HeeftOpvullijstLinks,DATA.Kenmerken.HeeftZijstabilisering@Valids") Gather constraint messages for decision table DATA.Kenmerken.HeeftOpvullijstLinks,DATA.Kenmerken.HeeftZijstabilisering@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.InbouwHoogte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.InbouwHoogte@Valids") Gather constraint messages for decision table DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.InbouwHoogte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.InbouwHoogte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.InbouwHoogte@Valids") Gather constraint messages for decision table DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.InbouwHoogte@Valids ; true DATA.Kenmerken.GreepEnMeenemer@valids = ConstrainedOptions("DATA.Kenmerken.GreepEnMeenemer,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids"; "DATA.Kenmerken.GreepEnMeenemer"; "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade)); Applying constraints for property DATA.Kenmerken.GreepEnMeenemer ;data.kenmerken.greepenmeenemer@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.GreepEnMeenemer,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.GreepEnMeenemer,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids") Gather constraint messages for decision table DATA.Kenmerken.GreepEnMeenemer,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.IsBinnenlade@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.IsBinnenlade@Valids") Gather constraint messages for decision table DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.IsBinnenlade@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.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids") Gather constraint messages for decision table DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.LadeDiepte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.LadeDiepte@Valids") Gather constraint messages for decision table DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.LadeDiepte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.ZijwandVerhogingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.ZijwandVerhogingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.ZijwandVerhogingType@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 ; 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; 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.DwarsverdelingAantal@valids = ConstrainedOptions("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.InbouwHoogte@Valids;DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.DwarsverdelingAantal"; "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.DwarsverdelingAantal ;data.kenmerken.dwarsverdelingaantal@valids; true DATA.Kenmerken.UitsparingData.UitsparingAantal@valids = ConstrainedOptions("DATA.Kenmerken.Toepassing,DATA.Kenmerken.UitsparingData.UitsparingAantal@Valids"; "DATA.Kenmerken.UitsparingData.UitsparingAantal"; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.UitsparingData.UitsparingAantal ;data.kenmerken.uitsparingdata.uitsparingaantal@valids; true DATA.Kenmerken.FrontOndersteuningType@valids = ConstrainedOptions("DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.FrontOndersteuningType"; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.FrontOndersteuningType ;data.kenmerken.frontondersteuningtype@valids; true DATA.Kenmerken.HeeftZijstabilisering@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.HeeftOpvullijstLinks,DATA.Kenmerken.HeeftZijstabilisering@Valids;DATA.Kenmerken.HeeftOpvullijstRechts,DATA.Kenmerken.HeeftZijstabilisering@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.InbouwHoogte@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.HeeftZijstabilisering"; "DATA.Kenmerken.HeeftOpvullijstLinks"; CurrentBoolean(DATA.Kenmerken.HeeftOpvullijstLinks); "DATA.Kenmerken.HeeftOpvullijstRechts"; CurrentBoolean(DATA.Kenmerken.HeeftOpvullijstRechts); "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.HeeftZijstabilisering ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.DwarsverdelingAantal,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.Toepassing,DATA.Kenmerken.UitsparingData.UitsparingAantal@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.Toepassing,DATA.Kenmerken.UitsparingData.UitsparingAantal@Valids") Gather constraint messages for decision table DATA.Kenmerken.Toepassing,DATA.Kenmerken.UitsparingData.UitsparingAantal@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.FrontOndersteuningType,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.InbouwHoogte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.Toepassing@Valids ; true BEHAVIOR.AccessMode@valids = ConstrainedOptions("BEHAVIOR.AccessMode,DATA.Kenmerken.ProductieWijze@Valids"; "BEHAVIOR.AccessMode"; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze); Applying constraints for property BEHAVIOR.AccessMode ;behavior.accessmode@valids; ConstraintsNotSatisfiedFor("BEHAVIOR.AccessMode,DATA.Kenmerken.ProductieWijze@Valids") ConstraintsErrorMessagesFor("BEHAVIOR.AccessMode,DATA.Kenmerken.ProductieWijze@Valids") Gather constraint messages for decision table BEHAVIOR.AccessMode,DATA.Kenmerken.ProductieWijze@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 ; true DATA.Kenmerken.ProductieWijze@valids = ConstrainedOptions("BEHAVIOR.AccessMode,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.ProductieWijze"; "BEHAVIOR.AccessMode"; BEHAVIOR.AccessMode; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.ProductieWijze ;data.kenmerken.productiewijze@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 ; true BEHAVIOR.IsZijkantHoogteKToegelaten@style.invalidbooleans = ConstrainedBooleanInvalids("BEHAVIOR.IsZijkantHoogteKToegelaten,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids"; "BEHAVIOR.IsZijkantHoogteKToegelaten"; "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte); Applying constraints for property BEHAVIOR.IsZijkantHoogteKToegelaten ; ConstraintsNotSatisfiedFor("BEHAVIOR.IsZijkantHoogteKToegelaten,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids") ConstraintsErrorMessagesFor("BEHAVIOR.IsZijkantHoogteKToegelaten,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids") Gather constraint messages for decision table BEHAVIOR.IsZijkantHoogteKToegelaten,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids ; true DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@valids = ConstrainedOptions("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids"; "DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur"; "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.ZijwandVerhogingType"; DATA.Kenmerken.ZijwandVerhogingType); Applying constraints for property DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur ;data.kenmerken.zijwandverhoginginschuifelementkleur@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.ZijwandVerhogingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.ZijwandVerhogingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.ZijwandVerhogingType@Valids ; true UI.IsMengvormBeschikbaar@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.LadeKleur,UI.IsMengvormBeschikbaar@Valids"; "UI.IsMengvormBeschikbaar"; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur); Applying constraints for property UI.IsMengvormBeschikbaar ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeKleur,UI.IsMengvormBeschikbaar@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeKleur,UI.IsMengvormBeschikbaar@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeKleur,UI.IsMengvormBeschikbaar@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeKleur@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeKleur@Valids") Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeKleur@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeKleur@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeKleur@Valids") Gather constraint messages for decision table DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeKleur@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids ; true DATA.Kenmerken.IsBinnenlade@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.GreepEnMeenemer,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.IsBinnenlade"; "DATA.Kenmerken.FrontOndersteuningType"; DATA.Kenmerken.FrontOndersteuningType; "DATA.Kenmerken.GreepEnMeenemer"; DATA.Kenmerken.GreepEnMeenemer; "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.IsBinnenlade ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeKleur@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeKleur@Valids") Gather constraint messages for decision table DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeKleur@Valids ; true DATA.Kenmerken.LadeDiepte@valids = ConstrainedOptions("BEHAVIOR.IsZijkantHoogteKToegelaten,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids"; "DATA.Kenmerken.LadeDiepte"; "BEHAVIOR.IsZijkantHoogteKToegelaten"; CurrentBoolean(BEHAVIOR.IsZijkantHoogteKToegelaten); "DATA.Kenmerken.Draagkracht"; DATA.Kenmerken.Draagkracht; "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering); "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "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.ZijwandVerhogingInschuifElementKleur"; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur; "DATA.Kenmerken.ZijwandVerhogingType"; DATA.Kenmerken.ZijwandVerhogingType); Applying constraints for property DATA.Kenmerken.LadeDiepte ;data.kenmerken.ladediepte@valids; true DATA.Kenmerken.LadeKleur@valids = ConstrainedOptions("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids;DATA.Kenmerken.LadeKleur,UI.IsMengvormBeschikbaar@Valids"; "DATA.Kenmerken.LadeKleur"; "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.ZijwandVerhogingType"; DATA.Kenmerken.ZijwandVerhogingType; "UI.IsMengvormBeschikbaar"; CurrentBoolean(UI.IsMengvormBeschikbaar)); Applying constraints for property DATA.Kenmerken.LadeKleur ;data.kenmerken.ladekleur@valids; true DATA.Kenmerken.ZijwandVerhogingType@valids = ConstrainedOptions("DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.ZijwandVerhogingType@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids;DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids;DATA.Kenmerken.ZijwandVerhogingType@Valids"; "DATA.Kenmerken.ZijwandVerhogingType"; "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur"; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur); Applying constraints for property DATA.Kenmerken.ZijwandVerhogingType ;data.kenmerken.zijwandverhogingtype@valids; true DATA.Kenmerken.InbouwHoogte@valids = ConstrainedOptions("BEHAVIOR.IsZijkantHoogteKToegelaten,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.InbouwHoogte@Valids;DATA.Kenmerken.GreepEnMeenemer,DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.InbouwHoogte@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.ZijwandVerhogingType@Valids"; "DATA.Kenmerken.InbouwHoogte"; "BEHAVIOR.IsZijkantHoogteKToegelaten"; CurrentBoolean(BEHAVIOR.IsZijkantHoogteKToegelaten); "DATA.Kenmerken.DwarsverdelingAantal"; DATA.Kenmerken.DwarsverdelingAantal; "DATA.Kenmerken.GreepEnMeenemer"; DATA.Kenmerken.GreepEnMeenemer; "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering); "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur"; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur; "DATA.Kenmerken.ZijwandVerhogingType"; DATA.Kenmerken.ZijwandVerhogingType); Applying constraints for property DATA.Kenmerken.InbouwHoogte ;data.kenmerken.inbouwhoogte@valids; true DATA.Kenmerken.Toepassing@valids = ConstrainedOptions("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.FrontOndersteuningType,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.InbouwHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeKleur,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.Toepassing,DATA.Kenmerken.UitsparingData.UitsparingAantal@Valids"; "DATA.Kenmerken.Toepassing"; "DATA.Kenmerken.DwarsverdelingAantal"; DATA.Kenmerken.DwarsverdelingAantal; "DATA.Kenmerken.FrontOndersteuningType"; DATA.Kenmerken.FrontOndersteuningType; "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering); "DATA.Kenmerken.InbouwHoogte"; DATA.Kenmerken.InbouwHoogte; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze; "DATA.Kenmerken.UitsparingData.UitsparingAantal"; DATA.Kenmerken.UitsparingData.UitsparingAantal); Applying constraints for property DATA.Kenmerken.Toepassing ;data.kenmerken.toepassing@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandVerhogingType@Valids ; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) for i = 1 to len(DATA.Kenmerken.BodemKleur@options) UI.BodemKleur@option(i)@valid = DATA.Kenmerken.BodemKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.Draagkracht@options) UI.Draagkracht@option(i)@valid = DATA.Kenmerken.Draagkracht@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.DwarsverdelingAantal@options) UI.DwarsverdelingAantal@option(i)@valid = DATA.Kenmerken.DwarsverdelingAantal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.FrontBevestiging@options) UI.FrontBevestiging@option(i)@valid = DATA.Kenmerken.FrontBevestiging@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.FrontStabilisatorAantal@options) UI.FrontStabilisatorAantal@option(i)@valid = DATA.Kenmerken.FrontStabilisatorAantal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.FrontOndersteuningType@options) UI.FrontOndersteuningType@option(i)@valid = DATA.Kenmerken.FrontOndersteuningType@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.GeleiderTechnologie@options) UI.GeleiderTechnologie@option(i)@valid = DATA.Kenmerken.GeleiderTechnologie@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.GreepEnMeenemer@options) UI.GreepEnMeenemer@option(i)@valid = DATA.Kenmerken.GreepEnMeenemer@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.HangmapBoringAantal@options) UI.HangmapBoringAantal@option(i)@valid = DATA.Kenmerken.HangmapBoringAantal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeDiepte@options) UI.LadeDiepte@option(i)@valid = DATA.Kenmerken.LadeDiepte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeKleur@options) UI.LadeKleur@option(i)@valid = DATA.Kenmerken.LadeKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.OpvullijstKleur@options) UI.OpvullijstKleur@option(i)@valid = DATA.Kenmerken.OpvullijstKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.Plaatmateriaal@options) UI.Plaatmateriaal@option(i)@valid = DATA.Kenmerken.Plaatmateriaal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ProductieWijze@options) UI.ProductieWijze@option(i)@valid = DATA.Kenmerken.ProductieWijze@option(i)@valid; end for; /* for i = 1 to len(DATA.Kenmerken.RugwandMateriaal@options) UI.RugwandMateriaal@option(i)@valid = DATA.Kenmerken.RugwandMateriaal@option(i)@valid; end for; */ for i = 1 to len(DATA.Kenmerken.Toepassing@options) UI.Toepassing@option(i)@valid = DATA.Kenmerken.Toepassing@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.UitsparingData.UitsparingAantal@options) UI.UitsparingData.UitsparingAantal@option(i)@valid = DATA.Kenmerken.UitsparingData.UitsparingAantal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.VerpakkingType@options) UI.VerpakkingType@option(i)@valid = DATA.Kenmerken.VerpakkingType@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@options) UI.ZijwandVerhogingInschuifElementKleur@option(i)@valid = DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ZijwandVerhogingMateriaal@options) UI.ZijwandVerhogingMateriaal@option(i)@valid = DATA.Kenmerken.ZijwandVerhogingMateriaal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ZijwandVerhogingRelingKleur@options) UI.ZijwandVerhogingRelingKleur@option(i)@valid = DATA.Kenmerken.ZijwandVerhogingRelingKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ZijwandVerhogingType@options) UI.ZijwandVerhogingType@option(i)@valid = DATA.Kenmerken.ZijwandVerhogingType@option(i)@valid; end for; Valids ;ui.bodemkleur@valids;ui.draagkracht@valids;ui.dwarsverdelingaantal@valids;ui.frontbevestiging@valids;ui.frontstabilisatoraantal@valids;ui.frontondersteuningtype@valids;ui.geleidertechnologie@valids;ui.greepenmeenemer@valids;ui.hangmapboringaantal@valids;ui.ladediepte@valids;ui.ladekleur@valids;ui.opvullijstkleur@valids;ui.plaatmateriaal@valids;ui.productiewijze@valids;ui.toepassing@valids;ui.uitsparingdata.uitsparingaantal@valids;ui.verpakkingtype@valids;ui.zijwandverhoginginschuifelementkleur@valids;ui.zijwandverhogingmateriaal@valids;ui.zijwandverhogingrelingkleur@valids;ui.zijwandverhogingtype@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).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).FrontOndersteuningType@options) UI.BulkKenmerken.FrontOndersteuningType@option(i)@valid = DATA.BulkKenmerken(1).FrontOndersteuningType@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).FrontStabilisatorAantal@options) UI.BulkKenmerken.FrontStabilisatorAantal@option(i)@valid = DATA.BulkKenmerken(1).FrontStabilisatorAantal@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).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).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_Afdekkap@options) UI.BulkKenmerken.NietMeeleveren_Afdekkap@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Afdekkap@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_Bodemsteun@options) UI.BulkKenmerken.NietMeeleveren_Bodemsteun@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Bodemsteun@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Reling@options) UI.BulkKenmerken.NietMeeleveren_Reling@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Reling@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_InschuifElement@options) UI.BulkKenmerken.NietMeeleveren_InschuifElement@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElement@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_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_TiponBlumotionSynchronisatieToebehoren@options) UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen@options) UI.BulkKenmerken.NietMeeleveren_TiponBlumotionOnderdelen@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen@option(i)@valid; end for; Valids - BulkKenmerken ;ui.bulkkenmerken.bodemkleur@valids;ui.bulkkenmerken.frontbevestiging@valids;ui.bulkkenmerken.frontondersteuningtype@valids;ui.bulkkenmerken.frontstabilisatoraantal@valids;ui.bulkkenmerken.geleidertechnologie@valids;ui.bulkkenmerken.ladediepte@valids;ui.bulkkenmerken.ladekleur@valids;ui.bulkkenmerken.verpakkingtype@valids;ui.bulkkenmerken.nietmeeleveren_afdekkap@valids;ui.bulkkenmerken.nietmeeleveren_geleider@valids;ui.bulkkenmerken.nietmeeleveren_bodemsteun@valids;ui.bulkkenmerken.nietmeeleveren_reling@valids;ui.bulkkenmerken.nietmeeleveren_frontbevestiging@valids;ui.bulkkenmerken.nietmeeleveren_inschuifelement@valids;ui.bulkkenmerken.nietmeeleveren_opvullijst@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotionset@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatietoebehoren@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotiononderdelen@valids; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) for i = 1 to len(DATA.Kenmerken.InbouwHoogte@options) UI.InbouwHoogte@option(i)@valid = DATA.Kenmerken.InbouwHoogte@option(i)@valid; end for; if (BEHAVIOR.OperationMode == "New") or (BEHAVIOR.ContextName == "AxEdit") then // AxEdit is op dit moment (helaas) de Mode voor "nieuw maatwerk" bij SalesOrderline :-P STATE.InbouwHoogteValidsChanged = true; end if; Valids InbouwHoogte ;state.inbouwhoogtevalidschanged@value; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SP2"; "SY2"; "SY3"}); if _HeeftUitsparingData then local boolean _IsDS2LadeBijDesignOMT = false; // TODO : LadeCode "DS2" bij design "OMT" heeft B-rug UI.RugHoogte@option("N")@valid = false; UI.RugHoogte@option("M")@valid = true; UI.RugHoogte@option("K")@valid = false; UI.RugHoogte@option("B")@valid = _IsDS2LadeBijDesignOMT; UI.RugHoogte@option("C")@valid = false; UI.RugHoogte@option("D")@valid = false; UI.RugHoogte@option("X38")@valid = false; else if DATA.Kenmerken.HeeftAfwijkendeRugHoogte then UI.RugHoogte@option("N")@valid = (DATA.Kenmerken.InbouwHoogte in {"N", "M"} ); UI.RugHoogte@option("M")@valid = (DATA.Kenmerken.InbouwHoogte in {"M"; "B"; "CM"; "DM"} ); UI.RugHoogte@option("K")@valid = (DATA.Kenmerken.InbouwHoogte in {"K"; "DK"} ); UI.RugHoogte@option("B")@valid = (DATA.Kenmerken.InbouwHoogte in {"B"; "CM"; "DM"} ); UI.RugHoogte@option("C")@valid = (DATA.Kenmerken.InbouwHoogte in {"CM"} ); UI.RugHoogte@option("D")@valid = (DATA.Kenmerken.InbouwHoogte in {"DM"; "DK"} ); UI.RugHoogte@option("X38")@valid = (DATA.Kenmerken.InbouwHoogte in {"N"; "M"; "B"} ); else // Normale rughoogte, volgt de ladehoogte; geen beperkingen nodig UI.RugHoogte@option("N")@valid = true; UI.RugHoogte@option("M")@valid = true; UI.RugHoogte@option("K")@valid = true; UI.RugHoogte@option("B")@valid = true; UI.RugHoogte@option("C")@valid = true; UI.RugHoogte@option("D")@valid = true; UI.RugHoogte@option("X38")@valid = false; end if; end if; /* // Bovenstaande komt in de plaats van de Valids via de Constraints. for i = 1 to len(DATA.Kenmerken.RugHoogte@options) UI.RugHoogte@option(i)@valid = DATA.Kenmerken.RugHoogte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.InbouwHoogte@options) UI.InbouwHoogte@option(i)@valid = DATA.Kenmerken.InbouwHoogte@option(i)@valid; end for; */ Valids RugHoogte ;ui.rughoogte@valids; BEHAVIOR.IsEconAX and (DATA.Kenmerken.Toepassing == "L") and (DATA.Kenmerken.RugHoogte <> "") and (DATA.Kenmerken.LadeKleur <> "") and (DATA.Kenmerken.CorpusBreedte <> 0) and (DATA.Kenmerken.RugwandMateriaal == "Staal") // ================================ // Initialisatie // ================================ local string _XmlRequest = ""; local string _Service = GetSetting("data.vanhoecke.connectionstring.cache.bestaatstalenrug"); local string _PersonalityId = Config.Settings.PersonalityId; local string _KlantId = CStr(Config.Settings.KlantId); local string _eConTaal = CONFIG.Language; local string _VhTaalCode = _eConTaal; // Nog te converteren naar vhTaalCode local string _Variant = DATA.Kenmerken.Variant; local string _LadeKleur = DATA.Kenmerken.LadeKleur; local string _InterneBreedte = CStr(DATA.BerekendeWaarden.InterneBreedte); local string _RugHoogte = DATA.Kenmerken.RugHoogte; local string _LadeHoogte = ""; // Niet relevant voor StalenRug bij TBX. if _LadeKleur == "MG-GMA" then _LadeKleur = "MG" // mengvorm A-design : rugkleur = metaalgrijs, zoals bij antaro of tbx-plus. end if; // ================================ // Fallback Default values // ================================ if (_PersonalityId == "") then _PersonalityId = "1"; end if; // ================================ // _XmlRequest opbouwen // ================================ _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:PersonalityID>" + _PersonalityId + "</v4:PersonalityID>"; _XmlRequest = _XmlRequest + " <v4:KlantID>" + _KlantId + "</v4:KlantID>"; // bv. 12486 _XmlRequest = _XmlRequest + " <v4:Taal>" + _VhTaalCode + "</v4:Taal>"; _XmlRequest = _XmlRequest + " </v4:Header>"; _XmlRequest = _XmlRequest + " <v4:LadeVariant>" + _Variant + "</v4:LadeVariant>"; _XmlRequest = _XmlRequest + " <v4:LadeHoogte>" + _LadeHoogte + "</v4:LadeHoogte>"; _XmlRequest = _XmlRequest + " <v4:LadeKleur>" + _LadeKleur + "</v4:LadeKleur>"; _XmlRequest = _XmlRequest + " <v4:InterneBreedte>" + _InterneBreedte + "</v4:InterneBreedte>"; _XmlRequest = _XmlRequest + " <v4:RugHoogte>" + _RugHoogte + "</v4:RugHoogte>"; _XmlRequest = _XmlRequest + "</v4:Request>"; _XmlRequest = _XmlRequest + "</v4:BestaatStalenRug>"; _XmlRequest = _XmlRequest + "</soapenv:Body>"; _XmlRequest = _XmlRequest + "</soapenv:Envelope>"; // ================================ // WebService call uitvoeren // ================================ local boolean _Result = LoadFromXMLService("CONFIG.WebService.StalenRugBeschikbaar.BestaatStalenRug"; _Service; false; _XmlRequest); local string _Status = ""; if (_Result) then _Status = "Gelukt: "; STATE.BestaatStalenRugLoaded = "WebServiceIsGeladen"; else _Status = "Mislukt: "; STATE.BestaatStalenRugLoaded = "WebServiceIsNietGeladen"; end if; Valids RugwandMateriaal - WebService BestaatStalenRug ;state.bestaatstalenrugloaded@value; true local boolean _IsVolledigVoorStalenRugRequest = (DATA.Kenmerken.RugHoogte <> "") and (DATA.Kenmerken.LadeKleur <> "") and (DATA.Kenmerken.CorpusBreedte <> 0) and (DATA.Kenmerken.RugwandMateriaal == "Staal"); local boolean _BEHAVIOR_IsControleStalenRugViaWebService = BEHAVIOR.IsEconAX and (DATA.Kenmerken.Toepassing == "L") and _IsVolledigVoorStalenRugRequest; // TODO : _BEHAVIOR_IsControleStalenRugViaWebService als property aanmaken local boolean _BEHAVIOR_IsRugwandMateriaalHoutValid = true; local boolean _BEHAVIOR_IsRugwandMateriaalStaalValid; if _BEHAVIOR_IsControleStalenRugViaWebService then if (STATE.BestaatStalenRugLoaded == "WebServiceIsGeladen") then _BEHAVIOR_IsRugwandMateriaalStaalValid = (CONFIG.WebService.StalenRugBeschikbaar.BestaatStalenRug == true); else _BEHAVIOR_IsRugwandMateriaalStaalValid = false; end if; else _BEHAVIOR_IsRugwandMateriaalStaalValid = true; end if; DATA.Kenmerken.RugwandMateriaal@option("Hout")@valid = _BEHAVIOR_IsRugwandMateriaalHoutValid; DATA.Kenmerken.RugwandMateriaal@option("Staal")@valid = _BEHAVIOR_IsRugwandMateriaalStaalValid; // Valids van DATA naar UI overzetten for i = 1 to len(DATA.Kenmerken.RugwandMateriaal@options) UI.RugwandMateriaal@option(i)@valid = DATA.Kenmerken.RugwandMateriaal@option(i)@valid; end for; local string TriggerDummy = DATA.Kenmerken.RugwandMateriaal; Valids RugwandMateriaal instellen ;data.kenmerken.rugwandmateriaal@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.MatAntislipKleur@options) if (MatKleur == UI.MatAntislipKleur@option(j)@id) then UI.MatAntislipKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.MatAntislipFiberKleur@options) if (MatKleur == UI.MatAntislipFiberKleur@option(j)@id) then UI.MatAntislipFiberKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.MatAntislipFlockKleur@options) if (MatKleur == UI.MatAntislipFlockKleur@option(j)@id) then UI.MatAntislipFlockKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.MatVinylFiberglassKleur@options) if (MatKleur == UI.MatVinylFiberglassKleur@option(j)@id) then UI.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.MatMateriaal@option(i)@valid = DATA.Kenmerken.MatMateriaal@option(i)@valid; end for; /*for i = 1 to len(DATA.Kenmerken.MatMateriaal@options) UI.MatMateriaal@option(i)@valid = DATA.Kenmerken.MatMateriaal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.MatKleur@options) local string _OptionId = DATA.Kenmerken.MatKleur@option(i)@id; local boolean _OptionValid = DATA.Kenmerken.MatKleur@option(i)@valid; UI.MatAntislipKleur@option( _OptionId )@valid = _OptionValid; UI.MatAntislipFiberKleur@option( _OptionId )@valid = _OptionValid; UI.MatAntislipFlockKleur@option( _OptionId )@valid = _OptionValid; UI.MatVinylFiberglassKleur@option( _OptionId )@valid = _OptionValid; end for;*/ Valids - Mat ;ui.matmateriaal@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 DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@option("FG8")@valid = DATA.Kenmerken.LadeKleur in {""; "SW"; "MG"}; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@option("FZ8")@valid = DATA.Kenmerken.LadeKleur in {""; "SW"; "MG"}; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@option("AluMG")@valid = DATA.Kenmerken.LadeKleur in {""; "MG"}; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@option("AluSW")@valid = DATA.Kenmerken.LadeKleur in {""; "SW"}; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@option("AluBZ")@valid = DATA.Kenmerken.LadeKleur in {""; "BZ"}; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur@option("ZV")@valid = DATA.Kenmerken.LadeKleur in {""; "SW"; "MG"}; local string TriggerDummy = DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur; // Zou moeten triggeren wanneer LadeKleur gedefaulted wordt, maar vreemd genoeg werkt dat niet. Het werkt wel zoals het nu staat (dus met InschuifElementKleur :-P ) Set the valid options of data.kenmerken.zijwandverhoginginschuifelementkleur - Use the value of DATA.Kenmerken.LadeKleur ;data.kenmerken.zijwandverhoginginschuifelementkleur@valids; false //(UI.Toepassing@default <> DATA.Kenmerken.Toepassing) or (UI.UitsparingData.UitsparingAantal@default <> DATA.Kenmerken.UitsparingData.UitsparingAantal) local string _Path = "./vanhoecke/popup/image-holder.html?url=images/inbouwhoogte/"; local string _Language = UCase(GetArg("language")); local string _Extension = ".png"; local string _AfbeeldingCode = DATA.Kenmerken.Variant + "_" + DATA.Kenmerken.Toepassing; if (UI.Toepassing in {"SY2"; "SY3"}) then _AfbeeldingCode = _AfbeeldingCode + "_" + DATA.Kenmerken.UitsparingData.UitsparingAantal; end if; local string _Url = _Path + _AfbeeldingCode + "_" + _Language + _Extension; local string _OptionToSelect = UI.InbouwHoogte; for i = 1 to len(UI.InbouwHoogte@options) UI.InbouwHoogte = UI.InbouwHoogte@option(i)@id; UI.InbouwHoogte.Url = _Url; end for; UI.InbouwHoogte@default = _OptionToSelect; if (_OptionToSelect == "") then UI.InbouwHoogte = "" end if; Popup InbouwHoogte ;ui.inbouwhoogte@default;ui.inbouwhoogte@value; 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 "Procom": "10" // DEPRECATED case "Pallet": "10" else "???" end switch; _VerpakkingTypeTekst = Replace(_WarningText ; "{1}"; _AantalStuks); UI.VerpakkingTypeLabel@default = Replace(_WarningText ; "{1}"; _AantalStuks); UI.VerpakkingTypeLabel@visible = (DATA.Kenmerken.VerpakkingType in {"Probox", "Procom", "Pallet"} ); else _AantalStuks = switch DATA.BulkKenmerken(1).VerpakkingType case "Probox": "4" case "Pallet": "10" 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/Procom ;ui.verpakkingtypelabel@default;ui.verpakkingtypelabel@visible; (UI.VerpakkingType@default <> DATA.Kenmerken.VerpakkingType) and (CONFIG.Settings.PersonalityId == "1") local string _VerpakkingType = UI.VerpakkingType; local string _FlagVerpakkingOnderdelen = switch _VerpakkingType case "Probox": CONFIG.Settings.VerpakkingProboxOnderdelen case "Procom": CONFIG.Settings.VerpakkingProcomOnderdelen case "VHoss": CONFIG.Settings.VerpakkingVHossOnderdelen else "" end switch if (_FlagVerpakkingOnderdelen == "") then _FlagVerpakkingOnderdelen = "DefaultMet"; end if; local boolean _IsChecked = (_FlagVerpakkingOnderdelen in {"DefaultZonder"; "VerplichtZonder"}); local boolean _IsEnabled = not(_FlagVerpakkingOnderdelen == "VerplichtZonder"); local boolean _Result; index i of UI.NietMeeleveren If (UI.NietMeeleveren(i).Id <> "Antislipmat") then _Result = SetValue("DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.NietMeeleveren(i).Id; Cstr(_IsChecked)); end if; UI.NietMeeleveren(i).IsSelected@enabled = _IsEnabled; end index; Default en enabled - NietMeeleveren ; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) if (STATE.BulkConfiguratieToegepast) then STATE.BulkDataNaarUIToegepast = true; end if; UI.Lijn.Aantal@default = DATA.Lijn.Aantal; UI.Lijn.Referentie@default = DATA.Lijn.Referentie; UI.CorpusBreedte@default = DATA.Kenmerken.CorpusBreedte; UI.CorpusWanddikte@default = DATA.Kenmerken.CorpusWanddikte; UI.Draagkracht@default = DATA.Kenmerken.Draagkracht; UI.DwarsverdelingAantal@default = DATA.Kenmerken.DwarsverdelingAantal; UI.FrontBevestiging@default = DATA.Kenmerken.FrontBevestiging; UI.FrontOndersteuningType@default = DATA.Kenmerken.FrontOndersteuningType; UI.FrontStabilisatorAantal@default = DATA.Kenmerken.FrontStabilisatorAantal; UI.GeleiderTechnologie@default = DATA.Kenmerken.GeleiderTechnologie; UI.GreepEnMeenemer@default = DATA.Kenmerken.GreepEnMeenemer; UI.HangmapBoringAantal@default = DATA.Kenmerken.HangmapBoringAantal; UI.HeeftAfwijkendeRugHoogte@default = DATA.Kenmerken.HeeftAfwijkendeRugHoogte; UI.HeeftOpvullijstLinks@default = DATA.Kenmerken.HeeftOpvullijstLinks; UI.HeeftOpvullijstRechts@default = DATA.Kenmerken.HeeftOpvullijstRechts; UI.HeeftZijstabilisering@default = DATA.Kenmerken.HeeftZijstabilisering; UI.InterneBreedte@default = DATA.BerekendeWaarden.InterneBreedte; UI.AfmetingenLayout.IsBinnenbreedte@default = DATA.Kenmerken.IsBinnenbreedte; UI.IsBinnenlade@default = DATA.Kenmerken.IsBinnenlade; UI.LadeDiepte@default = DATA.Kenmerken.LadeDiepte; UI.OpvullijstDikte@default = DATA.BerekendeWaarden.OpvullijstDikte; UI.Plaatmateriaal@default = DATA.Kenmerken.Plaatmateriaal; UI.ProductieWijze@default = DATA.Kenmerken.ProductieWijze; UI.RugHoogte@default = DATA.Kenmerken.RugHoogte; UI.RugwandMateriaal@default = DATA.Kenmerken.RugwandMateriaal; UI.Toepassing@default = DATA.Kenmerken.Toepassing; UI.ZijwandVerhogingRelingKleur@default = DATA.Kenmerken.ZijwandVerhogingRelingKleur; UI.UitsparingData.X.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.X.Breedte; UI.UitsparingData.X.Hoogte@default = DATA.Kenmerken.UitsparingData.X.Hoogte; UI.UitsparingData.X.Materiaal@default = DATA.Kenmerken.UitsparingData.X.Materiaal; UI.UitsparingData.M.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.M.Breedte; UI.UitsparingData.M.Hoogte@default = DATA.Kenmerken.UitsparingData.M.Hoogte; UI.UitsparingData.M.Materiaal@default = DATA.Kenmerken.UitsparingData.M.Materiaal; UI.UitsparingData.Y.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.Y.Breedte; UI.UitsparingData.Y.Hoogte@default = DATA.Kenmerken.UitsparingData.Y.Hoogte; UI.UitsparingData.Y.Materiaal@default = DATA.Kenmerken.UitsparingData.Y.Materiaal; UI.UitsparingData.Z1.BreedteUitsparing@default = DATA.Kenmerken.UitsparingData.Z1.Breedte; UI.UitsparingData.Z1.Diepte@default = DATA.Kenmerken.UitsparingData.Z1.Diepte; UI.UitsparingData.Z1.Hoogte@default = DATA.Kenmerken.UitsparingData.Z1.Hoogte; UI.UitsparingData.Z1.Materiaal@default = DATA.Kenmerken.UitsparingData.Z1.Materiaal; UI.UitsparingData.Z1.Vorm@default = DATA.Kenmerken.UitsparingData.Z1.Vorm; UI.UitsparingData.Z2.BreedteUitsparing@default = DATA.Kenmerken.UitsparingData.Z2.Breedte; UI.UitsparingData.Z2.Diepte@default = DATA.Kenmerken.UitsparingData.Z2.Diepte; UI.UitsparingData.Z2.Hoogte@default = DATA.Kenmerken.UitsparingData.Z2.Hoogte; UI.UitsparingData.Z2.Materiaal@default = DATA.Kenmerken.UitsparingData.Z2.Materiaal; UI.UitsparingData.Z2.Vorm@default = DATA.Kenmerken.UitsparingData.Z2.Vorm; UI.UitsparingData.UitsparingAantal@default = DATA.Kenmerken.UitsparingData.UitsparingAantal; UI.VerpakkingType@default = DATA.Kenmerken.VerpakkingType; UI.ZijwandVerhogingMateriaal@default = DATA.Kenmerken.ZijwandVerhogingMateriaal; UI.ZijwandVerhogingInschuifElementKleur@default = DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur; local boolean _DummyCheckV01 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Afdekkap; local boolean _DummyCheckV02 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Antislipmat; local boolean _DummyCheckV03 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Bodemsteun; local boolean _DummyCheckV04 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging; local boolean _DummyCheckV05 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider; local boolean _DummyCheckV06 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElement local boolean _DummyCheckV07 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Reling; local boolean _DummyCheckV08 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst; local boolean _DummyCheckV09 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; local boolean _DummyCheckV10 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet; local boolean _DummyCheckV11 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; local boolean _DummyCheckV12 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren; // Niet meeleveren index i of UI.NietMeeleveren local boolean _IsChecked = cbool(Eval("DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.NietMeeleveren(i).Id)); local boolean _Dummy = UI.NietMeeleveren(i).IsSelected@enabled; // de IsSelected wordt niet correct gezet als deze regel er niet staat UI.NietMeeleveren(i).IsSelected@default = _IsChecked; end index; Values ;state.bulkdatanaaruitoegepast@value;ui.lijn.aantal@default;ui.lijn.referentie@default;ui.corpusbreedte@default;ui.corpuswanddikte@default;ui.draagkracht@default;ui.dwarsverdelingaantal@default;ui.frontbevestiging@default;ui.frontondersteuningtype@default;ui.frontstabilisatoraantal@default;ui.geleidertechnologie@default;ui.greepenmeenemer@default;ui.hangmapboringaantal@default;ui.heeftafwijkenderughoogte@default;ui.heeftopvullijstlinks@default;ui.heeftopvullijstrechts@default;ui.heeftzijstabilisering@default;ui.internebreedte@default;ui.afmetingenlayout.isbinnenbreedte@default;ui.isbinnenlade@default;ui.ladediepte@default;ui.opvullijstdikte@default;ui.plaatmateriaal@default;ui.productiewijze@default;ui.rughoogte@default;ui.rugwandmateriaal@default;ui.toepassing@default;ui.zijwandverhogingrelingkleur@default;ui.uitsparingdata.x.breedterugdeel@default;ui.uitsparingdata.x.hoogte@default;ui.uitsparingdata.x.materiaal@default;ui.uitsparingdata.m.breedterugdeel@default;ui.uitsparingdata.m.hoogte@default;ui.uitsparingdata.m.materiaal@default;ui.uitsparingdata.y.breedterugdeel@default;ui.uitsparingdata.y.hoogte@default;ui.uitsparingdata.y.materiaal@default;ui.uitsparingdata.z1.breedteuitsparing@default;ui.uitsparingdata.z1.diepte@default;ui.uitsparingdata.z1.hoogte@default;ui.uitsparingdata.z1.materiaal@default;ui.uitsparingdata.z1.vorm@default;ui.uitsparingdata.z2.breedteuitsparing@default;ui.uitsparingdata.z2.diepte@default;ui.uitsparingdata.z2.hoogte@default;ui.uitsparingdata.z2.materiaal@default;ui.uitsparingdata.z2.vorm@default;ui.uitsparingdata.uitsparingaantal@default;ui.verpakkingtype@default;ui.zijwandverhogingmateriaal@default;ui.zijwandverhoginginschuifelementkleur@default; BEHAVIOR.IsInteractive and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) UI.BulkKenmerken.BodemKleur@default = DATA.BulkKenmerken(1).BodemKleur; UI.BulkKenmerken.CorpusBreedte@default = DATA.BulkKenmerken(1).CorpusBreedte; 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.FrontBevestiging@default = DATA.BulkKenmerken(1).FrontBevestiging; UI.BulkKenmerken.FrontOndersteuningType@default = DATA.BulkKenmerken(1).FrontOndersteuningType; UI.BulkKenmerken.FrontStabilisatorAantal@default = DATA.BulkKenmerken(1).FrontStabilisatorAantal; UI.BulkKenmerken.GeleiderTechnologie@default = DATA.BulkKenmerken(1).GeleiderTechnologie; UI.BulkKenmerken.GreepEnMeenemer@default = DATA.BulkKenmerken(1).GreepEnMeenemer; 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.LadeKleur@default = DATA.BulkKenmerken(1).LadeKleur; UI.BulkKenmerken.OpvullijstKleur@default = DATA.BulkKenmerken(1).OpvullijstKleur; UI.BulkKenmerken.VerpakkingType@default = DATA.BulkKenmerken(1).VerpakkingType; UI.BulkKenmerken.NietMeeleveren_Afdekkap@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Afdekkap; UI.BulkKenmerken.NietMeeleveren_Bodemsteun@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Bodemsteun; 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_InschuifElement@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElement; UI.BulkKenmerken.NietMeeleveren_Reling@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Reling; UI.BulkKenmerken.NietMeeleveren_Opvullijst@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionOnderdelen@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; 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.MatMateriaal case "CF": UI.BulkKenmerken.MatVinylFiberglassKleur@default = DATA.Kenmerken.MatKleur case "AF": UI.BulkKenmerken.MatAntislipFiberKleur@default = DATA.Kenmerken.MatKleur case "AZ": UI.BulkKenmerken.MatAntislipFlockKleur@default = DATA.Kenmerken.MatKleur end switch; Values - BulkKenmerken ;ui.bulkkenmerken.bodemkleur@default;ui.bulkkenmerken.corpusbreedte@default;ui.bulkkenmerken.corpuswanddikte@default;ui.bulkkenmerken.draagkracht@default;ui.bulkkenmerken.dwarsverdelingaantal@default;ui.bulkkenmerken.frontbevestiging@default;ui.bulkkenmerken.frontondersteuningtype@default;ui.bulkkenmerken.frontstabilisatoraantal@default;ui.bulkkenmerken.geleidertechnologie@default;ui.bulkkenmerken.greepenmeenemer@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.ladekleur@default;ui.bulkkenmerken.opvullijstkleur@default;ui.bulkkenmerken.verpakkingtype@default;ui.bulkkenmerken.nietmeeleveren_afdekkap@default;ui.bulkkenmerken.nietmeeleveren_bodemsteun@default;ui.bulkkenmerken.nietmeeleveren_frontbevestiging@default;ui.bulkkenmerken.nietmeeleveren_geleider@default;ui.bulkkenmerken.nietmeeleveren_inschuifelement@default;ui.bulkkenmerken.nietmeeleveren_reling@default;ui.bulkkenmerken.nietmeeleveren_opvullijst@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotiononderdelen@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotionset@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatietoebehoren@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@default;ui.bulkkenmerken.matmateriaal@default;ui.bulkkenmerken.heeftmat@default;ui.bulkkenmerken.matvinylfiberglasskleur@default;ui.bulkkenmerken.matantislipfiberkleur@default;ui.bulkkenmerken.matantislipflockkleur@default; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) UI.InbouwHoogte@default = DATA.Kenmerken.InbouwHoogte; Values - InbouwHoogte ;ui.inbouwhoogte@default; STATE.InbouwHoogteValidsChanged // (BEHAVIOR.OperationMode == "New") STATE.InbouwHoogteValidsChanged = false; local string _SelectedOptionZijwandVerhogingType = UI.ZijwandVerhogingType; local string _VorigeWaardeZijwandVerhogingType = UI.PropertiesEnkelVoorInCodeVanRules.ZijwandVerhogingTypeVorigeWaarde; local boolean _IsGewijzigdZijwandVerhogingType = false; if (_SelectedOptionZijwandVerhogingType <> _VorigeWaardeZijwandVerhogingType) then if (DATA.Kenmerken.InbouwHoogte <> "") and (DATA.Kenmerken.InbouwHoogte@option(DATA.Kenmerken.InbouwHoogte)@valid == false) then DATA.Kenmerken.InbouwHoogte = ""; UI.InbouwHoogte = ""; end if; UI.PropertiesEnkelVoorInCodeVanRules.ZijwandVerhogingTypeVorigeWaarde = _SelectedOptionZijwandVerhogingType; end if; InbouwHoogte reset indien ongeldig ;state.inbouwhoogtevalidschanged@value;ui.propertiesenkelvoorincodevanrules.zijwandverhogingtypevorigewaarde@value; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) UI.MatMateriaal@default = DATA.Kenmerken.MatMateriaal; UI.HeeftMat@default = (UI.MatMateriaal <> ""); UI.MatVinylFiberglassKleur@default = ""; UI.MatAntislipKleur@default = ""; UI.MatAntislipFiberKleur@default = ""; UI.MatAntislipFlockKleur@default = ""; switch UI.MatMateriaal case "CF": UI.MatVinylFiberglassKleur@default = DATA.Kenmerken.MatKleur case "AS": UI.MatAntislipKleur@default = DATA.Kenmerken.MatKleur case "AF": UI.MatAntislipFiberKleur@default = DATA.Kenmerken.MatKleur case "AZ": UI.MatAntislipFlockKleur@default = DATA.Kenmerken.MatKleur end switch; Values - Mat ;ui.matmateriaal@default;ui.heeftmat@default;ui.matvinylfiberglasskleur@default;ui.matantislipkleur@default;ui.matantislipfiberkleur@default;ui.matantislipflockkleur@default; (DATA.Kenmerken.BodemKleur <> UI.BodemKleur.Value) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local string OptionToSelect = ""; OptionToSelect = UI.BodemKleur; for i = 1 to len(UI.BodemKleur@options) UI.BodemKleur = UI.BodemKleur@option(i)@id; if (UI.BodemKleur.Value == DATA.Kenmerken.BodemKleur) then OptionToSelect = UI.BodemKleur; end if; end for; UI.BodemKleur@default = OptionToSelect; Values - BodemKleur ;ui.bodemkleur@default; (DATA.Kenmerken.LadeKleur <> UI.LadeKleur.Value) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local string OptionToSelect = ""; OptionToSelect = UI.LadeKleur; for i = 1 to len(UI.LadeKleur@options) UI.LadeKleur = UI.LadeKleur@option(i)@id; if (UI.LadeKleur.Value == DATA.Kenmerken.LadeKleur) then OptionToSelect = UI.LadeKleur; end if; end for; UI.LadeKleur@default = OptionToSelect; Values - LadeKleur ;ui.ladekleur@default; (DATA.Kenmerken.OpvullijstKleur <> UI.OpvullijstKleur.Value) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local string OptionToSelect = ""; OptionToSelect = UI.OpvullijstKleur; for i = 1 to len(UI.OpvullijstKleur@options) UI.OpvullijstKleur = UI.OpvullijstKleur@option(i)@id; if (UI.OpvullijstKleur.Value == DATA.Kenmerken.OpvullijstKleur) then OptionToSelect = UI.OpvullijstKleur; end if; end for; UI.OpvullijstKleur@default = OptionToSelect; Values - OpvullijstKleur ;ui.opvullijstkleur@default; (DATA.Kenmerken.ZijwandVerhogingType <> UI.ZijwandVerhogingType.Value) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local string OptionToSelect = ""; OptionToSelect = UI.ZijwandVerhogingType; for i = 1 to len(UI.ZijwandVerhogingType@options) UI.ZijwandVerhogingType = UI.ZijwandVerhogingType@option(i)@id; if (UI.ZijwandVerhogingType.Value == DATA.Kenmerken.ZijwandVerhogingType) then OptionToSelect = UI.ZijwandVerhogingType; end if; end for; UI.ZijwandVerhogingType@default = OptionToSelect; Values - ZijwandVerhogingType ;ui.zijwandverhogingtype@default; true local boolean HeeftOpvullijst = (DATA.Kenmerken.Toepassing == "B"); DATA.Kenmerken.HeeftOpvullijstLinks@default = HeeftOpvullijst; DATA.Kenmerken.HeeftOpvullijstRechts@default = HeeftOpvullijst; // Resetten? // alleen indien vorige waarde Burobox en indien opvullijst(en) niet expliciet gekozen ? Opvullijsten aanvinken wanneer Burobox gekozen wordt :-P ;data.kenmerken.heeftopvullijstlinks@default;data.kenmerken.heeftopvullijstrechts@default; true local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing == "SP2"); local double _UitsparingDiepte if (_IsSpoelbaklade) and (UI.UitsparingData.SpoelbakCodeXY == "") then local string _DefaultSpoelbakCodeXY = "SP2_M_BM" if (UI.UitsparingData.X.BreedteRugDeel in {147 ; 197} ) then if (UI.UitsparingData.Y.BreedteRugDeel == UI.UitsparingData.X.BreedteRugDeel) then _DefaultSpoelbakCodeXY = "SP2_M_B" + UI.UitsparingData.X.BreedteRugDeel; else _DefaultSpoelbakCodeXY = "SP2_M_BM"; end if; end if; if (UI.UitsparingData.X.BreedteRugDeel == 143) then if (UI.UitsparingData.X.Materiaal == "Staal") then _DefaultSpoelbakCodeXY = "SP2_DM_B143"; else _DefaultSpoelbakCodeXY = "SP2_M_BM"; end if; end if; UI.UitsparingData.SpoelbakCodeXY@default = _DefaultSpoelbakCodeXY; end if; Values UitsparingData X en Y ;ui.uitsparingdata.spoelbakcodexy@default; true local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SP2"; "SY2"; "SY3"}); local boolean _HeeftDubbeleUitsparing = (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); UI.UitsparingData@visible = _HeeftUitsparingData; UI.UitsparingData.UitsparingAantal@mandatory = _HeeftUitsparingData; UI.UitsparingData.X@visible = _HeeftUitsparingData; UI.UitsparingData.X.BreedteRugdeel@mandatory = _HeeftUitsparingData; UI.UitsparingData.Z1@visible = _HeeftUitsparingData; UI.UitsparingData.Z1.BreedteUitsparing@mandatory = _HeeftUitsparingData; //UI.UitsparingData.Uitsparing_LijnM@visible = _HeeftDubbeleUitsparing; UI.UitsparingData.M@visible = _HeeftDubbeleUitsparing; UI.UitsparingData.M.BreedteRugdeel@mandatory = _HeeftDubbeleUitsparing; //UI.UitsparingData.Uitsparing_LijnZ2@visible = _HeeftDubbeleUitsparing; UI.UitsparingData.Z2@visible = _HeeftDubbeleUitsparing; UI.UitsparingData.Z2.BreedteUitsparing@mandatory = _HeeftDubbeleUitsparing; UI.UitsparingData.Y@visible = _HeeftUitsparingData; UI.UitsparingData.Y.BreedteRugdeel@mandatory = _HeeftUitsparingData; UI.UitsparingData.Uitsparing_LijnX@visible = false; UI.UitsparingData.Uitsparing_LijnZ1@visible = false; UI.UitsparingData.Uitsparing_LijnM@visible = false; UI.UitsparingData.Uitsparing_LijnZ2@visible = false; UI.UitsparingData.Uitsparing_LijnY@visible = false; Visible en mandatory - UitsparingData Aantal en Breedte ;ui.uitsparingdata@visible;ui.uitsparingdata.uitsparingaantal@mandatory;ui.uitsparingdata.x@visible;ui.uitsparingdata.x.breedterugdeel@mandatory;ui.uitsparingdata.z1@visible;ui.uitsparingdata.z1.breedteuitsparing@mandatory;ui.uitsparingdata.m@visible;ui.uitsparingdata.m.breedterugdeel@mandatory;ui.uitsparingdata.z2@visible;ui.uitsparingdata.z2.breedteuitsparing@mandatory;ui.uitsparingdata.y@visible;ui.uitsparingdata.y.breedterugdeel@mandatory;ui.uitsparingdata.uitsparing_lijnx@visible;ui.uitsparingdata.uitsparing_lijnz1@visible;ui.uitsparingdata.uitsparing_lijnm@visible;ui.uitsparingdata.uitsparing_lijnz2@visible;ui.uitsparingdata.uitsparing_lijny@visible; true local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing == "SP2"); local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing in {"SY2"; "SY3"}); local boolean _HeeftDubbeleUitsparing = (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); if (Config.InputMode == "CreateConfig") then UI.UitsparingData.X.CodeRugdeel@mandatory = false; UI.UitsparingData.M.CodeRugdeel@mandatory = false; UI.UitsparingData.Y.CodeRugdeel@mandatory = false; UI.UitsparingData.Z1.CodeUitsparing@mandatory = false; UI.UitsparingData.Z2.CodeUitsparing@mandatory = false; UI.UitsparingData.SpoelbakCodeXY@mandatory = false; else UI.UitsparingData.X.CodeRugdeel@visible = false; // _IsSpoelbaklade; UI.UitsparingData.X.CodeRugdeel@mandatory = false; // _IsSpoelbaklade; UI.UitsparingData.Z1.CodeUitsparing@visible = _IsSifonlade; UI.UitsparingData.Z1.CodeUitsparing@mandatory = _IsSifonlade; UI.UitsparingData.M.CodeRugdeel@visible = false; UI.UitsparingData.M.CodeRugdeel@mandatory = _HeeftDubbeleUitsparing; UI.UitsparingData.Z2.CodeUitsparing@visible = (_HeeftDubbeleUitsparing and _IsSifonlade); UI.UitsparingData.Z2.CodeUitsparing@mandatory = (_HeeftDubbeleUitsparing and _IsSifonlade); UI.UitsparingData.Y.CodeRugdeel@visible = false; // _IsSpoelbaklade; UI.UitsparingData.Y.CodeRugdeel@mandatory = false; // _IsSpoelbaklade; end if; // Placeholders om de uitlijning te behouden :-P UI.UitsparingData.X.CodePlaceholder@visible = not(UI.UitsparingData.X.CodeRugdeel@visible); UI.UitsparingData.Z1.CodePlaceholder@visible = not(UI.UitsparingData.Z1.CodeUitsparing@visible); UI.UitsparingData.M.CodePlaceholder@visible = not(UI.UitsparingData.M.CodeRugdeel@visible); UI.UitsparingData.Z2.CodePlaceholder@visible = not(UI.UitsparingData.Z2.CodeUitsparing@visible); UI.UitsparingData.Y.CodePlaceholder@visible = not(UI.UitsparingData.Y.CodeRugdeel@visible); Visible en mandatory - UitsparingData Code ;ui.uitsparingdata.x.coderugdeel@mandatory;ui.uitsparingdata.m.coderugdeel@mandatory;ui.uitsparingdata.y.coderugdeel@mandatory;ui.uitsparingdata.z1.codeuitsparing@mandatory;ui.uitsparingdata.z2.codeuitsparing@mandatory;ui.uitsparingdata.spoelbakcodexy@mandatory;ui.uitsparingdata.x.codeplaceholder@visible;ui.uitsparingdata.z1.codeplaceholder@visible;ui.uitsparingdata.m.codeplaceholder@visible;ui.uitsparingdata.z2.codeplaceholder@visible;ui.uitsparingdata.y.codeplaceholder@visible; BEHAVIOR.IsInteractive local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing == "SP2"); UI.UitsparingData.SpoelbakCodeXY@visible = _IsSpoelbaklade; UI.UitsparingData.SpoelbakCodeXY@mandatory = _IsSpoelbaklade; UI.UitsparingData.UitsparingAantal@visible = not(_isSpoelbaklade); // UI.UitsparingData.UitsparingAantal@default = UI.UitsparingData.UitsparingAantal; if _IsSpoelbaklade then UI.UitsparingData.UitsparingAantal = "Enkel"; end if; Visible en mandatory - UitsparingData Speciaal voor Spoelbak ;ui.uitsparingdata.spoelbakcodexy@visible;ui.uitsparingdata.spoelbakcodexy@mandatory;ui.uitsparingdata.uitsparingaantal@visible;ui.uitsparingdata.uitsparingaantal@value; true local string _UitsparingOpMaat = "SP2_Recht_M_Dx_BM"; local string _RugdeelOpMaat = "SY2_M_BM"; // Enige beschikbare mogelijkheid voor de gekozen toepassing (OpMaat) zullen we niet zichtbaar maken. UI.UitsparingData.Z1.CodeUitsparing@option(_UitsparingOpMaat)@visible = false; UI.UitsparingData.Z2.CodeUitsparing@option(_UitsparingOpMaat)@visible = false; UI.UitsparingData.X.CodeRugdeel@option(_RugdeelOpMaat)@visible = false; UI.UitsparingData.Y.CodeRugdeel@option(_RugdeelOpMaat)@visible = false; // Switch tussen de opties voor sifon Type 2 en Type 3 : local boolean _IsSifonType2 = (DATA.Kenmerken.Toepassing == "SY2"); local boolean _IsSifonType3 = (DATA.Kenmerken.Toepassing == "SY3"); UI.UitsparingData.Z1.CodeUitsparing@option("SY2_Recht_M_Dx_BM")@visible = (_IsSifonType2); UI.UitsparingData.Z2.CodeUitsparing@option("SY2_Recht_M_Dx_BM")@visible = (_IsSifonType2); UI.UitsparingData.Z1.CodeUitsparing@option("SY3_Recht_M_D240_B160")@visible = (_IsSifonType3); UI.UitsparingData.Z1.CodeUitsparing@option("SY3_Recht_M_D240_B300")@visible = false ; // (_IsSifonType3); UI.UitsparingData.Z2.CodeUitsparing@option("SY3_Recht_M_D240_B160")@visible = (_IsSifonType3); UI.UitsparingData.Z2.CodeUitsparing@option("SY3_Recht_M_D240_B300")@visible = false ; // (_IsSifonType3); Visible Opties Spoelbak/Sifon ;ui.uitsparingdata.z1.codeuitsparing@options;ui.uitsparingdata.z2.codeuitsparing@options;ui.uitsparingdata.x.coderugdeel@options;ui.uitsparingdata.y.coderugdeel@options; (DATA.Kenmerken.Toepassing == "SP2") local string _RugdeelBreed = "SP2_M_B197"; local string _UitsparingOpMaat = "SP2_Recht_M_Dx_BM"; local boolean _IsInteractiveOnWeb = (Config.InputMode <> "CreateConfig") local boolean _IsInteractiveOnAX = not(BEHAVIOR.IsEconAx) // TODO : Later aan te passen naar BEHAVIOR.IsInteractive local boolean _IsInteractive = _IsInteractiveOnWeb and _IsInteractiveOnAX; if _IsInteractive and (Config.InputMode <> "Edit") and (UI.UitsparingData.SpoelbakCodeXY == "") then UI.UitsparingData.SpoelbakCodeXY@default = _RugdeelBreed; end if; if (UI.UitsparingData.Z1.CodeUitsparing <> _UitsparingOpMaat) then UI.UitsparingData.Z1.CodeUitsparing = _UitsparingOpMaat; UI.UitsparingData.Z1.CodeUitsparing@default = UI.UitsparingData.Z1.CodeUitsparing; end if; Defaults voor Spoelbaklade ;ui.uitsparingdata.spoelbakcodexy@default;ui.uitsparingdata.z1.codeuitsparing@value;ui.uitsparingdata.z1.codeuitsparing@default; (DATA.Kenmerken.Toepassing in {"SY2"; "SY3"}) local string _RugdeelOpMaat = "SY2_M_BM"; local string _UitsparingSmal = "SY3_Recht_M_D240_B160"; // Sifon type 3 local string _UitsparingOpMaat = "SY2_Recht_M_Dx_BM"; // Sifon type 2 if (UI.UitsparingData.UitsparingAantal == "") then UI.UitsparingData.UitsparingAantal@default = "Enkel"; end if; if (UI.UitsparingData.X.CodeRugdeel <> _RugdeelOpMaat) then UI.UitsparingData.X.CodeRugdeel@default = _RugdeelOpMaat; end if; if (UI.UitsparingData.M.CodeRugdeel <> _RugdeelOpMaat) then UI.UitsparingData.M.CodeRugdeel@default = _RugdeelOpMaat; end if; if (UI.UitsparingData.Y.CodeRugdeel <> _RugdeelOpMaat) then UI.UitsparingData.Y.CodeRugdeel@default = _RugdeelOpMaat; end if; local string _NieuweDefaultCode = ""; local boolean _DefaultCodeZetten = (Config.InputMode <> "CreateConfig"); if _DefaultCodeZetten and (Config.InputMode == "Edit" and UI.UitsparingData.Z1.CodeUitsparing == "") then _DefaultCodeZetten = false; end if; if _DefaultCodeZetten then if (DATA.Kenmerken.Toepassing == "SY2") and (mid(UI.UitsparingData.Z1.CodeUitsparing; 1; 4) <> "SY2_") then _NieuweDefaultCode= _UitsparingOpMaat; end if; if (DATA.Kenmerken.Toepassing == "SY3") and (mid(UI.UitsparingData.Z1.CodeUitsparing; 1; 4) <> "SY3_") then _NieuweDefaultCode= _UitsparingSmal; end if; if (_NieuweDefaultCode <> "") then UI.UitsparingData.Z1.CodeUitsparing = _NieuweDefaultCode; UI.UitsparingData.Z1.CodeUitsparing@default = _NieuweDefaultCode; UI.UitsparingData.Z2.CodeUitsparing@default = _NieuweDefaultCode; end if; end if; Defaults voor Sifonlade ;ui.uitsparingdata.uitsparingaantal@default;ui.uitsparingdata.x.coderugdeel@default;ui.uitsparingdata.m.coderugdeel@default;ui.uitsparingdata.y.coderugdeel@default; (DATA.Kenmerken.Toepassing == "SP2") and (UI.UitsparingData.SpoelbakCodeXY <> "") UI.UitsparingData.X.CodeRugdeel@default = UI.UitsparingData.SpoelbakCodeXY; // Default Set forceren :-P UI.UitsparingData.X.CodeRugdeel = UI.UitsparingData.SpoelbakCodeXY; UI.UitsparingData.Y.CodeRugdeel@default = UI.UitsparingData.SpoelbakCodeXY; // Default Set forceren :-P UI.UitsparingData.Y.CodeRugdeel = UI.UitsparingData.SpoelbakCodeXY; CodeX en CodeY gelijk zijn aan SpoelbakCodeXY - bij Spoelbaklade ;ui.uitsparingdata.x.coderugdeel@default;ui.uitsparingdata.x.coderugdeel@value;ui.uitsparingdata.y.coderugdeel@default;ui.uitsparingdata.y.coderugdeel@value; (DATA.Kenmerken.Toepassing == "SY2") and (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") local string _UitsparingOpMaat = "SY2_Recht_M_Dx_BM"; local boolean _IsCodeZ1Gewijzigd = (UI.UitsparingData.Z1.CodeUitsparing@default <> UI.UitsparingData.Z1.CodeUitsparing); local boolean _IsCodeZ2Gewijzigd = (UI.UitsparingData.Z2.CodeUitsparing@default <> UI.UitsparingData.Z2.CodeUitsparing); if (UI.UitsparingData.Z1.CodeUitsparing == _UitsparingOpMaat) or (UI.UitsparingData.Z2.CodeUitsparing == _UitsparingOpMaat) then if (_IsCodeZ1Gewijzigd) then UI.UitsparingData.Z2.CodeUitsparing = UI.UitsparingData.Z1.CodeUitsparing; end if; if (_IsCodeZ2Gewijzigd) then UI.UitsparingData.Z1.CodeUitsparing = UI.UitsparingData.Z2.CodeUitsparing; end if; end if; UI.UitsparingData.Z1.CodeUitsparing@default = UI.UitsparingData.Z1.CodeUitsparing; UI.UitsparingData.Z2.CodeUitsparing@default = UI.UitsparingData.Z2.CodeUitsparing; CodeZ1 en CodeZ2 zijn beide OpMaat of Vast - bij sifonlade type 2 ;ui.uitsparingdata.z1.codeuitsparing@default;ui.uitsparingdata.z2.codeuitsparing@default; (DATA.Kenmerken.Toepassing == "SP2") local boolean _IsRugHoogteD = (DATA.Kenmerken.InbouwHoogte == "DM") or (DATA.Kenmerken.InbouwHoogte == "DK"); local boolean _BEHAVIOR_IsSmalToegelaten = not(_IsRugHoogteD); // Nu nog niet beschikbaar voor RugHoogte "D". Hiervoor moeten we eerst de achterliggende logica nog aanpassen/controleren. local boolean _BEHAVIOR_IsSmalSaToegelaten = false; // (_IsRugHoogteD == true); --> nu ook voor Rughoogte "D" geldt: Smal-SA is uitgefaseerd. UI.UitsparingData.SpoelbakCodeXY@option("SP2_M_B147")@visible = _BEHAVIOR_IsSmalToegelaten; UI.UitsparingData.SpoelbakCodeXY@option("SP2_DM_B143")@visible = _BEHAVIOR_IsSmalSaToegelaten; Optie Smal is afhankelijk van de RugHoogte ;ui.uitsparingdata.spoelbakcodexy@options; true local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SP2"; "SY2"; "SY3"}); local boolean _HeeftDubbeleUitsparing = (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); local string _UitsparingAantal = DATA.Kenmerken.UitsparingData.UitsparingAantal; if (_UitsparingAantal == "") then _UitsparingAantal = "Enkel"; end if; local string _ImageFolder = "./images/Vanhoecke/tbx/UitsparingData/"; local string _ImageNaam = DATA.Kenmerken.Variant + "_Toepassing_" + DATA.Kenmerken.Toepassing + "_" + _UitsparingAantal + ".png"; UI.UitsparingData.Images@visible = _HeeftUitsparingData; UI.UitsparingData.Images = _ImageFolder + _ImageNaam; Visible Image - schets voor uitsparing enkel/dubbel ;ui.uitsparingdata.images@visible;ui.uitsparingdata.images@value; true local string _CodeX = UI.UitsparingData.X.CodeRugdeel; local double _VasteBreedte = 0; local boolean _DefaultBreedteOpNulZetten = (Config.InputMode == "New") and (BEHAVIOR.IsEconWeb); //RANGE.UitsparingDataBreedteX.Minimum = 0; //RANGE.UitsparingDataBreedteX.Maximum = 0; switch _CodeX case "SY2_M_BM": // enige mogelijkheid bij Sifonlade if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.X.BreedteRugdeel@default = 0; end if; UI.UitsparingData.X.Hoogte = "M"; UI.UitsparingData.X.Materiaal = "Hout"; RANGE.UitsparingDataBreedteX.Minimum = 120; RANGE.UitsparingDataBreedteX.Maximum = 999; // Kan ev correcter bepaald worden, maar biedt te weinig meerwaarde t.o.v. hoeveelheid werk om dit correct te doen :-P case "SP2_M_B147": _VasteBreedte = 147; UI.UitsparingData.X.BreedteRugdeel = _VasteBreedte; UI.UitsparingData.X.Hoogte = "M"; UI.UitsparingData.X.Materiaal = "Hout"; RANGE.UitsparingDataBreedteX.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteX.Maximum = _VasteBreedte; case "SP2_M_B197": _VasteBreedte = 197; UI.UitsparingData.X.BreedteRugdeel = _VasteBreedte; UI.UitsparingData.X.Hoogte = "M"; UI.UitsparingData.X.Materiaal = "Hout"; RANGE.UitsparingDataBreedteX.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteX.Maximum = _VasteBreedte; case "SP2_DM_B143": // Smal-SA is uitgefaseerd. _VasteBreedte = 143; UI.UitsparingData.X.BreedteRugdeel = _VasteBreedte; UI.UitsparingData.X.Hoogte = "DM"; UI.UitsparingData.X.Materiaal = "Staal"; RANGE.UitsparingDataBreedteX.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteX.Maximum = _VasteBreedte; case "SP2_M_BM": if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.X.BreedteRugdeel@default = 0; end if; UI.UitsparingData.X.Hoogte = "M"; UI.UitsparingData.X.Materiaal = "Hout"; RANGE.UitsparingDataBreedteX.Minimum = 120; RANGE.UitsparingDataBreedteX.Maximum = 999; end switch; UI.UitsparingData.X.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option(UI.UitsparingData.X.Materiaal)@label; UitsparingData X invullen ;ui.uitsparingdata.x.materiaaldisplay@value; true local string _CodeZ1 = UI.UitsparingData.Z1.CodeUitsparing; local double _VasteBreedte = 0; local boolean _DefaultBreedteOpNulZetten = (Config.InputMode == "New") and (BEHAVIOR.IsEconWeb); //RANGE.UitsparingDataBreedteZ1.Minimum = 0; //RANGE.UitsparingDataBreedteZ1.Maximum = 0; UI.UitsparingData.Z1.Diepte = 0; UI.UitsparingData.Z1.Hoogte = "M"; UI.UitsparingData.Z1.Vorm = "Recht"; switch _CodeZ1 case "SP2_Recht_M_Dx_BM": // enige mogelijkheid bij Spoelbaklade if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.Z1.BreedteUitsparing@default = 0; end if; UI.UitsparingData.Z1.Materiaal = "Hout"; RANGE.UitsparingDataBreedteZ1.Minimum = 125; RANGE.UitsparingDataBreedteZ1.Maximum = 999; case "SY2_Recht_M_Dx_B150": _VasteBreedte = 150; UI.UitsparingData.Z1.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z1.Materiaal = "Staal"; RANGE.UitsparingDataBreedteZ1.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ1.Maximum = _VasteBreedte; case "SY2_Recht_M_Dx_B250": _VasteBreedte = 250; UI.UitsparingData.Z1.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z1.Materiaal = "Staal"; RANGE.UitsparingDataBreedteZ1.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ1.Maximum = _VasteBreedte; case "SY2_Recht_M_Dx_BM": if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.Z1.BreedteUitsparing@default = 0; end if; UI.UitsparingData.Z1.Materiaal = "Hout"; RANGE.UitsparingDataBreedteZ1.Minimum = 125; RANGE.UitsparingDataBreedteZ1.Maximum = 999; case "SY3_Recht_M_D240_B160": _VasteBreedte = 160; UI.UitsparingData.Z1.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z1.Materiaal = "Staal"; UI.UitsparingData.Z1.Diepte = 240; RANGE.UitsparingDataBreedteZ1.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ1.Maximum = _VasteBreedte; case "SY3_Recht_M_D240_B300": _VasteBreedte = 300; UI.UitsparingData.Z1.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z1.Materiaal = "Staal"; UI.UitsparingData.Z1.Diepte = 240; RANGE.UitsparingDataBreedteZ1.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ1.Maximum = _VasteBreedte; end switch; UI.UitsparingData.Z1.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option(UI.UitsparingData.Z1.Materiaal)@label; UitsparingData Z1 invullen ;ui.uitsparingdata.z1.diepte@value;ui.uitsparingdata.z1.hoogte@value;ui.uitsparingdata.z1.vorm@value;ui.uitsparingdata.z1.materiaaldisplay@value; true local string _CodeM = UI.UitsparingData.M.CodeRugdeel; local boolean _DefaultBreedteOpNulZetten = (Config.InputMode == "New") and (BEHAVIOR.IsEconWeb); //RANGE.UitsparingDataBreedteM.Minimum = 0; //RANGE.UitsparingDataBreedteM.Maximum = 0; switch _CodeM case "SY2_M_BM": // enige mogelijkheid bij Sifonlade if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.M.BreedteRugdeel@default = 0; end if; UI.UitsparingData.M.Hoogte = "M"; UI.UitsparingData.M.Materiaal = "Hout"; RANGE.UitsparingDataBreedteM.Minimum = 120; RANGE.UitsparingDataBreedteM.Maximum = 999; // Kan ev correcter bepaald worden, maar biedt te weinig meerwaarde t.o.v. hoeveelheid werk om dit correct te doen :-P end switch; UI.UitsparingData.M.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option(UI.UitsparingData.M.Materiaal)@label; UitsparingData M invullen ;ui.uitsparingdata.m.materiaaldisplay@value; true local string _CodeZ2 = UI.UitsparingData.Z2.CodeUitsparing; local double _VasteBreedte = 0; local boolean _DefaultBreedteOpNulZetten = (Config.InputMode == "New") and (BEHAVIOR.IsEconWeb); //RANGE.UitsparingDataBreedteZ2.Minimum = 0; //RANGE.UitsparingDataBreedteZ2.Maximum = 0; UI.UitsparingData.Z2.Diepte = 0; UI.UitsparingData.Z2.Hoogte = "M"; UI.UitsparingData.Z2.Vorm = "Recht"; switch _CodeZ2 case "SP2_Recht_M_Dx_BM": // enige (fictieve) mogelijkheid bij Spoelbaklade if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.Z2.BreedteUitsparing@default = 0; end if; UI.UitsparingData.Z2.Materiaal = "Hout"; RANGE.UitsparingDataBreedteZ2.Minimum = 125; RANGE.UitsparingDataBreedteZ2.Maximum = 999; case "SY2_Recht_M_Dx_B150": _VasteBreedte = 150; UI.UitsparingData.Z2.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z2.Materiaal = "Staal"; RANGE.UitsparingDataBreedteZ2.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ2.Maximum = _VasteBreedte; case "SY2_Recht_M_Dx_B250": _VasteBreedte = 250; UI.UitsparingData.Z2.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z2.Materiaal = "Staal"; RANGE.UitsparingDataBreedteZ2.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ2.Maximum = _VasteBreedte; case "SY2_Recht_M_Dx_BM": if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.Z2.BreedteUitsparing@default = 0; end if; UI.UitsparingData.Z2.Materiaal = "Hout"; RANGE.UitsparingDataBreedteZ2.Minimum = 125; RANGE.UitsparingDataBreedteZ2.Maximum = 999; case "SY3_Recht_M_D240_B160": _VasteBreedte = 160; UI.UitsparingData.Z2.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z2.Materiaal = "Staal"; UI.UitsparingData.Z2.Diepte = 240; RANGE.UitsparingDataBreedteZ2.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ2.Maximum = _VasteBreedte; case "SY3_Recht_M_D240_B300": _VasteBreedte = 300; UI.UitsparingData.Z2.BreedteUitsparing = _VasteBreedte; UI.UitsparingData.Z2.Materiaal = "Staal"; UI.UitsparingData.Z2.Diepte = 240; RANGE.UitsparingDataBreedteZ2.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteZ2.Maximum = _VasteBreedte; end switch; UI.UitsparingData.Z2.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option(UI.UitsparingData.Z2.Materiaal)@label; UitsparingData Z2 invullen ;ui.uitsparingdata.z2.diepte@value;ui.uitsparingdata.z2.hoogte@value;ui.uitsparingdata.z2.vorm@value;ui.uitsparingdata.z2.materiaaldisplay@value; true local string _CodeY = UI.UitsparingData.Y.CodeRugdeel; local double _VasteBreedte = 0; local boolean _DefaultBreedteOpNulZetten = (Config.InputMode == "New") and (BEHAVIOR.IsEconWeb); //RANGE.UitsparingDataBreedteY.Minimum = 0; //RANGE.UitsparingDataBreedteY.Maximum = 0; switch _CodeY case "SY2_M_BM": // enige mogelijkheid bij Sifonlade if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.Y.BreedteRugdeel@default = 0; end if; UI.UitsparingData.Y.Hoogte = "M"; UI.UitsparingData.Y.Materiaal = "Hout"; RANGE.UitsparingDataBreedteY.Minimum = 120; RANGE.UitsparingDataBreedteY.Maximum = 999; // Kan ev correcter bepaald worden, maar biedt te weinig meerwaarde t.o.v. hoeveelheid werk om dit correct te doen :-P case "SP2_M_B147": _VasteBreedte = 147; UI.UitsparingData.Y.BreedteRugdeel = _VasteBreedte; UI.UitsparingData.Y.Hoogte = "M"; UI.UitsparingData.Y.Materiaal = "Hout"; RANGE.UitsparingDataBreedteY.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteY.Maximum = _VasteBreedte; case "SP2_M_B197": _VasteBreedte = 197; UI.UitsparingData.Y.BreedteRugdeel = _VasteBreedte; UI.UitsparingData.Y.Hoogte = "M"; UI.UitsparingData.Y.Materiaal = "Hout"; RANGE.UitsparingDataBreedteY.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteY.Maximum = _VasteBreedte; case "SP2_DM_B143": // Smal-SA is uitgefaseerd. _VasteBreedte = 143; UI.UitsparingData.Y.BreedteRugdeel = _VasteBreedte; UI.UitsparingData.Y.Hoogte = "DM"; UI.UitsparingData.Y.Materiaal = "Staal"; RANGE.UitsparingDataBreedteY.Minimum = _VasteBreedte; RANGE.UitsparingDataBreedteY.Maximum = _VasteBreedte; case "SP2_M_BM": if (_DefaultBreedteOpNulZetten) then UI.UitsparingData.Y.BreedteRugdeel@default = 0; end if; UI.UitsparingData.Y.Hoogte = "M"; UI.UitsparingData.Y.Materiaal = "Hout"; RANGE.UitsparingDataBreedteY.Minimum = 120; RANGE.UitsparingDataBreedteY.Maximum = 999; end switch; UI.UitsparingData.Y.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option(UI.UitsparingData.Y.Materiaal)@label; UitsparingData Y invullen ;ui.uitsparingdata.y.materiaaldisplay@value; (RANGE.UitsparingDataBreedteX.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteX.Maximum == RANGE.UitsparingDataBreedteX.Minimum); UI.UitsparingData.X.BreedteRugdeel@enabled = not(_IsVasteBreedte); Breedte X wordt read-only indien Range.Max = Range.Min ;ui.uitsparingdata.x.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteM.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteM.Maximum == RANGE.UitsparingDataBreedteM.Minimum); UI.UitsparingData.M.BreedteRugdeel@enabled = not(_IsVasteBreedte); Breedte M wordt read-only indien Range.Max = Range.Min2 ;ui.uitsparingdata.m.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteY.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteY.Maximum == RANGE.UitsparingDataBreedteY.Minimum); UI.UitsparingData.Y.BreedteRugdeel@enabled = not(_IsVasteBreedte); Breedte Y wordt read-only indien Range.Max = Range.Min3 ;ui.uitsparingdata.y.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteZ1.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteZ1.Maximum == RANGE.UitsparingDataBreedteZ1.Minimum); UI.UitsparingData.Z1.BreedteUitsparing@enabled = not(_IsVasteBreedte); Breedte Z1 wordt read-only indien Range.Max = Range.Min4 ;ui.uitsparingdata.z1.breedteuitsparing@enabled; (RANGE.UitsparingDataBreedteZ2.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteZ2.Maximum == RANGE.UitsparingDataBreedteZ2.Minimum); UI.UitsparingData.Z2.BreedteUitsparing@enabled = not(_IsVasteBreedte); Breedte Z2 wordt read-only indien Range.Max = Range.Min5 ;ui.uitsparingdata.z2.breedteuitsparing@enabled; (UI.UitsparingData@visible) and (UI.UitsparingData.UitsparingAantal == "Enkel") local double _SuggestieX = 0; local double _SuggestieY = 0; local double _SuggestieZ1 = 0; local double _BreedteX = UI.UitsparingData.X.BreedteRugdeel; local double _BreedteY = UI.UitsparingData.Y.BreedteRugdeel; local double _BreedteZ1 = UI.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.UitsparingData.X.GesuggereerdeWaarde = _SuggestieX; UI.UitsparingData.Y.GesuggereerdeWaarde = _SuggestieY; UI.UitsparingData.Z1.GesuggereerdeWaarde = _SuggestieZ1; UI.UitsparingData.M.GesuggereerdeWaarde = 0; UI.UitsparingData.Z2.GesuggereerdeWaarde = 0; Bereken GesuggereerdeWaarden Enkele uitsparing ;ui.uitsparingdata.x.gesuggereerdewaarde@value;ui.uitsparingdata.y.gesuggereerdewaarde@value;ui.uitsparingdata.z1.gesuggereerdewaarde@value;ui.uitsparingdata.m.gesuggereerdewaarde@value;ui.uitsparingdata.z2.gesuggereerdewaarde@value; (UI.UitsparingData@visible) and (UI.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.UitsparingData.X.BreedteRugdeel; local double _BreedteM = UI.UitsparingData.M.BreedteRugdeel; local double _BreedteY = UI.UitsparingData.Y.BreedteRugdeel; local double _BreedteZ1 = UI.UitsparingData.Z1.BreedteUitsparing; local double _BreedteZ2 = UI.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); 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 if (_BreedteX == 0) then _SuggestieX = _BreedteY; _SuggestieM = (_BreedteSaldo - _SuggestieX); end if; if (_BreedteY == 0) then _SuggestieY = _BreedteX; _SuggestieM = (_BreedteSaldo - _SuggestieY); end if; _SuggestieM = (_BreedteSaldo - _SuggestieX - _SuggestieY); end if; end if; else // Combinatie van RugBreedtes en UitsparingBreedtes niet ingevuld : TO DO _SuggestieZ1 = 0; // dummy assignment, anders eCon compiler warning :-P end if; end if; end if; UI.UitsparingData.X.GesuggereerdeWaarde = _SuggestieX; UI.UitsparingData.M.GesuggereerdeWaarde = _SuggestieM; UI.UitsparingData.Y.GesuggereerdeWaarde = _SuggestieY; UI.UitsparingData.Z1.GesuggereerdeWaarde = _SuggestieZ1; UI.UitsparingData.Z2.GesuggereerdeWaarde = _SuggestieZ2; Bereken GesuggereerdeWaarden Dubbele uitsparing ;ui.uitsparingdata.x.gesuggereerdewaarde@value;ui.uitsparingdata.m.gesuggereerdewaarde@value;ui.uitsparingdata.y.gesuggereerdewaarde@value;ui.uitsparingdata.z1.gesuggereerdewaarde@value;ui.uitsparingdata.z2.gesuggereerdewaarde@value; true local double _Breedte = 0; local boolean _HeeftDubbeleUitsparing = (UI.UitsparingData.UitsparingAantal == "Dubbel"); _Breedte = _Breedte + UI.UitsparingData.X.BreedteRugdeel + UI.UitsparingData.Z1.BreedteUitsparing + UI.UitsparingData.Y.BreedteRugdeel; if (_HeeftDubbeleUitsparing) then _Breedte = _Breedte + UI.UitsparingData.M.BreedteRugdeel + UI.UitsparingData.Z2.BreedteUitsparing; end if; UI.UitsparingData.UitsparingData_TotaleBreedte = _Breedte; Bereken Som van de UitsparingBreedtes ;ui.uitsparingdata.uitsparingdata_totalebreedte@value; true local double _VerwachteBreedte = UI.InterneBreedte; local string _InputValidation = ""; UI.UitsparingData.UitsparingData_VerwachteBreedte = _VerwachteBreedte; // 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.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.UitsparingData.UitsparingData_TotaleBreedte@inputvalidation = _InputValidation; Instellen VerwachteBreedte bij Uitsparingen ;ui.uitsparingdata.uitsparingdata_verwachtebreedte@value;ui.uitsparingdata.uitsparingdata_totalebreedte@rangeset; true // indien HeeftUitsparing local boolean _IsTotBreedteOK = (UI.UitsparingData.UitsparingData_TotaleBreedte == UI.UitsparingData.UitsparingData_VerwachteBreedte); local string _CssClassname = "colorBlack"; if not (_IsTotBreedteOK) then _CssClassname = "colorRed"; end if; /* UI.UitsparingData.UitsparingData_TotaleBreedte@styleClass = _CssClassname; UI.UitsparingData.UitsparingData_VerwachteBreedte@styleClass = _CssClassname; */ UI.UitsparingData.UitsparingData_VerwachteBreedte@visible = not (_IsTotBreedteOK); Visible en formatting - VerwachteBreedte ;ui.uitsparingdata.uitsparingdata_verwachtebreedte@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); //Maatwerkviewer is nog niet beschikbaar in TBX zolang BOMBOL niet geport is naar .NET UI.MWViewer@visible = false; //_BEHAVIOR_IsPanelMaatwerkViewerZichtbaar; UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible = false; //_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.Frontbevestiging"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Frontondersteuningtype"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Frontstabilisatoraantal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Geleidertechnologie"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Greepenmeenemer"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Hangmapboringaantal"; _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.Inbouwhoogte"; _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.Ladedesign"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladediepte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladekleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matkleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matmateriaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkap"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_bodemsteun"; _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_inschuifelement"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_opvullijst"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_reling"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotiononderdelen"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionsynchronisatiestang"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionsynchronisatietoebehoren"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_antislipmat"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Opvullijstkleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Plaatmateriaal"; _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.Rughouderkleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Rugkleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Rugwandmateriaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Toepassing"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Uitsparingaantal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _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.Verpakkingtype"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijkanthoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandhoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandverhogingmateriaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandverhogingrelingkleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandverhogingtype"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandverhoginginschuifelementkleur"; 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"); _Filename = "\\\\WV-W10\\D$\\Temp\\maatwerkviewer_MVX_001.xls"; end if; /* */ // ================================ // Fallback Default values // ================================ if (_PersonalityId == "") then _PersonalityId = "1"; end if; if (_BerekenKlantNummer == "") then _BerekenKlantNummer = "6819"; end if; if (_BerekenAantal == "") or (_BerekenAantal == "0") then _BerekenAantal = "1"; end if; // ==================================== // Kenmerken KeyValuePairs opbouwen // ==================================== index i of CONFIG.WebService.PropertyNamen _PropertyNaam = CONFIG.WebService.PropertyNamen(i); 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 (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.CorpusBreedte@label = switch (UI.AfmetingenLayout.IsBinnenbreedte) case true: TRL.CorpusBinnenbreedte@label else TRL.CorpusBuitenbreedte@label end switch; end if; Label CorpusBreedte ; true // Deze rule wordt getriggered wanneer één van de volgende properties wijzigt (DATA of UI) local string _Toepassing = DATA.Kenmerken.Toepassing; local boolean _IsBinnenlade = DATA.Kenmerken.IsBinnenlade; local string _ZijwandVerhogingType = DATA.Kenmerken.ZijwandVerhogingType; local string _InbouwHoogte = DATA.Kenmerken.InbouwHoogte; local string _UitsparingAantal = DATA.Kenmerken.UitsparingData.UitsparingAantal; UI.StateAfbeeldingDataBepaald = false; StateAfbeeldingDataBepaald resetten ;ui.stateafbeeldingdatabepaald@value; UI.StateAfbeeldingDataBepaald == false UI.StateAfbeeldingDataBepaald = true; // Constants local long FACTOR_TOEPASSING = 64; local long FACTOR_INBOUWHOOGTE = 32; local long FACTOR_BINNENLADE = 16; local long FACTOR_UITSPARINGAANTAL = 8; local long FACTOR_ZIJWANDVERHOGINGTYPE = 4; local string _Toepassing = DATA.Kenmerken.Toepassing; local boolean _IsBinnenlade = DATA.Kenmerken.IsBinnenlade; local string _ZijwandVerhogingType = DATA.Kenmerken.ZijwandVerhogingType; local string _InbouwHoogte = DATA.Kenmerken.InbouwHoogte; local string _UitsparingAantal = DATA.Kenmerken.UitsparingData.UitsparingAantal; local boolean _HeeftUitsparingData = (_Toepassing in {"SP2"; "SY2"; "SY3"}); // Initialisatie if _Toepassing == "" then _Toepassing = "L"; end if; if _ZijwandVerhogingType == "" then _ZijwandVerhogingType = "Zonder"; end if; if (_UitsparingAantal == "") and (_HeeftUitsparingData) then _UitsparingAantal = "Enkel"; end if; if _InbouwHoogte == "" then _InbouwHoogte = "M"; end if; // Scores berekenen local long _Score = 0; local long _ScoreVoorAfbeeldingData = 0; local long _ScoreVoorInbouwHoogte = 0; local long _BesteScoreAfbeeldingData = 0; local long _BesteScoreInbouwHoogteN = 0; local long _BesteScoreInbouwHoogteM = 0; local long _BesteScoreInbouwHoogteK = 0; local long _BesteScoreInbouwHoogteB = 0; local long _BesteScoreInbouwHoogteCM = 0; local long _BesteScoreInbouwHoogteDM = 0; local long _BesteScoreInbouwHoogteDK = 0; local boolean _AfbeeldingIsEenMatch = true; local boolean _UpdateImageInbouwHoogte = false; local boolean _IsToepassingOK = false; local string _iInbouwHoogte = ""; local string OptionToSelect = UI.AfbeeldingData; // Loop over alle afbeeldingen for i = 1 to len(UI.AfbeeldingData@options) UI.AfbeeldingData = UI.AfbeeldingData@option(i)@id; _Score = 0; _AfbeeldingIsEenMatch = true; _IsToepassingOK = (UI.AfbeeldingData.Toepassing == _Toepassing); if (_IsToepassingOK) then _Score = _Score + FACTOR_TOEPASSING; else _AfbeeldingIsEenMatch = false; end if; if (UI.AfbeeldingData.IsBinnenlade == _IsBinnenlade) then _Score = _Score + FACTOR_BINNENLADE; else _AfbeeldingIsEenMatch = false; end if; if _HeeftUitsparingData and _IsToepassingOK then if (UI.AfbeeldingData.UitsparingAantal == _UitsparingAantal) then _Score = _Score + FACTOR_UITSPARINGAANTAL; else _AfbeeldingIsEenMatch = false; end if; end if; if (UI.AfbeeldingData.ZijwandVerhogingType == _ZijwandVerhogingType) then _Score = _Score + FACTOR_ZIJWANDVERHOGINGTYPE; else _AfbeeldingIsEenMatch = false; end if; _ScoreVoorInbouwHoogte = _Score; if (UI.AfbeeldingData.InbouwHoogte == _InbouwHoogte) then _Score = _Score + FACTOR_INBOUWHOOGTE; else _AfbeeldingIsEenMatch = false; end if; _ScoreVoorAfbeeldingData = _Score; // Bepalen of InbouwHoogte image mag aangepast worden _iInbouwHoogte = UI.AfbeeldingData.InbouwHoogte; _UpdateImageInbouwHoogte = false; if (_iInbouwHoogte == "M") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteM) then _BesteScoreInbouwHoogteM = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if (_iInbouwHoogte == "N") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteN) then _BesteScoreInbouwHoogteN = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if (_iInbouwHoogte == "K") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteK) then _BesteScoreInbouwHoogteK = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if (_iInbouwHoogte == "B") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteB) then _BesteScoreInbouwHoogteB = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if (_iInbouwHoogte == "CM") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteCM) then _BesteScoreInbouwHoogteCM = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if (_iInbouwHoogte == "DM") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteDM) then _BesteScoreInbouwHoogteDM = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if (_iInbouwHoogte == "DK") and (_ScoreVoorInbouwHoogte > _BesteScoreInbouwHoogteDK) then _BesteScoreInbouwHoogteDK = _ScoreVoorInbouwHoogte; _UpdateImageInbouwHoogte = true; end if; if _UpdateImageInbouwHoogte then UI.InbouwHoogte@option(_iInbouwHoogte)@label = UI.AfbeeldingData@option(i)@label; end if; // Bepalen of AfbeeldingData image mag aangepast worden if (_ScoreVoorAfbeeldingData > _BesteScoreAfbeeldingData) then _BesteScoreAfbeeldingData = _ScoreVoorAfbeeldingData; OptionToSelect = UI.AfbeeldingData; end if; end for; UI.AfbeeldingData = OptionToSelect; Scores voor AfbeeldingData ;ui.stateafbeeldingdatabepaald@value;ui.afbeeldingdata@value; true DATA.BerekendeWaarden.LadeCode = UI.AfbeeldingData.LadeCode; local string _AfbeeldingCode = "" if UI.AfbeeldingData.Value <> "" then _AfbeeldingCode = "tbx_" + UI.AfbeeldingData.Value; end if; DATA.BerekendeWaarden.AfbeeldingCode = _AfbeeldingCode ; /* Rule: AfbeeldingData Image kopieren naar Layout ===== UI.InbouwHoogteLayout.Images = "./images/Vanhoecke/tbx/AfbeeldingCode/tbx_" + UI.AfbeeldingData.Value + ".jpg"; */ Values naar LadeCode en AfbeeldingCode ;data.berekendewaarden.ladecode@value;data.berekendewaarden.afbeeldingcode@value; (DATA.Kenmerken.Toepassing in {"SY2"; "SY3"; "SP2"} ) if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then UI.UitsparingData.Z1@label = TRL.Z@label; else UI.UitsparingData.Z1@label = TRL.Z1@label; end if; Label UitsparingData Z1 ; true UI.CorpusWanddikte@mandatory = not(UI.AfmetingenLayout.IsBinnenbreedte); UI.CorpusWanddikte@visible = not(UI.AfmetingenLayout.IsBinnenbreedte); CorpusWanddikte ;ui.corpuswanddikte@mandatory;ui.corpuswanddikte@visible; false // true UI.RugHoogte@mandatory = UI.HeeftAfwijkendeRugHoogte; // Deze rule is DEPRECATED !!! UI.RugHoogte@visible = UI.HeeftAfwijkendeRugHoogte; RugHoogte ;ui.rughoogte@mandatory;ui.rughoogte@visible; true UI.FrontBevestiging@mandatory = not(UI.IsBinnenlade); UI.FrontBevestiging@visible = not(UI.IsBinnenlade); FrontBevestiging ;ui.frontbevestiging@mandatory;ui.frontbevestiging@visible; true local boolean _HeeftFrontStabilisator = (UI.FrontOndersteuningType == "FrontStabilisator"); UI.FrontStabilisatorAantal@mandatory = _HeeftFrontStabilisator; UI.FrontStabilisatorAantal@visible = _HeeftFrontStabilisator; FrontStabilisatorAantal ;ui.frontstabilisatoraantal@mandatory;ui.frontstabilisatoraantal@visible; true UI.GreepEnMeenemer@mandatory = UI.IsBinnenlade; UI.GreepEnMeenemer@visible = UI.IsBinnenlade; GreepEnMeenemer ;ui.greepenmeenemer@mandatory;ui.greepenmeenemer@visible; true local boolean _HeeftOpvullijst = (DATA.Kenmerken.HeeftOpvullijstLinks or DATA.Kenmerken.HeeftOpvullijstRechts); UI.OpvullijstKleur@mandatory = _HeeftOpvullijst; UI.OpvullijstKleur@visible = _HeeftOpvullijst; UI.OpvullijstDikte@visible = _HeeftOpvullijst; /* // Code is verplaatst naar Behaviors instellen - "Gedrag niet meeleveren zichtbaarheid" index i of UI.NietMeeleveren if (UI.NietMeeleveren(i).Id == "Opvullijst") then UI.NietMeeleveren(i)@visible = (_HeeftOpvullijst and Not(CONFIG.Settings.NietMeeleverenVerbergen)); end if; end index; */ Opvullijst ;ui.opvullijstkleur@mandatory;ui.opvullijstkleur@visible;ui.opvullijstdikte@visible; true local boolean _HeeftInschuifElement = (UI.ZijwandVerhogingType.Value == "InschuifElement"); local boolean _HeeftKleurNodig = (UI.ZijwandVerhogingMateriaal in {"Glas"; "Alu"}); /* UI.ZijwandVerhogingInschuifElementKleur@mandatory = _HeeftInschuifElement and _HeeftKleurNodig; UI.ZijwandVerhogingInschuifElementKleur@visible = _HeeftInschuifElement and _HeeftKleurNodig; */ UI.ZijwandVerhogingInschuifElementKleur@mandatory = _HeeftInschuifElement; UI.ZijwandVerhogingInschuifElementKleur@visible = _HeeftInschuifElement; ZijwandVerhogingInschuifElementKleur ;ui.zijwandverhoginginschuifelementkleur@mandatory;ui.zijwandverhoginginschuifelementkleur@visible; true local boolean _HeeftInschuifElement = (UI.ZijwandVerhogingType.Value == "InschuifElement"); UI.ZijwandVerhogingMateriaal@mandatory = _HeeftInschuifElement; UI.ZijwandVerhogingMateriaal@visible = _HeeftInschuifElement; ZijwandVerhogingMateriaal ;ui.zijwandverhogingmateriaal@mandatory;ui.zijwandverhogingmateriaal@visible; false //true //is false gezet door wimv op 19/04/2017, waarom?? //uit integratietests blijkt dat sommige configuraties dit ten onrechte invullen local boolean _HeeftReling = (UI.ZijwandVerhogingType.Value == "Reling"); UI.ZijwandVerhogingRelingKleur@mandatory = _HeeftReling; UI.ZijwandVerhogingRelingKleur@visible = _HeeftReling; ZijwandVerhogingRelingKleur ;ui.zijwandverhogingrelingkleur@mandatory;ui.zijwandverhogingrelingkleur@visible; true local boolean _HeeftMatAntislipKleur = (UI.HeeftMat and (UI.MatMateriaal.Value == "AS")); UI.MatAntislipKleur@mandatory = _HeeftMatAntislipKleur; UI.MatAntislipKleur@visible = _HeeftMatAntislipKleur; MatAntislipKleur ;ui.matantislipkleur@mandatory;ui.matantislipkleur@visible; true local boolean _HeeftMatAntislipFiberKleur = (UI.HeeftMat and (UI.MatMateriaal.Value == "AF")); UI.MatAntislipFiberKleur@mandatory = _HeeftMatAntislipFiberKleur; UI.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.matantislipfiberkleur@mandatory;ui.matantislipfiberkleur@visible;ui.bulkkenmerken.matantislipfiberkleur@mandatory;ui.bulkkenmerken.matantislipfiberkleur@visible; true local boolean _HeeftMatAntislipFlockKleur = (UI.HeeftMat and (UI.MatMateriaal.Value == "AZ")); UI.MatAntislipFlockKleur@mandatory = _HeeftMatAntislipFlockKleur; UI.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.matantislipflockkleur@mandatory;ui.matantislipflockkleur@visible;ui.bulkkenmerken.matantislipflockkleur@mandatory;ui.bulkkenmerken.matantislipflockkleur@visible; true UI.MatMateriaal@mandatory = UI.HeeftMat; UI.MatMateriaal@visible = UI.HeeftMat; UI.BulkKenmerken.MatMateriaal@mandatory = (UI.BulkKenmerken.HeeftMat == "True"); UI.BulkKenmerken.MatMateriaal@visible = (UI.BulkKenmerken.HeeftMat == "True"); MatMateriaal ;ui.matmateriaal@mandatory;ui.matmateriaal@visible;ui.bulkkenmerken.matmateriaal@mandatory;ui.bulkkenmerken.matmateriaal@visible; true local boolean _HeeftMatVinylFiberglassKleur = (UI.HeeftMat and (UI.MatMateriaal.Value == "CF")); UI.MatVinylFiberglassKleur@mandatory = _HeeftMatVinylFiberglassKleur; UI.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.matvinylfiberglasskleur@mandatory;ui.matvinylfiberglasskleur@visible;ui.bulkkenmerken.matvinylfiberglasskleur@mandatory;ui.bulkkenmerken.matvinylfiberglasskleur@visible; true local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); local boolean _HeeftUitsparingData = not(UI.Toepassing in {"L"; "B"}); UI.RugwandMateriaal@mandatory = _IsIntern and not(_HeeftUitsparingData); UI.RugwandMateriaal@visible = _IsIntern and not(_HeeftUitsparingData); RugwandMateriaal ;ui.rugwandmateriaal@mandatory;ui.rugwandmateriaal@visible; true UI.FrontBevestiging@visible = UI.FrontBevestiging@visible and not(CONFIG.Settings.FrontBevestigingVerbergen); UI.FrontOndersteuningType@visible = not(CONFIG.Settings.FrontOndersteuningTypeVerbergen); UI.VerpakkingType@visible = not(CONFIG.Settings.VerpakkingTypeVerbergen); UI.BulkKenmerken.FrontBevestiging@visible = UI.FrontBevestiging@visible and not(CONFIG.Settings.FrontBevestigingVerbergen); UI.BulkKenmerken.FrontOndersteuningType@visible = not(CONFIG.Settings.FrontOndersteuningTypeVerbergen); UI.BulkKenmerken.VerpakkingType@visible = not(CONFIG.Settings.VerpakkingTypeVerbergen); /* // Code is verplaatst naar Behaviors instellen - "Gedrag niet meeleveren zichtbaarheid" index i of UI.NietMeeleveren UI.NietMeeleveren(i)@visible = (UI.NietMeeleveren(i)@visible and not(CONFIG.Settings.NietMeeleverenVerbergen)); end index; */ Visible properties ;ui.frontbevestiging@visible;ui.frontondersteuningtype@visible;ui.verpakkingtype@visible;ui.bulkkenmerken.frontbevestiging@visible;ui.bulkkenmerken.frontondersteuningtype@visible;ui.bulkkenmerken.verpakkingtype@visible; true // Deze rule mag gewist worden. // Code is verplaatst naar Gedrag Verpakkingen instellen (bij Behaviors instellen). Visible options - VerpakkingType ; true UI.MatMateriaal@option("CV")@visible = false; Visible options - MatMateriaal (tijdelijk verborgen UST3693) ;ui.matmateriaal@options; true UI.InbouwHoogte@option("N")@visible = CONFIG.Settings.InbouwHoogteNToegelaten; UI.InbouwHoogte@option("K")@visible = CONFIG.Settings.InbouwHoogteKToegelaten; UI.InbouwHoogte@option("DK")@visible = CONFIG.Settings.InbouwHoogteKToegelaten; Visible options - Inbouwhoogte ;ui.inbouwhoogte@options; true local string _Model = GetModel(); if not(Data.Kenmerken.InbouwHoogte == "") then UI.StatusBalk.Code = Data.Kenmerken.InbouwHoogte; if (Data.Kenmerken.IsBinnenlade) then UI.StatusBalk.Code = Data.Kenmerken.InbouwHoogte+ "/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.HeeftMat) then local string _MatMateriaalOptionLabel = "MatMateriaal_" + DATA.Kenmerken.MatMateriaal; local string _MatKleurOptionLabel = switch DATA.Kenmerken.MatMateriaal case "CF": "MatVinylFiberglassKleur_" + UI.MatVinylFiberglassKleur.Value case "AF": "MatAntislipFiberKleur_" + UI.MatAntislipFiberKleur.Value case "AZ": "MatAntislipFlockKleur_" + UI.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; STATE.ValidationNeeded or (UI.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);",";"."); local string _multiplication = "1"; local string _maxdecimals = "0"; if (BEHAVIOR.IsEconAx) then _multiplication = Replace("0,1";",";"."); _maxdecimals = "1"; end if; UI.CorpusBreedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:" + _multiplication + ";maxdecimals:" + _maxdecimals; Validation CorpusBreedte ;ui.corpusbreedte@rangeset; UI.CorpusWanddikte@visible and (STATE.ValidationNeeded or (UI.CorpusWanddikte <> 0)) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local string _Minimum = "1"; local string _Maximum = "100"; local string _multiplication = "1"; local string _maxdecimals = "0"; if (BEHAVIOR.IsEconAx) then _Minimum = "0"; _multiplication = Replace("0,1";",";"."); _maxdecimals = "1"; end if; UI.CorpusWanddikte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:" + _multiplication + ";maxdecimals:" + _maxdecimals; Validation CorpusWanddikte on ;ui.corpuswanddikte@rangeset; not(UI.CorpusWanddikte@visible) UI.CorpusWanddikte@inputvalidation = ""; Validation CorpusWanddikte off ;ui.corpuswanddikte@rangeset; (UI.UitsparingData@visible and UI.UitsparingData.X@visible) and (STATE.ValidationNeeded or (UI.UitsparingData.X.BreedteRugdeel <> 0)) and (Config.InputMode <> "CreateConfig") local double _Minimum = RANGE.UitsparingDataBreedteX.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteX.Maximum; UI.UitsparingData.X.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteX on ;ui.uitsparingdata.x.breedterugdeel@rangeset; not(UI.UitsparingData@visible) or not(UI.UitsparingData.X@visible) UI.UitsparingData.X.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteX off ;ui.uitsparingdata.x.breedterugdeel@rangeset; (UI.UitsparingData@visible and UI.UitsparingData.M@visible) and (STATE.ValidationNeeded or (UI.UitsparingData.M.BreedteRugdeel <> 0)) and (Config.InputMode <> "CreateConfig") local double _Minimum = RANGE.UitsparingDataBreedteM.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteM.Maximum; UI.UitsparingData.M.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteM on ;ui.uitsparingdata.m.breedterugdeel@rangeset; not(UI.UitsparingData@visible) or not(UI.UitsparingData.M@visible) UI.UitsparingData.M.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteM off ;ui.uitsparingdata.m.breedterugdeel@rangeset; (UI.UitsparingData@visible and UI.UitsparingData.Y@visible) and (STATE.ValidationNeeded or (UI.UitsparingData.Y.BreedteRugdeel <> 0)) and (Config.InputMode <> "CreateConfig") local double _Minimum = RANGE.UitsparingDataBreedteY.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteY.Maximum; UI.UitsparingData.Y.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteY on ;ui.uitsparingdata.y.breedterugdeel@rangeset; not(UI.UitsparingData@visible) or not(UI.UitsparingData.Y@visible) UI.UitsparingData.Y.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteY off ;ui.uitsparingdata.y.breedterugdeel@rangeset; (UI.UitsparingData@visible and UI.UitsparingData.Z1@visible) and (STATE.ValidationNeeded or (UI.UitsparingData.Z1.BreedteUitsparing <> 0)) and (Config.InputMode <> "CreateConfig") local double _Minimum = RANGE.UitsparingDataBreedteZ1.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteZ1.Maximum; UI.UitsparingData.Z1.BreedteUitsparing@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteZ1 on ;ui.uitsparingdata.z1.breedteuitsparing@rangeset; not(UI.UitsparingData@visible) or not(UI.UitsparingData.Z1@visible) UI.UitsparingData.Z1.BreedteUitsparing@inputvalidation = ""; Validation UitsparingData BreedteZ1 off ;ui.uitsparingdata.z1.breedteuitsparing@rangeset; (UI.UitsparingData@visible and UI.UitsparingData.Z2@visible) and (STATE.ValidationNeeded or (UI.UitsparingData.Z2.BreedteUitsparing <> 0)) and (Config.InputMode <> "CreateConfig") local double _Minimum = RANGE.UitsparingDataBreedteZ2.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteZ2.Maximum; UI.UitsparingData.Z2.BreedteUitsparing@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteZ2 on ;ui.uitsparingdata.z2.breedteuitsparing@rangeset; not(UI.UitsparingData@visible) or not(UI.UitsparingData.Z2@visible) UI.UitsparingData.Z2.BreedteUitsparing@inputvalidation = ""; Validation UitsparingData BreedteZ2 off ;ui.uitsparingdata.z2.breedteuitsparing@rangeset; not(STATE.Initialized) and (BEHAVIOR.OperationMode == "AxCreate") 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).FrontOndersteuningType; local string _TriggerDummy15 = DATA.BulkKenmerken(1).LadeKleur; local string _TriggerDummy16 = DATA.BulkKenmerken(1).FrontStabilisatorAantal; local string _TriggerDummy17 = DATA.BulkKenmerken(1).GreepEnMeenemer; local string _TriggerDummy18 = DATA.BulkKenmerken(1).OpvullijstKleur; local string _TriggerDummy19 = DATA.BulkKenmerken(1).VerpakkingType; local string _TriggerDummy24 = DATA.BulkKenmerken(1).HeeftMat; local string _TriggerDummy25 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Afdekkap; local string _TriggerDummy26 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider; local string _TriggerDummy27 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Bodemsteun local string _TriggerDummy28 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Reling; local string _TriggerDummy29 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging; local string _TriggerDummy30 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElement local string _TriggerDummy31 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst; local string _TriggerDummy32 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet; local string _TriggerDummy33 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; local string _TriggerDummy34 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieToebehoren; local string _TriggerDummy36 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; IsGeldig BulkConfiguratie ;ui.buttons.top.processbutton@visible; (STATE.SavedAndExit or STATE.SavedAndContinue or not(BEHAVIOR.IsInteractive) or STATE.ProcessedAndExit) DATA.Lijn.InvalidFieldSet@options = InvalidFieldSet(); DATA.Lijn.OngeldigeWaarden@length = len(DATA.Lijn.InvalidFieldSet@options); index i of DATA.Lijn.OngeldigeWaarden; DATA.Lijn.OngeldigeWaarden(i) = DATA.Lijn.InvalidFieldSet@option(i)@label; end index; DATA.Lijn.IsGeldig = (InvalidFields() == 0); IsGeldig ;data.lijn.invalidfieldset@options;data.lijn.isgeldig@value; STATE.SavedAndExit or STATE.SavedAndContinue or STATE.KlantVoorkeurenSaved or STATE.ProcessedAndExit and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Antislipmat = false; if (BEHAVIOR.IsEconAx) then DATA.Lijn.WinkelkarInfo(1) = ""; DATA.Lijn.WinkelkarInfo@length = 0; end if; if not(UI.CorpusWanddikte@visible) then DATA.Kenmerken.CorpusWanddikte = 0; UI.CorpusWanddikte = 0; end if; if (UI.IsBinnenlade) then DATA.Kenmerken.FrontBevestiging = ""; UI.FrontBevestiging = ""; end if; if not(UI.OpvullijstKleur@visible) then DATA.Kenmerken.OpvullijstKleur = ""; UI.OpvullijstKleur = ""; end if; if (not(UI.HeeftOpvullijstLinks) and not(UI.HeeftOpvullijstRechts)) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = false; end if; if not(UI.FrontOndersteuningType == "FrontStabilisator") then DATA.Kenmerken.FrontStabilisatorAantal = ""; end if; /* // Dit stuk valt weg, omdat we vanaf nu (juni 2021) de Rughoote altijd bepalen if not(UI.RugHoogte@visible) then DATA.Kenmerken.RugHoogte = ""; UI.RugHoogte = ""; end if; */ if not(UI.Toepassing in {"L"; "B"}) then // RugwandMateriaal leegmaken of RugwandMateriaalX invullen indien lade met uitsparing (wel SP2 en SY3, niet meer voor SY2 of SY want al lang uitgefaseerd). local string _RugwandMateriaal = ""; if (DATA.Kenmerken.Toepassing in {"SY3";"SP2"}) then _RugwandMateriaal = DATA.Kenmerken.UitsparingData.X.Materiaal; end if; DATA.Kenmerken.RugwandMateriaal = _RugwandMateriaal; UI.RugwandMateriaal = _RugwandMateriaal; end if; if (not(UI.HeeftMat) or ((DATA.Kenmerken.Productiewijze <> "V") and (DATA.Kenmerken.Productiewijze <> ""))) then DATA.Kenmerken.MatMateriaal = ""; DATA.Kenmerken.MatKleur = ""; UI.MatMateriaal = ""; UI.MatAntislipFiberKleur = ""; UI.MatAntislipFlockKleur = ""; UI.MatAntislipKleur = ""; UI.MatVinylFiberglassKleur = ""; end if; if not(DATA.Kenmerken.Toepassing in {"SY2";"SY3";"SP2"}) 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.UitsparingData.UitsparingAantal = ""; UI.UitsparingData.X.BreedteRugdeel = 0; UI.UitsparingData.X.Hoogte = ""; UI.UitsparingData.X.Materiaal = ""; UI.UitsparingData.Y.BreedteRugdeel = 0; UI.UitsparingData.Y.Hoogte = ""; UI.UitsparingData.Y.Materiaal = ""; UI.UitsparingData.Z1.BreedteUitsparing = 0; UI.UitsparingData.Z1.Diepte = 0; UI.UitsparingData.Z1.Hoogte = ""; UI.UitsparingData.Z1.Materiaal = ""; UI.UitsparingData.Z1.Vorm = ""; end if; local string _TriggerDummy = UI.UitsparingData.M.Hoogte; if not(UI.UitsparingData.M@visible) then DATA.Kenmerken.UitsparingData.M.Breedte = 0; DATA.Kenmerken.UitsparingData.M.Hoogte = ""; DATA.Kenmerken.UitsparingData.M.Materiaal = ""; UI.UitsparingData.M.BreedteRugdeel = 0; UI.UitsparingData.M.Hoogte = ""; UI.UitsparingData.M.Materiaal = ""; end if; local string _TriggerDummy2 = UI.UitsparingData.Z2.Hoogte; if not(UI.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.UitsparingData.Z2.BreedteUitsparing = 0; UI.UitsparingData.Z2.Diepte = 0; UI.UitsparingData.Z2.Hoogte = ""; UI.UitsparingData.Z2.Materiaal = ""; UI.UitsparingData.Z2.Vorm = ""; end if; Verborgen ingevulde properties wissen ;data.kenmerken.nietmeeleveren.nietmeeleveren_antislipmat@value;data.lijn.winkelkarinfo[1]@value;data.kenmerken.corpuswanddikte@value;ui.corpuswanddikte@value;data.kenmerken.frontbevestiging@value;ui.frontbevestiging@value;data.kenmerken.opvullijstkleur@value;ui.opvullijstkleur@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.frontstabilisatoraantal@value;data.kenmerken.rugwandmateriaal@value;ui.rugwandmateriaal@value;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value;ui.matmateriaal@value;ui.matantislipfiberkleur@value;ui.matantislipflockkleur@value;ui.matantislipkleur@value;ui.matvinylfiberglasskleur@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.uitsparingdata.uitsparingaantal@value;ui.uitsparingdata.x.breedterugdeel@value;ui.uitsparingdata.x.hoogte@value;ui.uitsparingdata.x.materiaal@value;ui.uitsparingdata.y.breedterugdeel@value;ui.uitsparingdata.y.hoogte@value;ui.uitsparingdata.y.materiaal@value;ui.uitsparingdata.z1.breedteuitsparing@value;ui.uitsparingdata.z1.diepte@value;ui.uitsparingdata.z1.hoogte@value;ui.uitsparingdata.z1.materiaal@value;ui.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;ui.uitsparingdata.m.breedterugdeel@value;ui.uitsparingdata.m.hoogte@value;ui.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.uitsparingdata.z2.breedteuitsparing@value;ui.uitsparingdata.z2.diepte@value;ui.uitsparingdata.z2.hoogte@value;ui.uitsparingdata.z2.materiaal@value;ui.uitsparingdata.z2.vorm@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 (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 ingevulde properties wissen (Bulk) ;data.bulkkenmerken[1].corpuswanddikte@value;ui.bulkkenmerken.corpuswanddikte@value;data.bulkkenmerken[1].frontbevestiging@value;ui.bulkkenmerken.frontbevestiging@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; (BEHAVIOR.OperationMode == "AxCreate") Default voor Ax Background invullen ; true if (DATA.Kenmerken.RugwandMateriaal == "") and (DATA.Kenmerken.Toepassing in {"L"; "B"}) then DATA.Kenmerken.RugwandMateriaal = "Hout"; end if; RugwandMateriaal (Ax background) ;data.kenmerken.rugwandmateriaal@value; true if (DATA.Kenmerken.DwarsverdelingAantal == "") then DATA.Kenmerken.DwarsverdelingAantal = "0"; end if; DwarsverdelingAantal (Ax background) ;data.kenmerken.dwarsverdelingaantal@value; true if (DATA.Kenmerken.FrontOndersteuningType == "") then DATA.Kenmerken.FrontOndersteuningType = "A"; end if; FrontOndersteuningType (Ax background) ;data.kenmerken.frontondersteuningtype@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 _LadeDesignOptionLabel = DATA.Kenmerken.LadeDesign@id + "_" + DATA.Kenmerken.LadeDesign@option(DATA.Kenmerken.LadeDesign)@id; local string _BodemKleurOptionLabel = DATA.Kenmerken.BodemKleur@id + "_" + DATA.Kenmerken.BodemKleur@option(DATA.Kenmerken.BodemKleur)@id; local string _ZijwandVerhogingTypeOptionLabel = DATA.Kenmerken.ZijwandVerhogingType@id + "_" + DATA.Kenmerken.ZijwandVerhogingType@option(DATA.Kenmerken.ZijwandVerhogingType)@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 _LadeDesignInfo = GetLabel(DATA.Kenmerken.LadeDesign@id; _Model; ""; _TaalCode) + ": " + GetLabel(_LadeDesignOptionLabel; _Model; ""; _TaalCode); local string _BodemKleurInfo = GetLabel(DATA.Kenmerken.BodemKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_BodemKleurOptionLabel; _Model; ""; _TaalCode); 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 = _LadeDesignInfo + ", " + _BodemKleurInfo; 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 = ""; DATA.Lijn.WinkelkarInfo(i).ZijwandVerhogingType = GetLabel(_ZijwandVerhogingTypeOptionLabel; _Model; ""; _TaalCode); 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 _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 boolean _HeeftDubbeleUitsparing = (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); 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 _InfoUitsparingData = ""; local string _InfoGeleider = ""; local string _InfoMat = ""; local string _InfoGreep = ""; local string _InfoFrontOndersteuning = ""; local string _InfoDwarsverdelingAantal = ""; local string _InfoZijstabilisering = ""; local string _InfoOpvullijst = ""; local string _InfoRug = ""; local string _InfoVerpakking = ""; local string _InfoNietMeeleveren = ""; if (UI.Toepassing in {"SP2","SY2","SY3"}) then // Afmetingen local string _UitsparingAfmetingen = ""; _UitsparingAfmetingen = _UitsparingAfmetingen + UI.UitsparingData.X.BreedteRugdeel + "/" + UI.UitsparingData.Z1.BreedteUitsparing; if _HeeftDubbeleUitsparing then _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + UI.UitsparingData.M.BreedteRugdeel + "/" + UI.UitsparingData.Z2.BreedteUitsparing; end if; _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + UI.UitsparingData.Y.BreedteRugdeel; // Label + Breedte if (UI.Toepassing == "SP2") then _InfoUitsparingData = GetLabel(TRL.InfoDiverse_SpoelbakOpening@id; _Model; ""; _TaalCode); else if _HeeftDubbeleUitsparing then _InfoUitsparingData = GetLabel(TRL.InfoDiverse_SifonOpeningen@id; _Model; ""; _TaalCode); else _InfoUitsparingData = GetLabel(TRL.InfoDiverse_SifonOpening@id; _Model; ""; _TaalCode); end if; end if; _InfoUitsparingData = _InfoUitsparingData + " " + UI.UitsparingData.Z1.BreedteUitsparing + "mm"; if _HeeftDubbeleUitsparing then _InfoUitsparingData = _InfoUitsparingData + " " + UI.UitsparingData.Z2.BreedteUitsparing + "mm"; end if; //Alles tesamen _InfoUitsparingData = _InfoUitsparingData + " (" + _UitsparingAfmetingen + ")"; end if; switch UI.GeleiderTechnologie case "TOB": _InfoGeleider = GetLabel(_GeleiderTechnologieOptionLabel; _Model; ""; _TaalCode); end switch; if (UI.HeeftMat) then local string _MatMateriaalOptionLabel = "MatMateriaal_" + DATA.Kenmerken.MatMateriaal; local string _MatKleurOptionLabel = switch DATA.Kenmerken.MatMateriaal case "CF": "MatVinylFiberglassKleur_" + UI.MatVinylFiberglassKleur.Value case "AS": "MatAntislipKleur_" + UI.MatAntislipKleur.Value case "AF": "MatAntislipFiberKleur_" + UI.MatAntislipFiberKleur.Value case "AZ": "MatAntislipFlockKleur_" + UI.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; else if (UI.Toepassing in {"SP2","SY2","SY3"}) then _InfoMat = GetLabel(DATA.Kenmerken.HeeftMat@id; _Model; ""; _TaalCode) + ": " + GetLabel(TRL.InfoDiverse_Geen@id; _Model; ""; _TaalCode); end if; end if; if (UI.GreepEnMeenemer <> "Zonder") then _InfoGreep = UI.GreepEnMeenemer; end if; if (UI.FrontOndersteuningType == "HS") then _InfoFrontOndersteuning = UI.FrontOndersteuningType@option("HS")@label; end if; if (UI.FrontOndersteuningType == "FrontStabilisator") then _InfoFrontOndersteuning = UI.FrontOndersteuningType@option("FrontStabilisator")@label + " x" + UI.FrontStabilisatorAantal; end if; if (DATA.Kenmerken.HeeftZijstabilisering) then _InfoZijstabilisering = GetLabel(DATA.Kenmerken.HeeftZijstabilisering@id; _Model; ""; _TaalCode); end if; if (UI.DwarsverdelingAantal <> "0") then _InfoDwarsverdelingAantal = GetLabel(DATA.Kenmerken.DwarsverdelingAantal@id; _Model; ""; _TaalCode) + ": " + UI.DwarsverdelingAantal; end if; if (DATA.Kenmerken.HeeftOpvullijstLinks or DATA.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 (DATA.Kenmerken.HeeftOpvullijstLinks and DATA.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = _InfoOpvullijst + _Links + "+" + _Rechts; else if (DATA.Kenmerken.HeeftOpvullijstLinks) then _InfoOpvullijst = _InfoOpvullijst + _Links; end if; if (DATA.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = _InfoOpvullijst + _Rechts; end if; end if; end if; if ((_InfoOpvullijst <> "") and (DATA.Kenmerken.OpvullijstKleur <> "")) then _InfoOpvullijst = _InfoOpvullijst + " (" + GetLabel(_OpvullijstKleurOptionLabel ; _Model; ""; _TaalCode) + ")"; end if; if (UI.HeeftAfwijkendeRugHoogte) then _InfoRug = GetLabel(TRL.InfoDiverse_Rug@id; _Model; ""; _TaalCode) + ": " + UI.RugHoogte; end if; if (UI.VerpakkingType <> "V1") then _InfoVerpakking = UI.VerpakkingType@option(UI.VerpakkingType)@label; end if; index j of UI.NietMeeleveren local string _Separator = ", "; if (_InfoNietMeeleveren == "") then _Separator = ""; end if; if (UI.NietMeeleveren(j).IsSelected) and (UI.NietMeeleveren(j)@visible) and (UI.NietMeeleveren(j).Id <> "TiponBlumotionOnderdelen") then _InfoNietMeeleveren = _InfoNietMeeleveren + _Separator + GetLabel(UI.NietMeeleveren@id + "_" + UI.NietMeeleveren(j).Id; _Model; ""; _TaalCode); end if; end index; if (_InfoNietMeeleveren <> "") then _InfoNietMeeleveren = GetLabel(UI.NietMeeleveren@id; _Model; ""; _TaalCode) + ": " + _InfoNietMeeleveren; if (Len(_InfoNietMeeleveren) > 250) then _InfoNietMeeleveren = Mid(_InfoNietMeeleveren; 1; 250) + " ..."; end if; end if; DATA.Lijn.WinkelkarInfo(i).InfoDiverse@length = 11; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[1] = _InfoUitsparingData; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[2] = _InfoGeleider; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[3] = _InfoMat; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[4] = _InfoGreep; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[5] = _InfoFrontOndersteuning; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[6] = _InfoDwarsverdelingAantal; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[7] = _InfoZijstabilisering; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[8] = _InfoOpvullijst; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[9] = _InfoRug; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[10] = _InfoVerpakking; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[11] = _InfoNietMeeleveren; end for; WinkelkarInfo - InfoDiverse ;state.winkelkarinfodiversecalculated@value; STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig") or BEHAVIOR.IsEconAX if (DATA.Kenmerken.Toepassing == "B") then ItemId = "9.318.841.1" else if (DATA.Kenmerken.VerpakkingType == "V1") then ItemId = "9.893.226.0" end if; if (DATA.Kenmerken.VerpakkingType == "VHoss") then ItemId = "9.352.870.4" end if; if (DATA.Kenmerken.VerpakkingType == "Pallet") then ItemId = "9.893.251.0" end if; if (DATA.Kenmerken.VerpakkingType == "Probox") and (CONFIG.Settings.VerpakkingProboxOnderdelen == "DefaultMet") then ItemId = "9.754.366.6" end if; if (DATA.Kenmerken.VerpakkingType == "Probox") and (CONFIG.Settings.VerpakkingProboxOnderdelen <> "DefaultMet") then ItemId = "9.754.374.6" end if; if (DATA.Kenmerken.VerpakkingType == "Procom") and (CONFIG.Settings.VerpakkingProcomOnderdelen == "DefaultMet") then ItemId = "9.093.696.2" end if; if (DATA.Kenmerken.VerpakkingType == "Procom") and (CONFIG.Settings.VerpakkingProcomOnderdelen <> "DefaultMet") then ItemId = "9.754.374.6" end if; end if; // tijdelijk totdat kenmerken binnenkomen if (ItemId == "") then ItemId = "9.893.226.0" 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 ; (CONFIG.Settings.OperationMode == "Extern") if (DATA.Kenmerken.Toepassing in {"L"; "B"}) then DATA.Kenmerken.RugwandMateriaal = "Hout"; end if; RugwandMateriaal (Extern, verborgen) ;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>" + GetLocalizedLabel("BewarenError") + ":" + "</b>"; _Feedback = _Feedback + "<ul style='list-style-type:square;'>"; for i = 1 to Len(DATA.Lijn.InvalidFieldSet@options) local string _PropertyName = DATA.Lijn.InvalidFieldSet@option(i)@id; local string _Label = CStr(Eval(_PropertyName + "@label")); _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + _Label; _Feedback = _Feedback + "</li>"; end for; _Feedback = _Feedback + "</ul>"; local long _FeedbackResult = MsgBox(_Feedback); end if; SaveAndExit ;state.savedandexit@value;state.validationneeded@value;returnvalue@value; STATE.SavedAndContinue STATE.SavedAndContinue = false; STATE.ValidationNeeded = true; if (InvalidFields() == 0) then ReturnValue = "{\"status\":\"ok\",\"name\":\"" + ElementName(CONFIG.ConfigurationName) + "\",\"version\":\"" + ElementVersion(CONFIG.ConfigurationName) + "\",\"continue\":\"true\"}"; local boolean _Result = SaveAndExit(); else STATE.WinkelkarInfoCalculated = false; STATE.WinkelkarInfoDiverseCalculated = false; local string _Feedback = ""; _Feedback = _Feedback + "<b>" + GetLocalizedLabel("BewarenError") + ":" + "</b>"; _Feedback = _Feedback + "<ul style='list-style-type:square;'>"; for i = 1 to Len(DATA.Lijn.InvalidFieldSet@options) local string _PropertyName = DATA.Lijn.InvalidFieldSet@option(i)@id; local string _Label = CStr(Eval(_PropertyName + "@label")); _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + _Label; _Feedback = _Feedback + "</li>"; end for; _Feedback = _Feedback + "</ul>"; local long _FeedbackResult = MsgBox(_Feedback); end if; SaveAndContinue ;state.savedandcontinue@value;state.validationneeded@value;returnvalue@value; STATE.KlantVoorkeurenSaved STATE.KlantVoorkeurenSaved = false; local boolean _Result; _Result = SetArg("saveas"; ElementName(CONFIG.KlantVoorkeurenConfigurationName)); _Result = eCon.UI.Tasks.Functions.Save(false); local string _Feedback = ""; if (_Result) then _Feedback = _Feedback + "<b>" + GetLocalizedLabel("BewarenKlantVoorkeurenSuccess") + "</b>"; _Feedback = _Feedback + "<ul style='list-style-type:square;'>"; for i = 1 to Len(CONFIG.Defaults.KlantVoorkeuren@options) local string _PropertyName = CONFIG.Defaults.KlantVoorkeuren@option(i)@id; local string _Label = CStr(Eval(_PropertyName + "@id")); local string _Id = CStr(Eval(_PropertyName)); local string _Type = CStr(Eval(_PropertyName + "@Type")); if ((_Type == "String") and(_Id <> "")) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id); //eval(_PropertyName)); _Feedback = _Feedback + "</li>"; end if; if ((_Type == "Double") and(CDbl(_Id) > 0)) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + _Id; _Feedback = _Feedback + "</li>"; end if; if (_Type == "Boolean") then local boolean _IsNietMeeleveren = CBool(Instr(1; LCase(_Label); LCase("NietMeeleveren_"))); local long _PositionOfUnderscore = InStrRev(LCase(_PropertyName); "_"); local string _ShortName = Mid(LCase(_PropertyName); _PositionOfUnderscore + 1); if (_IsNietMeeleveren and CBool(_Id) and (LCase(_ShortName) in CONFIG.NietMeeleverenExtern@options)) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel("NietMeeleveren") + ": " + GetLocalizedLabel(_Label); _Feedback = _Feedback + "</li>"; end if; if not(_IsNietMeeleveren) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id); _Feedback = _Feedback + "</li>"; end if; end if; end for; _Feedback = _Feedback + "</ul>"; else _Feedback = _Feedback + "<b>" + GetLocalizedLabel("BewarenKlantVoorkeurenError") + "</b>"; end if; local long _FeedbackResult = MsgBox(_Feedback); _Result = SetArg("saveas"; ElementName(CONFIG.ConfigurationName)); // originele ConfigurationName terugzetten SaveKlantVoorkeuren ;state.klantvoorkeurensaved@value; false true V R B B-R RH F B-F-R X AQYAAAAAAAABBwAAAAAAAA== A HS FrontStabilisator false true AgIAAAAAAAADAgAAAAAAAA== false true false true AgIAAAAAAAA= false true false true AgIAAAAAAAA= N M K B CM DM DK Zonder Reling InschuifElement BAEAAAAAAAAFAQAAAAAAAAYBAAAAAAAABwEAAAAAAAABAgAAAAAAAAICAAAAAAAAAwIAAAAAAAABAwAAAAAAAAIDAAAAAAAAAwMAAAAAAAAEAwAAAAAAAAcDAAAAAAAA false true SW MG OG MG-GMA AgMAAAAAAAA= N M K B CM DM DK L SP2 SY2 SY3 B AQIAAAAAAAADAgAAAAAAAAcCAAAAAAAAAQMAAAAAAAADAwAAAAAAAAcDAAAAAAAAAQQAAAAAAAADBAAAAAAAAAcEAAAAAAAAAQUAAAAAAAADBQAAAAAAAAcFAAAAAAAA false true L SP2 SY2 SY3 B AgIAAAAAAAACAwAAAAAAAAIEAAAAAAAA 0 1 2 3 4 2x2 L SP2 SY2 SY3 B BgEAAAAAAAACAgAAAAAAAAMCAAAAAAAABAIAAAAAAAAFAgAAAAAAAAYCAAAAAAAAAgMAAAAAAAADAwAAAAAAAAQDAAAAAAAABQMAAAAAAAAGAwAAAAAAAAIEAAAAAAAAAwQAAAAAAAAEBAAAAAAAAAUEAAAAAAAABgQAAAAAAAACBQAAAAAAAAMFAAAAAAAABAUAAAAAAAAFBQAAAAAAAAYFAAAAAAAA A HS FrontStabilisator L SP2 SY2 SY3 B AwIAAAAAAAADAwAAAAAAAA== false true 270 300 350 400 450 500 550 600 650 AgEAAAAAAAACAgAAAAAAAAIDAAAAAAAAAgQAAAAAAAA= V R B B-R RH F B-F-R X L SP2 SY2 SY3 B BwIAAAAAAAAIAgAAAAAAAAcDAAAAAAAACAMAAAAAAAAHBAAAAAAAAAgEAAAAAAAA false true N M K B CM DM DK AgEAAAAAAAA= N M K B CM DM DK 270 300 350 400 450 500 550 600 650 AQEAAAAAAAABAgAAAAAAAAEDAAAAAAAAAQgAAAAAAAABCQAAAAAAAA== 270 300 350 400 450 500 550 600 650 L SP2 SY2 SY3 B AQIAAAAAAAACAgAAAAAAAAMCAAAAAAAABQIAAAAAAAAHAgAAAAAAAAgCAAAAAAAACQIAAAAAAAABAwAAAAAAAAIDAAAAAAAAAwMAAAAAAAAFAwAAAAAAAAcDAAAAAAAACAMAAAAAAAAJAwAAAAAAAAEEAAAAAAAAAgQAAAAAAAA= 30 65 270 300 350 400 450 500 550 600 650 AgEAAAAAAAACAgAAAAAAAAIDAAAAAAAAAgQAAAAAAAABCQAAAAAAAA== L SP2 SY2 SY3 B Enkel Dubbel AgIAAAAAAAA= false true L SP2 SY2 SY3 B AgIAAAAAAAACAwAAAAAAAAIFAAAAAAAA N M K B CM DM DK false true L SP2 SY2 SY3 B BAIEAAAAAAA= Zonder Greep Meenemer N M K B CM DM DK false true AgUCAAAAAAADBQIAAAAAAAIGAgAAAAAAAwYCAAAAAAACBwIAAAAAAAMHAgAAAAAA 0 1 2 3 4 2x2 N M K B CM DM DK AgEAAAAAAAADAQAAAAAAAAQBAAAAAAAABQEAAAAAAAAGAQAAAAAAAAICAAAAAAAAAwIAAAAAAAAEAgAAAAAAAAUCAAAAAAAABgIAAAAAAAACAwAAAAAAAAMDAAAAAAAABAMAAAAAAAAFAwAAAAAAAAYDAAAAAAAAAgQAAAAAAAADBAAAAAAAAAQEAAAAAAAABQQAAAAAAAAGBAAAAAAAAAYGAAAAAAAABgcAAAAAAAA= 270 300 350 400 450 500 550 600 650 S ANTR FW FS FA BS QZ S-AZ ANTR-AZ CF AS AF AZ AwECAAAAAAAFAQIAAAAAAAYBAgAAAAAABwECAAAAAAAIAQIAAAAAAAkBAgAAAAAABgICAAAAAAAHAgIAAAAAAAgCAgAAAAAACQICAAAAAAA= Intern Extern V R B B-R RH F B-F-R X AQcAAAAAAAABCAAAAAAAAA== SW MG OG MG-GMA L SP2 SY2 SY3 B AwIAAAAAAAADAwAAAAAAAAQDAAAAAAAAAwUAAAAAAAAEBQAAAAAAAA== N M K B CM DM DK SW MG OG MG-GMA AQMAAAAAAAADAwAAAAAAAAUDAAAAAAAABgMAAAAAAAAHAwAAAAAAAAEEAAAAAAAAAwQAAAAAAAAFBAAAAAAAAAcEAAAAAAAA 270 300 350 400 450 500 550 600 650 SW MG OG MG-GMA L SP2 SY2 SY3 B BAECAAAAAAAEAgIAAAAAAAQBAwAAAAAABAIDAAAAAAA= N M K B CM DM DK false true SW MG OG MG-GMA AQIBAAAAAAAEAgEAAAAAAAECAgAAAAAABAICAAAAAAABAgQAAAAAAAMCBAAAAAAABQIEAAAAAAAGAgQAAAAAAAcCBAAAAAAA SW MG OG MG-GMA Zonder Reling InschuifElement AwMAAAAAAAAEAwAAAAAAAA== 270 300 350 400 450 500 550 600 650 SW MG OG MG-GMA AQMAAAAAAAACAwAAAAAAAAMDAAAAAAAABQMAAAAAAAAGAwAAAAAAAAcDAAAAAAAACAMAAAAAAAAJAwAAAAAAAA== SW MG OG MG-GMA false true AwEAAAAAAAAEAQAAAAAAAA== false true N M K B CM DM DK 270 300 350 400 450 500 550 600 650 AQMFAAAAAAABBwUAAAAAAA== 270 300 350 400 450 500 550 600 650 FG8 FZ8 AluMG AluSW AluBZ ZV Zonder Reling InschuifElement BwIDAAAAAAABAwMAAAAAAAIDAwAAAAAAAwMDAAAAAAAEAwMAAAAAAAgDAwAAAAAAAQQDAAAAAAACBAMAAAAAAAMEAwAAAAAACAQDAAAAAAABBQMAAAAAAAIFAwAAAAAAAwUDAAAAAAAEBQMAAAAAAAgFAwAAAAAA N M K B CM DM DK 270 300 350 400 450 500 550 600 650 FG8 FZ8 AluMG AluSW AluBZ ZV Zonder Reling InschuifElement BQIBAwAAAAAGAwEDAAAAAAYEAQMAAAAABQcBAwAAAAAGBwEDAAAAAAUGAwMAAAAABQQEAwAAAAAGBQQDAAAAAAUGBAMAAAAABgcEAwAAAAAHBwQDAAAAAAYHBQMAAAAA Zonder Reling InschuifElement AwAAAAAAAAA= 270 300 350 400 450 500 550 600 650 SW MG OG MG-GMA Zonder Reling InschuifElement AQQCAAAAAAAHBAIAAAAAAAgEAgAAAAAACQQCAAAAAAA=