Index: production/models/tax/TAX Configurator,1.0.0.xml =================================================================== diff -u -r4426 -r4453 --- production/models/tax/TAX Configurator,1.0.0.xml (.../TAX Configurator,1.0.0.xml) (revision 4426) +++ production/models/tax/TAX Configurator,1.0.0.xml (.../TAX Configurator,1.0.0.xml) (revision 4453) @@ -2623,6 +2623,8 @@ + + @@ -2671,147 +2673,147 @@ 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.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 Algemene input parameters ophalen ;config.backend@value;config.processmode@value;config.token@value;config.language@value;config.initiator@value; true - -BEHAVIOR.IsEconAx = (CONFIG.Backend == "axapta"); -BEHAVIOR.IsEconWeb = (CONFIG.Backend <> "axapta"); + +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 - - if (_IsInitiatorAxMsgTableSalesOrderIn) then - _BEHAVIOR_ContextName = "AxCreateEdi"; - else - _BEHAVIOR_ContextName = "AxCreateVH4"; -/* * / - _KenmerkenOorsprong = "VH4"; // VH4 of EDI of OCC [TODO] onderscheid nog te bepalen, indien mogelijk. - if _KenmerkenOorsprong == "VH4" then - _BEHAVIOR_ContextName = "AxCreateVH4"; - end if; - if _KenmerkenOorsprong == "OCC" then - _BEHAVIOR_ContextName = "AxCreateOcc"; - end if; -/* */ - end if; - -else - - if (_IsNieuweIngaveInAx) then - _BEHAVIOR_ContextName = "AxNew"; - 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; + +local string _Configuration = GetArg("configuration"); + +local string _BEHAVIOR_AccessMode; +local string _BEHAVIOR_OperationMode; +local string _BEHAVIOR_ContextName; +local boolean _IsNieuweIngaveInAx = (DATA.Lijn.GroeperingCode == ""); // Tijdelijk getest via GroeperingCode ingevuld; [TODO] vind een goede manier om de AxNew te bepalen. +local boolean _IsEditEdiFromSalesOrderIn; +local boolean _IsInitiatorAxMsgTableSalesOrderIn = (CONFIG.Initiator == "Ax.MsgTableSalesOrderIn"); + +_BEHAVIOR_AccessMode = "Intern"; // Voor AX is AccessMode altijd "Intern". (voorlopig toch) + + +_BEHAVIOR_OperationMode = ""; +if (CONFIG.ProcessMode == "Background") then + _BEHAVIOR_OperationMode = "AxCreate"; +else + if (_IsNieuweIngaveInAx) then + _BEHAVIOR_OperationMode = "New"; + else + _BEHAVIOR_OperationMode = "Edit"; + end if; +end if; + + +_BEHAVIOR_ContextName = "null"; +if (CONFIG.ProcessMode == "Background") then + + if (_IsInitiatorAxMsgTableSalesOrderIn) then + _BEHAVIOR_ContextName = "AxCreateEdi"; + else + _BEHAVIOR_ContextName = "AxCreateVH4"; +/* * / + _KenmerkenOorsprong = "VH4"; // VH4 of EDI of OCC [TODO] onderscheid nog te bepalen, indien mogelijk. + if _KenmerkenOorsprong == "VH4" then + _BEHAVIOR_ContextName = "AxCreateVH4"; + end if; + if _KenmerkenOorsprong == "OCC" then + _BEHAVIOR_ContextName = "AxCreateOcc"; + end if; +/* */ + end if; + +else + + if (_IsNieuweIngaveInAx) then + _BEHAVIOR_ContextName = "AxNew"; + 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; + +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; @@ -2825,183 +2827,183 @@ true - -local string _AxKlantId = GetArg("AxKlantId"); -local string _GeconverteerdeKlantId = CStr(CLng(_AxKlantId)); -CONFIG.Settings.KlantId = _GeconverteerdeKlantId; -local string _PersonalityId = GetArg("PersonalityId"); -local string _PersonalityKlantId = GetArg("TraderCustId"); -local string _OorsprongKetting = GetArg("OorsprongKetting"); -local string _DwarsverdelingTypeToegelatenInhoud = GetArg("DwarsverdelingTypeToegelaten"); - -if (not (_OorsprongKetting == "")) then - local long _PositieInOorsprongKettingNaOpeningshaakjes = 3; - local long _PositieEersteKommaInOorsprongKetting = CLng(InStr(1; _OorsprongKetting; ",")); - local long _AantalKaraktersVanPersonalityId = _PositieEersteKommaInOorsprongKetting - _PositieInOorsprongKettingNaOpeningshaakjes; - local string _PersonalityIdOorsprongKetting = Mid(_OorsprongKetting; _PositieInOorsprongKettingNaOpeningshaakjes; _AantalKaraktersVanPersonalityId); - CONFIG.Settings.PersonalityId = _PersonalityIdOorsprongKetting; - - 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 _PersonalityKlantIdOorsprongKetting = Mid(_OorsprongKetting; _PositieEersteAanhalingstekenInOorsprongKetting + 1; _AantalKaraktersVanPersonalityKlantId); - if (_PersonalityIdOorsprongKetting == "1") then - _PersonalityKlantIdOorsprongKetting = Mid(_PersonalityKlantIdOorsprongKetting; 4); // Bij Personality Van Hoecke moet "K||" eraf gestript worden. - else - local long _PositieEersteUnderscoreInPersonalityKlantId = CLng(InStr(1; _PersonalityKlantId; "_")); - _PersonalityKlantIdOorsprongKetting = Mid(_PersonalityKlantIdOorsprongKetting; _PositieEersteUnderscoreInPersonalityKlantId + 1); // Bij andere Personalities moet de prefix eraf gestript worden. - end if; - CONFIG.Settings.PersonalityKlantId = _PersonalityKlantIdOorsprongKetting; -else - CONFIG.Settings.PersonalityId = _PersonalityId; - 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.KleurBardolinoToegelaten = CBool(GetArg("kleurbardolinoeiktoegelaten")); -CONFIG.Settings.KleurNatuurEsdoornToegelaten = CBool(GetArg("kleuresdoorntoegelaten")); -CONFIG.Settings.KleurOudZwartToegelaten = CBool(GetArg("kleuroudzwarttoegelaten")); -CONFIG.Settings.KleurWalnutMediumBrownToegelaten = CBool(GetArg("kleurwalnutmediumbrowntoegelaten")); -CONFIG.Settings.KoppelingTypeMoventoToegelaten = CBool(GetArg("KoppelingTypeMoventoToegelaten")); -CONFIG.Settings.AXUserId = GetArg("axuserid"); // Alleen in AX -CONFIG.Settings.IsMaatwerkViewerToegelaten = CBool(GetArg("IsMaatwerkViewerToegelaten")); // Alleen in AX - -if (_DwarsverdelingTypeToegelatenInhoud <> "") then - CONFIG.Settings.DwarsverdelingTypeToegelaten = CBool(GetArg("DwarsverdelingTypeToegelaten")); -end if; - -SalesTableAx = GetArg("SalesTableAx"); + +local string _AxKlantId = GetArg("AxKlantId"); +local string _GeconverteerdeKlantId = CStr(CLng(_AxKlantId)); +CONFIG.Settings.KlantId = _GeconverteerdeKlantId; +local string _PersonalityId = GetArg("PersonalityId"); +local string _PersonalityKlantId = GetArg("TraderCustId"); +local string _OorsprongKetting = GetArg("OorsprongKetting"); +local string _DwarsverdelingTypeToegelatenInhoud = GetArg("DwarsverdelingTypeToegelaten"); + +if (not (_OorsprongKetting == "")) then + local long _PositieInOorsprongKettingNaOpeningshaakjes = 3; + local long _PositieEersteKommaInOorsprongKetting = CLng(InStr(1; _OorsprongKetting; ",")); + local long _AantalKaraktersVanPersonalityId = _PositieEersteKommaInOorsprongKetting - _PositieInOorsprongKettingNaOpeningshaakjes; + local string _PersonalityIdOorsprongKetting = Mid(_OorsprongKetting; _PositieInOorsprongKettingNaOpeningshaakjes; _AantalKaraktersVanPersonalityId); + CONFIG.Settings.PersonalityId = _PersonalityIdOorsprongKetting; + + 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 _PersonalityKlantIdOorsprongKetting = Mid(_OorsprongKetting; _PositieEersteAanhalingstekenInOorsprongKetting + 1; _AantalKaraktersVanPersonalityKlantId); + if (_PersonalityIdOorsprongKetting == "1") then + _PersonalityKlantIdOorsprongKetting = Mid(_PersonalityKlantIdOorsprongKetting; 4); // Bij Personality Van Hoecke moet "K||" eraf gestript worden. + else + local long _PositieEersteUnderscoreInPersonalityKlantId = CLng(InStr(1; _PersonalityKlantId; "_")); + _PersonalityKlantIdOorsprongKetting = Mid(_PersonalityKlantIdOorsprongKetting; _PositieEersteUnderscoreInPersonalityKlantId + 1); // Bij andere Personalities moet de prefix eraf gestript worden. + end if; + CONFIG.Settings.PersonalityKlantId = _PersonalityKlantIdOorsprongKetting; +else + CONFIG.Settings.PersonalityId = _PersonalityId; + 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.KleurBardolinoToegelaten = CBool(GetArg("kleurbardolinoeiktoegelaten")); +CONFIG.Settings.KleurNatuurEsdoornToegelaten = CBool(GetArg("kleuresdoorntoegelaten")); +CONFIG.Settings.KleurOudZwartToegelaten = CBool(GetArg("kleuroudzwarttoegelaten")); +CONFIG.Settings.KleurWalnutMediumBrownToegelaten = CBool(GetArg("kleurwalnutmediumbrowntoegelaten")); +CONFIG.Settings.KoppelingTypeMoventoToegelaten = CBool(GetArg("KoppelingTypeMoventoToegelaten")); +CONFIG.Settings.AXUserId = GetArg("axuserid"); // Alleen in AX +CONFIG.Settings.IsMaatwerkViewerToegelaten = CBool(GetArg("IsMaatwerkViewerToegelaten")); // Alleen in AX + +if (_DwarsverdelingTypeToegelatenInhoud <> "") then + CONFIG.Settings.DwarsverdelingTypeToegelaten = CBool(GetArg("DwarsverdelingTypeToegelaten")); +end if; + +SalesTableAx = GetArg("SalesTableAx"); Settings ophalen uit argumenten ;config.settings.klantid@value;config.settings.personalityid@value;config.settings.personalityklantid@value;config.settings.kleurbardolinotoegelaten@value;config.settings.kleurnatuuresdoorntoegelaten@value;config.settings.kleuroudzwarttoegelaten@value;config.settings.kleurwalnutmediumbrowntoegelaten@value;config.settings.koppelingtypemoventotoegelaten@value;config.settings.axuserid@value;config.settings.ismaatwerkviewertoegelaten@value;config.settings.dwarsverdelingtypetoegelaten@value;salestableax@value; - BEHAVIOR.IsAxCreate - + BEHAVIOR.IsAxCreate + - -CONFIG.CreateContext.KeyValue@Length = 13; - -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 = "kleurbardolinoeiktoegelaten"; -CONFIG.CreateContext.KeyValue(9).Value = GetArg("kleurbardolinoeiktoegelaten"); - -CONFIG.CreateContext.KeyValue(10).Name = "kleuresdoorntoegelaten"; -CONFIG.CreateContext.KeyValue(10).Value = GetArg("kleuresdoorntoegelaten"); - -CONFIG.CreateContext.KeyValue(11).Name = "kleuroudzwarttoegelaten"; -CONFIG.CreateContext.KeyValue(11).Value = GetArg("kleuroudzwarttoegelaten"); - -CONFIG.CreateContext.KeyValue(12).Name = "KoppelingTypeMoventoToegelaten"; -CONFIG.CreateContext.KeyValue(12).Value = GetArg("KoppelingTypeMoventoToegelaten"); - -CONFIG.CreateContext.KeyValue(13).Name = "kleurwalnutmediumbrowntoegelaten"; -CONFIG.CreateContext.KeyValue(13).Value = GetArg("kleurwalnutmediumbrowntoegelaten"); + +CONFIG.CreateContext.KeyValue@Length = 13; + +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 = "kleurbardolinoeiktoegelaten"; +CONFIG.CreateContext.KeyValue(9).Value = GetArg("kleurbardolinoeiktoegelaten"); + +CONFIG.CreateContext.KeyValue(10).Name = "kleuresdoorntoegelaten"; +CONFIG.CreateContext.KeyValue(10).Value = GetArg("kleuresdoorntoegelaten"); + +CONFIG.CreateContext.KeyValue(11).Name = "kleuroudzwarttoegelaten"; +CONFIG.CreateContext.KeyValue(11).Value = GetArg("kleuroudzwarttoegelaten"); + +CONFIG.CreateContext.KeyValue(12).Name = "KoppelingTypeMoventoToegelaten"; +CONFIG.CreateContext.KeyValue(12).Value = GetArg("KoppelingTypeMoventoToegelaten"); + +CONFIG.CreateContext.KeyValue(13).Name = "kleurwalnutmediumbrowntoegelaten"; +CONFIG.CreateContext.KeyValue(13).Value = GetArg("kleurwalnutmediumbrowntoegelaten"); CreateContext ophalen uit argumenten ;config.createcontext.keyvalue[1].name@value;config.createcontext.keyvalue[1].value@value; (CONFIG.ProcessMode == "Background") - -Data.Kenmerken.AfdekkapBovenKleur = GetArg("data;kenmerken;afdekkapbovenkleur"); -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.DwarsverdelingKleur = GetArg("data;kenmerken;dwarsverdelingkleur"); -Data.Kenmerken.DwarsverdelingType = GetArg("data;kenmerken;dwarsverdelingtype"); -Data.Kenmerken.Familie = GetArg("data;kenmerken;familie"); -Data.Kenmerken.FrontBevestiging = GetArg("data;kenmerken;frontbevestiging"); -Data.Kenmerken.FrontEindkapKleur = GetArg("data;kenmerken;fronteindkapkleur"); -Data.Kenmerken.GeleiderTechnologie = GetArg("data;kenmerken;geleidertechnologie"); -Data.Kenmerken.GeleiderType = GetArg("data;kenmerken;geleidertype"); -Data.Kenmerken.HeeftAfwijkendeRugHoogte = CBool(GetArg("data;kenmerken;heeftafwijkenderughoogte")); -Data.Kenmerken.HeeftDiepteverstelling = CBool(GetArg("data;kenmerken;heeftdiepteverstelling")); -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.KantenbandKleur = GetArg("data;kenmerken;kantenbandkleur"); -Data.Kenmerken.KoppelingType = GetArg("data;kenmerken;koppelingtype"); -Data.Kenmerken.LadeBinnenKleur = GetArg("data;kenmerken;ladebinnenkleur"); -Data.Kenmerken.LadeDiepte = GetArg("data;kenmerken;ladediepte"); -Data.Kenmerken.LadeHoogte = GetArg("data;kenmerken;ladehoogte"); -Data.Kenmerken.LadeKleur = GetArg("data;kenmerken;ladekleur"); -Data.Kenmerken.LosseComponent = GetArg("data;kenmerken;lossecomponent"); -Data.Kenmerken.Matkleur = GetArg("data;kenmerken;matkleur"); -Data.Kenmerken.Matmateriaal = GetArg("data;kenmerken;matmateriaal"); -Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBoven = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkapboven")); -Data.Kenmerken.NietMeeleveren.NietMeeleveren_BodemOndersteuning = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_bodemondersteuning")); -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_Koppeling = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_koppeling")); -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_TiponSynchronisatieSet = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponsynchronisatieset")); -Data.Kenmerken.OpvullijstKleur = GetArg("data;kenmerken;opvullijstkleur"); -Data.Kenmerken.ProductieWijze = GetArg("data;kenmerken;productiewijze"); -Data.Kenmerken.RugHoogte = GetArg("data;kenmerken;rughoogte"); -Data.Kenmerken.SpecialType = GetArg("data;kenmerken;specialtype"); -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.ZijkantLogoId= GetArg("data;kenmerken;zijkantlogoid"); - -Data.Lijn.Aantal = CDbl(GetArg("data;lijn;aantal")); -Data.Lijn.Referentie = GetArg("data;lijn;referentie"); + +Data.Kenmerken.AfdekkapBovenKleur = GetArg("data;kenmerken;afdekkapbovenkleur"); +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.DwarsverdelingKleur = GetArg("data;kenmerken;dwarsverdelingkleur"); +Data.Kenmerken.DwarsverdelingType = GetArg("data;kenmerken;dwarsverdelingtype"); +Data.Kenmerken.Familie = GetArg("data;kenmerken;familie"); +Data.Kenmerken.FrontBevestiging = GetArg("data;kenmerken;frontbevestiging"); +Data.Kenmerken.FrontEindkapKleur = GetArg("data;kenmerken;fronteindkapkleur"); +Data.Kenmerken.GeleiderTechnologie = GetArg("data;kenmerken;geleidertechnologie"); +Data.Kenmerken.GeleiderType = GetArg("data;kenmerken;geleidertype"); +Data.Kenmerken.HeeftAfwijkendeRugHoogte = CBool(GetArg("data;kenmerken;heeftafwijkenderughoogte")); +Data.Kenmerken.HeeftDiepteverstelling = CBool(GetArg("data;kenmerken;heeftdiepteverstelling")); +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.KantenbandKleur = GetArg("data;kenmerken;kantenbandkleur"); +Data.Kenmerken.KoppelingType = GetArg("data;kenmerken;koppelingtype"); +Data.Kenmerken.LadeBinnenKleur = GetArg("data;kenmerken;ladebinnenkleur"); +Data.Kenmerken.LadeDiepte = GetArg("data;kenmerken;ladediepte"); +Data.Kenmerken.LadeHoogte = GetArg("data;kenmerken;ladehoogte"); +Data.Kenmerken.LadeKleur = GetArg("data;kenmerken;ladekleur"); +Data.Kenmerken.LosseComponent = GetArg("data;kenmerken;lossecomponent"); +Data.Kenmerken.Matkleur = GetArg("data;kenmerken;matkleur"); +Data.Kenmerken.Matmateriaal = GetArg("data;kenmerken;matmateriaal"); +Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBoven = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_afdekkapboven")); +Data.Kenmerken.NietMeeleveren.NietMeeleveren_BodemOndersteuning = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_bodemondersteuning")); +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_Koppeling = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_koppeling")); +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_TiponSynchronisatieSet = CBool(GetArg("data;kenmerken;nietmeeleveren;nietmeeleveren_tiponsynchronisatieset")); +Data.Kenmerken.OpvullijstKleur = GetArg("data;kenmerken;opvullijstkleur"); +Data.Kenmerken.ProductieWijze = GetArg("data;kenmerken;productiewijze"); +Data.Kenmerken.RugHoogte = GetArg("data;kenmerken;rughoogte"); +Data.Kenmerken.SpecialType = GetArg("data;kenmerken;specialtype"); +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.ZijkantLogoId= GetArg("data;kenmerken;zijkantlogoid"); + +Data.Lijn.Aantal = CDbl(GetArg("data;lijn;aantal")); +Data.Lijn.Referentie = GetArg("data;lijn;referentie"); Kenmerken ophalen uit argumenten (Background) ;data.kenmerken.afdekkapbovenkleur@value;data.kenmerken.bodemkleur@value;data.kenmerken.corpusbreedte@value;data.kenmerken.corpuswanddikte@value;data.kenmerken.draagkracht@value;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.dwarsverdelingkleur@value;data.kenmerken.dwarsverdelingtype@value;data.kenmerken.familie@value;data.kenmerken.frontbevestiging@value;data.kenmerken.fronteindkapkleur@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.geleidertype@value;data.kenmerken.heeftafwijkenderughoogte@value;data.kenmerken.heeftdiepteverstelling@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.kantenbandkleur@value;data.kenmerken.koppelingtype@value;data.kenmerken.ladebinnenkleur@value;data.kenmerken.ladediepte@value;data.kenmerken.ladehoogte@value;data.kenmerken.ladekleur@value;data.kenmerken.lossecomponent@value;data.kenmerken.matkleur@value;data.kenmerken.matmateriaal@value;data.kenmerken.nietmeeleveren.nietmeeleveren_afdekkapboven@value;data.kenmerken.nietmeeleveren.nietmeeleveren_bodemondersteuning@value;data.kenmerken.nietmeeleveren.nietmeeleveren_frontbevestiging@value;data.kenmerken.nietmeeleveren.nietmeeleveren_geleider@value;data.kenmerken.nietmeeleveren.nietmeeleveren_koppeling@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_tiponsynchronisatieset@value;data.kenmerken.opvullijstkleur@value;data.kenmerken.productiewijze@value;data.kenmerken.rughoogte@value;data.kenmerken.specialtype@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.zijkantlogoid@value;data.lijn.aantal@value;data.lijn.referentie@value; @@ -3017,9 +3019,9 @@ not(CONFIG.Backend == "axapta") - if (CONFIG.Token == "") then - // todo: configurator afsluiten indien geen token opgegeven - local boolean _Result = true; //Exit(true;false); + if (CONFIG.Token == "") then + // todo: configurator afsluiten indien geen token opgegeven + local boolean _Result = true; //Exit(true;false); end if; Initialisatie web ; @@ -3032,40 +3034,40 @@ true - -local string _DebugMode = GetSetting("ui.debugmode"); -local string _DebugModeArg = GetArg("debugmode"); -local string _HideMobileSwitch = GetSetting("ui.hidemobileswitch"); -local string _Mobile = GetSetting("ui.mobile"); -local boolean _IsAxUserIdNietMeegegeven = (BEHAVIOR.IsEconAx and (GetArg("axuserid") == "")); // Bron = Generic Model form in AX - -if (LCase(_DebugMode) == "true") or (LCase(_DebugModeArg) == "true") or _IsAxUserIdNietMeegegeven then - Config.Settings.DebugMode = true; -end if; - -if (LCase(_Mobile) == "true") then - Config.Settings.Mobile = true; -end if; - -if (LCase(_HideMobileSwitch) == "true") then - Config.Settings.HideMobileSwitch = true; -end if; - -Config.Settings.DeviceMode = GetSetting("ui.device"); - -$InspectorPane@visible = Config.Settings.DebugMode; + +local string _DebugMode = GetSetting("ui.debugmode"); +local string _DebugModeArg = GetArg("debugmode"); +local string _HideMobileSwitch = GetSetting("ui.hidemobileswitch"); +local string _Mobile = GetSetting("ui.mobile"); +local boolean _IsAxUserIdNietMeegegeven = (BEHAVIOR.IsEconAx and (GetArg("axuserid") == "")); // Bron = Generic Model form in AX + +if (LCase(_DebugMode) == "true") or (LCase(_DebugModeArg) == "true") or _IsAxUserIdNietMeegegeven then + Config.Settings.DebugMode = true; +end if; + +if (LCase(_Mobile) == "true") then + Config.Settings.Mobile = true; +end if; + +if (LCase(_HideMobileSwitch) == "true") then + Config.Settings.HideMobileSwitch = true; +end if; + +Config.Settings.DeviceMode = GetSetting("ui.device"); + +$InspectorPane@visible = Config.Settings.DebugMode; Ophalen DebugMode ;config.settings.debugmode@value;config.settings.mobile@value;config.settings.hidemobileswitch@value;config.settings.devicemode@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); - + 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; @@ -3078,242 +3080,248 @@ true - 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); + 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; + 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 BEHAVIOR.OperationMode == "CreateConfig" then - CONFIG.Settings.KleurOnbehandeldeEikToegelaten = true; -else - _Result = LoadFromJSONService("CONFIG.Settings.KeyValue"; _Json; false); - - /*if not(_Result) then - ReturnValue = "{\"status\":\"cancel\"}"; - _Result = Exit(true;false); - end if; - */ -end if; - -index i of CONFIG.Settings.KeyValue - _Result = SetValue("CONFIG.Settings." + CONFIG.Settings.KeyValue(i).Name; CONFIG.Settings.KeyValue(i).Value); -end index; - -if (CONFIG.Settings.PersonalityId == "") then - CONFIG.Settings.PersonalityId = "1"; -end if; - -CONFIG.Settings.VerpakkingDefaultenBijKeuzeSifonlade = true; + +local string _Setting = GetSetting("data.vanhoecke.connectionstring.vhisie4.settings"); +local string _Json = _Setting + CONFIG.Token; + +local boolean _Result; + +if BEHAVIOR.OperationMode == "CreateConfig" then + CONFIG.Settings.KleurOnbehandeldeEikToegelaten = true; +else + _Result = LoadFromJSONService("CONFIG.Settings.KeyValue"; _Json; false); + + /*if not(_Result) then + ReturnValue = "{\"status\":\"cancel\"}"; + _Result = Exit(true;false); + end if; + */ +end if; + +index i of CONFIG.Settings.KeyValue + _Result = SetValue("CONFIG.Settings." + CONFIG.Settings.KeyValue(i).Name; CONFIG.Settings.KeyValue(i).Value); +end index; + +if (CONFIG.Settings.PersonalityId == "") then + CONFIG.Settings.PersonalityId = "1"; +end if; + +CONFIG.Settings.VerpakkingDefaultenBijKeuzeSifonlade = true; Config settings ophalen (Web) ;config.settings.kleuronbehandeldeeiktoegelaten@value;config.settings.personalityid@value;config.settings.verpakkingdefaultenbijkeuzesifonlade@value; true - -local collection _ExportPersonalities = {"3";"10";"11";"13";"14";"16";"17";"18";"19";"20";"32";"33";"34";"35";"36";"37";"38";"39";"40";"41";"42";"43";"44";"45"}; -// Volgende Personalities zijn wellicht niet meer actief: 11, 13, 14, 16, 17, 18, 19, 20, 32,34, 35, 36 - -BEHAVIOR.IsExportPersonality = (Config.Settings.PersonalityId in _ExportPersonalities); + +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"}; +// Volgende Personalities zijn wellicht niet meer actief: 11, 13, 14, 16, 17, 18, 19, 20, 32,34, 35, 36 + +BEHAVIOR.IsExportPersonality = (Config.Settings.PersonalityId in _ExportPersonalities); Config settings ExportPersonalities ;behavior.isexportpersonality@value; (CONFIG.Token <> "") and (Config.Backend <> "axapta") - -local collection _IsDwarsverdelingToegelatenPersonalities; - -// HEIN + SEEFELDER -/*if ((Config.Settings.PersonalityId == "11") or (Config.Settings.PersonalityId == "13")) then - Config.Settings.FrontBevestigingVerbergen = true; -end if;*/ - -// DARO -if (Config.Settings.PersonalityId == "10") then - Config.Settings.NietMeeleverenVerbergen = false; - CONFIG.Settings.VerpakkingFlatpackV1Toegelaten= false; - CONFIG.Settings.VerpakkingProboxToegelaten= false; -end if; - -// BESLAG DESIGN -if (Config.Settings.PersonalityId == "14") then - Config.Settings.KleurBardolinoToegelaten = false; - Config.Settings.KleurNebraskaToegelaten = false; -end if; - - -// PAVANELLO -/*if (Config.Settings.PersonalityId == "18") then - Config.Settings.NietMeeleverenVerbergen = true; -end if;*/ - -// FURNIFIT -if (Config.Settings.PersonalityId == "24") then - Config.Settings.VerpakkingProboxToegelaten = false; -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; - -// Dwarsverdeling zal systematisch ingefaseerd worden voor ExportPersonalities (en Export-klanten) -if (BEHAVIOR.IsExportPersonality == true) then - BEHAVIOR.IsDwarsverdelingToegelaten = false; // Per default false voor alle ExportPersonalities: - - // Ingefaseerd voor: 3/SFS, 10/Daro, 33/HaefeleDE, 37/HaefeleSE, 38/HaefeleFI, 39/HaefeleIT, 40/HaefeleAT, 41/Opo, 42/HaefeleFR, 43/HaefeleDK, 44/HaefeleCH, 45/HaefeleNO - _IsDwarsverdelingToegelatenPersonalities = {"3";"10";"33";"37";"38";"39";"40";"41";"42";"43";"44";"45"}; - if (Config.Settings.PersonalityId in _IsDwarsverdelingToegelatenPersonalities) then - BEHAVIOR.IsDwarsverdelingToegelaten = true; - end if; - - if (Config.Settings.PersonalityId == "41") then - // 41/Opo wordt uitgesloten omdat zij concurrent zijn van SFS en SFS is onze leverancier van DwarsverdelingDubbelHouder. - BEHAVIOR.IsDwarsverdelingTypeToegelaten = false; - end if; - -end if; + +local collection _IsDwarsverdelingToegelatenPersonalities; + +// HEIN + SEEFELDER +/*if ((Config.Settings.PersonalityId == "11") or (Config.Settings.PersonalityId == "13")) then + Config.Settings.FrontBevestigingVerbergen = true; +end if;*/ + +// DARO +if (Config.Settings.PersonalityId == "10") then + Config.Settings.NietMeeleverenVerbergen = false; + CONFIG.Settings.VerpakkingFlatpackV1Toegelaten= false; + CONFIG.Settings.VerpakkingProboxToegelaten= false; +end if; + +// BESLAG DESIGN +if (Config.Settings.PersonalityId == "14") then + Config.Settings.KleurBardolinoToegelaten = false; + Config.Settings.KleurNebraskaToegelaten = false; +end if; + + +// PAVANELLO +/*if (Config.Settings.PersonalityId == "18") then + Config.Settings.NietMeeleverenVerbergen = true; +end if;*/ + +// FURNIFIT +if (Config.Settings.PersonalityId == "24") then + Config.Settings.VerpakkingProboxToegelaten = false; +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; + +// BLUM POLSKA +if (Config.Settings.PersonalityId == "48") then + BEHAVIOR.IsMaximaleBreedteBeperktTot1168Mm = true; +end if; + + +// Dwarsverdeling zal systematisch ingefaseerd worden voor ExportPersonalities (en Export-klanten) +if (BEHAVIOR.IsExportPersonality == true) then + BEHAVIOR.IsDwarsverdelingToegelaten = false; // Per default false voor alle ExportPersonalities: + + // Ingefaseerd voor: 3/SFS, 10/Daro, 33/HaefeleDE, 37/HaefeleSE, 38/HaefeleFI, 39/HaefeleIT, 40/HaefeleAT, 41/Opo, 42/HaefeleFR, 43/HaefeleDK, 44/HaefeleCH, 45/HaefeleNO + _IsDwarsverdelingToegelatenPersonalities = {"3";"10";"33";"37";"38";"39";"40";"41";"42";"43";"44";"45"}; + if (Config.Settings.PersonalityId in _IsDwarsverdelingToegelatenPersonalities) then + BEHAVIOR.IsDwarsverdelingToegelaten = true; + end if; + + if (Config.Settings.PersonalityId == "41") then + // 41/Opo wordt uitgesloten omdat zij concurrent zijn van SFS en SFS is onze leverancier van DwarsverdelingDubbelHouder. + BEHAVIOR.IsDwarsverdelingTypeToegelaten = false; + end if; + +end if; Config settings hardcoded (settings voor de MP) - ;config.settings.nietmeeleverenverbergen@value;config.settings.verpakkingflatpackv1toegelaten@value;config.settings.verpakkingproboxtoegelaten@value;config.settings.kleurbardolinotoegelaten@value;config.settings.kleurnebraskatoegelaten@value;config.settings.matmateriaalantisliptoegelaten@value;behavior.isdwarsverdelingtoegelaten@value; + ;config.settings.nietmeeleverenverbergen@value;config.settings.verpakkingflatpackv1toegelaten@value;config.settings.verpakkingproboxtoegelaten@value;config.settings.kleurbardolinotoegelaten@value;config.settings.kleurnebraskatoegelaten@value;config.settings.matmateriaalantisliptoegelaten@value;behavior.ismaximalebreedtebeperkttot1168mm@value;behavior.isdwarsverdelingtoegelaten@value; true - -BEHAVIOR.IsKoppelingTypeMoventoToegelaten = true; // Voortaan hardcoded, voor alle klanten, i.p.v. via CONFIG.Settings.KoppelingTypeMoventoToegelaten; - -if (BEHAVIOR.IsEconAx) then - BEHAVIOR.IsDwarsverdelingToegelaten = true; -end if; - -if (BEHAVIOR.IsDwarsverdelingTypeToegelaten == true) then // Kan al op false staan vanwege Config settings hardcoded - BEHAVIOR.IsDwarsverdelingTypeToegelaten = CONFIG.Settings.DwarsverdelingTypeToegelaten; -end if; - -// Voor Alpnach via SFS is Bardolino Eik (E1) toegelaten en moet BevatGeleiderBevestigingSchroeven uitzonderlijk op true gezet worden: -if (BEHAVIOR.IsEconAx and CONFIG.Settings.PersonalityId == "3" and CONFIG.Settings.PersonalityKlantId == "123456") then - CONFIG.Settings.KleurBardolinoToegelaten = true; - DATA.Kenmerken.BevatGeleiderBevestigingSchroeven = true; -else - DATA.Kenmerken.BevatGeleiderBevestigingSchroeven = false; -end if; + +BEHAVIOR.IsKoppelingTypeMoventoToegelaten = true; // Voortaan hardcoded, voor alle klanten, i.p.v. via CONFIG.Settings.KoppelingTypeMoventoToegelaten; + +if (BEHAVIOR.IsEconAx) then + BEHAVIOR.IsDwarsverdelingToegelaten = true; +end if; + +if (BEHAVIOR.IsDwarsverdelingTypeToegelaten == true) then // Kan al op false staan vanwege Config settings hardcoded + BEHAVIOR.IsDwarsverdelingTypeToegelaten = CONFIG.Settings.DwarsverdelingTypeToegelaten; +end if; + +// Voor Alpnach via SFS is Bardolino Eik (E1) toegelaten en moet BevatGeleiderBevestigingSchroeven uitzonderlijk op true gezet worden: +if (BEHAVIOR.IsEconAx and CONFIG.Settings.PersonalityId == "3" and CONFIG.Settings.PersonalityKlantId == "123456") then + CONFIG.Settings.KleurBardolinoToegelaten = true; + DATA.Kenmerken.BevatGeleiderBevestigingSchroeven = true; +else + DATA.Kenmerken.BevatGeleiderBevestigingSchroeven = false; +end if; Instellen overig Gedrag (BEHAVIORS) ;behavior.iskoppelingtypemoventotoegelaten@value;behavior.isdwarsverdelingtoegelaten@value;behavior.isdwarsverdelingtypetoegelaten@value;config.settings.kleurbardolinotoegelaten@value;data.kenmerken.bevatgeleiderbevestigingschroeven@value; (Behavior.IsInteractive == true) and (CONFIG.Settings.KlantId <> "") - -local string _XmlRequest = ""; -local string _eConTaal = CONFIG.Language; -local string _VhTaalCode = _eConTaal; // Nog te converteren naar vhTaalCode -local string _KlantId = CONFIG.Settings.KlantId; - -if BEHAVIOR.IsEconAx then - _KlantId = CONFIG.Settings.PersonalityKlantId; -end if; - -_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:GeefZijkantLogosVoorKlant>"; -_XmlRequest = _XmlRequest + "<v4:Request>"; -_XmlRequest = _XmlRequest + "<v4:Header>"; -_XmlRequest = _XmlRequest + "<v4:KlantID>" + _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:Request>"; -_XmlRequest = _XmlRequest + "</v4:GeefZijkantLogosVoorKlant>"; -_XmlRequest = _XmlRequest + "</soapenv:Body>"; -_XmlRequest = _XmlRequest + "</soapenv:Envelope>"; - -local string _Service = GetSetting("data.vanhoecke.connectionstring.cache.zijkantlogo"); -local boolean _Result = LoadFromXMLService("CONFIG.Database.ZijkantLogo"; _Service; false; _XmlRequest; "ZijkantLogo.xslt"); // ToCheck: Waar moet dit xslt-bestaand precies staan en welke acties erop uit te voeren? - -if (_Result) then - index i of CONFIG.Database.ZijkantLogo.Lijst - UI.Kenmerken.ZijkantLogo = UI.Kenmerken.ZijkantLogo@option(i)@id; - UI.Kenmerken.ZijkantLogo.Naam = CONFIG.Database.ZijkantLogo.Lijst(i).Naam; - UI.Kenmerken.ZijkantLogo.LogoId = CONFIG.Database.ZijkantLogo.Lijst(i).LogoId; - end index; - - local long _OptionsLength = len(UI.Kenmerken.ZijkantLogo@options); - local string _OptionToSelect = ""; - - for i = 1 to _OptionsLength - UI.Kenmerken.ZijkantLogo = UI.Kenmerken.ZijkantLogo@option(i)@id; - - if (UI.Kenmerken.ZijkantLogo.LogoId == DATA.Kenmerken.ZijkantLogoId) then - _OptionToSelect = UI.Kenmerken.ZijkantLogo@option(i)@id; - end if; - - if (UI.Kenmerken.ZijkantLogo.Naam == "") then - UI.Kenmerken.ZijkantLogo@option(i)@visible = false; - else - UI.Kenmerken.ZijkantLogo@option(i)@visible = true; - UI.Kenmerken.ZijkantLogo@option(i)@label = UI.Kenmerken.ZijkantLogo.Naam; - end if; - end for; - - UI.Kenmerken.ZijkantLogo = _OptionToSelect; - - STATE.ZijkantLogosLoaded = true; -else - STATE.ZijkantLogosLoaded = false; -end if; + +local string _XmlRequest = ""; +local string _eConTaal = CONFIG.Language; +local string _VhTaalCode = _eConTaal; // Nog te converteren naar vhTaalCode +local string _KlantId = CONFIG.Settings.KlantId; + +if BEHAVIOR.IsEconAx then + _KlantId = CONFIG.Settings.PersonalityKlantId; +end if; + +_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:GeefZijkantLogosVoorKlant>"; +_XmlRequest = _XmlRequest + "<v4:Request>"; +_XmlRequest = _XmlRequest + "<v4:Header>"; +_XmlRequest = _XmlRequest + "<v4:KlantID>" + _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:Request>"; +_XmlRequest = _XmlRequest + "</v4:GeefZijkantLogosVoorKlant>"; +_XmlRequest = _XmlRequest + "</soapenv:Body>"; +_XmlRequest = _XmlRequest + "</soapenv:Envelope>"; + +local string _Service = GetSetting("data.vanhoecke.connectionstring.cache.zijkantlogo"); +local boolean _Result = LoadFromXMLService("CONFIG.Database.ZijkantLogo"; _Service; false; _XmlRequest; "ZijkantLogo.xslt"); // ToCheck: Waar moet dit xslt-bestaand precies staan en welke acties erop uit te voeren? + +if (_Result) then + index i of CONFIG.Database.ZijkantLogo.Lijst + UI.Kenmerken.ZijkantLogo = UI.Kenmerken.ZijkantLogo@option(i)@id; + UI.Kenmerken.ZijkantLogo.Naam = CONFIG.Database.ZijkantLogo.Lijst(i).Naam; + UI.Kenmerken.ZijkantLogo.LogoId = CONFIG.Database.ZijkantLogo.Lijst(i).LogoId; + end index; + + local long _OptionsLength = len(UI.Kenmerken.ZijkantLogo@options); + local string _OptionToSelect = ""; + + for i = 1 to _OptionsLength + UI.Kenmerken.ZijkantLogo = UI.Kenmerken.ZijkantLogo@option(i)@id; + + if (UI.Kenmerken.ZijkantLogo.LogoId == DATA.Kenmerken.ZijkantLogoId) then + _OptionToSelect = UI.Kenmerken.ZijkantLogo@option(i)@id; + end if; + + if (UI.Kenmerken.ZijkantLogo.Naam == "") then + UI.Kenmerken.ZijkantLogo@option(i)@visible = false; + else + UI.Kenmerken.ZijkantLogo@option(i)@visible = true; + UI.Kenmerken.ZijkantLogo@option(i)@label = UI.Kenmerken.ZijkantLogo.Naam; + end if; + end for; + + UI.Kenmerken.ZijkantLogo = _OptionToSelect; + + STATE.ZijkantLogosLoaded = true; +else + STATE.ZijkantLogosLoaded = false; +end if; ZijkantLogo ;ui.kenmerken.zijkantlogo@value;state.zijkantlogosloaded@value; @@ -3332,225 +3340,225 @@ true - -UI.Buttons.Top.SaveAndExitButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndExit','true'"; -UI.Buttons.Top.SaveAndContinueButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndContinue','true'"; -UI.Buttons.Top.CancelButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.Cancelled','true'"; -UI.Buttons.Top.PreferencesButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.KlantVoorkeurenSaved','true'"; - -UI.Buttons.Top.ProcessButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.ProcessedAndExit','true'|task:eCon.UI.Tasks.ProcessAndExitTask"; -/* -UI.Buttons.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'"; -UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.StartMaatwerkViewer','true'"; - -local boolean _IsEditMode = (CONFIG.InputMode == "Edit"); -local string _LabelSave = UI.Buttons.Top.SaveAndExitButton@label; - -if (_IsEditMode) then - _LabelSave = TRL.SaveChangesButton@label; -end if; - -UI.Buttons.Top.SaveAndExitButton@label = _LabelSave; -UI.Buttons.Bottom.SaveAndExitButton@label = _LabelSave; - -UI.Buttons.Top.SaveAndExitButton@visible = (CONFIG.Backend <> "axapta"); -UI.Buttons.Top.SaveAndContinueButton@visible = not(_IsEditMode) and (CONFIG.Backend <> "axapta"); -UI.Buttons.Top.PreferencesButton@visible = (CONFIG.Backend <> "axapta"); -UI.Buttons.Top.ProcessButton@visible = (CONFIG.Backend == "axapta"); - -UI.Buttons.Bottom.SaveAndExitButton@visible = (CONFIG.Backend <> "axapta"); -UI.Buttons.Bottom.SaveAndContinueButton@visible = not(_IsEditMode) and (CONFIG.Backend <> "axapta"); - -UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@label = "Maatwerk Viewer"; + +UI.Buttons.Top.SaveAndExitButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndExit','true'"; +UI.Buttons.Top.SaveAndContinueButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndContinue','true'"; +UI.Buttons.Top.CancelButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.Cancelled','true'"; +UI.Buttons.Top.PreferencesButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.KlantVoorkeurenSaved','true'"; + +UI.Buttons.Top.ProcessButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.ProcessedAndExit','true'|task:eCon.UI.Tasks.ProcessAndExitTask"; +/* +UI.Buttons.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'"; +UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.StartMaatwerkViewer','true'"; + +local boolean _IsEditMode = (CONFIG.InputMode == "Edit"); +local string _LabelSave = UI.Buttons.Top.SaveAndExitButton@label; + +if (_IsEditMode) then + _LabelSave = TRL.SaveChangesButton@label; +end if; + +UI.Buttons.Top.SaveAndExitButton@label = _LabelSave; +UI.Buttons.Bottom.SaveAndExitButton@label = _LabelSave; + +UI.Buttons.Top.SaveAndExitButton@visible = (CONFIG.Backend <> "axapta"); +UI.Buttons.Top.SaveAndContinueButton@visible = not(_IsEditMode) and (CONFIG.Backend <> "axapta"); +UI.Buttons.Top.PreferencesButton@visible = (CONFIG.Backend <> "axapta"); +UI.Buttons.Top.ProcessButton@visible = (CONFIG.Backend == "axapta"); + +UI.Buttons.Bottom.SaveAndExitButton@visible = (CONFIG.Backend <> "axapta"); +UI.Buttons.Bottom.SaveAndContinueButton@visible = not(_IsEditMode) and (CONFIG.Backend <> "axapta"); + +UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@label = "Maatwerk Viewer"; Buttons ;ui.buttons.top.saveandexitbutton@default;ui.buttons.top.saveandcontinuebutton@default;ui.buttons.top.cancelbutton@default;ui.buttons.top.preferencesbutton@default;ui.buttons.top.processbutton@default;ui.buttons.bottom.saveandexitbutton@default;ui.buttons.bottom.saveandcontinuebutton@default;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@default;ui.buttons.top.saveandexitbutton@visible;ui.buttons.top.saveandcontinuebutton@visible;ui.buttons.top.preferencesbutton@visible;ui.buttons.top.processbutton@visible;ui.buttons.bottom.saveandexitbutton@visible;ui.buttons.bottom.saveandcontinuebutton@visible; true - local string SelectedOption = ""; - -SelectedOption = UI.Kenmerken.BodemKleur; -for i = 1 to len(DATA.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.FrontEindkapKleur; -for i = 1 to len(DATA.Kenmerken.FrontEindkapKleur@options) - UI.Kenmerken.FrontEindkapKleur = UI.Kenmerken.FrontEindkapKleur@option(i)@id; - UI.Kenmerken.FrontEindkapKleur.Text = DATA.Kenmerken.FrontEindkapKleur@option(i)@label; -end for; -UI.Kenmerken.FrontEindkapKleur = SelectedOption; - -SelectedOption = UI.Kenmerken.KantenbandKleur; -for i = 1 to len(DATA.Kenmerken.KantenbandKleur@options) - UI.Kenmerken.KantenbandKleur = UI.Kenmerken.KantenbandKleur@option(i)@id; - UI.Kenmerken.KantenbandKleur.Text = DATA.Kenmerken.KantenbandKleur@option(i)@label; -end for; -UI.Kenmerken.KantenbandKleur = SelectedOption; - -SelectedOption = UI.Kenmerken.LadeKleur; -for i = 1 to len(DATA.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.LadeBinnenKleur; -for i = 1 to len(DATA.Kenmerken.LadeBinnenKleur@options) - UI.Kenmerken.LadeBinnenKleur = UI.Kenmerken.LadeBinnenKleur@option(i)@id; - UI.Kenmerken.LadeBinnenKleur.Text = DATA.Kenmerken.LadeBinnenKleur@option(i)@label; -end for; -UI.Kenmerken.LadeBinnenKleur = 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.DwarsverdelingType; -for i = 1 to len(DATA.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; - -SelectedOption = UI.Kenmerken.DwarsverdelingKleur; -for i = 1 to len(DATA.Kenmerken.DwarsverdelingKleur@options) - UI.Kenmerken.DwarsverdelingKleur = UI.Kenmerken.DwarsverdelingKleur@option(i)@id; - UI.Kenmerken.DwarsverdelingKleur .Text = DATA.Kenmerken.DwarsverdelingKleur@option(i)@label; -end for; -UI.Kenmerken.DwarsverdelingKleur = 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.AfbeeldingData; -for i = 1 to len(UI.AfbeeldingData@options) - UI.AfbeeldingData = UI.AfbeeldingData@option(i)@id; - UI.AfbeeldingData.Text = DATA.InbouwHoogte@option(UI.AfbeeldingData.InbouwHoogte)@label; // UI.AfbeeldingData.LadeCode; -end for; -UI.AfbeeldingData= SelectedOption; - -*/ + local string SelectedOption = ""; + +SelectedOption = UI.Kenmerken.BodemKleur; +for i = 1 to len(DATA.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.FrontEindkapKleur; +for i = 1 to len(DATA.Kenmerken.FrontEindkapKleur@options) + UI.Kenmerken.FrontEindkapKleur = UI.Kenmerken.FrontEindkapKleur@option(i)@id; + UI.Kenmerken.FrontEindkapKleur.Text = DATA.Kenmerken.FrontEindkapKleur@option(i)@label; +end for; +UI.Kenmerken.FrontEindkapKleur = SelectedOption; + +SelectedOption = UI.Kenmerken.KantenbandKleur; +for i = 1 to len(DATA.Kenmerken.KantenbandKleur@options) + UI.Kenmerken.KantenbandKleur = UI.Kenmerken.KantenbandKleur@option(i)@id; + UI.Kenmerken.KantenbandKleur.Text = DATA.Kenmerken.KantenbandKleur@option(i)@label; +end for; +UI.Kenmerken.KantenbandKleur = SelectedOption; + +SelectedOption = UI.Kenmerken.LadeKleur; +for i = 1 to len(DATA.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.LadeBinnenKleur; +for i = 1 to len(DATA.Kenmerken.LadeBinnenKleur@options) + UI.Kenmerken.LadeBinnenKleur = UI.Kenmerken.LadeBinnenKleur@option(i)@id; + UI.Kenmerken.LadeBinnenKleur.Text = DATA.Kenmerken.LadeBinnenKleur@option(i)@label; +end for; +UI.Kenmerken.LadeBinnenKleur = 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.DwarsverdelingType; +for i = 1 to len(DATA.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; + +SelectedOption = UI.Kenmerken.DwarsverdelingKleur; +for i = 1 to len(DATA.Kenmerken.DwarsverdelingKleur@options) + UI.Kenmerken.DwarsverdelingKleur = UI.Kenmerken.DwarsverdelingKleur@option(i)@id; + UI.Kenmerken.DwarsverdelingKleur .Text = DATA.Kenmerken.DwarsverdelingKleur@option(i)@label; +end for; +UI.Kenmerken.DwarsverdelingKleur = 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.AfbeeldingData; +for i = 1 to len(UI.AfbeeldingData@options) + UI.AfbeeldingData = UI.AfbeeldingData@option(i)@id; + UI.AfbeeldingData.Text = DATA.InbouwHoogte@option(UI.AfbeeldingData.InbouwHoogte)@label; // UI.AfbeeldingData.LadeCode; +end for; +UI.AfbeeldingData= SelectedOption; + +*/ Vertalingen UI image labels ;ui.kenmerken.bodemkleur@value;ui.kenmerken.fronteindkapkleur@value;ui.kenmerken.kantenbandkleur@value;ui.kenmerken.ladekleur@value;ui.kenmerken.ladebinnenkleur@value;ui.kenmerken.opvullijstkleur@value;ui.kenmerken.dwarsverdelingtype@value;ui.kenmerken.dwarsverdelingkleur@value;ui.kenmerken.matantislipkleur@value;ui.kenmerken.matantislipfiberkleur@value;ui.kenmerken.matantislipflockkleur@value;ui.kenmerken.matmateriaal@value;ui.kenmerken.matvinylfiberglasskleur@value; true - local string _ToonTussenmatenLabel = UI.Kenmerken.ToonTussenmaten@label; + local string _ToonTussenmatenLabel = UI.Kenmerken.ToonTussenmaten@label; UI.Kenmerken.ToonTussenmaten@style = "labelclass:hidden;optionlabel:false;format:{0} " + _ToonTussenmatenLabel + ";"; Vertalingen andere labels ; true - -local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); - -UI.Kenmerken.GeleiderType@visible = _IsIntern; -UI.Kenmerken.GeleiderType@mandatory = _IsIntern; - -UI.Kenmerken.SpecialType@visible = _IsIntern; -UI.Kenmerken.SpecialType@mandatory = _IsIntern; - -UI.Kenmerken.OpvullijstKleur@option("LG")@visible = true; // Op "false" zetten wanneer PM deze uitfaseert (rond aug 2019) - -UI.Kenmerken.Toepassing@option("SY")@visible = true; -UI.Kenmerken.UitsparingData.UitsparingAantal@option("Dubbel")@visible = true; -UI.Kenmerken.FrontBevestiging@option("D")@visible = _IsIntern; - -local collection _NietMeeleverenInternUitzonderingen = {}; // uitgeschakeld omwille van opbouw niet meeleveren bij doorbestellen"TiponBlumotionSet"}; - -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 and not(UI.Kenmerken.NietMeeleveren(i).id in _NietMeeleverenInternUitzonderingen)); - - if (UI.Kenmerken.NietMeeleveren(i).Id == "TiponSynchronisatieSet") then - // TIPON is uitgefaseerd per maart 2021: - UI.Kenmerken.NietMeeleveren(i)@visible = false; - else - UI.Kenmerken.NietMeeleveren(i)@visible = (_IsZichtbaarIntern or _IsZichtbaarExtern); - end if; -end index; - -// TIPON is uitgefaseerd per maart 2021: -UI.Kenmerken.GeleiderTechnologie@option("T")@visible = false; -DATA.Kenmerken.GeleiderTechnologie@option("T")@valid = false; -UI.Kenmerken.NietMeeleverenOptions@option("TiponSynchronisatieSet")@visible = false; -DATA.Kenmerken.NietMeeleveren@option("TiponSynchronisatieSet")@valid = false; + +local boolean _IsIntern = (CONFIG.Settings.OperationMode == "Intern"); + +UI.Kenmerken.GeleiderType@visible = _IsIntern; +UI.Kenmerken.GeleiderType@mandatory = _IsIntern; + +UI.Kenmerken.SpecialType@visible = _IsIntern; +UI.Kenmerken.SpecialType@mandatory = _IsIntern; + +UI.Kenmerken.OpvullijstKleur@option("LG")@visible = true; // Op "false" zetten wanneer PM deze uitfaseert (rond aug 2019) + +UI.Kenmerken.Toepassing@option("SY")@visible = true; +UI.Kenmerken.UitsparingData.UitsparingAantal@option("Dubbel")@visible = true; +UI.Kenmerken.FrontBevestiging@option("D")@visible = _IsIntern; + +local collection _NietMeeleverenInternUitzonderingen = {}; // uitgeschakeld omwille van opbouw niet meeleveren bij doorbestellen"TiponBlumotionSet"}; + +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 and not(UI.Kenmerken.NietMeeleveren(i).id in _NietMeeleverenInternUitzonderingen)); + + if (UI.Kenmerken.NietMeeleveren(i).Id == "TiponSynchronisatieSet") then + // TIPON is uitgefaseerd per maart 2021: + UI.Kenmerken.NietMeeleveren(i)@visible = false; + else + UI.Kenmerken.NietMeeleveren(i)@visible = (_IsZichtbaarIntern or _IsZichtbaarExtern); + end if; +end index; + +// TIPON is uitgefaseerd per maart 2021: +UI.Kenmerken.GeleiderTechnologie@option("T")@visible = false; +DATA.Kenmerken.GeleiderTechnologie@option("T")@valid = false; +UI.Kenmerken.NietMeeleverenOptions@option("TiponSynchronisatieSet")@visible = false; +DATA.Kenmerken.NietMeeleveren@option("TiponSynchronisatieSet")@valid = false; Beperkingen Intern/Extern ;ui.kenmerken.geleidertype@visible;ui.kenmerken.geleidertype@mandatory;ui.kenmerken.specialtype@visible;ui.kenmerken.specialtype@mandatory;ui.kenmerken.opvullijstkleur@options;ui.kenmerken.toepassing@options;ui.kenmerken.uitsparingdata.uitsparingaantal@options;ui.kenmerken.frontbevestiging@options;ui.kenmerken.geleidertechnologie@options;data.kenmerken.geleidertechnologie@valids;ui.kenmerken.nietmeeleverenoptions@options;data.kenmerken.nietmeeleveren@valids; true - -UI.Kenmerken.LadeKleur@option("XE")@visible = (UI.Kenmerken.LadeKleur@option("XE")@visible and CONFIG.Settings.KleurOnbehandeldeEikToegelaten); -UI.Kenmerken.LadeBinnenKleur@option("XE")@visible = (UI.Kenmerken.LadeBinnenKleur@option("XE")@visible and CONFIG.Settings.KleurOnbehandeldeEikToegelaten); -UI.Kenmerken.BodemKleur@option("XE")@visible = (UI.Kenmerken.BodemKleur@option("XE")@visible and CONFIG.Settings.KleurOnbehandeldeEikToegelaten); -UI.Kenmerken.KantenbandKleur@option("XE")@visible = (UI.Kenmerken.KantenbandKleur@option("XE")@visible and CONFIG.Settings.KleurOnbehandeldeEikToegelaten); - -UI.Kenmerken.LadeKleur@option("E1")@visible = (UI.Kenmerken.LadeKleur@option("E1")@visible and CONFIG.Settings.KleurBardolinoToegelaten); -UI.Kenmerken.LadeBinnenKleur@option("E1")@visible = (UI.Kenmerken.LadeBinnenKleur@option("E1")@visible and CONFIG.Settings.KleurBardolinoToegelaten); -UI.Kenmerken.BodemKleur@option("E1")@visible = (UI.Kenmerken.BodemKleur@option("E1")@visible and CONFIG.Settings.KleurBardolinoToegelaten); -UI.Kenmerken.KantenbandKleur@option("E1")@visible = (UI.Kenmerken.KantenbandKleur@option("E1")@visible and CONFIG.Settings.KleurBardolinoToegelaten); - -UI.Kenmerken.LadeKleur@option("E2")@visible = (UI.Kenmerken.LadeKleur@option("E2")@visible and CONFIG.Settings.KleurNebraskaToegelaten); -UI.Kenmerken.LadeBinnenKleur@option("E2")@visible = (UI.Kenmerken.LadeBinnenKleur@option("E2")@visible and CONFIG.Settings.KleurNebraskaToegelaten); -UI.Kenmerken.BodemKleur@option("E2")@visible = (UI.Kenmerken.BodemKleur@option("E2")@visible and CONFIG.Settings.KleurNebraskaToegelaten); -UI.Kenmerken.KantenbandKleur@option("E2")@visible = (UI.Kenmerken.KantenbandKleur@option("E2")@visible and CONFIG.Settings.KleurNebraskaToegelaten); - -UI.Kenmerken.LadeKleur@option("SY")@visible = (UI.Kenmerken.LadeKleur@option("SY")@visible and CONFIG.Settings.KleurNatuurEsdoornToegelaten); -UI.Kenmerken.LadeBinnenKleur@option("SY")@visible = (UI.Kenmerken.LadeBinnenKleur@option("SY")@visible and CONFIG.Settings.KleurNatuurEsdoornToegelaten); -UI.Kenmerken.BodemKleur@option("SY")@visible = (UI.Kenmerken.BodemKleur@option("SY")@visible and CONFIG.Settings.KleurNatuurEsdoornToegelaten); -UI.Kenmerken.KantenbandKleur@option("SY")@visible = (UI.Kenmerken.KantenbandKleur@option("SY")@visible and CONFIG.Settings.KleurNatuurEsdoornToegelaten); - -UI.Kenmerken.MatMateriaal@option("AZ")@visible = true; // MatAntislipFlockKleur + +UI.Kenmerken.LadeKleur@option("XE")@visible = (UI.Kenmerken.LadeKleur@option("XE")@visible and CONFIG.Settings.KleurOnbehandeldeEikToegelaten); +UI.Kenmerken.LadeBinnenKleur@option("XE")@visible = (UI.Kenmerken.LadeBinnenKleur@option("XE")@visible and CONFIG.Settings.KleurOnbehandeldeEikToegelaten); +UI.Kenmerken.BodemKleur@option("XE")@visible = (UI.Kenmerken.BodemKleur@option("XE")@visible and CONFIG.Settings.KleurOnbehandeldeEikToegelaten); +UI.Kenmerken.KantenbandKleur@option("XE")@visible = (UI.Kenmerken.KantenbandKleur@option("XE")@visible and CONFIG.Settings.KleurOnbehandeldeEikToegelaten); + +UI.Kenmerken.LadeKleur@option("E1")@visible = (UI.Kenmerken.LadeKleur@option("E1")@visible and CONFIG.Settings.KleurBardolinoToegelaten); +UI.Kenmerken.LadeBinnenKleur@option("E1")@visible = (UI.Kenmerken.LadeBinnenKleur@option("E1")@visible and CONFIG.Settings.KleurBardolinoToegelaten); +UI.Kenmerken.BodemKleur@option("E1")@visible = (UI.Kenmerken.BodemKleur@option("E1")@visible and CONFIG.Settings.KleurBardolinoToegelaten); +UI.Kenmerken.KantenbandKleur@option("E1")@visible = (UI.Kenmerken.KantenbandKleur@option("E1")@visible and CONFIG.Settings.KleurBardolinoToegelaten); + +UI.Kenmerken.LadeKleur@option("E2")@visible = (UI.Kenmerken.LadeKleur@option("E2")@visible and CONFIG.Settings.KleurNebraskaToegelaten); +UI.Kenmerken.LadeBinnenKleur@option("E2")@visible = (UI.Kenmerken.LadeBinnenKleur@option("E2")@visible and CONFIG.Settings.KleurNebraskaToegelaten); +UI.Kenmerken.BodemKleur@option("E2")@visible = (UI.Kenmerken.BodemKleur@option("E2")@visible and CONFIG.Settings.KleurNebraskaToegelaten); +UI.Kenmerken.KantenbandKleur@option("E2")@visible = (UI.Kenmerken.KantenbandKleur@option("E2")@visible and CONFIG.Settings.KleurNebraskaToegelaten); + +UI.Kenmerken.LadeKleur@option("SY")@visible = (UI.Kenmerken.LadeKleur@option("SY")@visible and CONFIG.Settings.KleurNatuurEsdoornToegelaten); +UI.Kenmerken.LadeBinnenKleur@option("SY")@visible = (UI.Kenmerken.LadeBinnenKleur@option("SY")@visible and CONFIG.Settings.KleurNatuurEsdoornToegelaten); +UI.Kenmerken.BodemKleur@option("SY")@visible = (UI.Kenmerken.BodemKleur@option("SY")@visible and CONFIG.Settings.KleurNatuurEsdoornToegelaten); +UI.Kenmerken.KantenbandKleur@option("SY")@visible = (UI.Kenmerken.KantenbandKleur@option("SY")@visible and CONFIG.Settings.KleurNatuurEsdoornToegelaten); + +UI.Kenmerken.MatMateriaal@option("AZ")@visible = true; // MatAntislipFlockKleur Beperkingen Settings ;ui.kenmerken.ladekleur@options;ui.kenmerken.ladebinnenkleur@options;ui.kenmerken.bodemkleur@options;ui.kenmerken.kantenbandkleur@options;ui.kenmerken.matmateriaal@options; @@ -3566,408 +3574,408 @@ true - -// Gedrag Verpakkingen : -local boolean _BEHAVIOR_IsVerpakkingProboxZichtbaar; -local boolean _BEHAVIOR_IsVerpakkingFlatpackV1Zichtbaar; -local boolean _BEHAVIOR_IsVerpakkingBulkPOGZichtbaar; -local boolean _BEHAVIOR_IsVerpakkingLosseCompZichtbaar; -local boolean _BEHAVIOR_IsVerpakkingVHossZichtbaar; -local boolean _BEHAVIOR_IsVerpakkingPalletZichtbaar; -local boolean _BEHAVIOR_IsVerpakkingTypeDefaultingNodig = ((DATA.Kenmerken.Toepassing == "SY") and (DATA.Kenmerken.VerpakkingType == "") and (CONFIG.Settings.VerpakkingDefaultenBijKeuzeSifonlade == true)); // Om het gedrag van lakdraagfolie (uitgrijzen) te triggeren. - -if ((BEHAVIOR.AccessMode == "Intern") or (BEHAVIOR.IsInteractive == false)) then -//if (CONFIG.Settings.OperationMode == "Intern") or (CONFIG.InputMode == "CreateConfig") or (BEHAVIOR.IsEconAx) then - _BEHAVIOR_IsVerpakkingProboxZichtbaar = true; - _BEHAVIOR_IsVerpakkingFlatpackV1Zichtbaar = true; - _BEHAVIOR_IsVerpakkingBulkPOGZichtbaar = true; - _BEHAVIOR_IsVerpakkingLosseCompZichtbaar = true; -// _BEHAVIOR_IsVerpakkingVHossZichtbaar = true; - _BEHAVIOR_IsVerpakkingPalletZichtbaar = true; -else - _BEHAVIOR_IsVerpakkingProboxZichtbaar = CONFIG.Settings.VerpakkingProboxToegelaten; - _BEHAVIOR_IsVerpakkingFlatpackV1Zichtbaar = CONFIG.Settings.VerpakkingFlatpackV1Toegelaten; - _BEHAVIOR_IsVerpakkingBulkPOGZichtbaar = false; - _BEHAVIOR_IsVerpakkingLosseCompZichtbaar = false; -// _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("FlatpackV1")@visible = _BEHAVIOR_IsVerpakkingFlatpackV1Zichtbaar; -UI.Kenmerken.VerpakkingType@option("BulkPerOnderdeelGegroepeerd")@visible = _BEHAVIOR_IsVerpakkingBulkPOGZichtbaar; -UI.Kenmerken.VerpakkingType@option("LosseComponentenInBulk")@visible = _BEHAVIOR_IsVerpakkingLosseCompZichtbaar; -// UI.Kenmerken.VerpakkingType@option("VHoss")@visible = _BEHAVIOR_IsVerpakkingVHossZichtbaar; -UI.Kenmerken.VerpakkingType@option("Pallet")@visible = _BEHAVIOR_IsVerpakkingPalletZichtbaar; - -if (_BEHAVIOR_IsVerpakkingTypeDefaultingNodig) then - DATA.Kenmerken.VerpakkingType@default = DATA.Kenmerken.VerpakkingType@option("V1")@id; -end if; + +// Gedrag Verpakkingen : +local boolean _BEHAVIOR_IsVerpakkingProboxZichtbaar; +local boolean _BEHAVIOR_IsVerpakkingFlatpackV1Zichtbaar; +local boolean _BEHAVIOR_IsVerpakkingBulkPOGZichtbaar; +local boolean _BEHAVIOR_IsVerpakkingLosseCompZichtbaar; +local boolean _BEHAVIOR_IsVerpakkingVHossZichtbaar; +local boolean _BEHAVIOR_IsVerpakkingPalletZichtbaar; +local boolean _BEHAVIOR_IsVerpakkingTypeDefaultingNodig = ((DATA.Kenmerken.Toepassing == "SY") and (DATA.Kenmerken.VerpakkingType == "") and (CONFIG.Settings.VerpakkingDefaultenBijKeuzeSifonlade == true)); // Om het gedrag van lakdraagfolie (uitgrijzen) te triggeren. + +if ((BEHAVIOR.AccessMode == "Intern") or (BEHAVIOR.IsInteractive == false)) then +//if (CONFIG.Settings.OperationMode == "Intern") or (CONFIG.InputMode == "CreateConfig") or (BEHAVIOR.IsEconAx) then + _BEHAVIOR_IsVerpakkingProboxZichtbaar = true; + _BEHAVIOR_IsVerpakkingFlatpackV1Zichtbaar = true; + _BEHAVIOR_IsVerpakkingBulkPOGZichtbaar = true; + _BEHAVIOR_IsVerpakkingLosseCompZichtbaar = true; +// _BEHAVIOR_IsVerpakkingVHossZichtbaar = true; + _BEHAVIOR_IsVerpakkingPalletZichtbaar = true; +else + _BEHAVIOR_IsVerpakkingProboxZichtbaar = CONFIG.Settings.VerpakkingProboxToegelaten; + _BEHAVIOR_IsVerpakkingFlatpackV1Zichtbaar = CONFIG.Settings.VerpakkingFlatpackV1Toegelaten; + _BEHAVIOR_IsVerpakkingBulkPOGZichtbaar = false; + _BEHAVIOR_IsVerpakkingLosseCompZichtbaar = false; +// _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("FlatpackV1")@visible = _BEHAVIOR_IsVerpakkingFlatpackV1Zichtbaar; +UI.Kenmerken.VerpakkingType@option("BulkPerOnderdeelGegroepeerd")@visible = _BEHAVIOR_IsVerpakkingBulkPOGZichtbaar; +UI.Kenmerken.VerpakkingType@option("LosseComponentenInBulk")@visible = _BEHAVIOR_IsVerpakkingLosseCompZichtbaar; +// UI.Kenmerken.VerpakkingType@option("VHoss")@visible = _BEHAVIOR_IsVerpakkingVHossZichtbaar; +UI.Kenmerken.VerpakkingType@option("Pallet")@visible = _BEHAVIOR_IsVerpakkingPalletZichtbaar; + +if (_BEHAVIOR_IsVerpakkingTypeDefaultingNodig) then + DATA.Kenmerken.VerpakkingType@default = DATA.Kenmerken.VerpakkingType@option("V1")@id; +end if; Gedrag Verpakkingen instellen ;ui.kenmerken.verpakkingtype@options;data.kenmerken.verpakkingtype@default; true - -UI.Kenmerken.MatMateriaal@option("AS")@visible = false; - -if (BEHAVIOR.IsInteractive and (not(UI.Kenmerken.HeeftMat))) then - DATA.Kenmerken.MatMateriaal = ""; - DATA.Kenmerken.MatKleur = ""; - - UI.Kenmerken.MatMateriaal = ""; - UI.Kenmerken.MatAntislipFiberKleur = ""; - UI.Kenmerken.MatAntislipFlockKleur = ""; - UI.Kenmerken.MatAntislipKleur = ""; - UI.Kenmerken.MatVinylFiberglassKleur = ""; -end if; + +UI.Kenmerken.MatMateriaal@option("AS")@visible = false; + +if (BEHAVIOR.IsInteractive and (not(UI.Kenmerken.HeeftMat))) then + DATA.Kenmerken.MatMateriaal = ""; + DATA.Kenmerken.MatKleur = ""; + + UI.Kenmerken.MatMateriaal = ""; + UI.Kenmerken.MatAntislipFiberKleur = ""; + UI.Kenmerken.MatAntislipFlockKleur = ""; + UI.Kenmerken.MatAntislipKleur = ""; + UI.Kenmerken.MatVinylFiberglassKleur = ""; +end if; Gedrag Matten ;ui.kenmerken.matmateriaal@options;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; 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; + +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 _IsReferentieZichtbaar; - -if(BEHAVIOR.IsEconAX) then - _IsReferentieZichtbaar= false; -else - _IsReferentieZichtbaar= true; -end if; - -UI.Lijn.Referentie@visible = _IsReferentieZichtbaar; + +local boolean _IsReferentieZichtbaar; + +if(BEHAVIOR.IsEconAX) then + _IsReferentieZichtbaar= false; +else + _IsReferentieZichtbaar= true; +end if; + +UI.Lijn.Referentie@visible = _IsReferentieZichtbaar; Gedrag Referentie ;ui.lijn.referentie@visible; BEHAVIOR.IsInteractive and not(BEHAVIOR.OperationMode == "Edit") - -local string _VorigeSoortVerpakking = UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde; -UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde = UI.Kenmerken.VerpakkingType + "/" + UI.Kenmerken.IsBinnenlade; - -// Bepalen of er defaults zijn vanuit bvb. klantvoorkeuren -local boolean _MagNietMeeleverenWaardeOpFalseZetten; -local boolean _HeeftDefaultsUitKlantVoorkeuren = false; -if (CONFIG.ReferentieConfiguratie == "") and (len(CONFIG.Database.ConfigAnalyseProperties) > 0) then - _HeeftDefaultsUitKlantVoorkeuren = (CONFIG.Database.Configurations.Name == CONFIG.KlantVoorkeurenConfigurationName); -end if; - -if (_VorigeSoortVerpakking <> UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde) and (_VorigeSoortVerpakking <> "/False") then - if (UI.Kenmerken.VerpakkingType == "Pallet") then - index i of UI.Kenmerken.NietMeeleveren - if (not(UI.Kenmerken.NietMeeleveren(i).Id == "TiponSynchronisatieSet")) then - // TIPON is uitgefaseerd per maart 2021 - if (UI.Kenmerken.IsBinnenlade == true) then - UI.Kenmerken.NietMeeleveren(i).IsSelected = not(UI.Kenmerken.NietMeeleveren(i).Text in {"Frontbevestiging";"Koppeling"}); - else - UI.Kenmerken.NietMeeleveren(i).IsSelected = true; - end if; - end if; - end index; - else - index i of UI.Kenmerken.NietMeeleveren - - _MagNietMeeleverenWaardeOpFalseZetten = true; - if _HeeftDefaultsUitKlantVoorkeuren then - CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_" + LCase(UI.Kenmerken.NietMeeleveren(i).Id))@id; // !!! BELANGRIJK : Case sensitive, anders werkt de selectie niet !!! - if LCase(CONFIG.Database.ConfigAnalyseProperties.Value) == "true" then - _MagNietMeeleverenWaardeOpFalseZetten = false; - end if; - end if; - - if not(_VorigeSoortVerpakking in {"Pallet/True", "Pallet/False"}) then - _MagNietMeeleverenWaardeOpFalseZetten = false; - end if; - - if _MagNietMeeleverenWaardeOpFalseZetten then - UI.Kenmerken.NietMeeleveren(i).IsSelected = false; - end if; - - end index; - - end if; -end if; + +local string _VorigeSoortVerpakking = UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde; +UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde = UI.Kenmerken.VerpakkingType + "/" + UI.Kenmerken.IsBinnenlade; + +// Bepalen of er defaults zijn vanuit bvb. klantvoorkeuren +local boolean _MagNietMeeleverenWaardeOpFalseZetten; +local boolean _HeeftDefaultsUitKlantVoorkeuren = false; +if (CONFIG.ReferentieConfiguratie == "") and (len(CONFIG.Database.ConfigAnalyseProperties) > 0) then + _HeeftDefaultsUitKlantVoorkeuren = (CONFIG.Database.Configurations.Name == CONFIG.KlantVoorkeurenConfigurationName); +end if; + +if (_VorigeSoortVerpakking <> UI.PropertiesEnkelVoorInCodeVanRules.VerpakkingTypeVorigeWaarde) and (_VorigeSoortVerpakking <> "/False") then + if (UI.Kenmerken.VerpakkingType == "Pallet") then + index i of UI.Kenmerken.NietMeeleveren + if (not(UI.Kenmerken.NietMeeleveren(i).Id == "TiponSynchronisatieSet")) then + // TIPON is uitgefaseerd per maart 2021 + if (UI.Kenmerken.IsBinnenlade == true) then + UI.Kenmerken.NietMeeleveren(i).IsSelected = not(UI.Kenmerken.NietMeeleveren(i).Text in {"Frontbevestiging";"Koppeling"}); + else + UI.Kenmerken.NietMeeleveren(i).IsSelected = true; + end if; + end if; + end index; + else + index i of UI.Kenmerken.NietMeeleveren + + _MagNietMeeleverenWaardeOpFalseZetten = true; + if _HeeftDefaultsUitKlantVoorkeuren then + CONFIG.Database.ConfigAnalyseProperties = CONFIG.Database.ConfigAnalyseProperties@option("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_" + LCase(UI.Kenmerken.NietMeeleveren(i).Id))@id; // !!! BELANGRIJK : Case sensitive, anders werkt de selectie niet !!! + if LCase(CONFIG.Database.ConfigAnalyseProperties.Value) == "true" then + _MagNietMeeleverenWaardeOpFalseZetten = false; + end if; + end if; + + if not(_VorigeSoortVerpakking in {"Pallet/True", "Pallet/False"}) then + _MagNietMeeleverenWaardeOpFalseZetten = false; + end if; + + if _MagNietMeeleverenWaardeOpFalseZetten then + UI.Kenmerken.NietMeeleveren(i).IsSelected = false; + end if; + + end index; + + end if; +end if; Gedrag niet meeleveren opties selecteren indien VerpakkingType Pallet ;ui.propertiesenkelvoorincodevanrules.verpakkingtypevorigewaarde@value; 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 ((DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet) and not(AlleIndividueleTOBSelected)) then - DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = true; - DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = true; -end if; - -if (_VorigeWaardeNMTiponBlumotionSet and not(AlleIndividueleTOBSelected)) then - DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = false; -end if; - -UI.PropertiesEnkelVoorInCodeVanRules.TiponBlumotionSetVorigeWaarde = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet; + +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 ((DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet) and not(AlleIndividueleTOBSelected)) then + DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers = true; + DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang = true; +end if; + +if (_VorigeWaardeNMTiponBlumotionSet and not(AlleIndividueleTOBSelected)) then + DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet = false; +end if; + +UI.PropertiesEnkelVoorInCodeVanRules.TiponBlumotionSetVorigeWaarde = DATA.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet; Gedrag niet meeleveren TOB ;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionseteenhedenenmeenemers@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionsynchronisatiestang@value;data.kenmerken.nietmeeleveren.nietmeeleveren_tiponblumotionset@value;ui.propertiesenkelvoorincodevanrules.tiponblumotionsetvorigewaarde@value; true - -local boolean _BEHAVIOR_IsProductiewijzeZichtbaar; - -if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive == true) then - _BEHAVIOR_IsProductiewijzeZichtbaar = true; -else - _BEHAVIOR_IsProductiewijzeZichtbaar = false; -end if; - -UI.Kenmerken.ProductieWijze@visible = _BEHAVIOR_IsProductiewijzeZichtbaar; -UI.Kenmerken.ProductieWijze@mandatory = _BEHAVIOR_IsProductiewijzeZichtbaar; + +local boolean _BEHAVIOR_IsProductiewijzeZichtbaar; + +if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive == true) then + _BEHAVIOR_IsProductiewijzeZichtbaar = true; +else + _BEHAVIOR_IsProductiewijzeZichtbaar = false; +end if; + +UI.Kenmerken.ProductieWijze@visible = _BEHAVIOR_IsProductiewijzeZichtbaar; +UI.Kenmerken.ProductieWijze@mandatory = _BEHAVIOR_IsProductiewijzeZichtbaar; Gedrag ProductieWijze ;ui.kenmerken.productiewijze@visible;ui.kenmerken.productiewijze@mandatory; true - -local boolean _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar; - -if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive) then - _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = true; -else - _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = false; -end if; - -UI.Kenmerken.SneltoetsenNietMeeleveren@visible = _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar; + +local boolean _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar; + +if (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive) then + _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = true; +else + _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar = false; +end if; + +UI.Kenmerken.SneltoetsenNietMeeleveren@visible = _BEHAVIOR_IsSneltoetsenNietMeeleverenZichtbaar; Gedrag knoppen selecteren niet meeleveren ;ui.kenmerken.sneltoetsennietmeeleveren@visible; true - -// Gedrag Kleuren : -local boolean _BEHAVIOR_IsKleurChalkAshZichtbaar = false; -local boolean _BEHAVIOR_IsKleurSepiaEikZichtbaar = true; -local boolean _BEHAVIOR_IsKleurLakdraagfolieZichtbaar = true; -local boolean _BEHAVIOR_IsKleurOudZwartZichtbaar = false; -local boolean _BEHAVIOR_IsKleurWalnutMediumBrownZichtbaar = false; - -if (CONFIG.Settings.KleurOudZwartToegelaten == true) then - _BEHAVIOR_IsKleurOudZwartZichtbaar = true; -end if; - -if (CONFIG.Settings.KleurWalnutMediumBrownToegelaten == true) then - _BEHAVIOR_IsKleurWalnutMediumBrownZichtbaar = true; -end if; - - -// Controls Kleuren : -UI.Kenmerken.BodemKleur@option("CA")@visible = _BEHAVIOR_IsKleurChalkAshZichtbaar; -UI.Kenmerken.KantenbandKleur@option("CA")@visible = _BEHAVIOR_IsKleurChalkAshZichtbaar; -UI.Kenmerken.LadeBinnenKleur@option("CA")@visible = _BEHAVIOR_IsKleurChalkAshZichtbaar; -UI.Kenmerken.LadeKleur@option("CA")@visible = _BEHAVIOR_IsKleurChalkAshZichtbaar; - -UI.Kenmerken.BodemKleur@option("SE")@visible = _BEHAVIOR_IsKleurSepiaEikZichtbaar; -UI.Kenmerken.KantenbandKleur@option("SE")@visible = _BEHAVIOR_IsKleurSepiaEikZichtbaar; -UI.Kenmerken.LadeBinnenKleur@option("SE")@visible = _BEHAVIOR_IsKleurSepiaEikZichtbaar; -UI.Kenmerken.LadeKleur@option("SE")@visible = _BEHAVIOR_IsKleurSepiaEikZichtbaar; - -UI.Kenmerken.BodemKleur@option("GF")@visible = _BEHAVIOR_IsKleurLakdraagfolieZichtbaar; -UI.Kenmerken.KantenbandKleur@option("GF")@visible = _BEHAVIOR_IsKleurLakdraagfolieZichtbaar; -UI.Kenmerken.LadeBinnenKleur@option("GF")@visible = _BEHAVIOR_IsKleurLakdraagfolieZichtbaar; -UI.Kenmerken.LadeKleur@option("GF")@visible = _BEHAVIOR_IsKleurLakdraagfolieZichtbaar; - -UI.Kenmerken.LadeKleur@option("Z9")@visible = _BEHAVIOR_IsKleurOudZwartZichtbaar; -UI.Kenmerken.KantenbandKleur@option("Z9")@visible = _BEHAVIOR_IsKleurOudZwartZichtbaar; - -UI.Kenmerken.BodemKleur@option("W7")@visible = _BEHAVIOR_IsKleurWalnutMediumBrownZichtbaar; -UI.Kenmerken.KantenbandKleur@option("W7")@visible = _BEHAVIOR_IsKleurWalnutMediumBrownZichtbaar; -UI.Kenmerken.LadeBinnenKleur@option("W7")@visible = _BEHAVIOR_IsKleurWalnutMediumBrownZichtbaar; -UI.Kenmerken.LadeKleur@option("W7")@visible = _BEHAVIOR_IsKleurWalnutMediumBrownZichtbaar; + +// Gedrag Kleuren : +local boolean _BEHAVIOR_IsKleurChalkAshZichtbaar = false; +local boolean _BEHAVIOR_IsKleurSepiaEikZichtbaar = true; +local boolean _BEHAVIOR_IsKleurLakdraagfolieZichtbaar = true; +local boolean _BEHAVIOR_IsKleurOudZwartZichtbaar = false; +local boolean _BEHAVIOR_IsKleurWalnutMediumBrownZichtbaar = false; + +if (CONFIG.Settings.KleurOudZwartToegelaten == true) then + _BEHAVIOR_IsKleurOudZwartZichtbaar = true; +end if; + +if (CONFIG.Settings.KleurWalnutMediumBrownToegelaten == true) then + _BEHAVIOR_IsKleurWalnutMediumBrownZichtbaar = true; +end if; + + +// Controls Kleuren : +UI.Kenmerken.BodemKleur@option("CA")@visible = _BEHAVIOR_IsKleurChalkAshZichtbaar; +UI.Kenmerken.KantenbandKleur@option("CA")@visible = _BEHAVIOR_IsKleurChalkAshZichtbaar; +UI.Kenmerken.LadeBinnenKleur@option("CA")@visible = _BEHAVIOR_IsKleurChalkAshZichtbaar; +UI.Kenmerken.LadeKleur@option("CA")@visible = _BEHAVIOR_IsKleurChalkAshZichtbaar; + +UI.Kenmerken.BodemKleur@option("SE")@visible = _BEHAVIOR_IsKleurSepiaEikZichtbaar; +UI.Kenmerken.KantenbandKleur@option("SE")@visible = _BEHAVIOR_IsKleurSepiaEikZichtbaar; +UI.Kenmerken.LadeBinnenKleur@option("SE")@visible = _BEHAVIOR_IsKleurSepiaEikZichtbaar; +UI.Kenmerken.LadeKleur@option("SE")@visible = _BEHAVIOR_IsKleurSepiaEikZichtbaar; + +UI.Kenmerken.BodemKleur@option("GF")@visible = _BEHAVIOR_IsKleurLakdraagfolieZichtbaar; +UI.Kenmerken.KantenbandKleur@option("GF")@visible = _BEHAVIOR_IsKleurLakdraagfolieZichtbaar; +UI.Kenmerken.LadeBinnenKleur@option("GF")@visible = _BEHAVIOR_IsKleurLakdraagfolieZichtbaar; +UI.Kenmerken.LadeKleur@option("GF")@visible = _BEHAVIOR_IsKleurLakdraagfolieZichtbaar; + +UI.Kenmerken.LadeKleur@option("Z9")@visible = _BEHAVIOR_IsKleurOudZwartZichtbaar; +UI.Kenmerken.KantenbandKleur@option("Z9")@visible = _BEHAVIOR_IsKleurOudZwartZichtbaar; + +UI.Kenmerken.BodemKleur@option("W7")@visible = _BEHAVIOR_IsKleurWalnutMediumBrownZichtbaar; +UI.Kenmerken.KantenbandKleur@option("W7")@visible = _BEHAVIOR_IsKleurWalnutMediumBrownZichtbaar; +UI.Kenmerken.LadeBinnenKleur@option("W7")@visible = _BEHAVIOR_IsKleurWalnutMediumBrownZichtbaar; +UI.Kenmerken.LadeKleur@option("W7")@visible = _BEHAVIOR_IsKleurWalnutMediumBrownZichtbaar; Gedrag Kleuren instellen ;ui.kenmerken.bodemkleur@options;ui.kenmerken.kantenbandkleur@options;ui.kenmerken.ladebinnenkleur@options;ui.kenmerken.ladekleur@options; BEHAVIOR.IsEconAx and (BEHAVIOR.IsInteractive == false) and (DATA.Kenmerken.zijkantLogoId == "") - -local long _AantalLogosVoorzienInUi = 20; - -for i = 1 to _AantalLogosVoorzienInUi - if (i == 1) then - DATA.Kenmerken.ZijkantLogoId = "0"; - UI.Kenmerken.ZijkantLogo = DATA.Kenmerken.ZijkantLogoId; - UI.Kenmerken.ZijkantLogo@option(i)@label = "Geen"; - UI.Kenmerken.ZijkantLogo@option(i)@visible = true; - else - UI.Kenmerken.ZijkantLogo@option(i)@visible = false; - end if; -end for; - -STATE.ZijkantLogosLoaded = true; + +local long _AantalLogosVoorzienInUi = 20; + +for i = 1 to _AantalLogosVoorzienInUi + if (i == 1) then + DATA.Kenmerken.ZijkantLogoId = "0"; + UI.Kenmerken.ZijkantLogo = DATA.Kenmerken.ZijkantLogoId; + UI.Kenmerken.ZijkantLogo@option(i)@label = "Geen"; + UI.Kenmerken.ZijkantLogo@option(i)@visible = true; + else + UI.Kenmerken.ZijkantLogo@option(i)@visible = false; + end if; +end for; + +STATE.ZijkantLogosLoaded = true; Gedrag Zijkantlogo ;state.zijkantlogosloaded@value; 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; + +local boolean BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; + +If ((BEHAVIOR.IsEconAX) and (BEHAVIOR.IsInteractive)) then + BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar = true; +else + BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar = false; +end if; + +UI.StatusBalk.Code@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; +UI.StatusBalk.LadeDiepte@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; +UI.StatusBalk.CorpusBreedte@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; +UI.StatusBalk.Wand@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; +UI.StatusBalk.Draagkracht@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; +UI.StatusBalk.FrontBevestiging@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; +UI.StatusBalk.Diverse@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; +UI.StatusBalk.VerpakkingType@visible = BEHAVIOR_ZijnStatusBarKenmerkenZichtbaar; Gedrag kenmerken statusbalk ;ui.statusbalk.code@visible;ui.statusbalk.ladediepte@visible;ui.statusbalk.corpusbreedte@visible;ui.statusbalk.wand@visible;ui.statusbalk.draagkracht@visible;ui.statusbalk.frontbevestiging@visible;ui.statusbalk.diverse@visible;ui.statusbalk.verpakkingtype@visible; true - -UI.Kenmerken.KoppelingType@option("Movento")@visible = BEHAVIOR.IsKoppelingTypeMoventoToegelaten; - -if BEHAVIOR.IsKoppelingTypeMoventoToegelaten then - CONFIG.Defaults.KlantVoorkeuren@option("Data.Kenmerken.KoppelingType")@visible = false; // overruled klantvoorkeur ivm KoppelingType zodat keuze Schroef niet voor problemen zorgt - - if (BEHAVIOR.IsInteractive == false) then - DATA.Kenmerken.KoppelingType = "Movento"; // Defaulten op Movento indien in background - end if; -end if; - -if BEHAVIOR.IsEconWeb then - UI.Kenmerken.KoppelingType@visible = false; -end if; + +UI.Kenmerken.KoppelingType@option("Movento")@visible = BEHAVIOR.IsKoppelingTypeMoventoToegelaten; + +if BEHAVIOR.IsKoppelingTypeMoventoToegelaten then + CONFIG.Defaults.KlantVoorkeuren@option("Data.Kenmerken.KoppelingType")@visible = false; // overruled klantvoorkeur ivm KoppelingType zodat keuze Schroef niet voor problemen zorgt + + if (BEHAVIOR.IsInteractive == false) then + DATA.Kenmerken.KoppelingType = "Movento"; // Defaulten op Movento indien in background + end if; +end if; + +if BEHAVIOR.IsEconWeb then + UI.Kenmerken.KoppelingType@visible = false; +end if; Gedrag KoppelingType ;ui.kenmerken.koppelingtype@options;config.defaults.klantvoorkeuren@options;ui.kenmerken.koppelingtype@visible; true - -local boolean _BEHAVIOR_IsDwarsverdelingAantalZichtbaar = true; -local boolean _BEHAVIOR_IsDwarsverdelingTypeZichtbaar = true; -local boolean _BEHAVIOR_IsDwarsverdelingKleurZichtbaar = true; -local boolean _BEHAVIOR_IsDwarsverdelingKleurMandatory = false; -local boolean _IsNietProductieWijzeVolledig = (DATA.Kenmerken.ProductieWijze <> "V"); -local boolean _IsMaximumInterneBreedteOverschreden = (DATA.BerekendeWaarden.InterneBreedte > 1170); - -if (BEHAVIOR.IsDwarsverdelingToegelaten == false) then - _BEHAVIOR_IsDwarsverdelingAantalZichtbaar = false; - _BEHAVIOR_IsDwarsverdelingTypeZichtbaar = false; - _BEHAVIOR_IsDwarsverdelingKleurZichtbaar = false; - DATA.Kenmerken.DwarsverdelingAantal = "0"; - DATA.Kenmerken.DwarsverdelingKleur = ""; -else - if (DATA.Kenmerken.DwarsverdelingAantal == "0") then - _BEHAVIOR_IsDwarsverdelingTypeZichtbaar = false; - _BEHAVIOR_IsDwarsverdelingKleurZichtbaar = false; - _BEHAVIOR_IsDwarsverdelingKleurMandatory = false; - DATA.Kenmerken.DwarsverdelingKleur = ""; - UI.Kenmerken.DwarsverdelingKleur = ""; - else - if _IsNietProductieWijzeVolledig or _IsMaximumInterneBreedteOverschreden then - DATA.Kenmerken.DwarsverdelingAantal = "0"; - UI.Kenmerken.DwarsverdelingAantal = "0"; - end if; - - _BEHAVIOR_IsDwarsverdelingTypeZichtbaar = BEHAVIOR.IsDwarsverdelingTypeToegelaten; - _BEHAVIOR_IsDwarsverdelingKleurZichtbaar = true; - _BEHAVIOR_IsDwarsverdelingKleurMandatory = true; - end if; -end if; - -// Controls Dwarsverdeling: -UI.Kenmerken.DwarsverdelingAantal@visible = _BEHAVIOR_IsDwarsverdelingAantalZichtbaar; -UI.Kenmerken.DwarsverdelingType@visible = _BEHAVIOR_IsDwarsverdelingTypeZichtbaar; -UI.Kenmerken.DwarsverdelingKleur@visible = _BEHAVIOR_IsDwarsverdelingKleurZichtbaar; -UI.Kenmerken.DwarsverdelingKleur@mandatory = _BEHAVIOR_IsDwarsverdelingKleurZichtbaar; + +local boolean _BEHAVIOR_IsDwarsverdelingAantalZichtbaar = true; +local boolean _BEHAVIOR_IsDwarsverdelingTypeZichtbaar = true; +local boolean _BEHAVIOR_IsDwarsverdelingKleurZichtbaar = true; +local boolean _BEHAVIOR_IsDwarsverdelingKleurMandatory = false; +local boolean _IsNietProductieWijzeVolledig = (DATA.Kenmerken.ProductieWijze <> "V"); +local boolean _IsMaximumInterneBreedteOverschreden = (DATA.BerekendeWaarden.InterneBreedte > 1170); + +if (BEHAVIOR.IsDwarsverdelingToegelaten == false) then + _BEHAVIOR_IsDwarsverdelingAantalZichtbaar = false; + _BEHAVIOR_IsDwarsverdelingTypeZichtbaar = false; + _BEHAVIOR_IsDwarsverdelingKleurZichtbaar = false; + DATA.Kenmerken.DwarsverdelingAantal = "0"; + DATA.Kenmerken.DwarsverdelingKleur = ""; +else + if (DATA.Kenmerken.DwarsverdelingAantal == "0") then + _BEHAVIOR_IsDwarsverdelingTypeZichtbaar = false; + _BEHAVIOR_IsDwarsverdelingKleurZichtbaar = false; + _BEHAVIOR_IsDwarsverdelingKleurMandatory = false; + DATA.Kenmerken.DwarsverdelingKleur = ""; + UI.Kenmerken.DwarsverdelingKleur = ""; + else + if _IsNietProductieWijzeVolledig or _IsMaximumInterneBreedteOverschreden then + DATA.Kenmerken.DwarsverdelingAantal = "0"; + UI.Kenmerken.DwarsverdelingAantal = "0"; + end if; + + _BEHAVIOR_IsDwarsverdelingTypeZichtbaar = BEHAVIOR.IsDwarsverdelingTypeToegelaten; + _BEHAVIOR_IsDwarsverdelingKleurZichtbaar = true; + _BEHAVIOR_IsDwarsverdelingKleurMandatory = true; + end if; +end if; + +// Controls Dwarsverdeling: +UI.Kenmerken.DwarsverdelingAantal@visible = _BEHAVIOR_IsDwarsverdelingAantalZichtbaar; +UI.Kenmerken.DwarsverdelingType@visible = _BEHAVIOR_IsDwarsverdelingTypeZichtbaar; +UI.Kenmerken.DwarsverdelingKleur@visible = _BEHAVIOR_IsDwarsverdelingKleurZichtbaar; +UI.Kenmerken.DwarsverdelingKleur@mandatory = _BEHAVIOR_IsDwarsverdelingKleurZichtbaar; Gedrag Dwarsverdeling ;data.kenmerken.dwarsverdelingaantal@value;data.kenmerken.dwarsverdelingkleur@value;ui.kenmerken.dwarsverdelingaantal@visible;ui.kenmerken.dwarsverdelingtype@visible;ui.kenmerken.dwarsverdelingkleur@visible;ui.kenmerken.dwarsverdelingkleur@mandatory; true - -UI.Kenmerken.HeeftAfwijkendeRugHoogte@visible = true; + +UI.Kenmerken.HeeftAfwijkendeRugHoogte@visible = true; Gedrag Afwijkende RugHoogte button ;ui.kenmerken.heeftafwijkenderughoogte@visible; (BEHAVIOR.IsInteractive == true) - -local collection _TussenLadeDieptes = {"250";"320";"380";"420";"480";"520";"580"}; - -if (UI.Kenmerken.ToonTussenmaten == false ) and (DATA.Kenmerken.LadeDiepte in _TussenLadeDieptes) then - UI.Kenmerken.ToonTussenmaten@default = true; -end if + +local collection _TussenLadeDieptes = {"250";"320";"380";"420";"480";"520";"580"}; + +if (UI.Kenmerken.ToonTussenmaten == false ) and (DATA.Kenmerken.LadeDiepte in _TussenLadeDieptes) then + UI.Kenmerken.ToonTussenmaten@default = true; +end if Gedrag ToonTussenmaten ;ui.kenmerken.toontussenmaten@default; @@ -3976,100 +3984,100 @@ 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.DwarsverdelingType = UI.Kenmerken.DwarsverdelingType; -DATA.Kenmerken.DwarsverdelingKleur = UI.Kenmerken.DwarsverdelingKleur; -DATA.Kenmerken.FrontBevestiging = UI.Kenmerken.FrontBevestiging; -DATA.Kenmerken.GeleiderTechnologie = UI.Kenmerken.GeleiderTechnologie; -DATA.Kenmerken.GeleiderType = UI.Kenmerken.GeleiderType; -DATA.Kenmerken.HeeftAfwijkendeRugHoogte = UI.Kenmerken.HeeftAfwijkendeRugHoogte; -DATA.Kenmerken.HeeftDiepteVerstelling = UI.Kenmerken.HeeftDiepteVerstelling; -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.KoppelingType = UI.Kenmerken.KoppelingType; -DATA.Kenmerken.LadeDiepte = UI.Kenmerken.LadeDiepte; -DATA.Kenmerken.LadeHoogte = UI.Kenmerken.LadeHoogte; -DATA.Kenmerken.ProductieWijze = UI.Kenmerken.ProductieWijze; -DATA.Kenmerken.SpecialType = UI.Kenmerken.SpecialType; -DATA.Kenmerken.RugHoogte = UI.Kenmerken.RugHoogte; -DATA.Kenmerken.Toepassing = UI.Kenmerken.Toepassing; -DATA.Kenmerken.VerpakkingType = UI.Kenmerken.VerpakkingType; - -if (Config.InputMode <> "CreateConfig") then - DATA.Kenmerken.ZijkantLogoId = UI.Kenmerken.ZijkantLogo.LogoId; -end if; - -DATA.Lijn.Aantal = UI.Lijn.Aantal; -DATA.Lijn.Referentie = UI.Lijn.Referentie; - -// UITSPARING DATA -DATA.Kenmerken.UitsparingData.UitsparingAantal = UI.Kenmerken.UitsparingData.UitsparingAantal; - -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; - -// IMAGE CONTROLS -DATA.Kenmerken.BodemKleur = UI.Kenmerken.BodemKleur.Value; -DATA.Kenmerken.FrontEindkapKleur = UI.Kenmerken.FrontEindkapKleur.Value; -DATA.Kenmerken.LadeBinnenKleur = UI.Kenmerken.LadeBinnenKleur.Value; -DATA.Kenmerken.LadeKleur = UI.Kenmerken.LadeKleur.Value; -DATA.Kenmerken.KantenbandKleur = UI.Kenmerken.KantenbandKleur.Value; -DATA.Kenmerken.OpvullijstKleur = UI.Kenmerken.OpvullijstKleur.Value; - -// NIET MEELEVEREN -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; + +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.DwarsverdelingType = UI.Kenmerken.DwarsverdelingType; +DATA.Kenmerken.DwarsverdelingKleur = UI.Kenmerken.DwarsverdelingKleur; +DATA.Kenmerken.FrontBevestiging = UI.Kenmerken.FrontBevestiging; +DATA.Kenmerken.GeleiderTechnologie = UI.Kenmerken.GeleiderTechnologie; +DATA.Kenmerken.GeleiderType = UI.Kenmerken.GeleiderType; +DATA.Kenmerken.HeeftAfwijkendeRugHoogte = UI.Kenmerken.HeeftAfwijkendeRugHoogte; +DATA.Kenmerken.HeeftDiepteVerstelling = UI.Kenmerken.HeeftDiepteVerstelling; +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.KoppelingType = UI.Kenmerken.KoppelingType; +DATA.Kenmerken.LadeDiepte = UI.Kenmerken.LadeDiepte; +DATA.Kenmerken.LadeHoogte = UI.Kenmerken.LadeHoogte; +DATA.Kenmerken.ProductieWijze = UI.Kenmerken.ProductieWijze; +DATA.Kenmerken.SpecialType = UI.Kenmerken.SpecialType; +DATA.Kenmerken.RugHoogte = UI.Kenmerken.RugHoogte; +DATA.Kenmerken.Toepassing = UI.Kenmerken.Toepassing; +DATA.Kenmerken.VerpakkingType = UI.Kenmerken.VerpakkingType; + +if (Config.InputMode <> "CreateConfig") then + DATA.Kenmerken.ZijkantLogoId = UI.Kenmerken.ZijkantLogo.LogoId; +end if; + +DATA.Lijn.Aantal = UI.Lijn.Aantal; +DATA.Lijn.Referentie = UI.Lijn.Referentie; + +// UITSPARING DATA +DATA.Kenmerken.UitsparingData.UitsparingAantal = UI.Kenmerken.UitsparingData.UitsparingAantal; + +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; + +// IMAGE CONTROLS +DATA.Kenmerken.BodemKleur = UI.Kenmerken.BodemKleur.Value; +DATA.Kenmerken.FrontEindkapKleur = UI.Kenmerken.FrontEindkapKleur.Value; +DATA.Kenmerken.LadeBinnenKleur = UI.Kenmerken.LadeBinnenKleur.Value; +DATA.Kenmerken.LadeKleur = UI.Kenmerken.LadeKleur.Value; +DATA.Kenmerken.KantenbandKleur = UI.Kenmerken.KantenbandKleur.Value; +DATA.Kenmerken.OpvullijstKleur = UI.Kenmerken.OpvullijstKleur.Value; + +// NIET MEELEVEREN +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.dwarsverdelingtype@value;data.kenmerken.dwarsverdelingkleur@value;data.kenmerken.frontbevestiging@value;data.kenmerken.geleidertechnologie@value;data.kenmerken.geleidertype@value;data.kenmerken.heeftafwijkenderughoogte@value;data.kenmerken.heeftdiepteverstelling@value;data.kenmerken.heeftopvullijstlinks@value;data.kenmerken.heeftopvullijstrechts@value;data.kenmerken.heeftzijstabilisering@value;data.kenmerken.isbinnenbreedte@value;data.kenmerken.isbinnenlade@value;data.kenmerken.koppelingtype@value;data.kenmerken.ladediepte@value;data.kenmerken.ladehoogte@value;data.kenmerken.productiewijze@value;data.kenmerken.specialtype@value;data.kenmerken.rughoogte@value;data.kenmerken.toepassing@value;data.kenmerken.verpakkingtype@value;data.kenmerken.zijkantlogoid@value;data.lijn.aantal@value;data.lijn.referentie@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.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.bodemkleur@value;data.kenmerken.fronteindkapkleur@value;data.kenmerken.ladebinnenkleur@value;data.kenmerken.ladekleur@value;data.kenmerken.kantenbandkleur@value;data.kenmerken.opvullijstkleur@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 "" + 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; @@ -4078,176 +4086,176 @@ BEHAVIOR.OperationMode == "New" and BEHAVIOR.IsInteractive - -DATA.Kenmerken.ProductieWijze@default = DATA.Kenmerken.ProductieWijze@option("V")@id; -DATA.Kenmerken.SpecialType@default = DATA.Kenmerken.SpecialType@option("N")@id; -DATA.Kenmerken.Toepassing@default = DATA.Kenmerken.Toepassing@option("L")@id; -DATA.kenmerken.GeleiderType@default = DATA.kenmerken.GeleiderType@option("Movento")@id; - -if BEHAVIOR.IsKoppelingTypeMoventoToegelaten and (DATA.Kenmerken.Geleidertype <> DATA.kenmerken.GeleiderType@option("Tandem")@id) then - DATA.Kenmerken.KoppelingType@default = DATA.Kenmerken.KoppelingType@option("Movento")@id; -else - DATA.Kenmerken.KoppelingType@default = DATA.Kenmerken.KoppelingType@option("Schroef")@id; -end if; + +DATA.Kenmerken.ProductieWijze@default = DATA.Kenmerken.ProductieWijze@option("V")@id; +DATA.Kenmerken.SpecialType@default = DATA.Kenmerken.SpecialType@option("N")@id; +DATA.Kenmerken.Toepassing@default = DATA.Kenmerken.Toepassing@option("L")@id; +DATA.kenmerken.GeleiderType@default = DATA.kenmerken.GeleiderType@option("Movento")@id; + +if BEHAVIOR.IsKoppelingTypeMoventoToegelaten and (DATA.Kenmerken.Geleidertype <> DATA.kenmerken.GeleiderType@option("Tandem")@id) then + DATA.Kenmerken.KoppelingType@default = DATA.Kenmerken.KoppelingType@option("Movento")@id; +else + DATA.Kenmerken.KoppelingType@default = DATA.Kenmerken.KoppelingType@option("Schroef")@id; +end if; Defaults invullen ;data.kenmerken.productiewijze@default;data.kenmerken.specialtype@default;data.kenmerken.toepassing@default;data.kenmerken.geleidertype@default;data.kenmerken.koppelingtype@default; BEHAVIOR.IsEconAX and not(BEHAVIOR.IsInteractive) and (GetArg("data;kenmerken;dwarsverdelingaantal") == "") and not(BEHAVIOR.ContextName in {"AxNewBulkIngave";"AxCreateBulkWijzigingenToepassen"}) - -DATA.Kenmerken.Dwarsverdelingaantal = "0"; + +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"; + +DATA.Kenmerken.DwarsverdelingType = "Enkel"; Default invullen voor DwarsverdelingType ;data.kenmerken.dwarsverdelingtype@value; (BEHAVIOR.OperationMode == "Edit") - -local collection _PotentieelTeDefaultenLadeDieptes = {"450";"500";"520";"550";"580";"600";"650"}; - -if ((DATA.Kenmerken.Draagkracht == DATA.Kenmerken.Draagkracht@option("60")@id) and (DATA.Kenmerken.LadeDiepte in _PotentieelTeDefaultenLadeDieptes)) then - DATA.Kenmerken.Draagkracht@default = DATA.Kenmerken.Draagkracht@option("70")@id; - UI.Kenmerken.Draagkracht@default = DATA.Kenmerken.Draagkracht; -end if; + +local collection _PotentieelTeDefaultenLadeDieptes = {"450";"500";"520";"550";"580";"600";"650"}; + +if ((DATA.Kenmerken.Draagkracht == DATA.Kenmerken.Draagkracht@option("60")@id) and (DATA.Kenmerken.LadeDiepte in _PotentieelTeDefaultenLadeDieptes)) then + DATA.Kenmerken.Draagkracht@default = DATA.Kenmerken.Draagkracht@option("70")@id; + UI.Kenmerken.Draagkracht@default = DATA.Kenmerken.Draagkracht; +end if; Default invullen voor Draagkracht ;data.kenmerken.draagkracht@default;ui.kenmerken.draagkracht@default; (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); - + 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; + 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.InputMode <> "CreateConfig") and (CONFIG.Settings.KlantId <> "") and (CONFIG.Settings.PersonalityId <> "") - local string _Connection = GetSetting("data.connectionstring") + ";cache=false"; -local string _Query = "SELECT TOP 1 * FROM eCon.Configurations WHERE name = '" + CONFIG.KlantVoorkeurenConfigurationName + "'"; - -CONFIG.Database.Configurations@options = {}; -CONFIG.Database.Configurations@options = ExecuteOptionsQuery("CONFIG.Database.Configurations"; true; _Connection; _Query); - -STATE.KlantVoorkeurenLoaded = true; + 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; + 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); - + 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; + 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; true - -if (DATA.Kenmerken.LadeKleur == "Z9") then - local string _kleurSoftBlack = "S"; - - DATA.Kenmerken.LadeBinnenKleur = _kleurSoftBlack; - DATA.Kenmerken.BodemKleur = _kleurSoftBlack; - DATA.Kenmerken.KantenBandKleur = "Z9"; - DATA.Kenmerken.ProductieWijze = "FLBX"; - DATA.Kenmerken.VerpakkingType = "LosseComponentenInBulk"; -end if; + +if (DATA.Kenmerken.LadeKleur == "Z9") then + local string _kleurSoftBlack = "S"; + + DATA.Kenmerken.LadeBinnenKleur = _kleurSoftBlack; + DATA.Kenmerken.BodemKleur = _kleurSoftBlack; + DATA.Kenmerken.KantenBandKleur = "Z9"; + DATA.Kenmerken.ProductieWijze = "FLBX"; + DATA.Kenmerken.VerpakkingType = "LosseComponentenInBulk"; +end if; Kleur defaulting - KantenbandKleur bij LadeKleur OudZwart ;data.kenmerken.ladebinnenkleur@value;data.kenmerken.bodemkleur@value;data.kenmerken.kantenbandkleur@value;data.kenmerken.productiewijze@value;data.kenmerken.verpakkingtype@value; true - -if (DATA.Kenmerken.LadeKleur == "W7") then - DATA.Kenmerken.LadeBinnenKleur = "W7"; - DATA.Kenmerken.BodemKleur = "W7"; - DATA.Kenmerken.KantenBandKleur = "W7"; -end if; + +if (DATA.Kenmerken.LadeKleur == "W7") then + DATA.Kenmerken.LadeBinnenKleur = "W7"; + DATA.Kenmerken.BodemKleur = "W7"; + DATA.Kenmerken.KantenBandKleur = "W7"; +end if; Kleur defaulting - Bij LadeKleur W7 - WalnutMediumBrown ;data.kenmerken.ladebinnenkleur@value;data.kenmerken.bodemkleur@value;data.kenmerken.kantenbandkleur@value; @@ -4262,170 +4270,170 @@ 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 (_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; + 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 (_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 DATA.Kenmerken.CorpusBreedte > 0 then - _InterneBreedte = DATA.Kenmerken.CorpusBreedte - DATA.BerekendeWaarden.CorpusBreedteDelta; -end if; - + local double _InterneBreedte = 0; + +if DATA.Kenmerken.CorpusBreedte > 0 then + _InterneBreedte = DATA.Kenmerken.CorpusBreedte - DATA.BerekendeWaarden.CorpusBreedteDelta; +end if; + DATA.BerekendeWaarden.InterneBreedte = _InterneBreedte; Bereken InterneBreedte ;data.berekendewaarden.internebreedte@value; (DATA.Kenmerken.LadeHoogte <> "") and BEHAVIOR.IsInteractive - -if not(DATA.Kenmerken.HeeftAfwijkendeRugHoogte) then - - local string _NieuweRugHoogte = DATA.Kenmerken.LadeHoogte; - local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); - - if _IsSifonlade then - _NieuweRugHoogte = "M"; - end if; - - DATA.Kenmerken.RugHoogte = _NieuweRugHoogte; - -end if; + +if not(DATA.Kenmerken.HeeftAfwijkendeRugHoogte) then + + local string _NieuweRugHoogte = DATA.Kenmerken.LadeHoogte; + local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); + + if _IsSifonlade then + _NieuweRugHoogte = "M"; + end if; + + DATA.Kenmerken.RugHoogte = _NieuweRugHoogte; + +end if; Bereken RugHoogte ;data.kenmerken.rughoogte@value; (DATA.Kenmerken.LadeHoogte <> "") and (DATA.Kenmerken.Rughoogte <> "") - -local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); - -if _IsSifonlade then - - if (DATA.Kenmerken.RugHoogte <> "M") then - DATA.Kenmerken.HeeftAfwijkendeRughoogte = true; - end if; - -else - - if (DATA.Kenmerken.LadeHoogte == DATA.Kenmerken.Rughoogte) then - DATA.Kenmerken.HeeftAfwijkendeRughoogte = false; - else - DATA.Kenmerken.HeeftAfwijkendeRughoogte = true; - end if; - -end if; + +local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); + +if _IsSifonlade then + + if (DATA.Kenmerken.RugHoogte <> "M") then + DATA.Kenmerken.HeeftAfwijkendeRughoogte = true; + end if; + +else + + if (DATA.Kenmerken.LadeHoogte == DATA.Kenmerken.Rughoogte) then + DATA.Kenmerken.HeeftAfwijkendeRughoogte = false; + else + DATA.Kenmerken.HeeftAfwijkendeRughoogte = true; + end if; + +end if; Bereken HeeftAfwijkendeRughoogte ; (DATA.Kenmerken.LadeHoogte <> "") - -local string _LadeCode = DATA.Kenmerken.LadeHoogte; - -if (DATA.Kenmerken.Toepassing == "SY") then - _LadeCode = _LadeCode + "Y"; -end if; - -if (DATA.Kenmerken.IsBinnenlade) then - _LadeCode = _LadeCode + "/Z"; -end if; - -DATA.BerekendeWaarden.LadeCode = _LadeCode; + +local string _LadeCode = DATA.Kenmerken.LadeHoogte; + +if (DATA.Kenmerken.Toepassing == "SY") then + _LadeCode = _LadeCode + "Y"; +end if; + +if (DATA.Kenmerken.IsBinnenlade) then + _LadeCode = _LadeCode + "/Z"; +end if; + +DATA.BerekendeWaarden.LadeCode = _LadeCode; Bereken LadeCode ;data.berekendewaarden.ladecode@value; (DATA.Kenmerken.LadeHoogte <> "") - -local string _AfbeeldingCode = ""; -local string _ProductieWijzeInAfbeeldingCode = ""; -local string _AfwijkendeRug = ""; -local string _UitsparingRughoogte = ""; - -_AfbeeldingCode = DATA.Kenmerken.LadeHoogte; - -if (DATA.Kenmerken.IsBinnenlade) then - _AfbeeldingCode = _AfbeeldingCode + "_Z"; -end if; - -if (DATA.Kenmerken.HeeftAfwijkendeRugHoogte) then - _AfbeeldingCode = Replace(_AfbeeldingCode; "_"; ""); -end if; - -if (DATA.Kenmerken.Toepassing == "SY") then - // Voorbeeld: C-Sifon binnenlade met dubbele uitsparing en M-rughoogte : TAOR_BOX_C_Z_Sifon_x2_RugM.jpg - _AfbeeldingCode = _AfbeeldingCode + "_" + "Sifon"; - _UitsparingRughoogte = DATA.Kenmerken.RugHoogte; - - if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then - _AfbeeldingCode = _AfbeeldingCode + "_x2"; - end if; - - if (DATA.Kenmerken.LadeHoogte <> DATA.Kenmerken.RugHoogte) then - _AfbeeldingCode = _AfbeeldingCode + "_Rug" + _UitsparingRughoogte; - end if; -else - if (DATA.Kenmerken.HeeftAfwijkendeRugHoogte) then - if (DATA.Kenmerken.ProductieWijze == "" or DATA.Kenmerken.ProductieWijze == "V") then - _ProductieWijzeInAfbeeldingCode = "_Lade"; - end if; - _AfwijkendeRug = "_Rug" + DATA.Kenmerken.RugHoogte; - end if; - - if (DATA.Kenmerken.ProductieWijze == "B") then - _ProductieWijzeInAfbeeldingCode = "_Bodem"; - end if; - - if (DATA.Kenmerken.ProductieWijze == "F") then - _ProductieWijzeInAfbeeldingCode = "_Front"; - end if; - - if (DATA.Kenmerken.ProductieWijze == "R") then - _ProductieWijzeInAfbeeldingCode = "_Rug"; - end if; - - if (DATA.Kenmerken.ProductieWijze == "ZL") then - _ProductieWijzeInAfbeeldingCode = "_ZijkantLinks"; - end if; - - if (DATA.Kenmerken.ProductieWijze == "ZR") then - _ProductieWijzeInAfbeeldingCode = "_ZijkantRechts"; - end if; - - _AfbeeldingCode = _AfbeeldingCode + _ProductieWijzeInAfbeeldingCode + _AfwijkendeRug; -end if; - -_AfbeeldingCode = "TAOR_BOX_" + _AfbeeldingCode; - -DATA.BerekendeWaarden.AfbeeldingCode = _AfbeeldingCode; + +local string _AfbeeldingCode = ""; +local string _ProductieWijzeInAfbeeldingCode = ""; +local string _AfwijkendeRug = ""; +local string _UitsparingRughoogte = ""; + +_AfbeeldingCode = DATA.Kenmerken.LadeHoogte; + +if (DATA.Kenmerken.IsBinnenlade) then + _AfbeeldingCode = _AfbeeldingCode + "_Z"; +end if; + +if (DATA.Kenmerken.HeeftAfwijkendeRugHoogte) then + _AfbeeldingCode = Replace(_AfbeeldingCode; "_"; ""); +end if; + +if (DATA.Kenmerken.Toepassing == "SY") then + // Voorbeeld: C-Sifon binnenlade met dubbele uitsparing en M-rughoogte : TAOR_BOX_C_Z_Sifon_x2_RugM.jpg + _AfbeeldingCode = _AfbeeldingCode + "_" + "Sifon"; + _UitsparingRughoogte = DATA.Kenmerken.RugHoogte; + + if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then + _AfbeeldingCode = _AfbeeldingCode + "_x2"; + end if; + + if (DATA.Kenmerken.LadeHoogte <> DATA.Kenmerken.RugHoogte) then + _AfbeeldingCode = _AfbeeldingCode + "_Rug" + _UitsparingRughoogte; + end if; +else + if (DATA.Kenmerken.HeeftAfwijkendeRugHoogte) then + if (DATA.Kenmerken.ProductieWijze == "" or DATA.Kenmerken.ProductieWijze == "V") then + _ProductieWijzeInAfbeeldingCode = "_Lade"; + end if; + _AfwijkendeRug = "_Rug" + DATA.Kenmerken.RugHoogte; + end if; + + if (DATA.Kenmerken.ProductieWijze == "B") then + _ProductieWijzeInAfbeeldingCode = "_Bodem"; + end if; + + if (DATA.Kenmerken.ProductieWijze == "F") then + _ProductieWijzeInAfbeeldingCode = "_Front"; + end if; + + if (DATA.Kenmerken.ProductieWijze == "R") then + _ProductieWijzeInAfbeeldingCode = "_Rug"; + end if; + + if (DATA.Kenmerken.ProductieWijze == "ZL") then + _ProductieWijzeInAfbeeldingCode = "_ZijkantLinks"; + end if; + + if (DATA.Kenmerken.ProductieWijze == "ZR") then + _ProductieWijzeInAfbeeldingCode = "_ZijkantRechts"; + end if; + + _AfbeeldingCode = _AfbeeldingCode + _ProductieWijzeInAfbeeldingCode + _AfwijkendeRug; +end if; + +_AfbeeldingCode = "TAOR_BOX_" + _AfbeeldingCode; + +DATA.BerekendeWaarden.AfbeeldingCode = _AfbeeldingCode; Bereken AfbeeldingCode ;data.berekendewaarden.afbeeldingcode@value; @@ -4435,23 +4443,23 @@ true - -local long _Minimum = 1; - -if (DATA.Kenmerken.VerpakkingType in {"LosseComponentenInBulk";"Pallet"}) then - _Minimum = 10; -end if; - -RANGE.Aantal.MINIMUM = _Minimum; + +local long _Minimum = 1; + +if (DATA.Kenmerken.VerpakkingType in {"LosseComponentenInBulk";"Pallet"}) then + _Minimum = 10; +end if; + +RANGE.Aantal.MINIMUM = _Minimum; Aantal minimum ;range.aantal.minimum@value; true - // maximum zit niet in validatie voor aantal -// bedenking: voor GLS mogen max. 50 lades in een winkelkar - + // maximum zit niet in validatie voor aantal +// bedenking: voor GLS mogen max. 50 lades in een winkelkar + //RANGE.Aantal.MAXIMUM = 2; Aantal maximum ; @@ -4460,14 +4468,14 @@ true - RANGE.CorpusBreedte.Minimum = RANGE.InterneBreedte.Minimum + DATA.BerekendeWaarden.CorpusBreedteDelta + 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 + RANGE.CorpusBreedte.Maximum = RANGE.InterneBreedte.Maximum + DATA.BerekendeWaarden.CorpusBreedteDelta CorpusBreedte maximum ;range.corpusbreedte.maximum@value; @@ -4476,134 +4484,141 @@ true - -// Constants -local double MINIMUM_BREEDTE = 212; -local double MIN_VOOR_TOB = 257; -local double MIN_VOOR_ZIJSTABILIS = 362; // Minimum voor in te korten synchro-stang -local double MIN_VOOR_SIFONLADE_1_SMAL = 342; // Minimum voor sifonlade -local double MIN_VOOR_SIFONLADE_1_SMAL_M = 532; // Minimum voor M-sifonlade extern -local double MIN_VOOR_SIFONLADE_1_BREED = 492; // Minimum voor sifonlade met brede uitsparing -local double MIN_VOOR_SIFONLADE_1_BREED_M = 682; // Minimum voor M-sifonlade met brede uitsparing extern -local double MIN_VOOR_SIFONLADE_2_SMAL = 662; // Minimum voor dubbele sifonlade -local double MIN_VOOR_SIFONLADE_2_SMAL_M = 852; // Minimum voor dubbele M-sifonlade extern -local double MIN_VOOR_SIFONLADE_2_BREED = 962; // Minimum voor dubbele sifonlade met brede uitsparingen -local double MIN_VOOR_SIFONLADE_2_BREED_M = 1152; // Minimum voor dubbele M-sifonlade met brede uitsparingen extern -local double MIN_VOOR_DUBBELEDWARSVVERDELING = 212; - -// Defaults -local double _Breedte = MINIMUM_BREEDTE; - -// Voorwaardelijke beperkingen -local double _NieuweBeperking; - -local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); -local boolean _HeeftDubbeleUitsparing = (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); -local boolean _IsBredeUitsparing = (UI.Kenmerken.UitsparingData.Z1.CodeSmalBreed@default == "B274"); // Verdere specifiëring nodig indien dubbele van elkaar afwijkende uitsparingen (1 breed en 1 smal) - -if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then - _NieuweBeperking = MIN_VOOR_TOB; - _Breedte = eCon.Core.Functions.Max(_Breedte; _NieuweBeperking); -end if; - -if (DATA.Kenmerken.HeeftZijstabilisering) then - _NieuweBeperking = MIN_VOOR_ZIJSTABILIS; - _Breedte = eCon.Core.Functions.Max(_Breedte; _NieuweBeperking); -end if; - -if (not(DATA.Kenmerken.DwarsverdelingAantal == "0") and DATA.Kenmerken.DwarsverdelingType == "Dubbel") then - _Breedte = Max(_Breedte; MIN_VOOR_DUBBELEDWARSVVERDELING); -end if; - - -if (_IsSifonlade) then - _NieuweBeperking = MIN_VOOR_SIFONLADE_1_SMAL; - - if (_IsBredeUitsparing) then - _NieuweBeperking = MIN_VOOR_SIFONLADE_1_BREED; - end if; - - if (_HeeftDubbeleUitsparing) then - _NieuweBeperking = MIN_VOOR_SIFONLADE_2_SMAL; - - if (_IsBredeUitsparing) then - _NieuweBeperking = MIN_VOOR_SIFONLADE_2_BREED; - end if; - end if; - - if ((BEHAVIOR.AccessMode == "Extern") and (DATA.Kenmerken.LadeHoogte == "M")) then - _NieuweBeperking = MIN_VOOR_SIFONLADE_1_SMAL_M; - - if (_IsBredeUitsparing) then - _NieuweBeperking = MIN_VOOR_SIFONLADE_1_BREED_M; - end if; - - if (_HeeftDubbeleUitsparing) then - _NieuweBeperking = MIN_VOOR_SIFONLADE_2_SMAL_M; - - if (_IsBredeUitsparing) then - _NieuweBeperking = MIN_VOOR_SIFONLADE_2_BREED_M; - end if; - end if; - end if; - - _Breedte = eCon.Core.Functions.Max(_Breedte; _NieuweBeperking); -end if; - -RANGE.InterneBreedte.Minimum = _Breedte; + +// Constants +local double MINIMUM_BREEDTE = 212; +local double MIN_VOOR_TOB = 257; +local double MIN_VOOR_ZIJSTABILIS = 362; // Minimum voor in te korten synchro-stang +local double MIN_VOOR_SIFONLADE_1_SMAL = 342; // Minimum voor sifonlade +local double MIN_VOOR_SIFONLADE_1_SMAL_M = 532; // Minimum voor M-sifonlade extern +local double MIN_VOOR_SIFONLADE_1_BREED = 492; // Minimum voor sifonlade met brede uitsparing +local double MIN_VOOR_SIFONLADE_1_BREED_M = 682; // Minimum voor M-sifonlade met brede uitsparing extern +local double MIN_VOOR_SIFONLADE_2_SMAL = 662; // Minimum voor dubbele sifonlade +local double MIN_VOOR_SIFONLADE_2_SMAL_M = 852; // Minimum voor dubbele M-sifonlade extern +local double MIN_VOOR_SIFONLADE_2_BREED = 962; // Minimum voor dubbele sifonlade met brede uitsparingen +local double MIN_VOOR_SIFONLADE_2_BREED_M = 1152; // Minimum voor dubbele M-sifonlade met brede uitsparingen extern +local double MIN_VOOR_DUBBELEDWARSVVERDELING = 212; + +// Defaults +local double _Breedte = MINIMUM_BREEDTE; + +// Voorwaardelijke beperkingen +local double _NieuweBeperking; + +local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); +local boolean _HeeftDubbeleUitsparing = (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); +local boolean _IsBredeUitsparing = (UI.Kenmerken.UitsparingData.Z1.CodeSmalBreed@default == "B274"); // Verdere specifiëring nodig indien dubbele van elkaar afwijkende uitsparingen (1 breed en 1 smal) + +if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then + _NieuweBeperking = MIN_VOOR_TOB; + _Breedte = eCon.Core.Functions.Max(_Breedte; _NieuweBeperking); +end if; + +if (DATA.Kenmerken.HeeftZijstabilisering) then + _NieuweBeperking = MIN_VOOR_ZIJSTABILIS; + _Breedte = eCon.Core.Functions.Max(_Breedte; _NieuweBeperking); +end if; + +if (not(DATA.Kenmerken.DwarsverdelingAantal == "0") and DATA.Kenmerken.DwarsverdelingType == "Dubbel") then + _Breedte = Max(_Breedte; MIN_VOOR_DUBBELEDWARSVVERDELING); +end if; + + +if (_IsSifonlade) then + _NieuweBeperking = MIN_VOOR_SIFONLADE_1_SMAL; + + if (_IsBredeUitsparing) then + _NieuweBeperking = MIN_VOOR_SIFONLADE_1_BREED; + end if; + + if (_HeeftDubbeleUitsparing) then + _NieuweBeperking = MIN_VOOR_SIFONLADE_2_SMAL; + + if (_IsBredeUitsparing) then + _NieuweBeperking = MIN_VOOR_SIFONLADE_2_BREED; + end if; + end if; + + if ((BEHAVIOR.AccessMode == "Extern") and (DATA.Kenmerken.LadeHoogte == "M")) then + _NieuweBeperking = MIN_VOOR_SIFONLADE_1_SMAL_M; + + if (_IsBredeUitsparing) then + _NieuweBeperking = MIN_VOOR_SIFONLADE_1_BREED_M; + end if; + + if (_HeeftDubbeleUitsparing) then + _NieuweBeperking = MIN_VOOR_SIFONLADE_2_SMAL_M; + + if (_IsBredeUitsparing) then + _NieuweBeperking = MIN_VOOR_SIFONLADE_2_BREED_M; + end if; + end if; + end if; + + _Breedte = eCon.Core.Functions.Max(_Breedte; _NieuweBeperking); +end if; + +RANGE.InterneBreedte.Minimum = _Breedte; InterneBreedte minimum ;range.internebreedte.minimum@value; true - -// Constants -local double MAXIMUM_BREEDTE = 1468; -local double MAX_VOOR_ZIJSTABIL = 1433; // beperking max door lengte van de zijstab-stang -local double MAX_VOOR_TOB = 1368; // beperking max door lengte van de synchro-stang -local double MAX_VOOR_TIPON = 1468; // is dus zelfde als gewone lade (?) -local double MAX_VOOR_VHOSS = 1168; // = 1200 - 2x16 -local double MAX_VOOR_FLATPACK = 1168; // beperking max door Flatpack Draagplaat - marge -local double MAX_VOOR_PALLET = 1168; // beperking max door breedte van gewone pallet - -// Defaults -local double _Breedte = MAXIMUM_BREEDTE; - -// Voorwaardelijke beperkingen -local double _NieuweBeperking; - -if (DATA.Kenmerken.HeeftZijstabilisering) then - _NieuweBeperking = MAX_VOOR_ZIJSTABIL ; - _Breedte = eCon.Core.Functions.Min(_Breedte; _NieuweBeperking); -end if; - -if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then - _NieuweBeperking = MAX_VOOR_TOB; - _Breedte = eCon.Core.Functions.Min(_Breedte; _NieuweBeperking); -end if; - -if (DATA.Kenmerken.GeleiderTechnologie == "T") then - _NieuweBeperking = MAX_VOOR_TIPON; - _Breedte = eCon.Core.Functions.Min(_Breedte; _NieuweBeperking); -end if; - -if (DATA.Kenmerken.VerpakkingType == "VHoss") then - _NieuweBeperking = MAX_VOOR_VHOSS; - _Breedte = eCon.Core.Functions.Min(_Breedte; _NieuweBeperking); -end if; - -if (DATA.Kenmerken.VerpakkingType in {"FlatpackV1"}) then - _NieuweBeperking = MAX_VOOR_FLATPACK; - _Breedte = eCon.Core.Functions.Min(_Breedte; _NieuweBeperking); -end if; - -if ((DATA.Kenmerken.VerpakkingType in {"Pallet"}) and (BEHAVIOR.IsEconWeb)) then - _NieuweBeperking = MAX_VOOR_PALLET; - _Breedte = eCon.Core.Functions.Min(_Breedte; _NieuweBeperking); -end if; - -RANGE.InterneBreedte.Maximum = _Breedte; + +// Constants +local double MAXIMUM_BREEDTE = 1468; +local double MAX_VOOR_ZIJSTABIL = 1433; // beperking max door lengte van de zijstab-stang +local double MAX_VOOR_TOB = 1368; // beperking max door lengte van de synchro-stang +local double MAX_VOOR_TIPON = 1468; // is dus zelfde als gewone lade (?) +local double MAX_VOOR_VHOSS = 1168; // = 1200 - 2x16 +local double MAX_VOOR_FLATPACK = 1168; // beperking max door Flatpack Draagplaat - marge +local double MAX_VOOR_PALLET = 1168; // beperking max door breedte van gewone pallet +local double MAX_1168_mm = 1168; + +// Defaults +local double _Breedte = MAXIMUM_BREEDTE; + +// Voorwaardelijke beperkingen +local double _NieuweBeperking; + +if (DATA.Kenmerken.HeeftZijstabilisering) then + _NieuweBeperking = MAX_VOOR_ZIJSTABIL ; + _Breedte = eCon.Core.Functions.Min(_Breedte; _NieuweBeperking); +end if; + +if (DATA.Kenmerken.GeleiderTechnologie == "TOB") then + _NieuweBeperking = MAX_VOOR_TOB; + _Breedte = eCon.Core.Functions.Min(_Breedte; _NieuweBeperking); +end if; + +if (DATA.Kenmerken.GeleiderTechnologie == "T") then + _NieuweBeperking = MAX_VOOR_TIPON; + _Breedte = eCon.Core.Functions.Min(_Breedte; _NieuweBeperking); +end if; + +if (DATA.Kenmerken.VerpakkingType == "VHoss") then + _NieuweBeperking = MAX_VOOR_VHOSS; + _Breedte = eCon.Core.Functions.Min(_Breedte; _NieuweBeperking); +end if; + +if (DATA.Kenmerken.VerpakkingType in {"FlatpackV1"}) then + _NieuweBeperking = MAX_VOOR_FLATPACK; + _Breedte = eCon.Core.Functions.Min(_Breedte; _NieuweBeperking); +end if; + +if ((DATA.Kenmerken.VerpakkingType in {"Pallet"}) and (BEHAVIOR.IsEconWeb)) then + _NieuweBeperking = MAX_VOOR_PALLET; + _Breedte = eCon.Core.Functions.Min(_Breedte; _NieuweBeperking); +end if; + +if ((BEHAVIOR.IsMaximaleBreedteBeperktTot1168Mm) and (BEHAVIOR.IsEconWeb)) then + _NieuweBeperking = MAX_1168_mm; + _Breedte = eCon.Core.Functions.Min(_Breedte; _NieuweBeperking); +end if; + + +RANGE.InterneBreedte.Maximum = _Breedte; InterneBreedte maximum ;range.internebreedte.maximum@value; @@ -4613,26 +4628,26 @@ 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 - if (not(UI.Kenmerken.NietMeeleveren(i).Id == "TiponSynchronisatieSet")) then - // TIPON is uitgefaseerd per maart 2021 - local string _NietMeeleverenProperty = "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.Kenmerken.NietMeeleveren(i).Id; - local boolean _Result = SetValue(_NietMeeleverenProperty; CStr(_AlleNietMeeleverensSelecteren)); - end if; -end index; - -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 + if (not(UI.Kenmerken.NietMeeleveren(i).Id == "TiponSynchronisatieSet")) then + // TIPON is uitgefaseerd per maart 2021 + local string _NietMeeleverenProperty = "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_" + UI.Kenmerken.NietMeeleveren(i).Id; + local boolean _Result = SetValue(_NietMeeleverenProperty; CStr(_AlleNietMeeleverensSelecteren)); + end if; +end index; + +UI.Kenmerken.SneltoetsenNietMeeleveren = ""; Logica sneltoetsen niet meeleveren ;ui.kenmerken.sneltoetsennietmeeleveren@value; @@ -4666,14 +4681,14 @@ true - DATA.Kenmerken.SpecialType@valids = ConstrainedOptions("DATA.Kenmerken.SpecialType,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.SpecialType"; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); + DATA.Kenmerken.SpecialType@valids = ConstrainedOptions("DATA.Kenmerken.SpecialType,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.SpecialType"; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.SpecialType ;data.kenmerken.specialtype@valids; true - DATA.Kenmerken.HeeftZijstabilisering@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.GeleiderType,DATA.Kenmerken.HeeftZijstabilisering@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.HeeftZijstabilisering"; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.GeleiderType"; DATA.Kenmerken.GeleiderType; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); + DATA.Kenmerken.HeeftZijstabilisering@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.GeleiderType,DATA.Kenmerken.HeeftZijstabilisering@Valids;DATA.Kenmerken.HeeftZijstabilisering,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.HeeftZijstabilisering"; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.GeleiderType"; DATA.Kenmerken.GeleiderType; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.HeeftZijstabilisering ; @@ -4723,7 +4738,7 @@ true - DATA.Kenmerken.HeeftDiepteVerstelling@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.HeeftDiepteVerstelling@Valids;DATA.Kenmerken.GeleiderType,DATA.Kenmerken.HeeftDiepteVerstelling@Valids"; "DATA.Kenmerken.HeeftDiepteVerstelling"; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.GeleiderType"; DATA.Kenmerken.GeleiderType); + DATA.Kenmerken.HeeftDiepteVerstelling@style.invalidbooleans = ConstrainedBooleanInvalids("DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.HeeftDiepteVerstelling@Valids;DATA.Kenmerken.GeleiderType,DATA.Kenmerken.HeeftDiepteVerstelling@Valids"; "DATA.Kenmerken.HeeftDiepteVerstelling"; "DATA.Kenmerken.GeleiderTechnologie"; DATA.Kenmerken.GeleiderTechnologie; "DATA.Kenmerken.GeleiderType"; DATA.Kenmerken.GeleiderType); Applying constraints for property DATA.Kenmerken.HeeftDiepteVerstelling ; @@ -4736,14 +4751,14 @@ 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); + 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.LadeDiepte,DATA.Kenmerken.MatMateriaal@Valids;DATA.Kenmerken.MatMateriaal,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.MatMateriaal"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.MatKleur"; DATA.Kenmerken.MatKleur; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); + DATA.Kenmerken.MatMateriaal@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatKleur,DATA.Kenmerken.MatMateriaal@Valids;DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.MatMateriaal@Valids;DATA.Kenmerken.MatMateriaal,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.MatMateriaal"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.MatKleur"; DATA.Kenmerken.MatKleur; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.MatMateriaal ;data.kenmerken.matmateriaal@valids; @@ -4780,7 +4795,7 @@ true - DATA.Kenmerken.GeleiderTechnologie@valids = ConstrainedOptions("BEHAVIOR.AccessMode,DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.GeleiderType,DATA.Kenmerken.HeeftZijstabilisering@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.GeleiderType@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.HeeftDiepteVerstelling@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.GeleiderTechnologie"; "BEHAVIOR.AccessMode"; BEHAVIOR.AccessMode; "DATA.Kenmerken.GeleiderType"; DATA.Kenmerken.GeleiderType; "DATA.Kenmerken.HeeftDiepteVerstelling"; CurrentBoolean(DATA.Kenmerken.HeeftDiepteVerstelling); "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); + DATA.Kenmerken.GeleiderTechnologie@valids = ConstrainedOptions("BEHAVIOR.AccessMode,DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.Toepassing@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.GeleiderType,DATA.Kenmerken.HeeftZijstabilisering@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.GeleiderType@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.HeeftDiepteVerstelling@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.LadeDiepte@Valids;DATA.Kenmerken.GeleiderTechnologie,DATA.Kenmerken.Toepassing@Valids"; "DATA.Kenmerken.GeleiderTechnologie"; "BEHAVIOR.AccessMode"; BEHAVIOR.AccessMode; "DATA.Kenmerken.GeleiderType"; DATA.Kenmerken.GeleiderType; "DATA.Kenmerken.HeeftDiepteVerstelling"; CurrentBoolean(DATA.Kenmerken.HeeftDiepteVerstelling); "DATA.Kenmerken.HeeftZijstabilisering"; CurrentBoolean(DATA.Kenmerken.HeeftZijstabilisering); "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.Toepassing"; DATA.Kenmerken.Toepassing); Applying constraints for property DATA.Kenmerken.GeleiderTechnologie ;data.kenmerken.geleidertechnologie@valids; @@ -4837,7 +4852,7 @@ true - DATA.Kenmerken.IsBinnenlade@style.invalidbooleans = ConstrainedBooleanInvalids("BEHAVIOR.AccessMode,DATA.Kenmerken.FrontBevestiging,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.FrontBevestiging,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.GeleiderType,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.KoppelingType@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids"; "DATA.Kenmerken.IsBinnenlade"; "BEHAVIOR.AccessMode"; BEHAVIOR.AccessMode; "DATA.Kenmerken.FrontBevestiging"; DATA.Kenmerken.FrontBevestiging; "DATA.Kenmerken.GeleiderType"; DATA.Kenmerken.GeleiderType; "DATA.Kenmerken.KoppelingType"; DATA.Kenmerken.KoppelingType; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging"; CurrentBoolean(DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging); "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze); + DATA.Kenmerken.IsBinnenlade@style.invalidbooleans = ConstrainedBooleanInvalids("BEHAVIOR.AccessMode,DATA.Kenmerken.FrontBevestiging,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.FrontBevestiging,DATA.Kenmerken.IsBinnenlade@Valids;DATA.Kenmerken.GeleiderType,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.KoppelingType@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.LadeHoogte@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids"; "DATA.Kenmerken.IsBinnenlade"; "BEHAVIOR.AccessMode"; BEHAVIOR.AccessMode; "DATA.Kenmerken.FrontBevestiging"; DATA.Kenmerken.FrontBevestiging; "DATA.Kenmerken.GeleiderType"; DATA.Kenmerken.GeleiderType; "DATA.Kenmerken.KoppelingType"; DATA.Kenmerken.KoppelingType; "DATA.Kenmerken.LadeHoogte"; DATA.Kenmerken.LadeHoogte; "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging"; CurrentBoolean(DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging); "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze); Applying constraints for property DATA.Kenmerken.IsBinnenlade ; @@ -4933,14 +4948,14 @@ true - DATA.Kenmerken.KoppelingType@valids = ConstrainedOptions("BEHAVIOR.IsKoppelingTypeMoventoToegelaten,DATA.Kenmerken.GeleiderType,DATA.Kenmerken.KoppelingType@Valids;BEHAVIOR.IsKoppelingTypeMoventoToegelaten,DATA.Kenmerken.KoppelingType@Valids;DATA.Kenmerken.GeleiderType,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.KoppelingType@Valids;DATA.Kenmerken.GeleiderType,DATA.Kenmerken.KoppelingType@Valids"; "DATA.Kenmerken.KoppelingType"; "BEHAVIOR.IsKoppelingTypeMoventoToegelaten"; CurrentBoolean(BEHAVIOR.IsKoppelingTypeMoventoToegelaten); "DATA.Kenmerken.GeleiderType"; DATA.Kenmerken.GeleiderType; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade)); + DATA.Kenmerken.KoppelingType@valids = ConstrainedOptions("BEHAVIOR.IsKoppelingTypeMoventoToegelaten,DATA.Kenmerken.GeleiderType,DATA.Kenmerken.KoppelingType@Valids;BEHAVIOR.IsKoppelingTypeMoventoToegelaten,DATA.Kenmerken.KoppelingType@Valids;DATA.Kenmerken.GeleiderType,DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.KoppelingType@Valids;DATA.Kenmerken.GeleiderType,DATA.Kenmerken.KoppelingType@Valids"; "DATA.Kenmerken.KoppelingType"; "BEHAVIOR.IsKoppelingTypeMoventoToegelaten"; CurrentBoolean(BEHAVIOR.IsKoppelingTypeMoventoToegelaten); "DATA.Kenmerken.GeleiderType"; DATA.Kenmerken.GeleiderType; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade)); Applying constraints for property DATA.Kenmerken.KoppelingType ;data.kenmerken.koppelingtype@valids; true - BEHAVIOR.IsKoppelingTypeMoventoToegelaten@style.invalidbooleans = ConstrainedBooleanInvalids("BEHAVIOR.IsKoppelingTypeMoventoToegelaten,DATA.Kenmerken.GeleiderType,DATA.Kenmerken.KoppelingType@Valids;BEHAVIOR.IsKoppelingTypeMoventoToegelaten,DATA.Kenmerken.KoppelingType@Valids"; "BEHAVIOR.IsKoppelingTypeMoventoToegelaten"; "DATA.Kenmerken.GeleiderType"; DATA.Kenmerken.GeleiderType; "DATA.Kenmerken.KoppelingType"; DATA.Kenmerken.KoppelingType); + BEHAVIOR.IsKoppelingTypeMoventoToegelaten@style.invalidbooleans = ConstrainedBooleanInvalids("BEHAVIOR.IsKoppelingTypeMoventoToegelaten,DATA.Kenmerken.GeleiderType,DATA.Kenmerken.KoppelingType@Valids;BEHAVIOR.IsKoppelingTypeMoventoToegelaten,DATA.Kenmerken.KoppelingType@Valids"; "BEHAVIOR.IsKoppelingTypeMoventoToegelaten"; "DATA.Kenmerken.GeleiderType"; DATA.Kenmerken.GeleiderType; "DATA.Kenmerken.KoppelingType"; DATA.Kenmerken.KoppelingType); Applying constraints for property BEHAVIOR.IsKoppelingTypeMoventoToegelaten ; @@ -4959,7 +4974,7 @@ true - DATA.Kenmerken.ProductieWijze@valids = ConstrainedOptions("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids"; "DATA.Kenmerken.ProductieWijze"; "DATA.Kenmerken.DwarsverdelingAantal"; DATA.Kenmerken.DwarsverdelingAantal; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging"; CurrentBoolean(DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging); "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType); + DATA.Kenmerken.ProductieWijze@valids = ConstrainedOptions("DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.IsBinnenlade,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.LadeKleur,DATA.Kenmerken.ProductieWijze@Valids;DATA.Kenmerken.ProductieWijze,DATA.Kenmerken.VerpakkingType@Valids"; "DATA.Kenmerken.ProductieWijze"; "DATA.Kenmerken.DwarsverdelingAantal"; DATA.Kenmerken.DwarsverdelingAantal; "DATA.Kenmerken.IsBinnenlade"; CurrentBoolean(DATA.Kenmerken.IsBinnenlade); "DATA.Kenmerken.LadeKleur"; DATA.Kenmerken.LadeKleur; "DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging"; CurrentBoolean(DATA.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging); "DATA.Kenmerken.VerpakkingType"; DATA.Kenmerken.VerpakkingType); Applying constraints for property DATA.Kenmerken.ProductieWijze ;data.kenmerken.productiewijze@valids; @@ -4972,14 +4987,14 @@ true - DATA.BerekendeWaarden.InterneBreedte@inputvalidation.rangeset = ConstrainedRangeSet("DATA.BerekendeWaarden.InterneBreedte,DATA.Kenmerken.DwarsverdelingAantal@Valids"; "DATA.BerekendeWaarden.InterneBreedte"; "DATA.Kenmerken.DwarsverdelingAantal"; DATA.Kenmerken.DwarsverdelingAantal); + DATA.BerekendeWaarden.InterneBreedte@inputvalidation.rangeset = ConstrainedRangeSet("DATA.BerekendeWaarden.InterneBreedte,DATA.Kenmerken.DwarsverdelingAantal@Valids"; "DATA.BerekendeWaarden.InterneBreedte"; "DATA.Kenmerken.DwarsverdelingAantal"; DATA.Kenmerken.DwarsverdelingAantal); Applying constraints for property DATA.BerekendeWaarden.InterneBreedte ;data.berekendewaarden.internebreedte@rangeset; true - DATA.Kenmerken.DwarsverdelingAantal@valids = ConstrainedOptions("DATA.BerekendeWaarden.InterneBreedte,DATA.Kenmerken.DwarsverdelingAantal@Valids;DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.ProductieWijze@Valids"; "DATA.Kenmerken.DwarsverdelingAantal"; "DATA.BerekendeWaarden.InterneBreedte"; CurrentRange("DATA.BerekendeWaarden.InterneBreedte"; DATA.BerekendeWaarden.InterneBreedte); "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze); + DATA.Kenmerken.DwarsverdelingAantal@valids = ConstrainedOptions("DATA.BerekendeWaarden.InterneBreedte,DATA.Kenmerken.DwarsverdelingAantal@Valids;DATA.Kenmerken.DwarsverdelingAantal,DATA.Kenmerken.ProductieWijze@Valids"; "DATA.Kenmerken.DwarsverdelingAantal"; "DATA.BerekendeWaarden.InterneBreedte"; CurrentRange("DATA.BerekendeWaarden.InterneBreedte"; DATA.BerekendeWaarden.InterneBreedte); "DATA.Kenmerken.ProductieWijze"; DATA.Kenmerken.ProductieWijze); Applying constraints for property DATA.Kenmerken.DwarsverdelingAantal ;data.kenmerken.dwarsverdelingaantal@valids; @@ -5095,142 +5110,142 @@ true - -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.DwarsverdelingKleur@options) - UI.Kenmerken.DwarsverdelingKleur@option(i)@valid = DATA.Kenmerken.DwarsverdelingKleur@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.GeleiderType@options) - UI.Kenmerken.GeleiderType@option(i)@valid = DATA.Kenmerken.GeleiderType@option(i)@valid; -end for; - -for i = 1 to len(DATA.Kenmerken.KoppelingType@options) - UI.Kenmerken.KoppelingType@option(i)@valid = DATA.Kenmerken.KoppelingType@option(i)@valid; -end for; - -for i = 1 to len(DATA.Kenmerken.LadeBinnenKleur@options) - UI.Kenmerken.LadeBinnenKleur@option(i)@valid = DATA.Kenmerken.LadeBinnenKleur@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.FrontEindkapKleur@options) - UI.Kenmerken.FrontEindkapKleur@option(i)@valid = DATA.Kenmerken.FrontEindkapKleur@option(i)@valid; -end for; - -for i = 1 to len(DATA.Kenmerken.KantenbandKleur@options) - UI.Kenmerken.KantenbandKleur@option(i)@valid = DATA.Kenmerken.KantenbandKleur@option(i)@valid; -end for; - -/*for i = 1 to len(DATA.Kenmerken.LosseComponent@options) - UI.Kenmerken.LosseComponent@option(i)@valid = DATA.Kenmerken.LosseComponent@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.SpecialType@options) - UI.Kenmerken.SpecialType@option(i)@valid = DATA.Kenmerken.SpecialType@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; - -// Voor boolean-controls worden de Valids niet gekopieerd, want constraints beperken de boolean-opties niet + +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.DwarsverdelingKleur@options) + UI.Kenmerken.DwarsverdelingKleur@option(i)@valid = DATA.Kenmerken.DwarsverdelingKleur@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.GeleiderType@options) + UI.Kenmerken.GeleiderType@option(i)@valid = DATA.Kenmerken.GeleiderType@option(i)@valid; +end for; + +for i = 1 to len(DATA.Kenmerken.KoppelingType@options) + UI.Kenmerken.KoppelingType@option(i)@valid = DATA.Kenmerken.KoppelingType@option(i)@valid; +end for; + +for i = 1 to len(DATA.Kenmerken.LadeBinnenKleur@options) + UI.Kenmerken.LadeBinnenKleur@option(i)@valid = DATA.Kenmerken.LadeBinnenKleur@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.FrontEindkapKleur@options) + UI.Kenmerken.FrontEindkapKleur@option(i)@valid = DATA.Kenmerken.FrontEindkapKleur@option(i)@valid; +end for; + +for i = 1 to len(DATA.Kenmerken.KantenbandKleur@options) + UI.Kenmerken.KantenbandKleur@option(i)@valid = DATA.Kenmerken.KantenbandKleur@option(i)@valid; +end for; + +/*for i = 1 to len(DATA.Kenmerken.LosseComponent@options) + UI.Kenmerken.LosseComponent@option(i)@valid = DATA.Kenmerken.LosseComponent@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.SpecialType@options) + UI.Kenmerken.SpecialType@option(i)@valid = DATA.Kenmerken.SpecialType@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; + +// Voor boolean-controls worden de Valids niet gekopieerd, want constraints beperken de boolean-opties niet Valids ;ui.kenmerken.bodemkleur@valids;ui.kenmerken.draagkracht@valids;ui.kenmerken.dwarsverdelingaantal@valids;ui.kenmerken.dwarsverdelingtype@valids;ui.kenmerken.dwarsverdelingkleur@valids;ui.kenmerken.frontbevestiging@valids;ui.kenmerken.geleidertechnologie@valids;ui.kenmerken.geleidertype@valids;ui.kenmerken.koppelingtype@valids;ui.kenmerken.ladebinnenkleur@valids;ui.kenmerken.ladediepte@valids;ui.kenmerken.ladehoogte@valids;ui.kenmerken.ladekleur@valids;ui.kenmerken.fronteindkapkleur@valids;ui.kenmerken.kantenbandkleur@valids;ui.kenmerken.opvullijstkleur@valids;ui.kenmerken.productiewijze@valids;ui.kenmerken.rughoogte@valids;ui.kenmerken.specialtype@valids;ui.kenmerken.toepassing@valids;ui.kenmerken.verpakkingtype@valids; true - 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; + 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; true - for i = 1 to len(DATA.Kenmerken.UitsparingData.UitsparingAantal@options) - UI.Kenmerken.UitsparingData.UitsparingAantal@option(i)@valid = DATA.Kenmerken.UitsparingData.UitsparingAantal@option(i)@valid; + for i = 1 to len(DATA.Kenmerken.UitsparingData.UitsparingAantal@options) + UI.Kenmerken.UitsparingData.UitsparingAantal@option(i)@valid = DATA.Kenmerken.UitsparingData.UitsparingAantal@option(i)@valid; end for; Valids - UitsparingData ;ui.kenmerken.uitsparingdata.uitsparingaantal@valids; @@ -5239,29 +5254,29 @@ true - -local boolean _IsProbox = (DATA.Kenmerken.VerpakkingType == "Probox"); -local boolean _IsPallet = (DATA.Kenmerken.VerpakkingType == "Pallet"); - -if _IsProbox then - UI.Kenmerken.VerpakkingTypeLabel@default = UI.Kenmerken.VerpakkingTypeLabel@label; -end if; - -if _IsPallet then - UI.Kenmerken.VerpakkingTypeLabel10@default = UI.Kenmerken.VerpakkingTypeLabel10@label; -end if; - -UI.Kenmerken.VerpakkingTypeLabel@visible = _IsProbox; -UI.Kenmerken.VerpakkingTypeLabel10@visible = _IsPallet; + +local boolean _IsProbox = (DATA.Kenmerken.VerpakkingType == "Probox"); +local boolean _IsPallet = (DATA.Kenmerken.VerpakkingType == "Pallet"); + +if _IsProbox then + UI.Kenmerken.VerpakkingTypeLabel@default = UI.Kenmerken.VerpakkingTypeLabel@label; +end if; + +if _IsPallet then + UI.Kenmerken.VerpakkingTypeLabel10@default = UI.Kenmerken.VerpakkingTypeLabel10@label; +end if; + +UI.Kenmerken.VerpakkingTypeLabel@visible = _IsProbox; +UI.Kenmerken.VerpakkingTypeLabel10@visible = _IsPallet; Message VerpakkingType ;ui.kenmerken.verpakkingtypelabel@default;ui.kenmerken.verpakkingtypelabel10@default;ui.kenmerken.verpakkingtypelabel@visible;ui.kenmerken.verpakkingtypelabel10@visible; DATA.Kenmerken.KantenbandKleur <> "" - local boolean _IsAfwijkendeKantenbandKleur = (DATA.Kenmerken.LadeKleur <> DATA.Kenmerken.KantenbandKleur); - -UI.Kenmerken.KantenbandKleurLabel@default = UI.Kenmerken.KantenbandKleurLabel@label; + local boolean _IsAfwijkendeKantenbandKleur = (DATA.Kenmerken.LadeKleur <> DATA.Kenmerken.KantenbandKleur); + +UI.Kenmerken.KantenbandKleurLabel@default = UI.Kenmerken.KantenbandKleurLabel@label; UI.Kenmerken.KantenbandKleurLabel@visible = (DATA.Kenmerken.IsBinnenlade and _IsAfwijkendeKantenbandKleur); Message KantenbandKleur ;ui.kenmerken.kantenbandkleurlabel@default;ui.kenmerken.kantenbandkleurlabel@visible; @@ -5270,116 +5285,116 @@ true - -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.DwarsverdelingKleur@default = DATA.Kenmerken.DwarsverdelingKleur; -UI.Kenmerken.FrontBevestiging@default = DATA.Kenmerken.FrontBevestiging; -UI.Kenmerken.FrontEindkapKleur@default = DATA.Kenmerken.FrontEindkapKleur; -UI.Kenmerken.GeleiderTechnologie@default = DATA.Kenmerken.GeleiderTechnologie; -UI.Kenmerken.GeleiderType@default = DATA.Kenmerken.GeleiderType; -UI.Kenmerken.HeeftAfwijkendeRugHoogte@default = DATA.Kenmerken.HeeftAfwijkendeRugHoogte; -UI.Kenmerken.HeeftDiepteVerstelling@default = DATA.Kenmerken.HeeftDiepteVerstelling; -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.KantenbandKleur@default = DATA.Kenmerken.KantenbandKleur; -UI.Kenmerken.KoppelingType@default = DATA.Kenmerken.KoppelingType; -UI.Kenmerken.LadeBinnenKleur@default = DATA.Kenmerken.LadeBinnenKleur; -UI.Kenmerken.LadeDiepte@default = DATA.Kenmerken.LadeDiepte; -UI.Kenmerken.LadeKleur@default = DATA.Kenmerken.LadeKleur; -UI.Kenmerken.LadeHoogte@default = DATA.Kenmerken.LadeHoogte; -UI.Kenmerken.OpvullijstDikte@default = DATA.BerekendeWaarden.OpvullijstDikte; -UI.Kenmerken.OpvullijstKleur@default = DATA.Kenmerken.OpvullijstKleur; -UI.Kenmerken.ProductieWijze@default = DATA.Kenmerken.ProductieWijze; -UI.Kenmerken.RugHoogte@default = DATA.Kenmerken.RugHoogte; -UI.Kenmerken.SpecialType@default = DATA.Kenmerken.SpecialType; -UI.Kenmerken.Toepassing@default = DATA.Kenmerken.Toepassing; -UI.Kenmerken.VerpakkingType@default = DATA.Kenmerken.VerpakkingType; - -UI.Kenmerken.ZijkantLogo@default = GetOptionId(UI.Kenmerken.ZijkantLogo@options; "LogoId"; DATA.Kenmerken.ZijkantLogoId); - -UI.Kenmerken.InterneBreedte@default = DATA.BerekendeWaarden.InterneBreedte; - -UI.Lijn.Aantal@default = DATA.Lijn.Aantal; -UI.Lijn.Referentie@default = DATA.Lijn.Referentie; - -//UI.Kenmerken.LosseComponent@default = DATA.Kenmerken.LosseComponent; - -UI.Kenmerken.UitsparingData.UitsparingAantal@default = DATA.Kenmerken.UitsparingData.UitsparingAantal; - -local boolean _DummyCheckV01 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBoven; -local boolean _DummyCheckV02 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_BodemOndersteuning; -local boolean _DummyCheckV03 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging; -local boolean _DummyCheckV04 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider; -local boolean _DummyCheckV05 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Koppeling; -local boolean _DummyCheckV06 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst; -local boolean _DummyCheckV07 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet; -local boolean _DummyCheckV08 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers; -local boolean _DummyCheckV09 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; -local boolean _DummyCheckV10 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponSynchronisatieSet; - -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; + +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.DwarsverdelingKleur@default = DATA.Kenmerken.DwarsverdelingKleur; +UI.Kenmerken.FrontBevestiging@default = DATA.Kenmerken.FrontBevestiging; +UI.Kenmerken.FrontEindkapKleur@default = DATA.Kenmerken.FrontEindkapKleur; +UI.Kenmerken.GeleiderTechnologie@default = DATA.Kenmerken.GeleiderTechnologie; +UI.Kenmerken.GeleiderType@default = DATA.Kenmerken.GeleiderType; +UI.Kenmerken.HeeftAfwijkendeRugHoogte@default = DATA.Kenmerken.HeeftAfwijkendeRugHoogte; +UI.Kenmerken.HeeftDiepteVerstelling@default = DATA.Kenmerken.HeeftDiepteVerstelling; +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.KantenbandKleur@default = DATA.Kenmerken.KantenbandKleur; +UI.Kenmerken.KoppelingType@default = DATA.Kenmerken.KoppelingType; +UI.Kenmerken.LadeBinnenKleur@default = DATA.Kenmerken.LadeBinnenKleur; +UI.Kenmerken.LadeDiepte@default = DATA.Kenmerken.LadeDiepte; +UI.Kenmerken.LadeKleur@default = DATA.Kenmerken.LadeKleur; +UI.Kenmerken.LadeHoogte@default = DATA.Kenmerken.LadeHoogte; +UI.Kenmerken.OpvullijstDikte@default = DATA.BerekendeWaarden.OpvullijstDikte; +UI.Kenmerken.OpvullijstKleur@default = DATA.Kenmerken.OpvullijstKleur; +UI.Kenmerken.ProductieWijze@default = DATA.Kenmerken.ProductieWijze; +UI.Kenmerken.RugHoogte@default = DATA.Kenmerken.RugHoogte; +UI.Kenmerken.SpecialType@default = DATA.Kenmerken.SpecialType; +UI.Kenmerken.Toepassing@default = DATA.Kenmerken.Toepassing; +UI.Kenmerken.VerpakkingType@default = DATA.Kenmerken.VerpakkingType; + +UI.Kenmerken.ZijkantLogo@default = GetOptionId(UI.Kenmerken.ZijkantLogo@options; "LogoId"; DATA.Kenmerken.ZijkantLogoId); + +UI.Kenmerken.InterneBreedte@default = DATA.BerekendeWaarden.InterneBreedte; + +UI.Lijn.Aantal@default = DATA.Lijn.Aantal; +UI.Lijn.Referentie@default = DATA.Lijn.Referentie; + +//UI.Kenmerken.LosseComponent@default = DATA.Kenmerken.LosseComponent; + +UI.Kenmerken.UitsparingData.UitsparingAantal@default = DATA.Kenmerken.UitsparingData.UitsparingAantal; + +local boolean _DummyCheckV01 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_AfdekkapBoven; +local boolean _DummyCheckV02 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_BodemOndersteuning; +local boolean _DummyCheckV03 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_FrontBevestiging; +local boolean _DummyCheckV04 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Geleider; +local boolean _DummyCheckV05 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Koppeling; +local boolean _DummyCheckV06 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst; +local boolean _DummyCheckV07 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSet; +local boolean _DummyCheckV08 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSetEenhedenEnMeenemers; +local boolean _DummyCheckV09 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponBlumotionSynchronisatieStang; +local boolean _DummyCheckV10 = Data.Kenmerken.NietMeeleveren.NietMeeleveren_TiponSynchronisatieSet; + +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.dwarsverdelingkleur@default;ui.kenmerken.frontbevestiging@default;ui.kenmerken.fronteindkapkleur@default;ui.kenmerken.geleidertechnologie@default;ui.kenmerken.geleidertype@default;ui.kenmerken.heeftafwijkenderughoogte@default;ui.kenmerken.heeftdiepteverstelling@default;ui.kenmerken.heeftopvullijstlinks@default;ui.kenmerken.heeftopvullijstrechts@default;ui.kenmerken.heeftzijstabilisering@default;ui.kenmerken.isbinnenbreedte@default;ui.kenmerken.isbinnenlade@default;ui.kenmerken.kantenbandkleur@default;ui.kenmerken.koppelingtype@default;ui.kenmerken.ladebinnenkleur@default;ui.kenmerken.ladediepte@default;ui.kenmerken.ladekleur@default;ui.kenmerken.ladehoogte@default;ui.kenmerken.opvullijstdikte@default;ui.kenmerken.opvullijstkleur@default;ui.kenmerken.productiewijze@default;ui.kenmerken.rughoogte@default;ui.kenmerken.specialtype@default;ui.kenmerken.toepassing@default;ui.kenmerken.verpakkingtype@default;ui.kenmerken.zijkantlogo@default;ui.kenmerken.internebreedte@default;ui.lijn.aantal@default;ui.lijn.referentie@default;ui.kenmerken.uitsparingdata.uitsparingaantal@default; true - 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 + 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; true - 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.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; @@ -5389,28 +5404,28 @@ true - UI.Kenmerken.CorpusBreedte@label = switch (UI.Kenmerken.IsBinnenbreedte) - case true: TRL.CorpusBinnenbreedte@label - else TRL.CorpusBuitenbreedte@label + UI.Kenmerken.CorpusBreedte@label = switch (UI.Kenmerken.IsBinnenbreedte) + case true: TRL.CorpusBinnenbreedte@label + else TRL.CorpusBuitenbreedte@label end switch; Label CorpusBreedte ; true - $UitsparingPane@label = switch (UI.Kenmerken.Toepassing) - case "SY": UI.Kenmerken.Toepassing@option("SY")@label - else "" + $UitsparingPane@label = switch (UI.Kenmerken.Toepassing) + case "SY": UI.Kenmerken.Toepassing@option("SY")@label + else "" end switch; Label UitsparingDataPane ; (DATA.Kenmerken.Toepassing == "SY") - if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Enkel") then - UI.Kenmerken.UitsparingData.Z1@label = TRL.Z@label; -else - UI.Kenmerken.UitsparingData.Z1@label = TRL.Z1@label; + 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 ; @@ -5419,56 +5434,56 @@ true - local double _UitsparingDiepte = UI.Kenmerken.UitsparingData.Z1.Diepte; -local double _UitsparingBreedte = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; - -if (_UitsparingDiepte in {250 ; 270 ; 300} ) then - UI.Kenmerken.UitsparingData.UitsparingDiepte@default = "D" + CStr(_UitsparingDiepte); -else - _UitsparingDiepte = 0; -end if; - -if (_UitsparingBreedte in {124 ; 274} ) then - UI.Kenmerken.UitsparingData.Z1.CodeSmalBreed@default = "B" + CStr(_UitsparingBreedte); -else - _UitsparingBreedte = 0; -end if; - -/* -if (_UitsparingBreedte > 0) and (_UitsparingDiepte > 0) then - UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_Hx_D" + CStr(_UitsparingDiepte) + "_B" + CStr(_UitsparingBreedte); -end if; -*/ + local double _UitsparingDiepte = UI.Kenmerken.UitsparingData.Z1.Diepte; +local double _UitsparingBreedte = UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing; + +if (_UitsparingDiepte in {250 ; 270 ; 300} ) then + UI.Kenmerken.UitsparingData.UitsparingDiepte@default = "D" + CStr(_UitsparingDiepte); +else + _UitsparingDiepte = 0; +end if; + +if (_UitsparingBreedte in {124 ; 274} ) then + UI.Kenmerken.UitsparingData.Z1.CodeSmalBreed@default = "B" + CStr(_UitsparingBreedte); +else + _UitsparingBreedte = 0; +end if; + +/* +if (_UitsparingBreedte > 0) and (_UitsparingDiepte > 0) then + UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_Hx_D" + CStr(_UitsparingDiepte) + "_B" + CStr(_UitsparingBreedte); +end if; +*/ Values UitsparingData Z1 ;ui.kenmerken.uitsparingdata.uitsparingdiepte@default;ui.kenmerken.uitsparingdata.z1.codesmalbreed@default; true - local double _UitsparingDiepte = UI.Kenmerken.UitsparingData.Z2.Diepte; -local double _UitsparingBreedte = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing; - -if (_UitsparingDiepte in {250 ; 270 ; 300} ) then - // UitsparingDiepte is handled by the previous rule (Z1) - // UI.Kenmerken.UitsparingData.Z2.Diepte must be equal to UitsparingData.Z1.Diepte - if (UI.Kenmerken.UitsparingData.Z2.Diepte <> UI.Kenmerken.UitsparingData.Z1.Diepte) then - _UitsparingDiepte = 0; - end if; -else - _UitsparingDiepte = 0; -end if; - -if (_UitsparingBreedte in {124 ; 274} ) then - UI.Kenmerken.UitsparingData.Z2.CodeSmalBreed@default = "B" + CStr(_UitsparingBreedte); -else - _UitsparingBreedte = 0; -end if; - -/* -if (_UitsparingBreedte > 0) and (_UitsparingDiepte > 0) then - UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_Hx_D" + CStr(_UitsparingDiepte) + "_B" + CStr(_UitsparingBreedte); -end if; -*/ + local double _UitsparingDiepte = UI.Kenmerken.UitsparingData.Z2.Diepte; +local double _UitsparingBreedte = UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing; + +if (_UitsparingDiepte in {250 ; 270 ; 300} ) then + // UitsparingDiepte is handled by the previous rule (Z1) + // UI.Kenmerken.UitsparingData.Z2.Diepte must be equal to UitsparingData.Z1.Diepte + if (UI.Kenmerken.UitsparingData.Z2.Diepte <> UI.Kenmerken.UitsparingData.Z1.Diepte) then + _UitsparingDiepte = 0; + end if; +else + _UitsparingDiepte = 0; +end if; + +if (_UitsparingBreedte in {124 ; 274} ) then + UI.Kenmerken.UitsparingData.Z2.CodeSmalBreed@default = "B" + CStr(_UitsparingBreedte); +else + _UitsparingBreedte = 0; +end if; + +/* +if (_UitsparingBreedte > 0) and (_UitsparingDiepte > 0) then + UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_Hx_D" + CStr(_UitsparingDiepte) + "_B" + CStr(_UitsparingBreedte); +end if; +*/ Values UitsparingData Z2 ;ui.kenmerken.uitsparingdata.z2.codesmalbreed@default; @@ -5481,135 +5496,135 @@ true - local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SY"}); -local boolean _HeeftDubbeleUitsparing = (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); - -UI.Kenmerken.UitsparingData@visible = _HeeftUitsparingData; - -UI.Kenmerken.UitsparingData.UitsparingAantal@mandatory = _HeeftUitsparingData; -UI.Kenmerken.UitsparingData.X.BreedteRugdeel@mandatory = _HeeftUitsparingData; -UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@mandatory = _HeeftUitsparingData; -UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@mandatory = _HeeftUitsparingData; - -UI.Kenmerken.UitsparingData.M.BreedteRugdeel@mandatory = _HeeftDubbeleUitsparing; -UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@mandatory = _HeeftDubbeleUitsparing; - -UI.Kenmerken.UitsparingData.M@visible = _HeeftDubbeleUitsparing; + local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SY"}); +local boolean _HeeftDubbeleUitsparing = (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel"); + +UI.Kenmerken.UitsparingData@visible = _HeeftUitsparingData; + +UI.Kenmerken.UitsparingData.UitsparingAantal@mandatory = _HeeftUitsparingData; +UI.Kenmerken.UitsparingData.X.BreedteRugdeel@mandatory = _HeeftUitsparingData; +UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@mandatory = _HeeftUitsparingData; +UI.Kenmerken.UitsparingData.Y.BreedteRugdeel@mandatory = _HeeftUitsparingData; + +UI.Kenmerken.UitsparingData.M.BreedteRugdeel@mandatory = _HeeftDubbeleUitsparing; +UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@mandatory = _HeeftDubbeleUitsparing; + +UI.Kenmerken.UitsparingData.M@visible = _HeeftDubbeleUitsparing; UI.Kenmerken.UitsparingData.Z2@visible = _HeeftDubbeleUitsparing; Visible en mandatory - UitsparingData Aantal en Breedte ;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.CodeSmalBreed@visible = _IsSifonlade; -UI.Kenmerken.UitsparingData.Z1.CodeSmalBreed@mandatory = _IsSifonlade; -UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@visible = false; // i.p.v. _IsSifonlade; -UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@mandatory = false; // i.p.v. _IsSifonlade; - -UI.Kenmerken.UitsparingData.M.CodeRugdeel@visible = false; -UI.Kenmerken.UitsparingData.M.CodeRugdeel@mandatory = false; - -UI.Kenmerken.UitsparingData.Z2.CodeSmalBreed@visible = (_HeeftDubbeleUitsparing and _IsSifonlade); -UI.Kenmerken.UitsparingData.Z2.CodeSmalBreed@mandatory = (_HeeftDubbeleUitsparing and _IsSifonlade); -UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@visible = false; // i.p.v. (_HeeftDubbeleUitsparing and _IsSifonlade); -UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@mandatory = false; // i.p.v. (_HeeftDubbeleUitsparing and _IsSifonlade); - -UI.Kenmerken.UitsparingData.Y.CodeRugdeel@visible = false; -UI.Kenmerken.UitsparingData.Y.CodeRugdeel@mandatory = false; - -// Placeholders om de uitlijning te behouden (niet in TAX-model, wel bij TBX) :-P -/* -UI.Kenmerken.UitsparingData.X.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.X.CodeRugdeel@visible); -UI.Kenmerken.UitsparingData.Z1.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@visible); -UI.Kenmerken.UitsparingData.M.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.M.CodeRugdeel@visible); -UI.Kenmerken.UitsparingData.Z2.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@visible); -UI.Kenmerken.UitsparingData.Y.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Y.CodeRugdeel@visible); -*/ -UI.Kenmerken.UitsparingData.X.CodePlaceholder@visible = false; -UI.Kenmerken.UitsparingData.Z1.CodePlaceholder@visible = false; -UI.Kenmerken.UitsparingData.M.CodePlaceholder@visible = false; -UI.Kenmerken.UitsparingData.Z2.CodePlaceholder@visible = false; + 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.CodeSmalBreed@visible = _IsSifonlade; +UI.Kenmerken.UitsparingData.Z1.CodeSmalBreed@mandatory = _IsSifonlade; +UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@visible = false; // i.p.v. _IsSifonlade; +UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@mandatory = false; // i.p.v. _IsSifonlade; + +UI.Kenmerken.UitsparingData.M.CodeRugdeel@visible = false; +UI.Kenmerken.UitsparingData.M.CodeRugdeel@mandatory = false; + +UI.Kenmerken.UitsparingData.Z2.CodeSmalBreed@visible = (_HeeftDubbeleUitsparing and _IsSifonlade); +UI.Kenmerken.UitsparingData.Z2.CodeSmalBreed@mandatory = (_HeeftDubbeleUitsparing and _IsSifonlade); +UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@visible = false; // i.p.v. (_HeeftDubbeleUitsparing and _IsSifonlade); +UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@mandatory = false; // i.p.v. (_HeeftDubbeleUitsparing and _IsSifonlade); + +UI.Kenmerken.UitsparingData.Y.CodeRugdeel@visible = false; +UI.Kenmerken.UitsparingData.Y.CodeRugdeel@mandatory = false; + +// Placeholders om de uitlijning te behouden (niet in TAX-model, wel bij TBX) :-P +/* +UI.Kenmerken.UitsparingData.X.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.X.CodeRugdeel@visible); +UI.Kenmerken.UitsparingData.Z1.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@visible); +UI.Kenmerken.UitsparingData.M.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.M.CodeRugdeel@visible); +UI.Kenmerken.UitsparingData.Z2.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@visible); +UI.Kenmerken.UitsparingData.Y.CodePlaceholder@visible = not(UI.Kenmerken.UitsparingData.Y.CodeRugdeel@visible); +*/ +UI.Kenmerken.UitsparingData.X.CodePlaceholder@visible = false; +UI.Kenmerken.UitsparingData.Z1.CodePlaceholder@visible = false; +UI.Kenmerken.UitsparingData.M.CodePlaceholder@visible = false; +UI.Kenmerken.UitsparingData.Z2.CodePlaceholder@visible = false; UI.Kenmerken.UitsparingData.Y.CodePlaceholder@visible = false; Visible en mandatory - UitsparingData Code ;ui.kenmerken.uitsparingdata.x.coderugdeel@visible;ui.kenmerken.uitsparingdata.x.coderugdeel@mandatory;ui.kenmerken.uitsparingdata.z1.codesmalbreed@visible;ui.kenmerken.uitsparingdata.z1.codesmalbreed@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.codesmalbreed@visible;ui.kenmerken.uitsparingdata.z2.codesmalbreed@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; (Config.InputMode <> "CreateConfig") - local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); - -UI.Kenmerken.UitsparingData.UitsparingDiepte@visible = _IsSifonlade; -UI.Kenmerken.UitsparingData.UitsparingDiepte@mandatory = _IsSifonlade; + local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); + +UI.Kenmerken.UitsparingData.UitsparingDiepte@visible = _IsSifonlade; +UI.Kenmerken.UitsparingData.UitsparingDiepte@mandatory = _IsSifonlade; Visible en mandatory - UitsparingData Speciaal Diepte ;ui.kenmerken.uitsparingdata.uitsparingdiepte@visible;ui.kenmerken.uitsparingdata.uitsparingdiepte@mandatory; (Config.InputMode <> "CreateConfig") - local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SY"}); - -UI.Kenmerken.HeeftMat@visible = not(_HeeftUitsparingData); - -// Wanneer een bepaalde mat geselecteerd is, dan geeft de configurator -// sowieso combinatie-conflict met Toepassing Sifonlade. -// Dit zal voorlopig niet opgelost worden, wegens tijdsgebrek. + local boolean _HeeftUitsparingData = (DATA.Kenmerken.Toepassing in {"SY"}); + +UI.Kenmerken.HeeftMat@visible = not(_HeeftUitsparingData); + +// Wanneer een bepaalde mat geselecteerd is, dan geeft de configurator +// sowieso combinatie-conflict met Toepassing Sifonlade. +// Dit zal voorlopig niet opgelost worden, wegens tijdsgebrek. Visible en mandatory - Matten ;ui.kenmerken.heeftmat@visible; (DATA.Kenmerken.Toepassing == "SY") - local string _RugdeelOpMaat = "SY_Hx_BM"; - -if (UI.Kenmerken.UitsparingData.UitsparingAantal == "") then - UI.Kenmerken.UitsparingData.UitsparingAantal@default = "Enkel"; -end if; - -if (UI.Kenmerken.UitsparingData.X.CodeRugdeel <> _RugdeelOpMaat) then - UI.Kenmerken.UitsparingData.X.CodeRugdeel@default = _RugdeelOpMaat; -end if; - -if (UI.Kenmerken.UitsparingData.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; + local string _RugdeelOpMaat = "SY_Hx_BM"; + +if (UI.Kenmerken.UitsparingData.UitsparingAantal == "") then + UI.Kenmerken.UitsparingData.UitsparingAantal@default = "Enkel"; +end if; + +if (UI.Kenmerken.UitsparingData.X.CodeRugdeel <> _RugdeelOpMaat) then + UI.Kenmerken.UitsparingData.X.CodeRugdeel@default = _RugdeelOpMaat; +end if; + +if (UI.Kenmerken.UitsparingData.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; - (DATA.Kenmerken.Toepassing == "SY") and BEHAVIOR.IsInteractive and (BEHAVIOR.ContextName <> "AxEditEdi") + (DATA.Kenmerken.Toepassing == "SY") and BEHAVIOR.IsInteractive and (BEHAVIOR.ContextName <> "AxEditEdi") - -//local string _UitsparingSmal = "SY_Recht_Hx_D250_B124"; -local string _UitsparingDiepte = "D250"; -local string _UitsparingBreedte = "B124"; - -if (Config.InputMode <> "Edit") and (UI.Kenmerken.UitsparingData.UitsparingDiepte@default == "") then - UI.Kenmerken.UitsparingData.UitsparingDiepte@default = _UitsparingDiepte; -end if; - -/* -if (UI.Kenmerken.UitsparingData.Z1.CodeUitsparing == "") then - UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = _UitsparingSmal; -end if; -if (UI.Kenmerken.UitsparingData.Z2.CodeUitsparing == "") then - UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = _UitsparingSmal; -end if; -*/ -if (UI.Kenmerken.UitsparingData.Z1.CodeSmalBreed == "") then - UI.Kenmerken.UitsparingData.Z1.CodeSmalBreed@default = _UitsparingBreedte; -end if; -if (UI.Kenmerken.UitsparingData.Z2.CodeSmalBreed == "") then - UI.Kenmerken.UitsparingData.Z2.CodeSmalBreed@default = _UitsparingBreedte; -end if; + +//local string _UitsparingSmal = "SY_Recht_Hx_D250_B124"; +local string _UitsparingDiepte = "D250"; +local string _UitsparingBreedte = "B124"; + +if (Config.InputMode <> "Edit") and (UI.Kenmerken.UitsparingData.UitsparingDiepte@default == "") then + UI.Kenmerken.UitsparingData.UitsparingDiepte@default = _UitsparingDiepte; +end if; + +/* +if (UI.Kenmerken.UitsparingData.Z1.CodeUitsparing == "") then + UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = _UitsparingSmal; +end if; +if (UI.Kenmerken.UitsparingData.Z2.CodeUitsparing == "") then + UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = _UitsparingSmal; +end if; +*/ +if (UI.Kenmerken.UitsparingData.Z1.CodeSmalBreed == "") then + UI.Kenmerken.UitsparingData.Z1.CodeSmalBreed@default = _UitsparingBreedte; +end if; +if (UI.Kenmerken.UitsparingData.Z2.CodeSmalBreed == "") then + UI.Kenmerken.UitsparingData.Z2.CodeSmalBreed@default = _UitsparingBreedte; +end if; Defaults voor Sifonlade CodeSmalBreed voor Z1 en Z2 (niet bij CreateConfig) ;ui.kenmerken.uitsparingdata.uitsparingdiepte@default;ui.kenmerken.uitsparingdata.z1.codesmalbreed@default;ui.kenmerken.uitsparingdata.z2.codesmalbreed@default; @@ -5634,443 +5649,443 @@ not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z1@visible) and not(CONFIG.InputMode == "CreateConfig") - UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@default = 0; + UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing@default = 0; UitsparingData breedte Z1 defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@default; not(UI.Kenmerken.UitsparingData@visible and UI.Kenmerken.UitsparingData.Z2@visible) and not(CONFIG.InputMode == "CreateConfig") - UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@default = 0; + UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing@default = 0; UitsparingData breedte Z2 defaulten indien niet zichtbaar ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@default; (DATA.Kenmerken.Toepassing in {"SY"}) - local string _CodeX = UI.Kenmerken.UitsparingData.X.CodeRugdeel; -local string _RugHoogte = DATA.Kenmerken.RugHoogte; -local boolean _IsVerlaagdeRug = (_RugHoogte <> DATA.Kenmerken.LadeHoogte); - -local double _MinimumBreedte = 0; -local double _MaximumBreedte = 0; - -switch _CodeX - case "SY_Hx_BM": // enige mogelijkheid bij Sifonlade - UI.Kenmerken.UitsparingData.X.Hoogte = _RugHoogte; - UI.Kenmerken.UitsparingData.X.Materiaal = "Hout"; - - _MinimumBreedte = 204; - _MaximumBreedte = 999; - if _IsVerlaagdeRug or (BEHAVIOR.AccessMode == "Intern") then - _MinimumBreedte = 109; - end if; -end switch; - -RANGE.UitsparingDataBreedteX.Minimum = _MinimumBreedte; + local string _CodeX = UI.Kenmerken.UitsparingData.X.CodeRugdeel; +local string _RugHoogte = DATA.Kenmerken.RugHoogte; +local boolean _IsVerlaagdeRug = (_RugHoogte <> DATA.Kenmerken.LadeHoogte); + +local double _MinimumBreedte = 0; +local double _MaximumBreedte = 0; + +switch _CodeX + case "SY_Hx_BM": // enige mogelijkheid bij Sifonlade + UI.Kenmerken.UitsparingData.X.Hoogte = _RugHoogte; + UI.Kenmerken.UitsparingData.X.Materiaal = "Hout"; + + _MinimumBreedte = 204; + _MaximumBreedte = 999; + if _IsVerlaagdeRug or (BEHAVIOR.AccessMode == "Intern") then + _MinimumBreedte = 109; + end if; +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 string _CodeSmalBreedZ1 = UI.Kenmerken.UitsparingData.Z1.CodeSmalBreed; -local string _CodeDiepteZ1 = UI.Kenmerken.UitsparingData.UitsparingDiepte; -local string _RugHoogte = DATA.Kenmerken.RugHoogte; - -local double _UitsparingDiepte = 0; -local double _UitsparingBreedte = 0; -local double _MinimumBreedte = 0; -local double _MaximumBreedte = 0; - -switch _CodeDiepteZ1 - case "D250": - _UitsparingDiepte = 250; - case "D270": - _UitsparingDiepte = 270; - case "D300": - _UitsparingDiepte = 300; -end switch; - -switch _CodeSmalBreedZ1 - case "B124": - _UitsparingBreedte = 124; - case "B274": - _UitsparingBreedte = 274; -end switch; - -UI.Kenmerken.UitsparingData.Z1.Hoogte = _RugHoogte; -UI.Kenmerken.UitsparingData.Z1.Vorm = "Recht"; -DATA.Kenmerken.UitsparingData.Z1.Vorm = "Recht"; -UI.Kenmerken.UitsparingData.Z1.Materiaal = "Hout"; // DATA.Kenmerken.RugwandMateriaal@option("Staal")@label; - -if (_UitsparingDiepte > 0) and (_UitsparingBreedte > 0) then - UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = _UitsparingBreedte; - UI.Kenmerken.UitsparingData.Z1.Diepte = _UitsparingDiepte; - _MinimumBreedte = _UitsparingBreedte; - _MaximumBreedte = _UitsparingBreedte; - // CodeUitsparing Z1 alsnog in sync houden - UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_Hx_D" + CStr(_UitsparingDiepte) + "_B" + CStr(_UitsparingBreedte); -end if; - -RANGE.UitsparingDataBreedteZ1.Minimum = _MinimumBreedte; + //local string _CodeZ1 = UI.Kenmerken.UitsparingData.Z1.CodeUitsparing; +local string _CodeSmalBreedZ1 = UI.Kenmerken.UitsparingData.Z1.CodeSmalBreed; +local string _CodeDiepteZ1 = UI.Kenmerken.UitsparingData.UitsparingDiepte; +local string _RugHoogte = DATA.Kenmerken.RugHoogte; + +local double _UitsparingDiepte = 0; +local double _UitsparingBreedte = 0; +local double _MinimumBreedte = 0; +local double _MaximumBreedte = 0; + +switch _CodeDiepteZ1 + case "D250": + _UitsparingDiepte = 250; + case "D270": + _UitsparingDiepte = 270; + case "D300": + _UitsparingDiepte = 300; +end switch; + +switch _CodeSmalBreedZ1 + case "B124": + _UitsparingBreedte = 124; + case "B274": + _UitsparingBreedte = 274; +end switch; + +UI.Kenmerken.UitsparingData.Z1.Hoogte = _RugHoogte; +UI.Kenmerken.UitsparingData.Z1.Vorm = "Recht"; +DATA.Kenmerken.UitsparingData.Z1.Vorm = "Recht"; +UI.Kenmerken.UitsparingData.Z1.Materiaal = "Hout"; // DATA.Kenmerken.RugwandMateriaal@option("Staal")@label; + +if (_UitsparingDiepte > 0) and (_UitsparingBreedte > 0) then + UI.Kenmerken.UitsparingData.Z1.BreedteUitsparing = _UitsparingBreedte; + UI.Kenmerken.UitsparingData.Z1.Diepte = _UitsparingDiepte; + _MinimumBreedte = _UitsparingBreedte; + _MaximumBreedte = _UitsparingBreedte; + // CodeUitsparing Z1 alsnog in sync houden + UI.Kenmerken.UitsparingData.Z1.CodeUitsparing@default = "SY_Recht_Hx_D" + CStr(_UitsparingDiepte) + "_B" + CStr(_UitsparingBreedte); +end if; + +RANGE.UitsparingDataBreedteZ1.Minimum = _MinimumBreedte; RANGE.UitsparingDataBreedteZ1.Maximum = _MaximumBreedte; UitsparingData Z1 invullen ;ui.kenmerken.uitsparingdata.z1.hoogte@value;ui.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.z1.vorm@value;ui.kenmerken.uitsparingdata.z1.materiaal@value;ui.kenmerken.uitsparingdata.z1.breedteuitsparing@value;ui.kenmerken.uitsparingdata.z1.diepte@value;ui.kenmerken.uitsparingdata.z1.codeuitsparing@default;range.uitsparingdatabreedtez1.minimum@value;range.uitsparingdatabreedtez1.maximum@value; (DATA.Kenmerken.Toepassing in {"SY"}) - local string _CodeM = UI.Kenmerken.UitsparingData.M.CodeRugdeel; -local string _RugHoogte = DATA.Kenmerken.RugHoogte; - -local double _MinimumBreedte = 0; -local double _MaximumBreedte = 0; - -switch _CodeM - case "SY_Hx_BM": // enige mogelijkheid bij Sifonlade - UI.Kenmerken.UitsparingData.M.Hoogte = _RugHoogte; - UI.Kenmerken.UitsparingData.M.Materiaal = "Hout"; - - _MinimumBreedte = 196; - _MaximumBreedte = 999; -end switch; - -RANGE.UitsparingDataBreedteM.Minimum = _MinimumBreedte; + local string _CodeM = UI.Kenmerken.UitsparingData.M.CodeRugdeel; +local string _RugHoogte = DATA.Kenmerken.RugHoogte; + +local double _MinimumBreedte = 0; +local double _MaximumBreedte = 0; + +switch _CodeM + case "SY_Hx_BM": // enige mogelijkheid bij Sifonlade + UI.Kenmerken.UitsparingData.M.Hoogte = _RugHoogte; + UI.Kenmerken.UitsparingData.M.Materiaal = "Hout"; + + _MinimumBreedte = 196; + _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"}) - -if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then - //local string _CodeZ2 = UI.Kenmerken.UitsparingData.Z2.CodeUitsparing; - local string _CodeSmalBreedZ2 = UI.Kenmerken.UitsparingData.Z2.CodeSmalBreed; - local string _CodeDiepteZ2 = UI.Kenmerken.UitsparingData.UitsparingDiepte; - local string _RugHoogte = DATA.Kenmerken.RugHoogte; - - local double _UitsparingDiepte = 0; - local double _UitsparingBreedte = 0; - local double _MinimumBreedte = 0; - local double _MaximumBreedte = 0; - - switch _CodeDiepteZ2 - case "D250": - _UitsparingDiepte = 250; - case "D270": - _UitsparingDiepte = 270; - case "D300": - _UitsparingDiepte = 300; - end switch; - - switch _CodeSmalBreedZ2 - case "B124": - _UitsparingBreedte = 124; - case "B274": - _UitsparingBreedte = 274; - end switch; - - UI.Kenmerken.UitsparingData.Z2.Hoogte = _RugHoogte; - UI.Kenmerken.UitsparingData.Z2.Vorm = "Recht"; - DATA.Kenmerken.UitsparingData.Z2.Vorm = "Recht"; - UI.Kenmerken.UitsparingData.Z2.Materiaal = "Hout"; // DATA.Kenmerken.RugwandMateriaal@option("Staal")@label; - - if (_UitsparingDiepte > 0) and (_UitsparingBreedte > 0) then - UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = _UitsparingBreedte; - UI.Kenmerken.UitsparingData.Z2.Diepte = _UitsparingDiepte; - _MinimumBreedte = _UitsparingBreedte; - _MaximumBreedte = _UitsparingBreedte; - // CodeUitsparing Z2 alsnog in sync houden - UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_Hx_D" + CStr(_UitsparingDiepte) + "_B" + CStr(_UitsparingBreedte); - end if; - - RANGE.UitsparingDataBreedteZ2.Minimum = _MinimumBreedte; - RANGE.UitsparingDataBreedteZ2.Maximum = _MaximumBreedte; -else - DATA.Kenmerken.UitsparingData.Z2.Breedte = 0; - DATA.Kenmerken.UitsparingData.Z2.Diepte = 0; - DATA.Kenmerken.UitsparingData.Z2.Hoogte = ""; - DATA.Kenmerken.UitsparingData.Z2.Vorm = ""; - DATA.Kenmerken.UitsparingData.Z2.Materiaal = ""; -end if; + +if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then + //local string _CodeZ2 = UI.Kenmerken.UitsparingData.Z2.CodeUitsparing; + local string _CodeSmalBreedZ2 = UI.Kenmerken.UitsparingData.Z2.CodeSmalBreed; + local string _CodeDiepteZ2 = UI.Kenmerken.UitsparingData.UitsparingDiepte; + local string _RugHoogte = DATA.Kenmerken.RugHoogte; + + local double _UitsparingDiepte = 0; + local double _UitsparingBreedte = 0; + local double _MinimumBreedte = 0; + local double _MaximumBreedte = 0; + + switch _CodeDiepteZ2 + case "D250": + _UitsparingDiepte = 250; + case "D270": + _UitsparingDiepte = 270; + case "D300": + _UitsparingDiepte = 300; + end switch; + + switch _CodeSmalBreedZ2 + case "B124": + _UitsparingBreedte = 124; + case "B274": + _UitsparingBreedte = 274; + end switch; + + UI.Kenmerken.UitsparingData.Z2.Hoogte = _RugHoogte; + UI.Kenmerken.UitsparingData.Z2.Vorm = "Recht"; + DATA.Kenmerken.UitsparingData.Z2.Vorm = "Recht"; + UI.Kenmerken.UitsparingData.Z2.Materiaal = "Hout"; // DATA.Kenmerken.RugwandMateriaal@option("Staal")@label; + + if (_UitsparingDiepte > 0) and (_UitsparingBreedte > 0) then + UI.Kenmerken.UitsparingData.Z2.BreedteUitsparing = _UitsparingBreedte; + UI.Kenmerken.UitsparingData.Z2.Diepte = _UitsparingDiepte; + _MinimumBreedte = _UitsparingBreedte; + _MaximumBreedte = _UitsparingBreedte; + // CodeUitsparing Z2 alsnog in sync houden + UI.Kenmerken.UitsparingData.Z2.CodeUitsparing@default = "SY_Recht_Hx_D" + CStr(_UitsparingDiepte) + "_B" + CStr(_UitsparingBreedte); + end if; + + RANGE.UitsparingDataBreedteZ2.Minimum = _MinimumBreedte; + RANGE.UitsparingDataBreedteZ2.Maximum = _MaximumBreedte; +else + DATA.Kenmerken.UitsparingData.Z2.Breedte = 0; + DATA.Kenmerken.UitsparingData.Z2.Diepte = 0; + DATA.Kenmerken.UitsparingData.Z2.Hoogte = ""; + DATA.Kenmerken.UitsparingData.Z2.Vorm = ""; + DATA.Kenmerken.UitsparingData.Z2.Materiaal = ""; +end if; UitsparingData Z2 invullen ;ui.kenmerken.uitsparingdata.z2.hoogte@value;ui.kenmerken.uitsparingdata.z2.vorm@value;data.kenmerken.uitsparingdata.z2.vorm@value;ui.kenmerken.uitsparingdata.z2.materiaal@value;range.uitsparingdatabreedtez2.minimum@value;range.uitsparingdatabreedtez2.maximum@value; (DATA.Kenmerken.Toepassing in {"SY"}) - local string _CodeY = UI.Kenmerken.UitsparingData.Y.CodeRugdeel; -local string _RugHoogte = DATA.Kenmerken.RugHoogte; -local boolean _IsVerlaagdeRug = (_RugHoogte <> DATA.Kenmerken.LadeHoogte); - -local double _MinimumBreedte = 0; -local double _MaximumBreedte = 0; - -switch _CodeY - case "SY_Hx_BM": // enige mogelijkheid bij Sifonlade - UI.Kenmerken.UitsparingData.Y.Hoogte = _RugHoogte; - UI.Kenmerken.UitsparingData.Y.Materiaal = "Hout"; - - _MinimumBreedte = 204; - _MaximumBreedte = 999; - if _IsVerlaagdeRug or (BEHAVIOR.AccessMode == "Intern") then - _MinimumBreedte = 109; - end if; -end switch; - -RANGE.UitsparingDataBreedteY.Minimum = _MinimumBreedte; + local string _CodeY = UI.Kenmerken.UitsparingData.Y.CodeRugdeel; +local string _RugHoogte = DATA.Kenmerken.RugHoogte; +local boolean _IsVerlaagdeRug = (_RugHoogte <> DATA.Kenmerken.LadeHoogte); + +local double _MinimumBreedte = 0; +local double _MaximumBreedte = 0; + +switch _CodeY + case "SY_Hx_BM": // enige mogelijkheid bij Sifonlade + UI.Kenmerken.UitsparingData.Y.Hoogte = _RugHoogte; + UI.Kenmerken.UitsparingData.Y.Materiaal = "Hout"; + + _MinimumBreedte = 204; + _MaximumBreedte = 999; + if _IsVerlaagdeRug or (BEHAVIOR.AccessMode == "Intern") then + _MinimumBreedte = 109; + end if; +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; + 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); - 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; + 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); + 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"}); + (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; - + 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 + 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); + 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 (inactive) ;ui.kenmerken.uitsparingdata.uitsparingdata_verwachtebreedte@visible; (RANGE.UitsparingDataBreedteX.Maximum > 0) - local boolean _IsVasteBreedte = (RANGE.UitsparingDataBreedteX.Maximum == RANGE.UitsparingDataBreedteX.Minimum); - + 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); - + 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); - + 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); - + 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); - + 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; @@ -6079,497 +6094,497 @@ 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; + +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; + +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; + +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); + +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.Afdekkapbovenkleur"; -_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.Frontbevestiging"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Fronteindkapkleur"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Geleidertechnologie"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Geleidertype"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftafwijkenderughoogte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftdiepteverstelling"; -_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.Kantenbandkleur"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Koppelingtype"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladebinnenkleur"; -_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.Lossecomponent"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matmateriaal"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matkleur"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkapboven"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_bodemondersteuning"; -_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_koppeling"; -_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_tiponsynchronisatieset"; -_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.Toepassing"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Uitsparingaantal"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.M.Breedte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Hoogte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Materiaal"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.X.Breedte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Hoogte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Materiaal"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Y.Breedte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Hoogte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Materiaal"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Z1.Breedte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Diepte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Hoogte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Materiaal"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Vorm"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Z2.Breedte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Diepte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Hoogte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Materiaal"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Vorm"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Verpakkingtype"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijkantlogoid"; - -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"; -*/ + +// 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.Afdekkapbovenkleur"; +_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.Frontbevestiging"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Fronteindkapkleur"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Geleidertechnologie"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Geleidertype"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftafwijkenderughoogte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftdiepteverstelling"; +_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.Kantenbandkleur"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Koppelingtype"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladebinnenkleur"; +_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.Lossecomponent"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matmateriaal"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matkleur"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkapboven"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_bodemondersteuning"; +_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_koppeling"; +_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_tiponsynchronisatieset"; +_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.Toepassing"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Uitsparingaantal"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.M.Breedte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Hoogte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Materiaal"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.X.Breedte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Hoogte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Materiaal"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Y.Breedte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Hoogte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Materiaal"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Z1.Breedte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Diepte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Hoogte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Materiaal"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Vorm"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Z2.Breedte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Diepte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Hoogte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Materiaal"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Vorm"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Verpakkingtype"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijkantlogoid"; + +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_TAX_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; + +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_TAX_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; (CONFIG.Settings.OperationMode == "Extern") or (BEHAVIOR.IsEconAX) - local boolean _IsBinnenlade = DATA.Kenmerken.IsBinnenlade; - -if _IsBinnenlade then - DATA.Kenmerken.FrontBevestiging = "S"; - UI.Kenmerken.FrontBevestiging@default = "S"; + local boolean _IsBinnenlade = DATA.Kenmerken.IsBinnenlade; + +if _IsBinnenlade then + DATA.Kenmerken.FrontBevestiging = "S"; + UI.Kenmerken.FrontBevestiging@default = "S"; end if; FrontBevestiging defaulten ;data.kenmerken.frontbevestiging@value;ui.kenmerken.frontbevestiging@default; true - -local boolean _IsBinnenlade = UI.Kenmerken.IsBinnenlade; - -if _IsBinnenlade and (BEHAVIOR.IsKoppelingTypeMoventoToegelaten == false) then - UI.Kenmerken.KoppelingType@default = "Drevel"; -end if; + +local boolean _IsBinnenlade = UI.Kenmerken.IsBinnenlade; + +if _IsBinnenlade and (BEHAVIOR.IsKoppelingTypeMoventoToegelaten == false) then + UI.Kenmerken.KoppelingType@default = "Drevel"; +end if; KoppelingType defaulten ;ui.kenmerken.koppelingtype@default; true - if (DATA.Kenmerken.Toepassing == "SY" and DATA.Kenmerken.MatMateriaal <> "") then - DATA.Kenmerken.MatMateriaal = ""; - DATA.Kenmerken.MatKleur = ""; + if (DATA.Kenmerken.Toepassing == "SY" and DATA.Kenmerken.MatMateriaal <> "") then + DATA.Kenmerken.MatMateriaal = ""; + DATA.Kenmerken.MatKleur = ""; end if; Sifonlade heeft geen mat (tijdelijk) ;data.kenmerken.matmateriaal@value;data.kenmerken.matkleur@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; + +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; true - UI.Kenmerken.CorpusWanddikte@mandatory = not(UI.Kenmerken.IsBinnenbreedte); + 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; CONFIG.Settings.OperationMode == "Extern" - local boolean _IsBinnenlade = UI.Kenmerken.IsBinnenlade; - -UI.Kenmerken.FrontBevestiging@mandatory = not(_IsBinnenlade); + local boolean _IsBinnenlade = UI.Kenmerken.IsBinnenlade; + +UI.Kenmerken.FrontBevestiging@mandatory = not(_IsBinnenlade); UI.Kenmerken.FrontBevestiging@visible = not(_IsBinnenlade); FrontBevestiging ;ui.kenmerken.frontbevestiging@mandatory;ui.kenmerken.frontbevestiging@visible; true - local boolean _IsVisible = UI.Kenmerken.GeleiderType@visible; - -if not(_IsVisible) then - UI.Kenmerken.GeleiderType = "Movento" -end if; - -// Tandem-opties -UI.Kenmerken.Draagkracht@option("30")@visible = _IsVisible; -UI.Kenmerken.Draagkracht@option("50")@visible = _IsVisible; - -/* -// Movento-opties -UI.Kenmerken.Draagkracht@option("40")@visible = true; -UI.Kenmerken.Draagkracht@option("60")@visible = true; + local boolean _IsVisible = UI.Kenmerken.GeleiderType@visible; + +if not(_IsVisible) then + UI.Kenmerken.GeleiderType = "Movento" +end if; + +// Tandem-opties +UI.Kenmerken.Draagkracht@option("30")@visible = _IsVisible; +UI.Kenmerken.Draagkracht@option("50")@visible = _IsVisible; + +/* +// Movento-opties +UI.Kenmerken.Draagkracht@option("40")@visible = true; +UI.Kenmerken.Draagkracht@option("60")@visible = true; */ GeleiderType en Draagkracht ;ui.kenmerken.geleidertype@value;ui.kenmerken.draagkracht@options; true - local boolean _HeeftMat = UI.Kenmerken.HeeftMat; -UI.Kenmerken.MatMateriaal@mandatory = _HeeftMat; -UI.Kenmerken.MatMateriaal@visible = _HeeftMat; - -local boolean _HeeftMatAntislipFiberKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AF")); -UI.Kenmerken.MatAntislipFiberKleur@mandatory = _HeeftMatAntislipFiberKleur; -UI.Kenmerken.MatAntislipFiberKleur@visible = _HeeftMatAntislipFiberKleur; - -local boolean _HeeftMatAntislipFlockKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AZ")); -UI.Kenmerken.MatAntislipFlockKleur@mandatory = _HeeftMatAntislipFlockKleur; -UI.Kenmerken.MatAntislipFlockKleur@visible = _HeeftMatAntislipFlockKleur; - -local boolean _HeeftMatAntislipKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AS")); -UI.Kenmerken.MatAntislipKleur@mandatory = _HeeftMatAntislipKleur; -UI.Kenmerken.MatAntislipKleur@visible = _HeeftMatAntislipKleur; - -local boolean _HeeftMatVinylFiberglassKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "CF")); -UI.Kenmerken.MatVinylFiberglassKleur@mandatory = _HeeftMatVinylFiberglassKleur; -UI.Kenmerken.MatVinylFiberglassKleur@visible = _HeeftMatVinylFiberglassKleur; + local boolean _HeeftMat = UI.Kenmerken.HeeftMat; +UI.Kenmerken.MatMateriaal@mandatory = _HeeftMat; +UI.Kenmerken.MatMateriaal@visible = _HeeftMat; + +local boolean _HeeftMatAntislipFiberKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AF")); +UI.Kenmerken.MatAntislipFiberKleur@mandatory = _HeeftMatAntislipFiberKleur; +UI.Kenmerken.MatAntislipFiberKleur@visible = _HeeftMatAntislipFiberKleur; + +local boolean _HeeftMatAntislipFlockKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AZ")); +UI.Kenmerken.MatAntislipFlockKleur@mandatory = _HeeftMatAntislipFlockKleur; +UI.Kenmerken.MatAntislipFlockKleur@visible = _HeeftMatAntislipFlockKleur; + +local boolean _HeeftMatAntislipKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "AS")); +UI.Kenmerken.MatAntislipKleur@mandatory = _HeeftMatAntislipKleur; +UI.Kenmerken.MatAntislipKleur@visible = _HeeftMatAntislipKleur; + +local boolean _HeeftMatVinylFiberglassKleur = (UI.Kenmerken.HeeftMat and (UI.Kenmerken.MatMateriaal.Value == "CF")); +UI.Kenmerken.MatVinylFiberglassKleur@mandatory = _HeeftMatVinylFiberglassKleur; +UI.Kenmerken.MatVinylFiberglassKleur@visible = _HeeftMatVinylFiberglassKleur; Mat Properties ;ui.kenmerken.matmateriaal@mandatory;ui.kenmerken.matmateriaal@visible;ui.kenmerken.matantislipfiberkleur@mandatory;ui.kenmerken.matantislipfiberkleur@visible;ui.kenmerken.matantislipflockkleur@mandatory;ui.kenmerken.matantislipflockkleur@visible;ui.kenmerken.matantislipkleur@mandatory;ui.kenmerken.matantislipkleur@visible;ui.kenmerken.matvinylfiberglasskleur@mandatory;ui.kenmerken.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; + 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 - -UI.Kenmerken.RugHoogte@mandatory = UI.Kenmerken.HeeftAfwijkendeRugHoogte; -UI.Kenmerken.RugHoogte@visible = UI.Kenmerken.HeeftAfwijkendeRugHoogte; + +UI.Kenmerken.RugHoogte@mandatory = UI.Kenmerken.HeeftAfwijkendeRugHoogte; +UI.Kenmerken.RugHoogte@visible = UI.Kenmerken.HeeftAfwijkendeRugHoogte; RugHoogte ;ui.kenmerken.rughoogte@mandatory;ui.kenmerken.rughoogte@visible; true - UI.Kenmerken.ZijkantLogo@mandatory = STATE.ZijkantLogosLoaded; + UI.Kenmerken.ZijkantLogo@mandatory = STATE.ZijkantLogosLoaded; UI.Kenmerken.ZijkantLogo@visible = STATE.ZijkantLogosLoaded; ZijkantLogo ;ui.kenmerken.zijkantlogo@mandatory;ui.kenmerken.zijkantlogo@visible; @@ -6578,29 +6593,29 @@ true - UI.Kenmerken.FrontBevestiging@visible = Not(Config.Settings.FrontBevestigingVerbergen); -UI.Kenmerken.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)); + UI.Kenmerken.FrontBevestiging@visible = Not(Config.Settings.FrontBevestigingVerbergen); +UI.Kenmerken.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.frontbevestiging@visible;ui.kenmerken.verpakkingtype@visible; true - local boolean _ToonTussenmaten = UI.Kenmerken.ToonTussenmaten; - -if not (BEHAVIOR.IsInteractive) then - _ToonTussenmaten = true; -end if; - -UI.Kenmerken.LadeDiepte@option("250")@visible = _ToonTussenmaten; -UI.Kenmerken.LadeDiepte@option("320")@visible = _ToonTussenmaten; -UI.Kenmerken.LadeDiepte@option("380")@visible = _ToonTussenmaten; -UI.Kenmerken.LadeDiepte@option("420")@visible = _ToonTussenmaten; -UI.Kenmerken.LadeDiepte@option("480")@visible = _ToonTussenmaten; -UI.Kenmerken.LadeDiepte@option("520")@visible = _ToonTussenmaten; + local boolean _ToonTussenmaten = UI.Kenmerken.ToonTussenmaten; + +if not (BEHAVIOR.IsInteractive) then + _ToonTussenmaten = true; +end if; + +UI.Kenmerken.LadeDiepte@option("250")@visible = _ToonTussenmaten; +UI.Kenmerken.LadeDiepte@option("320")@visible = _ToonTussenmaten; +UI.Kenmerken.LadeDiepte@option("380")@visible = _ToonTussenmaten; +UI.Kenmerken.LadeDiepte@option("420")@visible = _ToonTussenmaten; +UI.Kenmerken.LadeDiepte@option("480")@visible = _ToonTussenmaten; +UI.Kenmerken.LadeDiepte@option("520")@visible = _ToonTussenmaten; UI.Kenmerken.LadeDiepte@option("580")@visible = _ToonTussenmaten; Tussenmaten LadeDiepte ;ui.kenmerken.ladediepte@options; @@ -6609,33 +6624,33 @@ 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; + +local double _Minimum = RANGE.Aantal.Minimum; +local double _Maximum = RANGE.Aantal.Maximum; + +if UI.Lijn.Aantal@mandatory then + UI.Lijn.Aantal@inputvalidation = "min:" + _Minimum + ";multiplication:1;maxdecimals:0;"; +else + UI.Lijn.Aantal@inputvalidation = ""; +end if; Validation Aantal ;ui.lijn.aantal@rangeset; STATE.ValidationNeeded or (UI.Kenmerken.CorpusBreedte <> 0) - local double _Minimum = RANGE.CorpusBreedte.Minimum; -local double _Maximum = RANGE.CorpusBreedte.Maximum; - + local double _Minimum = RANGE.CorpusBreedte.Minimum; +local double _Maximum = RANGE.CorpusBreedte.Maximum; + UI.Kenmerken.CorpusBreedte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:1;maxdecimals:0;"; Validation CorpusBreedte ;ui.kenmerken.corpusbreedte@rangeset; UI.Kenmerken.CorpusWanddikte@visible and (STATE.ValidationNeeded or (UI.Kenmerken.CorpusWanddikte <> 0)) - local double _Minimum = 1; -local double _Maximum = 100; - + local double _Minimum = 1; +local double _Maximum = 100; + UI.Kenmerken.CorpusWanddikte@inputvalidation = "min:" + _Minimum + ";max:" + _Maximum + ";multiplication:1;maxdecimals:0;"; Validation CorpusWanddikte on ;ui.kenmerken.corpuswanddikte@rangeset; @@ -6648,18 +6663,18 @@ false //(UI.Kenmerken.InterneBreedte <> 0) - local double _Minimum = RANGE.InterneBreedte.Minimum; -local double _Maximum = RANGE.InterneBreedte.Maximum; - + 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; - + 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; @@ -6672,9 +6687,9 @@ (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; - + 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; @@ -6687,9 +6702,9 @@ (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; - + 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; @@ -6702,9 +6717,9 @@ (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; - + 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; @@ -6717,9 +6732,9 @@ (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; - + 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; @@ -6732,18 +6747,18 @@ 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; + 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; @@ -6752,26 +6767,26 @@ not(STATE.Initializing) and (BEHAVIOR.OperationMode == "AxCreate") - local string _TriggerDummyM = UI.Kenmerken.UitsparingData.M.Hoogte; - -STATE.ProcessedAndExit = true; + local string _TriggerDummyM = UI.Kenmerken.UitsparingData.M.Hoogte; + +STATE.ProcessedAndExit = true; ProcessedAndExit voor AxCreate ;state.processedandexit@value; (STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit or not(BEHAVIOR.IsInteractive) or (BEHAVIOR.ContextName == "AxEditEdi")) - -local double _DummyTrigger = UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte; - -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); + +local double _DummyTrigger = UI.Kenmerken.UitsparingData.UitsparingData_TotaleBreedte; + +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; @@ -6786,640 +6801,640 @@ STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit or STATE.KlantVoorkeurenSaved - -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 - DATA.Kenmerken.FrontBevestiging = ""; - UI.Kenmerken.FrontBevestiging = ""; -end if; - -if not(UI.Kenmerken.OpvullijstKleur@visible) then - DATA.Kenmerken.OpvullijstKleur = ""; - UI.Kenmerken.OpvullijstKleur = ""; -end if; - -if (not(UI.Kenmerken.HeeftOpvullijstLinks) and not(UI.Kenmerken.HeeftOpvullijstRechts)) then - DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = false; -end if; - -if not(UI.Kenmerken.DwarsverdelingKleur@visible) then - DATA.Kenmerken.DwarsverdelingKleur = ""; - UI.Kenmerken.DwarsverdelingKleur = ""; -end if; - -if ((DATA.Kenmerken.Dwarsverdelingaantal == "0") or (DATA.Kenmerken.Dwarsverdelingaantal == "")) then - DATA.Kenmerken.DwarsverdelingType = ""; - UI.Kenmerken.DwarsverdelingType = ""; -end if; - -if not(UI.Kenmerken.UitsparingData@visible) 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; - -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(UI.Kenmerken.CorpusWanddikte@visible) then + DATA.Kenmerken.CorpusWanddikte = 0; + UI.Kenmerken.CorpusWanddikte = 0; +end if; + +if (UI.Kenmerken.IsBinnenlade) and (BEHAVIOR.IsEconWeb) then + DATA.Kenmerken.FrontBevestiging = ""; + UI.Kenmerken.FrontBevestiging = ""; +end if; + +if not(UI.Kenmerken.OpvullijstKleur@visible) then + DATA.Kenmerken.OpvullijstKleur = ""; + UI.Kenmerken.OpvullijstKleur = ""; +end if; + +if (not(UI.Kenmerken.HeeftOpvullijstLinks) and not(UI.Kenmerken.HeeftOpvullijstRechts)) then + DATA.Kenmerken.NietMeeleveren.NietMeeleveren_Opvullijst = false; +end if; + +if not(UI.Kenmerken.DwarsverdelingKleur@visible) then + DATA.Kenmerken.DwarsverdelingKleur = ""; + UI.Kenmerken.DwarsverdelingKleur = ""; +end if; + +if ((DATA.Kenmerken.Dwarsverdelingaantal == "0") or (DATA.Kenmerken.Dwarsverdelingaantal == "")) then + DATA.Kenmerken.DwarsverdelingType = ""; + UI.Kenmerken.DwarsverdelingType = ""; +end if; + +if not(UI.Kenmerken.UitsparingData@visible) 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; + +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; Verborgen properties wissen ;data.kenmerken.corpuswanddikte@value;ui.kenmerken.corpuswanddikte@value;data.kenmerken.frontbevestiging@value;ui.kenmerken.frontbevestiging@value;data.kenmerken.opvullijstkleur@value;ui.kenmerken.opvullijstkleur@value;data.kenmerken.nietmeeleveren.nietmeeleveren_opvullijst@value;data.kenmerken.dwarsverdelingkleur@value;ui.kenmerken.dwarsverdelingkleur@value;data.kenmerken.dwarsverdelingtype@value;ui.kenmerken.dwarsverdelingtype@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; STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit - -/*if not(UI.Kenmerken.ProductieWijze@visible) then - DATA.Kenmerken.ProductieWijze = ""; -end if;*/ -/* -local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); - -if not(UI.Kenmerken.RugHoogte@visible) and not (_IsSifonlade) then - DATA.Kenmerken.RugHoogte = DATA.Kenmerken.LadeHoogte; - UI.Kenmerken.RugHoogte = DATA.Kenmerken.RugHoogte; -end if; -*/ -// uitsparingdata, mat e.d. toevoegen ... + +/*if not(UI.Kenmerken.ProductieWijze@visible) then + DATA.Kenmerken.ProductieWijze = ""; +end if;*/ +/* +local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); + +if not(UI.Kenmerken.RugHoogte@visible) and not (_IsSifonlade) then + DATA.Kenmerken.RugHoogte = DATA.Kenmerken.LadeHoogte; + UI.Kenmerken.RugHoogte = DATA.Kenmerken.RugHoogte; +end if; +*/ +// uitsparingdata, mat e.d. toevoegen ... Verborgen properties defaulten ; true - -local string _ProductieWijze = DATA.Kenmerken.ProductieWijze; - -if (_ProductieWijze <> "V") then - DATA.Kenmerken.LosseComponent = _ProductieWijze; -else - DATA.Kenmerken.LosseComponent = ""; -end if; + +local string _ProductieWijze = DATA.Kenmerken.ProductieWijze; + +if (_ProductieWijze <> "V") then + DATA.Kenmerken.LosseComponent = _ProductieWijze; +else + DATA.Kenmerken.LosseComponent = ""; +end if; Defaulten LosseComponent ;data.kenmerken.lossecomponent@value; (STATE.SavedAndExit or STATE.SavedAndContinue or STATE.ProcessedAndExit) and not(BEHAVIOR.IsInteractive) // (CONFIG.Settings.OperationMode == "Extern") - if ((DATA.Kenmerken.Toepassing <> "SY") and not(DATA.Kenmerken.HeeftAfwijkendeRugHoogte)) then - DATA.Kenmerken.RugHoogte = DATA.Kenmerken.LadeHoogte; + if ((DATA.Kenmerken.Toepassing <> "SY") and not(DATA.Kenmerken.HeeftAfwijkendeRugHoogte)) then + DATA.Kenmerken.RugHoogte = DATA.Kenmerken.LadeHoogte; end if; RugHoogte ;data.kenmerken.rughoogte@value; not(STATE.WinkelkarInfoCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig")) - 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 _LadeBinnenKleurOptionLabel = DATA.Kenmerken.LadeBinnenKleur@id + "_" + DATA.Kenmerken.LadeBinnenKleur@option(DATA.Kenmerken.LadeBinnenKleur)@id; -local string _BodemKleurOptionLabel = DATA.Kenmerken.BodemKleur@id + "_" + DATA.Kenmerken.BodemKleur@option(DATA.Kenmerken.BodemKleur)@id; -local string _KantenbandKleurOptionLabel = DATA.Kenmerken.KantenbandKleur@id + "_" + DATA.Kenmerken.KantenbandKleur@option(DATA.Kenmerken.KantenbandKleur)@id; - -DATA.Lijn.WinkelkarInfo@length = len(CONFIG.Database.Languages@options); - -for i = 1 to len(CONFIG.Database.Languages@options) - CONFIG.Database.Languages = CONFIG.Database.Languages@option(i)@id; - - local string _TaalCode = CONFIG.Database.Languages.Name; - - local string _CorpusWanddikte = " / "; - - if not(DATA.Kenmerken.IsBinnenbreedte) then - _CorpusWanddikte = CStr(DATA.Kenmerken.CorpusWanddikte) + " mm"; - end if; - - local string _LadeKleurInfo = GetLabel(DATA.Kenmerken.LadeKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_LadeKleurOptionLabel; _Model; ""; _TaalCode); - local string _LadeBinnenKleurInfo = GetLabel(DATA.Kenmerken.LadeBinnenKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_LadeBinnenKleurOptionLabel; _Model; ""; _TaalCode); - local string _BodemKleurInfo = GetLabel(DATA.Kenmerken.BodemKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_BodemKleurOptionLabel; _Model; ""; _TaalCode); - local string _KantenbandKleurInfo = GetLabel(DATA.Kenmerken.KantenbandKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_KantenbandKleurOptionLabel; _Model; ""; _TaalCode); - local string _Groepering = "TA'OR BOX - "; - - if (_TaalCode == "de") then - _Groepering = _Groepering + _LadeKleurInfo + ", " + _LadeBinnenKleurInfo + ", "+ _BodemKleurInfo + ", " + _KantenbandKleurInfo; - else - _Groepering = _Groepering + LCase(_LadeKleurInfo) + ", " + LCase(_LadeBinnenKleurInfo) + ", "+ LCase(_BodemKleurInfo) + ", " + LCase(_KantenbandKleurInfo); - end if; - - DATA.Lijn.WinkelkarInfo(i).Aantal = CStr(DATA.Lijn.Aantal); - DATA.Lijn.WinkelkarInfo(i).AfbeeldingCode = DATA.BerekendeWaarden.AfbeeldingCode; - DATA.Lijn.WinkelkarInfo(i).CorpusBreedte = CStr(DATA.Kenmerken.CorpusBreedte) + " mm"; - DATA.Lijn.WinkelkarInfo(i).CorpusWanddikte = _CorpusWanddikte; - DATA.Lijn.WinkelkarInfo(i).Draagkracht = CStr(DATA.Kenmerken.Draagkracht) + " kg"; - DATA.Lijn.WinkelkarInfo(i).EenheidPrijs = ""; - DATA.Lijn.WinkelkarInfo(i).FrontBevestiging = GetLabel(_FrontBevestigingOptionLabel; _Model; ""; _TaalCode); - DATA.Lijn.WinkelkarInfo(i).Groepering = _Groepering; - DATA.Lijn.WinkelkarInfo(i).LadeCode = DATA.BerekendeWaarden.LadeCode; - DATA.Lijn.WinkelkarInfo(i).LadeDiepte = CStr(DATA.Kenmerken.LadeDiepte) + " mm"; - DATA.Lijn.WinkelkarInfo(i).TaalCode = _TaalCode; - DATA.Lijn.WinkelkarInfo(i).TotaalPrijs = ""; + 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 _LadeBinnenKleurOptionLabel = DATA.Kenmerken.LadeBinnenKleur@id + "_" + DATA.Kenmerken.LadeBinnenKleur@option(DATA.Kenmerken.LadeBinnenKleur)@id; +local string _BodemKleurOptionLabel = DATA.Kenmerken.BodemKleur@id + "_" + DATA.Kenmerken.BodemKleur@option(DATA.Kenmerken.BodemKleur)@id; +local string _KantenbandKleurOptionLabel = DATA.Kenmerken.KantenbandKleur@id + "_" + DATA.Kenmerken.KantenbandKleur@option(DATA.Kenmerken.KantenbandKleur)@id; + +DATA.Lijn.WinkelkarInfo@length = len(CONFIG.Database.Languages@options); + +for i = 1 to len(CONFIG.Database.Languages@options) + CONFIG.Database.Languages = CONFIG.Database.Languages@option(i)@id; + + local string _TaalCode = CONFIG.Database.Languages.Name; + + local string _CorpusWanddikte = " / "; + + if not(DATA.Kenmerken.IsBinnenbreedte) then + _CorpusWanddikte = CStr(DATA.Kenmerken.CorpusWanddikte) + " mm"; + end if; + + local string _LadeKleurInfo = GetLabel(DATA.Kenmerken.LadeKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_LadeKleurOptionLabel; _Model; ""; _TaalCode); + local string _LadeBinnenKleurInfo = GetLabel(DATA.Kenmerken.LadeBinnenKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_LadeBinnenKleurOptionLabel; _Model; ""; _TaalCode); + local string _BodemKleurInfo = GetLabel(DATA.Kenmerken.BodemKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_BodemKleurOptionLabel; _Model; ""; _TaalCode); + local string _KantenbandKleurInfo = GetLabel(DATA.Kenmerken.KantenbandKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_KantenbandKleurOptionLabel; _Model; ""; _TaalCode); + local string _Groepering = "TA'OR BOX - "; + + if (_TaalCode == "de") then + _Groepering = _Groepering + _LadeKleurInfo + ", " + _LadeBinnenKleurInfo + ", "+ _BodemKleurInfo + ", " + _KantenbandKleurInfo; + else + _Groepering = _Groepering + LCase(_LadeKleurInfo) + ", " + LCase(_LadeBinnenKleurInfo) + ", "+ LCase(_BodemKleurInfo) + ", " + LCase(_KantenbandKleurInfo); + end if; + + DATA.Lijn.WinkelkarInfo(i).Aantal = CStr(DATA.Lijn.Aantal); + DATA.Lijn.WinkelkarInfo(i).AfbeeldingCode = DATA.BerekendeWaarden.AfbeeldingCode; + DATA.Lijn.WinkelkarInfo(i).CorpusBreedte = CStr(DATA.Kenmerken.CorpusBreedte) + " mm"; + DATA.Lijn.WinkelkarInfo(i).CorpusWanddikte = _CorpusWanddikte; + DATA.Lijn.WinkelkarInfo(i).Draagkracht = CStr(DATA.Kenmerken.Draagkracht) + " kg"; + DATA.Lijn.WinkelkarInfo(i).EenheidPrijs = ""; + DATA.Lijn.WinkelkarInfo(i).FrontBevestiging = GetLabel(_FrontBevestigingOptionLabel; _Model; ""; _TaalCode); + DATA.Lijn.WinkelkarInfo(i).Groepering = _Groepering; + DATA.Lijn.WinkelkarInfo(i).LadeCode = DATA.BerekendeWaarden.LadeCode; + DATA.Lijn.WinkelkarInfo(i).LadeDiepte = CStr(DATA.Kenmerken.LadeDiepte) + " mm"; + DATA.Lijn.WinkelkarInfo(i).TaalCode = _TaalCode; + DATA.Lijn.WinkelkarInfo(i).TotaalPrijs = ""; end for; WinkelkarInfo ;state.winkelkarinfocalculated@value; not(STATE.WinkelkarInfoDiverseCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig")) - -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 _KoppelingTypeOptionLabel = DATA.Kenmerken.KoppelingType@id + "_" + DATA.Kenmerken.KoppelingType@option(DATA.Kenmerken.KoppelingType)@id; -local string _OpvullijstKleurOptionLabel = DATA.Kenmerken.OpvullijstKleur@id + "_" + DATA.Kenmerken.OpvullijstKleur@option(DATA.Kenmerken.OpvullijstKleur)@id; -local string _VerpakkingTypeOptionLabel = DATA.Kenmerken.VerpakkingType@id + "_" + DATA.Kenmerken.VerpakkingType@option(DATA.Kenmerken.VerpakkingType)@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 _FrontEindkapKleurOptionLabel = DATA.Kenmerken.FrontEindKapKleur@id + "_" + DATA.Kenmerken.FrontEindKapKleur@option(DATA.Kenmerken.FrontEindKapKleur)@id; -local string _DwarsverdelingKleurOptionLabel = DATA.Kenmerken.DwarsverdelingKleur@id + "_" + DATA.Kenmerken.DwarsverdelingKleur@option(DATA.Kenmerken.DwarsverdelingKleur)@id; - -local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); - -for i = 1 to len(Config.Database.Languages@options) - CONFIG.Database.Languages = CONFIG.Database.Languages@option(i)@id; - - local string _TaalCode = CONFIG.Database.Languages.Name; - - local string _InfoToepassing = ""; - local string _InfoGeleider = ""; - local string _InfoKoppeling = ""; - local string _InfoMat = ""; - local string _InfoZijstabilisering = ""; - local string _InfoOpvullijst = ""; - local string _InfoVerpakking = ""; - local string _InfoRugHoogte = ""; - local string _InfoProductieWijze = ""; - local string _InfoAfdekkapKleur = GetLabel(DATA.Kenmerken.FrontEindkapKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_FrontEindkapKleurOptionLabel; _Model; ""; _TaalCode); - local string _InfoZijkantLogo = ""; - local string _InfoDwarsverdeling = ""; - local string _InfoNietMeeleveren = ""; - - if (DATA.Kenmerken.Toepassing <> "L") then - _InfoToepassing = GetLabel(_ToepassingOptionLabel; _Model; ""; _TaalCode); - - local string _UitsparingAfmetingen = ""; - if (_IsSifonlade) then - local string _X = CStr(DATA.Kenmerken.UitsparingData.X.Breedte); - local string _M = CStr(DATA.Kenmerken.UitsparingData.M.Breedte); - local string _Y = CStr(DATA.Kenmerken.UitsparingData.Y.Breedte); - local string _Z1 = CStr(DATA.Kenmerken.UitsparingData.Z1.Breedte); - local string _Z2 = CStr(DATA.Kenmerken.UitsparingData.Z2.Breedte); - local string _DiepteZ1 = CStr(DATA.Kenmerken.UitsparingData.Z1.Diepte); - local string _ - - _UitsparingAfmetingen = _UitsparingAfmetingen + " " + "diepte-uitsparing" + ": " + _DiepteZ1 + "mm"; - - _UitsparingAfmetingen = _UitsparingAfmetingen + " (" +_X + "/" + _Z1; - - if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then - _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + _M + "/" + _Z2; - end if; - - _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + _Y + ")"; - - end if; - - _InfoToepassing = _InfoToepassing + _UitsparingAfmetingen; - end if; - - if ((DATA.Kenmerken.GeleiderTechnologie == "T") or (DATA.Kenmerken.GeleiderTechnologie == "TOB")) then - _InfoGeleider = GetLabel(_GeleiderTechnologieOptionLabel; _Model; ""; _TaalCode); - end if; - - if (DATA.Kenmerken.KoppelingType <> "") then - _InfoKoppeling = GetLabel(DATA.Kenmerken.KoppelingType@id; _Model; ""; _TaalCode) + ": " + GetLabel(_KoppelingTypeOptionLabel; _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 (DATA.Kenmerken.HeeftZijstabilisering) then - _InfoZijstabilisering = GetLabel(DATA.Kenmerken.HeeftZijstabilisering@id; _Model; ""; _TaalCode); - end if; - - if (DATA.Kenmerken.HeeftOpvullijstLinks or DATA.Kenmerken.HeeftOpvullijstRechts) then - _InfoOpvullijst = GetLabel(TRL.InfoDiverse_Opvullijst@id; _Model; ""; _TaalCode) + ": "; - - local string _Links = GetLabel(TRL.InfoDiverse_Links@id; _Model; ""; _TaalCode); - local string _Rechts = GetLabel(TRL.InfoDiverse_Rechts@id; _Model; ""; _TaalCode); - - if (DATA.Kenmerken.HeeftOpvullijstLinks and DATA.Kenmerken.HeeftOpvullijstRechts) then - _InfoOpvullijst = _InfoOpvullijst + _Links + "+" + _Rechts; - else - if (DATA.Kenmerken.HeeftOpvullijstLinks) then - _InfoOpvullijst = _InfoOpvullijst + _Links; - end if; - - if (DATA.Kenmerken.HeeftOpvullijstRechts) then - _InfoOpvullijst = _InfoOpvullijst + _Rechts; - end if; - end if; - end if; - - if ((_InfoOpvullijst <> "") and (DATA.Kenmerken.OpvullijstKleur <> "")) then - _InfoOpvullijst = _InfoOpvullijst + " (" + GetLabel(_OpvullijstKleurOptionLabel ; _Model; ""; _TaalCode) + ")"; - end if; - - if (DATA.Kenmerken.VerpakkingType <> "V1") then - _InfoVerpakking = GetLabel(_VerpakkingTypeOptionLabel; _Model; ""; _TaalCode); - end if; - - local boolean _IsRugHoogteTeTonen = DATA.Kenmerken.HeeftAfwijkendeRugHoogte; - if (_IsSifonlade) then - _IsRugHoogteTeTonen = not((DATA.Kenmerken.LadeHoogte + DATA.Kenmerken.RugHoogte) in {"MM";"NN"}); - end if; - - if (_IsRugHoogteTeTonen) then - _InfoRugHoogte = GetLabel(DATA.Kenmerken.RugHoogte@id; _Model; ""; _TaalCode) + ": " + GetLabel(_RugHoogteOptionLabel; _Model; ""; _TaalCode); - end if; - - if (DATA.Kenmerken.ProductieWijze <> "V") and (DATA.Kenmerken.ProductieWijze <> "") then - _InfoProductieWijze = GetLabel(TRL.InfoDiverse_Enkel@id; _Model; ""; _TaalCode) + " " + GetLabel(_ProductieWijzeOptionLabel; _Model; ""; _TaalCode); - end if; - - if ((DATA.Kenmerken.ZijkantLogoId) <> "" and (DATA.Kenmerken.ZijkantLogoId <> "0")) then - if (UI.Kenmerken.ZijkantLogo.Naam == "") then - _InfoZijkantLogo = GetLabel("Logo"; _Model; ""; _TaalCode) + " ID: " + DATA.Kenmerken.ZijkantLogoId; - else - _InfoZijkantLogo = GetLabel("Logo"; _Model; ""; _TaalCode) + " " + UI.Kenmerken.ZijkantLogo.Naam; - end if; - end if; - - if ((DATA.Kenmerken.DwarsverdelingAantal <> "") and (CLng(DATA.Kenmerken.DwarsverdelingAantal) > 0)) then - if (DATA.Kenmerken.DwarsverdelingType == "Dubbel") then - _InfoDwarsverdeling = GetLabel(TRL.InfoDiverse_DubbeleDwarsverdeling@id; _Model; ""; _TaalCode); - else - _InfoDwarsverdeling = GetLabel(DATA.Kenmerken.DwarsverdelingAantal@id; _Model; ""; _TaalCode); - end if; - _InfoDwarsverdeling = _InfoDwarsverdeling + " " + GetLabel(_DwarsverdelingKleurOptionLabel; _Model; ""; _TaalCode) + " (" + GetLabel("Aantal"; _Model; ""; _TaalCode) + ": " + DATA.Kenmerken.DwarsverdelingAantal + ")"; - 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; - - DATA.Lijn.WinkelkarInfo(i).InfoDiverse@length = 13; - - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[1] = _InfoToepassing; - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[2] = _InfoGeleider; - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[3] = _InfoKoppeling; - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[4] = _InfoMat; - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[5] = _InfoZijstabilisering; - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[6] = _InfoOpvullijst; - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[7] = _InfoVerpakking; - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[8] = _InfoRugHoogte; - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[9] = _InfoProductieWijze; - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[10] = _InfoAfdekkapKleur; - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[11] = _InfoZijkantLogo; - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[12] = _InfoDwarsverdeling; - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[13] = _InfoNietMeeleveren; -end for; + +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 _KoppelingTypeOptionLabel = DATA.Kenmerken.KoppelingType@id + "_" + DATA.Kenmerken.KoppelingType@option(DATA.Kenmerken.KoppelingType)@id; +local string _OpvullijstKleurOptionLabel = DATA.Kenmerken.OpvullijstKleur@id + "_" + DATA.Kenmerken.OpvullijstKleur@option(DATA.Kenmerken.OpvullijstKleur)@id; +local string _VerpakkingTypeOptionLabel = DATA.Kenmerken.VerpakkingType@id + "_" + DATA.Kenmerken.VerpakkingType@option(DATA.Kenmerken.VerpakkingType)@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 _FrontEindkapKleurOptionLabel = DATA.Kenmerken.FrontEindKapKleur@id + "_" + DATA.Kenmerken.FrontEindKapKleur@option(DATA.Kenmerken.FrontEindKapKleur)@id; +local string _DwarsverdelingKleurOptionLabel = DATA.Kenmerken.DwarsverdelingKleur@id + "_" + DATA.Kenmerken.DwarsverdelingKleur@option(DATA.Kenmerken.DwarsverdelingKleur)@id; + +local boolean _IsSifonlade = (DATA.Kenmerken.Toepassing == "SY"); + +for i = 1 to len(Config.Database.Languages@options) + CONFIG.Database.Languages = CONFIG.Database.Languages@option(i)@id; + + local string _TaalCode = CONFIG.Database.Languages.Name; + + local string _InfoToepassing = ""; + local string _InfoGeleider = ""; + local string _InfoKoppeling = ""; + local string _InfoMat = ""; + local string _InfoZijstabilisering = ""; + local string _InfoOpvullijst = ""; + local string _InfoVerpakking = ""; + local string _InfoRugHoogte = ""; + local string _InfoProductieWijze = ""; + local string _InfoAfdekkapKleur = GetLabel(DATA.Kenmerken.FrontEindkapKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_FrontEindkapKleurOptionLabel; _Model; ""; _TaalCode); + local string _InfoZijkantLogo = ""; + local string _InfoDwarsverdeling = ""; + local string _InfoNietMeeleveren = ""; + + if (DATA.Kenmerken.Toepassing <> "L") then + _InfoToepassing = GetLabel(_ToepassingOptionLabel; _Model; ""; _TaalCode); + + local string _UitsparingAfmetingen = ""; + if (_IsSifonlade) then + local string _X = CStr(DATA.Kenmerken.UitsparingData.X.Breedte); + local string _M = CStr(DATA.Kenmerken.UitsparingData.M.Breedte); + local string _Y = CStr(DATA.Kenmerken.UitsparingData.Y.Breedte); + local string _Z1 = CStr(DATA.Kenmerken.UitsparingData.Z1.Breedte); + local string _Z2 = CStr(DATA.Kenmerken.UitsparingData.Z2.Breedte); + local string _DiepteZ1 = CStr(DATA.Kenmerken.UitsparingData.Z1.Diepte); + local string _ + + _UitsparingAfmetingen = _UitsparingAfmetingen + " " + "diepte-uitsparing" + ": " + _DiepteZ1 + "mm"; + + _UitsparingAfmetingen = _UitsparingAfmetingen + " (" +_X + "/" + _Z1; + + if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then + _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + _M + "/" + _Z2; + end if; + + _UitsparingAfmetingen = _UitsparingAfmetingen + "/" + _Y + ")"; + + end if; + + _InfoToepassing = _InfoToepassing + _UitsparingAfmetingen; + end if; + + if ((DATA.Kenmerken.GeleiderTechnologie == "T") or (DATA.Kenmerken.GeleiderTechnologie == "TOB")) then + _InfoGeleider = GetLabel(_GeleiderTechnologieOptionLabel; _Model; ""; _TaalCode); + end if; + + if (DATA.Kenmerken.KoppelingType <> "") then + _InfoKoppeling = GetLabel(DATA.Kenmerken.KoppelingType@id; _Model; ""; _TaalCode) + ": " + GetLabel(_KoppelingTypeOptionLabel; _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 (DATA.Kenmerken.HeeftZijstabilisering) then + _InfoZijstabilisering = GetLabel(DATA.Kenmerken.HeeftZijstabilisering@id; _Model; ""; _TaalCode); + end if; + + if (DATA.Kenmerken.HeeftOpvullijstLinks or DATA.Kenmerken.HeeftOpvullijstRechts) then + _InfoOpvullijst = GetLabel(TRL.InfoDiverse_Opvullijst@id; _Model; ""; _TaalCode) + ": "; + + local string _Links = GetLabel(TRL.InfoDiverse_Links@id; _Model; ""; _TaalCode); + local string _Rechts = GetLabel(TRL.InfoDiverse_Rechts@id; _Model; ""; _TaalCode); + + if (DATA.Kenmerken.HeeftOpvullijstLinks and DATA.Kenmerken.HeeftOpvullijstRechts) then + _InfoOpvullijst = _InfoOpvullijst + _Links + "+" + _Rechts; + else + if (DATA.Kenmerken.HeeftOpvullijstLinks) then + _InfoOpvullijst = _InfoOpvullijst + _Links; + end if; + + if (DATA.Kenmerken.HeeftOpvullijstRechts) then + _InfoOpvullijst = _InfoOpvullijst + _Rechts; + end if; + end if; + end if; + + if ((_InfoOpvullijst <> "") and (DATA.Kenmerken.OpvullijstKleur <> "")) then + _InfoOpvullijst = _InfoOpvullijst + " (" + GetLabel(_OpvullijstKleurOptionLabel ; _Model; ""; _TaalCode) + ")"; + end if; + + if (DATA.Kenmerken.VerpakkingType <> "V1") then + _InfoVerpakking = GetLabel(_VerpakkingTypeOptionLabel; _Model; ""; _TaalCode); + end if; + + local boolean _IsRugHoogteTeTonen = DATA.Kenmerken.HeeftAfwijkendeRugHoogte; + if (_IsSifonlade) then + _IsRugHoogteTeTonen = not((DATA.Kenmerken.LadeHoogte + DATA.Kenmerken.RugHoogte) in {"MM";"NN"}); + end if; + + if (_IsRugHoogteTeTonen) then + _InfoRugHoogte = GetLabel(DATA.Kenmerken.RugHoogte@id; _Model; ""; _TaalCode) + ": " + GetLabel(_RugHoogteOptionLabel; _Model; ""; _TaalCode); + end if; + + if (DATA.Kenmerken.ProductieWijze <> "V") and (DATA.Kenmerken.ProductieWijze <> "") then + _InfoProductieWijze = GetLabel(TRL.InfoDiverse_Enkel@id; _Model; ""; _TaalCode) + " " + GetLabel(_ProductieWijzeOptionLabel; _Model; ""; _TaalCode); + end if; + + if ((DATA.Kenmerken.ZijkantLogoId) <> "" and (DATA.Kenmerken.ZijkantLogoId <> "0")) then + if (UI.Kenmerken.ZijkantLogo.Naam == "") then + _InfoZijkantLogo = GetLabel("Logo"; _Model; ""; _TaalCode) + " ID: " + DATA.Kenmerken.ZijkantLogoId; + else + _InfoZijkantLogo = GetLabel("Logo"; _Model; ""; _TaalCode) + " " + UI.Kenmerken.ZijkantLogo.Naam; + end if; + end if; + + if ((DATA.Kenmerken.DwarsverdelingAantal <> "") and (CLng(DATA.Kenmerken.DwarsverdelingAantal) > 0)) then + if (DATA.Kenmerken.DwarsverdelingType == "Dubbel") then + _InfoDwarsverdeling = GetLabel(TRL.InfoDiverse_DubbeleDwarsverdeling@id; _Model; ""; _TaalCode); + else + _InfoDwarsverdeling = GetLabel(DATA.Kenmerken.DwarsverdelingAantal@id; _Model; ""; _TaalCode); + end if; + _InfoDwarsverdeling = _InfoDwarsverdeling + " " + GetLabel(_DwarsverdelingKleurOptionLabel; _Model; ""; _TaalCode) + " (" + GetLabel("Aantal"; _Model; ""; _TaalCode) + ": " + DATA.Kenmerken.DwarsverdelingAantal + ")"; + 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; + + DATA.Lijn.WinkelkarInfo(i).InfoDiverse@length = 13; + + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[1] = _InfoToepassing; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[2] = _InfoGeleider; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[3] = _InfoKoppeling; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[4] = _InfoMat; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[5] = _InfoZijstabilisering; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[6] = _InfoOpvullijst; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[7] = _InfoVerpakking; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[8] = _InfoRugHoogte; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[9] = _InfoProductieWijze; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[10] = _InfoAfdekkapKleur; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[11] = _InfoZijkantLogo; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[12] = _InfoDwarsverdeling; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[13] = _InfoNietMeeleveren; +end for; WinkelkarInfo - InfoDiverse ;state.winkelkarinfodiversecalculated@value; STATE.SavedAndExit or STATE.SavedAndContinue or (CONFIG.InputMode == "CreateConfig") or (CONFIG.Backend == "axapta") - -local string _ItemId = ""; -local string _ItemIdOnlies = "9.963.992.8"; -local string _ProductieWijze = DATA.Kenmerken.ProductieWijze; -local collection _LosseComponenten = {"ZL", "ZR", "B", "R", "F", "FLBX"}; - -local boolean _IsLosseComponent = DATA.Kenmerken.ProductieWijze in _LosseComponenten; -local boolean _IsVolledigeLade = (_ProductieWijze == "V") or (_ProductieWijze == "") or not(_IsLosseComponent); -local boolean _IsZijkant = (_ProductieWijze == "ZL") or (_ProductieWijze == "ZR"); - -if (DATA.Kenmerken.VerpakkingType == "V1") then - if (_IsVolledigeLade) then - _ItemId = "9.754.358.6"; - else - _ItemId = _ItemIdOnlies; - end if; -end if; - -if (DATA.Kenmerken.VerpakkingType == "Probox") then - if (_IsVolledigeLade) then - _ItemId = "9.963.984.8"; - else - _ItemId = _ItemIdOnlies; - end if; -end if; - -if (DATA.Kenmerken.VerpakkingType == "BulkPerOnderdeelGegroepeerd") then - _ItemId = "9.261.254.12"; -end if; - -if (DATA.Kenmerken.VerpakkingType == "FlatpackV1") then - _ItemId = "9.264.067.15"; -end if; - -if (DATA.Kenmerken.VerpakkingType == "Pallet") then - _ItemId = "7.001.225.0"; -end if; - -if (DATA.Kenmerken.VerpakkingType == "LosseComponentenInBulk") then - local boolean _IsBicolorZijkant = (DATA.Kenmerken.LadeKleur <> DATA.Kenmerken.LadeBinnenKleur and _IsZijkant); - - if _IsBicolorZijkant then - _ItemId = "9.532.142.12"; - else - local collection _FineerKleuren = {"NE", "NN", "MB", "SY", "ZY", "BE", "XE"}; - local collection _MelamineKleuren = {"E1", "E2", "N1", "S", "W", "XG", "DA", "LA", "Z9"}; - local boolean _IsFineer = Data.Kenmerken.LadeKleur in _FineerKleuren; - local boolean _IsMelamine = Data.Kenmerken.LadeKleur in _MelamineKleuren; - - if (_IsFineer and _IsZijkant) then _ItemId = "9.532.126.12" end if; - if (_IsFineer and Data.Kenmerken.ProductieWijze == "B") then _ItemId = "7.000.156.2" end if; - if (_IsFineer and ((DATA.Kenmerken.ProductieWijze == "F") or (DATA.Kenmerken.ProductieWijze == "FLBX"))) then _ItemId = "7.000.158.4" end if; - if (_IsFineer and Data.Kenmerken.ProductieWijze == "R") then _ItemId = "7.000.157.3" end if; - - if (_IsMelamine and _IsZijkant) then _ItemId = "9.532.134.12" end if; - if (_IsMelamine and Data.Kenmerken.ProductieWijze == "B") then _ItemId = "7.000.152.5" end if; - if (_IsMelamine and ((DATA.Kenmerken.ProductieWijze == "F") or (DATA.Kenmerken.ProductieWijze == "FLBX"))) then _ItemId = "7.000.154.0" end if; - if (_IsMelamine and Data.Kenmerken.ProductieWijze == "R") then _ItemId = "7.000.153.6" end if; - end if; -end if; - -if (_ItemId == "") then _ItemId = "9.754.358.6" end if; - -ItemId = _ItemId; + +local string _ItemId = ""; +local string _ItemIdOnlies = "9.963.992.8"; +local string _ProductieWijze = DATA.Kenmerken.ProductieWijze; +local collection _LosseComponenten = {"ZL", "ZR", "B", "R", "F", "FLBX"}; + +local boolean _IsLosseComponent = DATA.Kenmerken.ProductieWijze in _LosseComponenten; +local boolean _IsVolledigeLade = (_ProductieWijze == "V") or (_ProductieWijze == "") or not(_IsLosseComponent); +local boolean _IsZijkant = (_ProductieWijze == "ZL") or (_ProductieWijze == "ZR"); + +if (DATA.Kenmerken.VerpakkingType == "V1") then + if (_IsVolledigeLade) then + _ItemId = "9.754.358.6"; + else + _ItemId = _ItemIdOnlies; + end if; +end if; + +if (DATA.Kenmerken.VerpakkingType == "Probox") then + if (_IsVolledigeLade) then + _ItemId = "9.963.984.8"; + else + _ItemId = _ItemIdOnlies; + end if; +end if; + +if (DATA.Kenmerken.VerpakkingType == "BulkPerOnderdeelGegroepeerd") then + _ItemId = "9.261.254.12"; +end if; + +if (DATA.Kenmerken.VerpakkingType == "FlatpackV1") then + _ItemId = "9.264.067.15"; +end if; + +if (DATA.Kenmerken.VerpakkingType == "Pallet") then + _ItemId = "7.001.225.0"; +end if; + +if (DATA.Kenmerken.VerpakkingType == "LosseComponentenInBulk") then + local boolean _IsBicolorZijkant = (DATA.Kenmerken.LadeKleur <> DATA.Kenmerken.LadeBinnenKleur and _IsZijkant); + + if _IsBicolorZijkant then + _ItemId = "9.532.142.12"; + else + local collection _FineerKleuren = {"NE", "NN", "MB", "SY", "ZY", "BE", "XE"}; + local collection _MelamineKleuren = {"E1", "E2", "N1", "S", "W", "XG", "DA", "LA", "Z9"}; + local boolean _IsFineer = Data.Kenmerken.LadeKleur in _FineerKleuren; + local boolean _IsMelamine = Data.Kenmerken.LadeKleur in _MelamineKleuren; + + if (_IsFineer and _IsZijkant) then _ItemId = "9.532.126.12" end if; + if (_IsFineer and Data.Kenmerken.ProductieWijze == "B") then _ItemId = "7.000.156.2" end if; + if (_IsFineer and ((DATA.Kenmerken.ProductieWijze == "F") or (DATA.Kenmerken.ProductieWijze == "FLBX"))) then _ItemId = "7.000.158.4" end if; + if (_IsFineer and Data.Kenmerken.ProductieWijze == "R") then _ItemId = "7.000.157.3" end if; + + if (_IsMelamine and _IsZijkant) then _ItemId = "9.532.134.12" end if; + if (_IsMelamine and Data.Kenmerken.ProductieWijze == "B") then _ItemId = "7.000.152.5" end if; + if (_IsMelamine and ((DATA.Kenmerken.ProductieWijze == "F") or (DATA.Kenmerken.ProductieWijze == "FLBX"))) then _ItemId = "7.000.154.0" end if; + if (_IsMelamine and Data.Kenmerken.ProductieWijze == "R") then _ItemId = "7.000.153.6" end if; + end if; +end if; + +if (_ItemId == "") then _ItemId = "9.754.358.6" end if; + +ItemId = _ItemId; ItemId bepalen ;itemid@value; STATE.Cancelled - STATE.Cancelled = false; - -ReturnValue = "{\"status\":\"cancel\"}"; - + STATE.Cancelled = false; + +ReturnValue = "{\"status\":\"cancel\"}"; + local boolean _Result = Exit(true;false); Cancel ;state.cancelled@value;returnvalue@value; STATE.ProcessedAndExit - -STATE.ProcessedAndExit = false; -STATE.ValidationNeeded = true; + +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); + 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); + 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 - if (_PropertyName == "Data.Kenmerken.ZijkantLogoId") then - index j of CONFIG.Database.ZijkantLogo.Lijst - if (CONFIG.Database.ZijkantLogo.Lijst(j).LogoId == DATA.Kenmerken.ZijkantLogoId) then - _Feedback = _Feedback + "<li>"; - _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + CONFIG.Database.ZijkantLogo.Lijst(j).Naam; - _Feedback = _Feedback + "</li>"; - end if; - end index; - else - _Feedback = _Feedback + "<li>"; - _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id); - _Feedback = _Feedback + "</li>"; - end if; - 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; - - /* - 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); - + 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 + if (_PropertyName == "Data.Kenmerken.ZijkantLogoId") then + index j of CONFIG.Database.ZijkantLogo.Lijst + if (CONFIG.Database.ZijkantLogo.Lijst(j).LogoId == DATA.Kenmerken.ZijkantLogoId) then + _Feedback = _Feedback + "<li>"; + _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + CONFIG.Database.ZijkantLogo.Lijst(j).Naam; + _Feedback = _Feedback + "</li>"; + end if; + end index; + else + _Feedback = _Feedback + "<li>"; + _Feedback = _Feedback + GetLocalizedLabel(_Label) + ": " + GetLocalizedLabel(_Label + "_" + _Id); + _Feedback = _Feedback + "</li>"; + end if; + 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; + + /* + 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;