HOW ENABLE FOLDER FROM COMBOBOX

[Silvio]

Now run ...

I explain you when I select the item number 3 the procedure show the third dialog of the folder

But If I click with the mouse on the first folder or on the folder number five it make error :

Code: Select all  Expand view

Application
===========
   Path and name: C:\work\errori\fsdi2006\prg\fsdi2006.Exe (32 bits)
   Size: 2,062,848 bytes
   Time from start: 0 hours 0 mins 9 secs
   Error occurred at: 04-02-2007, 00:38:19
   Error description: Error BASE/1132  Bound error: array access
   Args:
     [   1] = A   { ... }
     [   2] = N   6

Stack Calls
===========
   Called from: folder.PRG => TFOLDER:SETOPTION(0)
   Called from: folder.PRG => TFOLDER:LBUTTONDOWN(0)
   Called from: window.prg => TWINDOW:HANDLEEVENT(0)
   Called from: CONTROL.PRG => TFOLDER:HANDLEEVENT(0)
   Called from: window.prg => _FWH(3165)
   Called from:  => DIALOGBOX(0)
   Called from: dialog.prg => TDIALOG:ACTIVATE(274)
   Called from: pcustomer.prg => INS_SOCI(1177)
   Called from: pcustomer.prg => (b)SOCI(484)
   Called from: VMenu.prg => TVMENU:EVALACTION(1722)
   Called from: VMenu.prg => TVMENU:LBUTTONUP(1423)
   Called from: window.prg => TWINDOW:HANDLEEVENT(0)
   Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
   Called from: VMenu.prg => TVMENU:HANDLEEVENT(900)
   Called from: window.prg => _FWH(3165)
   Called from:  => WINRUN(0)
   Called from: window.prg => TWINDOW:ACTIVATE(883)
   Called from: main.prg => TAPPLICATION:ACTIVATE(164)
   Called from: main.prg => MAIN(42)

[Silvio]

this is the solution

Code: Select all  Expand view


REDEFINE COMBOBOX oDat[24] VAR aDat[24] ITEMS aProfessione ID  300 OF oFld:aDialogs[2];
                                    BITMAPS { "Docente","ALUNNO","Cartella","Genitore","Esterno" } ;
                                      ON CHANGE(                       iif(oDat[24]:nat=1, oFld:aEnable := { .t., .t., .f., .t., .t., .T.},) ,;
                                                                       iif(oDat[24]:nat=2, oFld:aEnable := { .t., .t., .f., .t., .t., .T.},) ,;
                                                                       iif(oDat[24]:nat=3, oFld:aEnable := { .t., .t., .t., .t., .t., .T.},) ,;
                                                                       iif(oDat[24]:nat=4, oFld:aEnable := { .t., .t., .f., .t., .t., .T.},) ,;
                                                                       iif(oDat[24]:nat=5, oFld:aEnable := { .t., .t., .f., .t., .t., .T.},) ,;
                                                                       )