TEXTBOX VER O VALOR QUE ENTRO NO VALUE

[joaovargas]

eu estou desenvolvendo um programa que e contas a pagar e tenho um textbox nao to conseguindo ver o retorno do que eu entrei no value...
@ 160,140 TEXTBOX T_DATA_PAG ;
OF Form_2 ;
WIDTH 100 ;
value cdata_pag ;
DATE ;
ON ENTER Form_2.T_PERIODICID.SetFocus
queria ver o que tem em cdata_pag antes de passar p o proximo textbox
joaovargas
Usuário Nível 1
Usuário Nível 1

Mensagens: 2
Data de registro: 07 Mar 2011 15:39
Cidade/Estado: piratini rs

[HASA]

Bom dia, não está claro mas... acho que o que quer é isso:

IIF( Form_2.T_PERIODICID.cdata_pag.VALUE = CTOD(""), FAZ ISSO, FAZ AQUILO )

HASA

[joaovargas]

cdata_pag:=data_pag ///campo do banco de dados

na verdade eu quero que quando o campo data_pag for vazio carregue a data corrente e mostre no textbox no cdata_pag

[Claudio Souza]

primeiro um exemplo


DEFINE WINDOW menuusuario;
ROW 0 ;
COL 0 ;
WIDTH 1020;
HEIGHT 800;
TITLE 'teste'

@ 120, 250 TEXTBOX nomepesquisa;
WIDTH 200;
MAXLENGTH 50

menuusuario.nomepesquisa.value:=dtoc(data_pag)
if empty(menuusuario.nomepesquisa.value)
menuusuario.nomepesquisa.value:=dtoc(date())
endif

END WINDOW
menuusuario.Center
menuusuario.Activate

séria isso ?

[joaovargas]

ja resolvi....obrigado....