Index: development/models/mat/MAT Configurator,1.0.0.xml =================================================================== diff -u -r2537 -r2540 --- development/models/mat/MAT Configurator,1.0.0.xml (.../MAT Configurator,1.0.0.xml) (revision 2537) +++ development/models/mat/MAT Configurator,1.0.0.xml (.../MAT Configurator,1.0.0.xml) (revision 2540) @@ -248,10 +248,10 @@ - + - + @@ -270,7 +270,7 @@ - + - + - + - + - + - + @@ -750,7 +750,7 @@ - + @@ -767,12 +767,12 @@ - + - + @@ -3060,7 +3059,7 @@ UI.Kenmerken.UitsparingData.Z1.UitsparingCode@option("B124")@visible = (_IsTaxlade and _IsSifonLade); -UI.Kenmerken.UitsparingData.Z1.UitsparingCode@option("B160")@visible = ((_IsMvxlade or _IsLbxlade or _IsTbxlade) and _IsSifonLade); +UI.Kenmerken.UitsparingData.Z1.UitsparingCode@option("B160")@visible = ((_IsMvxlade or _IsLbxlade) and _IsSifonLade); UI.Kenmerken.UitsparingData.Z1.UitsparingCode@option("B274")@visible = (_IsTaxlade and _IsSifonLade); UI.Kenmerken.UitsparingData.Z1.UitsparingCode@option("B300")@visible = ((_IsMvxlade or _IsLbxlade) and _IsSifonLade); UI.Kenmerken.UitsparingData.Z1.UitsparingCode@option("B350")@visible = (_IsMvxlade and _IsSifonLade); @@ -3120,39 +3119,15 @@ _UitsparingDataXEnabled = false; _UitsparingDataYEnabled = false; end if; - /* - if (DATA.kenmerken.LadeToepassing == "SY") then - - end if; - */ end if; -/* -if (DATA.Kenmerken.LadeType == "Tandembox") then - _UitsparingDataXEnabled = false; - _UitsparingDataMEnabled = false; - _UitsparingDataYEnabled = false; - _UitsparingDataZ1Enabled = false; - _UitsparingDataZ2Enabled = false; - _UitsparingDataDiepteEnabled = false; -end if; -*/ UI.Kenmerken.UitsparingData.X.Breedte@enabled = _UitsparingDataXEnabled; UI.Kenmerken.UitsparingData.M.Breedte@enabled = _UitsparingDataMEnabled; UI.Kenmerken.UitsparingData.Y.Breedte@enabled = _UitsparingDataYEnabled; UI.Kenmerken.UitsparingData.Z1.Breedte@enabled = _UitsparingDataZ1Enabled; UI.Kenmerken.UitsparingData.Z2.Breedte@enabled = _UitsparingDataZ2Enabled; UI.Kenmerken.UitsparingData.Diepte.Diepte@enabled = _UitsparingDataDiepteEnabled; - - - -/* _UitsparingDataXEnabled = false; - _UitsparingDataMEnabled = false; - _UitsparingDataYEnabled = false; - _UitsparingDataZ1Enabled = false; - _UitsparingDataZ2Enabled = false; - _UitsparingDataDiepteEnabled = false; - */ + Enabled ;ui.kenmerken.uitsparingdata.x.breedte@enabled;ui.kenmerken.uitsparingdata.m.breedte@enabled;ui.kenmerken.uitsparingdata.y.breedte@enabled;ui.kenmerken.uitsparingdata.z1.breedte@enabled;ui.kenmerken.uitsparingdata.z2.breedte@enabled;ui.kenmerken.uitsparingdata.diepte.diepte@enabled; @@ -3211,33 +3186,7 @@ DATA.Kenmerken.UitsparingData.Z2.UitsparingCode = UI.Kenmerken.UitsparingData.Z2.UitsparingCode; end if; -if (DATA.Kenmerken.LadeType in {"LegraboxPure";"LegraboxFree"}) then - if (DATA.kenmerken.LadeToepassing == "SP") then - DATA.Kenmerken.UitsparingData.X.Breedte = 158; - DATA.Kenmerken.UitsparingData.Y.Breedte = 158; - end if; -end if; -/* -if (DATA.Kenmerken.LadeType == "Merivobox") then - -end if; -*/ -if (DATA.Kenmerken.LadeType == "Tandembox") then - if (DATA.kenmerken.LadeToepassing == "SY") then - DATA.Kenmerken.UitsparingData.Z1.Breedte = 160; - DATA.Kenmerken.UitsparingData.Z2.Breedte = 160; - end if; - /* - if (DATA.kenmerken.LadeToepassing == "SP") then - DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(DATA.kenmerken.LadeDiepte) - 150; - end if; - */ -end if; -/* -if (DATA.Kenmerken.LadeType == "Taorbox") then - -end if; -*/ + if (DATA.kenmerken.LadeToepassing == "SP") then DATA.Kenmerken.UitsparingData.UitsparingAantal = "Enkel"; end if; @@ -3295,6 +3244,41 @@ DATA.Kenmerken.UitsparingData.Z1.Diepte = 450; end switch; +if (DATA.Kenmerken.LadeType in {"LegraboxPure";"LegraboxFree"}) then + if (DATA.kenmerken.LadeToepassing == "SP") then + DATA.Kenmerken.UitsparingData.X.Breedte = 158; + DATA.Kenmerken.UitsparingData.Y.Breedte = 158; + //DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(DATA.kenmerken.LadeDiepte); //Als deze lijn actief staat komen we in een oneindige lop en krijgen we een melding in de UI. Betere optie is om de diepte bij MBX SP pas bij het afsluiten correct in te vullen. + end if; + + if (DATA.kenmerken.LadeToepassing == "SY") then + DATA.Kenmerken.UitsparingData.Z1.Diepte = 240; + end if; +end if; + +if (DATA.Kenmerken.LadeType == "Merivobox") then + if (DATA.kenmerken.LadeToepassing == "SY") then + DATA.Kenmerken.UitsparingData.Z1.Diepte = 240; + end if; +end if; + +if (DATA.Kenmerken.LadeType == "Tandembox") then + if (DATA.kenmerken.LadeToepassing == "SY") then + DATA.Kenmerken.UitsparingData.Z1.Breedte = 160; + DATA.Kenmerken.UitsparingData.Z2.Breedte = 160; + DATA.Kenmerken.UitsparingData.Z1.Diepte = 240; + end if; + + if (DATA.kenmerken.LadeToepassing == "SP") then + DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(DATA.kenmerken.LadeDiepte) - 150; + end if; +end if; +/* +if (DATA.Kenmerken.LadeType == "Taorbox") then + +end if; +*/ + local string _VorigeLadeTypeLadeToepassing = UI.PropertiesEnkelVoorInCodeVanRules.VorigeLadeTypeLadeToepassing; local string _HuidigLadeTypeLadeToepassing = DATA.Kenmerken.LadeType + DATA.Kenmerken.LadeToepassing; local boolean _IsLadeTypeOfLadeToepasingGewijzigd = (_HuidigLadeTypeLadeToepassing <> _VorigeLadeTypeLadeToepassing) @@ -3334,28 +3318,11 @@ if (STATE.DataKenmerkenInvullenVia == "DefaultenOnExit") then if ($UitsparingPane@visible) then - if ((DATA.Kenmerken.LadeType == "Merivobox") and (DATA.Kenmerken.LadeToepassing == "SY")) then - DATA.Kenmerken.UitsparingData.Z1.Diepte = 240; + + if ((DATA.Kenmerken.LadeToepassing == "SP") and (DATA.Kenmerken.LadeType in {"LegraboxPure";"LegraboxFree"})) then + DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(DATA.kenmerken.LadeDiepte); end if; - if ((DATA.Kenmerken.LadeType in {"LegraboxPure";"LegraboxFree"}) and (DATA.Kenmerken.LadeToepassing == "SY")) then - if (DATA.kenmerken.LadeToepassing == "SP") then - DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(DATA.kenmerken.LadeDiepte); - end if; - if (DATA.kenmerken.LadeToepassing == "SY") then - DATA.Kenmerken.UitsparingData.Z1.Diepte = 240; - end if; - end if; - - if (DATA.Kenmerken.LadeType == "Tandembox") then - if (DATA.kenmerken.LadeToepassing == "SP") then - DATA.Kenmerken.UitsparingData.Z1.Diepte = CDbl(DATA.kenmerken.LadeDiepte) - 150; - end if; - if (DATA.kenmerken.LadeToepassing == "SY") then - DATA.Kenmerken.UitsparingData.Z1.Diepte = 240; - end if; - end if; - if (DATA.kenmerken.LadeToepassing == "SY") then DATA.Kenmerken.Uitsparingdata.Z1.Uitsparingcode = "SY_" + "Recht_" + "D" + Cstr(DATA.Kenmerken.UitsparingData.Z1.Diepte) + "_B" + Cstr(DATA.Kenmerken.UitsparingData.Z1.Breedte); if (DATA.Kenmerken.UitsparingData.UitsparingAantal == "Dubbel") then @@ -4220,19 +4187,6 @@ Gather constraint messages for decision table DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeToepassing,DATA.Kenmerken.LadeType@Valids ; - - true - UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode@valids = ConstrainedOptions("DATA.Kenmerken.LadeToepassing,DATA.Kenmerken.LadeType,UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode@Valids"; "UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode"; "DATA.Kenmerken.LadeToepassing"; DATA.Kenmerken.LadeToepassing; "DATA.Kenmerken.LadeType"; DATA.Kenmerken.LadeType); - - Applying constraints for property UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode - ;ui.kenmerken.uitsparingdata.diepte.uitsparingcode@valids; - - - ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeToepassing,DATA.Kenmerken.LadeType,UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode@Valids") - ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeToepassing,DATA.Kenmerken.LadeType,UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode@Valids") - Gather constraint messages for decision table DATA.Kenmerken.LadeToepassing,DATA.Kenmerken.LadeType,UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode@Valids - ; - true DATA.Kenmerken.LadeToepassing@valids = ConstrainedOptions("DATA.Kenmerken.LadeDiepte,DATA.Kenmerken.LadeToepassing,DATA.Kenmerken.LadeType@Valids;DATA.Kenmerken.LadeToepassing,DATA.Kenmerken.LadeType,UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode@Valids;DATA.Kenmerken.LadeToepassing,DATA.Kenmerken.LadeType@Valids;DATA.Kenmerken.LadeToepassing,DATA.Kenmerken.UitsparingData.UitsparingAantal@Valids"; "DATA.Kenmerken.LadeToepassing"; "DATA.Kenmerken.LadeDiepte"; DATA.Kenmerken.LadeDiepte; "DATA.Kenmerken.LadeType"; DATA.Kenmerken.LadeType; "DATA.Kenmerken.UitsparingData.UitsparingAantal"; DATA.Kenmerken.UitsparingData.UitsparingAantal; "UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode"; UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode); @@ -4247,6 +4201,19 @@ Applying constraints for property DATA.Kenmerken.LadeType ;data.kenmerken.ladetype@valids; + + true + UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode@valids = ConstrainedOptions("DATA.Kenmerken.LadeToepassing,DATA.Kenmerken.LadeType,UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode@Valids"; "UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode"; "DATA.Kenmerken.LadeToepassing"; DATA.Kenmerken.LadeToepassing; "DATA.Kenmerken.LadeType"; DATA.Kenmerken.LadeType); + + Applying constraints for property UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode + ;ui.kenmerken.uitsparingdata.diepte.uitsparingcode@valids; + + + ConstraintsNotSatisfiedFor("DATA.Kenmerken.LadeToepassing,DATA.Kenmerken.LadeType,UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode@Valids") + ConstraintsErrorMessagesFor("DATA.Kenmerken.LadeToepassing,DATA.Kenmerken.LadeType,UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode@Valids") + Gather constraint messages for decision table DATA.Kenmerken.LadeToepassing,DATA.Kenmerken.LadeType,UI.Kenmerken.UitsparingData.Diepte.Uitsparingcode@Valids + ; + @@ -4761,7 +4728,6 @@ - @@ -4940,7 +4906,7 @@ - AgEBAAAAAAADBQEAAAAAAAIBAgAAAAAAAgEDAAAAAAADBQUAAAAAAAMFBgAAAAAAAwUHAAAAAAA= + AwUBAAAAAAADBQUAAAAAAAMFBgAAAAAAAwUHAAAAAAA=