STATE.Initialized Initialisatie ; true CONFIG.Backend = GetArg("backend"); // Voorlopig alleen "axapta", dus AX CONFIG.ProcessMode = GetArg("processmode"); // Alleen in AX : "Background" of "Interactive" CONFIG.Token = GetArg("vh_token"); // Alleen in Web : Token van Intracto CONFIG.Language = GetArg("language"); // Web en AX CONFIG.Initiator = GetArg("initiator"); // Alleen in AX CONFIG.Bulkwijzigingen.Isbulkconfiguratie = CBool(GetArg("isbulkconfiguratie")); // Alleen in AX CONFIG.Bulkwijzigingen.ReferentieConfiguratieId = GetArg("referentieconfiguratieid"); // Alleen in AX CONFIG.Bulkwijzigingen.BulkConfiguratieId = GetArg("bulkconfiguratieid"); // Alleen in AX CONFIG.Bulkwijzigingen.TotaalAantalGepersisteerdeProperties = GetArg("totaalaantalgepersisteerdeproperties"); // Alleen in AX Algemene input parameters ophalen ;config.backend@value;config.processmode@value;config.token@value;config.language@value;config.initiator@value;config.bulkwijzigingen.isbulkconfiguratie@value;config.bulkwijzigingen.referentieconfiguratieid@value;config.bulkwijzigingen.bulkconfiguratieid@value;config.bulkwijzigingen.totaalaantalgepersisteerdeproperties@value; true BEHAVIOR.IsEconAx = (CONFIG.Backend == "axapta"); BEHAVIOR.IsEconWeb = (CONFIG.Backend <> "axapta"); Instellen Gedrag Omgeving ;behavior.iseconax@value;behavior.iseconweb@value; BEHAVIOR.IsEconAx local string _Configuration = GetArg("configuration"); local string _BEHAVIOR_AccessMode; local string _BEHAVIOR_OperationMode; local string _BEHAVIOR_ContextName; local boolean _IsNieuweIngaveInAx = (DATA.Lijn.GroeperingCode == ""); // Tijdelijk getest via GroeperingCode ingevuld; [TODO] vind een goede manier om de AxNew te bepalen. local boolean _IsEditEdiFromSalesOrderIn; local boolean _IsInitiatorAxMsgTableSalesOrderIn = (CONFIG.Initiator == "Ax.MsgTableSalesOrderIn"); _BEHAVIOR_AccessMode = "Intern"; // Voor AX is AccessMode altijd "Intern". (voorlopig toch) _BEHAVIOR_OperationMode = ""; if (CONFIG.ProcessMode == "Background") then _BEHAVIOR_OperationMode = "AxCreate"; else if (_IsNieuweIngaveInAx) then _BEHAVIOR_OperationMode = "New"; else _BEHAVIOR_OperationMode = "Edit"; end if; end if; _BEHAVIOR_ContextName = "null"; if (CONFIG.ProcessMode == "Background") then _BEHAVIOR_ContextName = "AxCreateVH4"; if ((CONFIG.Bulkwijzigingen.ReferentieConfiguratieId <> "") and (CONFIG.Bulkwijzigingen.BulkConfiguratieId <> "")) then _BEHAVIOR_ContextName = "AxCreateBulkWijzigingenToepassen"; end if; if (_IsInitiatorAxMsgTableSalesOrderIn) then _BEHAVIOR_ContextName = "AxCreateEdi"; end if; /* * / _KenmerkenOorsprong = "VH4"; // VH4 of EDI of OCC [TODO] onderscheid nog te bepalen, indien mogelijk. if _KenmerkenOorsprong == "VH4" then _BEHAVIOR_ContextName = "AxCreateVH4"; end if; if _KenmerkenOorsprong == "OCC" then _BEHAVIOR_ContextName = "AxCreateOcc"; end if; /* */ else if (_IsNieuweIngaveInAx) then if (CONFIG.Bulkwijzigingen.Isbulkconfiguratie) then _BEHAVIOR_ContextName = "AxNewBulkIngave"; else _BEHAVIOR_ContextName = "AxNew"; end if; else _IsEditEdiFromSalesOrderIn = _IsInitiatorAxMsgTableSalesOrderIn; if _IsEditEdiFromSalesOrderIn then _BEHAVIOR_ContextName = "AxEditEdi"; else _BEHAVIOR_ContextName = "AxEdit"; end if; end if; end if; BEHAVIOR.AccessMode = _BEHAVIOR_AccessMode; BEHAVIOR.OperationMode = _BEHAVIOR_OperationMode; BEHAVIOR.ContextName = _BEHAVIOR_ContextName; BEHAVIOR.IsInteractive = (CONFIG.ProcessMode <> "Background"); BEHAVIOR.IsAxCreate = ((_BEHAVIOR_OperationMode == "New") or (_BEHAVIOR_OperationMode == "AxCreate")); CONFIG.InputMode = BEHAVIOR.OperationMode; CONFIG.Settings.OperationMode = BEHAVIOR.AccessMode; Instellen Gedrag Ax (AccessMode, OperationMode, ContextName) ;behavior.accessmode@value;behavior.operationmode@value;behavior.contextname@value;behavior.isinteractive@value;behavior.isaxcreate@value;config.inputmode@value;config.settings.operationmode@value; BEHAVIOR.IsEconWeb local string _AccessMode = GetArg("operationmode"); local string _Configuration = GetArg("configuration"); local string _BEHAVIOR_AccessMode; local string _BEHAVIOR_OperationMode; local string _BEHAVIOR_ContextName; _BEHAVIOR_AccessMode = "Extern"; if (LCase(_AccessMode) == "intern") then _BEHAVIOR_AccessMode = "Intern"; end if; _BEHAVIOR_OperationMode = ""; if (CONFIG.TOKEN == "128eababb1a1596e3c130b0e0fd5be820334a01a16bf777d1c5439fcfa861e16") then _BEHAVIOR_OperationMode = "CreateConfig"; _BEHAVIOR_AccessMode = "Intern"; // CreateConfig volgt de beperkingen van de InterneVerwerking (o.a. voor EDI-bestellingen met specifieke verpakking of verlaagde rug of stalen rug) else if (_Configuration <> "") then _BEHAVIOR_OperationMode = "Edit"; else _BEHAVIOR_OperationMode = "New"; end if; end if; _BEHAVIOR_ContextName = "null"; if (_BEHAVIOR_OperationMode == "CreateConfig") then _BEHAVIOR_ContextName = "WebCreateConfig"; else if (_BEHAVIOR_OperationMode == "Edit") then _BEHAVIOR_ContextName = "WebShopEdit"; else _BEHAVIOR_ContextName = "WebShopNew"; end if; end if; BEHAVIOR.AccessMode = _BEHAVIOR_AccessMode; BEHAVIOR.OperationMode = _BEHAVIOR_OperationMode; BEHAVIOR.ContextName = _BEHAVIOR_ContextName; BEHAVIOR.IsInteractive = (_BEHAVIOR_OperationMode <> "CreateConfig"); CONFIG.InputMode = BEHAVIOR.OperationMode; CONFIG.Settings.OperationMode = BEHAVIOR.AccessMode; Instellen Gedrag Web (AccessMode, OperationMode, ContextName) ;behavior.accessmode@value;behavior.operationmode@value;behavior.contextname@value;behavior.isinteractive@value;config.inputmode@value;config.settings.operationmode@value; BEHAVIOR.IsEconAx Initialisatie AX ; true local string _AxKlantId = GetArg("AxKlantId"); local string _GeconverteerdeKlantId = CStr(CLng(_AxKlantId)); CONFIG.Settings.KlantId = _GeconverteerdeKlantId; local string _OorsprongKetting = GetArg("OorsprongKetting"); if (not (_OorsprongKetting == "")) then local long _PositieInOorsprongKettingNaOpeningshaakjes = 3; local long _PositieEersteKommaInOorsprongKetting = CLng(InStr(1; _OorsprongKetting; ",")); local long _AantalKaraktersVanPersonalityId = _PositieEersteKommaInOorsprongKetting - _PositieInOorsprongKettingNaOpeningshaakjes; local string _PersonalityId = Mid(_OorsprongKetting; _PositieInOorsprongKettingNaOpeningshaakjes; _AantalKaraktersVanPersonalityId); CONFIG.Settings.PersonalityId = _PersonalityId; local long _PositieEersteAanhalingstekenInOorsprongKetting = CLng(InStr(1; _OorsprongKetting; "\"")); local string _OorsprongKettingVanafPersonalityKlantId = Mid(_OorsprongKetting; _PositieEersteAanhalingstekenInOorsprongKetting + 1); local long _PositieTweedeAanhalingstekenInOorsprongKetting = CLng(InStr(1; _OorsprongKettingVanafPersonalityKlantId; "\"")) + _PositieEersteAanhalingstekenInOorsprongKetting; local long _AantalKaraktersVanPersonalityKlantId = _PositieTweedeAanhalingstekenInOorsprongKetting - _PositieEersteAanhalingstekenInOorsprongKetting - 1; local string _PersonalityKlantId = Mid(_OorsprongKetting; _PositieEersteAanhalingstekenInOorsprongKetting + 1; _AantalKaraktersVanPersonalityKlantId); if (CONFIG.Settings.PersonalityId == "1") then _PersonalityKlantId = Mid(_PersonalityKlantId; 4); // Bij Personality Van Hoecke moet "K||" eraf gestript worden. else local long _PositieEersteUnderscoreInPersonalityKlantId = CLng(InStr(1; _PersonalityKlantId; "_")); _PersonalityKlantId = Mid(_PersonalityKlantId; _PositieEersteUnderscoreInPersonalityKlantId + 1); // Bij andere Personalities moet de prefix eraf gestript worden. end if; CONFIG.Settings.PersonalityKlantId = _PersonalityKlantId; end if; if (CONFIG.Settings.PersonalityId == "") then CONFIG.Settings.PersonalityId = "1"; CONFIG.Settings.PersonalityKlantId = CONFIG.Settings.KlantId; end if; CONFIG.Settings.AXUserId = GetArg("axuserid"); CONFIG.Settings.IsMaatwerkViewerToegelaten = CBool(GetArg("IsMaatwerkViewerToegelaten")); /* if (GetArg("FrontBevestigingVerbergen") <> "") then CONFIG.Settings.FrontBevestigingVerbergen = CBool(GetArg("FrontBevestigingVerbergen")) end if; if (GetArg("VoorwandTypeVanMBinnenladeGlasToegelaten") <> "") then CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten = CBool(GetArg("VoorwandTypeVanMBinnenladeGlasToegelaten")) end if; if (GetArg("VerpakkingVHossToegelaten") <> "") then CONFIG.Settings.VerpakkingVHossToegelaten= CBool(GetArg("VerpakkingVHossToegelaten")) end if; if (GetArg("VerpakkingPalletToegelaten") <> "") then CONFIG.Settings.VerpakkingPalletToegelaten = CBool(GetArg("VerpakkingPalletToegelaten")) end if; if (GetArg("VerpakkingProboxToegelaten") <> "") then CONFIG.Settings.VerpakkingProboxToegelaten= CBool(GetArg("VerpakkingProboxToegelaten")) end if; if (GetArg("IsBenelux") <> "") then CONFIG.Settings.IsBenelux= CBool(GetArg("IsBenelux")) end if; if (GetArg("NietMeeleverenVerbergen") <> "") then CONFIG.Settings.NietMeeleverenVerbergen= CBool(GetArg("NietMeeleverenVerbergen")) end if; if (GetArg("MatMateriaalAntislipToegelaten") <> "") then CONFIG.Settings.MatMateriaalAntislipToegelaten= CBool(GetArg("MatMateriaalAntislipToegelaten")) end if; if (GetArg("VerpakkingTooltipsTonen") <> "") then CONFIG.Settings.VerpakkingTooltipsTonen = CBool(GetArg("VerpakkingTooltipsTonen")) end if; if (GetArg("IsAfwijkendeRugHoogteToegelaten") <> "") then CONFIG.Settings.IsAfwijkendeRugHoogteToegelaten= CBool(GetArg("IsAfwijkendeRugHoogteToegelaten")) end if; if (GetArg("IsExportKlant") <> "") then CONFIG.Settings.IsExportKlant= CBool(GetArg("IsExportKlant")) end if; */ SalesTableAx = GetArg("SalesTableAx"); If (not(GetArg("DwarsverdelingTypeToegelaten") == "")) then CONFIG.Settings.DwarsverdelingTypeToegelaten = CBool(GetArg("DwarsverdelingTypeToegelaten")); end if; Settings ophalen uit argumenten ;config.settings.klantid@value;config.settings.personalityid@value;config.settings.personalityklantid@value;config.settings.axuserid@value;config.settings.ismaatwerkviewertoegelaten@value;salestableax@value;config.settings.dwarsverdelingtypetoegelaten@value; BEHAVIOR.IsAxCreate CONFIG.CreateContext.KeyValue@Length = 8; CONFIG.CreateContext.KeyValue(1).Name = "ProcessMode"; CONFIG.CreateContext.KeyValue(1).Value = CONFIG.ProcessMode; CONFIG.CreateContext.KeyValue(2).Name = "OperationMode"; CONFIG.CreateContext.KeyValue(2).Value = BEHAVIOR.OperationMode; CONFIG.CreateContext.KeyValue(3).Name = "ContextName"; CONFIG.CreateContext.KeyValue(3).Value = BEHAVIOR.ContextName; CONFIG.CreateContext.KeyValue(4).Name = "axuserid"; CONFIG.CreateContext.KeyValue(4).Value = GetArg("axuserid"); CONFIG.CreateContext.KeyValue(5).Name = "IsMaatwerkViewerToegelaten"; CONFIG.CreateContext.KeyValue(5).Value = GetArg("IsMaatwerkViewerToegelaten"); CONFIG.CreateContext.KeyValue(6).Name = "SalesTableAx"; CONFIG.CreateContext.KeyValue(6).Value = GetArg("SalesTableAx"); CONFIG.CreateContext.KeyValue(7).Name = "AxKlantId"; CONFIG.CreateContext.KeyValue(7).Value = GetArg("AxKlantId"); CONFIG.CreateContext.KeyValue(8).Name = "OorsprongKetting"; CONFIG.CreateContext.KeyValue(8).Value = GetArg("OorsprongKetting"); /* CONFIG.CreateContext.KeyValue(9).Name = "FrontBevestigingVerbergen"; CONFIG.CreateContext.KeyValue(9).Value = GetArg("FrontBevestigingVerbergen"); CONFIG.CreateContext.KeyValue(10).Name = "VoorwandTypeVanMBinnenladeGlasToegelaten"; CONFIG.CreateContext.KeyValue(10).Value = GetArg("VoorwandTypeVanMBinnenladeGlasToegelaten"); CONFIG.CreateContext.KeyValue(11).Name = "VerpakkingVHossToegelaten"; CONFIG.CreateContext.KeyValue(11).Value = GetArg("VerpakkingVHossToegelaten"); CONFIG.CreateContext.KeyValue(12).Name = "VerpakkingPalletToegelaten"; CONFIG.CreateContext.KeyValue(12).Value = GetArg("VerpakkingPalletToegelaten"); CONFIG.CreateContext.KeyValue(13).Name = "VerpakkingProboxToegelaten"; CONFIG.CreateContext.KeyValue(13).Value = GetArg("VerpakkingProboxToegelaten"); CONFIG.CreateContext.KeyValue(14).Name = "IsBenelux"; CONFIG.CreateContext.KeyValue(14).Value = GetArg("IsBenelux"); CONFIG.CreateContext.KeyValue(14).Name = "NietMeeleverenVerbergen"; CONFIG.CreateContext.KeyValue(14).Value = GetArg("NietMeeleverenVerbergen"); CONFIG.CreateContext.KeyValue(15).Name = "MatMateriaalAntislipToegelaten"; CONFIG.CreateContext.KeyValue(15).Value = GetArg("MatMateriaalAntislipToegelaten"); CONFIG.CreateContext.KeyValue(16).Name = "VerpakkingTooltipsTonen"; CONFIG.CreateContext.KeyValue(16).Value = GetArg("VerpakkingTooltipsTonen"); CONFIG.CreateContext.KeyValue(17).Name = "IsAfwijkendeRugHoogteToegelaten"; CONFIG.CreateContext.KeyValue(17).Value = GetArg("IsAfwijkendeRugHoogteToegelaten"); CONFIG.CreateContext.KeyValue(18).Name = "IsExportKlant"; CONFIG.CreateContext.KeyValue(18).Value = GetArg("IsExportKlant"); CONFIG.CreateContext.KeyValue(19).Name = "VerpakkingTooltipsTonen"; CONFIG.CreateContext.KeyValue(19).Value = GetArg("VerpakkingTooltipsTonen"); */ CreateContext ophalen uit argumenten ;config.createcontext.keyvalue[1].name@value;config.createcontext.keyvalue[1].value@value; (CONFIG.ProcessMode == "Background") and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) Data.Kenmerken.BodemKleur = GetArg("data;kenmerken;bodemkleur"); Data.Kenmerken.CorpusBreedte = CDbl(Replace(GetArg("data;kenmerken;corpusbreedte");".";",")); Data.Kenmerken.CorpusWanddikte = CDbl(Replace(GetArg("data;kenmerken;corpuswanddikte");".";",")); Data.Kenmerken.Draagkracht = GetArg("data;kenmerken;draagkracht"); Data.Kenmerken.DwarsverdelingAantal = GetArg("data;kenmerken;dwarsverdelingaantal"); Data.Kenmerken.DwarsverdelingType = GetArg("data;kenmerken;dwarsverdelingtype"); Data.Kenmerken.Familie = GetArg("data;kenmerken;familie"); Data.Kenmerken.FrontBevestiging = GetArg("data;kenmerken;frontbevestiging"); Data.Kenmerken.GeleiderTechnologie = GetArg("data;kenmerken;geleidertechnologie"); Data.Kenmerken.HeeftOpvullijstLinks = CBool(GetArg("data;kenmerken;heeftopvullijstlinks")); Data.Kenmerken.HeeftOpvullijstRechts = CBool(GetArg("data;kenmerken;heeftopvullijstrechts")); Data.Kenmerken.HeeftZijstabilisering = CBool(GetArg("data;kenmerken;heeftzijstabilisering")); Data.Kenmerken.IsBinnenbreedte = CBool(GetArg("data;kenmerken;isbinnenbreedte")); Data.Kenmerken.IsBinnenlade = CBool(GetArg("data;kenmerken;isbinnenlade")); Data.Kenmerken.LadeDiepte = GetArg("data;kenmerken;ladediepte"); Data.Kenmerken.LadeHoogte = GetArg("data;kenmerken;ladehoogte"); Data.Kenmerken.LadeKleur = GetArg("data;kenmerken;ladekleur"); Data.Kenmerken.LadeKleurBuiten = GetArg("data;kenmerken;ladekleurbuiten"); Data.Kenmerken.MatKleur = GetArg("data;kenmerken;matkleur"); Data.Kenmerken.MatMateriaal = GetArg("data;kenmerken;matmateriaal"); Data.Kenmerken.MeenemerSet = GetArg("data;kenmerken;meenemerset"); Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBinnen = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkapbinnen")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBuiten = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkapbuiten")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkaprugwandhouder")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_BevestigingBodemFront = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_bevestigingbodemfront")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_frontbevestiging")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_geleider")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementVoor = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_inschuifelementvoor")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementZijkant = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_inschuifelementzijkant")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_opvullijst")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionset")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionseteenhedenenmeenemers")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponblumotionsynchronisatiestang")); Data.Kenmerken.NietMeeleveren.NietMeeleveren_Zijstabilisering = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_zijstabilisering")); Data.Kenmerken.OpvullijstKleur = GetArg("data;kenmerken;opvullijstkleur"); Data.Kenmerken.ProductieWijze = GetArg("data;kenmerken;productiewijze"); Data.Kenmerken.RugHoogte = GetArg("data;kenmerken;rughoogte"); Data.Kenmerken.RugwandMateriaal = GetArg("data;kenmerken;rugwandmateriaal"); Data.Kenmerken.Toepassing = GetArg("data;kenmerken;toepassing"); Data.Kenmerken.UitsparingData.UitsparingAantal = GetArg("data;kenmerken;uitsparingdata;uitsparingaantal"); Data.Kenmerken.UitsparingData.M.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;m;breedte");".";",")); Data.Kenmerken.UitsparingData.M.Hoogte = GetArg("data;kenmerken;uitsparingdata;m;hoogte"); Data.Kenmerken.UitsparingData.M.Materiaal = GetArg("data;kenmerken;uitsparingdata;m;materiaal"); Data.Kenmerken.UitsparingData.X.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;x;breedte");".";",")); Data.Kenmerken.UitsparingData.X.Hoogte = GetArg("data;kenmerken;uitsparingdata;x;hoogte"); Data.Kenmerken.UitsparingData.X.Materiaal = GetArg("data;kenmerken;uitsparingdata;x;materiaal"); Data.Kenmerken.UitsparingData.Y.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;y;breedte");".";",")); Data.Kenmerken.UitsparingData.Y.Hoogte = GetArg("data;kenmerken;uitsparingdata;y;hoogte"); Data.Kenmerken.UitsparingData.Y.Materiaal = GetArg("data;kenmerken;uitsparingdata;y;materiaal"); Data.Kenmerken.UitsparingData.Z1.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;breedte");".";",")); Data.Kenmerken.UitsparingData.Z1.Diepte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z1;diepte");".";",")); Data.Kenmerken.UitsparingData.Z1.Hoogte = GetArg("data;kenmerken;uitsparingdata;z1;hoogte"); Data.Kenmerken.UitsparingData.Z1.Materiaal = GetArg("data;kenmerken;uitsparingdata;z1;materiaal"); Data.Kenmerken.UitsparingData.Z1.Vorm = GetArg("data;kenmerken;uitsparingdata;z1;vorm"); Data.Kenmerken.UitsparingData.Z2.Breedte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z2;breedte");".";",")); Data.Kenmerken.UitsparingData.Z2.Diepte = CDbl(Replace(GetArg("data;kenmerken;uitsparingdata;z2;diepte");".";",")); Data.Kenmerken.UitsparingData.Z2.Hoogte = GetArg("data;kenmerken;uitsparingdata;z2;hoogte"); Data.Kenmerken.UitsparingData.Z2.Materiaal = GetArg("data;kenmerken;uitsparingdata;z2;materiaal"); Data.Kenmerken.UitsparingData.Z2.Vorm = GetArg("data;kenmerken;uitsparingdata;z2;vorm"); Data.Kenmerken.Variant = GetArg("data;kenmerken;variant"); Data.Kenmerken.VerpakkingType = GetArg("data;kenmerken;verpakkingtype"); Data.Kenmerken.VoorwandTypeVanCBinnenlade = GetArg("data;kenmerken;voorwandtypevancbinnenlade"); Data.Kenmerken.VoorwandTypeVanKBinnenlade = GetArg("data;kenmerken;voorwandtypevankbinnenlade"); Data.Kenmerken.VoorwandTypeVanMBinnenlade = GetArg("data;kenmerken;voorwandtypevanmbinnenlade"); Data.Kenmerken.ZijwandType = GetArg("data;kenmerken;zijwandtype"); DATA.Kenmerken.SpaceStep.Breedte = CDbl(Replace(GetArg("data;kenmerken;spacestep;breedte");".";",")); DATA.Kenmerken.SpaceStep.Hoogte = CDbl(Replace(GetArg("data;kenmerken;spacestep;hoogte");".";",")); DATA.Kenmerken.SpaceStep.Diepte = GetArg("data;kenmerken;spacestep;diepte"); DATA.Kenmerken.SpaceStep.Kleur = GetArg("data;kenmerken;spacestep;kleur"); DATA.Kenmerken.SpaceStep.Uitvoering = GetArg("data;kenmerken;spacestep;uitvoering"); DATA.Kenmerken.SpaceStep.Bewegingstechnologie = GetArg("data;kenmerken;spacestep;bewegingstechnologie"); DATA.Kenmerken.SpaceStep.StekkerServodrive = Cbool(Replace(GetArg("data;kenmerken;spacestep;stekkerservodrive");".";",")); DATA.Kenmerken.SpaceStep.StekkerType = GetArg("data;kenmerken;spacestep;stekkertype"); Data.Lijn.Aantal = CDbl(GetArg("data;lijn;aantal")); Data.Lijn.Referentie = GetArg("data;lijn;referentie"); //Data.Kenmerken. = GetArg("data;kenmerken;explicietgekozenkenmerken"); //Data.Kenmerken. = GetArg("data;kenmerken;gekoppeldeingegevenkenmerken"); //Data.Kenmerken. = GetArg("data;kenmerken;omschrijving"); //Data.Kenmerken.NietMeeleveren.NietMeeleveren_ = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponsynchronisatieset")); Kenmerken ophalen uit argumenten (Background) ;data.kenmerken.bodemkleur@value;data.kenmerken.corpusbreedte@value;data.kenmerken.corpuswanddikte@value;data.kenmerken.draagkracht@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.dwarsverdelingtype@value;data.kenmerken.familie@value;data.kenmerken.frontbevestiging@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladediepte@value;data.kenmerken.ladehoogte@value;data.kenmerken.ladekleur@value;data.kenmerken.ladekleurbuiten@value;data.kenmerken.matkleur@value;data.kenmerken.matmateriaal@value;data.kenmerken.meenemerset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkapbinnen@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkapbuiten@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkaprugwandhouder@value;data.kenmerken.nietmeeleveren.nietmeeleveren_bevestigingbodemfront@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestiging@value;data.kenmerken.nietmeeleveren.nietmeeleveren_geleider@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelementvoor@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelementzijkant@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.kenmerken.nietmeeleveren.nietmeeleveren_zijstabilisering@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.productiewijze@value;data.kenmerken.rughoogte@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.toepassing@value;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.x.breedte@value;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.y.breedte@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.breedte@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.z2.breedte@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value;data.kenmerken.variant@value;data.kenmerken.verpakkingtype@value;data.kenmerken.voorwandtypevancbinnenlade@value;data.kenmerken.voorwandtypevankbinnenlade@value;data.kenmerken.voorwandtypevanmbinnenlade@value;data.kenmerken.zijwandtype@value;data.kenmerken.spacestep.breedte@value;data.kenmerken.spacestep.hoogte@value;data.kenmerken.spacestep.diepte@value;data.kenmerken.spacestep.kleur@value;data.kenmerken.spacestep.uitvoering@value;data.kenmerken.spacestep.bewegingstechnologie@value;data.kenmerken.spacestep.stekkerservodrive@value;data.kenmerken.spacestep.stekkertype@value;data.lijn.aantal@value;data.lijn.referentie@value; (CONFIG.ProcessMode <> "Background") Kenmerken ophalen uit argumenten (Interactive) ; not(CONFIG.Backend == "axapta") if (CONFIG.Token == "") then // todo: configurator afsluiten indien geen token opgegeven local boolean _Result = true; //Exit(true;false); end if; Initialisatie web ; true STATE.KlantVoorkeurenSaved = false; Initialisatie states ;state.klantvoorkeurensaved@value; true local string _DebugMode = GetSetting("ui.debugmode"); local boolean _IsAxUserIdNietMeegegeven = (BEHAVIOR.IsEconAx and (GetArg("axuserid") == "")); // Bron = Generic Model form in AX if ((LCase(_DebugMode) == "true") or _IsAxUserIdNietMeegegeven) then Config.Settings.DebugMode = true; end if; $InspectorPane@visible = Config.Settings.DebugMode; Ophalen DebugMode ;config.settings.debugmode@value; (CONFIG.Backend <> "axapta") local string _Connection = GetSetting("data.connectionstring"); local string _Query = "SELECT Id, Name FROM ti.MDLanguage WHERE Active = '1'"; CONFIG.Database.Languages@options = {}; CONFIG.Database.Languages@options = ExecuteOptionsQuery("CONFIG.Database.Languages"; true; _Connection; _Query); STATE.LanguagesLoaded = true; Actieve talen ophalen ;config.database.languages@options;state.languagesloaded@value; BEHAVIOR.IsInteractive HELP.HelpUrl = "lbx/" + CONFIG.Language + ".xml"; Tooltips ;help.helpurl@value; not(BEHAVIOR.ContextName == "AxNewBulkIngave") local boolean _Result = CopyOptionsToArray("UI.Kenmerken.NietMeeleverenOptions"; "UI.Kenmerken.NietMeeleveren"); index i of UI.Kenmerken.NietMeeleveren UI.Kenmerken.NietMeeleveren(i)@label = DATA.Kenmerken.NietMeeleveren@label; UI.Kenmerken.NietMeeleveren(i)@repeat = false; UI.Kenmerken.NietMeeleveren(i).IsSelected@style.controlclass = "vh-slidercheckbox"; UI.Kenmerken.NietMeeleveren(i).Text@style.controlclass = "vh-checkboxlist-item"; UI.Kenmerken.NietMeeleveren(i).Text = GetLocalizedLabel(UI.Kenmerken.NietMeeleveren(i).Text); end index; NietMeeleveren ;ui.kenmerken.nietmeeleveren[1].text@value; true local boolean _Result; local string _SaveAs = GetArg("saveas"); local string _Configuration = GetArg("configuration"); local string _Version = GetArg("version"); if (_SaveAs == "" and _Configuration <> "") then _SaveAs = ElementId(_Configuration; _Version); end if; if (CONFIG.ConfigurationName == "") then if (_SaveAs <> "") then CONFIG.ConfigurationName = _SaveAs; else CONFIG.ConfigurationName = NewId() + ",1"; end if; end if; if ((_SaveAs == "") and (CONFIG.ConfigurationName <> "")) then _Result = SetArg("saveas"; ElementName(CONFIG.ConfigurationName)); _SaveAs = CONFIG.ConfigurationName; end if; if ((CONFIG.ConfigurationName <> "") and (_SaveAs <> "") and (CONFIG.ConfigurationName <> _SaveAs)) then CONFIG.ConfigurationName = _SaveAs; end if ConfigurationId bepalen ;config.configurationname@value; (CONFIG.Token <> "") and (BEHAVIOR.IsEconWeb) local string _Setting = GetSetting("data.vanhoecke.connectionstring.vhisie4.settings"); local string _Json = _Setting + CONFIG.Token; local boolean _Result; if not(BEHAVIOR.OperationMode == "CreateConfig") then // Setings ophalen op basis van de vh_token _Result = LoadFromJSONService("CONFIG.Settings.KeyValue"; _Json; false); /*if not(_Result) then ReturnValue = "{\"status\":\"cancel\"}"; _Result = Exit(true;false); end if;*/ end if; index i of CONFIG.Settings.KeyValue _Result = SetValue("CONFIG.Settings." + CONFIG.Settings.KeyValue(i).Name; CONFIG.Settings.KeyValue(i).Value); end index; Config settings ophalen (Web) ; true local collection _ExportPersonalities = {"3";"10";"11";"13";"14";"16";"17";"18";"19";"20";"32";"33";"34";"35";"36";"37";"38";"39";"40";"41";"42";"43";"44";"45"; "48"; "49"; "50"; "51"; "52"; "53"; "54"; "55"; "56"; "57"; "58"; "59"; "61"; "62"; "63"; "64"; "65"; "66"; "67"; "68"; "69"; "70"; "71"; "72"; "73"; "74"}; BEHAVIOR.IsExportPersonality = (Config.Settings.PersonalityId in _ExportPersonalities); Config settings ExportPersonalities ;behavior.isexportpersonality@value; (CONFIG.Token <> "") and (Config.Backend <> "axapta") // HEIN + SEEFELDER if ((Config.Settings.PersonalityId == "11") or (Config.Settings.PersonalityId == "13")) then Config.Settings.FrontBevestigingVerbergen = true; Config.Settings.IsBenelux = false; end if; // DARO if (Config.Settings.PersonalityId == "10") then Config.Settings.NietMeeleverenVerbergen = false; Config.Settings.IsBenelux = false; CONFIG.Settings.VerpakkingProboxToegelaten = false; /*index i of UI.Kenmerken.NietMeeleveren local string _Id = UI.Kenmerken.NietMeeleveren(i).Id; if (_Id == "AfdekkapBinnen") OR (_Id == "AfdekkapBuiten") then UI.Kenmerken.NietMeeleveren(i)@visible = false; end if; end index;*/ end if; // SFS if (Config.Settings.PersonalityId == "3") then Config.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten = false; end if; // FURNIFIT if (Config.Settings.PersonalityId == "24") then Config.Settings.VerpakkingProboxToegelaten = false; end if; // HAEFELE DE if (Config.Settings.PersonalityId == "33") then Config.Settings.VerpakkingTooltipsTonen = true; end if; // VAN HOECKE if (Config.Settings.PersonalityId == "1") then Config.Settings.NietMeeleverenVerbergen = false; end if; // MatMateriaalAntislip verbergen voor alle MP if (Config.Settings.PersonalityId <> "1") then CONFIG.Settings.MatMateriaalAntislipToegelaten = false; end if; // OPO && OPO Duitsland && Blum CZ if ((((Config.Settings.PersonalityId == "1") and (Config.Settings.KlantId == "30467")) or (Config.Settings.PersonalityId == "41")) or (((Config.Settings.PersonalityId == "1") and (Config.Settings.KlantId == "39481")) or (Config.Settings.PersonalityId == "71")) or (((Config.Settings.PersonalityId == "1") and (Config.Settings.KlantId == "39580")) or (Config.Settings.PersonalityId == "74"))) then Config.Settings.DwarsverdelingTypeToegelaten = false; end if; //Blum Polen if ((Config.Settings.PersonalityId == "48") or (Config.Settings.KlantId == "37598")) then Config.Settings.FrontBevestigingSchroefToegelaten = false; BEHAVIOR.IsMaximaleBreedteBeperktTot1168Mm = true; end if; Config settings hardcoded (settings voor de MP) ;config.settings.frontbevestigingverbergen@value;config.settings.isbenelux@value;config.settings.nietmeeleverenverbergen@value;config.settings.verpakkingproboxtoegelaten@value;config.settings.voorwandtypevanmbinnenladeglastoegelaten@value;config.settings.verpakkingtooltipstonen@value;config.settings.matmateriaalantisliptoegelaten@value;config.settings.dwarsverdelingtypetoegelaten@value;config.settings.frontbevestigingschroeftoegelaten@value;behavior.ismaximalebreedtebeperkttot1168mm@value; true Config.ReferentieConfiguratie = GetArg("referentieconfiguratie"); ReferentieConfiguratie ophalen ;config.referentieconfiguratie@value; (Config.InputMode <> "CreateConfig") and (Config.Backend <> "axapta") CONFIG.KlantVoorkeurenConfigurationName = DATA.Kenmerken.Variant + "_" + Config.Settings.PersonalityId + "_" + CONFIG.Settings.KlantId; KlantVoorkeuren naam bepalen ;config.klantvoorkeurenconfigurationname@value; true UI.Buttons.Top.SaveAndExitButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndExit','true'"; UI.Buttons.Top.SaveAndContinueButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndContinue','true'"; UI.Buttons.Top.CancelButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.Cancelled','true'"; UI.Buttons.Top.PreferencesButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.KlantVoorkeurenSaved','true'"; UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.StartMaatwerkViewer','true'"; UI.Buttons.Top.ProcessButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.ProcessedAndExit','true'|task:eCon.UI.Tasks.ProcessAndExitTask"; /* UI.Buttons.Top.ProcessButton = "task:eCon.UI.Tasks.ProcessAndExitTask"; if (CONFIG.Backend == "axapta") then STATE.ProcessedAndExit = true; end if; */ UI.Buttons.Bottom.SaveAndExitButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndExit','true'"; UI.Buttons.Bottom.SaveAndContinueButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndContinue','true'"; local boolean _IsEditMode = (CONFIG.InputMode == "Edit"); local string _LabelSave = UI.Buttons.Top.SaveAndExitButton@label; if (_IsEditMode) then _LabelSave = TRL.SaveChangesButton@label; end if; UI.Buttons.Top.SaveAndExitButton@label = _LabelSave; UI.Buttons.Bottom.SaveAndExitButton@label = _LabelSave; UI.Buttons.Top.SaveAndExitButton@visible = (CONFIG.Backend <> "axapta"); UI.Buttons.Top.SaveAndContinueButton@visible = not(_IsEditMode) and (CONFIG.Backend <> "axapta") and not(Config.Bulkwijzigingen.IsBulkConfiguratie); UI.Buttons.Top.PreferencesButton@visible = (CONFIG.Backend <> "axapta") and not(Config.Bulkwijzigingen.IsBulkConfiguratie); UI.Buttons.Top.ProcessButton@visible = ((CONFIG.Backend == "axapta") and not(BEHAVIOR.ContextName == "AxNewBulkIngave")); UI.Buttons.Bottom.SaveAndExitButton@visible = (CONFIG.Backend <> "axapta"); UI.Buttons.Bottom.SaveAndContinueButton@visible = not(_IsEditMode) and (CONFIG.Backend <> "axapta") and not(Config.Bulkwijzigingen.IsBulkConfiguratie); UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@label = "Maatwerk Viewer"; Buttons ;ui.buttons.top.saveandexitbutton@default;ui.buttons.top.saveandcontinuebutton@default;ui.buttons.top.cancelbutton@default;ui.buttons.top.preferencesbutton@default;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@default;ui.buttons.top.processbutton@default;ui.buttons.bottom.saveandexitbutton@default;ui.buttons.bottom.saveandcontinuebutton@default;ui.buttons.top.saveandexitbutton@visible;ui.buttons.top.saveandcontinuebutton@visible;ui.buttons.top.preferencesbutton@visible;ui.buttons.top.processbutton@visible;ui.buttons.bottom.saveandexitbutton@visible;ui.buttons.bottom.saveandcontinuebutton@visible; not(BEHAVIOR.ContextName == "AxNewBulkIngave") local string SelectedOption = ""; SelectedOption = UI.Kenmerken.BodemKleur; for i = 1 to len(UI.Kenmerken.BodemKleur@options) UI.Kenmerken.BodemKleur = UI.Kenmerken.BodemKleur@option(i)@id; UI.Kenmerken.BodemKleur.Text = DATA.Kenmerken.BodemKleur@option(i)@label; end for; UI.Kenmerken.BodemKleur= SelectedOption; SelectedOption = UI.Kenmerken.LadeKleur; for i = 1 to len(UI.Kenmerken.LadeKleur@options) UI.Kenmerken.LadeKleur = UI.Kenmerken.LadeKleur@option(i)@id; UI.Kenmerken.LadeKleur.Text = DATA.Kenmerken.LadeKleur@option(i)@label; end for; UI.Kenmerken.LadeKleur = SelectedOption; SelectedOption = UI.Kenmerken.LadeKleurBuiten; for i = 1 to len(UI.Kenmerken.LadeKleurBuiten@options) UI.Kenmerken.LadeKleurBuiten= UI.Kenmerken.LadeKleurBuiten@option(i)@id; UI.Kenmerken.LadeKleurBuiten.Text = DATA.Kenmerken.LadeKleurBuiten@option(i)@label; end for; UI.Kenmerken.LadeKleurBuiten= SelectedOption; SelectedOption = UI.Kenmerken.MatAntislipKleur; for i = 1 to len(UI.Kenmerken.MatAntislipKleur@options) UI.Kenmerken.MatAntislipKleur = UI.Kenmerken.MatAntislipKleur@option(i)@id; UI.Kenmerken.MatAntislipKleur.Text = GetLocalizedLabel("MatAntislipKleur_" + UI.Kenmerken.MatAntislipKleur); end for; UI.Kenmerken.MatAntislipKleur = SelectedOption; SelectedOption = UI.Kenmerken.MatAntislipFiberKleur; for i = 1 to len(UI.Kenmerken.MatAntislipFiberKleur@options) UI.Kenmerken.MatAntislipFiberKleur = UI.Kenmerken.MatAntislipFiberKleur@option(i)@id; UI.Kenmerken.MatAntislipFiberKleur.Text = GetLocalizedLabel("MatAntislipFiberKleur_" + UI.Kenmerken.MatAntislipFiberKleur); end for; UI.Kenmerken.MatAntislipFiberKleur = SelectedOption; SelectedOption = UI.Kenmerken.MatAntislipFlockKleur; for i = 1 to len(UI.Kenmerken.MatAntislipFlockKleur@options) UI.Kenmerken.MatAntislipFlockKleur = UI.Kenmerken.MatAntislipFlockKleur@option(i)@id; UI.Kenmerken.MatAntislipFlockKleur.Text = GetLocalizedLabel("MatAntislipFlockKleur_" + UI.Kenmerken.MatAntislipFlockKleur); end for; UI.Kenmerken.MatAntislipFlockKleur = SelectedOption; SelectedOption = UI.Kenmerken.MatMateriaal; for i = 1 to len(UI.Kenmerken.MatMateriaal@options) UI.Kenmerken.MatMateriaal = UI.Kenmerken.MatMateriaal@option(i)@id; UI.Kenmerken.MatMateriaal.Text = DATA.Kenmerken.MatMateriaal@option(UI.Kenmerken.MatMateriaal.Value)@label; end for; UI.Kenmerken.MatMateriaal = SelectedOption; SelectedOption = UI.Kenmerken.MatVinylFiberglassKleur; for i = 1 to len(UI.Kenmerken.MatVinylFiberglassKleur@options) UI.Kenmerken.MatVinylFiberglassKleur = UI.Kenmerken.MatVinylFiberglassKleur@option(i)@id; UI.Kenmerken.MatVinylFiberglassKleur.Text = GetLocalizedLabel("MatVinylFiberglassKleur_" + UI.Kenmerken.MatVinylFiberglassKleur); end for; UI.Kenmerken.MatVinylFiberglassKleur = SelectedOption; SelectedOption = UI.Kenmerken.OpvullijstKleur; for i = 1 to len(UI.Kenmerken.OpvullijstKleur@options) UI.Kenmerken.OpvullijstKleur = UI.Kenmerken.OpvullijstKleur@option(i)@id; UI.Kenmerken.OpvullijstKleur.Text = DATA.Kenmerken.OpvullijstKleur@option(i)@label; end for; UI.Kenmerken.OpvullijstKleur = SelectedOption; SelectedOption = UI.Kenmerken.VoorwandTypeVanCBinnenlade; for i = 1 to len(UI.Kenmerken.VoorwandTypeVanCBinnenlade@options) UI.Kenmerken.VoorwandTypeVanCBinnenlade = UI.Kenmerken.VoorwandTypeVanCBinnenlade@option(i)@id; UI.Kenmerken.VoorwandTypeVanCBinnenlade.Text = DATA.Kenmerken.VoorwandTypeVanCBinnenlade@option(i)@label; end for; UI.Kenmerken.VoorwandTypeVanCBinnenlade= SelectedOption; SelectedOption = UI.Kenmerken.VoorwandTypeVanMBinnenlade; for i = 1 to len(UI.Kenmerken.VoorwandTypeVanMBinnenlade@options) UI.Kenmerken.VoorwandTypeVanMBinnenlade = UI.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@id; UI.Kenmerken.VoorwandTypeVanMBinnenlade.Text = DATA.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@label; end for; UI.Kenmerken.VoorwandTypeVanMBinnenlade= SelectedOption; SelectedOption = UI.Kenmerken.VoorwandTypeVanKBinnenlade; for i = 1 to len(UI.Kenmerken.VoorwandTypeVanKBinnenlade@options) UI.Kenmerken.VoorwandTypeVanKBinnenlade = UI.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@id; UI.Kenmerken.VoorwandTypeVanKBinnenlade.Text = DATA.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@label; end for; UI.Kenmerken.VoorwandTypeVanKBinnenlade= SelectedOption; SelectedOption = UI.Kenmerken.ZijwandType; for i = 1 to len(UI.Kenmerken.ZijwandType@options) UI.Kenmerken.ZijwandType = UI.Kenmerken.ZijwandType@option(i)@id; UI.Kenmerken.ZijwandType.Text = DATA.Kenmerken.ZijwandType@option(i)@label; end for; UI.Kenmerken.ZijwandType = SelectedOption; SelectedOption = UI.Kenmerken.SpaceStep.Kleur; for i = 1 to len(UI.Kenmerken.SpaceStep.Kleur@options) UI.Kenmerken.SpaceStep.Kleur = UI.Kenmerken.SpaceStep.Kleur@option(i)@id; UI.Kenmerken.SpaceStep.Kleur.Text = DATA.Kenmerken.SpaceStep.Kleur@option(i)@label; end for; UI.Kenmerken.SpaceStep.Kleur = SelectedOption; SelectedOption = UI.Kenmerken.DwarsverdelingType; for i = 1 to len(UI.Kenmerken.DwarsverdelingType@options) UI.Kenmerken.DwarsverdelingType= UI.Kenmerken.DwarsverdelingType@option(i)@id; UI.Kenmerken.DwarsverdelingType.Text = DATA.Kenmerken.DwarsverdelingType@option(i)@label; end for; UI.Kenmerken.DwarsverdelingType= SelectedOption; Vertalingen UI image labels ;ui.kenmerken.bodemkleur@value;ui.kenmerken.ladekleur@value;ui.kenmerken.ladekleurbuiten@value;ui.kenmerken.matantislipkleur@value;ui.kenmerken.matantislipfiberkleur@value;ui.kenmerken.matantislipflockkleur@value;ui.kenmerken.matmateriaal@value;ui.kenmerken.matvinylfiberglasskleur@value;ui.kenmerken.opvullijstkleur@value;ui.kenmerken.voorwandtypevancbinnenlade@value;ui.kenmerken.voorwandtypevanmbinnenlade@value;ui.kenmerken.voorwandtypevankbinnenlade@value;ui.kenmerken.zijwandtype@value;ui.kenmerken.spacestep.kleur@value;ui.kenmerken.dwarsverdelingtype@value; (BEHAVIOR.ContextName == "AxNewBulkIngave") or (BEHAVIOR.IsInteractive and BEHAVIOR.IsEconWeb) local string SelectedOption = ""; SelectedOption = UI.BulkKenmerken.BodemKleur; for i = 1 to len(UI.BulkKenmerken.BodemKleur@options) UI.BulkKenmerken.BodemKleur = UI.BulkKenmerken.BodemKleur@option(i)@id; UI.BulkKenmerken.BodemKleur.Text = DATA.BulkKenmerken(1).BodemKleur@option(i)@label; end for; UI.BulkKenmerken.BodemKleur= SelectedOption; SelectedOption = UI.BulkKenmerken.DwarsverdelingType; for i = 1 to len(UI.BulkKenmerken.DwarsverdelingType@options) UI.BulkKenmerken.DwarsverdelingType = UI.BulkKenmerken.DwarsverdelingType@option(i)@id; UI.BulkKenmerken.DwarsverdelingType.Text = DATA.BulkKenmerken(1).DwarsverdelingType@option(i)@label; end for; UI.BulkKenmerken.DwarsverdelingType= SelectedOption; SelectedOption = UI.BulkKenmerken.LadeKleur; for i = 1 to len(UI.BulkKenmerken.LadeKleur@options) UI.BulkKenmerken.LadeKleur = UI.BulkKenmerken.LadeKleur@option(i)@id; UI.BulkKenmerken.LadeKleur.Text = DATA.BulkKenmerken(1).LadeKleur@option(i)@label; end for; UI.BulkKenmerken.LadeKleur = SelectedOption; SelectedOption = UI.BulkKenmerken.LadeKleurBuiten; for i = 1 to len(UI.BulkKenmerken.LadeKleurBuiten@options) UI.BulkKenmerken.LadeKleurBuiten= UI.BulkKenmerken.LadeKleurBuiten@option(i)@id; UI.BulkKenmerken.LadeKleurBuiten.Text = DATA.BulkKenmerken(1).LadeKleurBuiten@option(i)@label; end for; UI.BulkKenmerken.LadeKleurBuiten = SelectedOption; SelectedOption = UI.BulkKenmerken.MatAntislipFiberKleur; for i = 1 to len(UI.BulkKenmerken.MatAntislipFiberKleur@options) UI.BulkKenmerken.MatAntislipFiberKleur = UI.BulkKenmerken.MatAntislipFiberKleur@option(i)@id; UI.BulkKenmerken.MatAntislipFiberKleur.Text = GetLocalizedLabel("MatAntislipFiberKleur_" + UI.BulkKenmerken.MatAntislipFiberKleur); end for; UI.BulkKenmerken.MatAntislipFiberKleur = SelectedOption; SelectedOption = UI.BulkKenmerken.MatAntislipFlockKleur; for i = 1 to len(UI.BulkKenmerken.MatAntislipFlockKleur@options) UI.BulkKenmerken.MatAntislipFlockKleur = UI.BulkKenmerken.MatAntislipFlockKleur@option(i)@id; UI.BulkKenmerken.MatAntislipFlockKleur.Text = GetLocalizedLabel("MatAntislipFlockKleur_" + UI.BulkKenmerken.MatAntislipFlockKleur); end for; UI.BulkKenmerken.MatAntislipFlockKleur = SelectedOption; SelectedOption = UI.BulkKenmerken.MatMateriaal; for i = 1 to len(UI.BulkKenmerken.MatMateriaal@options) UI.BulkKenmerken.MatMateriaal = UI.BulkKenmerken.MatMateriaal@option(i)@id; UI.BulkKenmerken.MatMateriaal.Text = DATA.BulkKenmerken(1).MatMateriaal@option(UI.BulkKenmerken.MatMateriaal.Value)@label; end for; UI.BulkKenmerken.MatMateriaal = SelectedOption; SelectedOption = UI.BulkKenmerken.MatVinylFiberglassKleur; for i = 1 to len(UI.BulkKenmerken.MatVinylFiberglassKleur@options) UI.BulkKenmerken.MatVinylFiberglassKleur = UI.BulkKenmerken.MatVinylFiberglassKleur@option(i)@id; UI.BulkKenmerken.MatVinylFiberglassKleur.Text = GetLocalizedLabel("MatVinylFiberglassKleur_" + UI.BulkKenmerken.MatVinylFiberglassKleur); end for; UI.BulkKenmerken.MatVinylFiberglassKleur = SelectedOption; SelectedOption = UI.BulkKenmerken.OpvullijstKleur; for i = 1 to len(UI.BulkKenmerken.OpvullijstKleur@options) UI.BulkKenmerken.OpvullijstKleur = UI.BulkKenmerken.OpvullijstKleur@option(i)@id; UI.BulkKenmerken.OpvullijstKleur.Text = DATA.BulkKenmerken(1).OpvullijstKleur@option(i)@label; end for; UI.BulkKenmerken.OpvullijstKleur = SelectedOption; SelectedOption = UI.BulkKenmerken.VoorwandTypeVanCBinnenlade; for i = 1 to len(UI.BulkKenmerken.VoorwandTypeVanCBinnenlade@options) UI.BulkKenmerken.VoorwandTypeVanCBinnenlade = UI.BulkKenmerken.VoorwandTypeVanCBinnenlade@option(i)@id; UI.BulkKenmerken.VoorwandTypeVanCBinnenlade.Text = DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade@option(i)@label; end for; UI.BulkKenmerken.VoorwandTypeVanCBinnenlade= SelectedOption; SelectedOption = UI.BulkKenmerken.VoorwandTypeVanMBinnenlade; for i = 1 to len(UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@options) UI.BulkKenmerken.VoorwandTypeVanMBinnenlade = UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@option(i)@id; UI.BulkKenmerken.VoorwandTypeVanMBinnenlade.Text = DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade@option(i)@label; end for; UI.BulkKenmerken.VoorwandTypeVanMBinnenlade= SelectedOption; SelectedOption = UI.BulkKenmerken.VoorwandTypeVanKBinnenlade; for i = 1 to len(UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@options) UI.BulkKenmerken.VoorwandTypeVanKBinnenlade = UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@option(i)@id; UI.BulkKenmerken.VoorwandTypeVanKBinnenlade.Text = DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade@option(i)@label; end for; UI.BulkKenmerken.VoorwandTypeVanKBinnenlade= SelectedOption; SelectedOption = UI.BulkKenmerken.ZijwandType; for i = 1 to len(UI.BulkKenmerken.ZijwandType@options) UI.BulkKenmerken.ZijwandType = UI.BulkKenmerken.ZijwandType@option(i)@id; UI.BulkKenmerken.ZijwandType.Text = DATA.BulkKenmerken(1).ZijwandType@option(i)@label; end for; UI.BulkKenmerken.ZijwandType = SelectedOption; Vertalingen bulk UI image labels ;ui.bulkkenmerken.bodemkleur@value;ui.bulkkenmerken.dwarsverdelingtype@value;ui.bulkkenmerken.ladekleur@value;ui.bulkkenmerken.ladekleurbuiten@value;ui.bulkkenmerken.matantislipfiberkleur@value;ui.bulkkenmerken.matantislipflockkleur@value;ui.bulkkenmerken.matmateriaal@value;ui.bulkkenmerken.matvinylfiberglasskleur@value;ui.bulkkenmerken.opvullijstkleur@value;ui.bulkkenmerken.voorwandtypevancbinnenlade@value;ui.bulkkenmerken.voorwandtypevanmbinnenlade@value;ui.bulkkenmerken.voorwandtypevankbinnenlade@value;ui.bulkkenmerken.zijwandtype@value; true local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); //UI.Kenmerken.RugHoogte@visible = _IsIntern; // afhankelijk van "afwijkende" rughoogte flag //UI.Kenmerken.RugHoogte@mandatory = _IsIntern; // afhankelijk van "afwijkende" rughoogte flag //UI.Kenmerken.ProductieWijze@visible = _IsIntern; //UI.Kenmerken.ProductieWijze@mandatory = _IsIntern; //UI.Kenmerken.RugwandMateriaal@visible = _IsIntern; //Dit mag weg van zodra SpaceStep live is //UI.Kenmerken.RugwandMateriaal@mandatory = _IsIntern; //Dit mag weg van zodra SpaceStep live is UI.Kenmerken.OpvullijstKleur@option("LG")@visible = true; // Op "false" zetten wanneer PM deze uitfaseert (rond aug 2019) UI.Kenmerken.MatMateriaal@option("AZ")@visible = true; // Flock UI.Kenmerken.FrontBevestiging@option("D")@visible = _IsIntern; UI.BulkKenmerken.FrontBevestiging@option("D")@visible = _IsIntern; index i of UI.Kenmerken.NietMeeleveren local boolean _IsZichtbaarExtern = (not(_IsIntern) and (UI.Kenmerken.NietMeeleveren(i).id in CONFIG.NietMeeleverenExtern@options)); local boolean _IsZichtbaarIntern = _IsIntern; UI.Kenmerken.NietMeeleveren(i)@visible = (_IsZichtbaarIntern or _IsZichtbaarExtern); end index; UI.Kenmerken.Toepassing@option("SST")@visible = true; //Dit mag weg van zodra SpaceStep live is DATA.BulkKenmerken@length = 1; Beperkingen Intern/Extern ;ui.kenmerken.opvullijstkleur@options;ui.kenmerken.matmateriaal@options;ui.kenmerken.frontbevestiging@options;ui.bulkkenmerken.frontbevestiging@options;ui.kenmerken.toepassing@options; true UI.Kenmerken.VoorwandTypeVanMBinnenlade@option("Glas")@visible = (UI.Kenmerken.VoorwandTypeVanMBinnenlade@option("Glas")@visible and Config.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten); UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@option("Glas")@visible = (UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@option("Glas")@visible and Config.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten); Beperkingen Settings ;ui.kenmerken.voorwandtypevanmbinnenlade@options;ui.bulkkenmerken.voorwandtypevanmbinnenlade@options; (CONFIG.Settings.KlantId == "6819") Config.Settings.IsBeschikbaarVoorKlant = true IsBeschikbaarVoorKlant ;config.settings.isbeschikbaarvoorklant@value; true STATE.Initialized = false; Einde initialisatie ;state.initialized@value; BEHAVIOR.IsEconWeb if ((BEHAVIOR.OperationMode == "CreateConfig") and ((CONFIG.Bulkwijzigingen.ReferentieConfiguratieId <> "") and (CONFIG.Bulkwijzigingen.BulkConfiguratieId <> ""))) then BEHAVIOR.OperationMode = "WebCreateBulkWijzigingenToepassen"; end if; if ((BEHAVIOR.ContextName == "WebShopNew") and (CONFIG.Bulkwijzigingen.IsBulkConfiguratie)) then BEHAVIOR.ContextName = "WebShopNewBulkIngave"; end if; Gedrag OperationMode en ContextName (Web) ;behavior.operationmode@value;behavior.contextname@value; true // Gedrag Verpakkingen : local boolean _BEHAVIOR_IsVerpakkingProboxZichtbaar; local boolean _BEHAVIOR_IsVerpakkingVHossZichtbaar; local boolean _BEHAVIOR_IsVerpakkingPalletZichtbaar; if (CONFIG.Settings.OperationMode == "Intern") or (CONFIG.InputMode == "CreateConfig") or (BEHAVIOR.IsEconAx) then _BEHAVIOR_IsVerpakkingProboxZichtbaar = true; _BEHAVIOR_IsVerpakkingVHossZichtbaar = true; _BEHAVIOR_IsVerpakkingPalletZichtbaar = true; else _BEHAVIOR_IsVerpakkingProboxZichtbaar = CONFIG.Settings.VerpakkingProboxToegelaten; _BEHAVIOR_IsVerpakkingVHossZichtbaar = CONFIG.Settings.VerpakkingVHossToegelaten; _BEHAVIOR_IsVerpakkingPalletZichtbaar = CONFIG.Settings.VerpakkingPalletToegelaten; end if; // Controls Verpakkingen : UI.Kenmerken.VerpakkingType@option("Probox")@visible = _BEHAVIOR_IsVerpakkingProboxZichtbaar; UI.Kenmerken.VerpakkingType@option("VHoss")@visible = _BEHAVIOR_IsVerpakkingVHossZichtbaar; UI.Kenmerken.VerpakkingType@option("Pallet")@visible = _BEHAVIOR_IsVerpakkingPalletZichtbaar; UI.BulkKenmerken.VerpakkingType@option("Probox")@visible = _BEHAVIOR_IsVerpakkingProboxZichtbaar; UI.BulkKenmerken.VerpakkingType@option("VHoss")@visible = _BEHAVIOR_IsVerpakkingVHossZichtbaar; UI.BulkKenmerken.VerpakkingType@option("Pallet")@visible = _BEHAVIOR_IsVerpakkingPalletZichtbaar; Gedrag Verpakkingen instellen ;ui.kenmerken.verpakkingtype@options;ui.bulkkenmerken.verpakkingtype@options; STATE.VerpakkingTooltipsTrigger local string _SelectedOption = ""; if not(Config.Settings.VerpakkingTooltipsTonen) then _SelectedOption = UI.Kenmerken.VerpakkingType; for i = 1 to len(DATA.Kenmerken.VerpakkingType@options) UI.Kenmerken.VerpakkingType = DATA.Kenmerken.VerpakkingType@option(i)@id; UI.Kenmerken.VerpakkingType.Url = ""; end for; UI.Kenmerken.VerpakkingType = _SelectedOption; _SelectedOption = UI.BulkKenmerken.VerpakkingType; for i = 1 to len(DATA.BulkKenmerken(1).VerpakkingType@options) UI.BulkKenmerken.VerpakkingType = DATA.BulkKenmerken(1).VerpakkingType@option(i)@id; UI.BulkKenmerken.VerpakkingType.Url = ""; end for; UI.BulkKenmerken.VerpakkingType = _SelectedOption; end if; STATE.VerpakkingTooltipsTrigger = false; Gedrag Verpakkingen Tooltips instellen ;ui.kenmerken.verpakkingtype@value;ui.bulkkenmerken.verpakkingtype@value;state.verpakkingtooltipstrigger@value; true local boolean _BEHAVIOR_MatMateriaalAntislipToegelaten; if (CONFIG.Settings.OperationMode == "Intern") or (CONFIG.InputMode == "CreateConfig") or (BEHAVIOR.IsEconAx) then _BEHAVIOR_MatMateriaalAntislipToegelaten = true; else _BEHAVIOR_MatMateriaalAntislipToegelaten = Config.Settings.MatMateriaalAntislipToegelaten; end if; // Override all lines above! _BEHAVIOR_MatMateriaalAntislipToegelaten = false; // Antislip (AGO) UI.Kenmerken.MatMateriaal@option("AS")@visible = _BEHAVIOR_MatMateriaalAntislipToegelaten; Gedrag Matten ;ui.kenmerken.matmateriaal@options; true local boolean _BEHAVIOR_IsReferentieZichtbaar; if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive == true) then _BEHAVIOR_IsReferentieZichtbaar = false; else _BEHAVIOR_IsReferentieZichtbaar = true; end if; UI.Lijn.Referentie@visible = _BEHAVIOR_IsReferentieZichtbaar; Gedrag Referentie ;ui.lijn.referentie@visible; not((BEHAVIOR.ContextName == "AxNewBulkIngave") or (BEHAVIOR.ContextName == "WebShopNewBulkIngave")) local string _VorigeSoortVerpakking = UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde; UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde = UI.Kenmerken.VerpakkingType; if (BEHAVIOR.IsInteractive and (CONFIG.InputMode == "New")) then if (_VorigeSoortVerpakking <> UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde) and (_VorigeSoortVerpakking <> "") then if (UI.Kenmerken.VerpakkingType == "Pallet" or UI.Kenmerken.VerpakkingType == "VHoss") then index i of UI.Kenmerken.NietMeeleveren if ((UI.Kenmerken.NietMeeleveren(i).Id <> "InschuifElementVoor") and (UI.Kenmerken.NietMeeleveren(i).Id <> "InschuifElementZijkant")) then UI.Kenmerken.NietMeeleveren(i).IsSelected = true; else UI.Kenmerken.NietMeeleveren(i).IsSelected = false; end if; end index; end if; if ((UI.Kenmerken.VerpakkingType <> "Pallet") and (UI.Kenmerken.VerpakkingType <> "VHoss") and not(_VorigeSoortVerpakking in {"V1";"Probox";""})) then index i of UI.Kenmerken.NietMeeleveren UI.Kenmerken.NietMeeleveren(i).IsSelected = false; end index; end if; end if; end if; Gedrag niet meeleveren opties selecteren indien VerpakkingType VHoss/Pallet ;ui.propertiesenkelvoorincodevanrules.verpakkingtypevorigewaarde@value; (BEHAVIOR.ContextName == "AxNewBulkIngave") or (BEHAVIOR.ContextName == "WebShopNewBulkIngave") local string _VorigeSoortVerpakking = UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde; UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde = UI.BulkKenmerken.VerpakkingType; if (_VorigeSoortVerpakking <> UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde) then if (UI.BulkKenmerken.VerpakkingType == "Pallet" or UI.BulkKenmerken.VerpakkingType == "VHoss") then UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen = "True"; UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten = "True"; UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder = "True"; UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront = "True"; UI.BulkKenmerken.NietMeeleveren_FrontBevestiging = "True"; UI.BulkKenmerken.NietMeeleveren_Geleider = "True"; UI.BulkKenmerken.NietMeeleveren_Opvullijst = "True"; UI.BulkKenmerken.NietMeeleveren_Zijstabilisering = "True"; end if; if ((UI.BulkKenmerken.VerpakkingType <> "Pallet") and (UI.BulkKenmerken.VerpakkingType <> "VHoss") and not(_VorigeSoortVerpakking in {"V1";"Probox";""})) then UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_FrontBevestiging = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_Geleider = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_Opvullijst = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang = "NietWijzigen"; UI.BulkKenmerken.NietMeeleveren_Zijstabilisering = "NietWijzigen"; end if; end if; Gedrag niet meeleveren opties selecteren indien VerpakkingType VHoss/Pallet (bulkconfig) ;ui.propertiesenkelvoorincodevanrules.verpakkingtypevorigewaarde@value; true local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); local boolean _BEHAVIOR_IsNietMeeleverenZichtbaarVolgensSpaceStep; local collection _TOBProducten= {"TiponBlumotionSet";"TiponBlumotionSetEenhedenEnMeenemers"; "TiponBlumotionSynchronisatieStang"}; if((UI.Kenmerken.SpaceStep.Uitvoering == "Volledig") or (UI.Kenmerken.Toepassing <> "SST")) then _BEHAVIOR_IsNietMeeleverenZichtbaarVolgensSpaceStep = true; else _BEHAVIOR_IsNietMeeleverenZichtbaarVolgensSpaceStep = false; end if; index i of UI.Kenmerken.NietMeeleveren local boolean _IsZichtbaarExtern = (not(_IsIntern) and (UI.Kenmerken.NietMeeleveren(i).id in CONFIG.NietMeeleverenExtern@options)); local boolean _IsZichtbaarIntern = _IsIntern; if ((UI.Kenmerken.NietMeeleveren(i).id <> "Opvullijst") and (UI.Kenmerken.NietMeeleveren(i).id <> "InschuifElementZijkant") and not(UI.Kenmerken.NietMeeleveren(i).Id in _TOBProducten)) then //Deze worden opgevangen in andere rules UI.Kenmerken.NietMeeleveren(i)@visible = ((_IsZichtbaarIntern or _IsZichtbaarExtern) and _BEHAVIOR_IsNietMeeleverenZichtbaarVolgensSpaceStep); end if; end index; Gedrag niet meeleveren zichtbaarheid ; true local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen@visible = ((not(_IsIntern) and ("AfdekkapBinnen" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten@visible = ((not(_IsIntern) and ("AfdekkapBuiten" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder@visible = ((not(_IsIntern) and ("AfdekkapRugwandHouder" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront@visible = ((not(_IsIntern) and ("BevestigingBodemFront" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_FrontBevestiging@visible = ((not(_IsIntern) and ("FrontBevestiging" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_Geleider@visible = ((not(_IsIntern) and ("Geleider" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor@visible = ((not(_IsIntern) and ("InschuifElementVoor" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant@visible = ((not(_IsIntern) and ("InschuifElementZijkant" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_Opvullijst@visible = ((not(_IsIntern) and ("Opvullijst" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet@visible = ((not(_IsIntern) and ("TiponBlumotionSet" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@visible = ((not(_IsIntern) and ("TiponBlumotionSetEenhedenEnMeenemers" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang@visible = ((not(_IsIntern) and ("TiponBlumotionSynchronisatieStang" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); UI.BulkKenmerken.NietMeeleveren_Zijstabilisering@visible = ((not(_IsIntern) and ("Zijstabilisering" in CONFIG.NietMeeleverenExtern@options)) or _IsIntern); Gedrag niet meeleveren zichtbaarheid (BulkKenmerken) ;ui.bulkkenmerken.nietmeeleveren_afdekkapbinnen@visible;ui.bulkkenmerken.nietmeeleveren_afdekkapbuiten@visible;ui.bulkkenmerken.nietmeeleveren_afdekkaprugwandhouder@visible;ui.bulkkenmerken.nietmeeleveren_bevestigingbodemfront@visible;ui.bulkkenmerken.nietmeeleveren_frontbevestiging@visible;ui.bulkkenmerken.nietmeeleveren_geleider@visible;ui.bulkkenmerken.nietmeeleveren_inschuifelementvoor@visible;ui.bulkkenmerken.nietmeeleveren_inschuifelementzijkant@visible;ui.bulkkenmerken.nietmeeleveren_opvullijst@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionset@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@visible;ui.bulkkenmerken.nietmeeleveren_zijstabilisering@visible; true local boolean _BEHAVIOR_IsNietMeeleverenZichtbaar; if (DATA.Kenmerken.ZijwandType == "Free") then _BEHAVIOR_IsNietMeeleverenZichtbaar = true; else _BEHAVIOR_IsNietMeeleverenZichtbaar = false; end if; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).id == "InschuifElementZijkant") then UI.Kenmerken.NietMeeleveren(i)@visible = _BEHAVIOR_IsNietMeeleverenZichtbaar; end if; end index; Gedrag niet meeleveren zichtbaarheid InschuifElementZijkant ; true local Boolean _BEHAVIOR_IsNMTOBZichtbaar; local boolean TOBSetSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet; local boolean TOBSetEnMeenemersSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers; local boolean TOBStangSelected = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; local boolean _VorigeWaardeNMTiponBlumotionSet = UI.PropertiesEnkelVoorInCodeVanRules.TiponBlumotionSetVorigeWaarde; local boolean AlleIndividueleTOBSelected = (TOBStangSelected and TOBSetEnMeenemersSelected); local collection _TOBProducten= {"TiponBlumotionSet";"TiponBlumotionSetEenhedenEnMeenemers"; "TiponBlumotionSynchronisatieStang"}; if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then _BEHAVIOR_IsNMTOBZichtbaar = true; else _BEHAVIOR_IsNMTOBZichtbaar = false; end if; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id in _TOBProducten) then UI.Kenmerken.NietMeeleveren(i)@visible = _BEHAVIOR_IsNMTOBZichtbaar; end if; end index; if (not(DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet) and AlleIndividueleTOBSelected) then if(_VorigeWaardeNMTiponBlumotionSet) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = false; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = false; AlleIndividueleTOBSelected = false; else DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = true; end if; end if; if (_VorigeWaardeNMTiponBlumotionSet and not(AlleIndividueleTOBSelected)) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = false; end if; if ((DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet) and not(AlleIndividueleTOBSelected)) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = true; DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = true; end if; UI.PropertiesEnkelVoorInCodeVanRules.TiponBlumotionSetVorigeWaarde = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet; Gedrag niet meeleveren TOB ;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;ui.propertiesenkelvoorincodevanrules.tiponblumotionsetvorigewaarde@value; true local boolean _BEHAVIOR_IsProductiewijzeZichtbaar; if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive == true) then _BEHAVIOR_IsProductiewijzeZichtbaar = true; if (UI.Kenmerken.Toepassing == "SST") then _BEHAVIOR_IsProductiewijzeZichtbaar = false; end if; else _BEHAVIOR_IsProductiewijzeZichtbaar = false; end if; UI.Kenmerken.Productiewijze@visible = _BEHAVIOR_IsProductiewijzeZichtbaar; UI.Kenmerken.ProductieWijze@mandatory = _BEHAVIOR_IsProductiewijzeZichtbaar; Gedrag Productiewijze ;ui.kenmerken.productiewijze@visible;ui.kenmerken.productiewijze@mandatory; true local boolean _IsAantalZichtbaar; local boolean _IsAantalVerplicht; if(BEHAVIOR.IsEconAX) then _IsAantalZichtbaar = false; _IsAantalVerplicht = false; else _IsAantalZichtbaar = true; _IsAantalVerplicht = true; end if; UI.Lijn.Aantal@visible = _IsAantalZichtbaar; UI.Lijn.Aantal@mandatory = _IsAantalVerplicht; Gedrag Aantal ;ui.lijn.aantal@visible;ui.lijn.aantal@mandatory; true local boolean _IsDwarsverdelingTypeZichtbaar = false; local boolean _IsDwarsverdelingTypeMandatory = false; if ((CLng(DATA.Kenmerken.DwarsverdelingAantal) > 0) and Config.Settings.DwarsverdelingTypeToegelaten and (DATA.Kenmerken.Toepassing <> "SST")) then _IsDwarsverdelingTypeZichtbaar = true; _IsDwarsverdelingTypeMandatory = true; end if; UI.Kenmerken.DwarsverdelingType@visible = _IsDwarsverdelingTypeZichtbaar; UI.Kenmerken.DwarsverdelingType@mandatory = _IsDwarsverdelingTypeMandatory; Gedrag DwarsverdelingType ;ui.kenmerken.dwarsverdelingtype@visible;ui.kenmerken.dwarsverdelingtype@mandatory; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local Boolean _BEHAVIOR_IsFrontbevestigingZichtbaar; local Boolean _BEHAVIOR_IsFrontbevestigingMandatory; if ((Config.Settings.FrontBevestigingVerbergen or DATA.Kenmerken.IsBinnenlade) or (DATA.Kenmerken.SpaceStep.Uitvoering <> "Volledig" and DATA.Kenmerken.Toepassing == "SST")) then _BEHAVIOR_IsFrontbevestigingZichtbaar = false; else _BEHAVIOR_IsFrontbevestigingZichtbaar = true; end if; if ((DATA.Kenmerken.IsBinnenlade or (DATA.Kenmerken.SpaceStep.Uitvoering <> "Volledig" and DATA.Kenmerken.Toepassing == "SST"))) then _BEHAVIOR_IsFrontbevestigingMandatory = false; else _BEHAVIOR_IsFrontbevestigingMandatory = true; end if; UI.Kenmerken.FrontBevestiging@mandatory = _BEHAVIOR_IsFrontbevestigingMandatory; UI.Kenmerken.FrontBevestiging@visible = _BEHAVIOR_IsFrontbevestigingZichtbaar; UI.Kenmerken.FrontBevestiging@option("S")@visible = Config.Settings.FrontBevestigingSchroefToegelaten; UI.BulkKenmerken.FrontBevestiging@option("S")@visible = Config.Settings.FrontBevestigingSchroefToegelaten; Gedrag Frontbevestiging ;ui.kenmerken.frontbevestiging@mandatory;ui.kenmerken.frontbevestiging@visible;ui.kenmerken.frontbevestiging@options;ui.bulkkenmerken.frontbevestiging@options; true local boolean _IsBlumPolen = (Config.Settings.PersonalityId == "48"); local boolean _BEHAVIOR_IsDesignKleurInoxZichtbaar = not(_IsBlumPolen); UI.Kenmerken.LadeKleurBuiten@option("INGL")@visible = _BEHAVIOR_IsDesignKleurInoxZichtbaar; Gedrag LadeKleurBuiten ;ui.kenmerken.ladekleurbuiten@options; true local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); local boolean _BEHAVIOR_IsAfwijkendeRugHoogteZichtbaar = false; if _IsIntern then _BEHAVIOR_IsAfwijkendeRugHoogteZichtbaar = true; else if ((DATA.Kenmerken.LadeHoogte in {"C";"K"}) and (DATA.Kenmerken.Toepassing == "L")) then _BEHAVIOR_IsAfwijkendeRugHoogteZichtbaar = true; end if; end if; UI.Kenmerken.HeeftAfwijkendeRugHoogte@visible = _BEHAVIOR_IsAfwijkendeRugHoogteZichtbaar; Gedrag HeeftAfwijkendeRugHoogte ;ui.kenmerken.heeftafwijkenderughoogte@visible; true local boolean _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar; if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive) then if (DATA.Kenmerken.Toepassing == "SST") then if (DATA.Kenmerken.SpaceStep.Uitvoering == "Volledig") then _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = true; else _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = false; end if; else _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = true; end if; else _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = false; end if; UI.Kenmerken.SneltoetsenNietMeeleveren@visible = _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar; Gedrag knoppen selecteren niet meeleveren ;ui.kenmerken.sneltoetsennietmeeleveren@visible; DATA.Kenmerken.Toepassing == "SY" or DATA.Kenmerken.Toepassing == "SP" local boolean _BEHAVIOR_IsRugwandMateriaalHoutValid; local boolean _BEHAVIOR_IsRugwandMateriaalStaalValid; if (DATA.Kenmerken.Toepassing == "SY") then _BEHAVIOR_IsRugwandMateriaalHoutValid = true; _BEHAVIOR_IsRugwandMateriaalStaalValid = false; end if; if (DATA.Kenmerken.Toepassing == "SP") then _BEHAVIOR_IsRugwandMateriaalHoutValid = false; _BEHAVIOR_IsRugwandMateriaalStaalValid = true; end if; DATA.Kenmerken.RugwandMateriaal@option("Hout")@valid = _BEHAVIOR_IsRugwandMateriaalHoutValid; DATA.Kenmerken.RugwandMateriaal@option("Staal")@valid = _BEHAVIOR_IsRugwandMateriaalStaalValid; local string TriggerDummy = DATA.Kenmerken.RugwandMateriaal; Gedrag RugwandMateriaal toepassing SY/SP ;data.kenmerken.rugwandmateriaal@valids; DATA.Kenmerken.Toepassing == "L" or DATA.Kenmerken.Toepassing == "SST" local boolean _BEHAVIOR_IsRugwandMateriaalHoutValid; local boolean _BEHAVIOR_IsRugwandMateriaalStaalValid; If (DATA.Kenmerken.LadeHoogte <> "" and DATA.Kenmerken.LadeKleur <> "" and DATA.Kenmerken.CorpusBreedte <> 0 and DATA.Kenmerken.RugwandMateriaal == "Staal") then _BEHAVIOR_IsRugwandMateriaalHoutValid = true; if (STATE.BestaatStalenRugLoaded == "WebServiceIsGeladen") then if (CONFIG.Settings.StalenRugBeschikbaar.BestaatStalenRug) then _BEHAVIOR_IsRugwandMateriaalStaalValid = true; else _BEHAVIOR_IsRugwandMateriaalStaalValid = false; end if; else _BEHAVIOR_IsRugwandMateriaalStaalValid = false; end if; else _BEHAVIOR_IsRugwandMateriaalHoutValid = true; _BEHAVIOR_IsRugwandMateriaalStaalValid = true; end if; DATA.Kenmerken.RugwandMateriaal@option("Hout")@valid = _BEHAVIOR_IsRugwandMateriaalHoutValid; DATA.Kenmerken.RugwandMateriaal@option("Staal")@valid = _BEHAVIOR_IsRugwandMateriaalStaalValid; local string TriggerDummy = DATA.Kenmerken.RugwandMateriaal; Gedrag RugwandMateriaal toepassing L/SST ;data.kenmerken.rugwandmateriaal@valids; true local Boolean _BEHAVIOR_IsRugHoogteZichtbaar; local Boolean _BEHAVIOR_IsRugHoogteMandatory; local Boolean _TriggerDummy = DATA.Kenmerken.HeeftAfwijkendeRugHoogte; if ((DATA.Kenmerken.HeeftAfwijkendeRugHoogte) or (DATA.Kenmerken.Toepassing == "SY")) then _BEHAVIOR_IsRugHoogteMandatory = true; else _BEHAVIOR_IsRugHoogteMandatory = false; end if; if DATA.Kenmerken.HeeftAfwijkendeRugHoogte then _BEHAVIOR_IsRugHoogteZichtbaar = true; else _BEHAVIOR_IsRugHoogteZichtbaar = false; end if; UI.Kenmerken.RugHoogte@mandatory = _BEHAVIOR_IsRugHoogteMandatory; UI.Kenmerken.RugHoogte@visible = _BEHAVIOR_IsRugHoogteZichtbaar; Gedrag Rughoogte ;ui.kenmerken.rughoogte@mandatory;ui.kenmerken.rughoogte@visible; true local boolean _IsBlumPolen = (Config.Settings.PersonalityId == "48"); local boolean _BEHAVIOR_IsSpaceStepZichtbaar = not(_IsBlumPolen); UI.Kenmerken.Toepassing@option("SST")@visible = _BEHAVIOR_IsSpaceStepZichtbaar; Gedrag Toepassing ;ui.kenmerken.toepassing@options; true local boolean BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; If ((BEHAVIOR.IsEconAX) and (BEHAVIOR.IsInteractive)) then BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar = true; else BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar = false; end if; UI.StatusBalk.Code@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; UI.StatusBalk.LadeDiepte@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; UI.StatusBalk.CorpusBreedte@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; UI.StatusBalk.Wand@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; UI.StatusBalk.Draagkracht@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; UI.StatusBalk.FrontBevestiging@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; UI.StatusBalk.Diverse@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; UI.StatusBalk.VerpakkingType@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; Gedrag kenmerken statusbalk ;ui.statusbalk.code@visible;ui.statusbalk.ladediepte@visible;ui.statusbalk.corpusbreedte@visible;ui.statusbalk.wand@visible;ui.statusbalk.draagkracht@visible;ui.statusbalk.frontbevestiging@visible;ui.statusbalk.diverse@visible;ui.statusbalk.verpakkingtype@visible; BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"} local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); UI.Kenmerken.LadeKleur@mandatory = false; UI.Kenmerken.BodemKleur@mandatory = false; UI.Kenmerken.Corpusbreedte@mandatory = false; UI.Kenmerken.LadeDiepte@mandatory = false; UI.Kenmerken.LadeHoogte@mandatory = false; UI.Kenmerken.GeleiderTechnologie@mandatory = false; UI.Kenmerken.Draagkracht@mandatory = false; UI.Kenmerken.ZijwandType@mandatory = false; UI.Kenmerken.Frontbevestiging@mandatory = false; UI.Kenmerken.VerpakkingType@mandatory = false; UI.Kenmerken.RugwandMateriaal@mandatory = false; UI.Kenmerken.Toepassing@mandatory = false; UI.Lijn.Aantal@mandatory = false; $BulkToepassingPane@visible = _IsIntern; $BulkDimensiesPane@visible = _IsIntern; $BulkKleurPane@visible = true; $BulkAfwerkingPane@visible = true; $BulkOptiesPane@visible = true; $BulkMatPane@visible = true; $BulkVerpakkingPane@visible = true; $ToepassingPane@visible = false; $Kleurpane@visible = false; $DimensiesPane@visible = false; $AfwerkingPane@visible = false; $OptiesPane@visible = false; $MatPane@visible = false; $VerpakkingPane@visible = false; $MaatwerkViewerPane@visible = false; UI.BulkKenmerken.VoorWandTypeVanCBinnenlade@visible = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "C")); UI.BulkKenmerken.VoorWandTypeVanMBinnenlade@visible = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "M")); UI.BulkKenmerken.VoorWandTypeVanKBinnenlade@visible = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "K")); UI.BulkKenmerken.VoorWandTypeVanCBinnenlade@mandatory = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "C")); UI.BulkKenmerken.VoorWandTypeVanMBinnenlade@mandatory = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "M")); UI.BulkKenmerken.VoorWandTypeVanKBinnenlade@mandatory = ((DATA.BulkKenmerken(1).IsBinnenlade == "True") and (DATA.BulkKenmerken(1).LadeHoogte == "K")); UI.BulkKenmerken.LadeKleurBuiten@visible = (DATA.BulkKenmerken(1).ZijwandType == "Design"); UI.BulkKenmerken.LadeKleurBuiten@mandatory = (DATA.BulkKenmerken(1).ZijwandType == "Design"); UI.BulkKenmerken.Meenemerset@visible = (DATA.BulkKenmerken(1).IsBinnenlade == "True"); UI.BulkKenmerken.Frontbevestiging@visible = (not(DATA.BulkKenmerken(1).IsBinnenlade == "True") and not(Config.Settings.FrontBevestigingVerbergen)); UI.BulkKenmerken.CorpusWanddikte@visible = (DATA.BulkKenmerken(1).IsBinnenbreedte == "False"); UI.BulkKenmerken.LadeHoogte@mandatory = (DATA.BulkKenmerken(1).IsBinnenlade == "True"); UI.BulkKenmerken.DraagKracht@visible = _IsIntern; if (UI.BulkKenmerken.CorpusBreedte.Wijzigen == "Wijzigen") then UI.BulkKenmerken.CorpusBreedte.Breedte@visible = true; else UI.BulkKenmerken.CorpusBreedte.Breedte@visible = false; UI.BulkKenmerken.CorpusBreedte.Breedte@default = 0; end if; if ((UI.BulkKenmerken.CorpusBreedte.Wijzigen == "Wijzigen") and (DATA.BulkKenmerken(1).IsBinnenBreedte == "NietWijzigen")) then UI.BulkKenmerken.IsBinnenbreedte@default = "True"; end if; if (UI.BulkKenmerken.CorpusBreedte.Wijzigen == "NietWijzigen") then UI.BulkKenmerken.IsBinnenbreedte@default = "NietWijzigen"; end if; if ((UI.BulkKenmerken.DwarsverdelingAantal == "0") or (UI.BulkKenmerken.DwarsverdelingAantal == "NietWijzigen")) then UI.BulkKenmerken.DwarsverdelingType@visible = false; else UI.BulkKenmerken.DwarsverdelingType@visible = true; end if; UI.BulkKenmerken.CorpusBreedte.Breedte@enabled = (UI.BulkKenmerken.CorpusBreedte.Wijzigen == "Wijzigen"); UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen@visible = (((_IsIntern) or (("AfdekkapBinnen" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten@visible = (((_IsIntern) or (("AfdekkapBuiten" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder@visible = (((_IsIntern) or (("AfdekkapRugwandHouder" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront@visible = (((_IsIntern) or (("BevestigingBodemFront" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_FrontBevestiging@visible = (((_IsIntern) or (("FrontBevestiging" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_Geleider@visible = (((_IsIntern) or (("Geleider" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor@visible = (((_IsIntern) or (("InschuifElementVoor" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant@visible = (((_IsIntern) or (("InschuifElementZijkant" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_Opvullijst@visible = (((_IsIntern) or (("Opvullijst" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet@visible = (((_IsIntern) or (("TiponBlumotionSet" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@visible = (((_IsIntern) or (("TiponBlumotionSetEenhedenEnMeenemers" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang@visible = (((_IsIntern) or (("TiponBlumotionSynchronisatieStang" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); UI.BulkKenmerken.NietMeeleveren_Zijstabilisering@visible = (((_IsIntern) or (("Zijstabilisering" in CONFIG.NietMeeleverenExtern@options) and (not(_IsIntern)))) and not(Config.Settings.NietMeeleverenVerbergen)); Gedrag Bulkkenmerkconfiurator ;ui.kenmerken.ladekleur@mandatory;ui.kenmerken.bodemkleur@mandatory;ui.kenmerken.corpusbreedte@mandatory;ui.kenmerken.ladediepte@mandatory;ui.kenmerken.ladehoogte@mandatory;ui.kenmerken.geleidertechnologie@mandatory;ui.kenmerken.draagkracht@mandatory;ui.kenmerken.zijwandtype@mandatory;ui.kenmerken.frontbevestiging@mandatory;ui.kenmerken.verpakkingtype@mandatory;ui.kenmerken.rugwandmateriaal@mandatory;ui.kenmerken.toepassing@mandatory;ui.lijn.aantal@mandatory;ui.bulkkenmerken.voorwandtypevancbinnenlade@visible;ui.bulkkenmerken.voorwandtypevanmbinnenlade@visible;ui.bulkkenmerken.voorwandtypevankbinnenlade@visible;ui.bulkkenmerken.voorwandtypevancbinnenlade@mandatory;ui.bulkkenmerken.voorwandtypevanmbinnenlade@mandatory;ui.bulkkenmerken.voorwandtypevankbinnenlade@mandatory;ui.bulkkenmerken.ladekleurbuiten@visible;ui.bulkkenmerken.ladekleurbuiten@mandatory;ui.bulkkenmerken.meenemerset@visible;ui.bulkkenmerken.frontbevestiging@visible;ui.bulkkenmerken.corpuswanddikte@visible;ui.bulkkenmerken.ladehoogte@mandatory;ui.bulkkenmerken.draagkracht@visible;ui.bulkkenmerken.corpusbreedte.breedte@visible;ui.bulkkenmerken.isbinnenbreedte@default;ui.bulkkenmerken.dwarsverdelingtype@visible;ui.bulkkenmerken.corpusbreedte.breedte@enabled;ui.bulkkenmerken.nietmeeleveren_afdekkapbinnen@visible;ui.bulkkenmerken.nietmeeleveren_afdekkapbuiten@visible;ui.bulkkenmerken.nietmeeleveren_afdekkaprugwandhouder@visible;ui.bulkkenmerken.nietmeeleveren_bevestigingbodemfront@visible;ui.bulkkenmerken.nietmeeleveren_frontbevestiging@visible;ui.bulkkenmerken.nietmeeleveren_geleider@visible;ui.bulkkenmerken.nietmeeleveren_inschuifelementvoor@visible;ui.bulkkenmerken.nietmeeleveren_inschuifelementzijkant@visible;ui.bulkkenmerken.nietmeeleveren_opvullijst@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionset@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@visible;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@visible;ui.bulkkenmerken.nietmeeleveren_zijstabilisering@visible; not((CONFIG.Backend == "axapta") and (CONFIG.ProcessMode == "Background")) DATA.Kenmerken.CorpusBreedte = UI.Kenmerken.CorpusBreedte; DATA.Kenmerken.CorpusWanddikte = UI.Kenmerken.CorpusWanddikte; DATA.Kenmerken.Draagkracht = UI.Kenmerken.Draagkracht; DATA.Kenmerken.DwarsverdelingAantal = UI.Kenmerken.DwarsverdelingAantal; DATA.Kenmerken.FrontBevestiging = UI.Kenmerken.FrontBevestiging; DATA.Kenmerken.GeleiderTechnologie = UI.Kenmerken.GeleiderTechnologie; DATA.Kenmerken.HeeftAfwijkendeRugHoogte = Cbool(UI.Kenmerken.HeeftAfwijkendeRugHoogte); DATA.Kenmerken.HeeftOpvullijstLinks = UI.Kenmerken.HeeftOpvullijstLinks; DATA.Kenmerken.HeeftOpvullijstRechts = UI.Kenmerken.HeeftOpvullijstRechts; DATA.Kenmerken.HeeftZijstabilisering = UI.Kenmerken.HeeftZijstabilisering; DATA.Kenmerken.IsBinnenbreedte = UI.Kenmerken.IsBinnenbreedte; DATA.Kenmerken.IsBinnenlade = UI.Kenmerken.IsBinnenlade; DATA.Kenmerken.LadeDiepte = UI.Kenmerken.LadeDiepte; DATA.Kenmerken.LadeHoogte = UI.Kenmerken.LadeHoogte; DATA.Kenmerken.MeenemerSet = UI.Kenmerken.MeenemerSet; DATA.Kenmerken.ProductieWijze = UI.Kenmerken.ProductieWijze; DATA.Kenmerken.RugHoogte = UI.Kenmerken.RugHoogte; DATA.Kenmerken.RugwandMateriaal = UI.Kenmerken.RugwandMateriaal; DATA.Kenmerken.Toepassing = UI.Kenmerken.Toepassing; DATA.Kenmerken.VerpakkingType = UI.Kenmerken.VerpakkingType; DATA.Kenmerken.UitsparingData.X.Breedte = UI.Kenmerken.UitsparingData.X.BreedteRugdeel; DATA.Kenmerken.UitsparingData.X.Hoogte = UI.Kenmerken.UitsparingData.X.Hoogte; DATA.Kenmerken.UitsparingData.X.Materiaal = UI.Kenmerken.UitsparingData.X.Materiaal; DATA.Kenmerken.UitsparingData.M.Breedte = UI.Kenmerken.UitsparingData.M.BreedteRugdeel; DATA.Kenmerken.UitsparingData.M.Hoogte = UI.Kenmerken.UitsparingData.M.Hoogte; DATA.Kenmerken.UitsparingData.M.Materiaal = UI.Kenmerken.UitsparingData.M.Materiaal; DATA.Kenmerken.UitsparingData.Y.Breedte = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; DATA.Kenmerken.UitsparingData.Y.Hoogte = UI.Kenmerken.UitsparingData.Y.Hoogte; DATA.Kenmerken.UitsparingData.Y.Materiaal = UI.Kenmerken.UitsparingData.Y.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; DATA.Kenmerken.UitsparingData.Z1.Diepte = UI.Kenmerken.UitsparingData.Z1.Diepte; DATA.Kenmerken.UitsparingData.Z1.Hoogte = UI.Kenmerken.UitsparingData.Z1.Hoogte; DATA.Kenmerken.UitsparingData.Z1.Materiaal = UI.Kenmerken.UitsparingData.Z1.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Vorm = UI.Kenmerken.UitsparingData.Z1.Vorm; DATA.Kenmerken.UitsparingData.Z2.Breedte = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing; DATA.Kenmerken.UitsparingData.Z2.Diepte = UI.Kenmerken.UitsparingData.Z2.Diepte; DATA.Kenmerken.UitsparingData.Z2.Hoogte = UI.Kenmerken.UitsparingData.Z2.Hoogte; DATA.Kenmerken.UitsparingData.Z2.Materiaal = UI.Kenmerken.UitsparingData.Z2.Materiaal; DATA.Kenmerken.UitsparingData.Z2.Vorm = UI.Kenmerken.UitsparingData.Z2.Vorm; DATA.Kenmerken.UitsparingData.UitsparingAantal = UI.Kenmerken.UitsparingData.UitsparingAantal; DATA.Lijn.Aantal = UI.Lijn.Aantal; DATA.Lijn.Referentie = UI.Lijn.Referentie; // IMAGE CONTROLS DATA.Kenmerken.BodemKleur = UI.Kenmerken.BodemKleur.Value; DATA.Kenmerken.LadeKleur = UI.Kenmerken.LadeKleur.Value; DATA.Kenmerken.LadeKleurBuiten = UI.Kenmerken.LadeKleurBuiten.Value; DATA.Kenmerken.OpvullijstKleur = UI.Kenmerken.OpvullijstKleur.Value; DATA.Kenmerken.VoorwandTypeVanCBinnenlade = UI.Kenmerken.VoorwandTypeVanCBinnenlade.Value; DATA.Kenmerken.VoorwandTypeVanMBinnenlade = UI.Kenmerken.VoorwandTypeVanMBinnenlade.Value; DATA.Kenmerken.VoorwandTypeVanKBinnenlade = UI.Kenmerken.VoorwandTypeVanKBinnenlade.Value; DATA.Kenmerken.ZijwandType = UI.Kenmerken.ZijwandType.Value; DATA.Kenmerken.DwarsverdelingType = UI.Kenmerken.DwarsverdelingType.Value; index i of UI.Kenmerken.NietMeeleveren local string _IsSelected = CStr(UI.Kenmerken.NietMeeleveren(i).IsSelected); local string _NietMeeleverenProperty = "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.Kenmerken.NietMeeleveren(i).Id; local boolean _Result = SetValue(_NietMeeleverenProperty; _IsSelected); end index; if (CONFIG.InputMode == "CreateConfig") then STATE.WinkelkarInfoCalculated = false; STATE.WinkelkarInfoDiverseCalculated = false; end if; Values ;data.kenmerken.corpusbreedte@value;data.kenmerken.corpuswanddikte@value;data.kenmerken.draagkracht@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.frontbevestiging@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.heeftafwijkenderughoogte@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladediepte@value;data.kenmerken.ladehoogte@value;data.kenmerken.meenemerset@value;data.kenmerken.productiewijze@value;data.kenmerken.rughoogte@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.toepassing@value;data.kenmerken.verpakkingtype@value;data.kenmerken.uitsparingdata.x.breedte@value;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.y.breedte@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.breedte@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.z2.breedte@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.lijn.aantal@value;data.lijn.referentie@value;data.kenmerken.bodemkleur@value;data.kenmerken.ladekleur@value;data.kenmerken.ladekleurbuiten@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.voorwandtypevancbinnenlade@value;data.kenmerken.voorwandtypevanmbinnenlade@value;data.kenmerken.voorwandtypevankbinnenlade@value;data.kenmerken.zijwandtype@value;data.kenmerken.dwarsverdelingtype@value;state.winkelkarinfocalculated@value;state.winkelkarinfodiversecalculated@value; true DATA.Kenmerken.MatMateriaal = UI.Kenmerken.MatMateriaal.Value; DATA.Kenmerken.MatKleur = switch (UI.Kenmerken.MatMateriaal.Value) case "CF": UI.Kenmerken.MatVinylFiberglassKleur.value case "AS": UI.Kenmerken.MatAntislipKleur.value case "AF": UI.Kenmerken.MatAntislipFiberKleur.value case "AZ": UI.Kenmerken.MatAntislipFlockKleur.value else "" end switch; Values - Mat ;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value; not((CONFIG.Backend == "axapta") and (CONFIG.ProcessMode == "Background")) DATA.Kenmerken.SpaceStep.Breedte = UI.Kenmerken.SpaceStep.Sokkelbreedte; DATA.Kenmerken.SpaceStep.Hoogte = UI.Kenmerken.SpaceStep.Sokkelhoogte; DATA.Kenmerken.SpaceStep.Diepte = UI.Kenmerken.SpaceStep.Sokkeldiepte; DATA.Kenmerken.SpaceStep.Kleur = UI.Kenmerken.SpaceStep.Kleur.Value; DATA.Kenmerken.SpaceStep.Uitvoering = UI.Kenmerken.SpaceStep.Uitvoering; DATA.Kenmerken.SpaceStep.Bewegingstechnologie = UI.Kenmerken.SpaceStep.Bewegingstechnologie; DATA.Kenmerken.SpaceStep.StekkerServodrive = UI.Kenmerken.SpaceStep.StekkerServodrive; DATA.Kenmerken.SpaceStep.StekkerType = UI.Kenmerken.SpaceStep.StekkerType; Values - SpaceStep ;data.kenmerken.spacestep.breedte@value;data.kenmerken.spacestep.hoogte@value;data.kenmerken.spacestep.diepte@value;data.kenmerken.spacestep.kleur@value;data.kenmerken.spacestep.uitvoering@value;data.kenmerken.spacestep.bewegingstechnologie@value;data.kenmerken.spacestep.stekkerservodrive@value;data.kenmerken.spacestep.stekkertype@value; BEHAVIOR.IsInteractive DATA.BulkKenmerken(1).BodemKleur = UI.BulkKenmerken.BodemKleur.Value; DATA.BulkKenmerken(1).CorpusWanddikte = UI.BulkKenmerken.CorpusWanddikte; DATA.BulkKenmerken(1).Draagkracht = UI.BulkKenmerken.Draagkracht; DATA.BulkKenmerken(1).DwarsverdelingAantal = UI.BulkKenmerken.DwarsverdelingAantal; DATA.BulkKenmerken(1).DwarsverdelingType = UI.BulkKenmerken.DwarsverdelingType.Value; DATA.BulkKenmerken(1).FrontBevestiging = UI.BulkKenmerken.FrontBevestiging; DATA.BulkKenmerken(1).GeleiderTechnologie = UI.BulkKenmerken.GeleiderTechnologie; DATA.BulkKenmerken(1).HeeftOpvullijstLinks = UI.BulkKenmerken.HeeftOpvullijstLinks; DATA.BulkKenmerken(1).HeeftOpvullijstRechts = UI.BulkKenmerken.HeeftOpvullijstRechts; DATA.BulkKenmerken(1).HeeftZijstabilisering = UI.BulkKenmerken.HeeftZijstabilisering; DATA.BulkKenmerken(1).IsBinnenbreedte = UI.BulkKenmerken.IsBinnenbreedte; DATA.BulkKenmerken(1).IsBinnenlade = UI.BulkKenmerken.IsBinnenlade; DATA.BulkKenmerken(1).LadeDiepte = UI.BulkKenmerken.LadeDiepte; DATA.BulkKenmerken(1).LadeHoogte = UI.BulkKenmerken.LadeHoogte; DATA.BulkKenmerken(1).LadeKleur = UI.BulkKenmerken.LadeKleur.Value; DATA.BulkKenmerken(1).LadeKleurBuiten = UI.BulkKenmerken.LadeKleurBuiten.Value; DATA.BulkKenmerken(1).Meenemerset = UI.BulkKenmerken.Meenemerset; DATA.BulkKenmerken(1).OpvullijstKleur = UI.BulkKenmerken.OpvullijstKleur.Value; DATA.BulkKenmerken(1).VerpakkingType = UI.BulkKenmerken.VerpakkingType; DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade = UI.BulkKenmerken.VoorwandTypeVanCBinnenlade.Value; DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade = UI.BulkKenmerken.VoorwandTypeVanMBinnenlade.Value; DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade = UI.BulkKenmerken.VoorwandTypeVanKBinnenlade.Value; DATA.BulkKenmerken(1).ZijwandType = UI.BulkKenmerken.ZijwandType.Value; if (UI.BulkKenmerken.CorpusBreedte.Wijzigen == "Wijzigen") then DATA.BulkKenmerken(1).CorpusBreedte = CStr(UI.BulkKenmerken.CorpusBreedte.Breedte); else DATA.BulkKenmerken(1).CorpusBreedte = UI.BulkKenmerken.CorpusBreedte.Wijzigen; end if; DATA.BulkKenmerken(1).HeeftMat = UI.BulkKenmerken.HeeftMat; DATA.BulkKenmerken(1).MatMateriaal = UI.BulkKenmerken.MatMateriaal.Value; DATA.BulkKenmerken(1).MatKleur = switch (UI.BulkKenmerken.MatMateriaal.Value) case "CF": UI.BulkKenmerken.MatVinylFiberglassKleur.value case "AF": UI.BulkKenmerken.MatAntislipFiberKleur.value case "AZ": UI.BulkKenmerken.MatAntislipFlockKleur.value else "" end switch; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen = UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten = UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder = UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront = UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging = UI.BulkKenmerken.NietMeeleveren_FrontBevestiging; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider = UI.BulkKenmerken.NietMeeleveren_Geleider; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor = UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant = UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst = UI.BulkKenmerken.NietMeeleveren_Opvullijst; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet = UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang; DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering = UI.BulkKenmerken.NietMeeleveren_Zijstabilisering; Values - BulkKenmerken ;data.bulkkenmerken[1].bodemkleur@value;data.bulkkenmerken[1].corpuswanddikte@value;data.bulkkenmerken[1].draagkracht@value;data.bulkkenmerken[1].dwarsverdelingaantal@value;data.bulkkenmerken[1].dwarsverdelingtype@value;data.bulkkenmerken[1].frontbevestiging@value;data.bulkkenmerken[1].geleidertechnologie@value;data.bulkkenmerken[1].heeftopvullijstlinks@value;data.bulkkenmerken[1].heeftopvullijstrechts@value;data.bulkkenmerken[1].heeftzijstabilisering@value;data.bulkkenmerken[1].isbinnenbreedte@value;data.bulkkenmerken[1].isbinnenlade@value;data.bulkkenmerken[1].ladediepte@value;data.bulkkenmerken[1].ladehoogte@value;data.bulkkenmerken[1].ladekleur@value;data.bulkkenmerken[1].ladekleurbuiten@value;data.bulkkenmerken[1].meenemerset@value;data.bulkkenmerken[1].opvullijstkleur@value;data.bulkkenmerken[1].verpakkingtype@value;data.bulkkenmerken[1].voorwandtypevancbinnenlade@value;data.bulkkenmerken[1].voorwandtypevanmbinnenlade@value;data.bulkkenmerken[1].voorwandtypevankbinnenlade@value;data.bulkkenmerken[1].zijwandtype@value;data.bulkkenmerken[1].corpusbreedte@value;data.bulkkenmerken[1].heeftmat@value;data.bulkkenmerken[1].matmateriaal@value;data.bulkkenmerken[1].matkleur@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_afdekkapbinnen@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_afdekkapbuiten@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_afdekkaprugwandhouder@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_bevestigingbodemfront@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_frontbevestiging@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_geleider@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_inschuifelementvoor@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_inschuifelementzijkant@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_opvullijst@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.bulkkenmerken[1].nietmeeleveren.nietmeeleveren_zijstabilisering@value; not(CONFIG.InputMode == "Edit") and not((CONFIG.Backend == "axapta") and (CONFIG.ProcessMode == "Background")) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) and not(BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen") DATA.Kenmerken.Toepassing = "L"; DATA.Kenmerken.MeenemerSet = "Z"; DATA.Kenmerken.DwarsverdelingType = "Enkel"; Defaults invullen ;data.kenmerken.toepassing@value;data.kenmerken.meenemerset@value;data.kenmerken.dwarsverdelingtype@value; (BEHAVIOR.IsEconAX or (BEHAVIOR.IsEconWeb and not(BEHAVIOR.IsInteractive))) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) If (((BEHAVIOR.IsInteractive) and (BEHAVIOR.OperationMode == "New")) or (not((BEHAVIOR.IsInteractive)) and (GetArg("data;kenmerken;rugwandmateriaal") == ""))) then //Bij een edit zou bij toepassing L het rugwandmateriaal soms onterecht terug op Hout springen if (UI.Kenmerken.Toepassing == "SP") then DATA.Kenmerken.RugwandMateriaal = "Staal" else if ((DATA.Kenmerken.Toepassing == "L") and (DATA.Kenmerken.RugwandMateriaal == "Staal")) then DATA.Kenmerken.RugwandMateriaal = "Staal"; else DATA.Kenmerken.RugwandMateriaal = "Hout"; end if; end if; end if; local string Dummy = DATA.Kenmerken.SpaceStep.Uitvoering; //RugwandMateriaal wordt leeggehaald bij SST uitvoering <> "Volledig" //->wanneer opnieuw volledig wordt gekozen wordt RugwandMateriaal opnieuw gedefaulteerd Default invullen voor RugwandMateriaal ; BEHAVIOR.IsEconAX and not(BEHAVIOR.IsInteractive) and (GetArg("data;kenmerken;dwarsverdelingaantal") == "") and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) DATA.Kenmerken.Dwarsverdelingaantal = "0"; Default invullen voor Dwarsverdelingaantal ;data.kenmerken.dwarsverdelingaantal@value; BEHAVIOR.IsEconAX and not(BEHAVIOR.IsInteractive) and (GetArg("data;kenmerken;dwarsverdelingtype") == "") and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) and (not(DATA.Kenmerken.Dwarsverdelingaantal == "0") and not(DATA.Kenmerken.Dwarsverdelingaantal == "")) DATA.Kenmerken.DwarsverdelingType = "Enkel"; Default invullen voor DwarsverdelingType ;data.kenmerken.dwarsverdelingtype@value; (UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "K") and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) DATA.Kenmerken.VoorwandTypeVanKBinnenlade = "Metaal"; Default invullen voor VoorwandTypeVanKBinnenlade ;data.kenmerken.voorwandtypevankbinnenlade@value; BEHAVIOR.IsEconAX and BEHAVIOR.IsInteractive and (DATA.Kenmerken.VerpakkingType == "") and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) DATA.Kenmerken.VerpakkingType = "V1"; Default invullen voor VerpakkingTpe ;data.kenmerken.verpakkingtype@value; not(BEHAVIOR.IsInteractive) if ((CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_opvullijst"))) and (not(GetArg("data;kenmerken;opvullijstkleur") == ""))) then if not(DATA.Kenmerken.OpvullijstKleur@option(GetArg("data;kenmerken;opvullijstkleur"))@valid) then DATA.Kenmerken.OpvullijstKleur = DATA.Kenmerken.OpvullijstKleur@option(2)@id; end if; end if; Waarde verbeteren bij verkeerde opvullijstkleur EDI order wanneer deze opvullijst niet moet worden meegeleverd ; (CONFIG.ReferentieConfiguratie <> "") and (CONFIG.InputMode <> "Edit") local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.ReferentieConfiguratie + "'"; CONFIG.Database.Configurations@options = {}; CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); STATE.ReferentieConfiguratieLoaded = true; ReferentieConfiguratie: ConfigId ophalen op basis van ReferentieConfiguratie ;config.database.configurations@options;state.referentieconfiguratieloaded@value; STATE.ReferentieConfiguratieLoaded and (CONFIG.Database.Configurations.Name == CONFIG.ReferentieConfiguratie) STATE.ReferentieConfiguratieLoaded = false; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%'"; local boolean _Result; CONFIG.Database.ConfigAnalyseProperties@options = {}; CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query); for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options) CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id; if (CONFIG.Database.ConfigAnalyseProperties.PropertyName in CONFIG.Defaults.ReferentieConfiguratie@options) then _Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value); end if; end for; ReferentieConfiguratie: Properties ophalen op basis van ConfigId ;state.referentieconfiguratieloaded@value;config.database.configanalyseproperties@options; (CONFIG.ReferentieConfiguratie == "") and (CONFIG.InputMode <> "Edit") and (CONFIG.Settings.KlantId <> "") and (CONFIG.Settings.PersonalityId <> "") local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.KlantVoorkeurenConfigurationName + "'"; CONFIG.Database.Configurations@options = {}; CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); STATE.KlantVoorkeurenLoaded = true; KlantVoorkeuren: ConfigId ophalen op basis van KlantId ;config.database.configurations@options;state.klantvoorkeurenloaded@value; STATE.KlantVoorkeurenLoaded and (CONFIG.Database.Configurations.Name == CONFIG.KlantVoorkeurenConfigurationName) STATE.KlantVoorkeurenLoaded = false; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%' AND value <> ''"; local boolean _Result; CONFIG.Database.ConfigAnalyseProperties@options = {}; CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query); for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options) CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id; if (CONFIG.Database.ConfigAnalyseProperties.PropertyName in CONFIG.Defaults.KlantVoorkeuren@options) then _Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value); end if; end for; KlantVoorkeuren: Properties ophalen op basis van ConfigId ;state.klantvoorkeurenloaded@value;config.database.configanalyseproperties@options; (CONFIG.ReferentieConfiguratie == "") and (CONFIG.InputMode <> "Edit") and (CONFIG.Settings.PersonalityId <> "") and (len(CONFIG.Database.ConfigAnalyseProperties) == 0) CONFIG.PersonalityVoorkeurenConfigurationName = DATA.Kenmerken.Variant + "_" + CONFIG.Settings.PersonalityId; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.PersonalityVoorkeurenConfigurationName + "'"; CONFIG.Database.Configurations@options = {}; CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); STATE.PersonalityVoorkeurenLoaded = true; PersonalityVoorkeuren: ConfigId ophalen op basis van PersonalityId ;config.personalityvoorkeurenconfigurationname@value;config.database.configurations@options;state.personalityvoorkeurenloaded@value; STATE.PersonalityVoorkeurenLoaded and (CONFIG.Database.Configurations.Name == CONFIG.PersonalityVoorkeurenConfigurationName) STATE.PersonalityVoorkeurenLoaded = false; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%' AND value <> ''"; local boolean _Result; CONFIG.Database.ConfigAnalyseProperties@options = {}; CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query); for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options) CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id; if (CONFIG.Database.ConfigAnalyseProperties.PropertyName in CONFIG.Defaults.PersonalityVoorkeuren@options) then _Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value); end if; end for; PersonalityVoorkeuren: Properties ophalen op basis van ConfigId ;state.personalityvoorkeurenloaded@value;config.database.configanalyseproperties@options; (BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen") local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.BulkWijzigingen.ReferentieConfiguratieId + "'"; CONFIG.Database.Configurations@options = {}; CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); STATE.BulkReferentieConfiguratieLoaded = true; ReferentieConfiguratie: ConfigId ophalen op basis van ReferentieConfiguratie (bij bulkconfiguratie Web) ;config.database.configurations@options;state.bulkreferentieconfiguratieloaded@value; STATE.BulkReferentieConfiguratieLoaded and (CONFIG.Database.Configurations.Name == CONFIG.BulkWijzigingen.ReferentieConfiguratieId) and (CONFIG.BulkWijzigingen.BulkConfiguratieId <> "") and (BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen") STATE.BulkReferentieConfiguratieLoaded = false; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%'"; local boolean _Result; CONFIG.Database.ConfigAnalyseProperties@options = {}; CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query); for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options) CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id; _Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value); end for; ReferentieConfiguratie: Properties ophalen op basis van ConfigId (bij bulkconfiguratie Web) ;state.bulkreferentieconfiguratieloaded@value;config.database.configanalyseproperties@options; (BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen") local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.BulkWijzigingen.BulkConfiguratieId + "'"; CONFIG.Database.Configurations@options = {}; CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); STATE.BulkConfiguratieLoaded = true; BulkConfiguratie: ConfigId ophalen op basis van BulkConfiguratieId (Web) ;config.database.configurations@options;state.bulkconfiguratieloaded@value; STATE.BulkConfiguratieLoaded and (CONFIG.Database.Configurations.Name == CONFIG.BulkWijzigingen.BulkConfiguratieId) and (BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen") STATE.BulkConfiguratieLoaded = false; local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; local string _Query = "SELECT propertyname, value FROM eCon.ConfigAnalyseProperties WHERE configid = '" + CONFIG.Database.Configurations.Id + "' AND propertyname LIKE 'Data.%'"; local boolean _Result; CONFIG.Database.ConfigAnalyseProperties@options = {}; CONFIG.Database.ConfigAnalyseProperties@options = ExecuteOptionsQuery("CONFIG.Database.ConfigAnalyseProperties"; true; _Connection; _Query); for i = 1 to len(CONFIG.Database.ConfigAnalyseProperties@options) CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option(i)@id; if (CONFIG.Database.ConfigAnalyseProperties.PropertyName in CONFIG.Defaults.BulkConfiguratie@options) then if (CONFIG.Database.ConfigAnalyseProperties.Value <> "") then _Result = SetValue(CONFIG.Database.ConfigAnalyseProperties.PropertyName; CONFIG.Database.ConfigAnalyseProperties.Value); end if; end if; end for; BulkConfiguratie: Properties ophalen op basis van ConfigId (Web) ;state.bulkconfiguratieloaded@value;config.database.configanalyseproperties@options; not(STATE.BulkReferentieConfiguratieLoaded) and (BEHAVIOR.Contextname == "AxCreateBulkWijzigingenToepassen") local string strConnectionString = GetSetting("data.navision.connectionstring"); local string propertyName = ""; local string propertyValue = ""; for i = 1 to CDbl(CONFIG.Bulkwijzigingen.TotaalAantalGepersisteerdeProperties) propertyName = GetStringValue(strConnectionString; "EConConfigSpecSetup"; "XMLPath"; "Model"; "="; "LBX Configurator"; "DetailLink"; "="; i;); propertyValue = GetStringValue(strConnectionString; "EConConfigurationSpec"; "ValueTxt"; "DetailLink"; "="; i; "ObjectId"; "="; CONFIG.Bulkwijzigingen.ReferentieConfiguratieId;); if not(propertyName in CONFIG.Defaults.BulkConfiguratie@options) then if (propertyValue <> "") then local boolean _Result = SetValue(propertyName; propertyValue); end if; end if; end for; STATE.BulkReferentieConfiguratieLoaded = true; ReferentieConfiguratie ophalen en invullen (AX) ;state.bulkreferentieconfiguratieloaded@value; not(STATE.BulkConfiguratieLoaded) and(BEHAVIOR.Contextname == "AxCreateBulkWijzigingenToepassen") local string strConnectionString = GetSetting("data.navision.connectionstring"); local string propertyName = ""; local string propertyValue = ""; for i = 1 to CDbl(CONFIG.Bulkwijzigingen.TotaalAantalGepersisteerdeProperties) propertyName = GetStringValue(strConnectionString; "EConConfigSpecSetup"; "XMLPath"; "Model"; "="; "LBX Configurator"; "DetailLink"; "="; i;); propertyValue = GetStringValue(strConnectionString; "EConConfigurationSpec"; "ValueTxt"; "DetailLink"; "="; i; "ObjectId"; "="; CONFIG.Bulkwijzigingen.BulkConfiguratieId;); if (propertyName in CONFIG.Defaults.BulkConfiguratie@options) then if (propertyValue <> "") then local boolean _Result = SetValue(propertyName; propertyValue); end if; end if; end for; STATE.BulkConfiguratieLoaded = true; BulkConfiguratie ophalen en invullen (AX) ;state.bulkconfiguratieloaded@value; (BEHAVIOR.Contextname == "AxCreateBulkWijzigingenToepassen") or (BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen") if (DATA.BulkKenmerken(1).BodemKleur <> "NietWijzigen") then DATA.Kenmerken.BodemKleur = DATA.BulkKenmerken(1).BodemKleur; end if; if (DATA.BulkKenmerken(1).CorpusBreedte <> "NietWijzigen") then DATA.Kenmerken.CorpusBreedte = CDbl(DATA.BulkKenmerken(1).CorpusBreedte ); end if; if ((DATA.BulkKenmerken(1).CorpusWanddikte <> 0) and (DATA.BulkKenmerken(1).IsBinnenbreedte == "False")) then DATA.Kenmerken.CorpusWanddikte = DATA.BulkKenmerken(1).CorpusWanddikte; end if; if (DATA.BulkKenmerken(1).Draagkracht <> "NietWijzigen") then DATA.Kenmerken.Draagkracht = DATA.BulkKenmerken(1).Draagkracht; end if; if (DATA.BulkKenmerken(1).DwarsverdelingAantal <> "NietWijzigen") then DATA.Kenmerken.DwarsverdelingAantal = DATA.BulkKenmerken(1).DwarsverdelingAantal; end if; if (DATA.BulkKenmerken(1).DwarsverdelingType <> "NietWijzigen") then DATA.Kenmerken.DwarsverdelingType = DATA.BulkKenmerken(1).DwarsverdelingType ; end if; if (DATA.BulkKenmerken(1).FrontBevestiging <> "NietWijzigen") then DATA.Kenmerken.FrontBevestiging = DATA.BulkKenmerken(1).FrontBevestiging; end if; if (DATA.BulkKenmerken(1).GeleiderTechnologie <> "NietWijzigen") then DATA.Kenmerken.GeleiderTechnologie = DATA.BulkKenmerken(1).GeleiderTechnologie; end if; if (DATA.BulkKenmerken(1).HeeftMat == "True") then DATA.Kenmerken.MatMateriaal = DATA.BulkKenmerken(1).MatMateriaal; end if; if (DATA.BulkKenmerken(1).HeeftMat == "False") then DATA.Kenmerken.MatMateriaal = ""; end if; if (DATA.BulkKenmerken(1).HeeftMat == "True") then DATA.Kenmerken.MatKleur = DATA.BulkKenmerken(1).MatKleur; end if; if (DATA.BulkKenmerken(1).HeeftMat == "False") then DATA.Kenmerken.MatKleur = ""; end if; if (DATA.BulkKenmerken(1).HeeftOpvullijstLinks <> "NietWijzigen") then DATA.Kenmerken.HeeftOpvullijstLinks = CBool(DATA.BulkKenmerken(1).HeeftOpvullijstLinks); end if; if (DATA.BulkKenmerken(1).HeeftOpvullijstRechts <> "NietWijzigen") then DATA.Kenmerken.HeeftOpvullijstRechts = CBool(DATA.BulkKenmerken(1).HeeftOpvullijstRechts); end if; if (DATA.BulkKenmerken(1).HeeftZijstabilisering <> "NietWijzigen") then DATA.Kenmerken.HeeftZijstabilisering = CBool(DATA.BulkKenmerken(1).HeeftZijstabilisering); end if; if (DATA.BulkKenmerken(1).IsBinnenBreedte <> "NietWijzigen") then DATA.Kenmerken.IsBinnenBreedte = CBool(DATA.BulkKenmerken(1).IsBinnenBreedte); end if; if (DATA.BulkKenmerken(1).IsBinnenlade <> "NietWijzigen") then DATA.Kenmerken.IsBinnenlade = CBool(DATA.BulkKenmerken(1).IsBinnenlade); end if; if (DATA.BulkKenmerken(1).Meenemerset <> "NietWijzigen") then DATA.Kenmerken.Meenemerset = DATA.BulkKenmerken(1).Meenemerset; end if; if (DATA.BulkKenmerken(1).LadeDiepte <> "NietWijzigen") then DATA.Kenmerken.LadeDiepte = DATA.BulkKenmerken(1).LadeDiepte; end if; if (DATA.BulkKenmerken(1).LadeKleur <> "NietWijzigen") then DATA.Kenmerken.LadeKleur = DATA.BulkKenmerken(1).LadeKleur; end if; if (DATA.BulkKenmerken(1).LadeKleurBuiten <> "NietWijzigen") then DATA.Kenmerken.LadeKleurBuiten = DATA.BulkKenmerken(1).LadeKleurBuiten; end if; if (DATA.BulkKenmerken(1).LadeHoogte <> "NietWijzigen") then DATA.Kenmerken.LadeHoogte = DATA.BulkKenmerken(1).LadeHoogte; DATA.Kenmerken.RugHoogte = DATA.BulkKenmerken(1).LadeHoogte; DATA.Kenmerken.HeeftAfwijkendeRugHoogte = false; end if; if (DATA.BulkKenmerken(1).OpvullijstKleur <> "NietWijzigen") then DATA.Kenmerken.OpvullijstKleur = DATA.BulkKenmerken(1).OpvullijstKleur; end if; if (DATA.BulkKenmerken(1).VerpakkingType <> "NietWijzigen") then DATA.Kenmerken.VerpakkingType = DATA.BulkKenmerken(1).VerpakkingType; end if; if (DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade <> "") then DATA.Kenmerken.VoorwandTypeVanCBinnenlade = DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade; end if; if (DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade <> "") then DATA.Kenmerken.VoorwandTypeVanKBinnenlade = DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade; end if; if (DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade <> "") then DATA.Kenmerken.VoorwandTypeVanMBinnenlade = DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade; end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBinnen = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBuiten = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_BevestigingBodemFront = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementVoor = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementZijkant = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang); end if; if (DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering <> "NietWijzigen") then Data.Kenmerken.NietMeeleveren.NietMeeleveren_Zijstabilisering = CBool(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering); end if; if (DATA.BulkKenmerken(1).ZijwandType <> "NietWijzigen") then DATA.Kenmerken.ZijwandType= DATA.BulkKenmerken(1).ZijwandType; end if; Bulkkenmerken invullen in DATA kenmerken ;data.kenmerken.bodemkleur@value;data.kenmerken.corpusbreedte@value;data.kenmerken.corpuswanddikte@value;data.kenmerken.draagkracht@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.dwarsverdelingtype@value;data.kenmerken.frontbevestiging@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.meenemerset@value;data.kenmerken.ladediepte@value;data.kenmerken.ladekleur@value;data.kenmerken.ladekleurbuiten@value;data.kenmerken.ladehoogte@value;data.kenmerken.rughoogte@value;data.kenmerken.heeftafwijkenderughoogte@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.verpakkingtype@value;data.kenmerken.voorwandtypevancbinnenlade@value;data.kenmerken.voorwandtypevankbinnenlade@value;data.kenmerken.voorwandtypevanmbinnenlade@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkapbinnen@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkapbuiten@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkaprugwandhouder@value;data.kenmerken.nietmeeleveren.nietmeeleveren_bevestigingbodemfront@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestiging@value;data.kenmerken.nietmeeleveren.nietmeeleveren_geleider@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelementvoor@value;data.kenmerken.nietmeeleveren.nietmeeleveren_inschuifelementzijkant@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.kenmerken.nietmeeleveren.nietmeeleveren_zijstabilisering@value;data.kenmerken.zijwandtype@value; true UI.Kenmerken.OpvullijstDikte = 25; Bereken OpvullijstDikte ;ui.kenmerken.opvullijstdikte@value; true local double _CorpusWanddikte = DATA.Kenmerken.CorpusWanddikte; local double _OpvullijstDikte = DATA.BerekendeWaarden.OpvullijstDikte; local boolean _IsBinnenbreedte = DATA.Kenmerken.IsBinnenbreedte; local boolean _HeeftOpvullijstLinks = DATA.Kenmerken.HeeftOpvullijstLinks; local boolean _HeeftOpvullijstRechts = DATA.Kenmerken.HeeftOpvullijstRechts; local long _MinTolerantieIB = 0; local long _AantalOpvullijsten = 0; if (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then _CorpusWanddikte = DATA.BulkKenmerken(1).CorpusWanddikte; _IsBinnenbreedte = (DATA.BulkKenmerken(1).IsBinnenbreedte == "True"); _HeeftOpvullijstLinks = (DATA.BulkKenmerken(1).HeeftOpvullijstLinks == "True"); _HeeftOpvullijstRechts = (DATA.BulkKenmerken(1).HeeftOpvullijstRechts == "True"); end if; if (_HeeftOpvullijstLinks) then _AantalOpvullijsten = _AantalOpvullijsten + 1; end if; if (_HeeftOpvullijstRechts) then _AantalOpvullijsten = _AantalOpvullijsten + 1; end if; if (_IsBinnenbreedte) then _CorpusWanddikte = 0; end if; DATA.BerekendeWaarden.CorpusBreedteDelta = (2 * _CorpusWanddikte) + (_AantalOpvullijsten * _OpvullijstDikte) + _MinTolerantieIB; Bereken CorpusBreedteDelta ;data.berekendewaarden.corpusbreedtedelta@value; true local double _InterneBreedte = 0; if (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then if UI.BulkKenmerken.CorpusBreedte.Breedte > 0 then _InterneBreedte = CDbl(DATA.BulkKenmerken(1).CorpusBreedte) - DATA.BerekendeWaarden.CorpusBreedteDelta; end if; else if DATA.Kenmerken.CorpusBreedte > 0 then _InterneBreedte = DATA.Kenmerken.CorpusBreedte - DATA.BerekendeWaarden.CorpusBreedteDelta; end if; end if; DATA.BerekendeWaarden.InterneBreedte = _InterneBreedte; Bereken InterneBreedte ;data.berekendewaarden.internebreedte@value; (DATA.Kenmerken.LadeHoogte <> "") local string _LadeCode = DATA.Kenmerken.LadeHoogte; if (DATA.Kenmerken.IsBinnenlade) then _LadeCode = _LadeCode + "/Z"; end if; DATA.BerekendeWaarden.LadeCode = _LadeCode; Bereken LadeCode (inactive, zie berekende waarden winkelkarinfo) ;data.berekendewaarden.ladecode@value; (DATA.Kenmerken.IsBinnenlade) and ((DATA.Kenmerken.LadeHoogte == "M") or (DATA.Kenmerken.LadeHoogte == "C") or (DATA.Kenmerken.LadeHoogte == "K")) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local string _VoorwandType = ""; if (DATA.Kenmerken.LadeHoogte == "M") then if (DATA.Kenmerken.VoorwandTypeVanMBinnenlade == "Glas") then _VoorwandType = "Vulling"; end if; if (DATA.Kenmerken.VoorwandTypeVanMBinnenlade == "Metaal") then _VoorwandType = "Voorstuk"; end if; end if; if (DATA.Kenmerken.LadeHoogte == "C") then if ((DATA.Kenmerken.VoorwandTypeVanCBinnenlade == "GlasHoog") or (DATA.Kenmerken.VoorwandTypeVanCBinnenlade == "GlasLaag")) then _VoorwandType = "Vulling"; end if; if (DATA.Kenmerken.VoorwandTypeVanCBinnenlade == "Reling") then _VoorwandType = "Reling"; end if; end if; if (DATA.Kenmerken.LadeHoogte == "K") then if (DATA.Kenmerken.VoorwandTypeVanKBinnenlade == "Metaal") then _VoorwandType = "Voorstuk"; end if; end if; DATA.BerekendeWaarden.VoorwandType = _VoorwandType; Bereken VoorwandType ;data.berekendewaarden.voorwandtype@value; (DATA.Kenmerken.IsBinnenlade) and (DATA.Kenmerken.LadeHoogte == "C") DATA.BerekendeWaarden.VoorwandVerhogingHoogte = switch DATA.Kenmerken.VoorwandTypeVanCBinnenlade case "GlasLaag": "Laag" case "GlasHoog": "Hoog" else "" end switch; Bereken VoorwandVerhogingHoogte ;data.berekendewaarden.voorwandverhoginghoogte@value; (BEHAVIOR.IsInteractive or (DATA.Kenmerken.RugHoogte == "")) local boolean _IsExtern = (CONFIG.Settings.OperationMode == "Extern"); if (DATA.Kenmerken.Toepassing == "SY") then DATA.Kenmerken.RugHoogte = "M"; else if (not(DATA.Kenmerken.HeeftAfwijkendeRugHoogte) and (DATA.Kenmerken.LadeHoogte <> "")) then DATA.Kenmerken.RugHoogte = DATA.Kenmerken.LadeHoogte; end if; end if; if DATA.Kenmerken.HeeftAfwijkendeRugHoogte and _IsExtern then DATA.Kenmerken.RugHoogte = "M"; end if; Bereken Rughoogte ;data.kenmerken.rughoogte@value; DATA.Kenmerken.LadeHoogte <> "" and DATA.Kenmerken.Rughoogte <> "" if (DATA.Kenmerken.LadeHoogte == DATA.Kenmerken.Rughoogte) or (DATA.Kenmerken.Toepassing == "SY") then DATA.Kenmerken.HeeftAfwijkendeRughoogte = false; else DATA.Kenmerken.HeeftAfwijkendeRughoogte = true; end if; Bereken HeeftAfwijkendeRughoogte ;data.kenmerken.heeftafwijkenderughoogte@value; (DATA.Kenmerken.LadeHoogte <> "") local string _AfbeeldingCode = "" if (DATA.Kenmerken.Toepassing <> "SST") then if (DATA.Kenmerken.ProductieWijze <> "V") then local string _ProductieWijze = DATA.Kenmerken.ProductieWijze; _AfbeeldingCode = _AfbeeldingCode + "SpecialeProductieWijze"; if (_ProductieWijze == "B") then _AfbeeldingCode = _AfbeeldingCode + "_Bodem" ; end if; if (_ProductieWijze == "BR") then _AfbeeldingCode = _AfbeeldingCode + "_BodemEnRug_" + DATA.Kenmerken.RugHoogte; end if; if (_ProductieWijze == "R") then _AfbeeldingCode = _AfbeeldingCode + "_Rug_" + DATA.Kenmerken.RugHoogte; end if; if (_ProductieWijze == "RRWH") then _AfbeeldingCode = _AfbeeldingCode + "_RugMetHouders_" + DATA.Kenmerken.RugHoogte; end if; if (_ProductieWijze == "F") then local string _LadeHoogte = DATA.Kenmerken.LadeHoogte; local string _VoorwandTypeVanBinnenlade = ""; if (_LadeHoogte == "C") then _VoorwandTypeVanBinnenlade = DATA.Kenmerken.VoorwandTypeVanCBinnenlade; end if; if (_LadeHoogte == "M") then _VoorwandTypeVanBinnenlade = DATA.Kenmerken.VoorwandTypeVanMBinnenlade; end if; if (_LadeHoogte == "K") then _VoorwandTypeVanBinnenlade = DATA.Kenmerken.VoorwandTypeVanKBinnenlade; end if; _AfbeeldingCode = _AfbeeldingCode + "_Front_" + _LadeHoogte + "_" + _VoorwandTypeVanBinnenlade; end if; else _AfbeeldingCode = DATA.Kenmerken.LadeHoogte; if (DATA.Kenmerken.IsBinnenlade) then _AfbeeldingCode = _AfbeeldingCode + "_Z"; end if; if (DATA.Kenmerken.Toepassing == "SP") then _AfbeeldingCode = _AfbeeldingCode + "_" + "Spoelbak"; end if; if (DATA.Kenmerken.Toepassing == "SY") then _AfbeeldingCode = _AfbeeldingCode + "_" + "Sifon"; if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then _AfbeeldingCode = _AfbeeldingCode + "_x2"; end if; end if; if (DATA.Kenmerken.IsBinnenlade) then if (DATA.BerekendeWaarden.VoorwandType <> "") then _AfbeeldingCode = _AfbeeldingCode + "_" + DATA.BerekendeWaarden.VoorwandType; end if; if (DATA.BerekendeWaarden.VoorwandVerhogingHoogte <> "") then _AfbeeldingCode = _AfbeeldingCode + "_" + DATA.BerekendeWaarden.VoorwandVerhogingHoogte; end if; end if; if (DATA.Kenmerken.ZijwandType == "Free") then _AfbeeldingCode = _AfbeeldingCode + "_" + DATA.Kenmerken.ZijwandType; end if; end if; _AfbeeldingCode = _AfbeeldingCode + "_Legra"; else if (DATA.Kenmerken.SpaceStep.Uitvoering == "Volledig") then _AfbeeldingCode = "SST_Volledig" end if; if (DATA.Kenmerken.SpaceStep.Uitvoering == "SokkelEnTablet") then _AfbeeldingCode = "SST_SokkelEnTablet" end if; if (DATA.Kenmerken.SpaceStep.Uitvoering == "Tablet") then _AfbeeldingCode = "SST_Tablet" end if; end if; DATA.BerekendeWaarden.AfbeeldingCode = _AfbeeldingCode; Bereken AfbeeldingCode ;data.berekendewaarden.afbeeldingcode@value; true RANGE.CorpusBreedte.Minimum = RANGE.InterneBreedte.Minimum + DATA.BerekendeWaarden.CorpusBreedteDelta; CorpusBreedte minimum ;range.corpusbreedte.minimum@value; true RANGE.CorpusBreedte.Maximum = RANGE.InterneBreedte.Maximum + DATA.BerekendeWaarden.CorpusBreedteDelta; CorpusBreedte maximum ;range.corpusbreedte.maximum@value; true local double MINIMUM_BREEDTE_SMALLELADE = 148; local double MINIMUM_BREEDTE_SMALLELADE_TOB = 171; local double MINIMUM_BREEDTE_SMALLEBINNENLADE = 187; local double MINIMUM_BREEDTE_GEWONE_LADE = 237; // Kleiner dan deze afmeting is "Smalle lade" local double MINIMUM_BREEDTE_SPOELBAKLADE = 350; local double MINIMUM_BREEDTE_SIFONLADE_ENKEL = 300; local double MINIMUM_BREEDTE_SIFONLADE_DUBBEL = 397; local double MINIMUM_BREEDTE_UITSPARING = 150; local double MINIMUM_BREEDTE_ZIJSTABILISERING = 362; local double MINIMUM_BREEDTE_DUBBELEDWARSVVERDELING = 210; // Gedeelte voor (extra) Smalle Lade local double _MinimumBreedte = MINIMUM_BREEDTE_SMALLELADE; if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then _MinimumBreedte = Max(_MinimumBreedte; MINIMUM_BREEDTE_SMALLELADE_TOB); end if; if (DATA.Kenmerken.IsBinnenlade) then _MinimumBreedte= Max(_MinimumBreedte; MINIMUM_BREEDTE_SMALLEBINNENLADE); end if; // Gedeelte voor gewone lades if (DATA.Kenmerken.Toepassing == "SP") then _MinimumBreedte = Max(_MinimumBreedte; MINIMUM_BREEDTE_SPOELBAKLADE); end if; if (DATA.Kenmerken.Toepassing == "SY") then local double _MinimumBreedteZ1 = Max(DATA.Kenmerken.UitsparingData.Z1.Breedte; MINIMUM_BREEDTE_UITSPARING); local double _MinimumBreedteSifon = 0; if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then _MinimumBreedteSifon = MINIMUM_BREEDTE_SIFONLADE_ENKEL + _MinimumBreedteZ1; end if; if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then local double _MinimumBreedteZ2 = Max(DATA.Kenmerken.UitsparingData.Z2.Breedte; MINIMUM_BREEDTE_UITSPARING); _MinimumBreedteSifon = MINIMUM_BREEDTE_SIFONLADE_DUBBEL + _MinimumBreedteZ1 + _MinimumBreedteZ2; end if; _MinimumBreedte = Max(_MinimumBreedte; _MinimumBreedteSifon); end if; if (DATA.Kenmerken.HeeftZijstabilisering) then _MinimumBreedte = Max(_MinimumBreedte; MINIMUM_BREEDTE_ZIJSTABILISERING); end if; if (not(DATA.Kenmerken.DwarsverdelingAantal == "0") and DATA.Kenmerken.DwarsverdelingType == "Dubbel") then _MinimumBreedte = Max(_MinimumBreedte; MINIMUM_BREEDTE_DUBBELEDWARSVVERDELING); end if; RANGE.InterneBreedte.Minimum = _MinimumBreedte; // todo: controleren op extra beperkingen (niet in extremabepaler) bv. geleidertechnologie InterneBreedte minimum ;range.internebreedte.minimum@value; true local double MAXIMUM_BREEDTE = 1430; local double MAX_BREEDTE_EXTERN = 1350; local double MAX_BREEDTE_INTERN_V1 = 1350; local double MAXIMUM_BREEDTE_BINNENLADE = 1168; local double MAXIMUM_BREEDTE_RUGWANDMATERIAAL_STAAL = 1168; local double MAXIMUM_BREEDTE_VERPAKKINGTYPE_VHOSS = 1168; local double MAXIMUM_BREEDTE_DWARSVERDELING = 1168; local double MAXIMUM_BREEDTE_GELEIDERTECHNOLOGIE_TIPONBLUMOTION = 1368; local double MAX_1168_mm = 1168; local double _MaximumBreedte = MAXIMUM_BREEDTE; if (DATA.Kenmerken.IsBinnenlade) then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_BINNENLADE); end if; if ((DATA.Kenmerken.RugwandMateriaal == "Staal") and (DATA.Kenmerken.Toepassing <> "SP")) then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_RUGWANDMATERIAAL_STAAL); end if; if (DATA.Kenmerken.VerpakkingType == "VHoss") then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_VERPAKKINGTYPE_VHOSS); end if; if (DATA.Kenmerken.DwarsverdelingAantal <> "0") then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_DWARSVERDELING); end if; if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then _MaximumBreedte = Min(_MaximumBreedte; MAXIMUM_BREEDTE_GELEIDERTECHNOLOGIE_TIPONBLUMOTION); end if; if ((BEHAVIOR.IsMaximaleBreedteBeperktTot1168Mm) and (BEHAVIOR.IsEconWeb)) then _MaximumBreedte = Min(_MaximumBreedte; MAX_1168_mm); end if; if (BEHAVIOR.IsEconWeb) then _MaximumBreedte = Min(_MaximumBreedte; MAX_BREEDTE_EXTERN); end if; if ((BEHAVIOR.IsEconAx) and (DATA.Kenmerken.VerpakkingType in {"V1"})) then _MaximumBreedte = Min(_MaximumBreedte; MAX_BREEDTE_INTERN_V1); end if; RANGE.InterneBreedte.Maximum = _MaximumBreedte; // todo: controleren op extra beperkingen (niet in extremabepaler) bv. zijstabilisering, tipon, flatpack InterneBreedte maximum ;range.internebreedte.maximum@value; true local long _Minimum = 1; if (DATA.Kenmerken.VerpakkingType == "Pallet") then _Minimum = 8; end if; RANGE.Aantal.MINIMUM = _Minimum; Aantal minimum ;range.aantal.minimum@value; UI.Kenmerken.SneltoetsenNietMeeleveren <> "" local boolean _AlleNietMeeleverensSelecteren; if (UI.Kenmerken.SneltoetsenNietMeeleveren == "AllesSelecteren") then _AlleNietMeeleverensSelecteren = true; end if; if (UI.Kenmerken.SneltoetsenNietMeeleveren == "AllesDeselecteren") then _AlleNietMeeleverensSelecteren = false; end if; index i of UI.Kenmerken.NietMeeleveren local string _NietMeeleverenProperty = "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.Kenmerken.NietMeeleveren(i).Id; local boolean _Result = SetValue(_NietMeeleverenProperty; CStr(_AlleNietMeeleverensSelecteren)); end index; UI.Kenmerken.SneltoetsenNietMeeleveren = ""; Logica sneltoetsen niet meeleveren ;ui.kenmerken.sneltoetsennietmeeleveren@value; true DATA.Kenmerken.Draagkracht@valids = ConstrainedOptions("DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids"; "DATA.Kenmerken.Draagkracht"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte); Applying constraints for property DATA.Kenmerken.Draagkracht ;data.kenmerken.draagkracht@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids") Gather constraint messages for decision table DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids") Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids") Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids") Gather constraint messages for decision table DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids ; true DATA.Kenmerken.GeleiderTechnologie@valids = ConstrainedOptions("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.GeleiderTechnologie"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.MeenemerSet"; DATA.Kenmerken.MeenemerSet; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.GeleiderTechnologie ;data.kenmerken.geleidertechnologie@valids; true DATA.Kenmerken.HeeftZijstabilisering@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.HeeftZijstabilisering"; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.HeeftZijstabilisering ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.RugHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.VerpakkingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.RugHoogte,DATA.Kenmerken.VerpakkingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.RugHoogte,DATA.Kenmerken.VerpakkingType@Valids ; true DATA.Kenmerken.MeenemerSet@valids = ConstrainedOptions("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.MeenemerSet@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids"; "DATA.Kenmerken.MeenemerSet"; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.VoorwandTypeVanMBinnenlade"; DATA.Kenmerken.VoorwandTypeVanMBinnenlade); Applying constraints for property DATA.Kenmerken.MeenemerSet ;data.kenmerken.meenemerset@valids; true DATA.Kenmerken.VoorwandTypeVanMBinnenlade@valids = ConstrainedOptions("CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids"; "DATA.Kenmerken.VoorwandTypeVanMBinnenlade"; "CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten"; CurrentBoolean(CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten); "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.MeenemerSet"; DATA.Kenmerken.MeenemerSet); Applying constraints for property DATA.Kenmerken.VoorwandTypeVanMBinnenlade ;data.kenmerken.voorwandtypevanmbinnenlade@valids; true CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten@style.invalidbooleans = ConstrainedBooleanInvalids("CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids"; "CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten"; "DATA.Kenmerken.VoorwandTypeVanMBinnenlade"; DATA.Kenmerken.VoorwandTypeVanMBinnenlade); Applying constraints for property CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids") Gather constraint messages for decision table DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids ; ConstraintsNotSatisfiedFor("CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids") ConstraintsErrorMessagesFor("CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids") Gather constraint messages for decision table CONFIG.Settings.VoorwandTypeVanMBinnenladeGlasToegelaten,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids ; true DATA.Kenmerken.MatKleur@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids"; "DATA.Kenmerken.MatKleur"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.MatMateriaal"; DATA.Kenmerken.MatMateriaal); Applying constraints for property DATA.Kenmerken.MatKleur ;data.kenmerken.matkleur@valids; true DATA.Kenmerken.MatMateriaal@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids"; "DATA.Kenmerken.MatMateriaal"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.MatKleur"; DATA.Kenmerken.MatKleur); Applying constraints for property DATA.Kenmerken.MatMateriaal ;data.kenmerken.matmateriaal@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids ; true DATA.Kenmerken.ProductieWijze@valids = ConstrainedOptions("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids"; "DATA.Kenmerken.ProductieWijze"; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType); Applying constraints for property DATA.Kenmerken.ProductieWijze ;data.kenmerken.productiewijze@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids") Gather constraint messages for decision table DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids ; true CONFIG.Settings.OperationMode@valids = ConstrainedOptions("CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids"; "CONFIG.Settings.OperationMode"; "DATA.Kenmerken.HeeftAfwijkendeRugHoogte"; CurrentBoolean(DATA.Kenmerken.HeeftAfwijkendeRugHoogte); "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property CONFIG.Settings.OperationMode ;config.settings.operationmode@valids; true DATA.Kenmerken.HeeftAfwijkendeRugHoogte@style.invalidbooleans = ConstrainedBooleanInvalids("CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.HeeftAfwijkendeRugHoogte"; "CONFIG.Settings.OperationMode"; CONFIG.Settings.OperationMode; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.HeeftAfwijkendeRugHoogte ; true DATA.Kenmerken.RugHoogte@valids = ConstrainedOptions("CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.VerpakkingType@Valids"; "DATA.Kenmerken.RugHoogte"; "CONFIG.Settings.OperationMode"; CONFIG.Settings.OperationMode; "DATA.Kenmerken.HeeftAfwijkendeRugHoogte"; CurrentBoolean(DATA.Kenmerken.HeeftAfwijkendeRugHoogte); "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.RugwandMateriaal"; DATA.Kenmerken.RugwandMateriaal; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType); Applying constraints for property DATA.Kenmerken.RugHoogte ;data.kenmerken.rughoogte@valids; ConstraintsNotSatisfiedFor("CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids") ConstraintsErrorMessagesFor("CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids") Gather constraint messages for decision table CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids ; true DATA.Kenmerken.VerpakkingType@valids = ConstrainedOptions("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.VerpakkingType"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType); Applying constraints for property DATA.Kenmerken.VerpakkingType ;data.kenmerken.verpakkingtype@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids") Gather constraint messages for decision table DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids ; true DATA.Kenmerken.Toepassing@valids = ConstrainedOptions("CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.Toepassing,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.Toepassing,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.Toepassing"; "CONFIG.Settings.OperationMode"; CONFIG.Settings.OperationMode; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.HeeftAfwijkendeRugHoogte"; CurrentBoolean(DATA.Kenmerken.HeeftAfwijkendeRugHoogte); "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering); "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "DATA.Kenmerken.RugwandMateriaal"; DATA.Kenmerken.RugwandMateriaal; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType); Applying constraints for property DATA.Kenmerken.Toepassing ;data.kenmerken.toepassing@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.Toepassing,DATA.Kenmerken.ZijwandType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.Toepassing,DATA.Kenmerken.ZijwandType@Valids") Gather constraint messages for decision table DATA.Kenmerken.Toepassing,DATA.Kenmerken.ZijwandType@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeHoogte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeHoogte@Valids") Gather constraint messages for decision table DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeHoogte@Valids ; true CONFIG.Settings.IsBenelux@style.invalidbooleans = ConstrainedBooleanInvalids("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids"; "CONFIG.Settings.IsBenelux"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur); Applying constraints for property CONFIG.Settings.IsBenelux ; ConstraintsNotSatisfiedFor("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids") ConstraintsErrorMessagesFor("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids") Gather constraint messages for decision table CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids ; true DATA.Kenmerken.ZijwandType@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.Toepassing,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.VerpakkingType,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.ZijwandType"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType); Applying constraints for property DATA.Kenmerken.ZijwandType ;data.kenmerken.zijwandtype@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids ; true DATA.Kenmerken.DwarsverdelingType@valids = ConstrainedOptions("DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeKleur@Valids"; "DATA.Kenmerken.DwarsverdelingType"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur); Applying constraints for property DATA.Kenmerken.DwarsverdelingType ;data.kenmerken.dwarsverdelingtype@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeKleur@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeKleur@Valids") Gather constraint messages for decision table DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeKleur@Valids ; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids ; true DATA.Kenmerken.LadeKleur@valids = ConstrainedOptions("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.LadeKleur"; "CONFIG.Settings.IsBenelux"; CurrentBoolean(CONFIG.Settings.IsBenelux); "DATA.Kenmerken.DwarsverdelingType"; DATA.Kenmerken.DwarsverdelingType; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType); Applying constraints for property DATA.Kenmerken.LadeKleur ;data.kenmerken.ladekleur@valids; ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids") ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids") Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids ; true DATA.Kenmerken.LadeDiepte@valids = ConstrainedOptions("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.Draagkracht,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.LadeDiepte"; "CONFIG.Settings.IsBenelux"; CurrentBoolean(CONFIG.Settings.IsBenelux); "DATA.Kenmerken.Draagkracht"; DATA.Kenmerken.Draagkracht; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.MatKleur"; DATA.Kenmerken.MatKleur; "DATA.Kenmerken.MatMateriaal"; DATA.Kenmerken.MatMateriaal; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType); Applying constraints for property DATA.Kenmerken.LadeDiepte ;data.kenmerken.ladediepte@valids; true DATA.Kenmerken.LadeHoogte@valids = ConstrainedOptions("CONFIG.Settings.IsBenelux,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;CONFIG.Settings.OperationMode,DATA.Kenmerken.HeeftAfwijkendeRugHoogte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugHoogte,DATA.Kenmerken.Toepassing@Valids;CONFIG.Settings.OperationMode,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.DwarsverdelingType,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.LadeKleur@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.VerpakkingType@Valids;DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.ZijwandType@Valids"; "DATA.Kenmerken.LadeHoogte"; "CONFIG.Settings.IsBenelux"; CurrentBoolean(CONFIG.Settings.IsBenelux); "CONFIG.Settings.OperationMode"; CONFIG.Settings.OperationMode; "DATA.Kenmerken.DwarsverdelingType"; DATA.Kenmerken.DwarsverdelingType; "DATA.Kenmerken.HeeftAfwijkendeRugHoogte"; CurrentBoolean(DATA.Kenmerken.HeeftAfwijkendeRugHoogte); "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "DATA.Kenmerken.RugwandMateriaal"; DATA.Kenmerken.RugwandMateriaal; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType; "DATA.Kenmerken.ZijwandType"; DATA.Kenmerken.ZijwandType); Applying constraints for property DATA.Kenmerken.LadeHoogte ;data.kenmerken.ladehoogte@valids; true DATA.Kenmerken.RugwandMateriaal@valids = ConstrainedOptions("DATA.Kenmerken.LadeHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.RugHoogte,DATA.Kenmerken.RugwandMateriaal,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.RugwandMateriaal"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.RugHoogte"; DATA.Kenmerken.RugHoogte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.RugwandMateriaal ;data.kenmerken.rugwandmateriaal@valids; true DATA.Kenmerken.IsBinnenlade@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.MeenemerSet,DATA.Kenmerken.VoorwandTypeVanMBinnenlade@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.IsBinnenlade"; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.MeenemerSet"; DATA.Kenmerken.MeenemerSet; "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing; "DATA.Kenmerken.VoorwandTypeVanMBinnenlade"; DATA.Kenmerken.VoorwandTypeVanMBinnenlade); Applying constraints for property DATA.Kenmerken.IsBinnenlade ; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) for i = 1 to len(DATA.Kenmerken.BodemKleur@options) UI.Kenmerken.BodemKleur@option(i)@valid = DATA.Kenmerken.BodemKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.Draagkracht@options) UI.Kenmerken.Draagkracht@option(i)@valid = DATA.Kenmerken.Draagkracht@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.DwarsverdelingAantal@options) UI.Kenmerken.DwarsverdelingAantal@option(i)@valid = DATA.Kenmerken.DwarsverdelingAantal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.DwarsverdelingType@options) UI.Kenmerken.DwarsverdelingType@option(i)@valid = DATA.Kenmerken.DwarsverdelingType@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.FrontBevestiging@options) UI.Kenmerken.FrontBevestiging@option(i)@valid = DATA.Kenmerken.FrontBevestiging@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.GeleiderTechnologie@options) UI.Kenmerken.GeleiderTechnologie@option(i)@valid = DATA.Kenmerken.GeleiderTechnologie@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeDiepte@options) UI.Kenmerken.LadeDiepte@option(i)@valid = DATA.Kenmerken.LadeDiepte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeHoogte@options) UI.Kenmerken.LadeHoogte@option(i)@valid = DATA.Kenmerken.LadeHoogte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeKleur@options) UI.Kenmerken.LadeKleur@option(i)@valid = DATA.Kenmerken.LadeKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.LadeKleurBuiten@options) UI.Kenmerken.LadeKleurBuiten@option(i)@valid = DATA.Kenmerken.LadeKleurBuiten@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.MeenemerSet@options) UI.Kenmerken.MeenemerSet@option(i)@valid = DATA.Kenmerken.MeenemerSet@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.OpvullijstKleur@options) UI.Kenmerken.OpvullijstKleur@option(i)@valid = DATA.Kenmerken.OpvullijstKleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ProductieWijze@options) UI.Kenmerken.ProductieWijze@option(i)@valid = DATA.Kenmerken.ProductieWijze@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.RugHoogte@options) UI.Kenmerken.RugHoogte@option(i)@valid = DATA.Kenmerken.RugHoogte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.RugwandMateriaal@options) UI.Kenmerken.RugwandMateriaal@option(i)@valid = DATA.Kenmerken.RugwandMateriaal@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.Toepassing@options) UI.Kenmerken.Toepassing@option(i)@valid = DATA.Kenmerken.Toepassing@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.VerpakkingType@options) UI.Kenmerken.VerpakkingType@option(i)@valid = DATA.Kenmerken.VerpakkingType@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.VoorwandTypeVanCBinnenlade@options) UI.Kenmerken.VoorwandTypeVanCBinnenlade@option(i)@valid = DATA.Kenmerken.VoorwandTypeVanCBinnenlade@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.VoorwandTypeVanMBinnenlade@options) UI.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@valid = DATA.Kenmerken.VoorwandTypeVanMBinnenlade@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.VoorwandTypeVanKBinnenlade@options) UI.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@valid = DATA.Kenmerken.VoorwandTypeVanKBinnenlade@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.ZijwandType@options) UI.Kenmerken.ZijwandType@option(i)@valid = DATA.Kenmerken.ZijwandType@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.SpaceStep.Diepte@options) UI.Kenmerken.SpaceStep.Sokkeldiepte@option(i)@valid = DATA.Kenmerken.SpaceStep.Diepte@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.SpaceStep.Kleur@options) UI.Kenmerken.SpaceStep.Kleur@option(i)@valid = DATA.Kenmerken.SpaceStep.Kleur@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.SpaceStep.Uitvoering@options) UI.Kenmerken.SpaceStep.Uitvoering@option(i)@valid = DATA.Kenmerken.SpaceStep.Uitvoering@option(i)@valid; end for; for i = 1 to len(DATA.Kenmerken.SpaceStep.Bewegingstechnologie@options) UI.Kenmerken.SpaceStep.Bewegingstechnologie@option(i)@valid = DATA.Kenmerken.SpaceStep.Bewegingstechnologie@option(i)@valid; end for; Valids ;ui.kenmerken.bodemkleur@valids;ui.kenmerken.draagkracht@valids;ui.kenmerken.dwarsverdelingaantal@valids;ui.kenmerken.dwarsverdelingtype@valids;ui.kenmerken.frontbevestiging@valids;ui.kenmerken.geleidertechnologie@valids;ui.kenmerken.ladediepte@valids;ui.kenmerken.ladehoogte@valids;ui.kenmerken.ladekleur@valids;ui.kenmerken.ladekleurbuiten@valids;ui.kenmerken.meenemerset@valids;ui.kenmerken.opvullijstkleur@valids;ui.kenmerken.productiewijze@valids;ui.kenmerken.rughoogte@valids;ui.kenmerken.rugwandmateriaal@valids;ui.kenmerken.toepassing@valids;ui.kenmerken.verpakkingtype@valids;ui.kenmerken.voorwandtypevancbinnenlade@valids;ui.kenmerken.voorwandtypevanmbinnenlade@valids;ui.kenmerken.voorwandtypevankbinnenlade@valids;ui.kenmerken.zijwandtype@valids;ui.kenmerken.spacestep.sokkeldiepte@valids;ui.kenmerken.spacestep.kleur@valids;ui.kenmerken.spacestep.uitvoering@valids;ui.kenmerken.spacestep.bewegingstechnologie@valids; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local string MatKleur = ""; for i = 1 to len(DATA.Kenmerken.MatKleur@options) MatKleur = DATA.Kenmerken.MatKleur@option(i)@id; for j = 1 to len(UI.Kenmerken.MatAntislipKleur@options) if (MatKleur == UI.Kenmerken.MatAntislipKleur@option(j)@id) then UI.Kenmerken.MatAntislipKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.Kenmerken.MatAntislipFiberKleur@options) if (MatKleur == UI.Kenmerken.MatAntislipFiberKleur@option(j)@id) then UI.Kenmerken.MatAntislipFiberKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.Kenmerken.MatAntislipFlockKleur@options) if (MatKleur == UI.Kenmerken.MatAntislipFlockKleur@option(j)@id) then UI.Kenmerken.MatAntislipFlockKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.Kenmerken.MatVinylFiberglassKleur@options) if (MatKleur == UI.Kenmerken.MatVinylFiberglassKleur@option(j)@id) then UI.Kenmerken.MatVinylFiberglassKleur@option(j)@valid = DATA.Kenmerken.MatKleur@option(i)@valid; end if; end for; end for; for i = 1 to len(DATA.Kenmerken.MatMateriaal@options) UI.Kenmerken.MatMateriaal@option(i)@valid = DATA.Kenmerken.MatMateriaal@option(i)@valid; end for; Valids - Mat ;ui.kenmerken.matmateriaal@valids; (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) for i = 1 to len(DATA.BulkKenmerken(1).BodemKleur@options) UI.BulkKenmerken.BodemKleur@option(i)@valid = DATA.BulkKenmerken(1).BodemKleur@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).DwarsverdelingType@options) UI.BulkKenmerken.DwarsverdelingType@option(i)@valid = DATA.BulkKenmerken(1).DwarsverdelingType@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).FrontBevestiging@options) UI.BulkKenmerken.FrontBevestiging@option(i)@valid = DATA.BulkKenmerken(1).FrontBevestiging@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).GeleiderTechnologie@options) UI.BulkKenmerken.GeleiderTechnologie@option(i)@valid = DATA.BulkKenmerken(1).GeleiderTechnologie@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).LadeDiepte@options) UI.BulkKenmerken.LadeDiepte@option(i)@valid = DATA.BulkKenmerken(1).LadeDiepte@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).LadeHoogte@options) UI.BulkKenmerken.LadeHoogte@option(i)@valid = DATA.BulkKenmerken(1).LadeHoogte@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).LadeKleur@options) UI.BulkKenmerken.LadeKleur@option(i)@valid = DATA.BulkKenmerken(1).LadeKleur@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).LadeKleurBuiten@options) UI.BulkKenmerken.LadeKleurBuiten@option(i)@valid = DATA.BulkKenmerken(1).LadeKleurBuiten@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).VerpakkingType@options) UI.BulkKenmerken.VerpakkingType@option(i)@valid = DATA.BulkKenmerken(1).VerpakkingType@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen@options) UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten@options) UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder@options) UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront@options) UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging@options) UI.BulkKenmerken.NietMeeleveren_FrontBevestiging@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider@options) UI.BulkKenmerken.NietMeeleveren_Geleider@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor@options) UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant@options) UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst@options) UI.BulkKenmerken.NietMeeleveren_Opvullijst@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet@options) UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@options) UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang@options) UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang@option(i)@valid; end for; for i = 1 to len(DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering@options) UI.BulkKenmerken.NietMeeleveren_Zijstabilisering@option(i)@valid = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering@option(i)@valid; end for; Valids - BulkKenmerken ;ui.bulkkenmerken.bodemkleur@valids;ui.bulkkenmerken.dwarsverdelingtype@valids;ui.bulkkenmerken.frontbevestiging@valids;ui.bulkkenmerken.geleidertechnologie@valids;ui.bulkkenmerken.ladediepte@valids;ui.bulkkenmerken.ladehoogte@valids;ui.bulkkenmerken.ladekleur@valids;ui.bulkkenmerken.ladekleurbuiten@valids;ui.bulkkenmerken.verpakkingtype@valids;ui.bulkkenmerken.nietmeeleveren_afdekkapbinnen@valids;ui.bulkkenmerken.nietmeeleveren_afdekkapbuiten@valids;ui.bulkkenmerken.nietmeeleveren_afdekkaprugwandhouder@valids;ui.bulkkenmerken.nietmeeleveren_bevestigingbodemfront@valids;ui.bulkkenmerken.nietmeeleveren_frontbevestiging@valids;ui.bulkkenmerken.nietmeeleveren_geleider@valids;ui.bulkkenmerken.nietmeeleveren_inschuifelementvoor@valids;ui.bulkkenmerken.nietmeeleveren_inschuifelementzijkant@valids;ui.bulkkenmerken.nietmeeleveren_opvullijst@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotionset@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@valids;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@valids;ui.bulkkenmerken.nietmeeleveren_zijstabilisering@valids; (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local string MatKleur = ""; for i = 1 to len(DATA.BulkKenmerken(1).MatKleur@options) MatKleur = DATA.BulkKenmerken(1).MatKleur@option(i)@id; for j = 1 to len(UI.BulkKenmerken.MatAntislipFiberKleur@options) if (MatKleur == UI.BulkKenmerken.MatAntislipFiberKleur@option(j)@id) then UI.BulkKenmerken.MatAntislipFiberKleur@option(j)@valid = DATA.BulkKenmerken(1).MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.BulkKenmerken.MatAntislipFlockKleur@options) if (MatKleur == UI.BulkKenmerken.MatAntislipFlockKleur@option(j)@id) then UI.BulkKenmerken.MatAntislipFlockKleur@option(j)@valid = DATA.BulkKenmerken(1).MatKleur@option(i)@valid; end if; end for; for j = 1 to len(UI.BulkKenmerken.MatVinylFiberglassKleur@options) if (MatKleur == UI.BulkKenmerken.MatVinylFiberglassKleur@option(j)@id) then UI.BulkKenmerken.MatVinylFiberglassKleur@option(j)@valid = DATA.BulkKenmerken(1).MatKleur@option(i)@valid; end if; end for; end for; for i = 1 to len(DATA.BulkKenmerken(1).MatMateriaal@options) UI.BulkKenmerken.MatMateriaal@option(i)@valid = DATA.BulkKenmerken(1).MatMateriaal@option(i)@valid; end for; Valids - BulkKenmerken Mat ;ui.bulkkenmerken.matmateriaal@valids; true local string _WarningText = ""; local string _AantalStuks = "???"; local string _VerpakkingTypeTekst = ""; local boolean _IsVerpakkingIdentiekeLades = (DATA.Kenmerken.VerpakkingType == "Pallet"); if _IsVerpakkingIdentiekeLades then _WarningText = TRL.VerpakkingIdentiekeLadesMelding@label; end if; local string _OnvertaaldeWaardeIdentiekeLadesMelding = "VerpakkingIdentiekeLadesMelding"; // Wanneer de melding in een gevraagde taal niet voorzien is. if (_WarningText == "") or (_WarningText == _OnvertaaldeWaardeIdentiekeLadesMelding) then _WarningText = GetLocalizedLabel("VerpakkingTypeLabel"); end if; if not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then _AantalStuks = switch DATA.Kenmerken.VerpakkingType case "Probox": "4" case "Pallet": "8" else "???" end switch; _VerpakkingTypeTekst = Replace(_WarningText ; "{1}"; _AantalStuks); UI.Kenmerken.VerpakkingTypeLabel@default = _VerpakkingTypeTekst; UI.Kenmerken.VerpakkingTypeLabel@visible = (DATA.Kenmerken.VerpakkingType in {"Pallet";"Probox"}); else _AantalStuks = switch DATA.BulkKenmerken(1).VerpakkingType case "Probox": "4" case "Pallet": "8" else "???" end switch; _VerpakkingTypeTekst = Replace(_WarningText ; "{1}"; _AantalStuks); UI.BulkKenmerken.VerpakkingTypeLabel@default = _VerpakkingTypeTekst; UI.BulkKenmerken.VerpakkingTypeLabel@visible = (DATA.BulkKenmerken(1).VerpakkingType in {"Pallet";"Probox"}); end if; Message Probox/Pallet ;ui.kenmerken.verpakkingtypelabel@default;ui.kenmerken.verpakkingtypelabel@visible; true if not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then UI.Kenmerken.GeleiderTechnologieLabel@default = UI.Kenmerken.GeleiderTechnologieLabel@label; UI.Kenmerken.GeleiderTechnologieLabel@visible = (DATA.Kenmerken.GeleiderTechnologie == "TOB" and DATA.Kenmerken.Toepassing <> "SST"); else UI.BulkKenmerken.GeleiderTechnologieLabel@default = UI.BulkKenmerken.GeleiderTechnologieLabel@label; UI.BulkKenmerken.GeleiderTechnologieLabel@visible = (DATA.BulkKenmerken(1).GeleiderTechnologie == "TOB"); end if; Message TIP-ON BLUMOTION ;ui.kenmerken.geleidertechnologielabel@default;ui.kenmerken.geleidertechnologielabel@visible; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) UI.Kenmerken.BodemKleur@default = DATA.Kenmerken.BodemKleur; UI.Kenmerken.CorpusBreedte@default = DATA.Kenmerken.CorpusBreedte; UI.Kenmerken.CorpusWanddikte@default = DATA.Kenmerken.CorpusWanddikte; UI.Kenmerken.Draagkracht@default = DATA.Kenmerken.Draagkracht; UI.Kenmerken.DwarsverdelingAantal@default = DATA.Kenmerken.DwarsverdelingAantal; UI.Kenmerken.DwarsverdelingType@default = DATA.Kenmerken.DwarsverdelingType; UI.Kenmerken.FrontBevestiging@default = DATA.Kenmerken.FrontBevestiging; UI.Kenmerken.GeleiderTechnologie@default = DATA.Kenmerken.GeleiderTechnologie; UI.Kenmerken.HeeftAfwijkendeRugHoogte@default = Cstr(DATA.Kenmerken.HeeftAfwijkendeRugHoogte); UI.Kenmerken.HeeftOpvullijstLinks@default = DATA.Kenmerken.HeeftOpvullijstLinks; UI.Kenmerken.HeeftOpvullijstRechts@default = DATA.Kenmerken.HeeftOpvullijstRechts; UI.Kenmerken.HeeftZijstabilisering@default = DATA.Kenmerken.HeeftZijstabilisering; UI.Kenmerken.IsBinnenbreedte@default = DATA.Kenmerken.IsBinnenbreedte; UI.Kenmerken.IsBinnenlade@default = DATA.Kenmerken.IsBinnenlade; UI.Kenmerken.LadeDiepte@default = DATA.Kenmerken.LadeDiepte; UI.Kenmerken.LadeHoogte@default = DATA.Kenmerken.LadeHoogte; UI.Kenmerken.LadeKleur@default = DATA.Kenmerken.LadeKleur; UI.Kenmerken.LadeKleurBuiten@default = DATA.Kenmerken.LadeKleurBuiten; UI.Kenmerken.MeenemerSet@default = DATA.Kenmerken.MeenemerSet; UI.Kenmerken.OpvullijstKleur@default = DATA.Kenmerken.OpvullijstKleur; UI.Kenmerken.ProductieWijze@default = DATA.Kenmerken.ProductieWijze; UI.Kenmerken.RugHoogte@default = DATA.Kenmerken.RugHoogte; UI.Kenmerken.RugwandMateriaal@default = DATA.Kenmerken.RugwandMateriaal; UI.Kenmerken.Toepassing@default = DATA.Kenmerken.Toepassing; UI.Kenmerken.VerpakkingType@default = DATA.Kenmerken.VerpakkingType; UI.Kenmerken.VoorwandTypeVanMBinnenlade@default = DATA.Kenmerken.VoorwandTypeVanMBinnenlade; UI.Kenmerken.VoorwandTypeVanCBinnenlade@default = DATA.Kenmerken.VoorwandTypeVanCBinnenlade; UI.Kenmerken.VoorwandTypeVanKBinnenlade@default = DATA.Kenmerken.VoorwandTypeVanKBinnenlade; UI.Kenmerken.ZijwandType@default = DATA.Kenmerken.ZijwandType; UI.Kenmerken.InterneBreedte@default = DATA.BerekendeWaarden.InterneBreedte; UI.Lijn.Aantal@default = DATA.Lijn.Aantal; UI.Lijn.Referentie@default = DATA.Lijn.Referentie; local boolean _DummyCheckV01 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBinnen; local boolean _DummyCheckV02 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBuiten; local boolean _DummyCheckV03 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder; local boolean _DummyCheckV04 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_BevestigingBodemFront; local boolean _DummyCheckV05 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging; local boolean _DummyCheckV06 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider; local boolean _DummyCheckV07 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementVoor; local boolean _DummyCheckV08 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_InschuifElementZijkant; local boolean _DummyCheckV09 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst; local boolean _DummyCheckV10 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet; local boolean _DummyCheckV11 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers; local boolean _DummyCheckV12 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; local boolean _DummyCheckV13 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Zijstabilisering; index i of UI.Kenmerken.NietMeeleveren local boolean _IsChecked = CBool(Eval("DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.Kenmerken.NietMeeleveren(i).Id)); UI.Kenmerken.NietMeeleveren(i).IsSelected@default = _IsChecked; end index; Values ;ui.kenmerken.bodemkleur@default;ui.kenmerken.corpusbreedte@default;ui.kenmerken.corpuswanddikte@default;ui.kenmerken.draagkracht@default;ui.kenmerken.dwarsverdelingaantal@default;ui.kenmerken.dwarsverdelingtype@default;ui.kenmerken.frontbevestiging@default;ui.kenmerken.geleidertechnologie@default;ui.kenmerken.heeftafwijkenderughoogte@default;ui.kenmerken.heeftopvullijstlinks@default;ui.kenmerken.heeftopvullijstrechts@default;ui.kenmerken.heeftzijstabilisering@default;ui.kenmerken.isbinnenbreedte@default;ui.kenmerken.isbinnenlade@default;ui.kenmerken.ladediepte@default;ui.kenmerken.ladehoogte@default;ui.kenmerken.ladekleur@default;ui.kenmerken.ladekleurbuiten@default;ui.kenmerken.meenemerset@default;ui.kenmerken.opvullijstkleur@default;ui.kenmerken.productiewijze@default;ui.kenmerken.rughoogte@default;ui.kenmerken.rugwandmateriaal@default;ui.kenmerken.toepassing@default;ui.kenmerken.verpakkingtype@default;ui.kenmerken.voorwandtypevanmbinnenlade@default;ui.kenmerken.voorwandtypevancbinnenlade@default;ui.kenmerken.voorwandtypevankbinnenlade@default;ui.kenmerken.zijwandtype@default;ui.kenmerken.internebreedte@default;ui.lijn.aantal@default;ui.lijn.referentie@default; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) UI.Kenmerken.MatMateriaal@default = DATA.Kenmerken.MatMateriaal; UI.Kenmerken.HeeftMat@default = (UI.Kenmerken.MatMateriaal <> ""); UI.Kenmerken.MatVinylFiberglassKleur@default = ""; UI.Kenmerken.MatAntislipKleur@default = ""; UI.Kenmerken.MatAntislipFiberKleur@default = ""; UI.Kenmerken.MatAntislipFlockKleur@default = ""; switch UI.Kenmerken.MatMateriaal case "CF": UI.Kenmerken.MatVinylFiberglassKleur@default = DATA.Kenmerken.MatKleur case "AS": UI.Kenmerken.MatAntislipKleur@default = DATA.Kenmerken.MatKleur case "AF": UI.Kenmerken.MatAntislipFiberKleur@default = DATA.Kenmerken.MatKleur case "AZ": UI.Kenmerken.MatAntislipFlockKleur@default = DATA.Kenmerken.MatKleur end switch Values - Mat ;ui.kenmerken.matmateriaal@default;ui.kenmerken.heeftmat@default;ui.kenmerken.matvinylfiberglasskleur@default;ui.kenmerken.matantislipkleur@default;ui.kenmerken.matantislipfiberkleur@default;ui.kenmerken.matantislipflockkleur@default; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) UI.Kenmerken.UitsparingData.X.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.X.Breedte; UI.Kenmerken.UitsparingData.X.Hoogte@default = DATA.Kenmerken.UitsparingData.X.Hoogte; UI.Kenmerken.UitsparingData.X.Materiaal@default = DATA.Kenmerken.UitsparingData.X.Materiaal; UI.Kenmerken.UitsparingData.M.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.M.Breedte; UI.Kenmerken.UitsparingData.M.Hoogte@default = DATA.Kenmerken.UitsparingData.M.Hoogte; UI.Kenmerken.UitsparingData.M.Materiaal@default = DATA.Kenmerken.UitsparingData.M.Materiaal; UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@default = DATA.Kenmerken.UitsparingData.Y.Breedte; UI.Kenmerken.UitsparingData.Y.Hoogte@default = DATA.Kenmerken.UitsparingData.Y.Hoogte; UI.Kenmerken.UitsparingData.Y.Materiaal@default = DATA.Kenmerken.UitsparingData.Y.Materiaal; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@default = DATA.Kenmerken.UitsparingData.Z1.Breedte; UI.Kenmerken.UitsparingData.Z1.Diepte@default = DATA.Kenmerken.UitsparingData.Z1.Diepte; UI.Kenmerken.UitsparingData.Z1.Hoogte@default = DATA.Kenmerken.UitsparingData.Z1.Hoogte; UI.Kenmerken.UitsparingData.Z1.Materiaal@default = DATA.Kenmerken.UitsparingData.Z1.Materiaal; UI.Kenmerken.UitsparingData.Z1.Vorm@default = DATA.Kenmerken.UitsparingData.Z1.Vorm; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@default = DATA.Kenmerken.UitsparingData.Z2.Breedte; UI.Kenmerken.UitsparingData.Z2.Diepte@default = DATA.Kenmerken.UitsparingData.Z2.Diepte; UI.Kenmerken.UitsparingData.Z2.Hoogte@default = DATA.Kenmerken.UitsparingData.Z2.Hoogte; UI.Kenmerken.UitsparingData.Z2.Materiaal@default = DATA.Kenmerken.UitsparingData.Z2.Materiaal; UI.Kenmerken.UitsparingData.Z2.Vorm@default = DATA.Kenmerken.UitsparingData.Z2.Vorm; UI.Kenmerken.UitsparingData.UitsparingAantal@default = DATA.Kenmerken.UitsparingData.UitsparingAantal; Values - UitsparingData ;ui.kenmerken.uitsparingdata.x.breedterugdeel@default;ui.kenmerken.uitsparingdata.x.hoogte@default;ui.kenmerken.uitsparingdata.x.materiaal@default;ui.kenmerken.uitsparingdata.m.breedterugdeel@default;ui.kenmerken.uitsparingdata.m.hoogte@default;ui.kenmerken.uitsparingdata.m.materiaal@default;ui.kenmerken.uitsparingdata.y.breedterugdeel@default;ui.kenmerken.uitsparingdata.y.hoogte@default;ui.kenmerken.uitsparingdata.y.materiaal@default;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z1.diepte@default;ui.kenmerken.uitsparingdata.z1.hoogte@default;ui.kenmerken.uitsparingdata.z1.materiaal@default;ui.kenmerken.uitsparingdata.z1.vorm@default;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z2.diepte@default;ui.kenmerken.uitsparingdata.z2.hoogte@default;ui.kenmerken.uitsparingdata.z2.materiaal@default;ui.kenmerken.uitsparingdata.z2.vorm@default;ui.kenmerken.uitsparingdata.uitsparingaantal@default; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) UI.Kenmerken.SpaceStep.Sokkelbreedte@default = DATA.Kenmerken.SpaceStep.Breedte; UI.Kenmerken.SpaceStep.Sokkelhoogte@default = DATA.Kenmerken.SpaceStep.Hoogte; UI.Kenmerken.SpaceStep.Sokkeldiepte@default = DATA.Kenmerken.SpaceStep.Diepte; UI.Kenmerken.SpaceStep.Kleur@default = DATA.Kenmerken.SpaceStep.Kleur; UI.Kenmerken.SpaceStep.Uitvoering@default = DATA.Kenmerken.SpaceStep.Uitvoering; UI.Kenmerken.SpaceStep.Bewegingstechnologie@default = DATA.Kenmerken.SpaceStep.Bewegingstechnologie; UI.Kenmerken.SpaceStep.StekkerServodrive@default = DATA.Kenmerken.SpaceStep.StekkerServodrive; UI.Kenmerken.SpaceStep.StekkerType@default = DATA.Kenmerken.SpaceStep.StekkerType; Values - SpaceStep ;ui.kenmerken.spacestep.sokkelbreedte@default;ui.kenmerken.spacestep.sokkelhoogte@default;ui.kenmerken.spacestep.sokkeldiepte@default;ui.kenmerken.spacestep.kleur@default;ui.kenmerken.spacestep.uitvoering@default;ui.kenmerken.spacestep.bewegingstechnologie@default;ui.kenmerken.spacestep.stekkerservodrive@default;ui.kenmerken.spacestep.stekkertype@default; BEHAVIOR.IsInteractive and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) UI.BulkKenmerken.BodemKleur@default = DATA.BulkKenmerken(1).BodemKleur; UI.BulkKenmerken.CorpusWanddikte@default = DATA.BulkKenmerken(1).CorpusWanddikte; UI.BulkKenmerken.Draagkracht@default = DATA.BulkKenmerken(1).Draagkracht; UI.BulkKenmerken.DwarsverdelingAantal@default = DATA.BulkKenmerken(1).DwarsverdelingAantal; UI.BulkKenmerken.DwarsverdelingType@default = DATA.BulkKenmerken(1).DwarsverdelingType; UI.BulkKenmerken.FrontBevestiging@default = DATA.BulkKenmerken(1).FrontBevestiging; UI.BulkKenmerken.GeleiderTechnologie@default = DATA.BulkKenmerken(1).GeleiderTechnologie; UI.BulkKenmerken.HeeftOpvullijstLinks@default = DATA.BulkKenmerken(1).HeeftOpvullijstLinks; UI.BulkKenmerken.HeeftOpvullijstRechts@default = DATA.BulkKenmerken(1).HeeftOpvullijstRechts; UI.BulkKenmerken.HeeftZijstabilisering@default = DATA.BulkKenmerken(1).HeeftZijstabilisering; UI.BulkKenmerken.IsBinnenbreedte@default = DATA.BulkKenmerken(1).IsBinnenbreedte; UI.BulkKenmerken.IsBinnenlade@default = DATA.BulkKenmerken(1).IsBinnenlade; UI.BulkKenmerken.LadeDiepte@default = DATA.BulkKenmerken(1).LadeDiepte; UI.BulkKenmerken.LadeHoogte@default = DATA.BulkKenmerken(1).LadeHoogte; UI.BulkKenmerken.LadeKleur@default = DATA.BulkKenmerken(1).LadeKleur; UI.BulkKenmerken.LadeKleurBuiten@default = DATA.BulkKenmerken(1).LadeKleurBuiten; UI.BulkKenmerken.Meenemerset@default = DATA.BulkKenmerken(1).Meenemerset; UI.BulkKenmerken.OpvullijstKleur@default = DATA.BulkKenmerken(1).OpvullijstKleur; UI.BulkKenmerken.VerpakkingType@default = DATA.BulkKenmerken(1).VerpakkingType; UI.BulkKenmerken.VoorwandTypeVanCBinnenlade@default = DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade; UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@default = DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade; UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@default = DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade; UI.BulkKenmerken.ZijwandType@default = DATA.BulkKenmerken(1).ZijwandType; if (DATA.BulkKenmerken(1).CorpusBreedte <> "NietWijzigen") then UI.BulkKenmerken.CorpusBreedte.Wijzigen@default = "Wijzigen"; UI.BulkKenmerken.CorpusBreedte.Breedte@default = CDbl(DATA.BulkKenmerken(1).CorpusBreedte); else UI.BulkKenmerken.CorpusBreedte.Wijzigen@default = "NietWijzigen"; end if; UI.BulkKenmerken.InterneBreedte@default = DATA.BerekendeWaarden.InterneBreedte; UI.BulkKenmerken.MatMateriaal@default = DATA.BulkKenmerken(1).MatMateriaal; UI.BulkKenmerken.HeeftMat@default = DATA.BulkKenmerken(1).HeeftMat; UI.BulkKenmerken.MatVinylFiberglassKleur@default = ""; UI.BulkKenmerken.MatAntislipFiberKleur@default = ""; UI.BulkKenmerken.MatAntislipFlockKleur@default = ""; switch UI.BulkKenmerken.MatMateriaal case "CF": UI.BulkKenmerken.MatVinylFiberglassKleur@default = DATA.BulkKenmerken(1).MatKleur case "AF": UI.BulkKenmerken.MatAntislipFiberKleur@default = DATA.BulkKenmerken(1).MatKleur case "AZ": UI.BulkKenmerken.MatAntislipFlockKleur@default = DATA.BulkKenmerken(1).MatKleur end switch; UI.BulkKenmerken.NietMeeleveren_AfdekkapBinnen@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen; UI.BulkKenmerken.NietMeeleveren_AfdekkapBuiten@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten; UI.BulkKenmerken.NietMeeleveren_AfdekkapRugwandHouder@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder; UI.BulkKenmerken.NietMeeleveren_BevestigingBodemFront@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront; UI.BulkKenmerken.NietMeeleveren_FrontBevestiging@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging; UI.BulkKenmerken.NietMeeleveren_Geleider@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider; UI.BulkKenmerken.NietMeeleveren_InschuifElementVoor@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor; UI.BulkKenmerken.NietMeeleveren_InschuifElementZijkant@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant; UI.BulkKenmerken.NietMeeleveren_Opvullijst@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSet@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers; UI.BulkKenmerken.NietMeeleveren_TiponBlumotionSynchronisatieStang@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; UI.BulkKenmerken.NietMeeleveren_Zijstabilisering@default = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering; Values - BulkKenmerken ;ui.bulkkenmerken.bodemkleur@default;ui.bulkkenmerken.corpuswanddikte@default;ui.bulkkenmerken.draagkracht@default;ui.bulkkenmerken.dwarsverdelingaantal@default;ui.bulkkenmerken.dwarsverdelingtype@default;ui.bulkkenmerken.frontbevestiging@default;ui.bulkkenmerken.geleidertechnologie@default;ui.bulkkenmerken.heeftopvullijstlinks@default;ui.bulkkenmerken.heeftopvullijstrechts@default;ui.bulkkenmerken.heeftzijstabilisering@default;ui.bulkkenmerken.isbinnenbreedte@default;ui.bulkkenmerken.isbinnenlade@default;ui.bulkkenmerken.ladediepte@default;ui.bulkkenmerken.ladehoogte@default;ui.bulkkenmerken.ladekleur@default;ui.bulkkenmerken.ladekleurbuiten@default;ui.bulkkenmerken.meenemerset@default;ui.bulkkenmerken.opvullijstkleur@default;ui.bulkkenmerken.verpakkingtype@default;ui.bulkkenmerken.voorwandtypevancbinnenlade@default;ui.bulkkenmerken.voorwandtypevanmbinnenlade@default;ui.bulkkenmerken.voorwandtypevankbinnenlade@default;ui.bulkkenmerken.zijwandtype@default;ui.bulkkenmerken.corpusbreedte.wijzigen@default;ui.bulkkenmerken.corpusbreedte.breedte@default;ui.bulkkenmerken.internebreedte@default;ui.bulkkenmerken.matmateriaal@default;ui.bulkkenmerken.heeftmat@default;ui.bulkkenmerken.matvinylfiberglasskleur@default;ui.bulkkenmerken.matantislipfiberkleur@default;ui.bulkkenmerken.matantislipflockkleur@default;ui.bulkkenmerken.nietmeeleveren_afdekkapbinnen@default;ui.bulkkenmerken.nietmeeleveren_afdekkapbuiten@default;ui.bulkkenmerken.nietmeeleveren_afdekkaprugwandhouder@default;ui.bulkkenmerken.nietmeeleveren_bevestigingbodemfront@default;ui.bulkkenmerken.nietmeeleveren_frontbevestiging@default;ui.bulkkenmerken.nietmeeleveren_geleider@default;ui.bulkkenmerken.nietmeeleveren_inschuifelementvoor@default;ui.bulkkenmerken.nietmeeleveren_inschuifelementzijkant@default;ui.bulkkenmerken.nietmeeleveren_opvullijst@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotionset@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@default;ui.bulkkenmerken.nietmeeleveren_tiponblumotionsynchronisatiestang@default;ui.bulkkenmerken.nietmeeleveren_zijstabilisering@default; true if (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then UI.BulkKenmerken.CorpusBreedte@label = switch (UI.BulkKenmerken.IsBinnenbreedte) case "NietWijzigen": UI.BulkKenmerken.CorpusBreedte@label case "True": TRL.CorpusBinnenbreedte@label else TRL.CorpusBuitenbreedte@label end switch; else UI.Kenmerken.CorpusBreedte@label = switch (UI.Kenmerken.IsBinnenbreedte) case true: TRL.CorpusBinnenbreedte@label else TRL.CorpusBuitenbreedte@label end switch; end if; Label CorpusBreedte ; true $UitsparingPane@label = switch (UI.Kenmerken.Toepassing) case "SY": UI.Kenmerken.Toepassing@option("SY")@label case "SP": UI.Kenmerken.Toepassing@option("SP")@label else "" end switch; Label UitsparingDataPane ; (DATA.Kenmerken.Toepassing == "SY") or (DATA.Kenmerken.Toepassing == "SP") if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then UI.Kenmerken.UitsparingData.Z1@label = TRL.Z@label; else UI.Kenmerken.UitsparingData.Z1@label = TRL.Z1@label; end if; Label UitsparingData Z1 ; true if (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) then UI.BulkKenmerken.LadeKleur@label = switch (DATA.BulkKenmerken(1).ZijwandType) case "Design": TRL.LadeKleurBinnen@label else DATA.Kenmerken.LadeKleur@label end switch; else UI.Kenmerken.LadeKleur@label = switch (DATA.Kenmerken.ZijwandType) case "Design": TRL.LadeKleurBinnen@label else DATA.Kenmerken.LadeKleur@label end switch; end if; Label LadeKleur ; true if (UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing == 150) then UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_M_D250_B150"; /* DEPRECATED */ end if; if (UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing == 160) then UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_M_D240_B160"; end if; if (UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing == 300) then // UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_M_D250_B300"; /* DEPRECATED */ UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_M_D240_B300"; end if; Values UitsparingData Z1 ;ui.kenmerken.uitsparingdata.z1.codeuitsparing@default; true if (UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing == 150) then UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_M_D250_B150"; /* DEPRECATED */ end if; if (UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing == 160) then UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_M_D240_B160"; end if; if (UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing == 300) then // UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_M_D250_B300"; /* DEPRECATED */ UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_M_D240_B300"; end if; Values UitsparingData Z2 ;ui.kenmerken.uitsparingdata.z2.codeuitsparing@default; true local boolean _IsSpoelbaklade = (DATA.Kenmerken.Toepassing in {"SP"}); UI.Kenmerken.UitsparingDataSpoelbak@visible = (_IsSpoelbaklade); UI.Kenmerken.UitsparingDataSpoelbak.Z1@label = TRL.Z@label; local double _BreedteX = 158; local double _BreedteY = 158; local double _BreedteZ1 = 0; if (DATA.BerekendeWaarden.InterneBreedte > 0) then _BreedteZ1 = DATA.BerekendeWaarden.InterneBreedte - (_BreedteX + _BreedteY); end if; UI.Kenmerken.UitsparingDataSpoelbak.X = _BreedteX; UI.Kenmerken.UitsparingDataSpoelbak.Y = _BreedteY; UI.Kenmerken.UitsparingDataSpoelbak.Z1 = _BreedteZ1; Visible - UitsparingData Spoelbaklade ;ui.kenmerken.uitsparingdataspoelbak@visible;ui.kenmerken.uitsparingdataspoelbak.x@value;ui.kenmerken.uitsparingdataspoelbak.y@value;ui.kenmerken.uitsparingdataspoelbak.z1@value; (UI.Kenmerken.UitsparingData@visible) or (UI.Kenmerken.UitsparingDataSpoelbak@visible) local string _UitsparingAantal = UI.Kenmerken.UitsparingData.UitsparingAantal; if (_UitsparingAantal == "") then _UitsparingAantal = "Enkel"; end if; local string _ImageUrl = "./images/Vanhoecke/lbx/UitsparingData/LBX_Toepassing_" + UI.Kenmerken.Toepassing + "_" + _UitsparingAantal + ".png"; UI.Kenmerken.UitsparingData.Afbeelding@default = _ImageUrl; UI.Kenmerken.UitsparingDataSpoelbak.Afbeelding@default = _ImageUrl; UitsparingData afbeelding ;ui.kenmerken.uitsparingdata.afbeelding@default;ui.kenmerken.uitsparingdataspoelbak.afbeelding@default; true local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SY"}); local boolean _HeeftDubbeleUitsparing = (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); UI.Kenmerken.UitsparingData@visible = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.UitsparingAantal@mandatory = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.X.BreedteRugdeel@mandatory = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@mandatory = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@mandatory = _HeeftUitsparingData; UI.Kenmerken.UitsparingData.M.BreedteRugdeel@mandatory = _HeeftDubbeleUitsparing; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@mandatory = _HeeftDubbeleUitsparing; UI.Kenmerken.UitsparingData.M@visible = _HeeftDubbeleUitsparing; UI.Kenmerken.UitsparingData.Z2@visible = _HeeftDubbeleUitsparing; Visible en mandatory - UitsparingData Aantal en Breedtes ;ui.kenmerken.uitsparingdata@visible;ui.kenmerken.uitsparingdata.uitsparingaantal@mandatory;ui.kenmerken.uitsparingdata.x.breedterugdeel@mandatory;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@mandatory;ui.kenmerken.uitsparingdata.y.breedterugdeel@mandatory;ui.kenmerken.uitsparingdata.m.breedterugdeel@mandatory;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@mandatory;ui.kenmerken.uitsparingdata.m@visible;ui.kenmerken.uitsparingdata.z2@visible; true local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); local boolean _HeeftDubbeleUitsparing = (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); UI.Kenmerken.UitsparingData.X.CodeRugdeel@visible = false; UI.Kenmerken.UitsparingData.X.CodeRugdeel@mandatory = false; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@visible = _IsSifonlade; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@mandatory = _IsSifonlade; UI.Kenmerken.UitsparingData.M.CodeRugdeel@visible = false; UI.Kenmerken.UitsparingData.M.CodeRugdeel@mandatory = false; UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@visible = (_HeeftDubbeleUitsparing and _IsSifonlade); UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@mandatory = (_HeeftDubbeleUitsparing and _IsSifonlade); UI.Kenmerken.UitsparingData.Y.CodeRugdeel@visible = false; UI.Kenmerken.UitsparingData.Y.CodeRugdeel@mandatory = false; // Placeholders om de uitlijning te behouden :-P /* UI.Kenmerken.UitsparingData.X.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.X.CodeRugdeel@visible); UI.Kenmerken.UitsparingData.Z1.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@visible); UI.Kenmerken.UitsparingData.M.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.M.CodeRugdeel@visible); UI.Kenmerken.UitsparingData.Z2.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@visible); UI.Kenmerken.UitsparingData.Y.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Y.CodeRugdeel@visible); */ UI.Kenmerken.UitsparingData.X.CodePlaceholder@visible = false; UI.Kenmerken.UitsparingData.Z1.CodePlaceholder@visible = false; UI.Kenmerken.UitsparingData.M.CodePlaceholder@visible = false; UI.Kenmerken.UitsparingData.Z2.CodePlaceholder@visible = false; UI.Kenmerken.UitsparingData.Y.CodePlaceholder@visible = false; Visible en mandatory - UitsparingData Code ;ui.kenmerken.uitsparingdata.x.coderugdeel@visible;ui.kenmerken.uitsparingdata.x.coderugdeel@mandatory;ui.kenmerken.uitsparingdata.z1.codeuitsparing@visible;ui.kenmerken.uitsparingdata.z1.codeuitsparing@mandatory;ui.kenmerken.uitsparingdata.m.coderugdeel@visible;ui.kenmerken.uitsparingdata.m.coderugdeel@mandatory;ui.kenmerken.uitsparingdata.z2.codeuitsparing@visible;ui.kenmerken.uitsparingdata.z2.codeuitsparing@mandatory;ui.kenmerken.uitsparingdata.y.coderugdeel@visible;ui.kenmerken.uitsparingdata.y.coderugdeel@mandatory;ui.kenmerken.uitsparingdata.x.codeplaceholder@visible;ui.kenmerken.uitsparingdata.z1.codeplaceholder@visible;ui.kenmerken.uitsparingdata.m.codeplaceholder@visible;ui.kenmerken.uitsparingdata.z2.codeplaceholder@visible;ui.kenmerken.uitsparingdata.y.codeplaceholder@visible; (DATA.Kenmerken.Toepassing == "SY") local string _RugdeelOpMaat = "SY_M_BM"; local string _UitsparingSmal = "SY_Recht_M_D240_B160"; if (UI.Kenmerken.UitsparingData.UitsparingAantal == "") then UI.Kenmerken.UitsparingData.UitsparingAantal@default = "Enkel"; end if; if (UI.Kenmerken.UitsparingData.X.CodeRugdeel <> _RugdeelOpMaat) then UI.Kenmerken.UitsparingData.X.CodeRugdeel@default = _RugdeelOpMaat; end if; if (UI.Kenmerken.UitsparingData.M.CodeRugdeel <> _RugdeelOpMaat) then UI.Kenmerken.UitsparingData.M.CodeRugdeel@default = _RugdeelOpMaat; end if; if (UI.Kenmerken.UitsparingData.Y.CodeRugdeel <> _RugdeelOpMaat) then UI.Kenmerken.UitsparingData.Y.CodeRugdeel@default = _RugdeelOpMaat; end if; Defaults voor Sifonlade ;ui.kenmerken.uitsparingdata.uitsparingaantal@default;ui.kenmerken.uitsparingdata.x.coderugdeel@default;ui.kenmerken.uitsparingdata.m.coderugdeel@default;ui.kenmerken.uitsparingdata.y.coderugdeel@default; not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.X@visible) and not(CONFIG.InputMode == "CreateConfig") UI.Kenmerken.UitsparingData.X.BreedteRugdeel@default = 0; UitsparingData breedte X defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.x.breedterugdeel@default; not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Y@visible) and not(CONFIG.InputMode == "CreateConfig") UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@default = 0; UitsparingData breedte Y defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.y.breedterugdeel@default; not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.M@visible) and not(CONFIG.InputMode == "CreateConfig") UI.Kenmerken.UitsparingData.M.BreedteRugdeel@default = 0; UitsparingData breedte M defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.m.breedterugdeel@default; not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z1@visible) and not(CONFIG.InputMode == "CreateConfig") local string _UitsparingSmal = "SY_Recht_M_D240_B160"; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@default = 0; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = _UitsparingSmal; UitsparingData breedte Z1 defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z1.codeuitsparing@default; not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z2@visible) and not(CONFIG.InputMode == "CreateConfig") local string _UitsparingSmal = "SY_Recht_M_D240_B160"; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@default = 0; UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = _UitsparingSmal; UitsparingData breedte Z2 defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@default;ui.kenmerken.uitsparingdata.z2.codeuitsparing@default; (DATA.Kenmerken.Toepassing in {"SY"}) local string _CodeX = UI.Kenmerken.UitsparingData.X.CodeRugdeel; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; switch _CodeX case "SY_M_BM": // enige mogelijkheid bij Sifonlade //X.BreedteRugdeel@default = 0; UI.Kenmerken.UitsparingData.X.Hoogte = "M"; UI.Kenmerken.UitsparingData.X.Materiaal = "Hout"; UI.Kenmerken.UitsparingData.X.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Hout")@label; _MinimumBreedte = 150; _MaximumBreedte = 999; end switch; RANGE.UitsparingDataBreedteX.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteX.Maximum = _MaximumBreedte; UitsparingData X invullen ;range.uitsparingdatabreedtex.minimum@value;range.uitsparingdatabreedtex.maximum@value; (DATA.Kenmerken.Toepassing in {"SY"}) local string _CodeZ1 = UI.Kenmerken.UitsparingData.Z1.CodeUitsparing; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; UI.Kenmerken.UitsparingData.Z1.Hoogte = "M"; UI.Kenmerken.UitsparingData.Z1.Vorm = "Recht"; UI.Kenmerken.UitsparingData.Z1.Materiaal = "Staal"; UI.Kenmerken.UitsparingData.Z1.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Staal")@label; switch _CodeZ1 case "SY_Recht_M_D250_B150": UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 150; UI.Kenmerken.UitsparingData.Z1.Diepte = 250; _MinimumBreedte = 150; _MaximumBreedte = 150; case "SY_Recht_M_D250_B300": UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 300; UI.Kenmerken.UitsparingData.Z1.Diepte = 250; _MinimumBreedte = 300; _MaximumBreedte = 300; case "SY_Recht_M_D240_B160": UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 160; UI.Kenmerken.UitsparingData.Z1.Diepte = 240; _MinimumBreedte = 160; _MaximumBreedte = 160; case "SY_Recht_M_D240_B300": UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 300; UI.Kenmerken.UitsparingData.Z1.Diepte = 240; _MinimumBreedte = 300; _MaximumBreedte = 300; end switch; RANGE.UitsparingDataBreedteZ1.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteZ1.Maximum = _MaximumBreedte; UitsparingData Z1 invullen ;ui.kenmerken.uitsparingdata.z1.hoogte@value;ui.kenmerken.uitsparingdata.z1.vorm@value;ui.kenmerken.uitsparingdata.z1.materiaal@value;ui.kenmerken.uitsparingdata.z1.materiaaldisplay@value;range.uitsparingdatabreedtez1.minimum@value;range.uitsparingdatabreedtez1.maximum@value; (DATA.Kenmerken.Toepassing in {"SY"}) local string _CodeM = UI.Kenmerken.UitsparingData.M.CodeRugdeel; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; switch _CodeM case "SY_M_BM": // enige mogelijkheid bij Sifonlade //UI.Kenmerken.UitsparingData.M.BreedteRugdeel@default = 0; UI.Kenmerken.UitsparingData.M.Hoogte = "M"; UI.Kenmerken.UitsparingData.M.Materiaal = "Hout"; UI.Kenmerken.UitsparingData.M.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Hout")@label; _MinimumBreedte = 97; _MaximumBreedte = 999; end switch; RANGE.UitsparingDataBreedteM.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteM.Maximum = _Maximumbreedte; UitsparingData M invullen ;range.uitsparingdatabreedtem.minimum@value;range.uitsparingdatabreedtem.maximum@value; (DATA.Kenmerken.Toepassing in {"SY"}) local string _CodeZ2 = UI.Kenmerken.UitsparingData.Z2.CodeUitsparing; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; UI.Kenmerken.UitsparingData.Z2.Hoogte = "M"; UI.Kenmerken.UitsparingData.Z2.Vorm = "Recht"; UI.Kenmerken.UitsparingData.Z2.Materiaal = "Staal"; UI.Kenmerken.UitsparingData.Z2.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Staal")@label; switch _CodeZ2 case "SY_Recht_M_D250_B150": UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 150; UI.Kenmerken.UitsparingData.Z2.Diepte = 250; _MinimumBreedte = 150; _MaximumBreedte = 150; case "SY_Recht_M_D250_B300": UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 300; UI.Kenmerken.UitsparingData.Z2.Diepte = 250; _MinimumBreedte = 300; _MaximumBreedte = 300; case "SY_Recht_M_D240_B160": UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 160; UI.Kenmerken.UitsparingData.Z2.Diepte = 240; _MinimumBreedte = 160; _MaximumBreedte = 160; case "SY_Recht_M_D240_B300": UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 300; UI.Kenmerken.UitsparingData.Z2.Diepte = 240; _MinimumBreedte = 300; _MaximumBreedte = 300; end switch; RANGE.UitsparingDataBreedteZ2.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteZ2.Maximum = _MaximumBreedte; UitsparingData Z2 invullen ;ui.kenmerken.uitsparingdata.z2.hoogte@value;ui.kenmerken.uitsparingdata.z2.vorm@value;ui.kenmerken.uitsparingdata.z2.materiaal@value;ui.kenmerken.uitsparingdata.z2.materiaaldisplay@value;range.uitsparingdatabreedtez2.minimum@value;range.uitsparingdatabreedtez2.maximum@value; (DATA.Kenmerken.Toepassing in {"SY"}) local string _CodeY = UI.Kenmerken.UitsparingData.Y.CodeRugdeel; local double _MinimumBreedte = 0; local double _MaximumBreedte = 0; switch _CodeY case "SY_M_BM": // enige mogelijkheid bij Sifonlade //UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@default = 0; UI.Kenmerken.UitsparingData.Y.Hoogte = "M"; UI.Kenmerken.UitsparingData.Y.Materiaal = "Hout"; UI.Kenmerken.UitsparingData.Y.MateriaalDisplay = DATA.Kenmerken.RugwandMateriaal@option("Hout")@label; _MinimumBreedte = 150; _MaximumBreedte = 999; end switch; RANGE.UitsparingDataBreedteY.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteY.Maximum = _MaximumBreedte; UitsparingData Y invullen ;range.uitsparingdatabreedtey.minimum@value;range.uitsparingdatabreedtey.maximum@value; (UI.Kenmerken.UitsparingData@visible) and (UI.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") local double _SuggestieX = 0; local double _SuggestieY = 0; local double _SuggestieZ1 = 0; local double _BreedteX = UI.Kenmerken.UitsparingData.X.BreedteRugdeel; local double _BreedteY = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; local double _BreedteZ1 = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; local double _VerwachteBreedte = DATA.BerekendeWaarden.InterneBreedte; local boolean _AlleBreedtesIngevuld = (_BreedteX > 0) and (_BreedteY > 0) and (_BreedteZ1 > 0); local boolean _AlleBreedtesLeeg = (_BreedteX == 0) and (_BreedteY == 0) and (_BreedteZ1 == 0); local boolean _ToonGesuggereerdeWaarde = false; if ((_AlleBreedtesIngevuld) or (_AlleBreedtesLeeg)) then _ToonGesuggereerdeWaarde = false; else _ToonGesuggereerdeWaarde = (_VerwachteBreedte > 0); end if; if (_ToonGesuggereerdeWaarde) then local double _BreedteSaldo = _VerwachteBreedte - (_BreedteX + _BreedteY + _BreedteZ1); if (_BreedteZ1 > 0) then if ((_BreedteX == 0) and (_BreedteY == 0)) then _SuggestieX = Round((_BreedteSaldo / 2) ; 0.1); _SuggestieY = (_BreedteSaldo - _SuggestieX); // _SuggestieY = _SuggestieX , except when _SuggestieX is rounded. else if (_BreedteX == 0) then _SuggestieX = _BreedteSaldo; end if; if (_BreedteY == 0) then _SuggestieY = _BreedteSaldo; end if; end if; else // BreedteZ1 == 0 if ((_BreedteX > 0) and (_BreedteY > 0)) then _SuggestieZ1 = _BreedteSaldo; else if (_BreedteX == 0) then _SuggestieX = _BreedteY; _SuggestieZ1 = (_BreedteSaldo - _SuggestieX); end if; if (_BreedteY == 0) then _SuggestieY = _BreedteX; _SuggestieZ1 = (_BreedteSaldo - _SuggestieY); end if; end if; end if; end if; UI.Kenmerken.UitsparingData.X.GesuggereerdeWaarde = _SuggestieX; UI.Kenmerken.UitsparingData.Y.GesuggereerdeWaarde = _SuggestieY; UI.Kenmerken.UitsparingData.Z1.GesuggereerdeWaarde = _SuggestieZ1; UI.Kenmerken.UitsparingData.M.GesuggereerdeWaarde = 0; UI.Kenmerken.UitsparingData.Z2.GesuggereerdeWaarde = 0; Bereken GesuggereerdeWaarden Enkele uitsparing ;ui.kenmerken.uitsparingdata.x.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.y.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z1.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.m.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z2.gesuggereerdewaarde@value; (UI.Kenmerken.UitsparingData@visible) and (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") local double _SuggestieX = 0; local double _SuggestieM = 0; local double _SuggestieY = 0; local double _SuggestieZ1 = 0; local double _SuggestieZ2 = 0; local double _BreedteX = UI.Kenmerken.UitsparingData.X.BreedteRugdeel; local double _BreedteM = UI.Kenmerken.UitsparingData.M.BreedteRugdeel; local double _BreedteY = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; local double _BreedteZ1 = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; local double _BreedteZ2 = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing; local double _VerwachteBreedte = DATA.BerekendeWaarden.InterneBreedte; local boolean _AlleRugBreedtesLeeg = (_BreedteX == 0) and (_BreedteM == 0) and (_BreedteY == 0); local boolean _AlleRugBreedtesIngevuld = (_BreedteX > 0) and (_BreedteM > 0) and (_BreedteY > 0); local boolean _AlleBreedtesIngevuld = (_AlleRugBreedtesIngevuld) and (_BreedteZ1 > 0) and (_BreedteZ2 > 0); local boolean _ToonGesuggereerdeWaarde = false; if ((_AlleRugBreedtesLeeg) or (_AlleBreedtesIngevuld)) then _ToonGesuggereerdeWaarde = false; else _ToonGesuggereerdeWaarde = (_VerwachteBreedte > 0); end if; if (_ToonGesuggereerdeWaarde) then local double _BreedteSaldo = _VerwachteBreedte - (_BreedteX + _BreedteM + _BreedteY + _BreedteZ1 + _BreedteZ2); if (_AlleRugBreedtesIngevuld) then if ((_BreedteZ1 == 0) and (_BreedteZ2 == 0)) then _SuggestieZ1 = Round((_BreedteSaldo / 2) ; 0.1); _SuggestieZ2 = (_BreedteSaldo - _SuggestieZ1); // _SuggestieZ2 = _SuggestieZ1 , except when _SuggestieZ1 is rounded. else if (_BreedteZ1 == 0) then _SuggestieZ1 = _BreedteSaldo; end if; if (_BreedteZ2 == 0) then _SuggestieZ2 = _BreedteSaldo; end if; end if; else // (not _AlleRugBreedtesIngevuld) if ((_BreedteZ1 > 0) and (_BreedteZ2 > 0)) then if (_BreedteM > 0) then if ((_BreedteX == 0) and (_BreedteY == 0)) then _SuggestieX = Round((_BreedteSaldo / 2) ; 0.1); _SuggestieY = (_BreedteSaldo - _SuggestieX); // _SuggestieY = _SuggestieX , except when _SuggestieX is rounded. else if (_BreedteX == 0) then _SuggestieX = _BreedteSaldo; end if; if (_BreedteY == 0) then _SuggestieY = _BreedteSaldo; end if; end if; else // BreedteM == 0 if ((_BreedteX > 0) and (_BreedteY > 0)) then _SuggestieM = _BreedteSaldo; else _SuggestieX = 0; _SuggestieY = 0; if (_BreedteX == 0) then _SuggestieX = _BreedteY; end if; if (_BreedteY == 0) then _SuggestieY = _BreedteX; end if; _SuggestieM = (_BreedteSaldo - _SuggestieX - _SuggestieY); end if; end if; else // Combinatie van RugBreedtes en UitsparingBreedtes niet ingevuld : TO DO local boolean _dummy = true; end if; end if; end if; UI.Kenmerken.UitsparingData.X.GesuggereerdeWaarde = _SuggestieX; UI.Kenmerken.UitsparingData.M.GesuggereerdeWaarde = _SuggestieM; UI.Kenmerken.UitsparingData.Y.GesuggereerdeWaarde = _SuggestieY; UI.Kenmerken.UitsparingData.Z1.GesuggereerdeWaarde = _SuggestieZ1; UI.Kenmerken.UitsparingData.Z2.GesuggereerdeWaarde = _SuggestieZ2; Bereken GesuggereerdeWaarden Dubbele uitsparing ;ui.kenmerken.uitsparingdata.x.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.m.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.y.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z1.gesuggereerdewaarde@value;ui.kenmerken.uitsparingdata.z2.gesuggereerdewaarde@value; (DATA.Kenmerken.Toepassing in {"SY"}); local boolean _HeeftDubbeleUitsparing = (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); local double _TotaleBreedte = 0; local double _BreedteX = UI.Kenmerken.UitsparingData.X.BreedteRugdeel; local double _BreedteZ1 = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; local double _BreedteM = UI.Kenmerken.UitsparingData.M.BreedteRugdeel; local double _BreedteZ2 = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing; local double _BreedteY = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; _TotaleBreedte = _BreedteX + _BreedteZ1 + _BreedteY; if (_HeeftDubbeleUitsparing) then _TotaleBreedte = _TotaleBreedte + _BreedteM + _BreedteZ2; end if; UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte = _TotaleBreedte; Bereken TotaleBreedte ;ui.kenmerken.uitsparingdata.uitsparingdata_totalebreedte@value; UI.Kenmerken.UitsparingData@visible UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte = DATA.BerekendeWaarden.InterneBreedte; Instellen VerwachteBreedte bij Uitsparingen ;ui.kenmerken.uitsparingdata.uitsparingdata_verwachtebreedte@value; false //true // indien HeeftUitsparing local boolean _IsGeldigTotaleBreedte = (UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte == UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte); local string _ControlClass = ""; //"colorBlack"; if not(_IsGeldigTotaleBreedte) then _ControlClass = "eConInvalidField"; // ui-state-error""colorRed"; end if; UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte@style = "controlclass:" + _ControlClass; // _CssClassname; //UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte@styleClass = _CssClassname; UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte@visible = not(_IsGeldigTotaleBreedte); Visible en formatting - VerwachteBreedte ;ui.kenmerken.uitsparingdata.uitsparingdata_verwachtebreedte@visible; (RANGE.UitsparingDataBreedteX.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteX.Maximum == RANGE.UitsparingDataBreedteX.Minimum); UI.Kenmerken.UitsparingData.X.BreedteRugdeel@enabled = not(_IsVasteBreedte); Breedte X wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.x.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteM.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteM.Maximum == RANGE.UitsparingDataBreedteM.Minimum); UI.Kenmerken.UitsparingData.M.BreedteRugdeel@enabled = not(_IsVasteBreedte); Breedte M wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.m.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteY.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteY.Maximum == RANGE.UitsparingDataBreedteY.Minimum); UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@enabled = not(_IsVasteBreedte); Breedte Y wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.y.breedterugdeel@enabled; (RANGE.UitsparingDataBreedteZ1.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteZ1.Maximum == RANGE.UitsparingDataBreedteZ1.Minimum); UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@enabled = not(_IsVasteBreedte); Breedte Z1 wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@enabled; (RANGE.UitsparingDataBreedteZ2.Maximum > 0) local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteZ2.Maximum == RANGE.UitsparingDataBreedteZ2.Minimum); UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@enabled = not(_IsVasteBreedte); Breedte Z2 wordt read-only indien Range.Max = Range.Min ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@enabled; BEHAVIOR.IsEconAx and (CONFIG.ProcessMode == "Background") DATA.Kenmerken.UitsparingData.X.Hoogte = UI.Kenmerken.UitsparingData.X.Hoogte; DATA.Kenmerken.UitsparingData.X.Materiaal = UI.Kenmerken.UitsparingData.X.Materiaal; DATA.Kenmerken.UitsparingData.M.Hoogte = UI.Kenmerken.UitsparingData.M.Hoogte; DATA.Kenmerken.UitsparingData.M.Materiaal = UI.Kenmerken.UitsparingData.M.Materiaal; DATA.Kenmerken.UitsparingData.Y.Hoogte = UI.Kenmerken.UitsparingData.Y.Hoogte; DATA.Kenmerken.UitsparingData.Y.Materiaal = UI.Kenmerken.UitsparingData.Y.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Diepte = UI.Kenmerken.UitsparingData.Z1.Diepte; DATA.Kenmerken.UitsparingData.Z1.Hoogte = UI.Kenmerken.UitsparingData.Z1.Hoogte; DATA.Kenmerken.UitsparingData.Z1.Materiaal = UI.Kenmerken.UitsparingData.Z1.Materiaal; DATA.Kenmerken.UitsparingData.Z1.Vorm = UI.Kenmerken.UitsparingData.Z1.Vorm; DATA.Kenmerken.UitsparingData.Z2.Diepte = UI.Kenmerken.UitsparingData.Z2.Diepte; DATA.Kenmerken.UitsparingData.Z2.Hoogte = UI.Kenmerken.UitsparingData.Z2.Hoogte; DATA.Kenmerken.UitsparingData.Z2.Materiaal = UI.Kenmerken.UitsparingData.Z2.Materiaal; DATA.Kenmerken.UitsparingData.Z2.Vorm = UI.Kenmerken.UitsparingData.Z2.Vorm; /* // De Breedtes moeten ingevuld zijn in de EDI-input waarden DATA.Kenmerken.UitsparingData.X.Breedte = UI.Kenmerken.UitsparingData.X.BreedteRugdeel; DATA.Kenmerken.UitsparingData.M.Breedte = UI.Kenmerken.UitsparingData.M.BreedteRugdeel; DATA.Kenmerken.UitsparingData.Y.Breedte = UI.Kenmerken.UitsparingData.Y.BreedteRugdeel; DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; DATA.Kenmerken.UitsparingData.Z2.Breedte = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing; */ UitsparingData UI naar DATA (ax-background mode) ;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value; true UI.Kenmerken.UitsparingDataHart.X@label = TRL.HartX@label; UI.Kenmerken.UitsparingDataHart.Y@label = TRL.HartY@label; UI.Kenmerken.UitsparingDataHart.M@label = TRL.HartPositie@label; Labels instellen ; UI.Kenmerken.UitsparingDataHartToepassen == "True" UI.Kenmerken.UitsparingDataHartToepassen = ""; UI.Kenmerken.UitsparingData.X.BreedteRugDeel = UI.Kenmerken.UitsparingDataHart.X.BreedteRugDeel; UI.Kenmerken.UitsparingData.Y.BreedteRugDeel = UI.Kenmerken.UitsparingDataHart.Y.BreedteRugDeel; UI.Kenmerken.UitsparingData.M.BreedteRugDeel = UI.Kenmerken.UitsparingDataHart.M.BreedteRugDeel; UI.Kenmerken.UitsparingData.Z1.CodeUitsparing = UI.Kenmerken.UitsparingDataHart.Z1.CodeUitsparing; UI.Kenmerken.UitsparingData.Z2.CodeUitsparing = UI.Kenmerken.UitsparingDataHart.Z2.CodeUitsparing; Uitsparingwaarden overnemen ;ui.kenmerken.uitsparingdataharttoepassen@value;ui.kenmerken.uitsparingdata.x.breedterugdeel@value;ui.kenmerken.uitsparingdata.y.breedterugdeel@value;ui.kenmerken.uitsparingdata.m.breedterugdeel@value;ui.kenmerken.uitsparingdata.z1.codeuitsparing@value;ui.kenmerken.uitsparingdata.z2.codeuitsparing@value; true if (UI.Kenmerken.UitsparingDataHart.Z1.CodeUitsparing == "SY_Recht_M_D240_B160") then UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing = 160; end if; if (UI.Kenmerken.UitsparingDataHart.Z1.CodeUitsparing == "SY_Recht_M_D240_B300") then UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing = 300; end if; if (UI.Kenmerken.UitsparingDataHart.Z2.CodeUitsparing == "SY_Recht_M_D240_B160") then UI.Kenmerken.UitsparingDataHart.Z2.BreedteUitsparing = 160; end if; if (UI.Kenmerken.UitsparingDataHart.Z2.CodeUitsparing == "SY_Recht_M_D240_B300") then UI.Kenmerken.UitsparingDataHart.Z2.BreedteUitsparing = 300; end if; UI.Kenmerken.UitsparingDataHart.M.PositieHart = DATA.BerekendeWaarden.InterneBreedte / 2; if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then UI.Kenmerken.UitsparingDataHart.X.BreedteRugdeel = UI.Kenmerken.UitsparingDataHart.M.PositieHart - UI.Kenmerken.UitsparingDataHart.X.AfstandHart - (UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing / 2); UI.Kenmerken.UitsparingDataHart.Y.BreedteRugdeel = UI.Kenmerken.UitsparingDataHart.M.PositieHart - UI.Kenmerken.UitsparingDataHart.Y.AfstandHart - (UI.Kenmerken.UitsparingDataHart.Z2.BreedteUitsparing / 2); UI.Kenmerken.UitsparingDataHart.M.BreedteRugdeel = DATA.BerekendeWaarden.InterneBreedte - UI.Kenmerken.UitsparingDataHart.X.BreedteRugdeel - UI.Kenmerken.UitsparingDataHart.Y.BreedteRugdeel - UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing - UI.Kenmerken.UitsparingDataHart.Z2.BreedteUitsparing; end if; if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then if (UI.Kenmerken.UitsparingDataHart.X.AfstandHart == 0) then UI.Kenmerken.UitsparingDataHart.X.BreedteRugdeel = (DATA.BerekendeWaarden.InterneBreedte / 2) + UI.Kenmerken.UitsparingDataHart.Y.AfstandHart - (UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing / 2); UI.Kenmerken.UitsparingDataHart.Y.BreedteRugdeel = DATA.BerekendeWaarden.InterneBreedte - UI.Kenmerken.UitsparingDataHart.X.BreedteRugdeel - UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing; end if; if (UI.Kenmerken.UitsparingDataHart.Y.AfstandHart == 0) then UI.Kenmerken.UitsparingDataHart.Y.BreedteRugdeel = (DATA.BerekendeWaarden.InterneBreedte / 2) + UI.Kenmerken.UitsparingDataHart.X.AfstandHart - (UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing / 2); UI.Kenmerken.UitsparingDataHart.X.BreedteRugdeel = DATA.BerekendeWaarden.InterneBreedte - UI.Kenmerken.UitsparingDataHart.Y.BreedteRugdeel - UI.Kenmerken.UitsparingDataHart.Z1.BreedteUitsparing; end if; UI.Kenmerken.UitsparingDataHart.M.BreedteRugdeel = 0; end if; Berekening van hart naar standaard uitsparingwaarden ;ui.kenmerken.uitsparingdatahart.z1.breedteuitsparing@value;ui.kenmerken.uitsparingdatahart.z2.breedteuitsparing@value;ui.kenmerken.uitsparingdatahart.m.positiehart@value;ui.kenmerken.uitsparingdatahart.x.breedterugdeel@value;ui.kenmerken.uitsparingdatahart.y.breedterugdeel@value;ui.kenmerken.uitsparingdatahart.m.breedterugdeel@value; true if ((DATA.Kenmerken.Toepassing == "SY") and (BEHAVIOR.IsEconAx)) then UI.Kenmerken.IsUitsparingHartZichtbaar@visible = true; else UI.Kenmerken.IsUitsparingHartZichtbaar@visible = false; end if; if (UI.Kenmerken.IsUitsparingHartZichtbaar and DATA.Kenmerken.Toepassing == "SY") then UI.Kenmerken.UitsparingDataHartToepassen@visible = true; UI.Kenmerken.UitsparingDataHart@visible = true; else UI.Kenmerken.UitsparingDataHartToepassen@visible = false; UI.Kenmerken.UitsparingDataHart@visible = false; end if; if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then UI.Kenmerken.UitsparingDataHart.M@visible = true; UI.Kenmerken.UitsparingDataHart.Z2@visible = true; else UI.Kenmerken.UitsparingDataHart.M@visible = false; UI.Kenmerken.UitsparingDataHart.Z2@visible = false; end if; Gedrag UitsparingDataHart ;ui.kenmerken.isuitsparinghartzichtbaar@visible;ui.kenmerken.uitsparingdataharttoepassen@visible;ui.kenmerken.uitsparingdatahart@visible;ui.kenmerken.uitsparingdatahart.m@visible;ui.kenmerken.uitsparingdatahart.z2@visible; true local boolean _IsMaatwerkViewerToegelaten = false; if BEHAVIOR.IsEconAX then _IsMaatwerkViewerToegelaten = CONFIG.Settings.IsMaatwerkViewerToegelaten; end if; local boolean _BEHAVIOR_IsPanelMaatwerkViewerZichtbaar = (_IsMaatwerkViewerToegelaten == true); local boolean _BEHAVIOR_IsButtonMaatwerkViewerZichtbaar = (_IsMaatwerkViewerToegelaten == true); UI.MWViewer@visible = _BEHAVIOR_IsPanelMaatwerkViewerZichtbaar; UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible = _BEHAVIOR_IsButtonMaatwerkViewerZichtbaar; Gedrag MaatwerkViewer button visible ;ui.mwviewer@visible;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@visible; (UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible) local boolean _BEHAVIOR_IsButtonMaatwerkViewerEnabled = false; local long _AantalOngeldigeVelden = InvalidFields(); if _AantalOngeldigeVelden == 0 then _BEHAVIOR_IsButtonMaatwerkViewerEnabled = true; else if (_AantalOngeldigeVelden == 1) then DATA.Lijn.InvalidFieldSet@options = InvalidFieldSet(); if (DATA.Lijn.InvalidFieldSet@option(1)@id == "Ui.Lijn.Aantal") then _BEHAVIOR_IsButtonMaatwerkViewerEnabled = true; end if end if end if; // Tijdelijk : controle op valid fields negeren; Button steeds enabled // _BEHAVIOR_IsButtonMaatwerkViewerEnabled = true; UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@enabled = _BEHAVIOR_IsButtonMaatwerkViewerEnabled; Gedrag MaatwerkViewer button enabled ;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@enabled; (UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible) UI.MWViewer.BerekenAantal@default = 1; UI.MWViewer.BerekenKlantnummer@default = CONFIG.Settings.KlantId; UI.MWViewer.BerekenDatum@default = ""; // Default = Now UI.MWViewer.FileSuffixVast@default = "001"; UI.MWViewer.HeeftVasteFileSuffix@default = false; Initialiseer MaatwerkViewer velden ;ui.mwviewer.berekenaantal@default;ui.mwviewer.berekenklantnummer@default;ui.mwviewer.berekendatum@default;ui.mwviewer.filesuffixvast@default;ui.mwviewer.heeftvastefilesuffix@default; true UI.MWViewer.FileSuffixVast@visible = (UI.MWViewer.HeeftVasteFileSuffix == true); Visible - TimeSuffixVast ;ui.mwviewer.filesuffixvast@visible; (UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible) and (STATE.StartMaatwerkViewer == true) // local collection _PropertyNamen = {"Data.Kenmerken.Familie";"Data.Kenmerken.Variant";"Data.Kenmerken.BodemKleur";"Data.Kenmerken.Draagkracht"}; // Vreemd genoeg lukt het niet via een locale collection :-( // Dan maar via een array-Property CONFIG.WebService.PropertyNamen@length = 999; local string _NumPrefix = "NUM;"; // de numerieke properties moeten met deze prefix aangeduid worden, want moeten omgezet worden van "," naar "." voor de webservice request. local Long _i = 0; // Hoofdletters (Firstcase) zoals de "eCon-ConfigAnalyse Namen" : _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Familie"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Variant"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Bodemkleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Corpusbreedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Corpuswanddikte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Draagkracht"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Dwarsverdelingaantal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Dwarsverdelingtype"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Frontbevestiging"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Geleidertechnologie"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftmat"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftafwijkenderughoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftopvullijstlinks"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftopvullijstrechts"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftzijstabilisering"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Isbinnenbreedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Isbinnenlade"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladediepte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladehoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladekleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladekleurbuiten"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matkleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matmateriaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Meenemerset"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkapbinnen"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkapbuiten"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkaprugwandhouder"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_bevestigingbodemfront"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_inschuifelementvoor"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_inschuifelementzijkant"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_opvullijst"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionseteenhedenenmeenemers"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionsynchronisatiestang"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_zijstabilisering"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Opvullijstkleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Productiewijze"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Rughoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Rugwandmateriaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Breedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Diepte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Hoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Kleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Uitvoering"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Bewegingstechnologie"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Stekkerservodrive"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Spacestep.Stekkertype"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Toepassing"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Uitsparingaantal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.M.Breedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Hoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Materiaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.X.Breedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Hoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Materiaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Y.Breedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Hoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Materiaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Z1.Breedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Diepte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Hoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Materiaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Vorm"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Z2.Breedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Diepte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Hoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Materiaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Vorm"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Voorwandtypevancbinnenlade"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Voorwandtypevanmbinnenlade"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Voorwandtypevankbinnenlade"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Verpakkingtype"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandtype"; CONFIG.WebService.PropertyNamen@length = _i; /* // ========================================== // !!! LET OP !!! Hetvolgende werkt NIET !!! // ========================================== // Hoofdletters (UpperCamelCase) zoals de "eCon-property Namen" : _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Familie"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Variant"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.BodemKleur"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Draagkracht"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.FrontBevestiging"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.GeleiderTechnologie"; ... _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.ZijwandVerhogingType"; */ MaatwerkViewer Properties in Array steken ;config.webservice.propertynamen[1]@value; (STATE.StartMaatwerkViewer == true) STATE.StartMaatwerkViewer = false; // ================================ // Initialisatie // ================================ local string _XmlRequest = ""; local string _Service = GetSetting("data.vanhoecke.connectionstring.cache.maatwerkviewerservice"); local string _Variant = Data.Kenmerken.Variant; local string _TimeSuffix = "001"; local string _FileSuffixVast = UI.MWViewer.FileSuffixVast; if (UI.MWViewer.HeeftVasteFileSuffix) then _FileSuffixVast = replace(_FileSuffixVast; ":"; ""); _FileSuffixVast = replace(_FileSuffixVast; "?"; ""); _FileSuffixVast = replace(_FileSuffixVast; "*"; ""); _FileSuffixVast = replace(_FileSuffixVast; "/"; ""); _FileSuffixVast = replace(_FileSuffixVast; "\\"; ""); _FileSuffixVast = replace(_FileSuffixVast; "<"; ""); _FileSuffixVast = replace(_FileSuffixVast; ">"; ""); _FileSuffixVast = Trim(_FileSuffixVast); end if; if (UI.MWViewer.HeeftVasteFileSuffix and (_FileSuffixVast <> "") ) then _TimeSuffix = _FileSuffixVast; else _TimeSuffix = CStr(Year()) + CStr(Month()) + CStr(Day()) + "_" + CStr(Hour()) + "" + CStr(Minute()) + "" + CStr(Second()); end if; local string _PersonalityId = Config.Settings.PersonalityId; local string _BerekenKlantNummer = CStr(UI.MWViewer.BerekenKlantnummer); local string _BerekenAantal = CStr(UI.MWViewer.BerekenAantal); local string _BerekenDatum = CStr(UI.MWViewer.BerekenDatum); local string _Username = "WimV-TEST"; local string _Filename = "maatwerkviewer_" + _Variant + "_" + _TimeSuffix + ".txt"; // File extension : .txt OF .xls //local string _Filepath = "\\\\Notes01\\shared\\w v\\"; local string _Filepath = "\\\\Notes01\\shared\\AX\\e-Con_MaatwerkViewer\\"; local string _FullFilename = _Filepath + _Filename; local string _EconConfiguratieKVPs = ""; local string _PropertyNaam = ""; local string _PropertyWaarde = ""; // ================================ // Lokale Development/Debugging (tijdelijk) // ================================ /* * / local boolean _WebServiceAfleidenNaarLokalePC = false; if _WebServiceAfleidenNaarLokalePC then _Service = replace(_Service; "cachestaging2010"; "WV-W10"); _FullFilename = "\\\\WV-W10\\D$\\Temp\\maatwerkviewer_LBX_001.xls"; end if; /* */ // ================================ // Fallback Default values // ================================ if (_PersonalityId == "") then _PersonalityId = "1"; end if; if (_BerekenKlantNummer == "") then _BerekenKlantNummer = "6819"; end if; if (_BerekenAantal == "") or (_BerekenAantal == "0") then _BerekenAantal = "1"; end if; // ==================================== // Kenmerken KeyValuePairs opbouwen // ==================================== index i of CONFIG.WebService.PropertyNamen _PropertyNaam = CONFIG.WebService.PropertyNamen(i); if Mid(_PropertyNaam; 1; 4) == "NUM;" then _PropertyNaam = Mid(_PropertyNaam; 5); // "NUM;" prefix afkappen. _PropertyWaarde = Replace(CStr(Eval(_PropertyNaam)); ","; "."); else _PropertyWaarde = CStr(Eval(_PropertyNaam)); end if; _EconConfiguratieKVPs = _EconConfiguratieKVPs + " <view:String EconConfiguratieKey='" + _PropertyNaam + "'>" + _PropertyWaarde + "</view:String> "; end index; // ================================ // _XmlRequest opbouwen // ================================ _XmlRequest = _XmlRequest + "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:view='http://www.vanhoecke.be/WS/PM/Maatwerk/Viewer/Viewer'>"; _XmlRequest = _XmlRequest + "<soapenv:Header/>"; _XmlRequest = _XmlRequest + "<soapenv:Body>"; _XmlRequest = _XmlRequest + "<view:SchrijfPlatteTekst>"; // WebMethod : SchrijfPlatteTekst OF SchrijfExcel _XmlRequest = _XmlRequest + "<view:MaatwerkViewerRequest>"; /* * / // Request Header is niet voorzien in het Caché-object WS.PM.Maatwerk.Viewer.MaatwerkViewerRequest, dus hier niet toevoegen, anders zal de WS-call crashen. _XmlRequest = _XmlRequest + "<view:Header>"; _XmlRequest = _XmlRequest + "<view:PersonalityID>" + _PersonalityId + "</view:PersonalityID>"; _XmlRequest = _XmlRequest + "</view:Header>"; /* */ _XmlRequest = _XmlRequest + "<view:KlantNummer>" + _BerekenKlantNummer + "</view:KlantNummer>"; _XmlRequest = _XmlRequest + "<view:Aantal>" + _BerekenAantal + "</view:Aantal>"; _XmlRequest = _XmlRequest + "<view:Datum>" + _BerekenDatum + "</view:Datum>"; _XmlRequest = _XmlRequest + "<view:Username>" + _Username + "</view:Username>"; _XmlRequest = _XmlRequest + "<view:Filename>" + _FullFilename + "</view:Filename>"; _XmlRequest = _XmlRequest + "<view:EconConfiguratie>" + _EconConfiguratieKVPs + "</view:EconConfiguratie>"; _XmlRequest = _XmlRequest + "</view:MaatwerkViewerRequest>"; _XmlRequest = _XmlRequest + "</view:SchrijfPlatteTekst>"; // WebMethod : SchrijfPlatteTekst OF SchrijfExcel _XmlRequest = _XmlRequest + "</soapenv:Body>"; _XmlRequest = _XmlRequest + "</soapenv:Envelope>"; // ================================ // WebService call uitvoeren // ================================ local boolean _Result = LoadFromXMLService("CONFIG.WebService.MaatwerkViewerSchrijfExcel.ResultaatDummy"; _Service; false; _XmlRequest); local string _Status = ""; local string _Feedback = ""; if (_Result) then _Status = "Gelukt: "; STATE.MaatwerkViewerServiceLoaded = true; UI.MWViewer.OutputFilePath = _FullFileName; else _Status = "Mislukt: "; STATE.MaatwerkViewerServiceLoaded = false; UI.MWViewer.OutputFilePath = "[Error]"; end if; // Debugging info : _Feedback = "Resultaat van de web service 'MaatwerkViewer in Excel' Status ='" + _Status + "'. " + "\n" + "(LET OP: Soap fault wordt ook als succes teruggegeven)"; local long _FeedbackResult = MsgBox(_Feedback); // AaaDebugInfo = _Status + _Service; MaatwerkViewer starten ;state.startmaatwerkviewer@value;state.maatwerkviewerserviceloaded@value;ui.mwviewer.outputfilepath@value; true if(DATA.Kenmerken.Toepassing == "SST") then $SpaceStepPane@visible = true; else $SpaceStepPane@visible = false; end if; Is SpaceStepPane visible ; DATA.Kenmerken.Toepassing == "SST" DATA.Kenmerken.SpaceStep.Kleur = "OG-M"; DATA.Kenmerken.SpaceStep.Uitvoering = "Volledig"; //DARO if (Config.Settings.PersonalityId == "10") then DATA.Kenmerken.SpaceStep.StekkerType = "UK"; else DATA.Kenmerken.SpaceStep.StekkerType = "EU"; end if; Defaults voor SpaceStep ;data.kenmerken.spacestep.kleur@value;data.kenmerken.spacestep.uitvoering@value;data.kenmerken.spacestep.stekkertype@value; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local boolean _IsIntern = (BEHAVIOR.AccessMode == "Intern") local boolean _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; local boolean _BEHAVIOR_IsSpaceStepPaneZichtbaar; local boolean _BEHAVIOR_IsRugwandMateriaalZichtbaar; local boolean _BEHAVIOR_IsStekkerServodriveZichtbaar; local boolean _BEHAVIOR_IsStekkerTypeMandatory; if($SpaceStepPane@visible) then _BEHAVIOR_IsSpaceStepPaneZichtbaar = true; else _BEHAVIOR_IsSpaceStepPaneZichtbaar = false; end if; if((DATA.Kenmerken.SpaceStep.Uitvoering == "Volledig") or (DATA.Kenmerken.Toepassing <> "SST")) then _BEHAVIOR_ZijnLadeKenmerkenZichtbaar = true; else _BEHAVIOR_ZijnLadeKenmerkenZichtbaar = false; end if; if(_IsIntern and _BEHAVIOR_ZijnLadeKenmerkenZichtbaar and not(BEHAVIOR.OperationMode == "CreateConfig")) then _BEHAVIOR_IsRugwandMateriaalZichtbaar = true; else _BEHAVIOR_IsRugwandMateriaalZichtbaar = false; end if; if(DATA.Kenmerken.SpaceStep.Bewegingstechnologie == "Servodrive" and _BEHAVIOR_IsSpaceStepPaneZichtbaar) then _BEHAVIOR_IsStekkerServodriveZichtbaar = true; else _BEHAVIOR_IsStekkerServodriveZichtbaar = false; end if; if(DATA.Kenmerken.SpaceStep.StekkerServodrive) then _BEHAVIOR_IsStekkerTypeMandatory = true; else _BEHAVIOR_IsStekkerTypeMandatory = false; end if; $DimensiesPane@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar); UI.Kenmerken.IsBinnenLade@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar); UI.Kenmerken.Geleidertechnologie@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar); UI.Kenmerken.Draagkracht@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar); UI.Kenmerken.HeeftOpvullijstLinks@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar); UI.Kenmerken.HeeftOpvullijstRechts@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar); UI.Kenmerken.DwarsverdelingAantal@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar); UI.Kenmerken.HeeftZijstabilisering@visible = not(_BEHAVIOR_IsSpaceStepPaneZichtbaar); UI.Kenmerken.ZijwandType@visible = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; UI.Kenmerken.LadeKleur@visible = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; UI.Kenmerken.BodemKleur@visible = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; $MatPane@visible = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; UI.Kenmerken.RugwandMateriaal@visible = _BEHAVIOR_IsRugwandMateriaalZichtbaar; UI.Kenmerken.SpaceStep.StekkerServodrive@visible = _BEHAVIOR_IsStekkerServodriveZichtbaar; UI.Kenmerken.LadeKleur@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; UI.Kenmerken.BodemKleur@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; UI.Kenmerken.RugwandMateriaal@mandatory = _BEHAVIOR_IsRugwandMateriaalZichtbaar; UI.Kenmerken.ZijwandType@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; UI.Kenmerken.LadeDiepte@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; UI.Kenmerken.LadeHoogte@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; UI.Kenmerken.Corpusbreedte@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; UI.Kenmerken.Draagkracht@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; UI.Kenmerken.Corpusbreedte@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; UI.Kenmerken.Geleidertechnologie@mandatory = _BEHAVIOR_ZijnLadeKenmerkenZichtbaar; UI.Kenmerken.SpaceStep.Sokkelbreedte@mandatory = _BEHAVIOR_IsSpaceStepPaneZichtbaar; UI.Kenmerken.SpaceStep.Sokkelhoogte@mandatory = _BEHAVIOR_IsSpaceStepPaneZichtbaar; UI.Kenmerken.SpaceStep.Uitvoering@mandatory = _BEHAVIOR_IsSpaceStepPaneZichtbaar; UI.Kenmerken.SpaceStep.Sokkeldiepte@mandatory = _BEHAVIOR_IsSpaceStepPaneZichtbaar; UI.Kenmerken.SpaceStep.Bewegingstechnologie@mandatory = _BEHAVIOR_IsSpaceStepPaneZichtbaar; UI.Kenmerken.SpaceStep.Kleur@mandatory = _BEHAVIOR_IsSpaceStepPaneZichtbaar; //UI.Kenmerken.SpaceStep.StekkerServodrive@mandatory = false; UI.Kenmerken.SpaceStep.StekkerType@mandatory = _BEHAVIOR_IsStekkerTypeMandatory; UI.Kenmerken.SpaceStep.Kleur@visible = false; UI.Kenmerken.SpaceStep.StekkerType@visible = false; UI.Kenmerken.SpaceStep.Uitvoering@option("SokkelEnTablet")@visible = false; UI.Kenmerken.SpaceStep.Uitvoering@option("Tablet")@visible = false; Kenmerken verbergen/mandatory aanpassen indien SpaceStep ;ui.kenmerken.isbinnenlade@visible;ui.kenmerken.geleidertechnologie@visible;ui.kenmerken.draagkracht@visible;ui.kenmerken.heeftopvullijstlinks@visible;ui.kenmerken.heeftopvullijstrechts@visible;ui.kenmerken.dwarsverdelingaantal@visible;ui.kenmerken.heeftzijstabilisering@visible;ui.kenmerken.zijwandtype@visible;ui.kenmerken.ladekleur@visible;ui.kenmerken.bodemkleur@visible;ui.kenmerken.rugwandmateriaal@visible;ui.kenmerken.spacestep.stekkerservodrive@visible;ui.kenmerken.ladekleur@mandatory;ui.kenmerken.bodemkleur@mandatory;ui.kenmerken.rugwandmateriaal@mandatory;ui.kenmerken.zijwandtype@mandatory;ui.kenmerken.ladediepte@mandatory;ui.kenmerken.ladehoogte@mandatory;ui.kenmerken.corpusbreedte@mandatory;ui.kenmerken.draagkracht@mandatory;ui.kenmerken.geleidertechnologie@mandatory;ui.kenmerken.spacestep.sokkelbreedte@mandatory;ui.kenmerken.spacestep.sokkelhoogte@mandatory;ui.kenmerken.spacestep.uitvoering@mandatory;ui.kenmerken.spacestep.sokkeldiepte@mandatory;ui.kenmerken.spacestep.bewegingstechnologie@mandatory;ui.kenmerken.spacestep.kleur@mandatory;ui.kenmerken.spacestep.stekkertype@mandatory;ui.kenmerken.spacestep.kleur@visible;ui.kenmerken.spacestep.stekkertype@visible;ui.kenmerken.spacestep.uitvoering@options; UI.Kenmerken.Toepassing == "SST" and UI.Kenmerken.SpaceStep.Uitvoering == "Volledig" local long _DiktePlaatmateriaal = 18; local long _DikteBlumOpvullijst = 50; DATA.Kenmerken.Draagkracht = "40"; DATA.Kenmerken.HeeftOpvullijstLinks = false; DATA.Kenmerken.HeeftOpvullijstRechts = false; DATA.Kenmerken.DwarsverdelingAantal = "0"; DATA.Kenmerken.HeeftZijstabilisering = false; DATA.Kenmerken.IsBinnenLade = false; DATA.Kenmerken.IsBinnenBreedte = true; DATA.Kenmerken.ProductieWijze = "V"; DATA.Kenmerken.Corpusbreedte = DATA.Kenmerken.SpaceStep.Breedte - (2*_DiktePlaatmateriaal) - (2*_DikteBlumOpvullijst); if(DATA.Kenmerken.SpaceStep.Diepte == "505") then DATA.Kenmerken.LadeDiepte = "450"; end if; if(DATA.Kenmerken.SpaceStep.Diepte == "555") then DATA.Kenmerken.LadeDiepte = "500"; end if; if(DATA.Kenmerken.SpaceStep.Hoogte >= 150 and DATA.Kenmerken.SpaceStep.Hoogte < 166) then DATA.Kenmerken.LadeHoogte = "N"; end if; if(DATA.Kenmerken.SpaceStep.Hoogte >= 166 and DATA.Kenmerken.SpaceStep.Hoogte < 204) then DATA.Kenmerken.LadeHoogte = "M"; end if; if(DATA.Kenmerken.SpaceStep.Hoogte >= 204 and DATA.Kenmerken.SpaceStep.Hoogte <= 250) then DATA.Kenmerken.LadeHoogte = "K"; end if; if(DATA.Kenmerken.SpaceStep.Bewegingstechnologie == "TOB") then DATA.Kenmerken.Geleidertechnologie = "TOB"; else DATA.Kenmerken.Geleidertechnologie = "B"; end if; Values bij SpaceStep met lade ;data.kenmerken.draagkracht@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenlade@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.productiewijze@value;data.kenmerken.corpusbreedte@value;data.kenmerken.ladediepte@value;data.kenmerken.ladehoogte@value;data.kenmerken.geleidertechnologie@value; UI.Kenmerken.Toepassing == "SST" and UI.Kenmerken.SpaceStep.Uitvoering <> "Volledig" and UI.Kenmerken.SpaceStep.Uitvoering <> "" DATA.Kenmerken.Geleidertechnologie = ""; DATA.Kenmerken.Draagkracht = ""; DATA.Kenmerken.HeeftOpvullijstLinks = false; DATA.Kenmerken.HeeftOpvullijstRechts = false; DATA.Kenmerken.DwarsverdelingAantal = "0"; DATA.Kenmerken.HeeftZijstabilisering = false; DATA.Kenmerken.IsBinnenBreedte = true; DATA.Kenmerken.Rugwandmateriaal = ""; DATA.Kenmerken.IsBinnenLade = false; DATA.Kenmerken.LadeKleur = ""; DATA.Kenmerken.BodemKleur = ""; DATA.Kenmerken.LadeDiepte = ""; DATA.Kenmerken.Corpusbreedte = 0; DATA.Kenmerken.HeeftMat = false; DATA.Kenmerken.MatMateriaal = ""; DATA.Kenmerken.ProductieWijze = "V"; index i of UI.Kenmerken.NietMeeleveren UI.Kenmerken.NietMeeleveren(i).IsSelected = false; end index; if(DATA.Kenmerken.SpaceStep.Hoogte >= 150 and DATA.Kenmerken.SpaceStep.Hoogte < 166) then DATA.Kenmerken.LadeHoogte = "N"; end if; if(DATA.Kenmerken.SpaceStep.Hoogte >= 166 and DATA.Kenmerken.SpaceStep.Hoogte < 204) then DATA.Kenmerken.LadeHoogte = "M"; end if; if(DATA.Kenmerken.SpaceStep.Hoogte >= 204 and DATA.Kenmerken.SpaceStep.Hoogte <= 250) then DATA.Kenmerken.LadeHoogte = "K"; end if; Values bij SpaceStep zonder lade ;data.kenmerken.geleidertechnologie@value;data.kenmerken.draagkracht@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.rugwandmateriaal@value;data.kenmerken.isbinnenlade@value;data.kenmerken.ladekleur@value;data.kenmerken.bodemkleur@value;data.kenmerken.ladediepte@value;data.kenmerken.corpusbreedte@value;data.kenmerken.heeftmat@value;data.kenmerken.matmateriaal@value;data.kenmerken.productiewijze@value;data.kenmerken.ladehoogte@value; not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) if (DATA.Kenmerken.Toepassing <> "SST") then DATA.Kenmerken.SpaceStep.Breedte = 0; DATA.Kenmerken.SpaceStep.Hoogte = 0; DATA.Kenmerken.SpaceStep.Diepte = ""; DATA.Kenmerken.SpaceStep.Kleur = ""; DATA.Kenmerken.SpaceStep.Uitvoering = ""; DATA.Kenmerken.SpaceStep.Bewegingstechnologie = ""; DATA.Kenmerken.SpaceStep.StekkerServodrive = false; DATA.Kenmerken.SpaceStep.StekkerType = ""; else if (DATA.Kenmerken.SpaceStep.Bewegingstechnologie <> "Servodrive") then DATA.Kenmerken.SpaceStep.StekkerServodrive = false; end if; end if; Values verborgen SpaceStep properties wissen ;data.kenmerken.spacestep.breedte@value;data.kenmerken.spacestep.hoogte@value;data.kenmerken.spacestep.diepte@value;data.kenmerken.spacestep.kleur@value;data.kenmerken.spacestep.uitvoering@value;data.kenmerken.spacestep.bewegingstechnologie@value;data.kenmerken.spacestep.stekkerservodrive@value;data.kenmerken.spacestep.stekkertype@value; true UI.Kenmerken.CorpusWanddikte@mandatory = not(UI.Kenmerken.IsBinnenbreedte); UI.Kenmerken.CorpusWanddikte@visible = not(UI.Kenmerken.IsBinnenbreedte); CorpusWanddikte ;ui.kenmerken.corpuswanddikte@mandatory;ui.kenmerken.corpuswanddikte@visible; true local boolean BHAVIOR_IsLadeKleurBuitenVisible = false; local boolean BHAVIOR_IsLadeKleurBuitenMandatory = false; local string DummyTrigger = DATA.Kenmerken.ZijwandType; If (DATA.Kenmerken.ZijwandType == "Design") then BHAVIOR_IsLadeKleurBuitenVisible = true; BHAVIOR_IsLadeKleurBuitenMandatory = true; end if; UI.kenmerken.LadeKleurBuiten@visible = BHAVIOR_IsLadeKleurBuitenVisible; UI.kenmerken.LadeKleurBuiten@mandatory = BHAVIOR_IsLadeKleurBuitenMandatory; LadeKleurBuiten ;ui.kenmerken.ladekleurbuiten@visible;ui.kenmerken.ladekleurbuiten@mandatory; true local boolean _HeeftMatAntislipFiberKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AF")); UI.Kenmerken.MatAntislipFiberKleur@mandatory = _HeeftMatAntislipFiberKleur; UI.Kenmerken.MatAntislipFiberKleur@visible = _HeeftMatAntislipFiberKleur; local boolean _HeeftBulkMatAntislipFiberKleur = ((UI.BulkKenmerken.HeeftMat == "True") and (UI.BulkKenmerken.MatMateriaal.Value == "AF") and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})); UI.BulkKenmerken.MatAntislipFiberKleur@mandatory = _HeeftBulkMatAntislipFiberKleur; UI.BulkKenmerken.MatAntislipFiberKleur@visible = _HeeftBulkMatAntislipFiberKleur; MatAntislipFiberKleur ;ui.kenmerken.matantislipfiberkleur@mandatory;ui.kenmerken.matantislipfiberkleur@visible;ui.bulkkenmerken.matantislipfiberkleur@mandatory;ui.bulkkenmerken.matantislipfiberkleur@visible; true local boolean _HeeftMatAntislipFlockKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AZ")); UI.Kenmerken.MatAntislipFlockKleur@mandatory = _HeeftMatAntislipFlockKleur; UI.Kenmerken.MatAntislipFlockKleur@visible = _HeeftMatAntislipFlockKleur; local boolean _HeeftBulkMatAntislipFlockKleur = ((UI.BulkKenmerken.HeeftMat == "True") and (UI.BulkKenmerken.MatMateriaal.Value == "AZ") and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})); UI.BulkKenmerken.MatAntislipFlockKleur@mandatory = _HeeftBulkMatAntislipFlockKleur; UI.BulkKenmerken.MatAntislipFlockKleur@visible = _HeeftBulkMatAntislipFlockKleur; MatAntislipFlockKleur ;ui.kenmerken.matantislipflockkleur@mandatory;ui.kenmerken.matantislipflockkleur@visible;ui.bulkkenmerken.matantislipflockkleur@mandatory;ui.bulkkenmerken.matantislipflockkleur@visible; true local boolean _HeeftMatAntislipKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AS")); UI.Kenmerken.MatAntislipKleur@mandatory = _HeeftMatAntislipKleur; UI.Kenmerken.MatAntislipKleur@visible = _HeeftMatAntislipKleur; MatAntislipKleur ;ui.kenmerken.matantislipkleur@mandatory;ui.kenmerken.matantislipkleur@visible; true UI.Kenmerken.MatMateriaal@mandatory = UI.Kenmerken.HeeftMat; UI.Kenmerken.MatMateriaal@visible = UI.Kenmerken.HeeftMat; UI.BulkKenmerken.MatMateriaal@mandatory = (UI.BulkKenmerken.HeeftMat == "True"); UI.BulkKenmerken.MatMateriaal@visible = (UI.BulkKenmerken.HeeftMat == "True"); MatMateriaal ;ui.kenmerken.matmateriaal@mandatory;ui.kenmerken.matmateriaal@visible;ui.bulkkenmerken.matmateriaal@mandatory;ui.bulkkenmerken.matmateriaal@visible; true local boolean _HeeftMatVinylFiberglassKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "CF")); UI.Kenmerken.MatVinylFiberglassKleur@mandatory = _HeeftMatVinylFiberglassKleur; UI.Kenmerken.MatVinylFiberglassKleur@visible = _HeeftMatVinylFiberglassKleur; local boolean _HeeftBulkMatVinylFiberglassKleur = ((UI.BulkKenmerken.HeeftMat == "True") and (UI.BulkKenmerken.MatMateriaal.Value == "CF") and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"})); UI.BulkKenmerken.MatVinylFiberglassKleur@mandatory = _HeeftBulkMatVinylFiberglassKleur; UI.BulkKenmerken.MatVinylFiberglassKleur@visible = _HeeftBulkMatVinylFiberglassKleur; MatVinylFiberglassKleur ;ui.kenmerken.matvinylfiberglasskleur@mandatory;ui.kenmerken.matvinylfiberglasskleur@visible;ui.bulkkenmerken.matvinylfiberglasskleur@mandatory;ui.bulkkenmerken.matvinylfiberglasskleur@visible; true local boolean _HeeftOpvullijst = (UI.Kenmerken.HeeftOpvullijstLinks or UI.Kenmerken.HeeftOpvullijstRechts); UI.Kenmerken.OpvullijstKleur@mandatory = _HeeftOpvullijst; UI.Kenmerken.OpvullijstKleur@visible = _HeeftOpvullijst; UI.Kenmerken.OpvullijstDikte@visible = _HeeftOpvullijst; index i of UI.Kenmerken.NietMeeleveren if (UI.Kenmerken.NietMeeleveren(i).Id == "Opvullijst") then UI.Kenmerken.NietMeeleveren(i)@visible = (_HeeftOpvullijst and Not(Config.Settings.NietMeeleverenVerbergen)); end if; end index; Opvullijst ;ui.kenmerken.opvullijstkleur@mandatory;ui.kenmerken.opvullijstkleur@visible;ui.kenmerken.opvullijstdikte@visible; true local boolean _HeeftVoorwandTypeC = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "C")); UI.Kenmerken.VoorwandTypeVanCBinnenlade@mandatory = _HeeftVoorwandTypeC; UI.Kenmerken.VoorwandTypeVanCBinnenlade@visible = _HeeftVoorwandTypeC; VoorwandTypeVanCBinnenlade ;ui.kenmerken.voorwandtypevancbinnenlade@mandatory;ui.kenmerken.voorwandtypevancbinnenlade@visible; true local boolean _HeeftVoorwandTypeM = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "M")); UI.Kenmerken.VoorwandTypeVanMBinnenlade@mandatory = _HeeftVoorwandTypeM; UI.Kenmerken.VoorwandTypeVanMBinnenlade@visible = _HeeftVoorwandTypeM; VoorwandTypeVanMBinnenlade ;ui.kenmerken.voorwandtypevanmbinnenlade@mandatory;ui.kenmerken.voorwandtypevanmbinnenlade@visible; true local boolean _HeeftVoorwandTypeK = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "K")); UI.Kenmerken.VoorwandTypeVanKBinnenlade@visible = _HeeftVoorwandTypeK; UI.Kenmerken.VoorwandTypeVanKBinnenlade@mandatory = _HeeftVoorwandTypeK; VoorwandTypeVanKBinnenlade ;ui.kenmerken.voorwandtypevankbinnenlade@visible;ui.kenmerken.voorwandtypevankbinnenlade@mandatory; true local boolean _HeeftVoorwandTypeK = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "K")); local boolean _HeeftVoorwandTypeM = ((UI.Kenmerken.IsBinnenlade) and (UI.Kenmerken.LadeHoogte == "M")); local boolean _HeeftMeenemerSet = (_HeeftVoorwandTypeK or _HeeftVoorwandTypeM); UI.Kenmerken.MeenemerSet@visible = _HeeftMeenemerSet; UI.Kenmerken.MeenemerSet@mandatory = _HeeftMeenemerSet; MeenemerSet ;ui.kenmerken.meenemerset@visible;ui.kenmerken.meenemerset@mandatory; true local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); UI.Kenmerken.VerpakkingType@visible = Not(Config.Settings.VerpakkingTypeVerbergen); UI.BulkKenmerken.VerpakkingType@visible = Not(Config.Settings.VerpakkingTypeVerbergen); index i of UI.Kenmerken.NietMeeleveren UI.Kenmerken.NietMeeleveren(i)@visible = (UI.Kenmerken.NietMeeleveren(i)@visible and Not(Config.Settings.NietMeeleverenVerbergen)); end index; Visible properties ;ui.kenmerken.verpakkingtype@visible;ui.bulkkenmerken.verpakkingtype@visible; false //STATE.Saved //true //local string _Language = GetArg("language"); //local string _Model = GetModel(); UI.Url.OverzichtParameters@length = 2; UI.Url.OverzichtParameters[1].Key = GetLocalizedLabel(UI.Kenmerken.LadeKleur.Value); UI.Url.OverzichtParameters[1].Value = GetLocalizedLabel("bla"); UI.Url.OverzichtParameters[2].Key = GetLocalizedLabel(UI.Kenmerken.BodemKleur.Value); UI.Url.OverzichtParameters[2].Value = GetLocalizedLabel("bla"); local string _BaseUrl = "http://ax-e-con-dev/econsql/VHTest/index.html"; local string _QueryString = ""; if (UI.Url.OverzichtParameters@length > 0) then _QueryString = "?"; end if; index i of UI.Url.OverzichtParameters _QueryString = _QueryString + UI.Url.OverzichtParameters(i).Key + "=" + UI.Url.OverzichtParameters(i).Value; if (i < UI.Url.OverzichtParameters@length) then _QueryString = _QueryString + "&"; end if; end index; UI.Url.Overzicht = _BaseUrl + _QueryString; Output = UI.Url.Overzicht; //Flag = false; Overzicht updaten ;ui.url.overzichtparameters[1].key@value;ui.url.overzichtparameters[1].value@value;ui.url.overzichtparameters[2].key@value;ui.url.overzichtparameters[2].value@value;ui.url.overzicht@value;output@value; (DATA.BerekendeWaarden.AfbeeldingCode <> "") //local string _Url = "./images/Vanhoecke/tbx/AfbeeldingCode/tbx_AB_ER.jpg"; local string _Url = "./images/Vanhoecke/lbx/Test/" + DATA.BerekendeWaarden.AfbeeldingCode + ".svg"; //local string _Url = "http://res.vanhoecke.be/Images/GENERIEK/LEGRA_BOX/" + DATA.BerekendeWaarden.AfbeeldingCode + ".svg"; UI.Image = _Url; //@style = "imgsrc:" + _Url + ";"; Image updaten ;ui.image@value; true local string _Model = GetModel(); if not(Data.Kenmerken.LadeHoogte == "") then UI.StatusBalk.Code = Data.Kenmerken.LadeHoogte ; if (Data.Kenmerken.IsBinnenlade) then UI.StatusBalk.Code = Data.Kenmerken.LadeHoogte + "/Z"; end if; end if; if not(Data.Kenmerken.LadeDiepte == "") then UI.StatusBalk.LadeDiepte = Data.Kenmerken.LadeDiepte ; end if; UI.StatusBalk.CorpusBreedte = CInternal(Data.Kenmerken.CorpusBreedte) + " mm"; if not(Data.Kenmerken.isBinnenBreedte) then UI.StatusBalk.Wand = CInternal(Data.Kenmerken.CorpusWanddikte) + " mm"; else UI.StatusBalk.Wand = "B"; end if; if not(Data.Kenmerken.Draagkracht == "") then UI.StatusBalk.Draagkracht = Data.Kenmerken.Draagkracht + " kg" ; end if; local string _FrontBevestigingOptionLabel = DATA.Kenmerken.FrontBevestiging@id + "_" + DATA.Kenmerken.FrontBevestiging@option(DATA.Kenmerken.FrontBevestiging)@id; if (not(Data.Kenmerken.FrontBevestiging == "") and not(Data.Kenmerken.IsBinnenLade)) then UI.StatusBalk.FrontBevestiging = GetLabel(_FrontBevestigingOptionLabel; _Model; ""; "nl"); else UI.StatusBalk.FrontBevestiging = "---"; end if; if (UI.Kenmerken.HeeftMat) then local string _MatMateriaalOptionLabel = "MatMateriaal_" + DATA.Kenmerken.MatMateriaal; local string _MatKleurOptionLabel = switch DATA.Kenmerken.MatMateriaal case "CF": "MatVinylFiberglassKleur_" + UI.Kenmerken.MatVinylFiberglassKleur.Value case "AS": "MatAntislipKleur_" + UI.Kenmerken.MatAntislipKleur.Value case "AF": "MatAntislipFiberKleur_" + UI.Kenmerken.MatAntislipFiberKleur.Value case "AZ": "MatAntislipFlockKleur_" + UI.Kenmerken.MatAntislipFlockKleur.Value else "" end switch; local string _MatMateriaal = GetLabel(_MatMateriaalOptionLabel; _Model; ""; "nl"); local string _MatKleur = GetLabel(_MatKleurOptionLabel; _Model; ""; "nl"); if not(Data.Kenmerken.MatMateriaal == "") then UI.StatusBalk.Diverse = "Mat: " + _MatMateriaal + " , " + _MatKleur ; end if; else UI.StatusBalk.Diverse = "---"; end if; if not(Data.Kenmerken.VerpakkingType == "") then UI.StatusBalk.VerpakkingType = Data.Kenmerken.VerpakkingType ; end if; Statusbalk updaten ;ui.statusbalk.code@value;ui.statusbalk.ladediepte@value;ui.statusbalk.corpusbreedte@value;ui.statusbalk.wand@value;ui.statusbalk.draagkracht@value;ui.statusbalk.frontbevestiging@value;ui.statusbalk.verpakkingtype@value; STATE.ValidationNeeded or (UI.Lijn.Aantal <> 0) local double _Minimum = RANGE.Aantal.Minimum; local double _Maximum = RANGE.Aantal.Maximum; if UI.Lijn.Aantal@mandatory then UI.Lijn.Aantal@inputvalidation = "min:" + _Minimum + ";multiplication:1;maxdecimals:0;"; else UI.Lijn.Aantal@inputvalidation = ""; end if; Validation Aantal ;ui.lijn.aantal@rangeset; (UI.Kenmerken.CorpusBreedte@visible or (UI.Kenmerken.SpaceStep.Uitvoering == "Volledig" and UI.Kenmerken.Toepassing == "SST")) and (STATE.ValidationNeeded or (UI.Kenmerken.CorpusBreedte <> 0)) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local string _Minimum = Replace(cstr(RANGE.CorpusBreedte.Minimum);",";"."); local string _Maximum = Replace(cstr(RANGE.CorpusBreedte.Maximum);",";"."); UI.Kenmerken.CorpusBreedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation CorpusBreedte on ;ui.kenmerken.corpusbreedte@rangeset; UI.Kenmerken.Toepassing == "SST" and UI.Kenmerken.SpaceStep.Uitvoering <> "Volledig" UI.Kenmerken.CorpusBreedte@inputvalidation = ""; Validation CorpusBreedte off ;ui.kenmerken.corpusbreedte@rangeset; UI.Kenmerken.CorpusWanddikte@visible and (STATE.ValidationNeeded or (UI.Kenmerken.CorpusWanddikte <> 0)) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local string _Minimum = "1"; local string _Maximum = "100"; local string _multiplication = Replace("0,5";",";"."); if (BEHAVIOR.IsEconAx) then _multiplication = Replace("0,1";",";"."); end if; UI.Kenmerken.CorpusWanddikte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:" + _multiplication + ";maxdecimals:1;"; Validation CorpusWanddikte on ;ui.kenmerken.corpuswanddikte@rangeset; not(UI.Kenmerken.CorpusWanddikte@visible) UI.Kenmerken.CorpusWanddikte@inputvalidation = ""; Validation CorpusWanddikte off ;ui.kenmerken.corpuswanddikte@rangeset; false //(UI.Kenmerken.InterneBreedte <> 0) local double _Minimum = RANGE.InterneBreedte.Minimum; local double _Maximum = RANGE.InterneBreedte.Maximum; UI.Kenmerken.InterneBreedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.5;maxdecimals:1;"; Validation InterneBreedte ;ui.kenmerken.internebreedte@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.X@visible) and (STATE.ValidationNeeded or (UI.Kenmerken.UitsparingData.X.BreedteRugdeel <> 0)) local double _Minimum = RANGE.UitsparingDataBreedteX.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteX.Maximum; UI.Kenmerken.UitsparingData.X.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteX on ;ui.kenmerken.uitsparingdata.x.breedterugdeel@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.X@visible) UI.Kenmerken.UitsparingData.X.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteX off ;ui.kenmerken.uitsparingdata.x.breedterugdeel@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.M@visible) and (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") and (STATE.ValidationNeeded or (UI.Kenmerken.UitsparingData.M.BreedteRugdeel <> 0)) local double _Minimum = RANGE.UitsparingDataBreedteM.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteM.Maximum; UI.Kenmerken.UitsparingData.M.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteM on ;ui.kenmerken.uitsparingdata.m.breedterugdeel@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.M@visible) UI.Kenmerken.UitsparingData.M.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteM off ;ui.kenmerken.uitsparingdata.m.breedterugdeel@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Y@visible) and (STATE.ValidationNeeded or (UI.Kenmerken.UitsparingData.Y.BreedteRugdeel <> 0)) local double _Minimum = RANGE.UitsparingDataBreedteY.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteY.Maximum; UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteY on ;ui.kenmerken.uitsparingdata.y.breedterugdeel@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.Y@visible) UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@inputvalidation = ""; Validation UitsparingData BreedteY off ;ui.kenmerken.uitsparingdata.y.breedterugdeel@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z1@visible) and (STATE.ValidationNeeded or (Config.InputMode == "CreateConfig")) local double _Minimum = RANGE.UitsparingDataBreedteZ1.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteZ1.Maximum; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteZ1 on ;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.Z1@visible) UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@inputvalidation = ""; Validation UitsparingData BreedteZ1 off ;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@rangeset; (UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z2@visible) and (STATE.ValidationNeeded or (Config.InputMode == "CreateConfig")) local double _Minimum = RANGE.UitsparingDataBreedteZ2.Minimum; local double _Maximum = RANGE.UitsparingDataBreedteZ2.Maximum; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; Validation UitsparingData BreedteZ2 on ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@rangeset; not(UI.Kenmerken.UitsparingData@visible) or not(UI.Kenmerken.UitsparingData.Z2@visible) UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@inputvalidation = ""; Validation UitsparingData BreedteZ2 off ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@rangeset; true local double _VerwachteBreedte = UI.Kenmerken.UitsparingData.UitsparingData_VerwachteBreedte; local string _InputValidation = ""; // opgelet: kommagetallen worden niet aanvaard bij min/max, puntgetallen wel // m.a.w. 200,5 wordt aanzien als 2005 ///// 200.5 wordt aanzien als 200.5 of 200,5 if (UI.Kenmerken.UitsparingData@visible) then local string _strVerwachteBreedte = Replace(CStr(_VerwachteBreedte); ","; "."); // TO DO: mooier via Format(value; fmt), lukt me voorlopig niet :-/ _InputValidation = "min:" + _strVerwachteBreedte + ";max:" + _strVerwachteBreedte + ";multiplication:0.1;maxdecimals:1;"; end if; UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte@inputvalidation = _InputValidation; Validation UitsparingData TotaleBreedte ;ui.kenmerken.uitsparingdata.uitsparingdata_totalebreedte@rangeset; STATE.ValidationNeeded or UI.Kenmerken.SpaceStep.Sokkelbreedte <> 0 local string _Minimum = Replace(cstr(RANGE.SpaceStepBreedte.Minimum);",";"."); local string _Maximum = Replace(cstr(RANGE.SpaceStepBreedte.Maximum);",";"."); if (DATA.Kenmerken.Toepassing == "SST") then UI.Kenmerken.SpaceStep.Sokkelbreedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; else UI.Kenmerken.SpaceStep.Sokkelbreedte@inputvalidation = ""; end if; Validation SpaceStepBreedte ;ui.kenmerken.spacestep.sokkelbreedte@rangeset; STATE.ValidationNeeded or UI.Kenmerken.SpaceStep.Sokkelhoogte <> 0 local string _Minimum = Replace(cstr(RANGE.SpaceStepHoogte.Minimum);",";"."); local string _Maximum = Replace(cstr(RANGE.SpaceStepHoogte.Maximum);",";"."); if (DATA.Kenmerken.Toepassing == "SST") then UI.Kenmerken.SpaceStep.Sokkelhoogte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:0.1;maxdecimals:1;"; else UI.Kenmerken.SpaceStep.Sokkelhoogte@inputvalidation = ""; end if; Validation SpaceStepHoogte ;ui.kenmerken.spacestep.sokkelhoogte@rangeset; BEHAVIOR.IsEconAX and (DATA.Kenmerken.Toepassing == "L" or DATA.Kenmerken.Toepassing == "SST") and DATA.Kenmerken.LadeHoogte <> "" and DATA.Kenmerken.LadeKleur <> "" and DATA.Kenmerken.CorpusBreedte <> 0 and DATA.Kenmerken.RugwandMateriaal == "Staal" local string _XmlRequest = ""; local string _eConTaal = CONFIG.Language; local string _VhTaalCode = _eConTaal; // Nog te converteren naar vhTaalCode _XmlRequest = _XmlRequest + "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:v4='http://vhisie.vanhoecke.be/V4'>"; _XmlRequest = _XmlRequest + "<soapenv:Header/>"; _XmlRequest = _XmlRequest + "<soapenv:Body>"; _XmlRequest = _XmlRequest + "<v4:BestaatStalenRug>"; _XmlRequest = _XmlRequest + "<v4:Request>"; _XmlRequest = _XmlRequest + "<v4:Header>"; _XmlRequest = _XmlRequest + "<v4:KlantID>" + Config.Settings.KlantId + "</v4:KlantID>"; // bv. 12486 _XmlRequest = _XmlRequest + "<v4:PersonalityID>" + Config.Settings.PersonalityId + "</v4:PersonalityID>"; _XmlRequest = _XmlRequest + "<v4:Taal>" + _VhTaalCode + "</v4:Taal>"; _XmlRequest = _XmlRequest + "</v4:Header>"; _XmlRequest = _XmlRequest + "<v4:LadeHoogte>" + DATA.Kenmerken.LadeHoogte + "</v4:LadeHoogte>"; _XmlRequest = _XmlRequest + "<v4:LadeKleur>" + DATA.Kenmerken.LadeKleur + "</v4:LadeKleur>"; _XmlRequest = _XmlRequest + "<v4:LadeVariant>" + "LBX" + "</v4:LadeVariant>"; _XmlRequest = _XmlRequest + "<v4:InterneBreedte>" + DATA.BerekendeWaarden.InterneBreedte + "</v4:InterneBreedte>"; if not(DATA.Kenmerken.Rughoogte == "") then _XmlRequest = _XmlRequest + "<v4:RugHoogte>" + DATA.Kenmerken.RugHoogte + "</v4:RugHoogte>"; else _XmlRequest = _XmlRequest + "<v4:RugHoogte>" + DATA.Kenmerken.LadeHoogte + "</v4:RugHoogte>"; end if; _XmlRequest = _XmlRequest + "</v4:Request>"; _XmlRequest = _XmlRequest + "</v4:BestaatStalenRug>"; _XmlRequest = _XmlRequest + "</soapenv:Body>"; _XmlRequest = _XmlRequest + "</soapenv:Envelope>"; local string _Service = GetSetting("data.vanhoecke.connectionstring.cache.bestaatstalenrug"); local boolean _Result = LoadFromXMLService("CONFIG.Settings.StalenRugBeschikbaar.BestaatStalenRug"; _Service; false; _XmlRequest); if (_Result) then STATE.BestaatStalenRugLoaded = "WebServiceIsGeladen"; else STATE.BestaatStalenRugLoaded = "WebServiceIsNietGeladen"; end if; Validation Stalen Rug ;state.bestaatstalenrugloaded@value; not(STATE.Initialized) and (BEHAVIOR.OperationMode == "AxCreate") local string _TriggerDummyM = UI.Kenmerken.UitsparingData.M.Hoogte; STATE.ProcessedAndExit = true; ProcessedAndExit voor AxCreate ;state.processedandexit@value; (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) local boolean _IsGeldig = false; for i = 1 to Len(CONFIG.Defaults.BulkConfiguratie@options) if not(_IsGeldig) then local string _PropertyName = CONFIG.Defaults.BulkConfiguratie@option(i)@id; local string _PropertyValue = CStr(Eval(_PropertyName)); if not((_PropertyValue == "NietWijzigen") or (_PropertyValue == "") or (_PropertyValue == "0")) then _IsGeldig = true; end if; end if; end for; if (BEHAVIOR.ContextName == "AxNewBulkIngave") then UI.Buttons.Top.ProcessButton@visible = _IsGeldig; else UI.Buttons.Top.SaveAndExitButton@visible = _IsGeldig; UI.Buttons.Bottom.SaveAndExitButton@visible = _IsGeldig; end if; local string _TriggerDummy1 = DATA.BulkKenmerken(1).BodemKleur; local string _TriggerDummy2 = DATA.BulkKenmerken(1).CorpusBreedte; local double _TriggerDummy3 = DATA.BulkKenmerken(1).CorpusWanddikte; local string _TriggerDummy4 = DATA.BulkKenmerken(1).Draagkracht; local string _TriggerDummy5 = DATA.BulkKenmerken(1).DwarsverdelingAantal; local string _TriggerDummy6 = DATA.BulkKenmerken(1).FrontBevestiging; local string _TriggerDummy7 = DATA.BulkKenmerken(1).GeleiderTechnologie; local string _TriggerDummy8 = DATA.BulkKenmerken(1).HeeftOpvullijstLinks; local string _TriggerDummy9 = DATA.BulkKenmerken(1).HeeftOpvullijstRechts; local string _TriggerDummy10 = DATA.BulkKenmerken(1).HeeftZijstabilisering; local string _TriggerDummy11 = DATA.BulkKenmerken(1).IsBinnenlade; local string _TriggerDummy12 = DATA.BulkKenmerken(1).IsBinnenBreedte; local string _TriggerDummy13 = DATA.BulkKenmerken(1).LadeDiepte; local string _TriggerDummy14 = DATA.BulkKenmerken(1).LadeHoogte; local string _TriggerDummy15 = DATA.BulkKenmerken(1).LadeKleur; local string _TriggerDummy16 = DATA.BulkKenmerken(1).LadeKleurBuiten; local string _TriggerDummy17 = DATA.BulkKenmerken(1).Meenemerset; local string _TriggerDummy18 = DATA.BulkKenmerken(1).OpvullijstKleur; local string _TriggerDummy19 = DATA.BulkKenmerken(1).VerpakkingType; local string _TriggerDummy20 = DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade; local string _TriggerDummy21 = DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade; local string _TriggerDummy22 = DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade; local string _TriggerDummy23 = DATA.BulkKenmerken(1).ZijwandType; local string _TriggerDummy24 = DATA.BulkKenmerken(1).HeeftMat; local string _TriggerDummy25 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBinnen; local string _TriggerDummy26 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapBuiten; local string _TriggerDummy27 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_AfdekkapRugwandHouder local string _TriggerDummy28 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_BevestigingBodemFront; local string _TriggerDummy29 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_FrontBevestiging; local string _TriggerDummy30 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Geleider local string _TriggerDummy31 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementVoor; local string _TriggerDummy32 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_InschuifElementZijkant; local string _TriggerDummy33 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Opvullijst; local string _TriggerDummy34 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSet; local string _TriggerDummy36 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers; local string _TriggerDummy37 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; local string _TriggerDummy38 = DATA.BulkKenmerken(1).NietMeeleveren.NietMeeleveren_Zijstabilisering; IsGeldig BulkConfiguratie ;ui.buttons.top.processbutton@visible; (STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit or not(BEHAVIOR.IsInteractive)) // (CONFIG.InputMode == "CreateConfig")) DATA.Lijn.InvalidFieldSet@options = InvalidFieldSet(); DATA.Lijn.OngeldigeWaarden@length = len(DATA.Lijn.InvalidFieldSet@options); index i of DATA.Lijn.OngeldigeWaarden; DATA.Lijn.OngeldigeWaarden(i) = DATA.Lijn.InvalidFieldSet@option(i)@label; end index; DATA.Lijn.IsGeldig = (InvalidFields() == 0); IsGeldig ;data.lijn.invalidfieldset@options;data.lijn.isgeldig@value; true DATA.Lijn.GroeperingCode = DATA.Kenmerken.Variant + "_" + DATA.Kenmerken.LadeKleur + ";" + DATA.Kenmerken.BodemKleur; Bepaal GroeperingCode ;data.lijn.groeperingcode@value; (STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit or STATE.KlantVoorkeurenSaved) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) if not(UI.Kenmerken.CorpusWanddikte@visible) then DATA.Kenmerken.CorpusWanddikte = 0; UI.Kenmerken.CorpusWanddikte = 0; end if; if (UI.Kenmerken.IsBinnenlade) and (BEHAVIOR.IsEconWeb) then // and not (Config.Settings.FrontBevestigingVerbergen) DATA.Kenmerken.FrontBevestiging = ""; UI.Kenmerken.FrontBevestiging = ""; end if; if ((DATA.Kenmerken.Dwarsverdelingaantal == "0") or (DATA.Kenmerken.Dwarsverdelingaantal == "")) then DATA.Kenmerken.DwarsverdelingType = ""; UI.Kenmerken.DwarsverdelingType = ""; end if; if not(UI.Kenmerken.OpvullijstKleur@visible) then DATA.Kenmerken.OpvullijstKleur = ""; UI.Kenmerken.OpvullijstKleur = ""; end if; if not(UI.Kenmerken.LadeKleurBuiten@visible) then DATA.Kenmerken.LadeKleurBuiten = ""; UI.Kenmerken.LadeKleurBuiten = ""; end if; if (not(UI.Kenmerken.HeeftOpvullijstLinks) and not(UI.Kenmerken.HeeftOpvullijstRechts)) then DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = false; end if; if not(UI.Kenmerken.VoorwandTypeVanCBinnenlade@visible) then DATA.Kenmerken.VoorwandTypeVanCBinnenlade = ""; UI.Kenmerken.VoorwandTypeVanCBinnenlade = ""; end if; if not(UI.Kenmerken.VoorwandTypeVanMBinnenlade@visible) then DATA.Kenmerken.VoorwandTypeVanMBinnenlade = ""; UI.Kenmerken.VoorwandTypeVanMBinnenlade = ""; end if; if not(UI.Kenmerken.VoorwandTypeVanKBinnenlade@visible) then DATA.Kenmerken.VoorwandTypeVanKBinnenlade = ""; UI.Kenmerken.VoorwandTypeVanKBinnenlade = ""; end if; if not(DATA.Kenmerken.Toepassing in {"SY";"SP"}) then DATA.Kenmerken.UitsparingData.UitsparingAantal = ""; DATA.Kenmerken.UitsparingData.X.Breedte = 0; DATA.Kenmerken.UitsparingData.X.Hoogte = ""; DATA.Kenmerken.UitsparingData.X.Materiaal = ""; DATA.Kenmerken.UitsparingData.Y.Breedte = 0; DATA.Kenmerken.UitsparingData.Y.Hoogte = ""; DATA.Kenmerken.UitsparingData.Y.Materiaal = ""; DATA.Kenmerken.UitsparingData.Z1.Breedte = 0; DATA.Kenmerken.UitsparingData.Z1.Diepte = 0; DATA.Kenmerken.UitsparingData.Z1.Hoogte = ""; DATA.Kenmerken.UitsparingData.Z1.Materiaal = ""; DATA.Kenmerken.UitsparingData.Z1.Vorm = ""; UI.Kenmerken.UitsparingData.UitsparingAantal = ""; UI.Kenmerken.UitsparingData.X.BreedteRugdeel = 0; UI.Kenmerken.UitsparingData.X.Hoogte = ""; UI.Kenmerken.UitsparingData.X.Materiaal = ""; UI.Kenmerken.UitsparingData.Y.BreedteRugdeel = 0; UI.Kenmerken.UitsparingData.Y.Hoogte = ""; UI.Kenmerken.UitsparingData.Y.Materiaal = ""; UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = 0; UI.Kenmerken.UitsparingData.Z1.Diepte = 0; UI.Kenmerken.UitsparingData.Z1.Hoogte = ""; UI.Kenmerken.UitsparingData.Z1.Materiaal = ""; UI.Kenmerken.UitsparingData.Z1.Vorm = ""; end if; if not(UI.Kenmerken.UitsparingData.M@visible) then DATA.Kenmerken.UitsparingData.M.Breedte = 0; DATA.Kenmerken.UitsparingData.M.Hoogte = ""; DATA.Kenmerken.UitsparingData.M.Materiaal = ""; UI.Kenmerken.UitsparingData.M.BreedteRugdeel = 0; UI.Kenmerken.UitsparingData.M.Hoogte = ""; UI.Kenmerken.UitsparingData.M.Materiaal = ""; end if; local string _TriggerDummy = UI.Kenmerken.UitsparingData.Z2.Hoogte; if not(UI.Kenmerken.UitsparingData.Z2@visible) then DATA.Kenmerken.UitsparingData.Z2.Breedte = 0; DATA.Kenmerken.UitsparingData.Z2.Diepte = 0; DATA.Kenmerken.UitsparingData.Z2.Hoogte = ""; DATA.Kenmerken.UitsparingData.Z2.Materiaal = ""; DATA.Kenmerken.UitsparingData.Z2.Vorm = ""; UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = 0; UI.Kenmerken.UitsparingData.Z2.Diepte = 0; UI.Kenmerken.UitsparingData.Z2.Hoogte = ""; UI.Kenmerken.UitsparingData.Z2.Materiaal = ""; UI.Kenmerken.UitsparingData.Z2.Vorm = ""; end if; if (not(UI.Kenmerken.HeeftMat) or ((DATA.Kenmerken.Productiewijze <> "V") and (DATA.Kenmerken.Productiewijze <> ""))) then DATA.Kenmerken.MatMateriaal = ""; DATA.Kenmerken.MatKleur = ""; UI.Kenmerken.MatMateriaal = ""; UI.Kenmerken.MatAntislipFiberKleur = ""; UI.Kenmerken.MatAntislipFlockKleur = ""; UI.Kenmerken.MatAntislipKleur = ""; UI.Kenmerken.MatVinylFiberglassKleur = ""; end if; if (not(BEHAVIOR.ContextName == "AxCreateBulkWijzigingenToepassen") and not (BEHAVIOR.OperationMode == "WebCreateBulkWijzigingenToepassen")) then DATA.BulkKenmerken(1) = ""; DATA.BulkKenmerken@length = 0; end if; if (BEHAVIOR.IsEconAx) then DATA.Lijn.WinkelkarInfo(1) = ""; DATA.Lijn.WinkelkarInfo@length = 0; end if; Verborgen properties wissen ;data.kenmerken.corpuswanddikte@value;ui.kenmerken.corpuswanddikte@value;data.kenmerken.frontbevestiging@value;ui.kenmerken.frontbevestiging@value;data.kenmerken.dwarsverdelingtype@value;ui.kenmerken.dwarsverdelingtype@value;data.kenmerken.opvullijstkleur@value;ui.kenmerken.opvullijstkleur@value;data.kenmerken.ladekleurbuiten@value;ui.kenmerken.ladekleurbuiten@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.voorwandtypevancbinnenlade@value;ui.kenmerken.voorwandtypevancbinnenlade@value;data.kenmerken.voorwandtypevanmbinnenlade@value;ui.kenmerken.voorwandtypevanmbinnenlade@value;data.kenmerken.voorwandtypevankbinnenlade@value;ui.kenmerken.voorwandtypevankbinnenlade@value;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.kenmerken.uitsparingdata.x.breedte@value;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.y.breedte@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.breedte@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;ui.kenmerken.uitsparingdata.uitsparingaantal@value;ui.kenmerken.uitsparingdata.x.breedterugdeel@value;ui.kenmerken.uitsparingdata.x.hoogte@value;ui.kenmerken.uitsparingdata.x.materiaal@value;ui.kenmerken.uitsparingdata.y.breedterugdeel@value;ui.kenmerken.uitsparingdata.y.hoogte@value;ui.kenmerken.uitsparingdata.y.materiaal@value;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@value;ui.kenmerken.uitsparingdata.z1.diepte@value;ui.kenmerken.uitsparingdata.z1.hoogte@value;ui.kenmerken.uitsparingdata.z1.materiaal@value;ui.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.m.breedte@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;ui.kenmerken.uitsparingdata.m.breedterugdeel@value;ui.kenmerken.uitsparingdata.m.hoogte@value;ui.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.z2.breedte@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@value;ui.kenmerken.uitsparingdata.z2.diepte@value;ui.kenmerken.uitsparingdata.z2.hoogte@value;ui.kenmerken.uitsparingdata.z2.materiaal@value;ui.kenmerken.uitsparingdata.z2.vorm@value;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@value;ui.kenmerken.matmateriaal@value;ui.kenmerken.matantislipfiberkleur@value;ui.kenmerken.matantislipflockkleur@value;ui.kenmerken.matantislipkleur@value;ui.kenmerken.matvinylfiberglasskleur@value;data.bulkkenmerken[1]@value;data.lijn.winkelkarinfo[1]@value; (STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit or STATE.KlantVoorkeurenSaved) and (BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) if not(UI.BulkKenmerken.CorpusWanddikte@visible) then DATA.BulkKenmerken(1).CorpusWanddikte = 0; UI.BulkKenmerken.CorpusWanddikte = 0; end if; if (DATA.BulkKenmerken(1).IsBinnenlade == "True") then // and not (Config.Settings.FrontBevestigingVerbergen) DATA.BulkKenmerken(1).FrontBevestiging = "NietWijzigen"; UI.BulkKenmerken.FrontBevestiging = "NietWijzigen"; end if; if (DATA.BulkKenmerken(1).ZijwandType <> "Design") then DATA.BulkKenmerken(1).LadeKleurBuiten = "NietWijzigen"; UI.BulkKenmerken.LadeKleurBuiten= "NietWijzigen"; end if; if (DATA.BulkKenmerken(1).IsBinnenlade <> "True") then DATA.BulkKenmerken(1).Meenemerset = "NietWijzigen"; UI.BulkKenmerken.Meenemerset = "NietWijzigen"; end if; if (DATA.BulkKenmerken(1).DwarsverdelingAantal == "NietWijzigen") then DATA.BulkKenmerken(1).DwarsverdelingType = "NietWijzigen"; UI.BulkKenmerken.DwarsverdelingType = "NietWijzigen"; end if; if not(UI.BulkKenmerken.VoorwandTypeVanCBinnenlade@visible) then DATA.BulkKenmerken(1).VoorwandTypeVanCBinnenlade = ""; UI.BulkKenmerken.VoorwandTypeVanCBinnenlade = ""; end if; if not(UI.BulkKenmerken.VoorwandTypeVanMBinnenlade@visible) then DATA.BulkKenmerken(1).VoorwandTypeVanMBinnenlade = ""; UI.BulkKenmerken.VoorwandTypeVanMBinnenlade = ""; end if; if not(UI.BulkKenmerken.VoorwandTypeVanKBinnenlade@visible) then DATA.BulkKenmerken(1).VoorwandTypeVanKBinnenlade = ""; UI.BulkKenmerken.VoorwandTypeVanKBinnenlade = ""; end if; if (UI.BulkKenmerken.HeeftMat in {"False";"NietWijzigen"}) then DATA.BulkKenmerken(1).MatMateriaal = ""; DATA.BulkKenmerken(1).MatKleur = ""; UI.BulkKenmerken.MatMateriaal = ""; UI.BulkKenmerken.MatAntislipFiberKleur = ""; UI.BulkKenmerken.MatAntislipFlockKleur = ""; UI.BulkKenmerken.MatVinylFiberglassKleur = ""; end if; Verborgen properties wissen (Bulk) ;data.bulkkenmerken[1].corpuswanddikte@value;ui.bulkkenmerken.corpuswanddikte@value;data.bulkkenmerken[1].frontbevestiging@value;ui.bulkkenmerken.frontbevestiging@value;data.bulkkenmerken[1].ladekleurbuiten@value;ui.bulkkenmerken.ladekleurbuiten@value;data.bulkkenmerken[1].meenemerset@value;ui.bulkkenmerken.meenemerset@value;data.bulkkenmerken[1].dwarsverdelingtype@value;ui.bulkkenmerken.dwarsverdelingtype@value;data.bulkkenmerken[1].voorwandtypevancbinnenlade@value;ui.bulkkenmerken.voorwandtypevancbinnenlade@value;data.bulkkenmerken[1].voorwandtypevanmbinnenlade@value;ui.bulkkenmerken.voorwandtypevanmbinnenlade@value;data.bulkkenmerken[1].voorwandtypevankbinnenlade@value;ui.bulkkenmerken.voorwandtypevankbinnenlade@value;data.bulkkenmerken[1].matmateriaal@value;data.bulkkenmerken[1].matkleur@value;ui.bulkkenmerken.matmateriaal@value;ui.bulkkenmerken.matantislipfiberkleur@value;ui.bulkkenmerken.matantislipflockkleur@value;ui.bulkkenmerken.matvinylfiberglasskleur@value; STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) if (UI.Kenmerken.ProductieWijze == "") then DATA.Kenmerken.ProductieWijze = "V"; end if; if (not(UI.Kenmerken.IsBinnenlade)) then DATA.Kenmerken.MeenemerSet = "Z"; end if; if (DATA.Kenmerken.Toepassing == "SP") then local double _Breedte = 158; DATA.Kenmerken.UitsparingData.UitsparingAantal = "Enkel"; DATA.Kenmerken.UitsparingData.X.Breedte = UI.Kenmerken.UitsparingDataSpoelbak.X; DATA.Kenmerken.UitsparingData.X.Hoogte = "M"; DATA.Kenmerken.UitsparingData.X.Materiaal = "Staal"; DATA.Kenmerken.UitsparingData.Y.Breedte = UI.Kenmerken.UitsparingDataSpoelbak.Y; DATA.Kenmerken.UitsparingData.Y.Hoogte = "M"; DATA.Kenmerken.UitsparingData.Y.Materiaal = "Staal"; DATA.Kenmerken.UitsparingData.Z1.Breedte = UI.Kenmerken.UitsparingDataSpoelbak.Z1; DATA.Kenmerken.UitsparingData.Z1.Diepte = 0; DATA.Kenmerken.UitsparingData.Z1.Hoogte = ""; DATA.Kenmerken.UitsparingData.Z1.Materiaal = ""; DATA.Kenmerken.UitsparingData.Z1.Vorm = "Recht"; end if; Verborgen properties defaulten ;data.kenmerken.productiewijze@value;data.kenmerken.meenemerset@value;data.kenmerken.uitsparingdata.uitsparingaantal@value;data.kenmerken.uitsparingdata.x.breedte@value;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.y.breedte@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.breedte@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value; not(STATE.WinkelkarInfoCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig")) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) STATE.WinkelkarInfoCalculated = true; local string _Model = GetModel(); local string _FrontBevestigingOptionLabel = DATA.Kenmerken.FrontBevestiging@id + "_" + DATA.Kenmerken.FrontBevestiging@option(DATA.Kenmerken.FrontBevestiging)@id; local string _LadeKleurOptionLabel = DATA.Kenmerken.LadeKleur@id + "_" + DATA.Kenmerken.LadeKleur@option(DATA.Kenmerken.LadeKleur)@id; local string _LadeKleurBuitenOptionLabel = DATA.Kenmerken.LadeKleurBuiten@id + "_" + DATA.Kenmerken.LadeKleurBuiten@option(DATA.Kenmerken.LadeKleurBuiten)@id; local string _BodemKleurOptionLabel = DATA.Kenmerken.BodemKleur@id + "_" + DATA.Kenmerken.BodemKleur@option(DATA.Kenmerken.BodemKleur)@id; local string _SokkelKleurOptionLabel = "spacestepkleur" + "_" + DATA.Kenmerken.SpaceStep.Kleur@option(DATA.Kenmerken.SpaceStep.Kleur)@id; DATA.Lijn.WinkelkarInfo@length = len(CONFIG.Database.Languages@options); for i = 1 to len(CONFIG.Database.Languages@options) CONFIG.Database.Languages = CONFIG.Database.Languages@option(i)@id; local string _TaalCode = CONFIG.Database.Languages.Name; local string _CorpusWanddikte = " / "; if not(DATA.Kenmerken.IsBinnenbreedte) then _CorpusWanddikte = CStr(DATA.Kenmerken.CorpusWanddikte) + " mm"; end if; local string _SokkeKleurInfo = GetLabel(DATA.Kenmerken.SpaceStep.Kleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_SokkelKleurOptionLabel; _Model; ""; _TaalCode); local string _LadeKleurInfo = GetLabel(DATA.Kenmerken.LadeKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_LadeKleurOptionLabel; _Model; ""; _TaalCode); local string _LadeKleurBuitenInfo = GetLabel(DATA.Kenmerken.LadeKleurBuiten@id; _Model; ""; _TaalCode) + ": " + GetLabel(_LadeKleurBuitenOptionLabel; _Model; ""; _TaalCode); local string _BodemKleurInfo = GetLabel(DATA.Kenmerken.BodemKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_BodemKleurOptionLabel; _Model; ""; _TaalCode); local string _Groepering; if (DATA.Kenmerken.Toepassing == "SST") then _Groepering = "SPACESTEP - LEGRABOX - "; else _Groepering = "LEGRABOX - "; end if; if (DATA.Kenmerken.Toepassing == "SST") then if (_TaalCode == "de") then _Groepering = _Groepering + _SokkeKleurInfo + ", " + _LadeKleurInfo + ", " + _BodemKleurInfo; else _Groepering = _Groepering + LCase(_SokkeKleurInfo) + ", " + LCase(_LadeKleurInfo) + ", " + LCase(_BodemKleurInfo); end if; else if (_TaalCode == "de") then _Groepering = _Groepering + _LadeKleurInfo + ", " + _BodemKleurInfo; else _Groepering = _Groepering + LCase(_LadeKleurInfo) + ", " + LCase(_BodemKleurInfo); end if; end if; if (DATA.Kenmerken.ZijwandType == "Design") then if (_TaalCode == "de") then _Groepering = _Groepering + ", " + _LadeKleurBuitenInfo; else _Groepering = _Groepering + ", " + LCase(_LadeKleurBuitenInfo); end if; end if; if not(DATA.Kenmerken.Toepassing == "SST") then DATA.Lijn.WinkelkarInfo(i).Aantal = CStr(DATA.Lijn.Aantal); DATA.Lijn.WinkelkarInfo(i).AfbeeldingCode = DATA.BerekendeWaarden.AfbeeldingCode; DATA.Lijn.WinkelkarInfo(i).CorpusBreedte = CStr(DATA.Kenmerken.CorpusBreedte) + " mm"; DATA.Lijn.WinkelkarInfo(i).CorpusWanddikte = _CorpusWanddikte; DATA.Lijn.WinkelkarInfo(i).Draagkracht = CStr(DATA.Kenmerken.Draagkracht) + " kg"; DATA.Lijn.WinkelkarInfo(i).EenheidPrijs = ""; DATA.Lijn.WinkelkarInfo(i).FrontBevestiging = GetLabel(_FrontBevestigingOptionLabel; _Model; ""; _TaalCode); DATA.Lijn.WinkelkarInfo(i).Groepering = _Groepering; DATA.Lijn.WinkelkarInfo(i).LadeCode = DATA.BerekendeWaarden.LadeCode; DATA.Lijn.WinkelkarInfo(i).LadeDiepte = CStr(DATA.Kenmerken.LadeDiepte) + " mm"; DATA.Lijn.WinkelkarInfo(i).TaalCode = _TaalCode; DATA.Lijn.WinkelkarInfo(i).TotaalPrijs = ""; else DATA.Lijn.WinkelkarInfo(i).Aantal = CStr(DATA.Lijn.Aantal); DATA.Lijn.WinkelkarInfo(i).AfbeeldingCode = DATA.BerekendeWaarden.AfbeeldingCode; DATA.Lijn.WinkelkarInfo(i).CorpusBreedte = ""; DATA.Lijn.WinkelkarInfo(i).CorpusWanddikte = ""; DATA.Lijn.WinkelkarInfo(i).Draagkracht = ""; DATA.Lijn.WinkelkarInfo(i).EenheidPrijs = ""; DATA.Lijn.WinkelkarInfo(i).FrontBevestiging = GetLabel(_FrontBevestigingOptionLabel; _Model; ""; _TaalCode); DATA.Lijn.WinkelkarInfo(i).Groepering = _Groepering; DATA.Lijn.WinkelkarInfo(i).LadeCode = DATA.BerekendeWaarden.LadeCode; DATA.Lijn.WinkelkarInfo(i).LadeDiepte = ""; DATA.Lijn.WinkelkarInfo(i).TaalCode = _TaalCode; DATA.Lijn.WinkelkarInfo(i).TotaalPrijs = ""; end if; end for; WinkelkarInfo ;state.winkelkarinfocalculated@value; not(STATE.WinkelkarInfoDiverseCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig")) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) STATE.WinkelkarInfoDiverseCalculated = true; local string _Model = GetModel(); local string _ToepassingOptionLabel = DATA.Kenmerken.Toepassing@id + "_" + DATA.Kenmerken.Toepassing@option(DATA.Kenmerken.Toepassing)@id; local string _GeleiderTechnologieOptionLabel = DATA.Kenmerken.GeleiderTechnologie@id + "_" + DATA.Kenmerken.GeleiderTechnologie@option(DATA.Kenmerken.GeleiderTechnologie)@id; local string _OpvullijstKleurOptionLabel = DATA.Kenmerken.OpvullijstKleur@id + "_" + DATA.Kenmerken.OpvullijstKleur@option(DATA.Kenmerken.OpvullijstKleur)@id; local string _RugwandMateriaalOptionLabel = DATA.Kenmerken.RugwandMateriaal@id + "_" + DATA.Kenmerken.RugwandMateriaal@option(DATA.Kenmerken.RugwandMateriaal)@id; local string _VerpakkingTypeOptionLabel = DATA.Kenmerken.VerpakkingType@id + "_" + DATA.Kenmerken.VerpakkingType@option(DATA.Kenmerken.VerpakkingType)@id; local string _VoorwandTypeVanMBinnenladeOptionLabel = DATA.Kenmerken.VoorwandTypeVanMBinnenlade@id + "_" + DATA.Kenmerken.VoorwandTypeVanMBinnenlade@option(DATA.Kenmerken.VoorwandTypeVanMBinnenlade)@id; local string _VoorwandTypeVanCBinnenladeOptionLabel = DATA.Kenmerken.VoorwandTypeVanCBinnenlade@id + "_" + DATA.Kenmerken.VoorwandTypeVanCBinnenlade@option(DATA.Kenmerken.VoorwandTypeVanCBinnenlade)@id; local string _VoorwandTypeVanKBinnenladeOptionLabel = DATA.Kenmerken.VoorwandTypeVanKBinnenlade@id + "_" + DATA.Kenmerken.VoorwandTypeVanKBinnenlade@option(DATA.Kenmerken.VoorwandTypeVanKBinnenlade)@id; local string _ZijwandTypeOptionLabel = DATA.Kenmerken.ZijwandType@id + "_" + DATA.Kenmerken.ZijwandType@option(DATA.Kenmerken.ZijwandType)@id; local string _RugHoogteOptionLabel = DATA.Kenmerken.RugHoogte@id + "_" + DATA.Kenmerken.RugHoogte@option(DATA.Kenmerken.RugHoogte)@id; local string _ProductieWijzeOptionLabel = DATA.Kenmerken.ProductieWijze@id + "_" + DATA.Kenmerken.ProductieWijze@option(DATA.Kenmerken.ProductieWijze)@id; local string _SpaceStepBewegingstechnologieLabel = DATA.Kenmerken.SpaceStep.Bewegingstechnologie@id + "_" + DATA.Kenmerken.SpaceStep.Bewegingstechnologie@option(DATA.Kenmerken.SpaceStep.Bewegingstechnologie)@id; local double MINIMUM_BREEDTE_GEWONE_LADE = 237; // Kleiner dan deze afmeting is "Smalle lade" local boolean _IsSmalleLade = (DATA.BerekendeWaarden.InterneBreedte < MINIMUM_BREEDTE_GEWONE_LADE); for i = 1 to len(Config.Database.Languages@options) CONFIG.Database.Languages = CONFIG.Database.Languages@option(i)@id; local string _TaalCode = CONFIG.Database.Languages.Name; local string _InfoSpaceStep = ""; local string _InfoToepassing = ""; local string _InfoGeleider = ""; local string _InfoMat = ""; local string _InfoZijwandType = ""; local string _InfoZijstabilisering = ""; local string _InfoOpvullijst = ""; local string _InfoVoorwandType = ""; local string _InfoMeenemerSet = ""; local string _InfoVerpakking = ""; local string _InfoRugwandMateriaal = ""; local string _InfoRugHoogte = ""; local string _InfoProductieWijze = ""; local string _InfoDwarsverdeling = ""; local string _InfoIsSmalleLade = ""; local string _InfoNietMeeleveren = ""; local string _InfoSpaceStepBewegingstechnologie = ""; local string _UitsparingAfmetingen = ""; if (UI.Kenmerken.Toepassing <> "L" and UI.Kenmerken.Toepassing <> "SST") then if (UI.Kenmerken.Toepassing == "SY") then local string _X = CStr(UI.Kenmerken.UitsparingData.X.BreedteRugdeel); local string _M = CStr(UI.Kenmerken.UitsparingData.M.BreedteRugdeel); local string _Y = CStr(UI.Kenmerken.UitsparingData.Y.BreedteRugdeel); local string _Z1 = CStr(UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing); local string _Z2 = CStr(UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing); _UitsparingAfmetingen = _UitsparingAfmetingen + " (" +_X + "/" + _Z1; if (UI.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + _M + "/" + _Z2; end if; _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + _Y + ")"; end if; _InfoToepassing = GetLabel(_ToepassingOptionLabel; _Model; ""; _TaalCode) + _UitsparingAfmetingen; end if; if (UI.Kenmerken.GeleiderTechnologie == "TOB") then _InfoGeleider = GetLabel(_GeleiderTechnologieOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.HeeftMat) then local string _MatMateriaalOptionLabel = "MatMateriaal_" + DATA.Kenmerken.MatMateriaal; local string _MatKleurOptionLabel = switch DATA.Kenmerken.MatMateriaal case "CF": "MatVinylFiberglassKleur_" + UI.Kenmerken.MatVinylFiberglassKleur.Value case "AS": "MatAntislipKleur_" + UI.Kenmerken.MatAntislipKleur.Value case "AF": "MatAntislipFiberKleur_" + UI.Kenmerken.MatAntislipFiberKleur.Value case "AZ": "MatAntislipFlockKleur_" + UI.Kenmerken.MatAntislipFlockKleur.Value else "" end switch; local string _MatMateriaal = GetLabel(_MatMateriaalOptionLabel; _Model; ""; _TaalCode); local string _MatKleur = GetLabel(_MatKleurOptionLabel; _Model; ""; _TaalCode); local string _MatLabel = GetLabel(TRL.InfoDiverse_Mat@id; _Model; ""; _TaalCode); _InfoMat = _MatLabel + ": " + _MatKleur + "-" + _MatMateriaal; end if; if (UI.Kenmerken.ZijwandType == "Free") then _InfoZijwandType = GetLabel(_ZijwandTypeOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.HeeftZijstabilisering) then _InfoZijstabilisering = GetLabel(UI.Kenmerken.HeeftZijstabilisering@id; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.HeeftOpvullijstLinks or UI.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = GetLabel(TRL.InfoDiverse_Opvullijst@id; _Model; ""; _TaalCode) + ": "; local string _Links = GetLabel(TRL.InfoDiverse_Links@id; _Model; ""; _TaalCode); local string _Rechts = GetLabel(TRL.InfoDiverse_Rechts@id; _Model; ""; _TaalCode); if (UI.Kenmerken.HeeftOpvullijstLinks and UI.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = _InfoOpvullijst + _Links + "+" + _Rechts; else if (UI.Kenmerken.HeeftOpvullijstLinks) then _InfoOpvullijst = _InfoOpvullijst + _Links; end if; if (UI.Kenmerken.HeeftOpvullijstRechts) then _InfoOpvullijst = _InfoOpvullijst + _Rechts; end if; end if; end if; if ((_InfoOpvullijst <> "") and (UI.Kenmerken.OpvullijstKleur <> "")) then _InfoOpvullijst = _InfoOpvullijst + " (" + GetLabel(_OpvullijstKleurOptionLabel ; _Model; ""; _TaalCode) + ")"; end if; if (UI.Kenmerken.VoorwandTypeVanMBinnenlade <> "") then _InfoVoorwandType = GetLabel(UI.Kenmerken.VoorwandTypeVanMBinnenlade@id; _Model; ""; _TaalCode) + ": " + GetLabel(_VoorwandTypeVanMBinnenladeOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.VoorwandTypeVanCBinnenlade <> "") then _InfoVoorwandType = GetLabel(UI.Kenmerken.VoorwandTypeVanCBinnenlade@id; _Model; ""; _TaalCode) + ": " + GetLabel(_VoorwandTypeVanCBinnenladeOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.VoorwandTypeVanKBinnenlade <> "") then _InfoVoorwandType = GetLabel(UI.Kenmerken.VoorwandTypeVanKBinnenlade@id; _Model; ""; _TaalCode) + ": " + GetLabel(_VoorwandTypeVanKBinnenladeOptionLabel; _Model; ""; _TaalCode); end if; if ((UI.Kenmerken.MeenemerSet == "V") and UI.Kenmerken.IsBinnenlade) then _InfoMeenemerSet = GetLabel(UI.Kenmerken.MeenemerSet@id; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.VerpakkingType <> "V1") then _InfoVerpakking = GetLabel(_VerpakkingTypeOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.RugwandMateriaal == "Staal") then _InfoRugwandMateriaal = GetLabel(UI.Kenmerken.RugwandMateriaal@id; _Model; ""; _TaalCode) + ": " + GetLabel(_RugwandMateriaalOptionLabel; _Model; ""; _TaalCode); end if; if ((UI.Kenmerken.HeeftAfwijkendeRugHoogte == "True") or ((DATA.Kenmerken.RugHoogte <> DATA.Kenmerken.LadeHoogte) and (DATA.Kenmerken.Toepassing == "SY"))) then _InfoRugHoogte = GetLabel(UI.Kenmerken.RugHoogte@id; _Model; ""; _TaalCode) + ": " + GetLabel(_RugHoogteOptionLabel; _Model; ""; _TaalCode); end if; if (UI.Kenmerken.ProductieWijze <> "V") then _InfoProductieWijze = GetLabel(TRL.InfoDiverse_Enkel@id; _Model; ""; _TaalCode) + " " + GetLabel(_ProductieWijzeOptionLabel; _Model; ""; _TaalCode); end if; if ((UI.Kenmerken.DwarsverdelingAantal <> "") and (CLng(UI.Kenmerken.DwarsverdelingAantal) > 0)) then if (DATA.Kenmerken.DwarsverdelingType == "Dubbel") then _InfoDwarsverdeling = GetLabel(TRL.DubbeleDwarsverdeling@id; _Model; ""; _TaalCode); else _InfoDwarsverdeling = GetLabel(UI.Kenmerken.DwarsverdelingAantal@id; _Model; ""; _TaalCode) end if; _InfoDwarsverdeling = _InfoDwarsverdeling + " (" + GetLabel("Aantal"; _Model; ""; _TaalCode) + ": " + UI.Kenmerken.DwarsverdelingAantal + ")"; end if; if _IsSmalleLade then _InfoIsSmalleLade = GetLabel(TRL.InfoDiverse_IsSmalleLade@id; _Model; ""; _TaalCode); end if; index j of UI.Kenmerken.NietMeeleveren local string _Separator = ", "; if (_InfoNietMeeleveren == "") then _Separator = ""; end if; if (UI.Kenmerken.NietMeeleveren(j).IsSelected) and (UI.Kenmerken.NietMeeleveren(j)@visible) and (UI.Kenmerken.NietMeeleveren(j).Id <> "TiponBlumotionSet") then _InfoNietMeeleveren = _InfoNietMeeleveren + _Separator + GetLabel(UI.Kenmerken.NietMeeleveren@id + "_" + UI.Kenmerken.NietMeeleveren(j).Id; _Model; ""; _TaalCode); end if; end index; if (_InfoNietMeeleveren <> "") then _InfoNietMeeleveren = GetLabel(UI.Kenmerken.NietMeeleveren@id; _Model; ""; _TaalCode) + ": " + _InfoNietMeeleveren; if (Len(_InfoNietMeeleveren) > 250) then _InfoNietMeeleveren = Mid(_InfoNietMeeleveren; 1; 250) + " ..."; end if; end if; if (UI.Kenmerken.Toepassing == "SST") then _InfoSpaceStep = GetLabel(TRL.InfoDiverse_Sokkel@id; _Model; ""; _TaalCode) + " " + GetLabel(TRL.InfoDiverse_Afkorting_Diepte@id; _Model; ""; _TaalCode) + ":" + UI.Kenmerken.SpaceStep.Sokkeldiepte + "x" + GetLabel(TRL.InfoDiverse_Afkorting_Breedte@id; _Model; ""; _TaalCode) + ":" + UI.Kenmerken.SpaceStep.Sokkelbreedte + "x" + GetLabel(TRL.InfoDiverse_Afkorting_Hoogte@id; _Model; ""; _TaalCode) + ":" + UI.Kenmerken.SpaceStep.Sokkelhoogte; if (UI.Kenmerken.SpaceStep.Bewegingstechnologie == "Servodrive") then _InfoSpaceStepBewegingstechnologie = GetLabel(UI.Kenmerken.SpaceStep.Bewegingstechnologie@id; _Model; ""; _TaalCode) + ": " + GetLabel(_SpaceStepBewegingstechnologieLabel; _Model; ""; _TaalCode); end if; end if; DATA.Lijn.WinkelkarInfo(i).InfoDiverse@length = 17; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[1] = _InfoSpaceStep; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[2] = _InfoToepassing; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[3] = _InfoGeleider; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[4] = _InfoMat; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[5] = _InfoZijwandType; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[6] = _InfoZijstabilisering; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[7] = _InfoOpvullijst; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[8] = _InfoVoorwandType; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[9] = _InfoMeenemerSet; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[10] = _InfoVerpakking; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[11] = _InfoRugwandMateriaal; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[12] = _InfoRugHoogte; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[13] = _InfoProductieWijze; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[14] = _InfoDwarsverdeling; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[15] = _InfoIsSmalleLade; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[16] = _InfoNietMeeleveren; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[17] = _InfoSpaceStepBewegingstechnologie; end for; WinkelkarInfo - InfoDiverse ;state.winkelkarinfodiversecalculated@value; STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig") or (CONFIG.Backend == "axapta") if(DATA.Kenmerken.Toepassing <> "SST") then if (DATA.Kenmerken.ProductieWijze <> "V") then ItemId = "9.963.542.8" else if (DATA.Kenmerken.VerpakkingType == "V1") then ItemId = "9.657.336.8" end if; if (DATA.Kenmerken.VerpakkingType == "VHoss") then ItemId = "9.963.666.8" end if; if (DATA.Kenmerken.VerpakkingType == "Probox") then ItemId = "9.963.585.8" end if; if (DATA.Kenmerken.VerpakkingType == "Pallet") then ItemId = "9.963.615.8" end if; end if; else ItemId = "7.001.184.1"; end if; // tijdelijk totdat kenmerken binnenkomen if (ItemId == "") then ItemId = "9.657.336.8" end if; ItemId bepalen ;itemid@value; STATE.Cancelled STATE.Cancelled = false; ReturnValue = "{\"status\":\"cancel\"}"; local boolean _Result = Exit(true;false); Cancel ;state.cancelled@value;returnvalue@value; ((STATE.SavedAndExit or STATE.SavedAndContinue) and (InvalidFields() == 0)) and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) // or (CONFIG.Backend == "axapta") Defaults voor verborgen properties ; not(BEHAVIOR.IsInteractive) //(CONFIG.Settings.OperationMode == "Extern") if ((UI.Kenmerken.Toepassing <> "SY") and not(UI.Kenmerken.HeeftAfwijkendeRugHoogte == "True")) then DATA.Kenmerken.RugHoogte = DATA.Kenmerken.LadeHoogte; end if; RugHoogte ;data.kenmerken.rughoogte@value; (CONFIG.Settings.OperationMode == "Extern") if (UI.Kenmerken.Toepassing == "SP") then DATA.Kenmerken.RugwandMateriaal = "Staal"; else DATA.Kenmerken.RugwandMateriaal = "Hout"; end if; RugwandMateriaal ;data.kenmerken.rugwandmateriaal@value; STATE.ProcessedAndExit and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"WebShopNewBulkIngave"}) STATE.ProcessedAndExit = false; STATE.ValidationNeeded = true; ProcessAndExit ;state.processedandexit@value;state.validationneeded@value; STATE.SavedAndExit STATE.SavedAndExit = false; STATE.ValidationNeeded = true; if (InvalidFields() == 0) then ReturnValue = "{\"status\":\"ok\",\"name\":\"" + ElementName(CONFIG.ConfigurationName) + "\",\"version\":\"" + ElementVersion(CONFIG.ConfigurationName) + "\"}"; local boolean _Result = SaveAndExit(); else STATE.WinkelkarInfoCalculated = false; STATE.WinkelkarInfoDiverseCalculated = false; local string _Feedback = ""; _Feedback = _Feedback + "<b>" + TRL.BewarenError@label + ":" + "</b>"; _Feedback = _Feedback + "<ul style='list-style-type:square;'>"; for i = 1 to Len(DATA.Lijn.InvalidFieldSet@options) local string _PropertyName = DATA.Lijn.InvalidFieldSet@option(i)@id; local string _Label = CStr(Eval(_PropertyName + "@label")); _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + _Label; _Feedback = _Feedback + "</li>"; end for; _Feedback = _Feedback + "</ul>"; local long _FeedbackResult = MsgBox(_Feedback); end if; SaveAndExit ;state.savedandexit@value;state.validationneeded@value;returnvalue@value; STATE.SavedAndContinue STATE.SavedAndContinue = false; STATE.ValidationNeeded = true; if (InvalidFields() == 0) then ReturnValue = "{\"status\":\"ok\",\"name\":\"" + ElementName(CONFIG.ConfigurationName) + "\",\"version\":\"" + ElementVersion(CONFIG.ConfigurationName) + "\",\"continue\":\"true\"}"; local boolean _Result = SaveAndExit(); else STATE.WinkelkarInfoCalculated = false; STATE.WinkelkarInfoDiverseCalculated = false; local string _Feedback = ""; _Feedback = _Feedback + "<b>" + TRL.BewarenError@label + ":" + "</b>"; _Feedback = _Feedback + "<ul style='list-style-type:square;'>"; for i = 1 to Len(DATA.Lijn.InvalidFieldSet@options) local string _PropertyName = DATA.Lijn.InvalidFieldSet@option(i)@id; local string _Label = CStr(Eval(_PropertyName + "@label")); _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + _Label; _Feedback = _Feedback + "</li>"; end for; _Feedback = _Feedback + "</ul>"; local long _FeedbackResult = MsgBox(_Feedback); end if; SaveAndContinue ;state.savedandcontinue@value;state.validationneeded@value;returnvalue@value; STATE.KlantVoorkeurenSaved STATE.KlantVoorkeurenSaved = false; local boolean _Result; _Result = SetArg("saveas"; ElementName(CONFIG.KlantVoorkeurenConfigurationName)); _Result = eCon.UI.Tasks.Functions.Save(false); local string _Feedback = ""; if (_Result) then _Feedback = _Feedback + "<b>" + TRL.BewarenKlantVoorkeurenSucces@label + "</b>"; _Feedback = _Feedback + "<ul style='list-style-type:square;'>"; for i = 1 to Len(CONFIG.Defaults.KlantVoorkeuren@options) local string _PropertyName = CONFIG.Defaults.KlantVoorkeuren@option(i)@id; local string _Label = CStr(Eval(_PropertyName + "@id")); local string _Id = CStr(Eval(_PropertyName)); local string _Type = CStr(Eval(_PropertyName + "@Type")); if ((_Type == "String") and(_Id <> "")) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id); //eval(_PropertyName)); _Feedback = _Feedback + "</li>"; end if; if ((_Type == "Double") and(CDbl(_Id) > 0)) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + _Id; _Feedback = _Feedback + "</li>"; end if; if (_Type == "Boolean") then local boolean _IsNietMeeleveren = CBool(InStr(1; LCase(_Label); LCase("NietMeeleveren_"))); local long _PositionOfUnderscore = InStrRev(LCase(_PropertyName); "_"); local string _ShortName = Mid(LCase(_PropertyName); _PositionOfUnderscore + 1); if (_IsNietMeeleveren and CBool(_Id) and (LCase(_ShortName) in CONFIG.NietMeeleverenExtern@options)) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + DATA.Kenmerken.NietMeeleveren@label + ": " + GetLocalizedLabel(_Label); _Feedback = _Feedback + "</li>"; end if; if not(_IsNietMeeleveren) then _Feedback = _Feedback + "<li>"; _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id); _Feedback = _Feedback + "</li>"; end if; end if; end for; _Feedback = _Feedback + "</ul>"; else _Feedback = _Feedback + "<b>" + TRL.BewarenKlantVoorkeurenError@label + "</b>"; end if; local long _FeedbackResult = MsgBox(_Feedback); _Result = SetArg("saveas"; ElementName(CONFIG.ConfigurationName)); // originele ConfigurationName terugzetten SaveKlantVoorkeuren ;state.klantvoorkeurensaved@value; BAIAAAAAAAA= BQMAAAAAAAA= AgEAAAAAAAACAgAAAAAAAAIDAAAAAAAAAgQAAAAAAAABCQAAAAAAAA== AQEAAAAAAAACAQAAAAAAAAMBAAAAAAAACAEAAAAAAAAJAQAAAAAAAAEFAAAAAAAAAgUAAAAAAAA= AQQCAAAAAAACBAIAAAAAAA== AQYAAAAAAAA= AgEAAAAAAAACBQAAAAAAAA== AQIAAAAAAAACAgAAAAAAAAMCAAAAAAAABQIAAAAAAAABAwAAAAAAAA== AQIAAAAAAAACAgAAAAAAAAMCAAAAAAAABwIAAAAAAAAIAgAAAAAAAAkCAAAAAAAAAQMAAAAAAAACAwAAAAAAAA== AgIAAAAAAAACAwAAAAAAAA== AgIAAAAAAAA= AgIAAAAAAAA= AQIAAAAAAAADAgAAAAAAAAUCAAAAAAAAAQMAAAAAAAA= BAIAAAAAAAAEAwAAAAAAAAIEAAAAAAAAAwQAAAAAAAAEBAAAAAAAAA== AQMAAAAAAAADAwAAAAAAAAQDAAAAAAAABQMAAAAAAAA= AgEDAAAAAAACAgMAAAAAAA== AQMBAAAAAAAJAwEAAAAAAAMFAQAAAAAACQMCAAAAAAABAwMAAAAAAAkDAwAAAAAAAwUDAAAAAAAEAQQAAAAAAAcBBAAAAAAAAQMEAAAAAAACAwQAAAAAAAkDBAAAAAAAAwUEAAAAAAA= AQEDAgAAAAABAwUCAAAAAA== AQIAAAAAAAA= AgUDAAAAAAA= AgICAAAAAAA= AgIAAAAAAAA= BgECAAAAAAAHAQIAAAAAAAgBAgAAAAAACQECAAAAAAADAgIAAAAAAAUCAgAAAAAABgICAAAAAAAHAgIAAAAAAAgCAgAAAAAACQICAAAAAAA= AQIBAAAAAAADAgEAAAAAAA== AQIBAAAAAAA= AgQAAAAAAAADBAAAAAAAAAQEAAAAAAAABQQAAAAAAAAGBAAAAAAAAA== BQMAAAAAAAA= AgIAAAAAAAADAgAAAAAAAAQCAAAAAAAABQIAAAAAAAAGAgAAAAAAAAIDAAAAAAAAAwMAAAAAAAAEAwAAAAAAAAUDAAAAAAAABgMAAAAAAAACBAAAAAAAAAMEAAAAAAAABAQAAAAAAAAFBAAAAAAAAAYEAAAAAAAA BAIAAAAAAAA= AgIDAQEAAAACAgQBAQAAAAICAQIBAAAAAgICAgEAAAACAgUCAQAAAAICAwMBAAAAAgIEAwEAAAACAgMEAQAAAAICBAQBAAAAAgIDBQEAAAACAgQFAQAAAA== AQMAAAAAAAACAwAAAAAAAAQDAAAAAAAA AgEAAAAAAAACAgAAAAAAAAIDAAAAAAAA AgQAAAAAAAA=