Validar datawindow
Experto tengo el siguiente problema al momento de ingresr un dato al registro la cual tiene el datawindows necesito validar los datos ya existentes. La idea que me envíe un mensaje si se encuentran la misma linea de datos en el datawindows y cancelar el registro si es haci, bueno si tienes alguna idea como lo puedo hacerlo te lo agradecería, de antemo muchas gracias.
1 Respuesta
Respuesta de carloscharly
1
Ok mira imaginemos algo simple:
Tienes un dw enlasado a una tabla EMPLEADO que tien los siguientes campos
Empleado
---------
Código
Nombres
Apellidos
Se supone que el código que ingreses no se debe repetir ok ahora veamos,,,
Solamente validaremos el código y nombre(este por supuesto es inesesario porque los nombres se pueden repetir solo lo use para el ejemplo)
En el ItemChanged del DW
string ls_cod,ls_nom,ls_ape
integer li_existe
if dwo.name='Codigo' then
ls_cod=this.gettext()
select count(*) into :li_existe
from EMPLEADO
where Codigo=:ls_cod;
if li_existe<>0 then
messagebox("Mensaje","El codigo ingresado ya existe")
end if
elseif dwo.name='Nombres' then
ls_nom=this.gettext()
select count(*) into :li_existe
from EMPLEADO
where Nombres=:ls_nom;
if li_existe<>0 then
messagebox("Mensaje","El nombre ingresado ya existe")
end if
end if
Asi sucesivamente segun la cantidad de datos q necesitas validar;
Tienes un dw enlasado a una tabla EMPLEADO que tien los siguientes campos
Empleado
---------
Código
Nombres
Apellidos
Se supone que el código que ingreses no se debe repetir ok ahora veamos,,,
Solamente validaremos el código y nombre(este por supuesto es inesesario porque los nombres se pueden repetir solo lo use para el ejemplo)
En el ItemChanged del DW
string ls_cod,ls_nom,ls_ape
integer li_existe
if dwo.name='Codigo' then
ls_cod=this.gettext()
select count(*) into :li_existe
from EMPLEADO
where Codigo=:ls_cod;
if li_existe<>0 then
messagebox("Mensaje","El codigo ingresado ya existe")
end if
elseif dwo.name='Nombres' then
ls_nom=this.gettext()
select count(*) into :li_existe
from EMPLEADO
where Nombres=:ls_nom;
if li_existe<>0 then
messagebox("Mensaje","El nombre ingresado ya existe")
end if
end if
Asi sucesivamente segun la cantidad de datos q necesitas validar;
