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
como alterar a CAPTION em execução?
Moderador: Moderadores
-
Fernando queiroz
- Usuário Nível 4

- Mensagens: 779
- Registrado em: 13 Nov 2014 00:41
- Localização: Porto Alegre/RS
como alterar a CAPTION em execução?
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
como alterar a CAPTION em execução?
Tenta:
Thisform:oLabel2:setText(M->DIA_EXT)
Até+
Thisform:oLabel2:setText(M->DIA_EXT)
Até+
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
-
Fernando queiroz
- Usuário Nível 4

- Mensagens: 779
- Registrado em: 13 Nov 2014 00:41
- Localização: Porto Alegre/RS
como alterar a CAPTION em execução?
Valeu muito obrigado
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
