FiveTech Support Forums

Un punto mas....

Al llegar a la ventana de Cuentas Contables y no querer tomar un codigo, al darle Esc igual me agregar al Get el codigo del mismo. Como puedo evitar esto haciendo uso de la tecla Esc??

Atento a sus comentarios

Compuin wrote:Un punto mas....

Al llegar a la ventana de Cuentas Contables y no querer tomar un codigo, al darle Esc igual me agregar al Get el codigo del mismo. Como puedo evitar esto haciendo uso de la tecla Esc??

Atento a sus comentarios

Create 2 botones, 1 para ACEPTAR y llevarte la cuenta contable y otro CANCELAR para cerrar el dialogo sin pasar el valor de la cuenta contable...en ese boton evitas que se vaya el valor a la variable que retornar...

Compuin wrote:Un punto mas....

Al llegar a la ventana de Cuentas Contables y no querer tomar un codigo, al darle Esc igual me agregar al Get el codigo del mismo. Como puedo evitar esto haciendo uso de la tecla Esc??
Atento a sus comentarios

Mira si te funciona este ejemplo:

@ 3,1 GET oNumero VAR CTABCO OF oDlg SIZE 60, 10 ;
VALID CtaContab(@CTABCO,oNumero)

//-------------------------------------------
Function CtaContab(CTABCO,oNumero)
local lRet:=.f.
CTABCO:=Catalogo() //debe retornar un valor (el codigo o Empty())

if empty(CTABCO) //si no se seleccionó nada, o Escape...
CTABCO:=SPACE(XXXX) // ó 0 si es numérico
oNumero:Refresh()
lRet:=.f.

else
oNumero:Refresh()
lRet:=.t.
endif

Return lRet

Saludos