Updating a variable during a GET

[HunterEC]

Guys:

In this piece of code:

Code: Select all  Expand view

@ 10,45 GET oGets[1] VAR adDates[1]        OF oDlg SIZE 40,10 PIXEL ;
              PICTURE "D" CENTER ;
              VALID EVAL({|| adDates[2] := adDates[1], .T.})
          @ 25,45 GET oGets[2] VAR adDates[2]        OF oDlg SIZE 40,10 PIXEL ;
              PICTURE "D" CENTER
          @ 40,45 GET oGets[3] VAR anRxs[1]          OF oDlg SIZE 25,10 PIXEL ;
              PICTURE "@Z 9999999" VALID anRxs[1] >= 0 RIGHT
 

When I get to the second GET (adDates[2]) it do not show the updated field. After going to the
third get and going back to the second get (adDates[2]), the field shows the new value.

What I'm doing wrong ?

Thank you.

[kok joek hoa]

Dear HunterEC,

Try this :

Code: Select all  Expand view

@ 10,45 GET oGets[1] VAR adDates[1]        OF oDlg SIZE 40,10 PIXEL ;
              PICTURE "D" CENTER ;
              VALID  ( adDates[2] := adDates[1] ,;
                       oGets[2]:varget()        ,;
                       oGets[2]:refresh()       ,;
                       .T.                       ;
                     )  
       
        @ 25,45 GET oGets[2] VAR adDates[2]        OF oDlg SIZE 40,10 PIXEL ;
              PICTURE "D" CENTER

        @ 40,45 GET oGets[3] VAR anRxs[1]          OF oDlg SIZE 25,10 PIXEL ;
              PICTURE "@Z 9999999" VALID anRxs[1] >= 0 RIGHT
 

regards,

Kok

[HunterEC]

Kok:

Thank you very much. It worked as expected.

Gustavo

[James Bott]

Or, you can use the UPDATE clause on all your GETs.

Regards,
James