tenho a seguinte tela e quero alterar a CAPTION do oLabel2 quando for alterada a data no dDatepicker1.
@ 100,59 GET DATEPICKER oDatepicker1 VAR dDatepicker1 SIZE 183,40 ;
FONT HFont():Add( 'Verdana',0,-21,700,,,) ;
ON CHANGE {|| oDatepicker1_onChange( ) }
@ 23,108 SAY oLabel2 CAPTION "" SIZE 341,26 ;
STYLE SS_CENTER ;
FONT HFont():Add( 'Verdana',0,-16,400,,,)
estou fazendo assim mas nao esta funcionando
STATIC FUNCTION oDatepicker1_onChange
M->SEM_ANA := "DomingoSegundaTerca Quarta Quinta Sexta Sábado "
M->DIA_EXT := TRIM( SUBS( M->SEM_ANA, DOW( dDatepicker1 ) * 7 - 6 , 7 ) ) +;
", " + ALLTRIM( STR (DAY( dDatepicker1 ), 2 ) )
M->ME_SES := "Janeiro FevereiroMarço Abril Maio Junho " +;
"Julho Agosto Setembro Outubro Novembro Dezembro "
M->DIA_EXT += " de " + TRIM( SUBS( ME_SES, MONTH( dDatepicker1 ) * 9 - 8 , 9 ) ) +;
" de " + TRAN( YEAR( M->DAT_HOJE ), "@E 9999" )
M->DIA_EXT += " de " + TRIM( SUBS( ME_SES, MONTH( dDatepicker1 ) * 9 - 8 , 9 ) ) + " de " + TRAN( YEAR( dDatepicker1 ), "@E 9999" )
Thisform:oLabel2:Title :=M->DIA_EXT
Thisform:oLabel2:Release()
RETURN .T.
Alguem da uma dica de onde esta o erro?
ja tentei assim Thisform:oLabel2:Caption :=M->DIA_EXT mas da erro de execução