STATE.Initialized Initialisatie ; true CONFIG.Backend = GetArg("backend"); // Voorlopig alleen "axapta", dus AX CONFIG.ProcessMode = GetArg("processmode"); // Alleen in AX : "Background" of "Interactive" CONFIG.Token = GetArg("vh_token"); // Alleen in Web : Token van Intracto CONFIG.Language = GetArg("language"); // Web en AX CONFIG.Initiator = GetArg("initiator"); // Alleen in AX CONFIG.Bulkwijzigingen.Isbulkconfiguratie = CBool(GetArg("isbulkconfiguratie")); // Alleen in AX CONFIG.Bulkwijzigingen.ReferentieConfiguratieId = GetArg("referentieconfiguratieid"); // Alleen in AX CONFIG.Bulkwijzigingen.BulkConfiguratieId = GetArg("bulkconfiguratieid"); // Alleen in AX CONFIG.Bulkwijzigingen.TotaalAantalGepersisteerdeProperties = GetArg("totaalaantalgepersisteerdeproperties"); // Alleen in AX Algemene input parameters ophalen ;config.backend@value;config.processmode@value;config.token@value;config.language@value;config.initiator@value;config.bulkwijzigingen.isbulkconfiguratie@value;config.bulkwijzigingen.referentieconfiguratieid@value;config.bulkwijzigingen.bulkconfiguratieid@value;config.bulkwijzigingen.totaalaantalgepersisteerdeproperties@value; true BEHAVIOR.IsEconAx = (CONFIG.Backend == "axapta"); BEHAVIOR.IsEconWeb = (CONFIG.Backend <> "axapta"); Instellen Gedrag Omgeving ;behavior.iseconax@value;behavior.iseconweb@value; BEHAVIOR.IsEconAx local string _Configuration = GetArg("configuration"); local string _BEHAVIOR_AccessMode; local string _BEHAVIOR_OperationMode; local string _BEHAVIOR_ContextName; local boolean _IsNieuweIngaveInAx = (DATA.Lijn.GroeperingCode == ""); // Tijdelijk getest via GroeperingCode ingevuld; [TODO] vind een goede manier om de AxNew te bepalen. local boolean _IsEditEdiFromSalesOrderIn; local boolean _IsInitiatorAxMsgTableSalesOrderIn = (CONFIG.Initiator == "Ax.MsgTableSalesOrderIn"); _BEHAVIOR_AccessMode = "Intern"; // Voor AX is AccessMode altijd "Intern". (voorlopig toch) _BEHAVIOR_OperationMode = ""; if (CONFIG.ProcessMode == "Background") then _BEHAVIOR_OperationMode = "AxCreate"; else if (_IsNieuweIngaveInAx) then _BEHAVIOR_OperationMode = "New"; else _BEHAVIOR_OperationMode = "Edit"; end if; end if; _BEHAVIOR_ContextName = "null"; if (CONFIG.ProcessMode == "Background") then _BEHAVIOR_ContextName = "AxCreateVH4"; if ((CONFIG.Bulkwijzigingen.ReferentieConfiguratieId <> "") and (CONFIG.Bulkwijzigingen.BulkConfiguratieId <> "")) then _BEHAVIOR_ContextName = "AxCreateBulkWijzigingenToepassen"; end if; if (_IsInitiatorAxMsgTableSalesOrderIn) then _BEHAVIOR_ContextName = "AxCreateEdi"; end if; /* * / _KenmerkenOorsprong = "VH4"; // VH4 of EDI of OCC [TODO] onderscheid nog te bepalen, indien mogelijk. if _KenmerkenOorsprong == "VH4" then _BEHAVIOR_ContextName = "AxCreateVH4"; end if; if _KenmerkenOorsprong == "OCC" then _BEHAVIOR_ContextName = "AxCreateOcc"; end if; /* */ else if (_IsNieuweIngaveInAx) then if (CONFIG.Bulkwijzigingen.Isbulkconfiguratie) then _BEHAVIOR_ContextName = "AxNewBulkIngave"; else _BEHAVIOR_ContextName = "AxNew"; end if; else _IsEditEdiFromSalesOrderIn = _IsInitiatorAxMsgTableSalesOrderIn; if _IsEditEdiFromSalesOrderIn then _BEHAVIOR_ContextName = "AxEditEdi"; else _BEHAVIOR_ContextName = "AxEdit"; end if; end if; end if; BEHAVIOR.AccessMode = _BEHAVIOR_AccessMode; BEHAVIOR.OperationMode = _BEHAVIOR_OperationMode; BEHAVIOR.ContextName = _BEHAVIOR_ContextName; BEHAVIOR.IsInteractive = (CONFIG.ProcessMode <> "Background"); BEHAVIOR.IsAxCreate = ((_BEHAVIOR_OperationMode == "New") or (_BEHAVIOR_OperationMode == "AxCreate")); CONFIG.InputMode = BEHAVIOR.OperationMode; CONFIG.Settings.OperationMode = BEHAVIOR.AccessMode; Instellen Gedrag Ax (AccessMode, OperationMode, ContextName) ;behavior.accessmode@value;behavior.operationmode@value;behavior.contextname@value;behavior.isinteractive@value;behavior.isaxcreate@value;config.inputmode@value;config.settings.operationmode@value; BEHAVIOR.IsEconWeb local string _AccessMode = GetArg("operationmode"); local string _Configuration = GetArg("configuration"); local string _BEHAVIOR_AccessMode; local string _BEHAVIOR_OperationMode; local string _BEHAVIOR_ContextName; _BEHAVIOR_AccessMode = "Extern"; if (LCase(_AccessMode) == "intern") then _BEHAVIOR_AccessMode = "Intern"; end if; _BEHAVIOR_OperationMode = ""; if (CONFIG.TOKEN == "128eababb1a1596e3c130b0e0fd5be820334a01a16bf777d1c5439fcfa861e16") then _BEHAVIOR_OperationMode = "CreateConfig"; _BEHAVIOR_AccessMode = "Intern"; // CreateConfig volgt de beperkingen van de InterneVerwerking (o.a. voor EDI-bestellingen met specifieke verpakking of verlaagde rug of stalen rug) else if (_Configuration <> "") then _BEHAVIOR_OperationMode = "Edit"; else _BEHAVIOR_OperationMode = "New"; end if; end if; _BEHAVIOR_ContextName = "null"; if (_BEHAVIOR_OperationMode == "CreateConfig") then _BEHAVIOR_ContextName = "WebCreateConfig"; else if (_BEHAVIOR_OperationMode == "Edit") then _BEHAVIOR_ContextName = "WebShopEdit"; else _BEHAVIOR_ContextName = "WebShopNew"; end if; end if; BEHAVIOR.AccessMode = _BEHAVIOR_AccessMode; BEHAVIOR.OperationMode = _BEHAVIOR_OperationMode; BEHAVIOR.ContextName = _BEHAVIOR_ContextName; BEHAVIOR.IsInteractive = (_BEHAVIOR_OperationMode <> "CreateConfig"); CONFIG.InputMode = BEHAVIOR.OperationMode; CONFIG.Settings.OperationMode = BEHAVIOR.AccessMode; Instellen Gedrag Web (AccessMode, OperationMode, ContextName) ;behavior.accessmode@value;behavior.operationmode@value;behavior.contextname@value;behavior.isinteractive@value;config.inputmode@value;config.settings.operationmode@value; BEHAVIOR.IsEconAx Initialisatie AX ; true local string _AxKlantId = GetArg("AxKlantId"); local string _GeconverteerdeKlantId = CStr(CLng(_AxKlantId)); CONFIG.Settings.KlantId = _GeconverteerdeKlantId; local string _OorsprongKetting = GetArg("OorsprongKetting"); if (not (_OorsprongKetting == "")) then local long _PositieInOorsprongKettingNaOpeningshaakjes = 3; local long _PositieEersteKommaInOorsprongKetting = CLng(InStr(1; _OorsprongKetting; ",")); local long _AantalKaraktersVanPersonalityId = _PositieEersteKommaInOorsprongKetting - _PositieInOorsprongKettingNaOpeningshaakjes; local string _PersonalityId = Mid(_OorsprongKetting; _PositieInOorsprongKettingNaOpeningshaakjes; _AantalKaraktersVanPersonalityId); CONFIG.Settings.PersonalityId = _PersonalityId; local long _PositieEersteAanhalingstekenInOorsprongKetting = CLng(InStr(1; _OorsprongKetting; "\"")); local string _OorsprongKettingVanafPersonalityKlantId = Mid(_OorsprongKetting; _PositieEersteAanhalingstekenInOorsprongKetting + 1); local long _PositieTweedeAanhalingstekenInOorsprongKetting = CLng(InStr(1; _OorsprongKettingVanafPersonalityKlantId; "\"")) + _PositieEersteAanhalingstekenInOorsprongKetting; local long _AantalKaraktersVanPersonalityKlantId = _PositieTweedeAanhalingstekenInOorsprongKetting - _PositieEersteAanhalingstekenInOorsprongKetting - 1; local string _PersonalityKlantId = Mid(_OorsprongKetting; _PositieEersteAanhalingstekenInOorsprongKetting + 1; _AantalKaraktersVanPersonalityKlantId); if (CONFIG.Settings.PersonalityId == "1") then _PersonalityKlantId = Mid(_PersonalityKlantId; 4); // Bij Personality Van Hoecke moet "K||" eraf gestript worden. else local long _PositieEersteUnderscoreInPersonalityKlantId = CLng(InStr(1; _PersonalityKlantId; "_")); _PersonalityKlantId = Mid(_PersonalityKlantId; _PositieEersteUnderscoreInPersonalityKlantId + 1); // Bij andere Personalities moet de prefix eraf gestript worden. end if; CONFIG.Settings.PersonalityKlantId = _PersonalityKlantId; end if; if (CONFIG.Settings.PersonalityId == "") then CONFIG.Settings.PersonalityId = "1"; CONFIG.Settings.PersonalityKlantId = CONFIG.Settings.KlantId; end if; CONFIG.Settings.AXUserId = GetArg("axuserid"); // 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; not(BEHAVIOR.IsInteractive) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) Data.Kenmerken.BodemKleur = GetArg("data;kenmerken;bodemkleur"); Data.Kenmerken.CorpusBreedte = CDbl(Replace(GetArg("data;kenmerken;corpusbreedte");".";",")); Data.Kenmerken.CorpusWanddikte = CDbl(Replace(GetArg("data;kenmerken;corpuswanddikte");".";",")); Data.Kenmerken.Draagkracht = GetArg("data;kenmerken;draagkracht"); Data.Kenmerken.DwarsverdelingAantal = GetArg("data;kenmerken;dwarsverdelingaantal"); Data.Kenmerken.Familie = GetArg("data;kenmerken;familie"); Data.Kenmerken.FrontBevestiging = GetArg("data;kenmerken;frontbevestiging"); Data.Kenmerken.GeleiderTechnologie = GetArg("data;kenmerken;geleidertechnologie"); Data.Kenmerken.HeeftOpvullijstLinks = CBool(GetArg("data;kenmerken;heeftopvullijstlinks")); Data.Kenmerken.HeeftOpvullijstRechts = CBool(GetArg("data;kenmerken;heeftopvullijstrechts")); Data.Kenmerken.HeeftZijstabilisering = CBool(GetArg("data;kenmerken;heeftzijstabilisering")); Data.Kenmerken.IsBinnenbreedte = CBool(GetArg("data;kenmerken;isbinnenbreedte")); Data.Kenmerken.IsBinnenlade = CBool(GetArg("data;kenmerken;isbinnenlade")); Data.Kenmerken.LadeDiepte = GetArg("data;kenmerken;ladediepte"); Data.Kenmerken.LadeHoogte = GetArg("data;kenmerken;ladehoogte"); Data.Kenmerken.LadeKleur = GetArg("data;kenmerken;ladekleur"); Data.Kenmerken.MatKleur = GetArg("data;kenmerken;matkleur"); Data.Kenmerken.MatMateriaal = GetArg("data;kenmerken;matmateriaal"); Data.Kenmerken.MeenemerSet = GetArg("data;kenmerken;meenemerset"); Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBinnen = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkapbinnen")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBuiten = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkapbuiten")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkaprugwandhouder")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_Boxcap = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_boxcap")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_Boxcover = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_boxcover")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestigingBoven = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_frontbevestigingboven")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestigingOnder = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_frontbevestigingonder")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontStabilisator = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_frontstabilisator")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_geleider")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementVoor = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_inschuifelementvoor")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementZijkant = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_inschuifelementzijkant")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_opvullijst")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_RelingVoor = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_relingvoor")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_RelingZijkant = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_relingzijkant")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionsynchronisatiestang")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionMeenemers = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionmeenemers")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionEenheden = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotioneenheden")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionseteenhedenenmeenemers")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_Zijstabilisering = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_zijstabilisering")); Data.Kenmerken.OpvullijstKleur = GetArg("data;kenmerken;opvullijstkleur"); Data.Kenmerken.ProductieWijze = GetArg("data;kenmerken;productiewijze"); Data.Kenmerken.RugHoogte = GetArg("data;kenmerken;rughoogte"); Data.Kenmerken.RugwandMateriaal = GetArg("data;kenmerken;rugwandmateriaal"); Data.Kenmerken.Toepassing = GetArg("data;kenmerken;toepassing"); Data.Kenmerken.UitsparingData.UitsparingAantal = GetArg("data;kenmerken;uitsparingdata;uitsparingaantal"); Data.Kenmerken.UitsparingData.M.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;m;breedte");".";",")); Data.Kenmerken.UitsparingData.M.Hoogte = GetArg("data;kenmerken;uitsparingdata;m;hoogte"); Data.Kenmerken.UitsparingData.M.Materiaal = GetArg("data;kenmerken;uitsparingdata;m;materiaal"); Data.Kenmerken.UitsparingData.X.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;x;breedte");".";",")); Data.Kenmerken.UitsparingData.X.Hoogte = GetArg("data;kenmerken;uitsparingdata;x;hoogte"); Data.Kenmerken.UitsparingData.X.Materiaal = GetArg("data;kenmerken;uitsparingdata;x;materiaal"); Data.Kenmerken.UitsparingData.Y.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;y;breedte");".";",")); Data.Kenmerken.UitsparingData.Y.Hoogte = GetArg("data;kenmerken;uitsparingdata;y;hoogte"); Data.Kenmerken.UitsparingData.Y.Materiaal = GetArg("data;kenmerken;uitsparingdata;y;materiaal"); Data.Kenmerken.UitsparingData.Z1.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;breedte");".";",")); Data.Kenmerken.UitsparingData.Z1.Diepte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;diepte");".";",")); Data.Kenmerken.UitsparingData.Z1.Hoogte = GetArg("data;kenmerken;uitsparingdata;z1;hoogte"); Data.Kenmerken.UitsparingData.Z1.Materiaal = GetArg("data;kenmerken;uitsparingdata;z1;materiaal"); Data.Kenmerken.UitsparingData.Z1.Vorm = GetArg("data;kenmerken;uitsparingdata;z1;vorm"); Data.Kenmerken.UitsparingData.Z2.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z2;breedte");".";",")); Data.Kenmerken.UitsparingData.Z2.Diepte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z2;diepte");".";",")); Data.Kenmerken.UitsparingData.Z2.Hoogte = GetArg("data;kenmerken;uitsparingdata;z2;hoogte"); Data.Kenmerken.UitsparingData.Z2.Materiaal = GetArg("data;kenmerken;uitsparingdata;z2;materiaal"); Data.Kenmerken.UitsparingData.Z2.Vorm = GetArg("data;kenmerken;uitsparingdata;z2;vorm"); Data.Kenmerken.Variant = GetArg("data;kenmerken;variant"); Data.Kenmerken.VerpakkingType = GetArg("data;kenmerken;verpakkingtype"); Data.Kenmerken.VoorwandType = GetArg("data;kenmerken;voorwandtype"); Data.Kenmerken.ZijkantHoogte = GetArg("data;kenmerken;zijkanthoogte"); Data.Kenmerken.ZijwandType = GetArg("data;kenmerken;zijwandtype"); Data.Kenmerken.ZijwandVerhogingInschuifElementKleur = GetArg("data;kenmerken;zijwandverhoginginschuifelementkleur "); Data.Kenmerken.ZijwandVerhogingType = GetArg("data;kenmerken;zijwandverhogingtype"); Data.Kenmerken.ZijwandVerhogingMateriaal = GetArg("data;kenmerken;zijwandverhogingmateriaal "); Data.Kenmerken.ZijwandVerhogingRelingKleur = GetArg("data;kenmerken;zijwandverhogingrelingkleur "); Data.Lijn.Aantal = CDbl(GetArg("data;lijn;aantal")); Data.Lijn.Referentie = GetArg("data;lijn;referentie"); Kenmerken ophalen uit argumenten (Background) ;data.kenmerken.bodemkleur@value;data.kenmerken.corpusbreedte@value;data.kenmerken.corpuswanddikte@value;data.kenmerken.draagkracht@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.familie@value;data.kenmerken.frontbevestiging@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladediepte@value;data.kenmerken.ladehoogte@value;data.kenmerken.ladekleur@value;data.kenmerken.matkleur@value;data.kenmerken.matmateriaal@value;data.kenmerken.meenemerset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkapbinnen@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkapbuiten@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkaprugwandhouder@value;data.kenmerken.nietmeeleveren.nietmeeleveren_boxcap@value;data.kenmerken.nietmeeleveren.nietmeeleveren_boxcover@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestigingboven@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestigingonder@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontstabilisator@value;data.kenmerken.nietmeeleveren.nietmeeleveren_geleider@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelementvoor@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelementzijkant@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.nietmeeleveren.nietmeeleveren_relingvoor@value;data.kenmerken.nietmeeleveren.nietmeeleveren_relingzijkant@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotioneenheden@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_zijstabilisering@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.productiewijze@value;data.kenmerken.rughoogte@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.toepassing@value;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.x.breedte@value;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.y.breedte@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.breedte@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.z2.breedte@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value;data.kenmerken.variant@value;data.kenmerken.verpakkingtype@value;data.kenmerken.voorwandtype@value;data.kenmerken.zijkanthoogte@value;data.kenmerken.zijwandtype@value;data.kenmerken.zijwandverhoginginschuifelementkleur@value;data.kenmerken.zijwandverhogingtype@value;data.kenmerken.zijwandverhogingmateriaal@value;data.kenmerken.zijwandverhogingrelingkleur@value;data.lijn.aantal@value;data.lijn.referentie@value; BEHAVIOR.IsInteractive Kenmerken ophalen uit argumenten (Interactive) ; BEHAVIOR.IsEconWeb if (CONFIG.Token == "") then // todo: configurator afsluiten indien geen token opgegeven local boolean _Result = true; //Exit(true;false); end if; Initialisatie web ; true STATE.KlantVoorkeurenSaved = false; Initialisatie states ;state.klantvoorkeurensaved@value; true local string _DebugMode = GetSetting("ui.debugmode"); 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 (Web) ;config.database.languages@options;state.languagesloaded@value; BEHAVIOR.IsInteractive HELP.HelpUrl = "mvx/" + CONFIG.Language + ".xml"; Tooltips ;help.helpurl@value; not(BEHAVIOR.ContextName == "AxNewBulkIngave") local boolean _Result = CopyOptionsToArray("UI.Kenmerken.NietMeeleverenOptions"; "UI.Kenmerken.NietMeeleveren"); index i of UI.Kenmerken.NietMeeleveren UI.Kenmerken.NietMeeleveren(i)@label = DATA.Kenmerken.NietMeeleveren@label; UI.Kenmerken.NietMeeleveren(i)@repeat = false; UI.Kenmerken.NietMeeleveren(i).IsSelected@style.controlclass = "vh-slidercheckbox"; UI.Kenmerken.NietMeeleveren(i).Text@style.controlclass = "vh-checkboxlist-item"; UI.Kenmerken.NietMeeleveren(i).Text = GetLocalizedLabel(UI.Kenmerken.NietMeeleveren(i).Text); end index; NietMeeleveren ;ui.kenmerken.nietmeeleveren[1].text@value; true local boolean _Result; local string _SaveAs = GetArg("saveas"); local string _Configuration = GetArg("configuration"); local string _Version = GetArg("version"); if (_SaveAs == "" and _Configuration <> "") then _SaveAs = ElementId(_Configuration; _Version); end if; if (CONFIG.ConfigurationName == "") then if (_SaveAs <> "") then CONFIG.ConfigurationName = _SaveAs; else CONFIG.ConfigurationName = NewId() + ",1"; end if; end if; if ((_SaveAs == "") and (CONFIG.ConfigurationName <> "")) then _Result = SetArg("saveas"; ElementName(CONFIG.ConfigurationName)); _SaveAs = CONFIG.ConfigurationName; end if; if ((CONFIG.ConfigurationName <> "") and (_SaveAs <> "") and (CONFIG.ConfigurationName <> _SaveAs)) then CONFIG.ConfigurationName = _SaveAs; end if; ConfigurationId bepalen ;config.configurationname@value; (CONFIG.Token <> "") and (BEHAVIOR.IsEconWeb) local string _Setting = GetSetting("data.vanhoecke.connectionstring.vhisie4.settings"); local string _Json = _Setting + CONFIG.Token; local boolean _Result; if not(BEHAVIOR.OperationMode == "CreateConfig") then // Setings ophalen op basis van de vh_token _Result = LoadFromJSONService("CONFIG.Settings.KeyValue"; _Json; false); /*if not(_Result) then ReturnValue = "{\"status\":\"cancel\"}"; _Result = Exit(true;false); end if;*/ end if; index i of CONFIG.Settings.KeyValue _Result = SetValue("CONFIG.Settings." + CONFIG.Settings.KeyValue(i).Name; CONFIG.Settings.KeyValue(i).Value); end index; Config settings ophalen (Web) ; true local collection _ExportPersonalities = {"3";"10";"11";"13";"14";"16";"17";"18";"19";"20";"32";"33";"34";"35";"36";"37";"38";"39";"40";"41";"42";"43";"44";"45"; "48"; "49"; "50"; "51"; "52"; "53"; "54"; "55"; "56"; "57"; "58"; "59"; "61"; "62"; "63"; "64"; "65"; "66"; "67"; "68"; "69"; "70"; "71"; "72"; "73"; "74"}; BEHAVIOR.IsExportPersonality = (Config.Settings.PersonalityId in _ExportPersonalities); Config settings ExportPersonalities ;behavior.isexportpersonality@value; (BEHAVIOR.IsEconWeb) and (CONFIG.Token <> "") // BLUM POLSKA if ((Config.Settings.PersonalityId == "48") or (Config.Settings.KlantId == "37598")) then BEHAVIOR.IsMaximaleBreedteBeperktTot1168Mm = true; end if; Config settings hardcoded (settings voor de MP) ;behavior.ismaximalebreedtebeperkttot1168mm@value; true Config.ReferentieConfiguratie = GetArg("referentieconfiguratie"); ReferentieConfiguratie ophalen ;config.referentieconfiguratie@value; (BEHAVIOR.IsEconWeb) and (BEHAVIOR.IsInteractive) CONFIG.KlantVoorkeurenConfigurationName = DATA.Kenmerken.Variant + "_" + Config.Settings.PersonalityId + "_" + CONFIG.Settings.KlantId; KlantVoorkeuren naam bepalen ;config.klantvoorkeurenconfigurationname@value; 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.Buttons.Top.ProcessButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.ProcessedAndExit','true'|task:eCon.UI.Tasks.ProcessAndExitTask"; UI.Buttons.Bottom.SaveAndExitButton@default = UI.Buttons.Top.SaveAndExitButton@default; UI.Buttons.Bottom.SaveAndContinueButton@default = UI.Buttons.Top.SaveAndContinueButton@default; UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.StartMaatwerkViewer','true'"; local boolean _IsEditMode = (CONFIG.InputMode == "Edit"); local string _LabelSave = UI.Buttons.Top.SaveAndExitButton@label; if (_IsEditMode) then _LabelSave = TRL.SaveChangesButton@label; end if; UI.Buttons.Top.SaveAndExitButton@label = _LabelSave; UI.Buttons.Bottom.SaveAndExitButton@label = _LabelSave; UI.Buttons.Top.SaveAndExitButton@visible = BEHAVIOR.IsEconWeb; UI.Buttons.Top.SaveAndContinueButton@visible = not(_IsEditMode) and BEHAVIOR.IsEconWeb and not(Config.Bulkwijzigingen.IsBulkConfiguratie); UI.Buttons.Top.PreferencesButton@visible = BEHAVIOR.IsEconWeb and not(Config.Bulkwijzigingen.IsBulkConfiguratie); UI.Buttons.Top.ProcessButton@visible = (BEHAVIOR.IsEconAx and not(BEHAVIOR.ContextName == "AxNewBulkIngave")); UI.Buttons.Bottom.SaveAndExitButton@visible = BEHAVIOR.IsEconWeb; UI.Buttons.Bottom.SaveAndContinueButton@visible = not(_IsEditMode) and BEHAVIOR.IsEconWeb 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.buttons.top.processbutton@default;ui.buttons.bottom.saveandexitbutton@default;ui.buttons.bottom.saveandcontinuebutton@default;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@default;ui.buttons.top.saveandexitbutton@visible;ui.buttons.top.saveandcontinuebutton@visible;ui.buttons.top.preferencesbutton@visible;ui.buttons.top.processbutton@visible;ui.buttons.bottom.saveandexitbutton@visible;ui.buttons.bottom.saveandcontinuebutton@visible; not(BEHAVIOR.ContextName == "AxNewBulkIngave") local string SelectedOption = ""; SelectedOption = UI.Kenmerken.BodemKleur; for i = 1 to len(UI.Kenmerken.BodemKleur@options) UI.Kenmerken.BodemKleur = UI.Kenmerken.BodemKleur@option(i)@id; UI.Kenmerken.BodemKleur.Text = DATA.Kenmerken.BodemKleur@option(i)@label; end for; UI.Kenmerken.BodemKleur= SelectedOption; SelectedOption = UI.Kenmerken.LadeKleur; for i = 1 to len(UI.Kenmerken.LadeKleur@options) UI.Kenmerken.LadeKleur = UI.Kenmerken.LadeKleur@option(i)@id; UI.Kenmerken.LadeKleur.Text = DATA.Kenmerken.LadeKleur@option(i)@label; end for; UI.Kenmerken.LadeKleur = SelectedOption; SelectedOption = UI.Kenmerken.MatAntislipFiberKleur; for i = 1 to len(UI.Kenmerken.MatAntislipFiberKleur@options) UI.Kenmerken.MatAntislipFiberKleur = UI.Kenmerken.MatAntislipFiberKleur@option(i)@id; UI.Kenmerken.MatAntislipFiberKleur.Text = GetLocalizedLabel("MatAntislipFiberKleur_" + UI.Kenmerken.MatAntislipFiberKleur); end for; UI.Kenmerken.MatAntislipFiberKleur = SelectedOption; SelectedOption = UI.Kenmerken.MatAntislipFlockKleur; for i = 1 to len(UI.Kenmerken.MatAntislipFlockKleur@options) UI.Kenmerken.MatAntislipFlockKleur = UI.Kenmerken.MatAntislipFlockKleur@option(i)@id; UI.Kenmerken.MatAntislipFlockKleur.Text = GetLocalizedLabel("MatAntislipFlockKleur_" + UI.Kenmerken.MatAntislipFlockKleur); end for; UI.Kenmerken.MatAntislipFlockKleur = SelectedOption; SelectedOption = UI.Kenmerken.MatMateriaal; for i = 1 to len(UI.Kenmerken.MatMateriaal@options) UI.Kenmerken.MatMateriaal = UI.Kenmerken.MatMateriaal@option(i)@id; UI.Kenmerken.MatMateriaal.Text = DATA.Kenmerken.MatMateriaal@option(UI.Kenmerken.MatMateriaal.Value)@label; end for; UI.Kenmerken.MatMateriaal = SelectedOption; SelectedOption = UI.Kenmerken.MatVinylFiberglassKleur; for i = 1 to len(UI.Kenmerken.MatVinylFiberglassKleur@options) UI.Kenmerken.MatVinylFiberglassKleur = UI.Kenmerken.MatVinylFiberglassKleur@option(i)@id; UI.Kenmerken.MatVinylFiberglassKleur.Text = GetLocalizedLabel("MatVinylFiberglassKleur_" + UI.Kenmerken.MatVinylFiberglassKleur); end for; UI.Kenmerken.MatVinylFiberglassKleur = SelectedOption; SelectedOption = UI.Kenmerken.OpvullijstKleur; for i = 1 to len(UI.Kenmerken.OpvullijstKleur@options) UI.Kenmerken.OpvullijstKleur = UI.Kenmerken.OpvullijstKleur@option(i)@id; UI.Kenmerken.OpvullijstKleur.Text = DATA.Kenmerken.OpvullijstKleur@option(i)@label; end for; UI.Kenmerken.OpvullijstKleur = SelectedOption; SelectedOption = UI.Kenmerken.VoorwandTypeVanEBinnenlade; for i = 1 to len(UI.Kenmerken.VoorwandTypeVanEBinnenlade@options) UI.Kenmerken.VoorwandTypeVanEBinnenlade = UI.Kenmerken.VoorwandTypeVanEBinnenlade@option(i)@id; UI.Kenmerken.VoorwandTypeVanEBinnenlade.Text = GetLocalizedLabel("VoorwandType_" + UI.Kenmerken.VoorwandTypeVanEBinnenlade@option(i)@id); end for; UI.Kenmerken.VoorwandTypeVanEBinnenlade= SelectedOption; SelectedOption = UI.Kenmerken.VoorwandTypeVanMBinnenlade; for i = 1 to len(UI.Kenmerken.VoorwandTypeVanMBinnenlade@options) UI.Kenmerken.VoorwandTypeVanMBinnenlade = UI.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@id; UI.Kenmerken.VoorwandTypeVanMBinnenlade.Text = GetLocalizedLabel("VoorwandType_" + UI.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@id); end for; UI.Kenmerken.VoorwandTypeVanMBinnenlade= SelectedOption; SelectedOption = UI.Kenmerken.VoorwandTypeVanKBinnenlade; for i = 1 to len(UI.Kenmerken.VoorwandTypeVanKBinnenlade@options) UI.Kenmerken.VoorwandTypeVanKBinnenlade = UI.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@id; UI.Kenmerken.VoorwandTypeVanKBinnenlade.Text = GetLocalizedLabel("VoorwandType_" + UI.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@id); end for; UI.Kenmerken.VoorwandTypeVanKBinnenlade= SelectedOption; SelectedOption = UI.Kenmerken.ZijwandVerhogingRelingKleur; for i = 1 to len(UI.Kenmerken.ZijwandVerhogingRelingKleur@options) UI.Kenmerken.ZijwandVerhogingRelingKleur = UI.Kenmerken.ZijwandVerhogingRelingKleur@option(i)@id; UI.Kenmerken.ZijwandVerhogingRelingKleur.Text = UI.Kenmerken.ZijwandVerhogingRelingKleur@option(i)@id; end for; UI.Kenmerken.ZijwandVerhogingRelingKleur= SelectedOption; SelectedOption = UI.Kenmerken.ZijwandType; for i = 1 to len(UI.Kenmerken.ZijwandType@options) UI.Kenmerken.ZijwandType = UI.Kenmerken.ZijwandType@option(i)@id; UI.Kenmerken.ZijwandType.Text = DATA.Kenmerken.ZijwandType@option(i)@label; end for; UI.Kenmerken.ZijwandType = SelectedOption; Vertalingen UI image labels ;ui.kenmerken.bodemkleur@value;ui.kenmerken.ladekleur@value;ui.kenmerken.matantislipfiberkleur@value;ui.kenmerken.matantislipflockkleur@value;ui.kenmerken.matmateriaal@value;ui.kenmerken.matvinylfiberglasskleur@value;ui.kenmerken.opvullijstkleur@value;ui.kenmerken.voorwandtypevanebinnenlade@value;ui.kenmerken.voorwandtypevanmbinnenlade@value;ui.kenmerken.voorwandtypevankbinnenlade@value;ui.kenmerken.zijwandverhogingrelingkleur@value;ui.kenmerken.zijwandtype@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; SelectedOption = UI.BulkKenmerken.VoorwandTypeVanEBinnenlade; for i = 1 to len(UI.BulkKenmerken.VoorwandTypeVanEBinnenlade@options) UI.BulkKenmerken.VoorwandTypeVanEBinnenlade = UI.BulkKenmerken.VoorwandTypeVanEBinnenlade@option(i)@id; UI.BulkKenmerken.VoorwandTypeVanEBinnenlade.Text = GetLocalizedLabel("VoorwandType_" + UI.BulkKenmerken.VoorwandTypeVanEBinnenlade@option(i)@id); end for; UI.BulkKenmerken.VoorwandTypeVanEBinnenlade= SelectedOption; SelectedOption = UI.BulkKenmerken.VoorwandTypeVanMBinnenlade; for i = 1 to len(UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@options) UI.BulkKenmerken.VoorwandTypeVanMBinnenlade = UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@option(i)@id; UI.BulkKenmerken.VoorwandTypeVanMBinnenlade.Text = GetLocalizedLabel("VoorwandType_" + UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@option(i)@id); end for; UI.BulkKenmerken.VoorwandTypeVanMBinnenlade= SelectedOption; SelectedOption = UI.BulkKenmerken.VoorwandTypeVanKBinnenlade; for i = 1 to len(UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@options) UI.BulkKenmerken.VoorwandTypeVanKBinnenlade = UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@option(i)@id; UI.BulkKenmerken.VoorwandTypeVanKBinnenlade.Text = GetLocalizedLabel("VoorwandType_" + UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@option(i)@id); end for; UI.BulkKenmerken.VoorwandTypeVanKBinnenlade= SelectedOption; SelectedOption = UI.BulkKenmerken.ZijwandVerhogingRelingKleur; for i = 1 to len(UI.BulkKenmerken.ZijwandVerhogingRelingKleur@options) UI.BulkKenmerken.ZijwandVerhogingRelingKleur = UI.BulkKenmerken.ZijwandVerhogingRelingKleur@option(i)@id; UI.BulkKenmerken.ZijwandVerhogingRelingKleur.Text = UI.BulkKenmerken.ZijwandVerhogingRelingKleur@option(i)@id; end for; UI.BulkKenmerken.ZijwandVerhogingRelingKleur= SelectedOption; SelectedOption = UI.BulkKenmerken.ZijwandType; for i = 1 to len(UI.BulkKenmerken.ZijwandType@options) UI.BulkKenmerken.ZijwandType = UI.BulkKenmerken.ZijwandType@option(i)@id; UI.BulkKenmerken.ZijwandType.Text = DATA.BulkKenmerken(1).ZijwandType@option(i)@label; end for; UI.BulkKenmerken.ZijwandType = SelectedOption; Vertalingen bulk UI image labels ;ui.bulkkenmerken.bodemkleur@value;ui.bulkkenmerken.ladekleur@value;ui.bulkkenmerken.matantislipfiberkleur@value;ui.bulkkenmerken.matantislipflockkleur@value;ui.bulkkenmerken.matmateriaal@value;ui.bulkkenmerken.matvinylfiberglasskleur@value;ui.bulkkenmerken.opvullijstkleur@value;ui.bulkkenmerken.voorwandtypevanebinnenlade@value;ui.bulkkenmerken.voorwandtypevanmbinnenlade@value;ui.bulkkenmerken.voorwandtypevankbinnenlade@value;ui.bulkkenmerken.zijwandverhogingrelingkleur@value;ui.bulkkenmerken.zijwandtype@value; true local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); UI.Kenmerken.RugwandMateriaal@visible = _IsIntern; UI.Kenmerken.RugwandMateriaal@mandatory = _IsIntern; UI.Kenmerken.ZijwandVerhogingInschuifElementKleur@visible = false; UI.Kenmerken.ZijwandVerhogingMateriaal@visible = false; UI.Kenmerken.ZijwandVerhogingRelingKleur@visible = false; UI.Kenmerken.ZijwandVerhogingInschuifElementKleur@mandatory = false; UI.Kenmerken.ZijwandVerhogingMateriaal@mandatory = false; UI.Kenmerken.ZijwandVerhogingRelingKleur@mandatory = false; local boolean _visible = false; UI.Kenmerken.BodemKleur@option("S")@visible = _visible ; UI.Kenmerken.LadeHoogte@option("F")@visible = _visible ; UI.Kenmerken.RugHoogte@option("F")@visible = _visible ; UI.Kenmerken.LadeDiepte@option("650")@visible = _visible ; UI.Kenmerken.ZijwandType@option("RelingEnInschuifElement")@visible = _visible; //Bulk UI.BulkKenmerken.ZijwandVerhogingInschuifElementKleur@visible = false; UI.BulkKenmerken.ZijwandVerhogingMateriaal@visible = false; UI.BulkKenmerken.ZijwandVerhogingRelingKleur@visible = false; UI.BulkKenmerken.ZijwandVerhogingInschuifElementKleur@mandatory = false; UI.BulkKenmerken.ZijwandVerhogingMateriaal@mandatory = false; UI.BulkKenmerken.ZijwandVerhogingRelingKleur@mandatory = false; UI.BulkKenmerken.BodemKleur@option("S")@visible = _visible ; UI.BulkKenmerken.LadeHoogte@option("F")@visible = _visible ; UI.BulkKenmerken.LadeDiepte@option("650")@visible = _visible ; UI.BulkKenmerken.ZijwandType@option("RelingEnInschuifElement")@visible = _visible; Beperkingen Intern/Extern ;ui.kenmerken.rugwandmateriaal@visible;ui.kenmerken.rugwandmateriaal@mandatory;ui.kenmerken.zijwandverhoginginschuifelementkleur@visible;ui.kenmerken.zijwandverhogingmateriaal@visible;ui.kenmerken.zijwandverhogingrelingkleur@visible;ui.kenmerken.zijwandverhoginginschuifelementkleur@mandatory;ui.kenmerken.zijwandverhogingmateriaal@mandatory;ui.kenmerken.zijwandverhogingrelingkleur@mandatory;ui.kenmerken.bodemkleur@options;ui.kenmerken.ladehoogte@options;ui.kenmerken.rughoogte@options;ui.kenmerken.ladediepte@options;ui.kenmerken.zijwandtype@options;ui.bulkkenmerken.zijwandverhoginginschuifelementkleur@visible;ui.bulkkenmerken.zijwandverhogingmateriaal@visible;ui.bulkkenmerken.zijwandverhogingrelingkleur@visible;ui.bulkkenmerken.zijwandverhoginginschuifelementkleur@mandatory;ui.bulkkenmerken.zijwandverhogingmateriaal@mandatory;ui.bulkkenmerken.zijwandverhogingrelingkleur@mandatory;ui.bulkkenmerken.bodemkleur@options;ui.bulkkenmerken.ladehoogte@options;ui.bulkkenmerken.ladediepte@options;ui.bulkkenmerken.zijwandtype@options; true STATE.Initialized = false; Einde initialisatie ;state.initialized@value; BEHAVIOR.IsEconWeb if ((BEHAVIOR.OperationMode == "CreateConfig") and ((CONFIG.Bulkwijzigingen.ReferentieConfiguratieId <> "") and (CONFIG.Bulkwijzigingen.BulkConfiguratieId <> ""))) then BEHAVIOR.OperationMode = "WebCreateBulkWijzigingenToepassen"; aaaDebugInfo = BEHAVIOR.OperationMode; end if; if ((BEHAVIOR.ContextName == "WebShopNew") and (CONFIG.Bulkwijzigingen.IsBulkConfiguratie)) then BEHAVIOR.ContextName = "WebShopNewBulkIngave"; end if; Gedrag OperationMode en ContextName (Web) ;behavior.operationmode@value;aaadebuginfo@value;behavior.contextname@value; 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 local boolean _IsKlantDKG = (CONFIG.Settings.KlantId == "23112"); local boolean _IsExtern = (CONFIG.Settings.OperationMode == "Extern"); local boolean _IsZijwandTypePure = (DATA.Kenmerken.ZijwandType == "Pure"); local string _TriggerDummy = DATA.Kenmerken.LadeKleur; if (_IsZijwandTypePure and (DATA.Kenmerken.LadeHoogte == "E")) then DATA.Kenmerken.LadeDiepte@option("450")@valid = true; DATA.Kenmerken.LadeDiepte@option("650")@valid = true; if (DATA.Kenmerken.LadeKleur == "OG-M") then if _IsKlantDKG then DATA.Kenmerken.LadeDiepte@option("600")@valid = true; DATA.Kenmerken.LadeDiepte@option("350")@valid = false; DATA.Kenmerken.LadeDiepte@option("450")@valid = false; else DATA.Kenmerken.LadeDiepte@option("600")@valid = false; DATA.Kenmerken.LadeDiepte@option("350")@valid = true; DATA.Kenmerken.LadeDiepte@option("450")@valid = true; end if; end if; if (DATA.Kenmerken.LadeKleur == "IG-M") then DATA.Kenmerken.LadeDiepte@option("450")@valid = false; DATA.Kenmerken.LadeDiepte@option("650")@valid = false; if _IsKlantDKG then DATA.Kenmerken.LadeDiepte@option("600")@valid = true; DATA.Kenmerken.LadeDiepte@option("350")@valid = false; else DATA.Kenmerken.LadeDiepte@option("600")@valid = false; DATA.Kenmerken.LadeDiepte@option("350")@valid = true; end if; end if; DATA.Kenmerken.LadeDiepte@option("300")@valid = false; DATA.Kenmerken.LadeDiepte@option("550")@valid = false; end if; Gedrag LadeDiepte ;data.kenmerken.ladediepte@valids; true local Boolean _BEHAVIOR_IsRugHoogteZichtbaar; local Boolean _BEHAVIOR_IsRugHoogteMandatory; local Boolean _BEHAVIOR_IsAfwijkendeRugHoogteEnabled; _BEHAVIOR_IsAfwijkendeRugHoogteEnabled = not(DATA.Kenmerken.Toepassing in {"SP";"SY"}); if ((DATA.Kenmerken.HeeftAfwijkendeRugHoogte) or (DATA.Kenmerken.Toepassing in {"SP";"SY"}) ) then _BEHAVIOR_IsRugHoogteMandatory = true; else _BEHAVIOR_IsRugHoogteMandatory = false; end if; if (DATA.Kenmerken.HeeftAfwijkendeRugHoogte and BEHAVIOR.IsEconAX) then _BEHAVIOR_IsRugHoogteZichtbaar = true; else _BEHAVIOR_IsRugHoogteZichtbaar = false; end if; UI.Kenmerken.RugHoogte@mandatory = _BEHAVIOR_IsRugHoogteMandatory; UI.Kenmerken.RugHoogte@visible = _BEHAVIOR_IsRugHoogteZichtbaar; UI.Kenmerken.HeeftAfwijkendeRugHoogte@enabled = _BEHAVIOR_IsAfwijkendeRugHoogteEnabled; Gedrag Rughoogte ;ui.kenmerken.rughoogte@mandatory;ui.kenmerken.rughoogte@visible;ui.kenmerken.heeftafwijkenderughoogte@enabled; true local Boolean _BEHAVIOR_IsRugHoogteNValid; local string Dummytrigger = DATA.Kenmerken.RugHoogte; if not(DATA.Kenmerken.LadeHoogte in {"M";"K";"E";"F"}) then _BEHAVIOR_IsRugHoogteNValid = true; else _BEHAVIOR_IsRugHoogteNValid = false; end if; DATA.Kenmerken.RugHoogte@option("N")@valid = _BEHAVIOR_IsRugHoogteNValid ; Gedrag Rughoogte N ;data.kenmerken.rughoogte@valids; true local Boolean _IsExportPersonalityKlant = BEHAVIOR.IsExportPersonality; local Boolean _BEHAVIOR_IsFrontbevestigingZichtbaar; local Boolean _BEHAVIOR_IsFrontbevestigingMandatory; if (DATA.Kenmerken.IsBinnenlade) then _BEHAVIOR_IsFrontbevestigingZichtbaar = false; else _BEHAVIOR_IsFrontbevestigingZichtbaar = true; end if; if (DATA.Kenmerken.IsBinnenlade) then _BEHAVIOR_IsFrontbevestigingMandatory = false; else _BEHAVIOR_IsFrontbevestigingMandatory = true; end if; if BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"} then _BEHAVIOR_IsFrontbevestigingMandatory = false; _BEHAVIOR_IsFrontbevestigingZichtbaar = false end if; UI.Kenmerken.FrontBevestiging@mandatory = _BEHAVIOR_IsFrontbevestigingMandatory; UI.Kenmerken.FrontBevestiging@visible = _BEHAVIOR_IsFrontbevestigingZichtbaar; UI.Kenmerken.FrontBevestiging@option("E")@visible = (_BEHAVIOR_IsFrontbevestigingZichtbaar and not(Config.Settings.IsExportKlant) and not(_IsExportPersonalityKlant)); UI.Kenmerken.FrontBevestiging@option("D")@visible = (_BEHAVIOR_IsFrontbevestigingZichtbaar and not(Config.Settings.IsExportKlant) and not(_IsExportPersonalityKlant)); UI.BulkKenmerken.FrontBevestiging@option("E")@visible = (not(Config.Settings.IsExportKlant) and not(_IsExportPersonalityKlant)); UI.BulkKenmerken.FrontBevestiging@option("D")@visible = (not(Config.Settings.IsExportKlant) and not(_IsExportPersonalityKlant)); Gedrag Frontbevestiging ;ui.kenmerken.frontbevestiging@mandatory;ui.kenmerken.frontbevestiging@visible;ui.kenmerken.frontbevestiging@options;ui.bulkkenmerken.frontbevestiging@options; true local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); UI.Kenmerken.HeeftAfwijkendeRugHoogte@visible = ((DATA.Kenmerken.LadeHoogte <> "N") and _IsIntern) ; Gedrag HeeftAftwijkendeRughoogte ;ui.kenmerken.heeftafwijkenderughoogte@visible; true local Boolean _BEHAVIOR_IsHeeftZijstabiliseringZichtbaar; if not(DATA.Kenmerken.Toepassing in {"SP";"SY"}) then _BEHAVIOR_IsHeeftZijstabiliseringZichtbaar = true; else _BEHAVIOR_IsHeeftZijstabiliseringZichtbaar = false; end if; UI.Kenmerken.HeeftZijstabilisering@visible = _BEHAVIOR_IsHeeftZijstabiliseringZichtbaar; Gedrag HeeftZijstabilisering ;ui.kenmerken.heeftzijstabilisering@visible; true local Boolean _BEHAVIOR_IsNMBoxcapZichtbaar ; if (DATA.Kenmerken.ZijwandType == "Boxcap") then _BEHAVIOR_IsNMBoxcapZichtbaar = true; else _BEHAVIOR_IsNMBoxcapZichtbaar = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Boxcap = false; end if; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "Boxcap") then UI.Kenmerken.NietMeeleveren(i)@visible = _BEHAVIOR_IsNMBoxcapZichtbaar ; end if; end index; Gedrag NietMeeleveren Boxcap ; true local Boolean _BEHAVIOR_IsNMBoxcoverZichtbaar ; if (DATA.Kenmerken.ZijwandType == "Boxcover") then _BEHAVIOR_IsNMBoxcoverZichtbaar = true; else _BEHAVIOR_IsNMBoxcoverZichtbaar = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Boxcover = false; end if; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "Boxcover") then UI.Kenmerken.NietMeeleveren(i)@visible = _BEHAVIOR_IsNMBoxcoverZichtbaar ; end if; end index; Gedrag NietMeeleveren Boxcover ; true local Boolean _BEHAVIOR_IsNMFrontbevestigingBovenZichtbaar ; if (DATA.Kenmerken.IsBinnenlade) then _BEHAVIOR_IsNMFrontbevestigingBovenZichtbaar = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestigingBoven = false; else _BEHAVIOR_IsNMFrontbevestigingBovenZichtbaar = true; end if; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "FrontBevestigingBoven") then UI.Kenmerken.NietMeeleveren(i)@visible = _BEHAVIOR_IsNMFrontbevestigingBovenZichtbaar ; end if; if (UI.Kenmerken.NietMeeleveren(i).Id == "FrontBevestigingOnder") then UI.Kenmerken.NietMeeleveren(i)@visible = false; UI.BulkKenmerken.NietMeeleveren_FrontBevestigingOnder@visible = false; end if; end index; Gedrag NietMeeleveren FrontBevestiging ;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestigingboven@value; true local Boolean _BEHAVIOR_IsNMInschuifElementVoorZichtbaar ; if ((DATA.Kenmerken.VoorwandType == "GlasHoog") or (DATA.Kenmerken.VoorwandType == "GlasLaag")) then _BEHAVIOR_IsNMInschuifElementVoorZichtbaar = true; else _BEHAVIOR_IsNMInschuifElementVoorZichtbaar = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementVoor = false; end if; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "InschuifElementVoor") then UI.Kenmerken.NietMeeleveren(i)@visible = _BEHAVIOR_IsNMInschuifElementVoorZichtbaar ; end if; end index; Gedrag NietMeeleveren InschuifElementVoor ; true local Boolean _BEHAVIOR_IsNMInschuifElementZijkantZichtbaar ; if ((DATA.Kenmerken.ZijwandType == "Boxcover") or (DATA.Kenmerken.ZijwandType == "RelingEnInschuifElement")) then _BEHAVIOR_IsNMInschuifElementZijkantZichtbaar = true; else _BEHAVIOR_IsNMInschuifElementZijkantZichtbaar = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementZijkant = false; end if; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "InschuifElementZijkant") then UI.Kenmerken.NietMeeleveren(i)@visible = _BEHAVIOR_IsNMInschuifElementZijkantZichtbaar ; end if; end index; Gedrag NietMeeleveren InschuifElementZijkant ; true local Boolean _BEHAVIOR_IsNMRelingVoorZichtbaar ; if (DATA.Kenmerken.IsBinnenLade and (DATA.Kenmerken.VoorwandType == "Reling")) then _BEHAVIOR_IsNMRelingVoorZichtbaar = true; else _BEHAVIOR_IsNMRelingVoorZichtbaar = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_RelingVoor = false; end if; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "RelingVoor") then UI.Kenmerken.NietMeeleveren(i)@visible = false; //_BEHAVIOR_IsNMRelingVoorZichtbaar; end if; end index; UI.BulkKenmerken.NietMeeleveren_RelingVoor@visible = false; // _BEHAVIOR_IsNMRelingVoorZichtbaar; Gedrag NietMeeleveren RelingVoor ;ui.bulkkenmerken.nietmeeleveren_relingvoor@visible; true local Boolean _BEHAVIOR_IsNMRelingZijkantZichtbaar ; if ((DATA.Kenmerken.ZijwandType == "Reling") or (DATA.Kenmerken.ZijwandType == "RelingEnInschuifElement")) then _BEHAVIOR_IsNMRelingZijkantZichtbaar = true; else _BEHAVIOR_IsNMRelingZijkantZichtbaar = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_RelingZijkant = false; end if; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "RelingZijkant") then UI.Kenmerken.NietMeeleveren(i)@visible = _BEHAVIOR_IsNMRelingZijkantZichtbaar; end if; end index; Gedrag NietMeeleveren RelingZijkant ; (Config.Settings.KlantId == "23112") local Boolean _BEHAVIOR_IsNMTOBZichtbaar ; local boolean TOBOnderdelenSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; local boolean TOBEenhedenSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionEenheden; local boolean TOBMeenemersSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionMeenemers; local boolean TOBStangSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; local boolean _VorigeWaardeNMTiponBlumotionOnderdelen = UI.PropertiesEnkelVoorInCodeVanRules.TiponBlumotionOnderdelenVorigeWaarde; local boolean AlleIndividueleTOBSelected = (TOBStangSelected and TOBEenhedenSelected and TOBMeenemersSelected); local collection _TOBProducten = {"TiponBlumotionOnderdelen";"TiponBlumotionEenheden"; "TiponBlumotionMeenemers"; "TiponBlumotionSynchronisatieStang"}; local collection _OnzichtbareTOBProducten = {"TiponBlumotionSetEenhedenEnMeenemers"}; if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then _BEHAVIOR_IsNMTOBZichtbaar = true; else _BEHAVIOR_IsNMTOBZichtbaar = false; end if; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id in _TOBProducten) then UI.Kenmerken.NietMeeleveren(i)@visible = _BEHAVIOR_IsNMTOBZichtbaar; end if; end index; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id in _OnzichtbareTOBProducten) then UI.Kenmerken.NietMeeleveren(i)@visible = false; end if; end index; if (not(DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen) and AlleIndividueleTOBSelected) then if(_VorigeWaardeNMTiponBlumotionOnderdelen) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionEenheden = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionMeenemers = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = false; AlleIndividueleTOBSelected = false; else DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen = true; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "TiponBlumotionOnderdelen") then UI.Kenmerken.NietMeeleveren(i).IsSelected@default = true; end if; end index; 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_TiponBlumotionEenheden = true; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionMeenemers = true; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = true; end if; UI.PropertiesEnkelVoorInCodeVanRules.TiponBlumotionOnderdelenVorigeWaarde = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; Gedrag NietMeeleveren TOB (Klant DKG) ;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotiononderdelen@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotioneenheden@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;ui.propertiesenkelvoorincodevanrules.tiponblumotiononderdelenvorigewaarde@value; (Config.Settings.KlantId == "23112") UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@visible = false; Gedrag NietMeeleveren TOB (Klant DKG) (bulk) ;ui.bulkkenmerken.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@visible; not(Config.Settings.KlantId == "23112") local Boolean _BEHAVIOR_IsNMTOBZichtbaar; local boolean TOBOnderdelenSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; local boolean TOBSetEenhedenEnMeenemersSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers; local boolean TOBStangSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; local boolean _VorigeWaardeNMTiponBlumotionOnderdelen = UI.PropertiesEnkelVoorInCodeVanRules.TiponBlumotionOnderdelenVorigeWaarde; local boolean AlleIndividueleTOBSelected = (TOBStangSelected and TOBSetEenhedenEnMeenemersSelected); local collection _TOBProducten = {"TiponBlumotionOnderdelen";"TiponBlumotionSynchronisatieStang"; "TiponBlumotionSetEenhedenEnMeenemers"}; local collection _OnzichtbareTOBProducten = {"TiponBlumotionEenheden"; "TiponBlumotionMeenemers"}; if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then _BEHAVIOR_IsNMTOBZichtbaar = true; else _BEHAVIOR_IsNMTOBZichtbaar = false; end if; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id in _TOBProducten) then UI.Kenmerken.NietMeeleveren(i)@visible = _BEHAVIOR_IsNMTOBZichtbaar; end if; end index; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id in _OnzichtbareTOBProducten) then UI.Kenmerken.NietMeeleveren(i)@visible = false; end if; end index; if (not(DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen) and AlleIndividueleTOBSelected) then if(_VorigeWaardeNMTiponBlumotionOnderdelen) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = false; AlleIndividueleTOBSelected = false; else DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen = true; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "TiponBlumotionOnderdelen") then UI.Kenmerken.NietMeeleveren(i).IsSelected@default = true; end if; end index; 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_TiponBlumotionSetEenhedenEnMeenemers = true; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = true; end if; UI.PropertiesEnkelVoorInCodeVanRules.TiponBlumotionOnderdelenVorigeWaarde = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; Gedrag NietMeeleveren TOB (Klant niet DKG) ;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotiononderdelen@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;ui.propertiesenkelvoorincodevanrules.tiponblumotiononderdelenvorigewaarde@value; not(Config.Settings.KlantId == "23112") UI.BulkKenmerken.NietMeeleveren_TiponBlumotionEenheden@visible = false; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionMeenemers@visible = false; Gedrag NietMeeleveren TOB (Klant niet DKG) (bulk) ;ui.bulkkenmerken.nietmeeleveren_tiponblumotioneenheden@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionmeenemers@visible; true local Boolean _BEHAVIOR_IsNMZijstabiliseringZichtbaar ; if (not(DATA.Kenmerken.HeeftZijstabilisering) or not(UI.Kenmerken.HeeftZijstabilisering@visible)) then _BEHAVIOR_IsNMZijstabiliseringZichtbaar = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Zijstabilisering = false; else _BEHAVIOR_IsNMZijstabiliseringZichtbaar = true; end if; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "Zijstabilisering") then UI.Kenmerken.NietMeeleveren(i)@visible = false; // _BEHAVIOR_IsNMZijstabiliseringZichtbaar ; end if; end index; UI.BulkKenmerken.NietMeeleveren_Zijstabilisering@visible = false; // _BEHAVIOR_IsNMZijstabiliseringZichtbaar ; Gedrag NietMeeleveren Zijstabilisering ;data.kenmerken.nietmeeleveren.nietmeeleveren_zijstabilisering@value;ui.bulkkenmerken.nietmeeleveren_zijstabilisering@visible; (BEHAVIOR.OperationMode == "New") and not((BEHAVIOR.ContextName == "AxNewBulkIngave") or (BEHAVIOR.ContextName == "WebShopNewBulkIngave")) local string _VorigeSoortVerpakking = UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde; UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde = UI.Kenmerken.VerpakkingType; if (BEHAVIOR.IsInteractive) then if (_VorigeSoortVerpakking <> UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde) and (_VorigeSoortVerpakking <> "") then if (UI.Kenmerken.VerpakkingType == "Pallet" or UI.Kenmerken.VerpakkingType == "VHoss") then index i of UI.Kenmerken.NietMeeleveren if ((UI.Kenmerken.NietMeeleveren(i).Id <> "RelingVoor") and (UI.Kenmerken.NietMeeleveren(i).Id <> "Zijstabilisering")) then UI.Kenmerken.NietMeeleveren(i).IsSelected = true; else UI.Kenmerken.NietMeeleveren(i).IsSelected = false; end if; end index; end if; if ((UI.Kenmerken.VerpakkingType <> "Pallet") and (UI.Kenmerken.VerpakkingType <> "VHoss") and not(_VorigeSoortVerpakking in {"V1";"Probox";""})) then index i of UI.Kenmerken.NietMeeleveren UI.Kenmerken.NietMeeleveren(i).IsSelected = false; end index; end if; end if; end if; Gedrag NietMeeleveren opties selecteren indien VerpakkingType VHoss/Pallet ;ui.propertiesenkelvoorincodevanrules.verpakkingtypevorigewaarde@value; ((BEHAVIOR.ContextName == "AxNewBulkIngave") or (BEHAVIOR.ContextName == "WebShopNewBulkIngave")) local string _VorigeSoortVerpakking = UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde; UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde = UI.BulkKenmerken.VerpakkingType; if (BEHAVIOR.IsInteractive) then if (_VorigeSoortVerpakking <> UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde) and (_VorigeSoortVerpakking <> "") then if (UI.BulkKenmerken.VerpakkingType == "Pallet" or UI.BulkKenmerken.VerpakkingType == "VHoss") then UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen = "True"; UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten = "True"; UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder = "True"; UI.BulkKenmerken.NietMeeleveren_Boxcap = "True"; UI.BulkKenmerken.NietMeeleveren_Boxcover = "True"; UI.BulkKenmerken.NietMeeleveren_FrontBevestigingBoven = "True"; UI.BulkKenmerken.NietMeeleveren_FrontBevestigingOnder = "True"; UI.BulkKenmerken.NietMeeleveren_FrontStabilisator = "True"; UI.BulkKenmerken.NietMeeleveren_Geleider = "True"; UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor = "True"; UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant = "True"; UI.BulkKenmerken.NietMeeleveren_Opvullijst = "True"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionOnderdelen = "True"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = "True"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang = "True"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionMeenemers = "True"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionEenheden = "True"; UI.BulkKenmerken.NietMeeleveren_Zijstabilisering = "True"; end if; if ((UI.BulkKenmerken.VerpakkingType <> "Pallet") and (UI.BulkKenmerken.VerpakkingType <> "VHoss") and not(_VorigeSoortVerpakking in {"V1";"Probox";""})) then UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_Boxcap = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_Boxcover = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_FrontBevestigingBoven = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_FrontBevestigingOnder = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_FrontStabilisator = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_Geleider = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_Opvullijst = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_RelingVoor = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_RelingZijkant = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionOnderdelen = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionMeenemers = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionEenheden = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_Zijstabilisering = "NietWijzigen"; end if; end if; end if; Gedrag NietMeeleveren opties selecteren indien VerpakkingType VHoss/Pallet (bulkConfig) ;ui.propertiesenkelvoorincodevanrules.verpakkingtypevorigewaarde@value; DATA.Kenmerken.Toepassing == "L" local boolean _BEHAVIOR_IsRugwandMateriaalHoutValid; local boolean _BEHAVIOR_IsRugwandMateriaalStaalValid; If (DATA.Kenmerken.LadeHoogte <> "" and DATA.Kenmerken.LadeKleur <> "" and DATA.Kenmerken.CorpusBreedte <> 0 and DATA.Kenmerken.RugwandMateriaal == "Staal") then _BEHAVIOR_IsRugwandMateriaalHoutValid = true; if (STATE.BestaatStalenRugLoaded == "WebServiceIsGeladen") then if (CONFIG.Settings.StalenRugBeschikbaar.BestaatStalenRug) then _BEHAVIOR_IsRugwandMateriaalStaalValid = true; else _BEHAVIOR_IsRugwandMateriaalStaalValid = false; end if; else _BEHAVIOR_IsRugwandMateriaalStaalValid = false; end if; else _BEHAVIOR_IsRugwandMateriaalHoutValid = true; _BEHAVIOR_IsRugwandMateriaalStaalValid = true; end if; DATA.Kenmerken.RugwandMateriaal@option("Hout")@valid = _BEHAVIOR_IsRugwandMateriaalHoutValid; DATA.Kenmerken.RugwandMateriaal@option("Staal")@valid = _BEHAVIOR_IsRugwandMateriaalStaalValid; local string TriggerDummy = DATA.Kenmerken.RugwandMateriaal; Gedrag RugwandMateriaal toepassing L ;data.kenmerken.rugwandmateriaal@valids; true local Boolean _BEHAVIOR_IsZijwandTypeZichtbaar; local string _TriggerDummy = DATA.Kenmerken.LadeHoogte; if ((DATA.Kenmerken.LadeHoogte == "E") or (DATA.Kenmerken.LadeHoogte == "F")) then _BEHAVIOR_IsZijwandTypeZichtbaar = true; else _BEHAVIOR_IsZijwandTypeZichtbaar = false; end if; UI.Kenmerken.ZijwandType@visible = _BEHAVIOR_IsZijwandTypeZichtbaar; DATA.Kenmerken.ZijwandType@option("Pure")@valid = ((BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive) or not((DATA.Kenmerken.LadeHoogte == "E") and BEHAVIOR.IsEconWeb)); UI.Kenmerken.ZijwandType@option("Pure")@visible = DATA.Kenmerken.ZijwandType@option("Pure")@valid; DATA.Kenmerken.ZijwandType@option("Boxcap")@valid = (DATA.Kenmerken.LadeHoogte in {"E";"F"}); DATA.Kenmerken.ZijwandType@option("Boxcover")@valid = (DATA.Kenmerken.LadeHoogte in {"E";"F"}); DATA.Kenmerken.ZijwandType@option("Reling")@valid = (DATA.Kenmerken.LadeHoogte in {"E";"F"}); DATA.Kenmerken.ZijwandType@option("RelingEnInschuifElement")@valid = (DATA.Kenmerken.LadeHoogte in {"E";"F"}); Gedrag ZijwandType ;ui.kenmerken.zijwandtype@visible;data.kenmerken.zijwandtype@valids;ui.kenmerken.zijwandtype@options; true local Boolean _BEHAVIOR_IsZijkantHoogteZichtbaar; /* if ((DATA.Kenmerken.LadeHoogte == "E") or (DATA.Kenmerken.LadeHoogte == "F")) then _BEHAVIOR_IsZijkantHoogteZichtbaar = true; else _BEHAVIOR_IsZijkantHoogteZichtbaar = false; end if; */ UI.Kenmerken.ZijkantHoogte@visible = false; //_BEHAVIOR_IsZijkantHoogteZichtbaar; UI.BulkKenmerken.ZijkantHoogte@visible = false; //_BEHAVIOR_IsZijkantHoogteZichtbaar; Gedrag ZijkantHoogte ;ui.kenmerken.zijkanthoogte@visible;ui.bulkkenmerken.zijkanthoogte@visible; STATE.VerpakkingTooltipsTrigger local string _SelectedOption = ""; if not(Config.Settings.VerpakkingTooltipsTonen) then _SelectedOption = UI.Kenmerken.VerpakkingType; for i = 1 to len(DATA.Kenmerken.VerpakkingType@options) UI.Kenmerken.VerpakkingType = DATA.Kenmerken.VerpakkingType@option(i)@id; UI.Kenmerken.VerpakkingType.Url = ""; end for; UI.Kenmerken.VerpakkingType = _SelectedOption; _SelectedOption = UI.BulkKenmerken.VerpakkingType; for i = 1 to len(DATA.BulkKenmerken(1).VerpakkingType@options) UI.BulkKenmerken.VerpakkingType = DATA.BulkKenmerken(1).VerpakkingType@option(i)@id; UI.BulkKenmerken.VerpakkingType.Url = ""; end for; UI.BulkKenmerken.VerpakkingType = _SelectedOption; end if; STATE.VerpakkingTooltipsTrigger = false; Gedrag Verpakkingen Tooltips instellen ;ui.kenmerken.verpakkingtype@value;ui.bulkkenmerken.verpakkingtype@value;state.verpakkingtooltipstrigger@value; true local boolean _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar; if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive) then _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = true; else _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = false; end if; UI.Kenmerken.SneltoetsenNietMeeleveren@visible = _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar; Gedrag knoppen selecteren niet meeleveren ;ui.kenmerken.sneltoetsennietmeeleveren@visible; 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 string Dummytrigger1 = DATA.Kenmerken.VerpakkingType; local string Dummytrigger2 = DATA.Kenmerken.ProductieWijze; local boolean _BEHAVIOR_IsProductiewijzeZichtbaar; if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive == true) then _BEHAVIOR_IsProductiewijzeZichtbaar = true; else _BEHAVIOR_IsProductiewijzeZichtbaar = false; end if; UI.Kenmerken.Productiewijze@visible = _BEHAVIOR_IsProductiewijzeZichtbaar; UI.Kenmerken.Productiewijze@mandatory = _BEHAVIOR_IsProductiewijzeZichtbaar; Gedrag ProductieWijze ;ui.kenmerken.productiewijze@visible;ui.kenmerken.productiewijze@mandatory; true local boolean _BEHAVIOR_IsVerpakkingVHossZichtbaar; local boolean _BEHAVIOR_IsVerpakkingPalletZichtbaar; local string _triggerDummy1 = DATA.Kenmerken.Productiewijze; local string _triggerDummy2 = DATA.Kenmerken.VerpakkingType; if (CONFIG.Settings.OperationMode == "Intern") or (CONFIG.InputMode == "CreateConfig") or (BEHAVIOR.IsEconAx) then _BEHAVIOR_IsVerpakkingVHossZichtbaar = true; _BEHAVIOR_IsVerpakkingPalletZichtbaar = true; else _BEHAVIOR_IsVerpakkingVHossZichtbaar = CONFIG.Settings.VerpakkingVHossToegelaten; _BEHAVIOR_IsVerpakkingPalletZichtbaar = CONFIG.Settings.VerpakkingPalletToegelaten; end if; UI.Kenmerken.VerpakkingType@option("VHoss")@visible = _BEHAVIOR_IsVerpakkingVHossZichtbaar; UI.Kenmerken.VerpakkingType@option("Pallet")@visible = _BEHAVIOR_IsVerpakkingPalletZichtbaar; UI.BulkKenmerken.VerpakkingType@option("VHoss")@visible = _BEHAVIOR_IsVerpakkingVHossZichtbaar; UI.BulkKenmerken.VerpakkingType@option("Pallet")@visible = _BEHAVIOR_IsVerpakkingPalletZichtbaar; Gedrag VerpakkingType ;ui.kenmerken.verpakkingtype@options;ui.bulkkenmerken.verpakkingtype@options; BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"} local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); UI.Kenmerken.LadeKleur@mandatory = false; UI.Kenmerken.BodemKleur@mandatory = false; UI.Kenmerken.Corpusbreedte@mandatory = false; UI.Kenmerken.LadeDiepte@mandatory = false; UI.Kenmerken.LadeHoogte@mandatory = false; UI.Kenmerken.GeleiderTechnologie@mandatory = false; UI.Kenmerken.Draagkracht@mandatory = false; UI.Kenmerken.ZijwandType@mandatory = false; UI.Kenmerken.VerpakkingType@mandatory = false; UI.Kenmerken.RugwandMateriaal@mandatory = false; UI.Kenmerken.Toepassing@mandatory = false; UI.Lijn.Aantal@mandatory = false; $BulkToepassingPane@visible = _IsIntern; $BulkDimensiesPane@visible = _IsIntern; $BulkKleurPane@visible = true; $BulkAfwerkingPane@visible = true; $BulkOptiesPane@visible = true; $BulkMatPane@visible = true; $BulkVerpakkingPane@visible = true; $ToepassingPane@visible = false; $Kleurpane@visible = false; $DimensiesPane@visible = false; $AfwerkingPane@visible = false; $OptiesPane@visible = false; $MatPane@visible = false; $VerpakkingPane@visible = false; $MaatwerkViewerPane@visible = false; local string dummy1 = DATA.BulkKenmerken(1).IsBinnenlade; local string dummy2 = DATA.BulkKenmerken(1).LadeHoogte ; UI.BulkKenmerken.VoorWandTypeVanEBinnenlade@visible = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "E")); UI.BulkKenmerken.VoorWandTypeVanMBinnenlade@visible = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "M")); UI.BulkKenmerken.VoorWandTypeVanKBinnenlade@visible = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "K")); UI.BulkKenmerken.VoorWandTypeVanEBinnenlade@mandatory = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "E")); UI.BulkKenmerken.VoorWandTypeVanMBinnenlade@mandatory = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "M")); UI.BulkKenmerken.VoorWandTypeVanKBinnenlade@mandatory = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "K")); UI.BulkKenmerken.Meenemerset@visible = (DATA.BulkKenmerken(1).IsBinnenlade == "True"); UI.BulkKenmerken.Frontbevestiging@visible = (not(DATA.BulkKenmerken(1).IsBinnenlade == "True") and not(Config.Settings.FrontBevestigingVerbergen)); UI.BulkKenmerken.CorpusWanddikte@visible = (DATA.BulkKenmerken(1).IsBinnenbreedte == "False"); UI.BulkKenmerken.LadeHoogte@mandatory = (DATA.BulkKenmerken(1).IsBinnenlade == "True"); UI.BulkKenmerken.DraagKracht@visible = _IsIntern; if (UI.BulkKenmerken.CorpusBreedte.Wijzigen == "Wijzigen") then UI.BulkKenmerken.CorpusBreedte.Breedte@visible = true; else UI.BulkKenmerken.CorpusBreedte.Breedte@visible = false; UI.BulkKenmerken.CorpusBreedte.Breedte@default = 0; end if; if ((UI.BulkKenmerken.CorpusBreedte.Wijzigen == "Wijzigen") and (DATA.BulkKenmerken(1).IsBinnenBreedte == "NietWijzigen")) then UI.BulkKenmerken.IsBinnenbreedte@default = "True"; end if; if (UI.BulkKenmerken.CorpusBreedte.Wijzigen == "NietWijzigen") then UI.BulkKenmerken.IsBinnenbreedte@default = "NietWijzigen"; end if; UI.BulkKenmerken.CorpusBreedte.Breedte@enabled = (UI.BulkKenmerken.CorpusBreedte.Wijzigen == "Wijzigen"); UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen@visible = (((_IsIntern) or (("AfdekkapBinnen" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten@visible = (((_IsIntern) or (("AfdekkapBuiten" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder@visible = (((_IsIntern) or (("AfdekkapRugwandHouder" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_Boxcap@visible = (((_IsIntern) or (("Boxcap" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_Boxcover@visible = (((_IsIntern) or (("Boxcover" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_FrontBevestigingOnder@visible = (((_IsIntern) or (("FrontBevestigingOnder" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_FrontBevestigingBoven@visible = (((_IsIntern) or (("FrontBevestigingBoven" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_FrontStabilisator@visible = (((_IsIntern) or (("FrontStabilisator" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_Geleider@visible = (((_IsIntern) or (("Geleider" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor@visible = (((_IsIntern) or (("InschuifElementVoor" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant@visible = (((_IsIntern) or (("InschuifElementZijkant" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_Opvullijst@visible = (((_IsIntern) or (("Opvullijst" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); //UI.BulkKenmerken.NietMeeleveren_RelingVoor@visible = (((_IsIntern) or (("RelingVoor" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_RelingZijkant@visible = (((_IsIntern) or (("RelingZijkant" 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)); //UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@visible = (((_IsIntern) or (("TiponBlumotionSetEenhedenEnMeenemers" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang@visible = (((_IsIntern) or (("TiponBlumotionSynchronisatieStang" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); //UI.BulkKenmerken.NietMeeleveren_TiponBlumotionMeenemers@visible = (((_IsIntern) or (("TiponBlumotionMeenemers" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); //UI.BulkKenmerken.NietMeeleveren_TiponBlumotionEenheden@visible = (((_IsIntern) or (("TiponBlumotionEenheden" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); //UI.BulkKenmerken.NietMeeleveren_Zijstabilisering@visible = (((_IsIntern) or (("Zijstabilisering" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); Gedrag Bulkkenmerkconfigurator ;ui.kenmerken.ladekleur@mandatory;ui.kenmerken.bodemkleur@mandatory;ui.kenmerken.corpusbreedte@mandatory;ui.kenmerken.ladediepte@mandatory;ui.kenmerken.ladehoogte@mandatory;ui.kenmerken.geleidertechnologie@mandatory;ui.kenmerken.draagkracht@mandatory;ui.kenmerken.zijwandtype@mandatory;ui.kenmerken.verpakkingtype@mandatory;ui.kenmerken.rugwandmateriaal@mandatory;ui.kenmerken.toepassing@mandatory;ui.lijn.aantal@mandatory;ui.bulkkenmerken.voorwandtypevanebinnenlade@visible;ui.bulkkenmerken.voorwandtypevanmbinnenlade@visible;ui.bulkkenmerken.voorwandtypevankbinnenlade@visible;ui.bulkkenmerken.voorwandtypevanebinnenlade@mandatory;ui.bulkkenmerken.voorwandtypevanmbinnenlade@mandatory;ui.bulkkenmerken.voorwandtypevankbinnenlade@mandatory;ui.bulkkenmerken.meenemerset@visible;ui.bulkkenmerken.frontbevestiging@visible;ui.bulkkenmerken.corpuswanddikte@visible;ui.bulkkenmerken.ladehoogte@mandatory;ui.bulkkenmerken.draagkracht@visible;ui.bulkkenmerken.corpusbreedte.breedte@visible;ui.bulkkenmerken.isbinnenbreedte@default;ui.bulkkenmerken.corpusbreedte.breedte@enabled;ui.bulkkenmerken.nietmeeleveren_afdekkapbinnen@visible;ui.bulkkenmerken.nietmeeleveren_afdekkapbuiten@visible;ui.bulkkenmerken.nietmeeleveren_afdekkaprugwandhouder@visible;ui.bulkkenmerken.nietmeeleveren_boxcap@visible;ui.bulkkenmerken.nietmeeleveren_boxcover@visible;ui.bulkkenmerken.nietmeeleveren_frontbevestigingonder@visible;ui.bulkkenmerken.nietmeeleveren_frontbevestigingboven@visible;ui.bulkkenmerken.nietmeeleveren_frontstabilisator@visible;ui.bulkkenmerken.nietmeeleveren_geleider@visible;ui.bulkkenmerken.nietmeeleveren_inschuifelementvoor@visible;ui.bulkkenmerken.nietmeeleveren_inschuifelementzijkant@visible;ui.bulkkenmerken.nietmeeleveren_opvullijst@visible;ui.bulkkenmerken.nietmeeleveren_relingzijkant@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotiononderdelen@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@visible; not(BEHAVIOR.IsEconAX and not(BEHAVIOR.IsInteractive)) and (not((CONFIG.Backend == "axapta") and (CONFIG.ProcessMode == "Background"))) DATA.Kenmerken.BodemKleur = UI.Kenmerken.BodemKleur; DATA.Kenmerken.CorpusBreedte = UI.Kenmerken.CorpusBreedte; DATA.Kenmerken.CorpusWanddikte = UI.Kenmerken.CorpusWanddikte; DATA.Kenmerken.Draagkracht = UI.Kenmerken.Draagkracht; DATA.Kenmerken.DwarsverdelingAantal = UI.Kenmerken.DwarsverdelingAantal; DATA.Kenmerken.FrontBevestiging = UI.Kenmerken.FrontBevestiging; DATA.Kenmerken.GeleiderTechnologie = UI.Kenmerken.GeleiderTechnologie; DATA.Kenmerken.HeeftAfwijkendeRugHoogte = UI.Kenmerken.HeeftAfwijkendeRugHoogte; DATA.Kenmerken.HeeftOpvullijstLinks = UI.Kenmerken.HeeftOpvullijstLinks; DATA.Kenmerken.HeeftOpvullijstRechts = UI.Kenmerken.HeeftOpvullijstRechts; DATA.Kenmerken.HeeftZijstabilisering = UI.Kenmerken.HeeftZijstabilisering; DATA.Kenmerken.IsBinnenbreedte = UI.Kenmerken.IsBinnenbreedte; DATA.Kenmerken.IsBinnenlade = UI.Kenmerken.IsBinnenlade; DATA.Kenmerken.LadeDiepte = UI.Kenmerken.LadeDiepte; DATA.Kenmerken.LadeHoogte = UI.Kenmerken.LadeHoogte; DATA.Kenmerken.MeenemerSet = UI.Kenmerken.MeenemerSet; DATA.Kenmerken.ProductieWijze = UI.Kenmerken.ProductieWijze; DATA.Kenmerken.RugHoogte = UI.Kenmerken.RugHoogte; DATA.Kenmerken.RugwandMateriaal = UI.Kenmerken.RugwandMateriaal; DATA.Kenmerken.Toepassing = UI.Kenmerken.Toepassing; DATA.Kenmerken.VerpakkingType = UI.Kenmerken.VerpakkingType; DATA.Kenmerken.ZijkantHoogte = UI.Kenmerken.ZijkantHoogte ; DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur = UI.Kenmerken.ZijwandVerhogingInschuifElementKleur; DATA.Kenmerken.ZijwandVerhogingMateriaal = UI.Kenmerken.ZijwandVerhogingMateriaal; DATA.Kenmerken.ZijwandVerhogingType = UI.Kenmerken.ZijwandVerhogingType; DATA.Lijn.Aantal = UI.Lijn.Aantal; DATA.Lijn.Referentie = UI.Lijn.Referentie; // IMAGE CONTROLS DATA.Kenmerken.BodemKleur = UI.Kenmerken.BodemKleur.Value; DATA.Kenmerken.LadeKleur = UI.Kenmerken.LadeKleur.Value; DATA.Kenmerken.OpvullijstKleur = UI.Kenmerken.OpvullijstKleur.Value; if (UI.Kenmerken.IsBinnenlade and (UI.Kenmerken.LadeHoogte == "E")) then DATA.Kenmerken.VoorwandType = UI.Kenmerken.VoorwandTypeVanEBinnenlade.Value; end if; if (UI.Kenmerken.IsBinnenlade and (UI.Kenmerken.LadeHoogte == "M")) then DATA.Kenmerken.VoorwandType = UI.Kenmerken.VoorwandTypeVanMBinnenlade.Value; end if; if (UI.Kenmerken.IsBinnenlade and (UI.Kenmerken.LadeHoogte == "K")) then DATA.Kenmerken.VoorwandType = UI.Kenmerken.VoorwandTypeVanKBinnenlade.Value; end if; DATA.Kenmerken.ZijwandType = UI.Kenmerken.ZijwandType.Value; DATA.Kenmerken.ZijwandVerhogingRelingKleur = UI.Kenmerken.ZijwandVerhogingRelingKleur.Value; index i of UI.Kenmerken.NietMeeleveren local string _IsSelected = CStr(UI.Kenmerken.NietMeeleveren(i).IsSelected); local string _NietMeeleverenProperty = "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.Kenmerken.NietMeeleveren(i).Id; local boolean _Result = SetValue(_NietMeeleverenProperty; _IsSelected); end index; if (CONFIG.InputMode == "CreateConfig") then STATE.WinkelkarInfoCalculated = false; STATE.WinkelkarInfoDiverseCalculated = false; end if; Values ;data.kenmerken.bodemkleur@value;data.kenmerken.corpusbreedte@value;data.kenmerken.corpuswanddikte@value;data.kenmerken.draagkracht@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.frontbevestiging@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.heeftafwijkenderughoogte@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladediepte@value;data.kenmerken.ladehoogte@value;data.kenmerken.meenemerset@value;data.kenmerken.productiewijze@value;data.kenmerken.rughoogte@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.toepassing@value;data.kenmerken.verpakkingtype@value;data.kenmerken.zijkanthoogte@value;data.kenmerken.zijwandverhoginginschuifelementkleur@value;data.kenmerken.zijwandverhogingmateriaal@value;data.kenmerken.zijwandverhogingtype@value;data.lijn.aantal@value;data.lijn.referentie@value;data.kenmerken.ladekleur@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.voorwandtype@value;data.kenmerken.zijwandtype@value;data.kenmerken.zijwandverhogingrelingkleur@value;state.winkelkarinfocalculated@value;state.winkelkarinfodiversecalculated@value; true DATA.Kenmerken.MatMateriaal = UI.Kenmerken.MatMateriaal.Value; DATA.Kenmerken.MatKleur = switch (UI.Kenmerken.MatMateriaal.Value) case "CF": UI.Kenmerken.MatVinylFiberglassKleur.value case "AF": UI.Kenmerken.MatAntislipFiberKleur.value case "AZ": UI.Kenmerken.MatAntislipFlockKleur.value else "" end switch; Values - Mat ;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value; not(BEHAVIOR.IsEconAX and not(BEHAVIOR.IsInteractive)) DATA.Kenmerken.UitsparingData.X.Breedte = UI.Kenmerken.UitsparingData.X.BreedteRugdeel; DATA.Kenmerken.UitsparingData.X.Hoogte = UI.Kenmerken.UitsparingData.X.Hoogte; DATA.Kenmerken.UitsparingData.X.Materiaal = UI.Kenmerken.UitsparingData.X.Materiaal; DATA.Kenmerken.UitsparingData.M.Breedte = UI.Kenmerken.UitsparingData.M.BreedteRugdeel; DATA.Kenmerken.UitsparingData.M.Hoogte = UI.Kenmerken.UitsparingData.M.Hoogte; DATA.Kenmerken.UitsparingData.M.Materiaal = UI.Kenmerken.UitsparingData.M.Materiaal; DATA.Kenmerken.UitsparingData.Y.Breedte = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; DATA.Kenmerken.UitsparingData.Y.Hoogte = UI.Kenmerken.UitsparingData.Y.Hoogte; DATA.Kenmerken.UitsparingData.Y.Materiaal = UI.Kenmerken.UitsparingData.Y.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; DATA.Kenmerken.UitsparingData.Z1.Diepte = UI.Kenmerken.UitsparingData.Z1.Diepte; DATA.Kenmerken.UitsparingData.Z1.Hoogte = UI.Kenmerken.UitsparingData.Z1.Hoogte; DATA.Kenmerken.UitsparingData.Z1.Materiaal = UI.Kenmerken.UitsparingData.Z1.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Vorm = UI.Kenmerken.UitsparingData.Z1.Vorm; DATA.Kenmerken.UitsparingData.Z2.Breedte = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing; DATA.Kenmerken.UitsparingData.Z2.Diepte = UI.Kenmerken.UitsparingData.Z2.Diepte; DATA.Kenmerken.UitsparingData.Z2.Hoogte = UI.Kenmerken.UitsparingData.Z2.Hoogte; DATA.Kenmerken.UitsparingData.Z2.Materiaal = UI.Kenmerken.UitsparingData.Z2.Materiaal; DATA.Kenmerken.UitsparingData.Z2.Vorm = UI.Kenmerken.UitsparingData.Z2.Vorm; DATA.Kenmerken.UitsparingData.UitsparingAantal = UI.Kenmerken.UitsparingData.UitsparingAantal; Values - UitsparingData ;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; not(BEHAVIOR.IsEconAX and not(BEHAVIOR.IsInteractive)) DATA.BulkKenmerken(1).CorpusBreedte = UI.BulkKenmerken.CorpusBreedte; 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).GeleiderTechnologie = UI.BulkKenmerken.GeleiderTechnologie; DATA.BulkKenmerken(1).HeeftOpvullijstLinks = UI.BulkKenmerken.HeeftOpvullijstLinks; DATA.BulkKenmerken(1).HeeftOpvullijstRechts = UI.BulkKenmerken.HeeftOpvullijstRechts; DATA.BulkKenmerken(1).HeeftZijstabilisering = UI.BulkKenmerken.HeeftZijstabilisering; DATA.BulkKenmerken(1).IsBinnenbreedte = UI.BulkKenmerken.IsBinnenbreedte; DATA.BulkKenmerken(1).IsBinnenlade = UI.BulkKenmerken.IsBinnenlade; DATA.BulkKenmerken(1).LadeDiepte = UI.BulkKenmerken.LadeDiepte; DATA.BulkKenmerken(1).LadeHoogte = UI.BulkKenmerken.LadeHoogte; DATA.BulkKenmerken(1).MeenemerSet = UI.BulkKenmerken.MeenemerSet; DATA.BulkKenmerken(1).VerpakkingType = UI.BulkKenmerken.VerpakkingType; DATA.BulkKenmerken(1).ZijkantHoogte = UI.BulkKenmerken.ZijkantHoogte ; DATA.BulkKenmerken(1).ZijwandVerhogingInschuifElementKleur = UI.BulkKenmerken.ZijwandVerhogingInschuifElementKleur; DATA.BulkKenmerken(1).ZijwandVerhogingMateriaal = UI.BulkKenmerken.ZijwandVerhogingMateriaal; DATA.BulkKenmerken(1).ZijwandVerhogingType = UI.BulkKenmerken.ZijwandVerhogingType; // IMAGE CONTROLS DATA.BulkKenmerken(1).BodemKleur = UI.BulkKenmerken.BodemKleur.Value; DATA.BulkKenmerken(1).LadeKleur = UI.BulkKenmerken.LadeKleur.Value; DATA.BulkKenmerken(1).OpvullijstKleur = UI.BulkKenmerken.OpvullijstKleur.Value; if ((UI.BulkKenmerken.IsBinnenlade == "True") and (UI.BulkKenmerken.LadeHoogte == "E")) then DATA.BulkKenmerken(1).VoorwandType = UI.BulkKenmerken.VoorwandTypeVanEBinnenlade.Value; end if; if ((UI.BulkKenmerken.IsBinnenlade == "True") and (UI.BulkKenmerken.LadeHoogte == "M")) then DATA.BulkKenmerken(1).VoorwandType = UI.BulkKenmerken.VoorwandTypeVanMBinnenlade.Value; end if; if ((UI.BulkKenmerken.IsBinnenlade == "True") and (UI.BulkKenmerken.LadeHoogte == "K")) then DATA.BulkKenmerken(1).VoorwandType = UI.BulkKenmerken.VoorwandTypeVanKBinnenlade.Value; end if; DATA.BulkKenmerken(1).ZijwandType = UI.BulkKenmerken.ZijwandType.Value; DATA.BulkKenmerken(1).ZijwandVerhogingRelingKleur = UI.BulkKenmerken.ZijwandVerhogingRelingKleur.Value; if (UI.BulkKenmerken.CorpusBreedte.Wijzigen == "Wijzigen") then DATA.BulkKenmerken(1).CorpusBreedte = CStr(UI.BulkKenmerken.CorpusBreedte.Breedte); else DATA.BulkKenmerken(1).CorpusBreedte = UI.BulkKenmerken.CorpusBreedte.Wijzigen; end if; DATA.BulkKenmerken(1).HeeftMat = UI.BulkKenmerken.HeeftMat; DATA.BulkKenmerken(1).MatMateriaal = UI.BulkKenmerken.MatMateriaal.Value; DATA.BulkKenmerken(1).MatKleur = switch (UI.BulkKenmerken.MatMateriaal.Value) case "CF": UI.BulkKenmerken.MatVinylFiberglassKleur.value case "AF": UI.BulkKenmerken.MatAntislipFiberKleur.value case "AZ": UI.BulkKenmerken.MatAntislipFlockKleur.value else "" end switch; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen = UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten = UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder = UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcap = UI.BulkKenmerken.NietMeeleveren_Boxcap; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcover = UI.BulkKenmerken.NietMeeleveren_Boxcover; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingBoven = UI.BulkKenmerken.NietMeeleveren_FrontBevestigingBoven; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingOnder = UI.BulkKenmerken.NietMeeleveren_FrontBevestigingOnder; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontStabilisator = UI.BulkKenmerken.NietMeeleveren_FrontStabilisator; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider = UI.BulkKenmerken.NietMeeleveren_Geleider; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor = UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant = UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst = UI.BulkKenmerken.NietMeeleveren_Opvullijst; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_RelingVoor = UI.BulkKenmerken.NietMeeleveren_RelingVoor; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_RelingZijkant = UI.BulkKenmerken.NietMeeleveren_RelingZijkant; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen = UI.BulkKenmerken.NietMeeleveren_TiponBlumotionOnderdelen; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionMeenemers = UI.BulkKenmerken.NietMeeleveren_TiponBlumotionMeenemers; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionEenheden = UI.BulkKenmerken.NietMeeleveren_TiponBlumotionEenheden; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering = UI.BulkKenmerken.NietMeeleveren_Zijstabilisering; Values - BulkKenmerken ;data.bulkkenmerken[1].corpusbreedte@value;data.bulkkenmerken[1].corpuswanddikte@value;data.bulkkenmerken[1].draagkracht@value;data.bulkkenmerken[1].dwarsverdelingaantal@value;data.bulkkenmerken[1].frontbevestiging@value;data.bulkkenmerken[1].geleidertechnologie@value;data.bulkkenmerken[1].heeftopvullijstlinks@value;data.bulkkenmerken[1].heeftopvullijstrechts@value;data.bulkkenmerken[1].heeftzijstabilisering@value;data.bulkkenmerken[1].isbinnenbreedte@value;data.bulkkenmerken[1].isbinnenlade@value;data.bulkkenmerken[1].ladediepte@value;data.bulkkenmerken[1].ladehoogte@value;data.bulkkenmerken[1].meenemerset@value;data.bulkkenmerken[1].verpakkingtype@value;data.bulkkenmerken[1].zijkanthoogte@value;data.bulkkenmerken[1].zijwandverhoginginschuifelementkleur@value;data.bulkkenmerken[1].zijwandverhogingmateriaal@value;data.bulkkenmerken[1].zijwandverhogingtype@value;data.bulkkenmerken[1].bodemkleur@value;data.bulkkenmerken[1].ladekleur@value;data.bulkkenmerken[1].opvullijstkleur@value;data.bulkkenmerken[1].voorwandtype@value;data.bulkkenmerken[1].zijwandtype@value;data.bulkkenmerken[1].zijwandverhogingrelingkleur@value;data.bulkkenmerken[1].heeftmat@value;data.bulkkenmerken[1].matmateriaal@value;data.bulkkenmerken[1].matkleur@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_afdekkapbinnen@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_afdekkapbuiten@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_afdekkaprugwandhouder@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_boxcap@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_boxcover@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_frontbevestigingboven@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_frontbevestigingonder@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_frontstabilisator@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_geleider@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_inschuifelementvoor@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_inschuifelementzijkant@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_opvullijst@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_relingvoor@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_relingzijkant@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotiononderdelen@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotionmeenemers@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotioneenheden@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_zijstabilisering@value; not(CONFIG.InputMode == "Edit") and not(BEHAVIOR.IsEconAX and not(BEHAVIOR.IsInteractive))and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) and not(BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen") //not(CONFIG.InputMode == "Edit") and not((CONFIG.Backend == "axapta") and (CONFIG.ProcessMode == "Background")) If (DATA.Kenmerken.Meenemerset == "") then DATA.Kenmerken.Meenemerset = "Z"; end if; If (DATA.Kenmerken.Toepassing == "") then DATA.Kenmerken.Toepassing = "L"; end if; If (DATA.Kenmerken.Frontbevestiging == "") then Data.Kenmerken.Frontbevestiging = "I"; end if; Defaults invullen ;data.kenmerken.meenemerset@value;data.kenmerken.toepassing@value;data.kenmerken.frontbevestiging@value; BEHAVIOR.IsInteractive and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) If (BEHAVIOR.OperationMode == "New") then //Bij een edit zou bij toepassing L het rugwandmateriaal soms onterecht terug op Hout springen DATA.Kenmerken.RugwandMateriaal = "Hout"; end if; Default invullen voor RugwandMateriaal (niet CreateConfig) ;data.kenmerken.rugwandmateriaal@value; not(BEHAVIOR.IsInteractive) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) If (((GetArg("data;kenmerken;rugwandmateriaal") == "")and not(BEHAVIOR.OperationMode == "CreateConfig")) or ((BEHAVIOR.OperationMode == "CreateConfig") and (DATA.Kenmerken.RugwandMateriaal == ""))) then DATA.Kenmerken.RugwandMateriaal = "Hout"; end if; Default invullen voor RugwandMateriaal (wel CreateConfig) ;data.kenmerken.rugwandmateriaal@value; BEHAVIOR.IsInteractive and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) if (BEHAVIOR.OperationMode == "New") then DATA.Kenmerken.VerpakkingType = "Probox"; end if; Default invullen voor VerpakkingType (niet CreateConfig) ;data.kenmerken.verpakkingtype@value; not(BEHAVIOR.IsInteractive) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) If (((GetArg("data;kenmerken;verpakkingtype") == "") and not(BEHAVIOR.OperationMode == "CreateConfig")) or ((BEHAVIOR.OperationMode == "CreateConfig") and (DATA.Kenmerken.VerpakkingType == ""))) then DATA.Kenmerken.VerpakkingType = "Probox"; end if; Default invullen voor VerpakkingType(wel CreateConfig) ;data.kenmerken.verpakkingtype@value; BEHAVIOR.IsInteractive and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) if (DATA.Kenmerken.IsBinnenlade and (DATA.Kenmerken.LadeHoogte == "M")) then DATA.Kenmerken.VoorwandType = "Metaal"; end if; if (DATA.Kenmerken.IsBinnenlade and (DATA.Kenmerken.LadeHoogte == "K")) then DATA.Kenmerken.VoorwandType = "Metaal"; end if; Default invullen voor VoorwandType (niet CreateConfig) ;data.kenmerken.voorwandtype@value; not(BEHAVIOR.IsInteractive) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) If (((GetArg("data;kenmerken;voorwandtype") == "") and not(BEHAVIOR.OperationMode == "CreateConfig")) or ((BEHAVIOR.OperationMode == "CreateConfig") and (DATA.Kenmerken.VoorwandType == ""))) then if (DATA.Kenmerken.IsBinnenlade and (DATA.Kenmerken.LadeHoogte == "M")) then DATA.Kenmerken.VoorwandType = "Metaal"; end if; if (DATA.Kenmerken.IsBinnenlade and (DATA.Kenmerken.LadeHoogte == "K")) then DATA.Kenmerken.VoorwandType = "Metaal"; end if; if (DATA.Kenmerken.IsBinnenlade and (DATA.Kenmerken.LadeHoogte == "E") and (Config.Settings.KlantId == "23112")) then DATA.Kenmerken.VoorwandType = "Metaal"; end if; end if; Default invullen voor VoorwandType (wel CreateConfig) ; BEHAVIOR.IsInteractive and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) If ((BEHAVIOR.OperationMode == "New") and (DATA.Kenmerken.ZijwandType == "")) then if not(DATA.Kenmerken.LadeHoogte == "") then if (DATA.Kenmerken.LadeHoogte == "E") then DATA.Kenmerken.ZijwandType = "Reling"; end if; if (DATA.Kenmerken.LadeHoogte == "F") then DATA.Kenmerken.ZijwandType = "Boxcap"; end if; if (not(DATA.Kenmerken.LadeHoogte == "F") and not(DATA.Kenmerken.LadeHoogte == "E")) then DATA.Kenmerken.ZijwandType = "Pure"; end if; else UI.Kenmerken.ZijwandType = ""; //PVR: Dit is om een bug op te lossen, UI.Kenmerken.ZijwandType werd ergens opgevuld bij het openen van de configurator en ik vind niet waar end if end if; If (not(DATA.Kenmerken.ZijwandType == "") and not(DATA.Kenmerken.LadeHoogte == "")) then If (not(DATA.Kenmerken.LadeHoogte == "F") and not(DATA.Kenmerken.LadeHoogte == "E")) then DATA.Kenmerken.ZijwandType = "Pure"; end if; end if; Default invullen voor ZijwandType (niet CreateConfig) ; not(BEHAVIOR.IsInteractive) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) If (((GetArg("data;kenmerken;zijwandtype") == "") and not(BEHAVIOR.OperationMode == "CreateConfig")) or ((BEHAVIOR.OperationMode == "CreateConfig") and (DATA.Kenmerken.ZijwandType == ""))) then If (DATA.Kenmerken.LadeHoogte == "E") then DATA.Kenmerken.ZijwandType = "Reling"; end if; If (DATA.Kenmerken.LadeHoogte == "F") then DATA.Kenmerken.ZijwandType = "Boxcap"; end if; If (not(DATA.Kenmerken.LadeHoogte == "F") and not(DATA.Kenmerken.LadeHoogte == "E")) then DATA.Kenmerken.ZijwandType = "Pure"; end if; end if; Default invullen voor ZijwandType (wel CreateConfig) ; BEHAVIOR.IsInteractive and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) If (BEHAVIOR.OperationMode == "New") then DATA.Kenmerken.ZijwandVerhogingType = "Zonder"; end if; Default invullen voor ZijwandVerhogingType (niet CreateConfig) ;data.kenmerken.zijwandverhogingtype@value; not(BEHAVIOR.IsInteractive) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) DATA.Kenmerken.ZijwandVerhogingType = "Zonder"; Default invullen voor ZijwandVerhogingType (wel CreateConfig) ;data.kenmerken.zijwandverhogingtype@value; (CONFIG.ReferentieConfiguratie <> "") and (CONFIG.InputMode <> "Edit") local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.ReferentieConfiguratie + "'"; CONFIG.Database.Configurations@options = {}; CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); STATE.ReferentieConfiguratieLoaded = true; ReferentieConfiguratie: ConfigId ophalen op basis van ReferentieConfiguratie ;config.database.configurations@options;state.referentieconfiguratieloaded@value; (BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen") local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.BulkWijzigingen.ReferentieConfiguratieId + "'"; CONFIG.Database.Configurations@options = {}; CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); STATE.BulkReferentieConfiguratieLoaded = true; ReferentieConfiguratie: ConfigId ophalen op basis van ReferentieConfiguratie (bij bulkconfiguratie Web) ;config.database.configurations@options;state.bulkreferentieconfiguratieloaded@value; STATE.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; 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; (CONFIG.ReferentieConfiguratie == "") and (CONFIG.InputMode <> "Edit") and (CONFIG.Settings.KlantId <> "") and (CONFIG.Settings.PersonalityId <> "") local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.KlantVoorkeurenConfigurationName + "'"; CONFIG.Database.Configurations@options = {}; CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); STATE.KlantVoorkeurenLoaded = true; KlantVoorkeuren: ConfigId ophalen op basis van KlantId ;config.database.configurations@options;state.klantvoorkeurenloaded@value; STATE.KlantVoorkeurenLoaded and (CONFIG.Database.Configurations.Name == CONFIG.KlantVoorkeurenConfigurationName) STATE.KlantVoorkeurenLoaded = false; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%' AND value <> ''"; local boolean _Result; CONFIG.Database.ConfigAnalyseProperties@options = {}; CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query); for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options) CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id; if (CONFIG.Database.ConfigAnalyseProperties.PropertyName in CONFIG.Defaults.KlantVoorkeuren@options) then _Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value); end if; end for; KlantVoorkeuren: Properties ophalen op basis van ConfigId ;state.klantvoorkeurenloaded@value;config.database.configanalyseproperties@options; (CONFIG.ReferentieConfiguratie == "") and (CONFIG.InputMode <> "Edit") and (CONFIG.Settings.PersonalityId <> "") and (len(CONFIG.Database.ConfigAnalyseProperties) == 0) CONFIG.PersonalityVoorkeurenConfigurationName = DATA.Kenmerken.Variant + "_" + CONFIG.Settings.PersonalityId; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.PersonalityVoorkeurenConfigurationName + "'"; CONFIG.Database.Configurations@options = {}; CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); STATE.PersonalityVoorkeurenLoaded = true; PersonalityVoorkeuren: ConfigId ophalen op basis van PersonalityId ;config.personalityvoorkeurenconfigurationname@value;config.database.configurations@options;state.personalityvoorkeurenloaded@value; STATE.PersonalityVoorkeurenLoaded and (CONFIG.Database.Configurations.Name == CONFIG.PersonalityVoorkeurenConfigurationName) STATE.PersonalityVoorkeurenLoaded = false; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%' AND value <> ''"; local boolean _Result; CONFIG.Database.ConfigAnalyseProperties@options = {}; CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query); for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options) CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id; if (CONFIG.Database.ConfigAnalyseProperties.PropertyName in CONFIG.Defaults.PersonalityVoorkeuren@options) then _Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value); end if; end for; PersonalityVoorkeuren: Properties ophalen op basis van ConfigId ;state.personalityvoorkeurenloaded@value;config.database.configanalyseproperties@options; (BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen") local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.BulkWijzigingen.BulkConfiguratieId + "'"; CONFIG.Database.Configurations@options = {}; CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); STATE.BulkConfiguratieLoaded = true; BulkConfiguratie: ConfigId ophalen op basis van BulkConfiguratieId (Web) ;config.database.configurations@options;state.bulkconfiguratieloaded@value; STATE.BulkConfiguratieLoaded and (CONFIG.Database.Configurations.Name == CONFIG.BulkWijzigingen.BulkConfiguratieId) and (BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen") STATE.BulkConfiguratieLoaded = false; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%'"; local boolean _Result; CONFIG.Database.ConfigAnalyseProperties@options = {}; CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query); for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options) CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id; if (CONFIG.Database.ConfigAnalyseProperties.PropertyName in CONFIG.Defaults.BulkConfiguratie@options) then if (CONFIG.Database.ConfigAnalyseProperties.Value <> "") then _Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value); end if; end if; end for; BulkConfiguratie: Properties ophalen op basis van ConfigId (Web) ;state.bulkconfiguratieloaded@value;config.database.configanalyseproperties@options; not(STATE.BulkReferentieConfiguratieLoaded) and (BEHAVIOR.Contextname == "AxCreateBulkWijzigingenToepassen") local string strConnectionString = GetSetting("data.navision.connectionstring"); local string propertyName = ""; local string propertyValue = ""; for i = 1 to CDbl(CONFIG.Bulkwijzigingen.TotaalAantalGepersisteerdeProperties) propertyName = GetStringValue(strConnectionString; "EConConfigSpecSetup"; "XMLPath"; "Model"; "="; "MVX 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"; "="; "MVX 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).GeleiderTechnologie <> "NietWijzigen") then DATA.Kenmerken.GeleiderTechnologie = DATA.BulkKenmerken(1).GeleiderTechnologie; end if; if (DATA.BulkKenmerken(1).HeeftMat == "True") then DATA.Kenmerken.MatMateriaal = DATA.BulkKenmerken(1).MatMateriaal; end if; if (DATA.BulkKenmerken(1).HeeftMat == "False") then DATA.Kenmerken.MatMateriaal = ""; end if; if (DATA.BulkKenmerken(1).HeeftMat == "True") then DATA.Kenmerken.MatKleur = DATA.BulkKenmerken(1).MatKleur; end if; if (DATA.BulkKenmerken(1).HeeftMat == "False") then DATA.Kenmerken.MatKleur = ""; end if; if (DATA.BulkKenmerken(1).HeeftOpvullijstLinks <> "NietWijzigen") then DATA.Kenmerken.HeeftOpvullijstLinks = CBool(DATA.BulkKenmerken(1).HeeftOpvullijstLinks); end if; if (DATA.BulkKenmerken(1).HeeftOpvullijstRechts <> "NietWijzigen") then DATA.Kenmerken.HeeftOpvullijstRechts = CBool(DATA.BulkKenmerken(1).HeeftOpvullijstRechts); end if; if (DATA.BulkKenmerken(1).HeeftZijstabilisering <> "NietWijzigen") then DATA.Kenmerken.HeeftZijstabilisering = CBool(DATA.BulkKenmerken(1).HeeftZijstabilisering); end if; if (DATA.BulkKenmerken(1).IsBinnenBreedte <> "NietWijzigen") then DATA.Kenmerken.IsBinnenBreedte = CBool(DATA.BulkKenmerken(1).IsBinnenBreedte); end if; if (DATA.BulkKenmerken(1).IsBinnenlade <> "NietWijzigen") then DATA.Kenmerken.IsBinnenlade = CBool(DATA.BulkKenmerken(1).IsBinnenlade); end if; if (DATA.BulkKenmerken(1).Meenemerset <> "NietWijzigen") then DATA.Kenmerken.Meenemerset = DATA.BulkKenmerken(1).Meenemerset; end if; if (DATA.BulkKenmerken(1).LadeDiepte <> "NietWijzigen") then DATA.Kenmerken.LadeDiepte = DATA.BulkKenmerken(1).LadeDiepte; end if; if (DATA.BulkKenmerken(1).LadeKleur <> "NietWijzigen") then DATA.Kenmerken.LadeKleur = DATA.BulkKenmerken(1).LadeKleur; end if; if (DATA.BulkKenmerken(1).LadeHoogte <> "NietWijzigen") then DATA.Kenmerken.LadeHoogte = DATA.BulkKenmerken(1).LadeHoogte; DATA.Kenmerken.RugHoogte = DATA.BulkKenmerken(1).LadeHoogte; DATA.Kenmerken.HeeftAfwijkendeRugHoogte = false; end if; if (DATA.BulkKenmerken(1).OpvullijstKleur <> "NietWijzigen") then DATA.Kenmerken.OpvullijstKleur = DATA.BulkKenmerken(1).OpvullijstKleur; end if; if (DATA.BulkKenmerken(1).VerpakkingType <> "NietWijzigen") then DATA.Kenmerken.VerpakkingType = DATA.BulkKenmerken(1).VerpakkingType; end if; if (DATA.BulkKenmerken(1).VoorwandType <> "") then DATA.Kenmerken.VoorwandType = DATA.BulkKenmerken(1).VoorwandType; end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBinnen = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBuiten = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcap<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_Boxcap= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcap); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcover<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_Boxcover= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcover); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingBoven<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestigingBoven= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingBoven); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingOnder<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestigingOnder= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingOnder); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontStabilisator<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontStabilisator= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontStabilisator); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementVoor = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementZijkant = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_RelingVoor<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_RelingVoor= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_RelingVoor); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_RelingZijkant<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_RelingZijkant= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_RelingZijkant); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionMeenemers <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionMeenemers= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionMeenemers); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionEenheden<> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionEenheden= CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionEenheden); 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; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_Zijstabilisering = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering); end if; if (DATA.BulkKenmerken(1).ZijwandType <> "NietWijzigen") then DATA.Kenmerken.ZijwandType= DATA.BulkKenmerken(1).ZijwandType; end if; if (DATA.BulkKenmerken(1).ZijkantHoogte <> "NietWijzigen") then DATA.Kenmerken.ZijkantHoogte = DATA.BulkKenmerken(1).ZijkantHoogte ; end if; if (DATA.BulkKenmerken(1).ZijwandVerhogingInschuifElementKleur <> "NietWijzigen") then DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur = DATA.BulkKenmerken(1).ZijwandVerhogingInschuifElementKleur ; end if; if (DATA.BulkKenmerken(1).ZijwandVerhogingMateriaal <> "NietWijzigen") then DATA.Kenmerken.ZijwandVerhogingMateriaal = DATA.BulkKenmerken(1).ZijwandVerhogingMateriaal ; end if; if (DATA.BulkKenmerken(1).ZijwandVerhogingType <> "NietWijzigen") then DATA.Kenmerken.ZijwandVerhogingType = DATA.BulkKenmerken(1).ZijwandVerhogingType ; end if; if (DATA.BulkKenmerken(1).ZijwandVerhogingRelingKleur <> "NietWijzigen") then DATA.Kenmerken.ZijwandVerhogingRelingKleur = DATA.BulkKenmerken(1).ZijwandVerhogingRelingKleur ; end if; Bulkkenmerken invullen in DATA kenmerken ;data.kenmerken.bodemkleur@value;data.kenmerken.corpusbreedte@value;data.kenmerken.corpuswanddikte@value;data.kenmerken.draagkracht@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.frontbevestiging@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.meenemerset@value;data.kenmerken.ladediepte@value;data.kenmerken.ladekleur@value;data.kenmerken.ladehoogte@value;data.kenmerken.rughoogte@value;data.kenmerken.heeftafwijkenderughoogte@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.verpakkingtype@value;data.kenmerken.voorwandtype@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkapbinnen@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkapbuiten@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkaprugwandhouder@value;data.kenmerken.nietmeeleveren.nietmeeleveren_boxcap@value;data.kenmerken.nietmeeleveren.nietmeeleveren_boxcover@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestigingboven@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestigingonder@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontstabilisator@value;data.kenmerken.nietmeeleveren.nietmeeleveren_geleider@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelementvoor@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelementzijkant@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.nietmeeleveren.nietmeeleveren_relingvoor@value;data.kenmerken.nietmeeleveren.nietmeeleveren_relingzijkant@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotioneenheden@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotiononderdelen@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.kenmerken.nietmeeleveren.nietmeeleveren_zijstabilisering@value;data.kenmerken.zijwandtype@value;data.kenmerken.zijkanthoogte@value;data.kenmerken.zijwandverhoginginschuifelementkleur@value;data.kenmerken.zijwandverhogingmateriaal@value;data.kenmerken.zijwandverhogingtype@value;data.kenmerken.zijwandverhogingrelingkleur@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 _AantalOpvullijsten = 0; if (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then _CorpusWanddikte = DATA.BulkKenmerken(1).CorpusWanddikte; _IsBinnenbreedte = (DATA.BulkKenmerken(1).IsBinnenbreedte == "True"); _HeeftOpvullijstLinks = (DATA.BulkKenmerken(1).HeeftOpvullijstLinks == "True"); _HeeftOpvullijstRechts = (DATA.BulkKenmerken(1).HeeftOpvullijstRechts == "True"); end if; if (_HeeftOpvullijstLinks) then _AantalOpvullijsten = _AantalOpvullijsten + 1; end if; if (_HeeftOpvullijstRechts) then _AantalOpvullijsten = _AantalOpvullijsten + 1; end if; if (_IsBinnenbreedte) then _CorpusWanddikte = 0; end if; DATA.BerekendeWaarden.CorpusBreedteDelta = (2 * _CorpusWanddikte) + (_AantalOpvullijsten * _OpvullijstDikte); Bereken CorpusBreedteDelta ;data.berekendewaarden.corpusbreedtedelta@value; true local double _InterneBreedte = 0; if (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then if UI.BulkKenmerken.CorpusBreedte.Breedte > 0 then _InterneBreedte = CDbl(DATA.BulkKenmerken(1).CorpusBreedte) - DATA.BerekendeWaarden.CorpusBreedteDelta; end if; else if DATA.Kenmerken.CorpusBreedte > 0 then _InterneBreedte = DATA.Kenmerken.CorpusBreedte - DATA.BerekendeWaarden.CorpusBreedteDelta; end if; end if; DATA.Kenmerken.InterneBreedte = _InterneBreedte; Bereken InterneBreedte ;data.kenmerken.internebreedte@value; (DATA.Kenmerken.LadeHoogte <> "") local string _LadeCode = DATA.Kenmerken.LadeHoogte; if (DATA.Kenmerken.IsBinnenlade) then _LadeCode = _LadeCode + "/Z"; end if; DATA.BerekendeWaarden.LadeCode = _LadeCode; Bereken LadeCode (inactive, zie berekende waarden winkelkarinfo) ;data.berekendewaarden.ladecode@value; (BEHAVIOR.IsInteractive or (DATA.Kenmerken.RugHoogte == "")) local string _RugHoogte = ""; if (not(DATA.Kenmerken.HeeftAfwijkendeRugHoogte) and (DATA.Kenmerken.LadeHoogte <> "")) then _RugHoogte = DATA.Kenmerken.LadeHoogte; if (DATA.Kenmerken.Toepassing == "SP") then _RugHoogte = "M"; end if; if (DATA.Kenmerken.Toepassing == "SY") then _RugHoogte = "M"; if (UI.Kenmerken.UitsparingData.Z1.CodeUitsparing == "SY_Recht_E_D240_B350") then _RugHoogte = "E"; end if; end if; end if; If (DATA.Kenmerken.LadeHoogte == "N") then _RugHoogte = "N"; end if; if (_RugHoogte <> "") then DATA.Kenmerken.RugHoogte = _RugHoogte; end if; UI.Kenmerken.RugHoogte@default = DATA.Kenmerken.RugHoogte; Bereken Rughoogte (niet CreateConfig) ;data.kenmerken.rughoogte@value;ui.kenmerken.rughoogte@default; DATA.Kenmerken.LadeHoogte <> "" and DATA.Kenmerken.Rughoogte <> "" if (DATA.Kenmerken.LadeHoogte == DATA.Kenmerken.Rughoogte) then DATA.Kenmerken.HeeftAfwijkendeRughoogte = false; else if (DATA.Kenmerken.Toepassing in {"SP";"SY"}) then DATA.Kenmerken.HeeftAfwijkendeRughoogte = false; // want de rughoogte volgt vaste regels bij SP en SY, dus niet door de gebruiker "zelf-gekozen". else DATA.Kenmerken.HeeftAfwijkendeRughoogte = true; end if; end if; Bereken HeeftAfwijkendeRughoogte ;data.kenmerken.heeftafwijkenderughoogte@value; (DATA.Kenmerken.LadeHoogte <> "") local string _AfbeeldingCode = "MVX_Lade" if (DATA.Kenmerken.ProductieWijze <> "V") then local string _ProductieWijze = DATA.Kenmerken.ProductieWijze; _AfbeeldingCode = "SpecialeProductieWijze"; if (_ProductieWijze == "B") then _AfbeeldingCode = _AfbeeldingCode + "_B" ; end if; if (_ProductieWijze == "BR") then _AfbeeldingCode = _AfbeeldingCode + "_BR_" + DATA.Kenmerken.RugHoogte; end if; if (_ProductieWijze == "R") then _AfbeeldingCode = _AfbeeldingCode + "_R_" + DATA.Kenmerken.RugHoogte; end if; if (_ProductieWijze == "RRWH") then _AfbeeldingCode = _AfbeeldingCode + "_RRWH_" + DATA.Kenmerken.RugHoogte; end if; if (_ProductieWijze == "F") then local string _LadeHoogte = DATA.Kenmerken.LadeHoogte; local string _VoorwandTypeVanBinnenlade = ""; _AfbeeldingCode = _AfbeeldingCode + "_F_" + _LadeHoogte + "_" + _VoorwandTypeVanBinnenlade; end if; else _AfbeeldingCode = _AfbeeldingCode + "_" + DATA.Kenmerken.LadeHoogte; if (DATA.Kenmerken.Toepassing == "SP") then _AfbeeldingCode = _AfbeeldingCode + "S"; end if; if (DATA.Kenmerken.Toepassing == "SY") then _AfbeeldingCode = _AfbeeldingCode + "Y"; end if; if (DATA.Kenmerken.IsBinnenlade) then _AfbeeldingCode = _AfbeeldingCode + "_Z"; end if; if ((DATA.Kenmerken.Toepassing == "SY") and (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel")) then _AfbeeldingCode = _AfbeeldingCode + "_x2"; end if; if (DATA.Kenmerken.IsBinnenlade) then if ((DATA.Kenmerken.VoorwandType <> "") and (DATA.Kenmerken.VoorwandType <> "Metaal")) then _AfbeeldingCode = _AfbeeldingCode + "_" + DATA.Kenmerken.VoorwandType; end if; if ((DATA.Kenmerken.VoorwandType <> "") and (DATA.Kenmerken.VoorwandType == "Metaal") and (DATA.Kenmerken.ZijwandType <> "Pure") and (DATA.Kenmerken.LadeHoogte == "E")) then _AfbeeldingCode = _AfbeeldingCode + "_"; end if; end if; if (DATA.Kenmerken.ZijwandType <> "Pure") then _AfbeeldingCode = _AfbeeldingCode + "_" + DATA.Kenmerken.ZijwandType; end if; end if; DATA.BerekendeWaarden.AfbeeldingCode = _AfbeeldingCode; Bereken AfbeeldingCode ;data.berekendewaarden.afbeeldingcode@value; true UI.Kenmerken.OpvullijstDikte = 25; Bereken OpvullijstDikte ;ui.kenmerken.opvullijstdikte@value; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) if (DATA.Kenmerken.LadeHoogte == "E") then if (DATA.Kenmerken.ZijwandType == "Pure") then DATA.Kenmerken.ZijkantHoogte = "E"; else DATA.Kenmerken.ZijkantHoogte = "M"; end if; end if; if (DATA.Kenmerken.LadeHoogte == "F") then if (DATA.Kenmerken.ZijwandType == "Boxcap") then DATA.Kenmerken.ZijkantHoogte = "M"; else DATA.Kenmerken.ZijkantHoogte = DATA.Kenmerken.LadeHoogte; end if; end if; if (not(DATA.Kenmerken.LadeHoogte == "E") and not(DATA.Kenmerken.LadeHoogte == "F")) then DATA.Kenmerken.ZijkantHoogte = DATA.Kenmerken.LadeHoogte; end if; UI.Kenmerken.ZijkantHoogte@default = DATA.Kenmerken.ZijkantHoogte; Bereken ZijkantHoogte ;data.kenmerken.zijkanthoogte@value;ui.kenmerken.zijkanthoogte@default; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) if ((DATA.Kenmerken.ZijwandType == "Reling") or (DATA.Kenmerken.ZijwandType == "RelingEnInschuifElement")) then DATA.Kenmerken.ZijwandVerhogingRelingKleur = DATA.Kenmerken.LadeKleur; else DATA.Kenmerken.ZijwandVerhogingRelingKleur = ""; end if; Bereken ZijwandVerhogingRelingKleur ;data.kenmerken.zijwandverhogingrelingkleur@value; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) if ((DATA.Kenmerken.ZijwandType == "Boxcover") or (DATA.Kenmerken.ZijwandType == "RelingEnInschuifElement")) then DATA.Kenmerken.ZijwandVerhogingMateriaal = "Glas"; else DATA.Kenmerken.ZijwandVerhogingMateriaal = ""; end if; Bereken ZijwandVerhogingMateriaal ;data.kenmerken.zijwandverhogingmateriaal@value; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) if ((DATA.Kenmerken.ZijwandType == "Boxcover") or (DATA.Kenmerken.ZijwandType == "RelingEnInschuifElement")) then DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur = "DIA10"; else DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur = ""; end if; Bereken ZijwandVerhogingInschuifElementKleur ;data.kenmerken.zijwandverhoginginschuifelementkleur@value; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) if (DATA.Kenmerken.LadeHoogte == "F") then UI.Kenmerken.ZijwandType@option("Boxcap")@label = "images/Vanhoecke/mvx/ZijwandType/Boxcap_F.png"; else UI.Kenmerken.ZijwandType@option("Boxcap")@label = "images/Vanhoecke/mvx/ZijwandType/Boxcap_E.png"; end if; Berken afbeelding ZijwandType boxcap ;ui.kenmerken.zijwandtype@options; true RANGE.CorpusBreedte.Minimum = RANGE.InterneBreedte.Minimum + DATA.BerekendeWaarden.CorpusBreedteDelta; CorpusBreedte minimum ;range.corpusbreedte.minimum@value; true RANGE.CorpusBreedte.Maximum = RANGE.InterneBreedte.Maximum + DATA.BerekendeWaarden.CorpusBreedteDelta; CorpusBreedte maximum ;range.corpusbreedte.maximum@value; true local double MINIMUM_BREEDTE_SMALLELADE = 161; local double MINIMUM_BREEDTE_SMALLELADE_TOB = 243; local double MINIMUM_BREEDTE_SMALLELADE_BINNENLADE = 186; local double MINIMUM_BREEDTE_SMALLELADE_BINNENLADE_TOB = 243; local double MINIMUM_BREEDTE_GEWONE_LADE = 251; // Kleiner dan deze afmeting is "Smalle lade" local double MINIMUM_BREEDTE_SPOELBAKLADE_B = 720; local double MINIMUM_BREEDTE_SPOELBAKLADE_TOB = 758; local double MINIMUM_BREEDTE_SIFONLADE_ENKEL = 388; local double MINIMUM_BREEDTE_SIFONLADE_ENKEL_TOB = 428; local double MINIMUM_BREEDTE_SIFONLADE_DUBBEL = 645; local double MINIMUM_BREEDTE_SIFONLADE_DUBBEL_TOB = 685; local double MINIMUM_BREEDTE_SIFONLADE = 460; local double MINIMUM_BREEDTE_ZIJSTABILISERING = 362; local double _MinimumBreedte = MINIMUM_BREEDTE_SMALLELADE; if (DATA.Kenmerken.Toepassing == "L") then if not(DATA.Kenmerken.IsBinnenlade) then if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then _MinimumBreedte = MINIMUM_BREEDTE_SMALLELADE_TOB; else _MinimumBreedte = MINIMUM_BREEDTE_SMALLELADE; end if; else if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then _MinimumBreedte = MINIMUM_BREEDTE_SMALLELADE_BINNENLADE_TOB; else _MinimumBreedte = MINIMUM_BREEDTE_SMALLELADE_BINNENLADE; end if; end if; end if; if (DATA.Kenmerken.Toepassing == "SP") then if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then _MinimumBreedte = MINIMUM_BREEDTE_SPOELBAKLADE_TOB; else _MinimumBreedte = MINIMUM_BREEDTE_SPOELBAKLADE_B; end if; end if; if (DATA.Kenmerken.Toepassing == "SY") then if (DATA.Kenmerken.Uitsparingdata.UitsparingAantal == "Enkel") then if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then _MinimumBreedte = MINIMUM_BREEDTE_SIFONLADE_ENKEL_TOB; else _MinimumBreedte = MINIMUM_BREEDTE_SIFONLADE_ENKEL; end if; else if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then _MinimumBreedte = MINIMUM_BREEDTE_SIFONLADE_DUBBEL_TOB; else _MinimumBreedte = MINIMUM_BREEDTE_SIFONLADE_DUBBEL; end if; end if end if; if (DATA.Kenmerken.HeeftZijstabilisering) then _MinimumBreedte = Max(_MinimumBreedte; MINIMUM_BREEDTE_ZIJSTABILISERING); end if; RANGE.InterneBreedte.Minimum = _MinimumBreedte; InterneBreedte minimum ;range.internebreedte.minimum@value; true local double MAXIMUM_BREEDTE = 1468; local double MAX_BREEDTE_EXTERN = 1350; local double MAX_BREEDTE_INTERN_V1 = 1350; local double MAXIMUM_BREEDTE_TOB = 1375; local double MAXIMUM_BREEDTE_BINNENLADE = 1168; local double MAXIMUM_BREEDTE_SIFONLADE = 1468; local double MAXIMUM_BREEDTE_SIFONLADE_TOB = 1375; local double MAXIMUM_BREEDTE_SIFONLADE_BINNENLADE = 1168; local double MAXIMUM_BREEDTE_SPOELBAKLADE = 1308; local double MAXIMUM_BREEDTE_SPOELBAKLADE_BINNENLADE = 1168; local double MAXIMUM_BREEDTE_ZIJSTABILISERING = 1368; local double MAXIMUM_BREEDTE_DWARSVERDELING = 1170; local double MAXIMUM_BREEDTE_1168_mm = 1168; local double MAXIMUM_BREEDTE_VERPAKKINGTYPE_VHOSS = 1168; local double _MaximumBreedte = MAXIMUM_BREEDTE; if (DATA.Kenmerken.Toepassing == "L") then if not(DATA.Kenmerken.IsBinnenlade) then if (DATA.Kenmerken.Geleidertechnologie == "TOB") then _MaximumBreedte = MAXIMUM_BREEDTE_TOB; else _MaximumBreedte = MAXIMUM_BREEDTE; end if; else _MaximumBreedte = MAXIMUM_BREEDTE_BINNENLADE; end if; end if; if (DATA.Kenmerken.Toepassing == "SP") then if not(DATA.Kenmerken.IsBinnenlade) then _MaximumBreedte = MAXIMUM_BREEDTE_SPOELBAKLADE; else _MaximumBreedte = MAXIMUM_BREEDTE_SPOELBAKLADE_BINNENLADE; end if; end if; if (DATA.Kenmerken.Toepassing == "SY") then if not(DATA.Kenmerken.IsBinnenlade) then if (DATA.Kenmerken.Geleidertechnologie == "TOB") then _MaximumBreedte = MAXIMUM_BREEDTE_SIFONLADE_TOB; else _MaximumBreedte = MAXIMUM_BREEDTE_SIFONLADE; end if; else _MaximumBreedte = MAXIMUM_BREEDTE_SIFONLADE_BINNENLADE; end if; end if; if (DATA.Kenmerken.HeeftZijstabilisering) then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_ZIJSTABILISERING); end if; if (DATA.Kenmerken.DwarsverdelingAantal in {"1";"2";"3";"4"}) then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_DWARSVERDELING); end if; if ((BEHAVIOR.IsMaximaleBreedteBeperktTot1168Mm) and (BEHAVIOR.IsEconWeb)) then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_1168_mm); end if; if (BEHAVIOR.IsEconWeb) then _MaximumBreedte = Min(_MaximumBreedte; MAX_BREEDTE_EXTERN); end if; if ((BEHAVIOR.IsEconAx) and (DATA.Kenmerken.VerpakkingType in {"V1"})) then _MaximumBreedte = Min(_MaximumBreedte; MAX_BREEDTE_INTERN_V1); end if; if (DATA.Kenmerken.VerpakkingType == "VHoss") then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_VERPAKKINGTYPE_VHOSS); end if; RANGE.InterneBreedte.Maximum = _MaximumBreedte; InterneBreedte maximum ;range.internebreedte.maximum@value; true local long _Minimum = 1; if (DATA.Kenmerken.VerpakkingType == "Pallet") then _Minimum = 10; end if; RANGE.Aantal.MINIMUM = _Minimum; Aantal minimum ;range.aantal.minimum@value; true local long _Maximum = 1; if (DATA.Kenmerken.VerpakkingType == "V1") then _Maximum = 3; end if; RANGE.Aantal.MAXIMUM = _Maximum; Aantal maximum ;range.aantal.maximum@value; UI.Kenmerken.SneltoetsenNietMeeleveren <> "" local boolean _AlleNietMeeleverensSelecteren; if (UI.Kenmerken.SneltoetsenNietMeeleveren == "AllesSelecteren") then _AlleNietMeeleverensSelecteren = true; end if; if (UI.Kenmerken.SneltoetsenNietMeeleveren == "AllesDeselecteren") then _AlleNietMeeleverensSelecteren = false; end if; index i of UI.Kenmerken.NietMeeleveren local string _NietMeeleverenProperty = "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.Kenmerken.NietMeeleveren(i).Id; if ((UI.Kenmerken.NietMeeleveren(i).Id <> "RelingVoor") and (UI.Kenmerken.NietMeeleveren(i).Id <> "Zijstabilisering")) then local boolean _Result = SetValue(_NietMeeleverenProperty; CStr(_AlleNietMeeleverensSelecteren)); end if; end index; UI.Kenmerken.SneltoetsenNietMeeleveren = ""; Logica sneltoetsen niet meeleveren ;ui.kenmerken.sneltoetsennietmeeleveren@value; ConstraintsNotSatisfiedFor("DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids") Gather constraint messages for decision table DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids") Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids ; true DATA.Kenmerken.IsBinnenlade@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids"; "DATA.Kenmerken.IsBinnenlade"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze); Applying constraints for property DATA.Kenmerken.IsBinnenlade ; 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 UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte@valids = ConstrainedOptions("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte@Valids"; "UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte ;ui.kenmerken.uitsparingdata.z2.codeuitsparingbreedte@valids; true UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@valids = ConstrainedOptions("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@Valids"; "UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte ;ui.kenmerken.uitsparingdata.z1.codeuitsparingbreedte@valids; true UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@valids = ConstrainedOptions("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@Valids"; "UI.Kenmerken.UitsparingData.Z2.CodeUitsparing"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property UI.Kenmerken.UitsparingData.Z2.CodeUitsparing ;ui.kenmerken.uitsparingdata.z2.codeuitsparing@valids; true UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@valids = ConstrainedOptions("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@Valids"; "UI.Kenmerken.UitsparingData.Z1.CodeUitsparing"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property UI.Kenmerken.UitsparingData.Z1.CodeUitsparing ;ui.kenmerken.uitsparingdata.z1.codeuitsparing@valids; true DATA.Kenmerken.RugwandMateriaal@valids = ConstrainedOptions("DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.RugwandMateriaal"; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.RugwandMateriaal ;data.kenmerken.rugwandmateriaal@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids ; true UI.Kenmerken.UitsparingData.UitsparingDiepte@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.UitsparingDiepte@Valids"; "UI.Kenmerken.UitsparingData.UitsparingDiepte"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property UI.Kenmerken.UitsparingData.UitsparingDiepte ;ui.kenmerken.uitsparingdata.uitsparingdiepte@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.UitsparingDiepte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.UitsparingDiepte@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.UitsparingDiepte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids ; true DATA.Kenmerken.Toepassing@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.UitsparingDiepte@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.Toepassing"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "DATA.Kenmerken.RugwandMateriaal"; DATA.Kenmerken.RugwandMateriaal; "UI.Kenmerken.UitsparingData.UitsparingDiepte"; UI.Kenmerken.UitsparingData.UitsparingDiepte; "UI.Kenmerken.UitsparingData.Z1.CodeUitsparing"; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing; "UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte"; UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte; "UI.Kenmerken.UitsparingData.Z2.CodeUitsparing"; UI.Kenmerken.UitsparingData.Z2.CodeUitsparing; "UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte"; UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte); Applying constraints for property DATA.Kenmerken.Toepassing ;data.kenmerken.toepassing@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids ; true DATA.Kenmerken.ProductieWijze@valids = ConstrainedOptions("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids"; "DATA.Kenmerken.ProductieWijze"; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType); Applying constraints for property DATA.Kenmerken.ProductieWijze ;data.kenmerken.productiewijze@valids; true DATA.Kenmerken.VerpakkingType@valids = ConstrainedOptions("DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids"; "DATA.Kenmerken.VerpakkingType"; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze); Applying constraints for property DATA.Kenmerken.VerpakkingType ;data.kenmerken.verpakkingtype@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids ; true DATA.Kenmerken.RugHoogte@valids = ConstrainedOptions("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.RugHoogte"; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.RugHoogte ;data.kenmerken.rughoogte@valids; true DATA.Kenmerken.FrontBevestiging@valids = ConstrainedOptions("CONFIG.Settings.IsExportKlant,DATA.Kenmerken.FrontBevestiging@Valids"; "DATA.Kenmerken.FrontBevestiging"; "CONFIG.Settings.IsExportKlant"; CurrentBoolean(CONFIG.Settings.IsExportKlant)); Applying constraints for property DATA.Kenmerken.FrontBevestiging ;data.kenmerken.frontbevestiging@valids; ConstraintsNotSatisfiedFor("CONFIG.Settings.IsExportKlant,DATA.Kenmerken.FrontBevestiging@Valids") ConstraintsErrorMessagesFor("CONFIG.Settings.IsExportKlant,DATA.Kenmerken.FrontBevestiging@Valids") Gather constraint messages for decision table CONFIG.Settings.IsExportKlant,DATA.Kenmerken.FrontBevestiging@Valids ; ConstraintsNotSatisfiedFor("BEHAVIOR.AccessMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids") ConstraintsErrorMessagesFor("BEHAVIOR.AccessMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids") Gather constraint messages for decision table BEHAVIOR.AccessMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids ; true CONFIG.Settings.IsExportKlant@style.invalidbooleans = ConstrainedBooleanInvalids("CONFIG.Settings.IsExportKlant,DATA.Kenmerken.FrontBevestiging@Valids;CONFIG.Settings.IsExportKlant,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids"; "CONFIG.Settings.IsExportKlant"; "DATA.Kenmerken.FrontBevestiging"; DATA.Kenmerken.FrontBevestiging; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte); Applying constraints for property CONFIG.Settings.IsExportKlant ; ConstraintsNotSatisfiedFor("CONFIG.Settings.IsExportKlant,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids") ConstraintsErrorMessagesFor("CONFIG.Settings.IsExportKlant,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids") Gather constraint messages for decision table CONFIG.Settings.IsExportKlant,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids ; true BEHAVIOR.AccessMode@valids = ConstrainedOptions("BEHAVIOR.AccessMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids"; "BEHAVIOR.AccessMode"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType); Applying constraints for property BEHAVIOR.AccessMode ;behavior.accessmode@valids; true DATA.Kenmerken.LadeDiepte@valids = ConstrainedOptions("CONFIG.Settings.IsExportKlant,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.UitsparingDiepte@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.LadeDiepte"; "CONFIG.Settings.IsExportKlant"; CurrentBoolean(CONFIG.Settings.IsExportKlant); "DATA.Kenmerken.Draagkracht"; DATA.Kenmerken.Draagkracht; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "UI.Kenmerken.UitsparingData.UitsparingDiepte"; UI.Kenmerken.UitsparingData.UitsparingDiepte); Applying constraints for property DATA.Kenmerken.LadeDiepte ;data.kenmerken.ladediepte@valids; true DATA.Kenmerken.LadeKleur@valids = ConstrainedOptions("BEHAVIOR.AccessMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.LadeKleur"; "BEHAVIOR.AccessMode"; BEHAVIOR.AccessMode; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType); Applying constraints for property DATA.Kenmerken.LadeKleur ;data.kenmerken.ladekleur@valids; true DATA.Kenmerken.ZijwandType@valids = ConstrainedOptions("BEHAVIOR.AccessMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.ZijwandType"; "BEHAVIOR.AccessMode"; BEHAVIOR.AccessMode; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur); Applying constraints for property DATA.Kenmerken.ZijwandType ;data.kenmerken.zijwandtype@valids; true DATA.Kenmerken.LadeHoogte@valids = ConstrainedOptions("BEHAVIOR.AccessMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids;CONFIG.Settings.IsExportKlant,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing,UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.LadeHoogte"; "BEHAVIOR.AccessMode"; BEHAVIOR.AccessMode; "CONFIG.Settings.IsExportKlant"; CurrentBoolean(CONFIG.Settings.IsExportKlant); "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.ZijwandType"; DATA.Kenmerken.ZijwandType; "UI.Kenmerken.UitsparingData.Z1.CodeUitsparing"; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing; "UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte"; UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte; "UI.Kenmerken.UitsparingData.Z2.CodeUitsparing"; UI.Kenmerken.UitsparingData.Z2.CodeUitsparing; "UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte"; UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte); Applying constraints for property DATA.Kenmerken.LadeHoogte ;data.kenmerken.ladehoogte@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; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) for i = 1 to len(DATA.Kenmerken.BodemKleur@options) UI.Kenmerken.BodemKleur@option(i)@valid = DATA.Kenmerken.BodemKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.Draagkracht@options) UI.Kenmerken.Draagkracht@option(i)@valid = DATA.Kenmerken.Draagkracht@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.DwarsverdelingAantal@options) UI.Kenmerken.DwarsverdelingAantal@option(i)@valid = DATA.Kenmerken.DwarsverdelingAantal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.FrontBevestiging@options) UI.Kenmerken.FrontBevestiging@option(i)@valid = DATA.Kenmerken.FrontBevestiging@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.GeleiderTechnologie@options) UI.Kenmerken.GeleiderTechnologie@option(i)@valid = DATA.Kenmerken.GeleiderTechnologie@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeDiepte@options) UI.Kenmerken.LadeDiepte@option(i)@valid = DATA.Kenmerken.LadeDiepte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeHoogte@options) UI.Kenmerken.LadeHoogte@option(i)@valid = DATA.Kenmerken.LadeHoogte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeKleur@options) UI.Kenmerken.LadeKleur@option(i)@valid = DATA.Kenmerken.LadeKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.MeenemerSet@options) UI.Kenmerken.MeenemerSet@option(i)@valid = DATA.Kenmerken.MeenemerSet@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.OpvullijstKleur@options) UI.Kenmerken.OpvullijstKleur@option(i)@valid = DATA.Kenmerken.OpvullijstKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ProductieWijze@options) UI.Kenmerken.ProductieWijze@option(i)@valid = DATA.Kenmerken.ProductieWijze@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.RugHoogte@options) UI.Kenmerken.RugHoogte@option(i)@valid = DATA.Kenmerken.RugHoogte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.RugwandMateriaal@options) UI.Kenmerken.RugwandMateriaal@option(i)@valid = DATA.Kenmerken.RugwandMateriaal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.Toepassing@options) UI.Kenmerken.Toepassing@option(i)@valid = DATA.Kenmerken.Toepassing@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.VerpakkingType@options) UI.Kenmerken.VerpakkingType@option(i)@valid = DATA.Kenmerken.VerpakkingType@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ZijkantHoogte@options) UI.Kenmerken.ZijkantHoogte@option(i)@valid = DATA.Kenmerken.ZijkantHoogte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ZijwandType@options) UI.Kenmerken.ZijwandType@option(i)@valid = DATA.Kenmerken.ZijwandType@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ZijwandVerhogingType@options) UI.Kenmerken.ZijwandVerhogingType@option(i)@valid = DATA.Kenmerken.ZijwandVerhogingType@option(i)@valid; end for; Valids ;ui.kenmerken.bodemkleur@valids;ui.kenmerken.draagkracht@valids;ui.kenmerken.dwarsverdelingaantal@valids;ui.kenmerken.frontbevestiging@valids;ui.kenmerken.geleidertechnologie@valids;ui.kenmerken.ladediepte@valids;ui.kenmerken.ladehoogte@valids;ui.kenmerken.ladekleur@valids;ui.kenmerken.meenemerset@valids;ui.kenmerken.opvullijstkleur@valids;ui.kenmerken.productiewijze@valids;ui.kenmerken.rughoogte@valids;ui.kenmerken.rugwandmateriaal@valids;ui.kenmerken.toepassing@valids;ui.kenmerken.verpakkingtype@valids;ui.kenmerken.zijkanthoogte@valids;ui.kenmerken.zijwandtype@valids;ui.kenmerken.zijwandverhogingtype@valids; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local string MatKleur = ""; for i = 1 to len(DATA.Kenmerken.MatKleur@options) MatKleur = DATA.Kenmerken.MatKleur@option(i)@id; for j = 1 to len(UI.Kenmerken.MatAntislipFiberKleur@options) if (MatKleur == UI.Kenmerken.MatAntislipFiberKleur@option(j)@id) then UI.Kenmerken.MatAntislipFiberKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.Kenmerken.MatAntislipFlockKleur@options) if (MatKleur == UI.Kenmerken.MatAntislipFlockKleur@option(j)@id) then UI.Kenmerken.MatAntislipFlockKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.Kenmerken.MatVinylFiberglassKleur@options) if (MatKleur == UI.Kenmerken.MatVinylFiberglassKleur@option(j)@id) then UI.Kenmerken.MatVinylFiberglassKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; end for; for i = 1 to len(DATA.Kenmerken.MatMateriaal@options) UI.Kenmerken.MatMateriaal@option(i)@valid = DATA.Kenmerken.MatMateriaal@option(i)@valid; end for; Valids - Mat ;ui.kenmerken.matmateriaal@valids; (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) for i = 1 to len(DATA.BulkKenmerken(1).BodemKleur@options) UI.BulkKenmerken.BodemKleur@option(i)@valid = DATA.BulkKenmerken(1).BodemKleur@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).Draagkracht@options) UI.BulkKenmerken.Draagkracht@option(i)@valid = DATA.BulkKenmerken(1).Draagkracht@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).DwarsverdelingAantal@options) UI.BulkKenmerken.DwarsverdelingAantal@option(i)@valid = DATA.BulkKenmerken(1).DwarsverdelingAantal@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).FrontBevestiging@options) UI.BulkKenmerken.FrontBevestiging@option(i)@valid = DATA.BulkKenmerken(1).FrontBevestiging@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).GeleiderTechnologie@options) UI.BulkKenmerken.GeleiderTechnologie@option(i)@valid = DATA.BulkKenmerken(1).GeleiderTechnologie@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).LadeDiepte@options) UI.BulkKenmerken.LadeDiepte@option(i)@valid = DATA.BulkKenmerken(1).LadeDiepte@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).LadeHoogte@options) UI.BulkKenmerken.LadeHoogte@option(i)@valid = DATA.BulkKenmerken(1).LadeHoogte@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).LadeKleur@options) UI.BulkKenmerken.LadeKleur@option(i)@valid = DATA.BulkKenmerken(1).LadeKleur@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).MeenemerSet@options) UI.BulkKenmerken.MeenemerSet@option(i)@valid = DATA.BulkKenmerken(1).MeenemerSet@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).OpvullijstKleur@options) UI.BulkKenmerken.OpvullijstKleur@option(i)@valid = DATA.BulkKenmerken(1).OpvullijstKleur@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).ZijkantHoogte@options) UI.BulkKenmerken.ZijkantHoogte@option(i)@valid = DATA.BulkKenmerken(1).ZijkantHoogte@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).ZijwandType@options) UI.BulkKenmerken.ZijwandType@option(i)@valid = DATA.BulkKenmerken(1).ZijwandType@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).ZijwandVerhogingType@options) UI.BulkKenmerken.ZijwandVerhogingType@option(i)@valid = DATA.BulkKenmerken(1).ZijwandVerhogingType@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).ZijwandVerhogingRelingKleur@options) UI.BulkKenmerken.ZijwandVerhogingRelingKleur@option(i)@valid = DATA.BulkKenmerken(1).ZijwandVerhogingRelingKleur@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).ZijkantHoogte@options) UI.BulkKenmerken.ZijkantHoogte@option(i)@valid = DATA.BulkKenmerken(1).ZijkantHoogte@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).ZijwandVerhogingInschuifElementKleur@options) UI.BulkKenmerken.ZijwandVerhogingInschuifElementKleur@option(i)@valid = DATA.BulkKenmerken(1).ZijwandVerhogingInschuifElementKleur@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen@options) UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten@options) UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder@options) UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcap@options) UI.BulkKenmerken.NietMeeleveren_Boxcap@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcap@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcover@options) UI.BulkKenmerken.NietMeeleveren_Boxcover@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcover@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingOnder@options) UI.BulkKenmerken.NietMeeleveren_FrontBevestigingOnder@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingOnder@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingBoven@options) UI.BulkKenmerken.NietMeeleveren_FrontBevestigingBoven@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingBoven@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontStabilisator@options) UI.BulkKenmerken.NietMeeleveren_FrontStabilisator@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontStabilisator@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider@options) UI.BulkKenmerken.NietMeeleveren_Geleider@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor@options) UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant@options) UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst@options) UI.BulkKenmerken.NietMeeleveren_Opvullijst@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_RelingVoor@options) UI.BulkKenmerken.NietMeeleveren_RelingVoor@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_RelingVoor@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_RelingZijkant@options) UI.BulkKenmerken.NietMeeleveren_RelingZijkant@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_RelingZijkant@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; 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_TiponBlumotionSetEenhedenEnMeenemers@options) UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionMeenemers@options) UI.BulkKenmerken.NietMeeleveren_TiponBlumotionMeenemers@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionMeenemers@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionEenheden@options) UI.BulkKenmerken.NietMeeleveren_TiponBlumotionEenheden@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionEenheden@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering@options) UI.BulkKenmerken.NietMeeleveren_Zijstabilisering@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering@option(i)@valid; end for; Valids - BulkKenmerken ;ui.bulkkenmerken.bodemkleur@valids;ui.bulkkenmerken.draagkracht@valids;ui.bulkkenmerken.dwarsverdelingaantal@valids;ui.bulkkenmerken.frontbevestiging@valids;ui.bulkkenmerken.geleidertechnologie@valids;ui.bulkkenmerken.ladediepte@valids;ui.bulkkenmerken.ladehoogte@valids;ui.bulkkenmerken.ladekleur@valids;ui.bulkkenmerken.meenemerset@valids;ui.bulkkenmerken.opvullijstkleur@valids;ui.bulkkenmerken.verpakkingtype@valids;ui.bulkkenmerken.zijkanthoogte@valids;ui.bulkkenmerken.zijwandtype@valids;ui.bulkkenmerken.zijwandverhogingtype@valids;ui.bulkkenmerken.zijwandverhogingrelingkleur@valids;ui.bulkkenmerken.zijwandverhoginginschuifelementkleur@valids;ui.bulkkenmerken.nietmeeleveren_afdekkapbinnen@valids;ui.bulkkenmerken.nietmeeleveren_afdekkapbuiten@valids;ui.bulkkenmerken.nietmeeleveren_afdekkaprugwandhouder@valids;ui.bulkkenmerken.nietmeeleveren_boxcap@valids;ui.bulkkenmerken.nietmeeleveren_boxcover@valids;ui.bulkkenmerken.nietmeeleveren_frontbevestigingonder@valids;ui.bulkkenmerken.nietmeeleveren_frontbevestigingboven@valids;ui.bulkkenmerken.nietmeeleveren_frontstabilisator@valids;ui.bulkkenmerken.nietmeeleveren_geleider@valids;ui.bulkkenmerken.nietmeeleveren_inschuifelementvoor@valids;ui.bulkkenmerken.nietmeeleveren_inschuifelementzijkant@valids;ui.bulkkenmerken.nietmeeleveren_opvullijst@valids;ui.bulkkenmerken.nietmeeleveren_relingvoor@valids;ui.bulkkenmerken.nietmeeleveren_relingzijkant@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotiononderdelen@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotionmeenemers@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotioneenheden@valids;ui.bulkkenmerken.nietmeeleveren_zijstabilisering@valids; BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"} local string MatKleur = ""; for i = 1 to len(DATA.BulkKenmerken(1).MatKleur@options) MatKleur = DATA.BulkKenmerken(1).MatKleur@option(i)@id; for j = 1 to len(UI.BulkKenmerken.MatAntislipFiberKleur@options) if (MatKleur == UI.BulkKenmerken.MatAntislipFiberKleur@option(j)@id) then UI.BulkKenmerken.MatAntislipFiberKleur@option(j)@valid = DATA.BulkKenmerken(1).MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.BulkKenmerken.MatAntislipFlockKleur@options) if (MatKleur == UI.BulkKenmerken.MatAntislipFlockKleur@option(j)@id) then UI.BulkKenmerken.MatAntislipFlockKleur@option(j)@valid = DATA.BulkKenmerken(1).MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.BulkKenmerken.MatVinylFiberglassKleur@options) if (MatKleur == UI.BulkKenmerken.MatVinylFiberglassKleur@option(j)@id) then UI.BulkKenmerken.MatVinylFiberglassKleur@option(j)@valid = DATA.BulkKenmerken(1).MatKleur@option(i)@valid; end if; end for; end for; for i = 1 to len(DATA.BulkKenmerken(1).MatMateriaal@options) UI.BulkKenmerken.MatMateriaal@option(i)@valid = DATA.BulkKenmerken(1).MatMateriaal@option(i)@valid; end for; Valids - BulkKenmerken Mat ;ui.bulkkenmerken.matmateriaal@valids; true UI.Kenmerken.VerpakkingTypeLabelProbox@default = UI.Kenmerken.VerpakkingTypeLabelProbox@label; UI.Kenmerken.VerpakkingTypeLabelProbox@visible = (DATA.Kenmerken.VerpakkingType == "Probox") and not(((CONFIG.Settings.KlantId == "12486") and (CONFIG.Settings.PersonalityId == "1")) or (CONFIG.Settings.PersonalityId == "3")); UI.BulkKenmerken.VerpakkingTypeLabelProbox@default = UI.BulkKenmerken.VerpakkingTypeLabelProbox@label; UI.BulkKenmerken.VerpakkingTypeLabelProbox@visible = (DATA.BulkKenmerken(1).VerpakkingType == "Probox") and not(((CONFIG.Settings.KlantId == "12486") and (CONFIG.Settings.PersonalityId == "1")) or (CONFIG.Settings.PersonalityId == "3")); Message Probox ;ui.kenmerken.verpakkingtypelabelprobox@default;ui.kenmerken.verpakkingtypelabelprobox@visible;ui.bulkkenmerken.verpakkingtypelabelprobox@default;ui.bulkkenmerken.verpakkingtypelabelprobox@visible; true UI.Kenmerken.VerpakkingTypeLabelPallet@default = UI.Kenmerken.VerpakkingTypeLabelPallet@label; UI.Kenmerken.VerpakkingTypeLabelPallet@visible = (DATA.Kenmerken.VerpakkingType == "Pallet"); UI.BulkKenmerken.VerpakkingTypeLabelPallet@default = UI.BulkKenmerken.VerpakkingTypeLabelPallet@label; UI.BulkKenmerken.VerpakkingTypeLabelPallet@visible = (DATA.BulkKenmerken(1).VerpakkingType == "Pallet"); Message Pallet ;ui.kenmerken.verpakkingtypelabelpallet@default;ui.kenmerken.verpakkingtypelabelpallet@visible;ui.bulkkenmerken.verpakkingtypelabelpallet@default;ui.bulkkenmerken.verpakkingtypelabelpallet@visible; true UI.Kenmerken.VerpakkingTypeLabelV1@default = UI.Kenmerken.VerpakkingTypeLabelV1@label; UI.Kenmerken.VerpakkingTypeLabelV1@visible = (DATA.Kenmerken.VerpakkingType == "V1"); UI.BulkKenmerken.VerpakkingTypeLabelV1@default = UI.BulkKenmerken.VerpakkingTypeLabelV1@label; UI.BulkKenmerken.VerpakkingTypeLabelV1@visible = (DATA.BulkKenmerken(1).VerpakkingType == "V1"); Message V1 ;ui.kenmerken.verpakkingtypelabelv1@default;ui.kenmerken.verpakkingtypelabelv1@visible;ui.bulkkenmerken.verpakkingtypelabelv1@default;ui.bulkkenmerken.verpakkingtypelabelv1@visible; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) UI.Kenmerken.BodemKleur@default = DATA.Kenmerken.BodemKleur; UI.Kenmerken.CorpusBreedte@default = DATA.Kenmerken.CorpusBreedte; UI.Kenmerken.CorpusWanddikte@default = DATA.Kenmerken.CorpusWanddikte; UI.Kenmerken.Draagkracht@default = DATA.Kenmerken.Draagkracht; UI.Kenmerken.DwarsverdelingAantal@default = DATA.Kenmerken.DwarsverdelingAantal; UI.Kenmerken.FrontBevestiging@default = DATA.Kenmerken.FrontBevestiging; UI.Kenmerken.GeleiderTechnologie@default = DATA.Kenmerken.GeleiderTechnologie; UI.Kenmerken.HeeftAfwijkendeRugHoogte@default = DATA.Kenmerken.HeeftAfwijkendeRugHoogte; UI.Kenmerken.HeeftOpvullijstLinks@default = DATA.Kenmerken.HeeftOpvullijstLinks; UI.Kenmerken.HeeftOpvullijstRechts@default = DATA.Kenmerken.HeeftOpvullijstRechts; UI.Kenmerken.HeeftZijstabilisering@default = DATA.Kenmerken.HeeftZijstabilisering; UI.Kenmerken.InterneBreedte@default = DATA.Kenmerken.InterneBreedte; UI.Kenmerken.IsBinnenbreedte@default = DATA.Kenmerken.IsBinnenbreedte; UI.Kenmerken.IsBinnenlade@default = DATA.Kenmerken.IsBinnenlade; UI.Kenmerken.LadeDiepte@default = DATA.Kenmerken.LadeDiepte; UI.Kenmerken.LadeHoogte@default = DATA.Kenmerken.LadeHoogte; UI.Kenmerken.LadeKleur@default = DATA.Kenmerken.LadeKleur; UI.Kenmerken.MeenemerSet@default = DATA.Kenmerken.MeenemerSet; UI.Kenmerken.OpvullijstKleur@default = DATA.Kenmerken.OpvullijstKleur; UI.Kenmerken.ProductieWijze@default = DATA.Kenmerken.ProductieWijze; UI.Kenmerken.RugHoogte@default = DATA.Kenmerken.RugHoogte; UI.Kenmerken.RugwandMateriaal@default = DATA.Kenmerken.RugwandMateriaal; UI.Kenmerken.Toepassing@default = DATA.Kenmerken.Toepassing; UI.Kenmerken.VerpakkingType@default = DATA.Kenmerken.VerpakkingType; UI.Kenmerken.ZijkantHoogte@default = DATA.Kenmerken.ZijkantHoogte; UI.Kenmerken.ZijwandType@default = DATA.Kenmerken.ZijwandType; UI.Kenmerken.ZijwandVerhogingType@default = DATA.Kenmerken.ZijwandVerhogingType; UI.Kenmerken.ZijwandVerhogingInschuifElementKleur@default = DATA.Kenmerken.ZijwandVerhogingInschuifElementKleur; UI.Kenmerken.ZijwandVerhogingMateriaal@default = DATA.Kenmerken.ZijwandVerhogingMateriaal; UI.Kenmerken.ZijwandVerhogingRelingKleur@default = DATA.Kenmerken.ZijwandVerhogingRelingKleur; if (DATA.Kenmerken.LadeHoogte == "M") then UI.Kenmerken.VoorwandTypeVanMBinnenlade@default = DATA.Kenmerken.VoorwandType; end if; if (DATA.Kenmerken.LadeHoogte == "E") then UI.Kenmerken.VoorwandTypeVanEBinnenlade@default = DATA.Kenmerken.VoorwandType; end if; if (DATA.Kenmerken.LadeHoogte == "K") then UI.Kenmerken.VoorwandTypeVanKBinnenlade@default = DATA.Kenmerken.VoorwandType; end if; UI.Lijn.Aantal@default = DATA.Lijn.Aantal; UI.Lijn.Referentie@default = DATA.Lijn.Referentie; local boolean _DummyCheckV01 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBinnen; local boolean _DummyCheckV02 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBuiten; local boolean _DummyCheckV03 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder; local boolean _DummyCheckV04 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Boxcap; local boolean _DummyCheckV05 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Boxcover; local boolean _DummyCheckV06 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestigingOnder; local boolean _DummyCheckV07 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestigingBoven; local boolean _DummyCheckV08 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontStabilisator; local boolean _DummyCheckV09 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider; local boolean _DummyCheckV10 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementVoor; local boolean _DummyCheckV11 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementZijkant; local boolean _DummyCheckV12 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst; local boolean _DummyCheckV13 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_RelingVoor; local boolean _DummyCheckV14 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_RelingZijkant; local boolean _DummyCheckV15 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; local boolean _DummyCheckV16 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; local boolean _DummyCheckV17 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers; local boolean _DummyCheckV18 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionMeenemers; local boolean _DummyCheckV19 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionEenheden; local boolean _DummyCheckV20 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Zijstabilisering; index i of UI.Kenmerken.NietMeeleveren local boolean _IsChecked = CBool(Eval("DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.Kenmerken.NietMeeleveren(i).Id)); UI.Kenmerken.NietMeeleveren(i).IsSelected@default = _IsChecked; end index; Values ;ui.kenmerken.bodemkleur@default;ui.kenmerken.corpusbreedte@default;ui.kenmerken.corpuswanddikte@default;ui.kenmerken.draagkracht@default;ui.kenmerken.dwarsverdelingaantal@default;ui.kenmerken.frontbevestiging@default;ui.kenmerken.geleidertechnologie@default;ui.kenmerken.heeftafwijkenderughoogte@default;ui.kenmerken.heeftopvullijstlinks@default;ui.kenmerken.heeftopvullijstrechts@default;ui.kenmerken.heeftzijstabilisering@default;ui.kenmerken.internebreedte@default;ui.kenmerken.isbinnenbreedte@default;ui.kenmerken.isbinnenlade@default;ui.kenmerken.ladediepte@default;ui.kenmerken.ladehoogte@default;ui.kenmerken.ladekleur@default;ui.kenmerken.meenemerset@default;ui.kenmerken.opvullijstkleur@default;ui.kenmerken.productiewijze@default;ui.kenmerken.rughoogte@default;ui.kenmerken.rugwandmateriaal@default;ui.kenmerken.toepassing@default;ui.kenmerken.verpakkingtype@default;ui.kenmerken.zijkanthoogte@default;ui.kenmerken.zijwandtype@default;ui.kenmerken.zijwandverhogingtype@default;ui.kenmerken.zijwandverhoginginschuifelementkleur@default;ui.kenmerken.zijwandverhogingmateriaal@default;ui.kenmerken.zijwandverhogingrelingkleur@default;ui.kenmerken.voorwandtypevanmbinnenlade@default;ui.kenmerken.voorwandtypevanebinnenlade@default;ui.kenmerken.voorwandtypevankbinnenlade@default;ui.lijn.aantal@default;ui.lijn.referentie@default; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) UI.Kenmerken.MatMateriaal@default = DATA.Kenmerken.MatMateriaal; UI.Kenmerken.HeeftMat@default = (UI.Kenmerken.MatMateriaal <> ""); UI.Kenmerken.MatVinylFiberglassKleur@default = ""; UI.Kenmerken.MatAntislipFiberKleur@default = ""; UI.Kenmerken.MatAntislipFlockKleur@default = ""; switch UI.Kenmerken.MatMateriaal case "CF": UI.Kenmerken.MatVinylFiberglassKleur@default = DATA.Kenmerken.MatKleur case "AF": UI.Kenmerken.MatAntislipFiberKleur@default = DATA.Kenmerken.MatKleur case "AZ": UI.Kenmerken.MatAntislipFlockKleur@default = DATA.Kenmerken.MatKleur end switch Values - Mat ;ui.kenmerken.matmateriaal@default;ui.kenmerken.heeftmat@default;ui.kenmerken.matvinylfiberglasskleur@default;ui.kenmerken.matantislipfiberkleur@default;ui.kenmerken.matantislipflockkleur@default; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) UI.Kenmerken.UitsparingData.X.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.X.Breedte; UI.Kenmerken.UitsparingData.X.Hoogte@default = DATA.Kenmerken.UitsparingData.X.Hoogte; UI.Kenmerken.UitsparingData.X.Materiaal@default = DATA.Kenmerken.UitsparingData.X.Materiaal; UI.Kenmerken.UitsparingData.M.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.M.Breedte; UI.Kenmerken.UitsparingData.M.Hoogte@default = DATA.Kenmerken.UitsparingData.M.Hoogte; UI.Kenmerken.UitsparingData.M.Materiaal@default = DATA.Kenmerken.UitsparingData.M.Materiaal; UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.Y.Breedte; UI.Kenmerken.UitsparingData.Y.Hoogte@default = DATA.Kenmerken.UitsparingData.Y.Hoogte; UI.Kenmerken.UitsparingData.Y.Materiaal@default = DATA.Kenmerken.UitsparingData.Y.Materiaal; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@default = DATA.Kenmerken.UitsparingData.Z1.Breedte; UI.Kenmerken.UitsparingData.Z1.Diepte@default = DATA.Kenmerken.UitsparingData.Z1.Diepte; UI.Kenmerken.UitsparingData.Z1.Hoogte@default = DATA.Kenmerken.UitsparingData.Z1.Hoogte; UI.Kenmerken.UitsparingData.Z1.Materiaal@default = DATA.Kenmerken.UitsparingData.Z1.Materiaal; UI.Kenmerken.UitsparingData.Z1.Vorm@default = DATA.Kenmerken.UitsparingData.Z1.Vorm; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@default = DATA.Kenmerken.UitsparingData.Z2.Breedte; UI.Kenmerken.UitsparingData.Z2.Diepte@default = DATA.Kenmerken.UitsparingData.Z2.Diepte; UI.Kenmerken.UitsparingData.Z2.Hoogte@default = DATA.Kenmerken.UitsparingData.Z2.Hoogte; UI.Kenmerken.UitsparingData.Z2.Materiaal@default = DATA.Kenmerken.UitsparingData.Z2.Materiaal; UI.Kenmerken.UitsparingData.Z2.Vorm@default = DATA.Kenmerken.UitsparingData.Z2.Vorm; UI.Kenmerken.UitsparingData.UitsparingAantal@default = DATA.Kenmerken.UitsparingData.UitsparingAantal; Values - UitsparingData ;ui.kenmerken.uitsparingdata.x.breedterugdeel@default;ui.kenmerken.uitsparingdata.x.hoogte@default;ui.kenmerken.uitsparingdata.x.materiaal@default;ui.kenmerken.uitsparingdata.m.breedterugdeel@default;ui.kenmerken.uitsparingdata.m.hoogte@default;ui.kenmerken.uitsparingdata.m.materiaal@default;ui.kenmerken.uitsparingdata.y.breedterugdeel@default;ui.kenmerken.uitsparingdata.y.hoogte@default;ui.kenmerken.uitsparingdata.y.materiaal@default;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z1.diepte@default;ui.kenmerken.uitsparingdata.z1.hoogte@default;ui.kenmerken.uitsparingdata.z1.materiaal@default;ui.kenmerken.uitsparingdata.z1.vorm@default;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z2.diepte@default;ui.kenmerken.uitsparingdata.z2.hoogte@default;ui.kenmerken.uitsparingdata.z2.materiaal@default;ui.kenmerken.uitsparingdata.z2.vorm@default;ui.kenmerken.uitsparingdata.uitsparingaantal@default; true 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.GeleiderTechnologie@default = DATA.BulkKenmerken(1).GeleiderTechnologie; UI.BulkKenmerken.HeeftOpvullijstLinks@default = DATA.BulkKenmerken(1).HeeftOpvullijstLinks; UI.BulkKenmerken.HeeftOpvullijstRechts@default = DATA.BulkKenmerken(1).HeeftOpvullijstRechts; UI.BulkKenmerken.HeeftZijstabilisering@default = DATA.BulkKenmerken(1).HeeftZijstabilisering; UI.BulkKenmerken.IsBinnenbreedte@default = DATA.BulkKenmerken(1).IsBinnenbreedte; UI.BulkKenmerken.IsBinnenlade@default = DATA.BulkKenmerken(1).IsBinnenlade; UI.BulkKenmerken.LadeDiepte@default = DATA.BulkKenmerken(1).LadeDiepte; UI.BulkKenmerken.LadeHoogte@default = DATA.BulkKenmerken(1).LadeHoogte; UI.BulkKenmerken.LadeKleur@default = DATA.BulkKenmerken(1).LadeKleur; UI.BulkKenmerken.MeenemerSet@default = DATA.BulkKenmerken(1).MeenemerSet; UI.BulkKenmerken.OpvullijstKleur@default = DATA.BulkKenmerken(1).OpvullijstKleur; UI.BulkKenmerken.VerpakkingType@default = DATA.BulkKenmerken(1).VerpakkingType; UI.BulkKenmerken.ZijkantHoogte@default = DATA.BulkKenmerken(1).ZijkantHoogte; UI.BulkKenmerken.ZijwandType@default = DATA.BulkKenmerken(1).ZijwandType; UI.BulkKenmerken.ZijwandVerhogingType@default = DATA.BulkKenmerken(1).ZijwandVerhogingType; UI.BulkKenmerken.ZijwandVerhogingInschuifElementKleur@default = DATA.BulkKenmerken(1).ZijwandVerhogingInschuifElementKleur; UI.BulkKenmerken.ZijwandVerhogingMateriaal@default = DATA.BulkKenmerken(1).ZijwandVerhogingMateriaal; UI.BulkKenmerken.ZijwandVerhogingRelingKleur@default = DATA.BulkKenmerken(1).ZijwandVerhogingRelingKleur; if (DATA.BulkKenmerken(1).LadeHoogte == "M") then UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@default = DATA.BulkKenmerken(1).VoorwandType; end if; if (DATA.BulkKenmerken(1).LadeHoogte == "E") then UI.BulkKenmerken.VoorwandTypeVanEBinnenlade@default = DATA.BulkKenmerken(1).VoorwandType; end if; if (DATA.BulkKenmerken(1).LadeHoogte == "K") then UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@default = DATA.BulkKenmerken(1).VoorwandType; end if; UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen; UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten; UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder; UI.BulkKenmerken.NietMeeleveren_Boxcap@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcap; UI.BulkKenmerken.NietMeeleveren_Boxcover@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcover; UI.BulkKenmerken.NietMeeleveren_FrontBevestigingOnder@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingOnder; UI.BulkKenmerken.NietMeeleveren_FrontBevestigingBoven@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingBoven; UI.BulkKenmerken.NietMeeleveren_FrontStabilisator@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontStabilisator; UI.BulkKenmerken.NietMeeleveren_Geleider@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider; UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor; UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant; UI.BulkKenmerken.NietMeeleveren_Opvullijst@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst; UI.BulkKenmerken.NietMeeleveren_RelingVoor@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_RelingVoor; UI.BulkKenmerken.NietMeeleveren_RelingZijkant@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_RelingZijkant; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionOnderdelen@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionMeenemers@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionMeenemers; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionEenheden@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionEenheden; UI.BulkKenmerken.NietMeeleveren_Zijstabilisering@default = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering; 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.geleidertechnologie@default;ui.bulkkenmerken.heeftopvullijstlinks@default;ui.bulkkenmerken.heeftopvullijstrechts@default;ui.bulkkenmerken.heeftzijstabilisering@default;ui.bulkkenmerken.isbinnenbreedte@default;ui.bulkkenmerken.isbinnenlade@default;ui.bulkkenmerken.ladediepte@default;ui.bulkkenmerken.ladehoogte@default;ui.bulkkenmerken.ladekleur@default;ui.bulkkenmerken.meenemerset@default;ui.bulkkenmerken.opvullijstkleur@default;ui.bulkkenmerken.verpakkingtype@default;ui.bulkkenmerken.zijkanthoogte@default;ui.bulkkenmerken.zijwandtype@default;ui.bulkkenmerken.zijwandverhogingtype@default;ui.bulkkenmerken.zijwandverhoginginschuifelementkleur@default;ui.bulkkenmerken.zijwandverhogingmateriaal@default;ui.bulkkenmerken.zijwandverhogingrelingkleur@default;ui.bulkkenmerken.voorwandtypevanmbinnenlade@default;ui.bulkkenmerken.voorwandtypevanebinnenlade@default;ui.bulkkenmerken.voorwandtypevankbinnenlade@default;ui.bulkkenmerken.nietmeeleveren_afdekkapbinnen@default;ui.bulkkenmerken.nietmeeleveren_afdekkapbuiten@default;ui.bulkkenmerken.nietmeeleveren_afdekkaprugwandhouder@default;ui.bulkkenmerken.nietmeeleveren_boxcap@default;ui.bulkkenmerken.nietmeeleveren_boxcover@default;ui.bulkkenmerken.nietmeeleveren_frontbevestigingonder@default;ui.bulkkenmerken.nietmeeleveren_frontbevestigingboven@default;ui.bulkkenmerken.nietmeeleveren_frontstabilisator@default;ui.bulkkenmerken.nietmeeleveren_geleider@default;ui.bulkkenmerken.nietmeeleveren_inschuifelementvoor@default;ui.bulkkenmerken.nietmeeleveren_inschuifelementzijkant@default;ui.bulkkenmerken.nietmeeleveren_opvullijst@default;ui.bulkkenmerken.nietmeeleveren_relingvoor@default;ui.bulkkenmerken.nietmeeleveren_relingzijkant@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotiononderdelen@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotionmeenemers@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotioneenheden@default;ui.bulkkenmerken.nietmeeleveren_zijstabilisering@default; true UI.BulkKenmerken.MatMateriaal@default = DATA.BulkKenmerken(1).MatMateriaal; UI.BulkKenmerken.HeeftMat@default = DATA.BulkKenmerken(1).HeeftMat; UI.BulkKenmerken.MatVinylFiberglassKleur@default = ""; UI.BulkKenmerken.MatAntislipFiberKleur@default = ""; UI.BulkKenmerken.MatAntislipFlockKleur@default = ""; switch UI.BulkKenmerken.MatMateriaal case "CF": UI.BulkKenmerken.MatVinylFiberglassKleur@default = DATA.BulkKenmerken(1).MatKleur case "AF": UI.BulkKenmerken.MatAntislipFiberKleur@default = DATA.BulkKenmerken(1).MatKleur case "AZ": UI.BulkKenmerken.MatAntislipFlockKleur@default = DATA.BulkKenmerken(1).MatKleur end switch Values - BulkKenmerken Mat ;ui.bulkkenmerken.matmateriaal@default;ui.bulkkenmerken.heeftmat@default;ui.bulkkenmerken.matvinylfiberglasskleur@default;ui.bulkkenmerken.matantislipfiberkleur@default;ui.bulkkenmerken.matantislipflockkleur@default; true if (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then UI.BulkKenmerken.CorpusBreedte@label = switch (UI.BulkKenmerken.IsBinnenbreedte) case "NietWijzigen": UI.BulkKenmerken.CorpusBreedte@label case "True": TRL.CorpusBinnenbreedte@label else TRL.CorpusBuitenbreedte@label end switch; else UI.Kenmerken.CorpusBreedte@label = switch (UI.Kenmerken.IsBinnenbreedte) case true: TRL.CorpusBinnenbreedte@label else TRL.CorpusBuitenbreedte@label end switch; end if; Label CorpusBreedte ; true $UitsparingPane@label = switch (UI.Kenmerken.Toepassing) case "SY": UI.Kenmerken.Toepassing@option("SY")@label case "SP": UI.Kenmerken.Toepassing@option("SP")@label else "" end switch; Label UitsparingDataPane ; (DATA.Kenmerken.Toepassing == "SY") or (DATA.Kenmerken.Toepassing == "SP") if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then UI.Kenmerken.UitsparingData.Z1@label = TRL.Z@label; else UI.Kenmerken.UitsparingData.Z1@label = TRL.Z1@label; end if; Label UitsparingData Z1 ; true local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing == "SP"); local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); local double _UitsparingDiepte = UI.Kenmerken.UitsparingData.Z1.Diepte; local double _UitsparingBreedte = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; if _IsSpoelbaklade then if (_UitsparingDiepte in {300 ; 350 ; 400 ; 450} ) then UI.Kenmerken.UitsparingData.UitsparingDiepte@default = "D" + CStr(_UitsparingDiepte); else _UitsparingDiepte = 0; end if; if (_UitsparingBreedte in {470 ; 570 ; 770} ) then UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@default = "B" + CStr(_UitsparingBreedte); else _UitsparingBreedte = 0; end if; end if; if _IsSifonlade then if (_UitsparingDiepte in {240} ) then UI.Kenmerken.UitsparingData.UitsparingDiepte@default = "D" + CStr(_UitsparingDiepte); else _UitsparingDiepte = 0; end if; // CodeUitsparingBreedte wordt niet gebruikt in geval van sifonlade if (_UitsparingBreedte in {160 ; 300 ; 350} ) then UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@default = "B" + CStr(_UitsparingBreedte); else _UitsparingBreedte = 0; end if; end if; Values UitsparingData Z1 ; true local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); local double _UitsparingDiepte = UI.Kenmerken.UitsparingData.Z1.Diepte; local double _UitsparingBreedte = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; if _IsSifonlade then if (_UitsparingDiepte in {240} ) then UI.Kenmerken.UitsparingData.UitsparingDiepte@default = "D" + CStr(_UitsparingDiepte); else _UitsparingDiepte = 0; end if; if (_UitsparingBreedte in {160 ; 300 ; 350} ) then UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@default = "B" + CStr(_UitsparingBreedte); else _UitsparingBreedte = 0; end if; end if; Values UitsparingData Z2 (alleen bij sifonlade) ; (UI.Kenmerken.UitsparingData@visible) local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing == "SP"); local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); if _IsSifonlade then UI.Kenmerken.UitsparingData.Afbeelding@default = "./images/Vanhoecke/mvx/UitsparingData/MVX_Toepassing_" + UI.Kenmerken.Toepassing + "_" + UI.Kenmerken.UitsparingData.UitsparingAantal + ".png"; end if; if _IsSpoelbaklade then UI.Kenmerken.UitsparingData.Afbeelding@default = "./images/Vanhoecke/mvx/UitsparingData/MVX_Toepassing_SP.png"; end if; UitsparingData afbeelding ;ui.kenmerken.uitsparingdata.afbeelding@default; true local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing == "SP"); local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SP" ; "SY"}); local boolean _HeeftDubbeleUitsparing = (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); UI.Kenmerken.UitsparingData@visible = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.UitsparingAantal@mandatory = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.X.BreedteRugdeel@mandatory = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@mandatory = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@mandatory = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.M.BreedteRugdeel@mandatory = _HeeftDubbeleUitsparing; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@mandatory = _HeeftDubbeleUitsparing; UI.Kenmerken.UitsparingData.M@visible = _HeeftDubbeleUitsparing; UI.Kenmerken.UitsparingData.Z2@visible = _HeeftDubbeleUitsparing; UI.Kenmerken.UitsparingData.UitsparingAantal@visible = _IsSifonlade; if _IsSpoelbaklade then UI.Kenmerken.UitsparingData.UitsparingAantal = "Enkel"; end if; Visible en mandatory - UitsparingData Aantal en Breedtes (numerieke breedtes) ;ui.kenmerken.uitsparingdata@visible;ui.kenmerken.uitsparingdata.uitsparingaantal@mandatory;ui.kenmerken.uitsparingdata.x.breedterugdeel@mandatory;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@mandatory;ui.kenmerken.uitsparingdata.y.breedterugdeel@mandatory;ui.kenmerken.uitsparingdata.m.breedterugdeel@mandatory;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@mandatory;ui.kenmerken.uitsparingdata.m@visible;ui.kenmerken.uitsparingdata.z2@visible;ui.kenmerken.uitsparingdata.uitsparingaantal@visible;ui.kenmerken.uitsparingdata.uitsparingaantal@value; true local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing == "SP"); local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); local boolean _IsLadeMetUitsparing = _IsSpoelbaklade or _IsSifonlade; local boolean _HeeftDubbeleUitsparing = (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); if not(BEHAVIOR.IsInteractive) then UI.Kenmerken.UitsparingData.X.CodeRugdeel@mandatory = false; UI.Kenmerken.UitsparingData.M.CodeRugdeel@mandatory = false; UI.Kenmerken.UitsparingData.Y.CodeRugdeel@mandatory = false; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@mandatory = false; UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@mandatory = false; UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@mandatory = false; UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte@mandatory = false; UI.Kenmerken.UitsparingData.UitsparingDiepte@mandatory = false; else UI.Kenmerken.UitsparingData.X.CodeRugdeel@visible = false; UI.Kenmerken.UitsparingData.X.CodeRugdeel@mandatory = false; UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@visible = _IsSpoelbaklade; UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@mandatory = false; // _IsSpoelbaklade; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@visible = _IsSifonlade; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@mandatory = _IsLadeMetUitsparing; UI.Kenmerken.UitsparingData.M.CodeRugdeel@visible = false; UI.Kenmerken.UitsparingData.M.CodeRugdeel@mandatory = _HeeftDubbeleUitsparing; UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte@visible = false; UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte@mandatory = false; UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@visible = (_IsSifonlade and _HeeftDubbeleUitsparing); UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@mandatory = (_IsSifonlade and _HeeftDubbeleUitsparing); UI.Kenmerken.UitsparingData.Y.CodeRugdeel@visible = false; UI.Kenmerken.UitsparingData.Y.CodeRugdeel@mandatory = false; end if; // Placeholders om de uitlijning te behouden (niet in TAX-model, wel bij TBX) :-P /* UI.Kenmerken.UitsparingData.X.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.X.CodeRugdeel@visible); UI.Kenmerken.UitsparingData.Z1.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@visible); UI.Kenmerken.UitsparingData.M.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.M.CodeRugdeel@visible); UI.Kenmerken.UitsparingData.Z2.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@visible); UI.Kenmerken.UitsparingData.Y.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Y.CodeRugdeel@visible); */ UI.Kenmerken.UitsparingData.X.CodePlaceholder@visible = false; UI.Kenmerken.UitsparingData.Z1.CodePlaceholder@visible = false; UI.Kenmerken.UitsparingData.M.CodePlaceholder@visible = false; UI.Kenmerken.UitsparingData.Z2.CodePlaceholder@visible = false; UI.Kenmerken.UitsparingData.Y.CodePlaceholder@visible = false; Visible en mandatory - UitsparingData Codes (Breedte en diepte) ;ui.kenmerken.uitsparingdata.x.coderugdeel@mandatory;ui.kenmerken.uitsparingdata.m.coderugdeel@mandatory;ui.kenmerken.uitsparingdata.y.coderugdeel@mandatory;ui.kenmerken.uitsparingdata.z1.codeuitsparing@mandatory;ui.kenmerken.uitsparingdata.z1.codeuitsparingbreedte@mandatory;ui.kenmerken.uitsparingdata.z2.codeuitsparing@mandatory;ui.kenmerken.uitsparingdata.z2.codeuitsparingbreedte@mandatory;ui.kenmerken.uitsparingdata.uitsparingdiepte@mandatory;ui.kenmerken.uitsparingdata.x.codeplaceholder@visible;ui.kenmerken.uitsparingdata.z1.codeplaceholder@visible;ui.kenmerken.uitsparingdata.m.codeplaceholder@visible;ui.kenmerken.uitsparingdata.z2.codeplaceholder@visible;ui.kenmerken.uitsparingdata.y.codeplaceholder@visible; BEHAVIOR.IsInteractive local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing == "SP"); UI.Kenmerken.UitsparingData.UitsparingDiepte@visible = _IsSpoelbaklade; UI.Kenmerken.UitsparingData.UitsparingDiepte@mandatory = _IsSpoelbaklade; Visible en mandatory - UitsparingData Speciaal Diepte ;ui.kenmerken.uitsparingdata.uitsparingdiepte@visible;ui.kenmerken.uitsparingdata.uitsparingdiepte@mandatory; (DATA.Kenmerken.Toepassing == "SP") local string _RugdeelOpMaat = "SP_M_BM"; if (UI.Kenmerken.UitsparingData.UitsparingAantal == "") then UI.Kenmerken.UitsparingData.UitsparingAantal@default = "Enkel"; end if; if (UI.Kenmerken.UitsparingData.X.CodeRugdeel <> _RugdeelOpMaat) then UI.Kenmerken.UitsparingData.X.CodeRugdeel@default = _RugdeelOpMaat; end if; if (UI.Kenmerken.UitsparingData.Y.CodeRugdeel <> _RugdeelOpMaat) then UI.Kenmerken.UitsparingData.Y.CodeRugdeel@default = _RugdeelOpMaat; end if; Defaults voor Spoelbaklade ;ui.kenmerken.uitsparingdata.uitsparingaantal@default;ui.kenmerken.uitsparingdata.x.coderugdeel@default;ui.kenmerken.uitsparingdata.y.coderugdeel@default; (DATA.Kenmerken.Toepassing == "SP") and BEHAVIOR.IsInteractive and (BEHAVIOR.ContextName <> "AxEditEdi") //local string _UitsparingSmal = "SP_Recht_M_D300_B470"; local string _UitsparingDiepte = "D300"; local string _UitsparingBreedte = "B470"; if (Config.InputMode <> "Edit") and (UI.Kenmerken.UitsparingData.UitsparingDiepte@default == "") then UI.Kenmerken.UitsparingData.UitsparingDiepte@default = _UitsparingDiepte; end if; if (UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte == "") then UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@default = _UitsparingBreedte; end if; local string _NieuweDefaultCode = ""; local boolean _DefaultCodeZetten = (Config.InputMode <> "CreateConfig"); if _DefaultCodeZetten and (Config.InputMode == "Edit" and UI.Kenmerken.UitsparingData.Z1.CodeUitsparing == "") then _DefaultCodeZetten = false; end if; if _DefaultCodeZetten then if (mid(UI.Kenmerken.UitsparingData.Z1.CodeUitsparing; 1; 3) <> "SP_") then UI.Kenmerken.UitsparingData.UitsparingDiepte@default = _UitsparingDiepte; UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@default = _UitsparingBreedte; end if; end if; Defaults voor Spoelbaklade CodeUitsparingBreedte Z1 (niet bij CreateConfig) ;ui.kenmerken.uitsparingdata.uitsparingdiepte@default;ui.kenmerken.uitsparingdata.z1.codeuitsparingbreedte@default; (DATA.Kenmerken.Toepassing == "SP") and not(BEHAVIOR.IsInteractive) //local string _UitsparingSmal = "SP_Recht_M_D350_B470"; local string _UitsparingDiepte; local string _UitsparingBreedte = "B" + DATA.Kenmerken.UitsparingData.Z1.Breedte; if ((UI.Kenmerken.UitsparingData.UitsparingDiepte@default == "") and not(DATA.Kenmerken.UitsparingData.Z1.Diepte == 0)) then _UitsparingDiepte = "D" + Cstr(DATA.Kenmerken.UitsparingData.Z1.Diepte); else _UitsparingDiepte = "D" + Cstr(Clng(Data.Kenmerken.LadeDiepte) - 150); end if; UI.Kenmerken.UitsparingData.UitsparingDiepte@default = _UitsparingDiepte; if (UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte == "") then UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@default = _UitsparingBreedte; end if; /* local string _NieuweDefaultCode = ""; local boolean _DefaultCodeZetten = (Config.InputMode <> "CreateConfig"); if _DefaultCodeZetten and (Config.InputMode == "Edit" and UI.Kenmerken.UitsparingData.Z1.CodeUitsparing == "") then _DefaultCodeZetten = false; end if; if _DefaultCodeZetten then if (mid(UI.Kenmerken.UitsparingData.Z1.CodeUitsparing; 1; 3) <> "SP_") then UI.Kenmerken.UitsparingData.UitsparingDiepte@default = _UitsparingDiepte; UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@default = _UitsparingBreedte; end if; end if; */ Defaults voor Spoelbaklade CodeUitsparingBreedte Z1 (bij CreateConfig) ;ui.kenmerken.uitsparingdata.uitsparingdiepte@default;ui.kenmerken.uitsparingdata.z1.codeuitsparingbreedte@default; (DATA.Kenmerken.Toepassing == "SY") local string _RugdeelOpMaat = "SY_M_BM"; local string _UitsparingSmalZ1 = "SY_Recht_M_D240_B160"; local string _UitsparingSmalZ2 = "SY_Recht_M_D240_B160"; if (BEHAVIOR.IsInteractive) then _UitsparingSmalZ1 = "SY_Recht_M_D240_B160"; else if (DATA.Kenmerken.UitsparingData.Z1.Breedte == 350) then _UitsparingSmalZ1 = "SY_Recht_E_D240_B350"; else _UitsparingSmalZ1 = "SY_Recht_M_D240_B" + CStr(DATA.Kenmerken.UitsparingData.Z1.Breedte); end if; if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then if (DATA.Kenmerken.UitsparingData.Z2.Breedte == 350) then _UitsparingSmalZ2 = "SY_Recht_E_D240_B350"; else _UitsparingSmalZ2 = "SY_Recht_M_D240_B" + CStr(DATA.Kenmerken.UitsparingData.Z2.Breedte); end if; end if; end if; if (UI.Kenmerken.UitsparingData.UitsparingAantal == "") then UI.Kenmerken.UitsparingData.UitsparingAantal@default = "Enkel"; end if; if (UI.Kenmerken.UitsparingData.X.CodeRugdeel <> _RugdeelOpMaat) then UI.Kenmerken.UitsparingData.X.CodeRugdeel@default = _RugdeelOpMaat; end if; if (UI.Kenmerken.UitsparingData.M.CodeRugdeel <> _RugdeelOpMaat) then UI.Kenmerken.UitsparingData.M.CodeRugdeel@default = _RugdeelOpMaat; end if; if (UI.Kenmerken.UitsparingData.Y.CodeRugdeel <> _RugdeelOpMaat) then UI.Kenmerken.UitsparingData.Y.CodeRugdeel@default = _RugdeelOpMaat; end if; local string _NieuweDefaultCode = ""; local boolean _DefaultCodeZetten = BEHAVIOR.IsInteractive; if _DefaultCodeZetten and (Config.InputMode == "Edit" and UI.Kenmerken.UitsparingData.Z1.CodeUitsparing == "") then _DefaultCodeZetten = false; end if; if _DefaultCodeZetten then if (mid(UI.Kenmerken.UitsparingData.Z1.CodeUitsparing; 1; 3) <> "SY_") then _NieuweDefaultCode = _UitsparingSmalZ1; end if; if (_NieuweDefaultCode <> "") then UI.Kenmerken.UitsparingData.Z1.CodeUitsparing = _NieuweDefaultCode; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = _NieuweDefaultCode; UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = _UitsparingSmalZ2 ; // UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte voor sifonlade niet nodig, dus best op "" defaulten. Idem voor Z1.CodeUitsparingBreedte end if; end if; if not(BEHAVIOR.IsInteractive) then UI.Kenmerken.UitsparingData.Z1.CodeUitsparing = _UitsparingSmalZ1; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = _UitsparingSmalZ1; UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = _UitsparingSmalZ2; end if; Defaults voor Sifonlade ;ui.kenmerken.uitsparingdata.uitsparingaantal@default;ui.kenmerken.uitsparingdata.x.coderugdeel@default;ui.kenmerken.uitsparingdata.m.coderugdeel@default;ui.kenmerken.uitsparingdata.y.coderugdeel@default;ui.kenmerken.uitsparingdata.z1.codeuitsparing@value;ui.kenmerken.uitsparingdata.z1.codeuitsparing@default;ui.kenmerken.uitsparingdata.z2.codeuitsparing@default; (DATA.Kenmerken.Toepassing == "SY") and (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") local string _SifonVoorDampkap = "SY_Recht_E_D240_B350"; // dit geeft RugHoogte "E" local boolean _IsCodeZ1Gewijzigd = (UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default <> UI.Kenmerken.UitsparingData.Z1.CodeUitsparing); local boolean _IsCodeZ2Gewijzigd = (UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default <> UI.Kenmerken.UitsparingData.Z2.CodeUitsparing); if (UI.Kenmerken.UitsparingData.Z1.CodeUitsparing == _SifonVoorDampkap) or (UI.Kenmerken.UitsparingData.Z2.CodeUitsparing == _SifonVoorDampkap) then if (_IsCodeZ1Gewijzigd) then UI.Kenmerken.UitsparingData.Z2.CodeUitsparing = UI.Kenmerken.UitsparingData.Z1.CodeUitsparing; end if; if (_IsCodeZ2Gewijzigd) then UI.Kenmerken.UitsparingData.Z1.CodeUitsparing = UI.Kenmerken.UitsparingData.Z2.CodeUitsparing; end if; end if; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = UI.Kenmerken.UitsparingData.Z1.CodeUitsparing; UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = UI.Kenmerken.UitsparingData.Z2.CodeUitsparing; CodeZ1 en CodeZ2 zijn beide Rughoogte M of Rughoogte E - bij sifonlade ;ui.kenmerken.uitsparingdata.z1.codeuitsparing@default;ui.kenmerken.uitsparingdata.z2.codeuitsparing@default; BEHAVIOR.IsInteractive and not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.X@visible) UI.Kenmerken.UitsparingData.X.BreedteRugdeel@default = 0; UitsparingData breedte X defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.x.breedterugdeel@default; BEHAVIOR.IsInteractive and not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Y@visible) UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@default = 0; UitsparingData breedte Y defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.y.breedterugdeel@default; BEHAVIOR.IsInteractive and not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.M@visible) UI.Kenmerken.UitsparingData.M.BreedteRugdeel@default = 0; UitsparingData breedte M defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.m.breedterugdeel@default; BEHAVIOR.IsInteractive and not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z1@visible) local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing == "SP"); local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); local string _UitsparingSmal; local string _UitsparingBreedteCode470; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@default = 0; if _IsSpoelbakLade then _UitsparingBreedteCode470 = "B470"; UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@default = _UitsparingBreedteCode470 ; // Bijhorende "CodeUitsparing" is in deze Rule niet nodig, want zal door Rule "UitsparingData Z1 invullen" ingevuld worden. // _UitsparingSmal = "SP_Recht_M_D350_B470"; // UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = _UitsparingSmal end if; if _IsSifonlade then _UitsparingSmal = "SY_Recht_M_D240_B160"; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = _UitsparingSmal; // CodeUitsparingBreedte wordt niet gebruikt in geval van sifonlade // _UitsparingBreedteCode470 = "B160"; // UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@default = _UitsparingBreedteCode470; end if; UitsparingData breedte Z1 defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z1.codeuitsparingbreedte@default;ui.kenmerken.uitsparingdata.z1.codeuitsparing@default; BEHAVIOR.IsInteractive and not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z2@visible) local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); local string _UitsparingSmal; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@default = 0; if _IsSifonlade then _UitsparingSmal = "SY_Recht_M_D240_B160"; UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = _UitsparingSmal; // CodeUitsparingBreedte wordt niet gebruikt in geval van sifonlade // _UitsparingBreedteCode470 = "B160"; // UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte@default = _UitsparingBreedteCode470; end if; UitsparingData breedte Z2 defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z2.codeuitsparing@default; (DATA.Kenmerken.Toepassing in {"SP";"SY"}) local string _CodeX = UI.Kenmerken.UitsparingData.X.CodeRugdeel; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; switch _CodeX case "SP_M_BM": // enige mogelijkheid bij Spoelbaklade UI.Kenmerken.UitsparingData.X.Hoogte = "M"; _MinimumBreedte = 125; if Data.Kenmerken.GeleiderTechnologie == "TOB" then _MinimumBreedte = 144; end if; _MaximumBreedte = 269.5; // Het maximum bij spoelbak is vastgelegd door PM (is een keuze van de Business) case "SY_M_BM": // enige mogelijkheid bij Sifonlade UI.Kenmerken.UitsparingData.X.Hoogte = "M"; _MinimumBreedte = 114; if Data.Kenmerken.GeleiderTechnologie == "TOB" then _MinimumBreedte = 134; end if; _MaximumBreedte = 999; // Het maximum is eigenlijk vastgelegd door de maximum CorpusBreedte. end switch; UI.Kenmerken.UitsparingData.X.Materiaal = "Hout"; UI.Kenmerken.UitsparingData.X.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Hout")@label; RANGE.UitsparingDataBreedteX.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteX.Maximum = _MaximumBreedte; UitsparingData X invullen ;ui.kenmerken.uitsparingdata.x.materiaal@value;ui.kenmerken.uitsparingdata.x.materiaaldisplay@value;range.uitsparingdatabreedtex.minimum@value;range.uitsparingdatabreedtex.maximum@value; (DATA.Kenmerken.Toepassing in {"SP";"SY"}) local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing == "SP"); local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); local string _CodeUitsparingBreedteZ1 = UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte; local string _CodeDiepteZ1 = UI.Kenmerken.UitsparingData.UitsparingDiepte; local string _RugHoogte; local string _UitsparingMateriaal; local string _PrefixCodeUitsparing; local double _UitsparingDiepte = 0; local double _UitsparingBreedte = 0; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; if _IsSpoelbaklade then _PrefixCodeUitsparing = "SP"; _UitsparingMateriaal = "Hout"; _RugHoogte = "M"; switch _CodeDiepteZ1 case "D300": _UitsparingDiepte = 300; case "D350": _UitsparingDiepte = 350; case "D400": _UitsparingDiepte = 400; case "D450": _UitsparingDiepte = 450; end switch; switch _CodeUitsparingBreedteZ1 case "B470": _UitsparingBreedte = 470; case "B570": _UitsparingBreedte = 570; case "B770": _UitsparingBreedte = 770; end switch; end if; if _IsSifonlade then local string _CodeZ1 = UI.Kenmerken.UitsparingData.Z1.CodeUitsparing; _PrefixCodeUitsparing = "SY"; _UitsparingMateriaal = "Hout"; switch _CodeZ1 case "SY_Recht_M_D240_B160": _UitsparingBreedte = 160; _UitsparingDiepte = 240; _RugHoogte = "M"; case "SY_Recht_M_D240_B300": _UitsparingBreedte = 300; _UitsparingDiepte = 240; _RugHoogte = "M"; case "SY_Recht_E_D240_B350": _UitsparingBreedte = 350; _UitsparingDiepte = 240; _RugHoogte = "E"; end switch; end if; UI.Kenmerken.UitsparingData.Z1.Hoogte = _RugHoogte; UI.Kenmerken.UitsparingData.Z1.Vorm = "Recht"; DATA.Kenmerken.UitsparingData.Z1.Vorm = "Recht"; UI.Kenmerken.UitsparingData.Z1.Materiaal = _UitsparingMateriaal; UI.Kenmerken.UitsparingData.Z1.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option(_UitsparingMateriaal)@label; if (_UitsparingDiepte > 0) and (_UitsparingBreedte > 0) then UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = _UitsparingBreedte; UI.Kenmerken.UitsparingData.Z1.Diepte = _UitsparingDiepte; if _IsSpoelbaklade then UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = _PrefixCodeUitsparing + "_Recht_" + _RugHoogte + "_D" + CStr(_UitsparingDiepte) + "_B" + CStr(_UitsparingBreedte); end if; // CodeUitsparingBreedte wordt niet gebruikt in geval van sifonlade //if _IsSifonlade then // UI.Kenmerken.UitsparingData.Z1.CodeUitsparingBreedte@default = "_B" + CStr(_UitsparingBreedte); //end if; _MinimumBreedte = _UitsparingBreedte; _MaximumBreedte = _UitsparingBreedte; end if; RANGE.UitsparingDataBreedteZ1.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteZ1.Maximum = _MaximumBreedte; UitsparingData Z1 invullen ;ui.kenmerken.uitsparingdata.z1.hoogte@value;ui.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.z1.vorm@value;ui.kenmerken.uitsparingdata.z1.materiaal@value;ui.kenmerken.uitsparingdata.z1.materiaaldisplay@value;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@value;ui.kenmerken.uitsparingdata.z1.diepte@value;range.uitsparingdatabreedtez1.minimum@value;range.uitsparingdatabreedtez1.maximum@value; (DATA.Kenmerken.Toepassing in {"SY"}) local string _CodeM = UI.Kenmerken.UitsparingData.M.CodeRugdeel; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; switch _CodeM case "SY_M_BM": // enige mogelijkheid bij Sifonlade UI.Kenmerken.UitsparingData.M.Hoogte = "M"; _MinimumBreedte = 97; _MaximumBreedte = 999; end switch; UI.Kenmerken.UitsparingData.M.Materiaal = "Hout"; UI.Kenmerken.UitsparingData.M.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Hout")@label; RANGE.UitsparingDataBreedteM.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteM.Maximum = _Maximumbreedte; UitsparingData M invullen ;ui.kenmerken.uitsparingdata.m.materiaal@value;ui.kenmerken.uitsparingdata.m.materiaaldisplay@value;range.uitsparingdatabreedtem.minimum@value;range.uitsparingdatabreedtem.maximum@value; (DATA.Kenmerken.Toepassing in {"SY"}) and (DATA.Kenmerken.UitsparingData.uitsparingAantal == "Dubbel") local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); local string _CodeUitsparingBreedteZ2 = UI.Kenmerken.UitsparingData.Z2.CodeUitsparingBreedte; local string _RugHoogte; local string _UitsparingMateriaal; local string _PrefixCodeUitsparing; local double _UitsparingDiepte = 0; local double _UitsparingBreedte = 0; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; if _IsSifonlade then local string _CodeZ2 = UI.Kenmerken.UitsparingData.Z2.CodeUitsparing; _PrefixCodeUitsparing = "SY"; _UitsparingMateriaal = "Hout"; _RugHoogte = DATA.Kenmerken.RugHoogte; switch _CodeZ2 case "SY_Recht_M_D240_B160": _UitsparingBreedte = 160; _UitsparingDiepte = 240; _RugHoogte = "M"; case "SY_Recht_M_D240_B300": _UitsparingBreedte = 300; _UitsparingDiepte = 240; _RugHoogte = "M"; case "SY_Recht_E_D240_B350": _UitsparingBreedte = 350; _UitsparingDiepte = 240; _RugHoogte = "E"; end switch; end if; UI.Kenmerken.UitsparingData.Z2.Hoogte = _RugHoogte; UI.Kenmerken.UitsparingData.Z2.Vorm = "Recht"; DATA.Kenmerken.UitsparingData.Z2.Vorm = "Recht"; UI.Kenmerken.UitsparingData.Z2.Materiaal = _UitsparingMateriaal; UI.Kenmerken.UitsparingData.Z2.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option(_UitsparingMateriaal)@label; if (_UitsparingDiepte > 0) and (_UitsparingBreedte > 0) then UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = _UitsparingBreedte; UI.Kenmerken.UitsparingData.Z2.Diepte = _UitsparingDiepte; _MinimumBreedte = _UitsparingBreedte; _MaximumBreedte = _UitsparingBreedte; end if; RANGE.UitsparingDataBreedteZ2.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteZ2.Maximum = _MaximumBreedte; UitsparingData Z2 invullen ;ui.kenmerken.uitsparingdata.z2.hoogte@value;ui.kenmerken.uitsparingdata.z2.vorm@value;data.kenmerken.uitsparingdata.z2.vorm@value;ui.kenmerken.uitsparingdata.z2.materiaal@value;ui.kenmerken.uitsparingdata.z2.materiaaldisplay@value;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@value;ui.kenmerken.uitsparingdata.z2.diepte@value;range.uitsparingdatabreedtez2.minimum@value;range.uitsparingdatabreedtez2.maximum@value; (DATA.Kenmerken.Toepassing in {"SP";"SY"}) local string _CodeY = UI.Kenmerken.UitsparingData.Y.CodeRugdeel; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; switch _CodeY case "SP_M_BM": // enige mogelijkheid bij Spoelbaklade UI.Kenmerken.UitsparingData.Y.Hoogte = "M"; _MinimumBreedte = 125; if Data.Kenmerken.GeleiderTechnologie == "TOB" then _MinimumBreedte = 144; end if; _MaximumBreedte = 269.5; // Het maximum bij spoelbak is vastgelegd door PM (is een keuze van de Business) case "SY_M_BM": // enige mogelijkheid bij Sifonlade UI.Kenmerken.UitsparingData.Y.Hoogte = "M"; _MinimumBreedte = 114; if Data.Kenmerken.GeleiderTechnologie == "TOB" then _MinimumBreedte = 134; end if; _MaximumBreedte = 999; // Het maximum is eigenlijk vastgelegd door de maximum CorpusBreedte. end switch; UI.Kenmerken.UitsparingData.Y.Materiaal = "Hout"; UI.Kenmerken.UitsparingData.Y.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Hout")@label; RANGE.UitsparingDataBreedteY.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteY.Maximum = _MaximumBreedte; UitsparingData Y invullen ;ui.kenmerken.uitsparingdata.y.materiaal@value;ui.kenmerken.uitsparingdata.y.materiaaldisplay@value;range.uitsparingdatabreedtey.minimum@value;range.uitsparingdatabreedtey.maximum@value; (DATA.Kenmerken.Toepassing in {"SP";"SY"}) UI.Kenmerken.RugHoogte = UI.Kenmerken.UitsparingData.Z1.Hoogte; DATA.Kenmerken.RugHoogte = UI.Kenmerken.RugHoogte; RugHoogte volgt Uisparing Z1 hoogte ;ui.kenmerken.rughoogte@value;data.kenmerken.rughoogte@value; (UI.Kenmerken.UitsparingData@visible) and (UI.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") local double _SuggestieX = 0; local double _SuggestieY = 0; local double _SuggestieZ1 = 0; local double _BreedteX = UI.Kenmerken.UitsparingData.X.BreedteRugdeel; local double _BreedteY = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; local double _BreedteZ1 = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; local double _VerwachteBreedte = DATA.Kenmerken.InterneBreedte; local boolean _AlleBreedtesIngevuld = (_BreedteX > 0) and (_BreedteY > 0) and (_BreedteZ1 > 0); local boolean _AlleBreedtesLeeg = (_BreedteX == 0) and (_BreedteY == 0) and (_BreedteZ1 == 0); local boolean _ToonGesuggereerdeWaarde = false; if ((_AlleBreedtesIngevuld) or (_AlleBreedtesLeeg)) then _ToonGesuggereerdeWaarde = false; else _ToonGesuggereerdeWaarde = (_VerwachteBreedte > 0); end if; if (_ToonGesuggereerdeWaarde) then local double _BreedteSaldo = _VerwachteBreedte - (_BreedteX + _BreedteY + _BreedteZ1); if (_BreedteZ1 > 0) then if ((_BreedteX == 0) and (_BreedteY == 0)) then _SuggestieX = Round((_BreedteSaldo / 2) ; 0.1); _SuggestieY = (_BreedteSaldo - _SuggestieX); // _SuggestieY = _SuggestieX , except when _SuggestieX is rounded. else if (_BreedteX == 0) then _SuggestieX = _BreedteSaldo; end if; if (_BreedteY == 0) then _SuggestieY = _BreedteSaldo; end if; end if; else // BreedteZ1 == 0 if ((_BreedteX > 0) and (_BreedteY > 0)) then _SuggestieZ1 = _BreedteSaldo; else if (_BreedteX == 0) then _SuggestieX = _BreedteY; _SuggestieZ1 = (_BreedteSaldo - _SuggestieX); end if; if (_BreedteY == 0) then _SuggestieY = _BreedteX; _SuggestieZ1 = (_BreedteSaldo - _SuggestieY); end if; end if; end if; end if; UI.Kenmerken.UitsparingData.X.GesuggereerdeWaarde = _SuggestieX; UI.Kenmerken.UitsparingData.Y.GesuggereerdeWaarde = _SuggestieY; UI.Kenmerken.UitsparingData.Z1.GesuggereerdeWaarde = _SuggestieZ1; UI.Kenmerken.UitsparingData.M.GesuggereerdeWaarde = 0; UI.Kenmerken.UitsparingData.Z2.GesuggereerdeWaarde = 0; Bereken GesuggereerdeWaarden Enkele uitsparing ;ui.kenmerken.uitsparingdata.x.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.y.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z1.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.m.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z2.gesuggereerdewaarde@value; (UI.Kenmerken.UitsparingData@visible) and (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") local double _SuggestieX = 0; local double _SuggestieM = 0; local double _SuggestieY = 0; local double _SuggestieZ1 = 0; local double _SuggestieZ2 = 0; local double _BreedteX = UI.Kenmerken.UitsparingData.X.BreedteRugdeel; local double _BreedteM = UI.Kenmerken.UitsparingData.M.BreedteRugdeel; local double _BreedteY = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; local double _BreedteZ1 = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; local double _BreedteZ2 = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing; local double _VerwachteBreedte = DATA.Kenmerken.InterneBreedte; local boolean _AlleRugBreedtesLeeg = (_BreedteX == 0) and (_BreedteM == 0) and (_BreedteY == 0); local boolean _AlleRugBreedtesIngevuld = (_BreedteX > 0) and (_BreedteM > 0) and (_BreedteY > 0); local boolean _AlleBreedtesIngevuld = (_AlleRugBreedtesIngevuld) and (_BreedteZ1 > 0) and (_BreedteZ2 > 0); local boolean _ToonGesuggereerdeWaarde = false; if ((_AlleRugBreedtesLeeg) or (_AlleBreedtesIngevuld)) then _ToonGesuggereerdeWaarde = false; else _ToonGesuggereerdeWaarde = (_VerwachteBreedte > 0); end if; if (_ToonGesuggereerdeWaarde) then local double _BreedteSaldo = _VerwachteBreedte - (_BreedteX + _BreedteM + _BreedteY + _BreedteZ1 + _BreedteZ2); if (_AlleRugBreedtesIngevuld) then if ((_BreedteZ1 == 0) and (_BreedteZ2 == 0)) then _SuggestieZ1 = Round((_BreedteSaldo / 2) ; 0.1); _SuggestieZ2 = (_BreedteSaldo - _SuggestieZ1); // _SuggestieZ2 = _SuggestieZ1 , except when _SuggestieZ1 is rounded. else if (_BreedteZ1 == 0) then _SuggestieZ1 = _BreedteSaldo; end if; if (_BreedteZ2 == 0) then _SuggestieZ2 = _BreedteSaldo; end if; end if; else // (not _AlleRugBreedtesIngevuld) if ((_BreedteZ1 > 0) and (_BreedteZ2 > 0)) then if (_BreedteM > 0) then if ((_BreedteX == 0) and (_BreedteY == 0)) then _SuggestieX = Round((_BreedteSaldo / 2) ; 0.1); _SuggestieY = (_BreedteSaldo - _SuggestieX); // _SuggestieY = _SuggestieX , except when _SuggestieX is rounded. else if (_BreedteX == 0) then _SuggestieX = _BreedteSaldo; end if; if (_BreedteY == 0) then _SuggestieY = _BreedteSaldo; end if; end if; else // BreedteM == 0 if ((_BreedteX > 0) and (_BreedteY > 0)) then _SuggestieM = _BreedteSaldo; else _SuggestieX = 0; _SuggestieY = 0; if (_BreedteX == 0) then _SuggestieX = _BreedteY; end if; if (_BreedteY == 0) then _SuggestieY = _BreedteX; end if; _SuggestieM = (_BreedteSaldo - _SuggestieX - _SuggestieY); end if; end if; else // Combinatie van RugBreedtes en UitsparingBreedtes niet ingevuld : TO DO local boolean _dummy = true; end if; end if; end if; UI.Kenmerken.UitsparingData.X.GesuggereerdeWaarde = _SuggestieX; UI.Kenmerken.UitsparingData.M.GesuggereerdeWaarde = _SuggestieM; UI.Kenmerken.UitsparingData.Y.GesuggereerdeWaarde = _SuggestieY; UI.Kenmerken.UitsparingData.Z1.GesuggereerdeWaarde = _SuggestieZ1; UI.Kenmerken.UitsparingData.Z2.GesuggereerdeWaarde = _SuggestieZ2; Bereken GesuggereerdeWaarden Dubbele uitsparing ;ui.kenmerken.uitsparingdata.x.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.m.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.y.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z1.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z2.gesuggereerdewaarde@value; (DATA.Kenmerken.Toepassing in {"SP";"SY"}); local boolean _HeeftDubbeleUitsparing = (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); local double _TotaleBreedte = 0; local double _BreedteX = UI.Kenmerken.UitsparingData.X.BreedteRugdeel; local double _BreedteZ1 = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; local double _BreedteM = UI.Kenmerken.UitsparingData.M.BreedteRugdeel; local double _BreedteZ2 = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing; local double _BreedteY = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; _TotaleBreedte = _BreedteX + _BreedteZ1 + _BreedteY; if (_HeeftDubbeleUitsparing) then _TotaleBreedte = _TotaleBreedte + _BreedteM + _BreedteZ2; end if; UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte = _TotaleBreedte; Bereken TotaleBreedte ;ui.kenmerken.uitsparingdata.uitsparingdata_totalebreedte@value; UI.Kenmerken.UitsparingData@visible UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte = DATA.Kenmerken.InterneBreedte; Instellen VerwachteBreedte bij Uitsparingen ;ui.kenmerken.uitsparingdata.uitsparingdata_verwachtebreedte@value; false //true // indien HeeftUitsparing local boolean _IsGeldigTotaleBreedte = (UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte == UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte); local string _ControlClass = ""; //"colorBlack"; if not(_IsGeldigTotaleBreedte) then _ControlClass = "eConInvalidField"; // ui-state-error""colorRed"; end if; UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte@style = "controlclass:" + _ControlClass; // _CssClassname; //UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte@styleClass = _CssClassname; UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte@visible = not(_IsGeldigTotaleBreedte); Visible en formatting - VerwachteBreedte ;ui.kenmerken.uitsparingdata.uitsparingdata_verwachtebreedte@visible; (RANGE.UitsparingDataBreedteX.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteX.Maximum == RANGE.UitsparingDataBreedteX.Minimum); UI.Kenmerken.UitsparingData.X.BreedteRugdeel@enabled = not(_IsVasteBreedte); Breedte X wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.x.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteM.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteM.Maximum == RANGE.UitsparingDataBreedteM.Minimum); UI.Kenmerken.UitsparingData.M.BreedteRugdeel@enabled = not(_IsVasteBreedte); Breedte M wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.m.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteY.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteY.Maximum == RANGE.UitsparingDataBreedteY.Minimum); UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@enabled = not(_IsVasteBreedte); Breedte Y wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.y.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteZ1.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteZ1.Maximum == RANGE.UitsparingDataBreedteZ1.Minimum); UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@enabled = not(_IsVasteBreedte); Breedte Z1 wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@enabled; (RANGE.UitsparingDataBreedteZ2.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteZ2.Maximum == RANGE.UitsparingDataBreedteZ2.Minimum); UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@enabled = not(_IsVasteBreedte); Breedte Z2 wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@enabled; BEHAVIOR.IsEconAx and not(BEHAVIOR.IsInteractive) DATA.Kenmerken.UitsparingData.X.Hoogte = UI.Kenmerken.UitsparingData.X.Hoogte; DATA.Kenmerken.UitsparingData.X.Materiaal = UI.Kenmerken.UitsparingData.X.Materiaal; DATA.Kenmerken.UitsparingData.M.Hoogte = UI.Kenmerken.UitsparingData.M.Hoogte; DATA.Kenmerken.UitsparingData.M.Materiaal = UI.Kenmerken.UitsparingData.M.Materiaal; DATA.Kenmerken.UitsparingData.Y.Hoogte = UI.Kenmerken.UitsparingData.Y.Hoogte; DATA.Kenmerken.UitsparingData.Y.Materiaal = UI.Kenmerken.UitsparingData.Y.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Diepte = UI.Kenmerken.UitsparingData.Z1.Diepte; DATA.Kenmerken.UitsparingData.Z1.Hoogte = UI.Kenmerken.UitsparingData.Z1.Hoogte; DATA.Kenmerken.UitsparingData.Z1.Materiaal = UI.Kenmerken.UitsparingData.Z1.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Vorm = UI.Kenmerken.UitsparingData.Z1.Vorm; If (DATA.Kenmerken.UitsparingData.uitsparingAantal == "Dubbel") then DATA.Kenmerken.UitsparingData.Z2.Diepte = UI.Kenmerken.UitsparingData.Z2.Diepte; DATA.Kenmerken.UitsparingData.Z2.Hoogte = UI.Kenmerken.UitsparingData.Z2.Hoogte; DATA.Kenmerken.UitsparingData.Z2.Materiaal = UI.Kenmerken.UitsparingData.Z2.Materiaal; DATA.Kenmerken.UitsparingData.Z2.Vorm = UI.Kenmerken.UitsparingData.Z2.Vorm; end if; /* // De Breedtes moeten ingevuld zijn in de EDI-input waarden DATA.Kenmerken.UitsparingData.X.Breedte = UI.Kenmerken.UitsparingData.X.BreedteRugdeel; DATA.Kenmerken.UitsparingData.M.Breedte = UI.Kenmerken.UitsparingData.M.BreedteRugdeel; DATA.Kenmerken.UitsparingData.Y.Breedte = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; DATA.Kenmerken.UitsparingData.Z2.Breedte = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing; */ UitsparingData UI naar DATA (ax-background mode) ;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value; true local boolean _IsMaatwerkViewerToegelaten = false; if BEHAVIOR.IsEconAX then _IsMaatwerkViewerToegelaten = CONFIG.Settings.IsMaatwerkViewerToegelaten; end if; local boolean _BEHAVIOR_IsPanelMaatwerkViewerZichtbaar = (_IsMaatwerkViewerToegelaten == true); local boolean _BEHAVIOR_IsButtonMaatwerkViewerZichtbaar = (_IsMaatwerkViewerToegelaten == true); UI.MWViewer@visible = _BEHAVIOR_IsPanelMaatwerkViewerZichtbaar; UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible = _BEHAVIOR_IsButtonMaatwerkViewerZichtbaar; Gedrag MaatwerkViewer button visible ;ui.mwviewer@visible;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@visible; (UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible) local boolean _BEHAVIOR_IsButtonMaatwerkViewerEnabled = false; local long _AantalOngeldigeVelden = InvalidFields(); if _AantalOngeldigeVelden == 0 then _BEHAVIOR_IsButtonMaatwerkViewerEnabled = true; else if (_AantalOngeldigeVelden == 1) then DATA.Lijn.InvalidFieldSet@options = InvalidFieldSet(); if (DATA.Lijn.InvalidFieldSet@option(1)@id == "Ui.Lijn.Aantal") then _BEHAVIOR_IsButtonMaatwerkViewerEnabled = true; end if end if end if; // Tijdelijk : controle op valid fields negeren; Button steeds enabled // _BEHAVIOR_IsButtonMaatwerkViewerEnabled = true; UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@enabled = _BEHAVIOR_IsButtonMaatwerkViewerEnabled; Gedrag MaatwerkViewer button enabled ;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@enabled; (UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible) UI.MWViewer.BerekenAantal@default = 1; UI.MWViewer.BerekenKlantnummer@default = CONFIG.Settings.KlantId; UI.MWViewer.BerekenDatum@default = ""; // Default = Now UI.MWViewer.FileSuffixVast@default = "001"; UI.MWViewer.HeeftVasteFileSuffix@default = false; Initialiseer MaatwerkViewer velden ;ui.mwviewer.berekenaantal@default;ui.mwviewer.berekenklantnummer@default;ui.mwviewer.berekendatum@default;ui.mwviewer.filesuffixvast@default;ui.mwviewer.heeftvastefilesuffix@default; true UI.MWViewer.FileSuffixVast@visible = (UI.MWViewer.HeeftVasteFileSuffix == true); Visible - TimeSuffixVast ;ui.mwviewer.filesuffixvast@visible; (UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible) and (STATE.StartMaatwerkViewer == true) // local collection _PropertyNamen = {"Data.Kenmerken.Familie";"Data.Kenmerken.Variant";"Data.Kenmerken.BodemKleur";"Data.Kenmerken.Draagkracht"}; // Vreemd genoeg lukt het niet via een locale collection :-( // Dan maar via een array-Property CONFIG.WebService.PropertyNamen@length = 999; local string _NumPrefix = "NUM;"; // de numerieke properties moeten met deze prefix aangeduid worden, want moeten omgezet worden van "," naar "." voor de webservice request. local Long _i = 0; // Hoofdletters (Firstcase) zoals de "eCon-ConfigAnalyse Namen" : _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Familie"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Variant"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Bodemkleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Corpusbreedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Corpuswanddikte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Draagkracht"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Dwarsverdelingaantal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Frontbevestiging"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Geleidertechnologie"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Internebreedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Isbinnenbreedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Isbinnenlade"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladediepte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladehoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladekleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matkleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matmateriaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Meenemerset"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftmat"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftafwijkenderughoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftopvullijstlinks"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftopvullijstrechts"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftzijstabilisering"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkapbinnen"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkapbuiten"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkaprugwandhouder"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_boxcap"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_boxcover"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestigingboven"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestigingonder"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontstabilisator"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_inschuifelementvoor"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_inschuifelementzijkant"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_opvullijst"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_relingvoor"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_relingzijkant"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotioneenheden"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionmeenemers"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionsynchronisatiestang"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_zijstabilisering"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Opvullijstkleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Productiewijze"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Rughoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Rugwandmateriaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.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.Voorwandtype"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijkanthoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandtype"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandverhogingtype"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandverhoginginschuifelementkleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandverhogingmateriaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandverhogingrelingkleur"; 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 UI.Kenmerken.CorpusWanddikte@mandatory = not(UI.Kenmerken.IsBinnenbreedte); UI.Kenmerken.CorpusWanddikte@visible = not(UI.Kenmerken.IsBinnenbreedte); CorpusWanddikte ;ui.kenmerken.corpuswanddikte@mandatory;ui.kenmerken.corpuswanddikte@visible; true local boolean _HeeftMatAntislipFiberKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AF")); UI.Kenmerken.MatAntislipFiberKleur@mandatory = _HeeftMatAntislipFiberKleur; UI.Kenmerken.MatAntislipFiberKleur@visible = _HeeftMatAntislipFiberKleur; local boolean _HeeftBulkMatAntislipFiberKleur = ((UI.BulkKenmerken.HeeftMat == "True") and (UI.BulkKenmerken.MatMateriaal.Value == "AF") and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})); UI.BulkKenmerken.MatAntislipFiberKleur@mandatory = _HeeftBulkMatAntislipFiberKleur; UI.BulkKenmerken.MatAntislipFiberKleur@visible = _HeeftBulkMatAntislipFiberKleur; MatAntislipFiberKleur ;ui.kenmerken.matantislipfiberkleur@mandatory;ui.kenmerken.matantislipfiberkleur@visible;ui.bulkkenmerken.matantislipfiberkleur@mandatory;ui.bulkkenmerken.matantislipfiberkleur@visible; true local boolean _HeeftMatAntislipFlockKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AZ")); UI.Kenmerken.MatAntislipFlockKleur@mandatory = _HeeftMatAntislipFlockKleur; UI.Kenmerken.MatAntislipFlockKleur@visible = _HeeftMatAntislipFlockKleur; local boolean _HeeftBulkMatAntislipFlockKleur = ((UI.BulkKenmerken.HeeftMat == "True") and (UI.BulkKenmerken.MatMateriaal.Value == "AZ") and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})); UI.BulkKenmerken.MatAntislipFlockKleur@mandatory = _HeeftBulkMatAntislipFlockKleur; UI.BulkKenmerken.MatAntislipFlockKleur@visible = _HeeftBulkMatAntislipFlockKleur; MatAntislipFlockKleur ;ui.kenmerken.matantislipflockkleur@mandatory;ui.kenmerken.matantislipflockkleur@visible;ui.bulkkenmerken.matantislipflockkleur@mandatory;ui.bulkkenmerken.matantislipflockkleur@visible; true UI.Kenmerken.MatMateriaal@mandatory = UI.Kenmerken.HeeftMat; UI.Kenmerken.MatMateriaal@visible = UI.Kenmerken.HeeftMat; UI.BulkKenmerken.MatMateriaal@mandatory = (UI.BulkKenmerken.HeeftMat == "True"); UI.BulkKenmerken.MatMateriaal@visible = (UI.BulkKenmerken.HeeftMat == "True"); MatMateriaal ;ui.kenmerken.matmateriaal@mandatory;ui.kenmerken.matmateriaal@visible;ui.bulkkenmerken.matmateriaal@mandatory;ui.bulkkenmerken.matmateriaal@visible; true local boolean _HeeftMatVinylFiberglassKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "CF")); UI.Kenmerken.MatVinylFiberglassKleur@mandatory = _HeeftMatVinylFiberglassKleur; UI.Kenmerken.MatVinylFiberglassKleur@visible = _HeeftMatVinylFiberglassKleur; local boolean _HeeftBulkMatVinylFiberglassKleur = ((UI.BulkKenmerken.HeeftMat == "True") and (UI.BulkKenmerken.MatMateriaal.Value == "CF") and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})); UI.BulkKenmerken.MatVinylFiberglassKleur@mandatory = _HeeftBulkMatVinylFiberglassKleur; UI.BulkKenmerken.MatVinylFiberglassKleur@visible = _HeeftBulkMatVinylFiberglassKleur; MatVinylFiberglassKleur ;ui.kenmerken.matvinylfiberglasskleur@mandatory;ui.kenmerken.matvinylfiberglasskleur@visible;ui.bulkkenmerken.matvinylfiberglasskleur@mandatory;ui.bulkkenmerken.matvinylfiberglasskleur@visible; true local boolean _HeeftVoorwandTypeK = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "K") and (DATA.Kenmerken.VoorwandType == "Metaal")); local boolean _HeeftVoorwandTypeM = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "M") and (DATA.Kenmerken.VoorwandType == "Metaal")); local boolean _HeeftVoorwandTypeE = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "E") and ((DATA.Kenmerken.VoorwandType == "Metaal") or (DATA.Kenmerken.VoorwandType == "Reling"))); local boolean _HeeftMeenemerSet = (_HeeftVoorwandTypeK or _HeeftVoorwandTypeM or _HeeftVoorwandTypeE); UI.Kenmerken.MeenemerSet@visible = _HeeftMeenemerSet; UI.Kenmerken.MeenemerSet@mandatory = _HeeftMeenemerSet; MeenemerSet ;ui.kenmerken.meenemerset@visible;ui.kenmerken.meenemerset@mandatory; true local boolean _HeeftOpvullijst = (UI.Kenmerken.HeeftOpvullijstLinks or UI.Kenmerken.HeeftOpvullijstRechts); UI.Kenmerken.OpvullijstKleur@mandatory = _HeeftOpvullijst; UI.Kenmerken.OpvullijstKleur@visible = _HeeftOpvullijst; UI.Kenmerken.OpvullijstDikte@visible = _HeeftOpvullijst; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "Opvullijst") then UI.Kenmerken.NietMeeleveren(i)@visible = (_HeeftOpvullijst and Not(Config.Settings.NietMeeleverenVerbergen)); end if; end index; Opvullijst ;ui.kenmerken.opvullijstkleur@mandatory;ui.kenmerken.opvullijstkleur@visible;ui.kenmerken.opvullijstdikte@visible; true local boolean _HeeftVoorwandTypeM = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "M")); UI.Kenmerken.VoorwandTypeVanMBinnenlade@mandatory = _HeeftVoorwandTypeM; UI.Kenmerken.VoorwandTypeVanMBinnenlade@visible = _HeeftVoorwandTypeM; VoorwandTypeVanMBinnenlade ;ui.kenmerken.voorwandtypevanmbinnenlade@mandatory;ui.kenmerken.voorwandtypevanmbinnenlade@visible; true local boolean _HeeftVoorwandTypeK = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "K")); UI.Kenmerken.VoorwandTypeVanKBinnenlade@mandatory = _HeeftVoorwandTypeK ; UI.Kenmerken.VoorwandTypeVanKBinnenlade@visible = _HeeftVoorwandTypeK ; VoorwandTypeVanKBinnenlade ;ui.kenmerken.voorwandtypevankbinnenlade@mandatory;ui.kenmerken.voorwandtypevankbinnenlade@visible; true local Boolean _BEHAVIOR_IsVoorwandTypeMetaalZichtbaar; local string _TriggerDummy = DATA.Kenmerken.LadeHoogte; local boolean _HeeftVoorwandTypeE = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "E")); if ((DATA.Kenmerken.LadeHoogte == "E") and (BEHAVIOR.IsEconAx)) then _BEHAVIOR_IsVoorwandTypeMetaalZichtbaar = true; else _BEHAVIOR_IsVoorwandTypeMetaalZichtbaar = false; end if; UI.Kenmerken.VoorwandTypeVanEBinnenlade@mandatory = _HeeftVoorwandTypeE; UI.Kenmerken.VoorwandTypeVanEBinnenlade@visible = _HeeftVoorwandTypeE; UI.Kenmerken.VoorwandTypeVanEBinnenlade@option("Metaal")@visible = _BEHAVIOR_IsVoorwandTypeMetaalZichtbaar; UI.Kenmerken.VoorwandTypeVanEBinnenlade@option("Metaal")@valid = _BEHAVIOR_IsVoorwandTypeMetaalZichtbaar; VoorwandTypeVanEBinnenlade ;ui.kenmerken.voorwandtypevanebinnenlade@mandatory;ui.kenmerken.voorwandtypevanebinnenlade@visible;ui.kenmerken.voorwandtypevanebinnenlade@options;ui.kenmerken.voorwandtypevanebinnenlade@valids; (DATA.BerekendeWaarden.AfbeeldingCode <> "") //local string _Url = "./images/Vanhoecke/tbx/AfbeeldingCode/tbx_AB_ER.jpg"; local string _Url = "./images/Vanhoecke/mvx/Test/" + DATA.BerekendeWaarden.AfbeeldingCode + ".svg"; //local string _Url = "http://res.vanhoecke.be/Images/GENERIEK/LEGRA_BOX/" + DATA.BerekendeWaarden.AfbeeldingCode + ".svg"; UI.Image = _Url; //@style = "imgsrc:" + _Url + ";"; Image updaten ;ui.image@value; true local string _Model = GetModel(); if not(Data.Kenmerken.LadeHoogte == "") then UI.StatusBalk.Code = Data.Kenmerken.LadeHoogte ; if (Data.Kenmerken.IsBinnenlade) then UI.StatusBalk.Code = Data.Kenmerken.LadeHoogte + "/Z"; end if; end if; if not(Data.Kenmerken.LadeDiepte == "") then UI.StatusBalk.LadeDiepte = Data.Kenmerken.LadeDiepte ; end if; UI.StatusBalk.CorpusBreedte = CInternal(Data.Kenmerken.CorpusBreedte) + " mm"; if not(Data.Kenmerken.isBinnenBreedte) then UI.StatusBalk.Wand = CInternal(Data.Kenmerken.CorpusWanddikte) + " mm"; else UI.StatusBalk.Wand = "B"; end if; if not(Data.Kenmerken.Draagkracht == "") then UI.StatusBalk.Draagkracht = Data.Kenmerken.Draagkracht + " kg" ; end if; local string _FrontBevestigingOptionLabel = DATA.Kenmerken.FrontBevestiging@id + "_" + DATA.Kenmerken.FrontBevestiging@option(DATA.Kenmerken.FrontBevestiging)@id; if (not(Data.Kenmerken.FrontBevestiging == "") and not(Data.Kenmerken.IsBinnenLade)) then UI.StatusBalk.FrontBevestiging = GetLabel(_FrontBevestigingOptionLabel; _Model; ""; "nl"); else UI.StatusBalk.FrontBevestiging = "---"; end if; if (UI.Kenmerken.HeeftMat) then local string _MatMateriaalOptionLabel = "MatMateriaal_" + DATA.Kenmerken.MatMateriaal; local string _MatKleurOptionLabel = switch DATA.Kenmerken.MatMateriaal case "CF": "MatVinylFiberglassKleur_" + UI.Kenmerken.MatVinylFiberglassKleur.Value case "AF": "MatAntislipFiberKleur_" + UI.Kenmerken.MatAntislipFiberKleur.Value case "AZ": "MatAntislipFlockKleur_" + UI.Kenmerken.MatAntislipFlockKleur.Value else "" end switch; local string _MatMateriaal = GetLabel(_MatMateriaalOptionLabel; _Model; ""; "nl"); local string _MatKleur = GetLabel(_MatKleurOptionLabel; _Model; ""; "nl"); if not(Data.Kenmerken.MatMateriaal == "") then UI.StatusBalk.Diverse = "Mat: " + _MatMateriaal + " , " + _MatKleur ; end if; else UI.StatusBalk.Diverse = "---"; end if; if not(Data.Kenmerken.VerpakkingType == "") then UI.StatusBalk.VerpakkingType = Data.Kenmerken.VerpakkingType ; end if; Statusbalk updaten ;ui.statusbalk.code@value;ui.statusbalk.ladediepte@value;ui.statusbalk.corpusbreedte@value;ui.statusbalk.wand@value;ui.statusbalk.draagkracht@value;ui.statusbalk.frontbevestiging@value;ui.statusbalk.verpakkingtype@value; STATE.ValidationNeeded or (UI.Lijn.Aantal <> 0) local double _Minimum = RANGE.Aantal.Minimum; local double _Maximum = RANGE.Aantal.Maximum; if UI.Lijn.Aantal@mandatory then if (DATA.Kenmerken.VerpakkingType == "V1") then UI.Lijn.Aantal@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:1;maxdecimals:0;"; else UI.Lijn.Aantal@inputvalidation = "min:" + _Minimum + ";multiplication:1;maxdecimals:0;"; end if; else UI.Lijn.Aantal@inputvalidation = ""; end if; Validation Aantal ; (UI.Kenmerken.CorpusBreedte@visible and (STATE.ValidationNeeded or (UI.Kenmerken.CorpusBreedte <> 0))) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local string _Minimum = Replace(cstr(RANGE.CorpusBreedte.Minimum);",";"."); local string _Maximum = Replace(cstr(RANGE.CorpusBreedte.Maximum);",";"."); UI.Kenmerken.CorpusBreedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation CorpusBreedte ;ui.kenmerken.corpusbreedte@rangeset; UI.Kenmerken.CorpusWanddikte@visible and (STATE.ValidationNeeded or (UI.Kenmerken.CorpusWanddikte <> 0)) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local string _Minimum = "1"; local string _Maximum = "100"; local string _multiplication = Replace("0,5";",";"."); if (BEHAVIOR.IsEconAx) then _multiplication = Replace("0,1";",";"."); end if; UI.Kenmerken.CorpusWanddikte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:" + _multiplication + ";maxdecimals:1;"; Validation CorpusWanddikte on ;ui.kenmerken.corpuswanddikte@rangeset; not(UI.Kenmerken.CorpusWanddikte@visible) UI.Kenmerken.CorpusWanddikte@inputvalidation = ""; Validation CorpusWanddikte off ;ui.kenmerken.corpuswanddikte@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.X@visible) and (STATE.ValidationNeeded or (UI.Kenmerken.UitsparingData.X.BreedteRugdeel <> 0)) local string _Maximum = Replace(cstr(RANGE.UitsparingDataBreedteX.Minimum);",";"."); local string _Minimum = Replace(cstr(RANGE.UitsparingDataBreedteX.Maximum);",";"."); UI.Kenmerken.UitsparingData.X.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteX on ;ui.kenmerken.uitsparingdata.x.breedterugdeel@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.X@visible) UI.Kenmerken.UitsparingData.X.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteX off ;ui.kenmerken.uitsparingdata.x.breedterugdeel@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.M@visible) and (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") and (STATE.ValidationNeeded or (UI.Kenmerken.UitsparingData.M.BreedteRugdeel <> 0)) local double _Minimum = RANGE.UitsparingDataBreedteM.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteM.Maximum; UI.Kenmerken.UitsparingData.M.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteM on ;ui.kenmerken.uitsparingdata.m.breedterugdeel@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.M@visible) UI.Kenmerken.UitsparingData.M.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteM off ;ui.kenmerken.uitsparingdata.m.breedterugdeel@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Y@visible) and (STATE.ValidationNeeded or (UI.Kenmerken.UitsparingData.Y.BreedteRugdeel <> 0)) local string _Maximum = Replace(cstr(RANGE.UitsparingDataBreedteY.Minimum);",";"."); local string _Minimum = Replace(cstr(RANGE.UitsparingDataBreedteY.Maximum);",";"."); UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteY on ;ui.kenmerken.uitsparingdata.y.breedterugdeel@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.Y@visible) UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteY off ;ui.kenmerken.uitsparingdata.y.breedterugdeel@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z1@visible) and (STATE.ValidationNeeded or (Config.InputMode == "CreateConfig")) local double _Minimum = RANGE.UitsparingDataBreedteZ1.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteZ1.Maximum; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteZ1 on ;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.Z1@visible) UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@inputvalidation = ""; Validation UitsparingData BreedteZ1 off ;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z2@visible) and (STATE.ValidationNeeded or (Config.InputMode == "CreateConfig")) local double _Minimum = RANGE.UitsparingDataBreedteZ2.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteZ2.Maximum; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteZ2 on ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.Z2@visible) UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@inputvalidation = ""; Validation UitsparingData BreedteZ2 off ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@rangeset; true local double _VerwachteBreedte = UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte; local string _InputValidation = ""; // opgelet: kommagetallen worden niet aanvaard bij min/max, puntgetallen wel // m.a.w. 200,5 wordt aanzien als 2005 ///// 200.5 wordt aanzien als 200.5 of 200,5 if (UI.Kenmerken.UitsparingData@visible) then local string _strVerwachteBreedte = Replace(CStr(_VerwachteBreedte); ","; "."); // TO DO: mooier via Format(value; fmt), lukt me voorlopig niet :-/ _InputValidation = "min:" + _strVerwachteBreedte + ";max:" + _strVerwachteBreedte + ";multiplication:0.1;maxdecimals:1;"; end if; UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte@inputvalidation = _InputValidation; Validation UitsparingData TotaleBreedte ;ui.kenmerken.uitsparingdata.uitsparingdata_totalebreedte@rangeset; BEHAVIOR.IsEconAX and DATA.Kenmerken.Toepassing == "L" and DATA.Kenmerken.LadeHoogte <> "" and DATA.Kenmerken.LadeKleur <> "" and DATA.Kenmerken.CorpusBreedte <> 0 and DATA.Kenmerken.RugwandMateriaal == "Staal" local string _XmlRequest = ""; local string _eConTaal = CONFIG.Language; local string _VhTaalCode = _eConTaal; // Nog te converteren naar vhTaalCode _XmlRequest = _XmlRequest + "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:v4='http://vhisie.vanhoecke.be/V4'>"; _XmlRequest = _XmlRequest + "<soapenv:Header/>"; _XmlRequest = _XmlRequest + "<soapenv:Body>"; _XmlRequest = _XmlRequest + "<v4:BestaatStalenRug>"; _XmlRequest = _XmlRequest + "<v4:Request>"; _XmlRequest = _XmlRequest + "<v4:Header>"; _XmlRequest = _XmlRequest + "<v4:KlantID>" + Config.Settings.KlantId + "</v4:KlantID>"; // bv. 12486 _XmlRequest = _XmlRequest + "<v4:PersonalityID>" + Config.Settings.PersonalityId + "</v4:PersonalityID>"; _XmlRequest = _XmlRequest + "<v4:Taal>" + _VhTaalCode + "</v4:Taal>"; _XmlRequest = _XmlRequest + "</v4:Header>"; _XmlRequest = _XmlRequest + "<v4:LadeHoogte>" + DATA.Kenmerken.LadeHoogte + "</v4:LadeHoogte>"; _XmlRequest = _XmlRequest + "<v4:LadeKleur>" + DATA.Kenmerken.LadeKleur + "</v4:LadeKleur>"; _XmlRequest = _XmlRequest + "<v4:LadeVariant>" + "MVX" + "</v4:LadeVariant>"; _XmlRequest = _XmlRequest + "<v4:InterneBreedte>" + DATA.Kenmerken.InterneBreedte + "</v4:InterneBreedte>"; if not(DATA.Kenmerken.Rughoogte == "") then _XmlRequest = _XmlRequest + "<v4:RugHoogte>" + DATA.Kenmerken.RugHoogte + "</v4:RugHoogte>"; else _XmlRequest = _XmlRequest + "<v4:RugHoogte>" + DATA.Kenmerken.LadeHoogte + "</v4:RugHoogte>"; end if; _XmlRequest = _XmlRequest + "</v4:Request>"; _XmlRequest = _XmlRequest + "</v4:BestaatStalenRug>"; _XmlRequest = _XmlRequest + "</soapenv:Body>"; _XmlRequest = _XmlRequest + "</soapenv:Envelope>"; local string _Service = GetSetting("data.vanhoecke.connectionstring.cache.bestaatstalenrug"); local boolean _Result = LoadFromXMLService("CONFIG.Settings.StalenRugBeschikbaar.BestaatStalenRug"; _Service; false; _XmlRequest); if (_Result) then STATE.BestaatStalenRugLoaded = "WebServiceIsGeladen"; else STATE.BestaatStalenRugLoaded = "WebServiceIsNietGeladen"; end if; Validation Stalen Rug ;state.bestaatstalenrugloaded@value; not(STATE.Initialized) and (BEHAVIOR.OperationMode == "AxCreate") local string _TriggerDummyM = UI.Kenmerken.UitsparingData.M.Hoogte; STATE.ProcessedAndExit = true; ProcessedAndExit voor AxCreate ;state.processedandexit@value; (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local boolean _IsGeldig = false; for i = 1 to Len(CONFIG.Defaults.BulkConfiguratie@options) if not(_IsGeldig) then local string _PropertyName = CONFIG.Defaults.BulkConfiguratie@option(i)@id; local string _PropertyValue = CStr(Eval(_PropertyName)); if not((_PropertyValue == "NietWijzigen") or (_PropertyValue == "") or (_PropertyValue == "0")) then _IsGeldig = true; end if; end if; end for; if (BEHAVIOR.ContextName == "AxNewBulkIngave") then UI.Buttons.Top.ProcessButton@visible = _IsGeldig; else UI.Buttons.Top.SaveAndExitButton@visible = _IsGeldig; UI.Buttons.Bottom.SaveAndExitButton@visible = _IsGeldig; end if; local string _TriggerDummy1 = DATA.BulkKenmerken(1).BodemKleur; local string _TriggerDummy2 = DATA.BulkKenmerken(1).CorpusBreedte; local double _TriggerDummy3 = DATA.BulkKenmerken(1).CorpusWanddikte; local string _TriggerDummy4 = DATA.BulkKenmerken(1).Draagkracht; local string _TriggerDummy5 = DATA.BulkKenmerken(1).DwarsverdelingAantal; local string _TriggerDummy6 = DATA.BulkKenmerken(1).FrontBevestiging; local string _TriggerDummy7 = DATA.BulkKenmerken(1).GeleiderTechnologie; local string _TriggerDummy8 = DATA.BulkKenmerken(1).HeeftOpvullijstLinks; local string _TriggerDummy9 = DATA.BulkKenmerken(1).HeeftOpvullijstRechts; local string _TriggerDummy10 = DATA.BulkKenmerken(1).HeeftZijstabilisering; local string _TriggerDummy11 = DATA.BulkKenmerken(1).IsBinnenlade; local string _TriggerDummy12 = DATA.BulkKenmerken(1).IsBinnenBreedte; local string _TriggerDummy13 = DATA.BulkKenmerken(1).LadeDiepte; local string _TriggerDummy14 = DATA.BulkKenmerken(1).LadeHoogte; local string _TriggerDummy15 = DATA.BulkKenmerken(1).LadeKleur; local string _TriggerDummy17 = DATA.BulkKenmerken(1).Meenemerset; local string _TriggerDummy18 = DATA.BulkKenmerken(1).OpvullijstKleur; local string _TriggerDummy19 = DATA.BulkKenmerken(1).VerpakkingType; local string _TriggerDummy20 = DATA.BulkKenmerken(1).VoorwandType; local string _TriggerDummy21 = DATA.BulkKenmerken(1).ZijwandType; local string _TriggerDummy22 = DATA.BulkKenmerken(1).ZijwandVerhogingType; local string _TriggerDummy23 = DATA.BulkKenmerken(1).ZijwandVerhogingInschuifElementKleur; local string _TriggerDummy24 = DATA.BulkKenmerken(1).ZijwandVerhogingRelingKleur; local string _TriggerDummy25 = DATA.BulkKenmerken(1).ZijkantHoogte; local string _TriggerDummy26 = DATA.BulkKenmerken(1).HeeftMat; local string _TriggerDummy27 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen; local string _TriggerDummy28 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten; local string _TriggerDummy29 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder local string _TriggerDummy30 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcap; local string _TriggerDummy31 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Boxcover; local string _TriggerDummy32 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingOnder; local string _TriggerDummy33 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingBoven; local string _TriggerDummy34 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontStabilisator; local string _TriggerDummy35 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider local string _TriggerDummy36 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor; local string _TriggerDummy37 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant; local string _TriggerDummy38 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst; local string _TriggerDummy39 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionOnderdelen; local string _TriggerDummy40 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers; local string _TriggerDummy41 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; local string _TriggerDummy42 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionMeenemers; local string _TriggerDummy43 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionEenheden; local string _TriggerDummy44 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering; IsGeldig BulkConfiguratie ;ui.buttons.top.processbutton@visible; (STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit or not(BEHAVIOR.IsInteractive)) DATA.Lijn.InvalidFieldSet@options = InvalidFieldSet(); DATA.Lijn.OngeldigeWaarden@length = len(DATA.Lijn.InvalidFieldSet@options); index i of DATA.Lijn.OngeldigeWaarden; DATA.Lijn.OngeldigeWaarden(i) = DATA.Lijn.InvalidFieldSet@option(i)@label; end index; DATA.Lijn.IsGeldig = (InvalidFields() == 0); IsGeldig ;data.lijn.invalidfieldset@options;data.lijn.isgeldig@value; true DATA.Lijn.GroeperingCode = DATA.Kenmerken.Variant + "_" + DATA.Kenmerken.LadeKleur + ";" + DATA.Kenmerken.BodemKleur; Bepaal GroeperingCode ;data.lijn.groeperingcode@value; STATE.SavedAndExit or STATE.SavedAndContinue or STATE.KlantVoorkeurenSaved or STATE.ProcessedAndExit and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) if not(UI.Kenmerken.CorpusWanddikte@visible) then DATA.Kenmerken.CorpusWanddikte = 0; UI.Kenmerken.CorpusWanddikte = 0; end if; //Als het pas opgevuld wordt in de rule verborgen properties defaulten dan loopt het mis if not(UI.Kenmerken.Meenemerset@visible) then DATA.Kenmerken.MeenemerSet = "Z"; end if; if (UI.Kenmerken.IsBinnenlade) then DATA.Kenmerken.FrontBevestiging = ""; UI.Kenmerken.FrontBevestiging = ""; end if; if not(UI.Kenmerken.HeeftZijstabilisering@visible) then DATA.Kenmerken.HeeftZijstabilisering = false; UI.Kenmerken.HeeftZijstabilisering = false; end if; if not(UI.Kenmerken.OpvullijstKleur@visible) then DATA.Kenmerken.OpvullijstKleur = ""; UI.Kenmerken.OpvullijstKleur = ""; end if; if (not(UI.Kenmerken.HeeftOpvullijstLinks) and not(UI.Kenmerken.HeeftOpvullijstRechts)) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = false; end if; if not(UI.Kenmerken.VoorwandTypeVanEBinnenlade@visible) then UI.Kenmerken.VoorwandTypeVanEBinnenlade = ""; end if; if not(UI.Kenmerken.VoorwandTypeVanMBinnenlade@visible) then UI.Kenmerken.VoorwandTypeVanMBinnenlade = ""; end if; if not(UI.Kenmerken.VoorwandTypeVanKBinnenlade@visible) then UI.Kenmerken.VoorwandTypeVanKBinnenlade = ""; end if; if (not(UI.Kenmerken.VoorwandTypeVanMBinnenlade@visible) and not(UI.Kenmerken.VoorwandTypeVanEBinnenlade@visible) and not(UI.Kenmerken.VoorwandTypeVanKBinnenlade@visible)) then DATA.Kenmerken.VoorwandType = ""; end if; if not(DATA.Kenmerken.Toepassing in {"SY";"SP"}) then DATA.Kenmerken.UitsparingData.UitsparingAantal = ""; DATA.Kenmerken.UitsparingData.X.Breedte = 0; DATA.Kenmerken.UitsparingData.X.Hoogte = ""; DATA.Kenmerken.UitsparingData.X.Materiaal = ""; DATA.Kenmerken.UitsparingData.Y.Breedte = 0; DATA.Kenmerken.UitsparingData.Y.Hoogte = ""; DATA.Kenmerken.UitsparingData.Y.Materiaal = ""; DATA.Kenmerken.UitsparingData.Z1.Breedte = 0; DATA.Kenmerken.UitsparingData.Z1.Diepte = 0; DATA.Kenmerken.UitsparingData.Z1.Hoogte = ""; DATA.Kenmerken.UitsparingData.Z1.Materiaal = ""; DATA.Kenmerken.UitsparingData.Z1.Vorm = ""; UI.Kenmerken.UitsparingData.UitsparingAantal = ""; UI.Kenmerken.UitsparingData.X.BreedteRugdeel = 0; UI.Kenmerken.UitsparingData.X.Hoogte = ""; UI.Kenmerken.UitsparingData.X.Materiaal = ""; UI.Kenmerken.UitsparingData.Y.BreedteRugdeel = 0; UI.Kenmerken.UitsparingData.Y.Hoogte = ""; UI.Kenmerken.UitsparingData.Y.Materiaal = ""; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 0; UI.Kenmerken.UitsparingData.Z1.Diepte = 0; UI.Kenmerken.UitsparingData.Z1.Hoogte = ""; UI.Kenmerken.UitsparingData.Z1.Materiaal = ""; UI.Kenmerken.UitsparingData.Z1.Vorm = ""; end if; if not(UI.Kenmerken.UitsparingData.M@visible) then DATA.Kenmerken.UitsparingData.M.Breedte = 0; DATA.Kenmerken.UitsparingData.M.Hoogte = ""; DATA.Kenmerken.UitsparingData.M.Materiaal = ""; UI.Kenmerken.UitsparingData.M.BreedteRugdeel = 0; UI.Kenmerken.UitsparingData.M.Hoogte = ""; UI.Kenmerken.UitsparingData.M.Materiaal = ""; end if; local string _TriggerDummy = UI.Kenmerken.UitsparingData.Z2.Hoogte; if not(UI.Kenmerken.UitsparingData.Z2@visible) then DATA.Kenmerken.UitsparingData.Z2.Breedte = 0; DATA.Kenmerken.UitsparingData.Z2.Diepte = 0; DATA.Kenmerken.UitsparingData.Z2.Hoogte = ""; DATA.Kenmerken.UitsparingData.Z2.Materiaal = ""; DATA.Kenmerken.UitsparingData.Z2.Vorm = ""; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 0; UI.Kenmerken.UitsparingData.Z2.Diepte = 0; UI.Kenmerken.UitsparingData.Z2.Hoogte = ""; UI.Kenmerken.UitsparingData.Z2.Materiaal = ""; UI.Kenmerken.UitsparingData.Z2.Vorm = ""; end if; if (not(UI.Kenmerken.HeeftMat) or ((DATA.Kenmerken.Productiewijze <> "V") and (DATA.Kenmerken.Productiewijze <> ""))) then DATA.Kenmerken.MatMateriaal = ""; DATA.Kenmerken.MatKleur = ""; UI.Kenmerken.MatMateriaal = ""; UI.Kenmerken.MatAntislipFiberKleur = ""; UI.Kenmerken.MatAntislipFlockKleur = ""; UI.Kenmerken.MatVinylFiberglassKleur = ""; end if; Verborgen properties wissen ;data.kenmerken.corpuswanddikte@value;ui.kenmerken.corpuswanddikte@value;data.kenmerken.meenemerset@value;data.kenmerken.frontbevestiging@value;ui.kenmerken.frontbevestiging@value;data.kenmerken.heeftzijstabilisering@value;ui.kenmerken.heeftzijstabilisering@value;data.kenmerken.opvullijstkleur@value;ui.kenmerken.opvullijstkleur@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;ui.kenmerken.voorwandtypevanebinnenlade@value;ui.kenmerken.voorwandtypevanmbinnenlade@value;ui.kenmerken.voorwandtypevankbinnenlade@value;data.kenmerken.voorwandtype@value;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.kenmerken.uitsparingdata.x.breedte@value;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.y.breedte@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.breedte@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;ui.kenmerken.uitsparingdata.uitsparingaantal@value;ui.kenmerken.uitsparingdata.x.breedterugdeel@value;ui.kenmerken.uitsparingdata.x.hoogte@value;ui.kenmerken.uitsparingdata.x.materiaal@value;ui.kenmerken.uitsparingdata.y.breedterugdeel@value;ui.kenmerken.uitsparingdata.y.hoogte@value;ui.kenmerken.uitsparingdata.y.materiaal@value;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@value;ui.kenmerken.uitsparingdata.z1.diepte@value;ui.kenmerken.uitsparingdata.z1.hoogte@value;ui.kenmerken.uitsparingdata.z1.materiaal@value;ui.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;ui.kenmerken.uitsparingdata.m.breedterugdeel@value;ui.kenmerken.uitsparingdata.m.hoogte@value;ui.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.z2.breedte@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@value;ui.kenmerken.uitsparingdata.z2.diepte@value;ui.kenmerken.uitsparingdata.z2.hoogte@value;ui.kenmerken.uitsparingdata.z2.materiaal@value;ui.kenmerken.uitsparingdata.z2.vorm@value;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value;ui.kenmerken.matmateriaal@value;ui.kenmerken.matantislipfiberkleur@value;ui.kenmerken.matantislipflockkleur@value;ui.kenmerken.matvinylfiberglasskleur@value; STATE.SavedAndExit or STATE.SavedAndContinue or STATE.KlantVoorkeurenSaved or STATE.ProcessedAndExit 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 not(UI.BulkKenmerken.Meenemerset@visible) then DATA.BulkKenmerken(1).MeenemerSet = "Z"; end if; if (DATA.BulkKenmerken(1).IsBinnenlade == "True") then DATA.BulkKenmerken(1).FrontBevestiging = "NietWijzigen"; UI.BulkKenmerken.FrontBevestiging = "NietWijzigen"; end if; if not(UI.BulkKenmerken.VoorwandTypeVanEBinnenlade@visible) then UI.Kenmerken.VoorwandTypeVanEBinnenlade = ""; end if; if not(UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@visible) then UI.BulkKenmerken.VoorwandTypeVanMBinnenlade = ""; end if; if not(UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@visible) then UI.BulkKenmerken.VoorwandTypeVanKBinnenlade = ""; end if; if (not(UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@visible) and not(UI.BulkKenmerken.VoorwandTypeVanEBinnenlade@visible) and not(UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@visible)) then DATA.BulkKenmerken(1).VoorwandType = ""; end if; if (UI.BulkKenmerken.HeeftMat in {"False";"NietWijzigen"}) then DATA.BulkKenmerken(1).MatMateriaal = ""; DATA.BulkKenmerken(1).MatKleur = ""; UI.BulkKenmerken.MatMateriaal = ""; UI.BulkKenmerken.MatAntislipFiberKleur = ""; UI.BulkKenmerken.MatAntislipFlockKleur = ""; UI.BulkKenmerken.MatVinylFiberglassKleur = ""; end if; Verborgen properties wissen (Bulk) ;data.bulkkenmerken[1].corpuswanddikte@value;ui.bulkkenmerken.corpuswanddikte@value;data.bulkkenmerken[1].meenemerset@value;data.bulkkenmerken[1].frontbevestiging@value;ui.bulkkenmerken.frontbevestiging@value;ui.kenmerken.voorwandtypevanebinnenlade@value;ui.bulkkenmerken.voorwandtypevanmbinnenlade@value;ui.bulkkenmerken.voorwandtypevankbinnenlade@value;data.bulkkenmerken[1].voorwandtype@value;data.bulkkenmerken[1].matmateriaal@value;data.bulkkenmerken[1].matkleur@value;ui.bulkkenmerken.matmateriaal@value;ui.bulkkenmerken.matantislipfiberkleur@value;ui.bulkkenmerken.matantislipflockkleur@value;ui.bulkkenmerken.matvinylfiberglasskleur@value; STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit if (DATA.Kenmerken.DwarsverdelingAantal == "") then DATA.Kenmerken.DwarsverdelingAantal = "0"; end if; if (UI.Kenmerken.ProductieWijze == "") then DATA.Kenmerken.ProductieWijze = "V"; end if; if (DATA.Kenmerken.Meenemerset == "") then DATA.Kenmerken.Meenemerset = "Z"; end if; Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestigingOnder = Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestigingBoven; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "FrontBevestigingOnder") then UI.Kenmerken.NietMeeleveren(i).IsSelected@default = Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestigingBoven; end if; end index; /* if (DATA.Kenmerken.Toepassing == "SP") then local double _Breedte = 158; DATA.Kenmerken.UitsparingData.UitsparingAantal = "Enkel"; DATA.Kenmerken.UitsparingData.X.Breedte = UI.Kenmerken.UitsparingDataSpoelbak.X; DATA.Kenmerken.UitsparingData.X.Hoogte = "M"; DATA.Kenmerken.UitsparingData.X.Materiaal = "Staal"; DATA.Kenmerken.UitsparingData.Y.Breedte = UI.Kenmerken.UitsparingDataSpoelbak.Y; DATA.Kenmerken.UitsparingData.Y.Hoogte = "M"; DATA.Kenmerken.UitsparingData.Y.Materiaal = "Staal"; DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.Kenmerken.UitsparingDataSpoelbak.Z1; DATA.Kenmerken.UitsparingData.Z1.Diepte = 0; DATA.Kenmerken.UitsparingData.Z1.Hoogte = ""; DATA.Kenmerken.UitsparingData.Z1.Materiaal = ""; DATA.Kenmerken.UitsparingData.Z1.Vorm = "Recht"; end if; */ Verborgen properties defaulten ;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.productiewijze@value;data.kenmerken.meenemerset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestigingonder@value; STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingOnder = Data.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestigingBoven; Verborgen properties defaulten (Bulk) ;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_frontbevestigingonder@value; not(STATE.WinkelkarInfoCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or not(BEHAVIOR.IsInteractive)) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) STATE.WinkelkarInfoCalculated = true; local string _Model = GetModel(); local string _FrontBevestigingOptionLabel = DATA.Kenmerken.FrontBevestiging@id + "_" + DATA.Kenmerken.FrontBevestiging@option(DATA.Kenmerken.FrontBevestiging)@id; local string _LadeKleurOptionLabel = DATA.Kenmerken.LadeKleur@id + "_" + DATA.Kenmerken.LadeKleur@option(DATA.Kenmerken.LadeKleur)@id; local string _BodemKleurOptionLabel = DATA.Kenmerken.BodemKleur@id + "_" + DATA.Kenmerken.BodemKleur@option(DATA.Kenmerken.BodemKleur)@id; DATA.Lijn.WinkelkarInfo@length = len(CONFIG.Database.Languages@options); for i = 1 to len(CONFIG.Database.Languages@options) CONFIG.Database.Languages = CONFIG.Database.Languages@option(i)@id; local string _TaalCode = CONFIG.Database.Languages.Name; local string _CorpusWanddikte = " / "; if not(DATA.Kenmerken.IsBinnenbreedte) then _CorpusWanddikte = CStr(DATA.Kenmerken.CorpusWanddikte) + " mm"; end if; local string _LadeKleurInfo = GetLabel(DATA.Kenmerken.LadeKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_LadeKleurOptionLabel; _Model; ""; _TaalCode); local string _BodemKleurInfo = GetLabel(DATA.Kenmerken.BodemKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_BodemKleurOptionLabel; _Model; ""; _TaalCode); local string _Groepering; _Groepering = "MERIVOBOX - "; if (_TaalCode == "de") then _Groepering = _Groepering + _LadeKleurInfo + ", " + _BodemKleurInfo; else _Groepering = _Groepering + LCase(_LadeKleurInfo) + ", " + LCase(_BodemKleurInfo); end if; DATA.Lijn.WinkelkarInfo(i).Aantal = CStr(DATA.Lijn.Aantal); DATA.Lijn.WinkelkarInfo(i).AfbeeldingCode = DATA.BerekendeWaarden.AfbeeldingCode; DATA.Lijn.WinkelkarInfo(i).CorpusBreedte = CStr(DATA.Kenmerken.CorpusBreedte) + " mm"; DATA.Lijn.WinkelkarInfo(i).CorpusWanddikte = _CorpusWanddikte; DATA.Lijn.WinkelkarInfo(i).Draagkracht = CStr(DATA.Kenmerken.Draagkracht) + " kg"; DATA.Lijn.WinkelkarInfo(i).EenheidPrijs = ""; DATA.Lijn.WinkelkarInfo(i).FrontBevestiging = GetLabel(_FrontBevestigingOptionLabel; _Model; ""; _TaalCode); DATA.Lijn.WinkelkarInfo(i).Groepering = _Groepering; DATA.Lijn.WinkelkarInfo(i).LadeCode = DATA.BerekendeWaarden.LadeCode; DATA.Lijn.WinkelkarInfo(i).LadeDiepte = CStr(DATA.Kenmerken.LadeDiepte) + " mm"; DATA.Lijn.WinkelkarInfo(i).TaalCode = _TaalCode; DATA.Lijn.WinkelkarInfo(i).TotaalPrijs = ""; end for; WinkelkarInfo ;state.winkelkarinfocalculated@value; not(STATE.WinkelkarInfoDiverseCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or not(BEHAVIOR.IsInteractive)) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) STATE.WinkelkarInfoDiverseCalculated = true; local string _Model = GetModel(); local string _ToepassingOptionLabel = DATA.Kenmerken.Toepassing@id + "_" + DATA.Kenmerken.Toepassing@option(DATA.Kenmerken.Toepassing)@id; local string _GeleiderTechnologieOptionLabel = DATA.Kenmerken.GeleiderTechnologie@id + "_" + DATA.Kenmerken.GeleiderTechnologie@option(DATA.Kenmerken.GeleiderTechnologie)@id; local string _OpvullijstKleurOptionLabel = DATA.Kenmerken.OpvullijstKleur@id + "_" + DATA.Kenmerken.OpvullijstKleur@option(DATA.Kenmerken.OpvullijstKleur)@id; local string _RugwandMateriaalOptionLabel = DATA.Kenmerken.RugwandMateriaal@id + "_" + DATA.Kenmerken.RugwandMateriaal@option(DATA.Kenmerken.RugwandMateriaal)@id; local string _VerpakkingTypeOptionLabel = DATA.Kenmerken.VerpakkingType@id + "_" + DATA.Kenmerken.VerpakkingType@option(DATA.Kenmerken.VerpakkingType)@id; local string _VoorwandTypeVanBinnenladeOptionLabel = DATA.Kenmerken.VoorwandType@id + "_" + DATA.Kenmerken.VoorwandType@option(DATA.Kenmerken.VoorwandType)@id; local string _ZijwandTypeOptionLabel = DATA.Kenmerken.ZijwandType@id + "_" + DATA.Kenmerken.ZijwandType@option(DATA.Kenmerken.ZijwandType)@id; local string _RugHoogteOptionLabel = DATA.Kenmerken.RugHoogte@id + "_" + DATA.Kenmerken.RugHoogte@option(DATA.Kenmerken.RugHoogte)@id; local string _ProductieWijzeOptionLabel = DATA.Kenmerken.ProductieWijze@id + "_" + DATA.Kenmerken.ProductieWijze@option(DATA.Kenmerken.ProductieWijze)@id; local double MINIMUM_BREEDTE_GEWONE_LADE = 251; // Kleiner dan deze afmeting is "Smalle lade" local boolean _IsSmalleLade = (DATA.Kenmerken.InterneBreedte < MINIMUM_BREEDTE_GEWONE_LADE); for i = 1 to len(Config.Database.Languages@options) CONFIG.Database.Languages = CONFIG.Database.Languages@option(i)@id; local string _TaalCode = CONFIG.Database.Languages.Name; local string _InfoToepassing = ""; local string _InfoGeleider = ""; local string _InfoMat = ""; local string _InfoZijwandType = ""; local string _InfoZijstabilisering = ""; local string _InfoOpvullijst = ""; local string _InfoVoorwandType = ""; local string _InfoMeenemerSet = ""; local string _InfoVerpakking = ""; local string _InfoRugwandMateriaal = ""; local string _InfoRugHoogte = ""; local string _InfoProductieWijze = ""; local string _InfoDwarsverdeling = ""; local string _InfoIsSmalleLade = ""; local string _InfoNietMeeleveren = ""; local string _UitsparingAfmetingen = ""; if (UI.Kenmerken.Toepassing <> "L" and UI.Kenmerken.Toepassing <> "SST") then if (UI.Kenmerken.Toepassing == "SY") then local string _X = CStr(UI.Kenmerken.UitsparingData.X.BreedteRugdeel); local string _M = CStr(UI.Kenmerken.UitsparingData.M.BreedteRugdeel); local string _Y = CStr(UI.Kenmerken.UitsparingData.Y.BreedteRugdeel); local string _Z1 = CStr(UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing); local string _Z2 = CStr(UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing); _UitsparingAfmetingen = _UitsparingAfmetingen + " (" +_X + "/" + _Z1; if (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + _M + "/" + _Z2; end if; _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + _Y + ")"; end if; _InfoToepassing = GetLabel(_ToepassingOptionLabel; _Model; ""; _TaalCode) + _UitsparingAfmetingen; end if; if (UI.Kenmerken.GeleiderTechnologie == "TOB") then _InfoGeleider = GetLabel(_GeleiderTechnologieOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.HeeftMat) then local string _MatMateriaalOptionLabel = "MatMateriaal_" + DATA.Kenmerken.MatMateriaal; local string _MatKleurOptionLabel = switch DATA.Kenmerken.MatMateriaal case "CF": "MatVinylFiberglassKleur_" + UI.Kenmerken.MatVinylFiberglassKleur.Value case "AF": "MatAntislipFiberKleur_" + UI.Kenmerken.MatAntislipFiberKleur.Value case "AZ": "MatAntislipFlockKleur_" + UI.Kenmerken.MatAntislipFlockKleur.Value else "" end switch; local string _MatMateriaal = GetLabel(_MatMateriaalOptionLabel; _Model; ""; _TaalCode); local string _MatKleur = GetLabel(_MatKleurOptionLabel; _Model; ""; _TaalCode); local string _MatLabel = GetLabel(TRL.InfoDiverse_Mat@id; _Model; ""; _TaalCode); _InfoMat = _MatLabel + ": " + _MatKleur + "-" + _MatMateriaal; end if; if (DATA.Kenmerken.ZijwandType <> "Pure") then _InfoZijwandType = GetLabel(_ZijwandTypeOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.HeeftZijstabilisering) then _InfoZijstabilisering = GetLabel(UI.Kenmerken.HeeftZijstabilisering@id; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.HeeftOpvullijstLinks or UI.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = GetLabel(TRL.InfoDiverse_Opvullijst@id; _Model; ""; _TaalCode) + ": "; local string _Links = GetLabel(TRL.InfoDiverse_Links@id; _Model; ""; _TaalCode); local string _Rechts = GetLabel(TRL.InfoDiverse_Rechts@id; _Model; ""; _TaalCode); if (UI.Kenmerken.HeeftOpvullijstLinks and UI.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = _InfoOpvullijst + _Links + "+" + _Rechts; else if (UI.Kenmerken.HeeftOpvullijstLinks) then _InfoOpvullijst = _InfoOpvullijst + _Links; end if; if (UI.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = _InfoOpvullijst + _Rechts; end if; end if; end if; if ((_InfoOpvullijst <> "") and (UI.Kenmerken.OpvullijstKleur <> "")) then _InfoOpvullijst = _InfoOpvullijst + " (" + GetLabel(_OpvullijstKleurOptionLabel ; _Model; ""; _TaalCode) + ")"; end if; if (UI.Kenmerken.VoorwandTypeVanMBinnenlade <> "") then _InfoVoorwandType = GetLabel(UI.Kenmerken.VoorwandTypeVanMBinnenlade@id; _Model; ""; _TaalCode) + ": " + GetLabel(_VoorwandTypeVanBinnenladeOptionLabel ; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.VoorwandTypeVanEBinnenlade <> "") then _InfoVoorwandType = GetLabel(UI.Kenmerken.VoorwandTypeVanEBinnenlade@id; _Model; ""; _TaalCode) + ": " + GetLabel(_VoorwandTypeVanBinnenladeOptionLabel ; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.VoorwandTypeVanKBinnenlade <> "") then _InfoVoorwandType = GetLabel(UI.Kenmerken.VoorwandTypeVanKBinnenlade@id; _Model; ""; _TaalCode) + ": " + GetLabel(_VoorwandTypeVanBinnenladeOptionLabel ; _Model; ""; _TaalCode); end if; if ((UI.Kenmerken.MeenemerSet == "V") and UI.Kenmerken.IsBinnenlade) then _InfoMeenemerSet = GetLabel(UI.Kenmerken.MeenemerSet@id; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.VerpakkingType <> "V1") then _InfoVerpakking = GetLabel(_VerpakkingTypeOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.RugwandMateriaal == "Staal") then _InfoRugwandMateriaal = GetLabel(UI.Kenmerken.RugwandMateriaal@id; _Model; ""; _TaalCode) + ": " + GetLabel(_RugwandMateriaalOptionLabel; _Model; ""; _TaalCode); end if; if ((UI.Kenmerken.HeeftAfwijkendeRugHoogte) or ((DATA.Kenmerken.RugHoogte <> DATA.Kenmerken.LadeHoogte) and (DATA.Kenmerken.Toepassing == "SY"))) then _InfoRugHoogte = GetLabel(UI.Kenmerken.RugHoogte@id; _Model; ""; _TaalCode) + ": " + GetLabel(_RugHoogteOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.ProductieWijze <> "V") then _InfoProductieWijze = GetLabel(TRL.InfoDiverse_Enkel@id; _Model; ""; _TaalCode) + " " + GetLabel(_ProductieWijzeOptionLabel; _Model; ""; _TaalCode); end if; if ((UI.Kenmerken.DwarsverdelingAantal <> "") and (CLng(UI.Kenmerken.DwarsverdelingAantal) > 0)) then _InfoDwarsverdeling = GetLabel(UI.Kenmerken.DwarsverdelingAantal@id; _Model; ""; _TaalCode) + " (" + GetLabel("Aantal"; _Model; ""; _TaalCode) + ": " + UI.Kenmerken.DwarsverdelingAantal + ")"; end if; if _IsSmalleLade then _InfoIsSmalleLade = GetLabel(TRL.InfoDiverse_IsSmalleLade@id; _Model; ""; _TaalCode); end if; index j of UI.Kenmerken.NietMeeleveren local string _Separator = ", "; if (_InfoNietMeeleveren == "") then _Separator = ""; end if; if (UI.Kenmerken.NietMeeleveren(j).IsSelected) and (UI.Kenmerken.NietMeeleveren(j)@visible) and (UI.Kenmerken.NietMeeleveren(j).Id <> "TiponBlumotionOnderdelen") then _InfoNietMeeleveren = _InfoNietMeeleveren + _Separator + GetLabel(UI.Kenmerken.NietMeeleveren@id + "_" + UI.Kenmerken.NietMeeleveren(j).Id; _Model; ""; _TaalCode); end if; end index; if (_InfoNietMeeleveren <> "") then _InfoNietMeeleveren = GetLabel(UI.Kenmerken.NietMeeleveren@id; _Model; ""; _TaalCode) + ": " + _InfoNietMeeleveren; if (Len(_InfoNietMeeleveren) > 250) then _InfoNietMeeleveren = Mid(_InfoNietMeeleveren; 1; 250) + " ..."; end if; end if; DATA.Lijn.WinkelkarInfo(i).InfoDiverse@length = 15; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[1] = _InfoToepassing; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[2] = _InfoGeleider; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[3] = _InfoMat; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[4] = _InfoZijwandType; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[5] = _InfoZijstabilisering; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[6] = _InfoOpvullijst; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[7] = _InfoVoorwandType; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[8] = _InfoMeenemerSet; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[9] = _InfoVerpakking; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[10] = _InfoRugwandMateriaal; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[11] = _InfoRugHoogte; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[12] = _InfoProductieWijze; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[13] = _InfoDwarsverdeling; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[14] = _InfoIsSmalleLade; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[15] = _InfoNietMeeleveren; end for; WinkelkarInfo - InfoDiverse ;state.winkelkarinfodiversecalculated@value; STATE.SavedAndExit or STATE.SavedAndContinue or not(BEHAVIOR.IsInteractive) or (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive) if (DATA.Kenmerken.Productiewijze == "V") then if (DATA.Kenmerken.VerpakkingType == "V1") then ItemId = "7.001.657.5"; end if; if (DATA.Kenmerken.VerpakkingType == "Probox") then ItemId = "7.001.658.6"; end if; if (DATA.Kenmerken.VerpakkingType == "Pallet") then ItemId = "7.001.659.0"; end if; if (DATA.Kenmerken.VerpakkingType == "VHoss") then ItemId = "7.001.660.1"; end if; else ItemId = "7.001.661.2"; end if; // tijdelijk totdat kenmerken binnenkomen if (ItemId == "") then ItemId = "7.001.658.6" end if; ItemId bepalen ;itemid@value; STATE.Cancelled STATE.Cancelled = false; ReturnValue = "{\"status\":\"cancel\"}"; local boolean _Result = Exit(true;false); Cancel ;state.cancelled@value;returnvalue@value; STATE.ProcessedAndExit and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) STATE.ProcessedAndExit = false; STATE.ValidationNeeded = true; ProcessAndExit ;state.processedandexit@value;state.validationneeded@value; STATE.SavedAndExit STATE.SavedAndExit = false; STATE.ValidationNeeded = true; if (InvalidFields() == 0) then ReturnValue = "{\"status\":\"ok\",\"name\":\"" + ElementName(CONFIG.ConfigurationName) + "\",\"version\":\"" + ElementVersion(CONFIG.ConfigurationName) + "\"}"; local boolean _Result = SaveAndExit(); else STATE.WinkelkarInfoCalculated = false; STATE.WinkelkarInfoDiverseCalculated = false; local string _Feedback = ""; _Feedback = _Feedback + "<b>" + TRL.BewarenError@label + ":" + "</b>"; _Feedback = _Feedback + "<ul style='list-style-type:square;'>"; for i = 1 to Len(DATA.Lijn.InvalidFieldSet@options) local string _PropertyName = DATA.Lijn.InvalidFieldSet@option(i)@id; local string _Label = CStr(Eval(_PropertyName + "@label")); _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + _Label; _Feedback = _Feedback + "</li>"; end for; _Feedback = _Feedback + "</ul>"; local long _FeedbackResult = MsgBox(_Feedback); end if; SaveAndExit ;state.savedandexit@value;state.validationneeded@value;returnvalue@value; STATE.SavedAndContinue STATE.SavedAndContinue = false; STATE.ValidationNeeded = true; if (InvalidFields() == 0) then ReturnValue = "{\"status\":\"ok\",\"name\":\"" + ElementName(CONFIG.ConfigurationName) + "\",\"version\":\"" + ElementVersion(CONFIG.ConfigurationName) + "\",\"continue\":\"true\"}"; local boolean _Result = SaveAndExit(); else STATE.WinkelkarInfoCalculated = false; STATE.WinkelkarInfoDiverseCalculated = false; local string _Feedback = ""; _Feedback = _Feedback + "<b>" + TRL.BewarenError@label + ":" + "</b>"; _Feedback = _Feedback + "<ul style='list-style-type:square;'>"; for i = 1 to Len(DATA.Lijn.InvalidFieldSet@options) local string _PropertyName = DATA.Lijn.InvalidFieldSet@option(i)@id; local string _Label = CStr(Eval(_PropertyName + "@label")); _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + _Label; _Feedback = _Feedback + "</li>"; end for; _Feedback = _Feedback + "</ul>"; local long _FeedbackResult = MsgBox(_Feedback); end if; SaveAndContinue ;state.savedandcontinue@value;state.validationneeded@value;returnvalue@value; STATE.KlantVoorkeurenSaved STATE.KlantVoorkeurenSaved = false; local boolean _Result; _Result = SetArg("saveas"; ElementName(CONFIG.KlantVoorkeurenConfigurationName)); _Result = eCon.UI.Tasks.Functions.Save(false); local string _Feedback = ""; if (_Result) then _Feedback = _Feedback + "<b>" + TRL.BewarenKlantVoorkeurenSucces@label + "</b>"; _Feedback = _Feedback + "<ul style='list-style-type:square;'>"; for i = 1 to Len(CONFIG.Defaults.KlantVoorkeuren@options) local string _PropertyName = CONFIG.Defaults.KlantVoorkeuren@option(i)@id; local string _Label = CStr(Eval(_PropertyName + "@id")); local string _Id = CStr(Eval(_PropertyName)); local string _Type = CStr(Eval(_PropertyName + "@Type")); if ((_Type == "String") and(_Id <> "")) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id); //eval(_PropertyName)); _Feedback = _Feedback + "</li>"; end if; if ((_Type == "Double") and(CDbl(_Id) > 0)) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + _Id; _Feedback = _Feedback + "</li>"; end if; if (_Type == "Boolean") then local boolean _IsNietMeeleveren = CBool(InStr(1; LCase(_Label); LCase("NietMeeleveren_"))); local long _PositionOfUnderscore = InStrRev(LCase(_PropertyName); "_"); local string _ShortName = Mid(LCase(_PropertyName); _PositionOfUnderscore + 1); if (_IsNietMeeleveren and CBool(_Id) and (LCase(_ShortName) in CONFIG.NietMeeleverenExtern@options)) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + DATA.Kenmerken.NietMeeleveren@label + ": " + GetLocalizedLabel(_Label); _Feedback = _Feedback + "</li>"; end if; if not(_IsNietMeeleveren) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id); _Feedback = _Feedback + "</li>"; end if; end if; end for; _Feedback = _Feedback + "</ul>"; else _Feedback = _Feedback + "<b>" + TRL.BewarenKlantVoorkeurenError@label + "</b>"; end if; local long _FeedbackResult = MsgBox(_Feedback); _Result = SetArg("saveas"; ElementName(CONFIG.ConfigurationName)); // originele ConfigurationName terugzetten SaveKlantVoorkeuren ;state.klantvoorkeurensaved@value; N M K E F L SP SY AQIAAAAAAAAFAgAAAAAAAAEDAAAAAAAABQMAAAAAAAA= false true N M K E F AgEAAAAAAAACBQAAAAAAAA== 40 70 270 300 350 400 450 500 550 600 650 AgEAAAAAAAACAgAAAAAAAAIDAAAAAAAAAgQAAAAAAAA= N M K E F L SP SY AQIAAAAAAAAEAgAAAAAAAAUCAAAAAAAA false true V R B B-R RH F AQYAAAAAAAA= 270 300 350 400 450 500 550 600 650 L SP SY AQIAAAAAAAACAgAAAAAAAAMCAAAAAAAABAIAAAAAAAAJAgAAAAAAAAEDAAAAAAAAAgMAAAAAAAA= Hout Staal L SP SY AgIAAAAAAAACAwAAAAAAAA== N M K E F L SP SY B470 B570 B770 B160 B300 B350 AQMGAAAAAAACAwYAAAAAAAMDBgAAAAAA N M K E F L SP SY SP_Recht_M_D300_B570 SP_Recht_M_D300_B770 SP_Recht_M_D350_B470 SP_Recht_M_D350_B570 SP_Recht_M_D300_B470 SP_Recht_M_D350_B770 SP_Recht_M_D400_B470 SP_Recht_M_D400_B570 SP_Recht_M_D400_B770 SP_Recht_M_D450_B470 SP_Recht_M_D450_B570 SP_Recht_M_D450_B770 SY_Recht_M_D240_B160 SY_Recht_M_D240_B300 SY_Recht_E_D240_B350 AQMPAAAAAAACAw8AAAAAAAMDDwAAAAAA N M K E F L SP SY B160 B300 B350 AQMDAAAAAAACAwMAAAAAAAMDAwAAAAAA N M K E F L SP SY SY_Recht_M_D240_B160 SY_Recht_M_D240_B300 SY_Recht_E_D240_B350 AQMDAAAAAAACAwMAAAAAAAMDAwAAAAAA 270 300 350 400 450 500 550 600 650 L SP SY D300 D350 D400 D450 BQICAAAAAAAFAgMAAAAAAAYCAwAAAAAABQIEAAAAAAAGAgQAAAAAAA== V R B B-R RH F V1 Probox Pallet VHoss AgIAAAAAAAADAgAAAAAAAAQCAAAAAAAABQIAAAAAAAAGAgAAAAAAAAIDAAAAAAAAAwMAAAAAAAAEAwAAAAAAAAUDAAAAAAAABgMAAAAAAAACBAAAAAAAAAMEAAAAAAAABAQAAAAAAAAFBAAAAAAAAAYEAAAAAAAA false true 270 300 350 400 450 500 550 600 650 N M K E F AgkCAAAAAAA= false true E ET S I D A AgEAAAAAAAACBQAAAAAAAA== 270 300 350 400 450 500 550 600 650 N M K E F AQEAAAAAAAACAQAAAAAAAAMBAAAAAAAACAEAAAAAAAAJAQAAAAAAAAEDAAAAAAAA Intern Extern N M K E F OG-M IG-M SW-M Boxcap Boxcover Reling Pure RelingEnInschuifElement AQQDBAAAAAA=