Index: development/models/mat/MAT Configurator,1.0.0.xml =================================================================== diff -u -r2701 -r2710 --- development/models/mat/MAT Configurator,1.0.0.xml (.../MAT Configurator,1.0.0.xml) (revision 2701) +++ development/models/mat/MAT Configurator,1.0.0.xml (.../MAT Configurator,1.0.0.xml) (revision 2710) @@ -43,7 +43,7 @@ - + @@ -121,7 +121,7 @@ - + @@ -144,12 +144,12 @@ - + @@ -248,10 +248,10 @@ - + - + @@ -307,16 +307,16 @@ - + - - + - + @@ -407,10 +407,10 @@ - + - + @@ -426,35 +426,27 @@ - + - + - + - + - + - + - + - + - - - - - - - - @@ -502,7 +494,7 @@ - + @@ -572,10 +564,10 @@ - + - + @@ -664,7 +656,7 @@ - + @@ -690,64 +682,64 @@ - + - + - + - + - + - + - + - + - + - + @@ -1019,7 +1011,7 @@ - + @@ -4277,6 +4269,7 @@ Bereken + ; @@ -4371,14 +4364,11 @@ not(STATE.WinkelkarInfoCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or not(BEHAVIOR.IsInteractive)) -/* STATE.WinkelkarInfoCalculated = true; local string _Model = GetModel(); -local string _FrontBevestigingOptionLabel = DATA.Kenmerken.FrontBevestiging@id + "_" + DATA.Kenmerken.FrontBevestiging@option(DATA.Kenmerken.FrontBevestiging)@id; -local string _LadeKleurOptionLabel = DATA.Kenmerken.LadeKleur@id + "_" + DATA.Kenmerken.LadeKleur@option(DATA.Kenmerken.LadeKleur)@id; -local string _BodemKleurOptionLabel = DATA.Kenmerken.BodemKleur@id + "_" + DATA.Kenmerken.BodemKleur@option(DATA.Kenmerken.BodemKleur)@id; +//local string KleurOptionLabel = DATA.Kenmerken.Kleur@id + "_" + DATA.Kenmerken.Kleur@option(DATA.Kenmerken.Kleur)@id; DATA.Lijn.WinkelkarInfo@length = len(CONFIG.Database.Languages@options); @@ -4387,88 +4377,71 @@ local string _TaalCode = CONFIG.Database.Languages.Name; - local string _CorpusWanddikte = " / "; + local string _MateriaalLabel = "Materiaal_" + DATA.Kenmerken.Materiaal; + local string _KleurOptionLabel = switch DATA.Kenmerken.Materiaal + case "CF": "MatVinylFiberglassKleur_" + UI.Kenmerken.MatVinylFiberglassKleur.Value + case "AF": "MatAntislipFiberKleur_" + UI.Kenmerken.MatAntislipFiberKleur.Value + case "AZ": "MatAntislipFlockKleur_" + UI.Kenmerken.MatAntislipFlockKleur.Value + else "" + end switch; - if not(DATA.Kenmerken.IsBinnenbreedte) then - _CorpusWanddikte = CStr(DATA.Kenmerken.CorpusWanddikte) + " mm"; - end if; + local string _MateriaalInfo = GetLabel(_MateriaalLabel ; _Model; ""; _TaalCode); + local string _KleurInfo = GetLabel(_KleurOptionLabel; _Model; ""; _TaalCode); - local string _LadeKleurInfo = GetLabel(DATA.Kenmerken.LadeKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_LadeKleurOptionLabel; _Model; ""; _TaalCode); - local string _BodemKleurInfo = GetLabel(DATA.Kenmerken.BodemKleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_BodemKleurOptionLabel; _Model; ""; _TaalCode); - local string _Groepering; - - _Groepering = "MERIVOBOX - "; - if (_TaalCode == "de") then - _Groepering = _Groepering + _LadeKleurInfo + ", " + _BodemKleurInfo; - else - _Groepering = _Groepering + LCase(_LadeKleurInfo) + ", " + LCase(_BodemKleurInfo); - end if; + //local string _KleurInfo = GetLabel(DATA.Kenmerken.Kleur@id; _Model; ""; _TaalCode) + ": " + GetLabel(_KleurOptionLabel; _Model; ""; _TaalCode); + //local string _MateriaalInfo = GetLabel(DATA.Kenmerken.Materiaal@id; _Model; ""; _TaalCode) + ": " + GetLabel(_MateriaalLabel ; _Model; ""; _TaalCode); + local string _Groepering = "MAT - " + _MateriaalInfo + ": " +_KleurInfo; - - DATA.Lijn.WinkelkarInfo(i).Aantal = CStr(DATA.Lijn.Aantal); - DATA.Lijn.WinkelkarInfo(i).AfbeeldingCode = DATA.BerekendeWaarden.AfbeeldingCode; - DATA.Lijn.WinkelkarInfo(i).CorpusBreedte = ""; - DATA.Lijn.WinkelkarInfo(i).CorpusWanddikte = ""; - DATA.Lijn.WinkelkarInfo(i).Draagkracht = ""; - DATA.Lijn.WinkelkarInfo(i).EenheidPrijs = ""; - DATA.Lijn.WinkelkarInfo(i).FrontBevestiging = GetLabel(_FrontBevestigingOptionLabel; _Model; ""; _TaalCode); + DATA.Lijn.WinkelkarInfo(i).AfbeeldingCode = "Nog niet bepaald"; + DATA.Lijn.WinkelkarInfo(i).NettoAfmeting = CStr(DATA.Kenmerken.NettoBreedte) + " x " +CStr(DATA.Kenmerken.NettoDiepte); + DATA.Lijn.WinkelkarInfo(i).EenheidPrijs = ""; DATA.Lijn.WinkelkarInfo(i).Groepering = _Groepering; - DATA.Lijn.WinkelkarInfo(i).LadeCode = DATA.BerekendeWaarden.LadeCode; - DATA.Lijn.WinkelkarInfo(i).LadeDiepte = ""; + DATA.Lijn.WinkelkarInfo(i).LadeTag = ""; DATA.Lijn.WinkelkarInfo(i).TaalCode = _TaalCode; DATA.Lijn.WinkelkarInfo(i).TotaalPrijs = ""; end for; -*/ + WinkelkarInfo - ; + ;state.winkelkarinfocalculated@value; not(STATE.WinkelkarInfoDiverseCalculated) and STATE.LanguagesLoaded and (STATE.SavedAndExit or STATE.SavedAndContinue or not(BEHAVIOR.IsInteractive)) -/* + 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 _RugwandMateriaalOptionLabel = DATA.Kenmerken.RugwandMateriaal@id + "_" + DATA.Kenmerken.RugwandMateriaal@option(DATA.Kenmerken.RugwandMateriaal)@id; -local string _VerpakkingTypeOptionLabel = DATA.Kenmerken.VerpakkingType@id + "_" + DATA.Kenmerken.VerpakkingType@option(DATA.Kenmerken.VerpakkingType)@id; -//local string _VoorwandTypeVanMBinnenladeOptionLabel = DATA.Kenmerken.VoorwandTypeVanMBinnenlade@id + "_" + DATA.Kenmerken.VoorwandTypeVanMBinnenlade@option(DATA.Kenmerken.VoorwandTypeVanMBinnenlade)@id; -//local string _VoorwandTypeVanCBinnenladeOptionLabel = DATA.Kenmerken.VoorwandTypeVanCBinnenlade@id + "_" + DATA.Kenmerken.VoorwandTypeVanCBinnenlade@option(DATA.Kenmerken.VoorwandTypeVanCBinnenlade)@id; -//local string _VoorwandTypeVanKBinnenladeOptionLabel = DATA.Kenmerken.VoorwandTypeVanKBinnenlade@id + "_" + DATA.Kenmerken.VoorwandTypeVanKBinnenlade@option(DATA.Kenmerken.VoorwandTypeVanKBinnenlade)@id; -local string _ZijwandTypeOptionLabel = DATA.Kenmerken.ZijwandType@id + "_" + DATA.Kenmerken.ZijwandType@option(DATA.Kenmerken.ZijwandType)@id; -local string _RugHoogteOptionLabel = DATA.Kenmerken.RugHoogte@id + "_" + DATA.Kenmerken.RugHoogte@option(DATA.Kenmerken.RugHoogte)@id; -local string _ProductieWijzeOptionLabel = DATA.Kenmerken.ProductieWijze@id + "_" + DATA.Kenmerken.ProductieWijze@option(DATA.Kenmerken.ProductieWijze)@id; +//local string _KleurLabel = DATA.Kenmerken.Kleur@id + "_" + DATA.Kenmerken.Kleur@option(DATA.Kenmerken.Kleur)@id; +//local string _MateriaalLabel = DATA.Kenmerken.Materiaal@id + "_" + DATA.Kenmerken.Materiaal@option(DATA.Kenmerken.Materiaal)@id; -local double MINIMUM_BREEDTE_GEWONE_LADE = 237; // Kleiner dan deze afmeting is "Smalle lade" -local boolean _IsSmalleLade = (DATA.Kenmerken.InterneBreedte < MINIMUM_BREEDTE_GEWONE_LADE); for i = 1 to len(Config.Database.Languages@options) CONFIG.Database.Languages = CONFIG.Database.Languages@option(i)@id; local string _TaalCode = CONFIG.Database.Languages.Name; - local string _InfoToepassing = ""; - local string _InfoGeleider = ""; - local string _InfoMat = ""; - local string _InfoZijwandType = ""; - local string _InfoZijstabilisering = ""; - local string _InfoOpvullijst = ""; - local string _InfoVoorwandType = ""; - local string _InfoMeenemerSet = ""; - local string _InfoVerpakking = ""; - local string _InfoRugwandMateriaal = ""; - local string _InfoRugHoogte = ""; - local string _InfoProductieWijze = ""; - local string _InfoDwarsverdeling = ""; - local string _InfoIsSmalleLade = ""; - local string _InfoNietMeeleveren = ""; + //local string _Kleur = GetLabel(_KleurLabel ; _Model; ""; _TaalCode); + //local string _Materiaal = GetLabel(_MateriaalLabel ; _Model; ""; _TaalCode); + local string _MateriaalLabel = "Materiaal_" + DATA.Kenmerken.Materiaal; + local string _KleurOptionLabel = switch DATA.Kenmerken.Materiaal + case "CF": "MatVinylFiberglassKleur_" + UI.Kenmerken.MatVinylFiberglassKleur.Value + case "AF": "MatAntislipFiberKleur_" + UI.Kenmerken.MatAntislipFiberKleur.Value + case "AZ": "MatAntislipFlockKleur_" + UI.Kenmerken.MatAntislipFlockKleur.Value + else "" + end switch; + + + local string _Kleur = GetLabel(_KleurOptionLabel; _Model; ""; _TaalCode); + local string _Materiaal = GetLabel(_MateriaalLabel ; _Model; ""; _TaalCode); + /* + local string _Kleur = ; + local string _UitsparingAfmetingen = ""; if (UI.Kenmerken.Toepassing <> "L" and UI.Kenmerken.Toepassing <> "SST") then @@ -4494,62 +4467,19 @@ if (UI.Kenmerken.GeleiderTechnologie == "TOB") then _InfoGeleider = GetLabel(_GeleiderTechnologieOptionLabel; _Model; ""; _TaalCode); end if; - - - if (UI.Kenmerken.ZijwandType == "Free") then - _InfoZijwandType = GetLabel(_ZijwandTypeOptionLabel; _Model; ""; _TaalCode); - end if; - if (UI.Kenmerken.VerpakkingType <> "V1") then _InfoVerpakking = GetLabel(_VerpakkingTypeOptionLabel; _Model; ""; _TaalCode); end if; - if (UI.Kenmerken.RugwandMateriaal == "Staal") then - _InfoRugwandMateriaal = GetLabel(UI.Kenmerken.RugwandMateriaal@id; _Model; ""; _TaalCode) + ": " + GetLabel(_RugwandMateriaalOptionLabel; _Model; ""; _TaalCode); - end if; + */ + DATA.Lijn.WinkelkarInfo(i).InfoDiverse@length = 2; - if (UI.Kenmerken.HeeftAfwijkendeRugHoogte) then - _InfoRugHoogte = GetLabel(UI.Kenmerken.RugHoogte@id; _Model; ""; _TaalCode) + ": " + GetLabel(_RugHoogteOptionLabel; _Model; ""; _TaalCode); - end if; - - if (UI.Kenmerken.ProductieWijze <> "V") then - _InfoProductieWijze = GetLabel("InfoDiverse_Enkel"; _Model; ""; _TaalCode) + " " + GetLabel(_ProductieWijzeOptionLabel; _Model; ""; _TaalCode); - end if; - - - if _IsSmalleLade then - _InfoIsSmalleLade = GetLabel("InfoDiverse_IsSmalleLade"; _Model; ""; _TaalCode); - end if; - - index j of UI.Kenmerken.NietMeeleveren - local string _Separator = ", "; - - if (_InfoNietMeeleveren == "") then - _Separator = ""; - end if; - if (UI.Kenmerken.NietMeeleveren(j).IsSelected) and (UI.Kenmerken.NietMeeleveren(j)@visible) 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 = 16; - - - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[1] = _InfoToepassing; - DATA.Lijn.WinkelkarInfo(i).InfoDiverse[2] = _InfoGeleider; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[1] = _Materiaal; + DATA.Lijn.WinkelkarInfo(i).InfoDiverse[2] = _Kleur; + /* DATA.Lijn.WinkelkarInfo(i).InfoDiverse[3] = _InfoMat; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[4] = _InfoZijwandType; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[5] = _InfoZijstabilisering; @@ -4563,12 +4493,12 @@ DATA.Lijn.WinkelkarInfo(i).InfoDiverse[13] = _InfoDwarsverdeling; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[14] = _InfoIsSmalleLade; DATA.Lijn.WinkelkarInfo(i).InfoDiverse[15] = _InfoNietMeeleveren; - + */ end for; -*/ + WinkelkarInfo - InfoDiverse - ; + ;state.winkelkarinfodiversecalculated@value; STATE.SavedAndExit or STATE.SavedAndContinue or not(BEHAVIOR.IsInteractive) or (BEHAVIOR.IsEconAx and BEHAVIOR.IsInteractive) Index: development/models/mat/MAT Configurator,1.0.0.trl =================================================================== diff -u -r2561 -r2710 --- development/models/mat/MAT Configurator,1.0.0.trl (.../MAT Configurator,1.0.0.trl) (revision 2561) +++ development/models/mat/MAT Configurator,1.0.0.trl (.../MAT Configurator,1.0.0.trl) (revision 2710) @@ -112,7 +112,7 @@