Antes, especificamos los campos que seran validados con sus respectivos mensajes, para eso entramos en modo diseño en el DataWindow.
Seleccionamos el campo a validar, luego seleccionamos la propiedad required que se encuentra en la pestaña Edit
Nos desplazamos en la lista de de columnas y escribimos el mensaje que deseamos que se muestre en el mensaje de validación.
Ahora si, estamos listos para escribir el código de validación.
long ll_row //Almacena la fila en donde se encuentra el campo con valor null. integer li_columna //Almacena el numero de columna con valor null. string ls_colname //Almacena el string ls_columna //Almacena el mensaje de validación de la columna. dw_1.AcceptText() ll_row=1 li_columna = 0 dw_1.FindRequired(Primary!,ll_row, li_columna,ls_colname, True) IF ll_row <> 0 THEN dw_1.SetColumn(li_columna) dw_1.ScrollToRow(ll_row) //Obtenemos el mensaje de validación obtenido. ls_columna= dw_1.describe(ls_colname+'.ValidationMsg') //Quitamos las comillas del mensaje de validación. ls_columna=left(ls_columna,len(ls_columna)-1) ls_columna=mid(ls_columna,2,len(ls_columna)) dw_1.SetFocus() //Mostramos el mensaje de validación. messagebox("Verifique",ls_columna,Exclamation!) END IF |
¿Dudas?, ¿Comentarios?.
No hay comentarios:
Publicar un comentario