refresh on get

[Silvio]

I not found the error for this simply test

I want refresh the oget[1]

but it make error

Code: Select all

Function Test()
LOCAL oDlg
Local cPassw:=space(20)
Local nLunghezza :=6
Local aGet[2]
DEFINE DIALOG oDlg ;
TITLE " GENERATE RANDOM PASSWORD"

@ 2,1 SAY " Password :" OF oDlg
@ 2,7 GET   aGet[1] VAR cPassw  OF oDlg SIZE 40,10   UPDATE

@ 4,1 SAY " Lunghezza:" OF oDlg
@ 4,7 GET  aGet[2] VAR nLunghezza    SIZE 16,10 SPINNER  MIN 1 MAX 20  OF oDlg PICTURE "99"


@ 2,17 BUTTON "..." SIZE 10,10 OF oDlg ACTION Genera_Password(nLunghezza,cPassw,aGet[1])

ACTIVATE DIALOG oDlg ;
on INIT aGet[2]:nHeight:=21.4
RETURN NIL


Function Genera_Password(nLarghezza,cPassw,aGet)

   LOCAL cPass := ""
   LOCAL aPwd := {}
   LOCAL n, c, i, lRet := .T.

  cPass:="eee"



   aGet[1]:cText :=alltrim( cPass)
   aGet[1]:refresh()

  RETURN NIL

[kok joek hoa]

Dear Silvio,

You must define array for aGet , like :

local aGet := array(2)


regards,

Kok Joek Hoa

[Daniel Garcia-Gil]

Silvio...

Genera_Password(nLunghezza,cPassw,aGet)

or this way

aGet:cText :=alltrim( cPass)
aGet:refresh()

[Silvio]

thanks sorry
I made a mistake

it was Genera_Password(nLunghezza,cPassw,aGet)

and then aget[1]:ctext...

here is too hot , my head explodes sometime especially when I'm at school with my pupils