SetColumn en un datawindowcontrol
Publicado por Paco Monge (16 intervenciones) el 29/11/2012 19:35:49
Hola a todos,
Llevo unos dias intentando apañar un pequeño problemilla y no termino de encontrar una solución. A ver si alguien podría echarme una mano.
Tengo un datawindowcontrol (dwc_nuevocliente) con su datawindow (dw_nuevocliente).
En este datawindow hay varios campos: id_cliente, cliente, direccion, etc...
El id_cliente es automático y el llenado de campos para el usuario empieza en "cliente"
Cuando el usuario rellena el campo y pulsa tabulador para pasar al siguiente registro "direccion", si el nombre de "cliente" no es valido le muestra un mensaje.
A partir de aqui, lo que no consigo el que automaticamente vuelva al registro "nombre_cliente".
Tengo el siguiente código en el Itemchanged del dwc_nuevocliente:
IF (condicion de validacion) THEN
MessageBox("Mensaje","Revise el dato introducido.",Information!,Ok!)
dwc_nuevocliente.SetColumn(1)
dwc_nuevocliente.SetFocus()
cb_guardardatos.enabled = FALSE
ELSE...
END IF
He probado otras opciones...
dwc_nuevocliente.SetColumn('cliente')
dwo.SetColumn(2)
dwo.SetColumn('cliente')
¿ Alguna idea de que puede estar fallando ?
Muchas gracias y un saludo
Paco
Llevo unos dias intentando apañar un pequeño problemilla y no termino de encontrar una solución. A ver si alguien podría echarme una mano.
Tengo un datawindowcontrol (dwc_nuevocliente) con su datawindow (dw_nuevocliente).
En este datawindow hay varios campos: id_cliente, cliente, direccion, etc...
El id_cliente es automático y el llenado de campos para el usuario empieza en "cliente"
Cuando el usuario rellena el campo y pulsa tabulador para pasar al siguiente registro "direccion", si el nombre de "cliente" no es valido le muestra un mensaje.
A partir de aqui, lo que no consigo el que automaticamente vuelva al registro "nombre_cliente".
Tengo el siguiente código en el Itemchanged del dwc_nuevocliente:
IF (condicion de validacion) THEN
MessageBox("Mensaje","Revise el dato introducido.",Information!,Ok!)
dwc_nuevocliente.SetColumn(1)
dwc_nuevocliente.SetFocus()
cb_guardardatos.enabled = FALSE
ELSE...
END IF
He probado otras opciones...
dwc_nuevocliente.SetColumn('cliente')
dwo.SetColumn(2)
dwo.SetColumn('cliente')
¿ Alguna idea de que puede estar fallando ?
Muchas gracias y un saludo
Paco
Valora esta pregunta


0