duvida simples com foco?
Enviado: 01 Nov 2014 19:20
Boa tarde, seguinte, quando o usuario por ventura zerar o key de um registro, na validação eu testo ele
e gostaria de buscar o ultimo codigo + 1, que a rotina oRotas>ProximoCodigo() ja faz
ERRO = Invalid lvalue ()
ja tentei substituir a linha por
na tela fica assim
e gostaria de buscar o ultimo codigo + 1, que a rotina oRotas>ProximoCodigo() ja faz
Código: Selecionar todos
If Frm_Rotas.T_Codigo.Value = 0
MsgSTOP("Informe o código da Rotas","Rotas")
Frm_Rotas.T_Codigo.Value = str(oRotas:ProximoCodigo(),6) --> aqui da o erro de compilação
Frm_Rotas.T_Codigo.SetFocus
Return .f.
Endif
ja tentei substituir a linha por
Código: Selecionar todos
cCodigo:= str(oRotas:ProximoCodigo(),6)
Código: Selecionar todos
@ Lpg+010,080 TEXTBOX T_Codigo ;
WIDTH 60 ;
VALUE cCodigo ;
FONT 'Arial' SIZE 09 ;
FONTCOLOR BLACK BOLD ;
TOOLTIP 'Código da Rota' ;
NUMERIC INPUTMASK "999999" ;
ON LOSTFOCUS Carrega_Rotas(0)