Anónimo
Problemas con evento itemchanged
Buenas tardes.
Hice esto para ingresar fechas con hasta 4 días antes de la fecha actual..
CASE "f_desde"
li_da = daysafter( Date(This.object.f_desde [ll_row]), today())
IF li_da >4 THEN
MessageBox("Ingreso de informacion", "Fecha fuera del límite permitido")
This.object.f_desde [ll_row] = ld_null
Return 1
END IF
funciona correctamente...pero ahora mi dolor de cabeza es hacer que se pueda ingresar fechas de hasta 4 dias despues de la fecha actual. Alguien puede ayudarme con esto?.
Atento a sus comentarios.
Saludos,
Hice esto para ingresar fechas con hasta 4 días antes de la fecha actual..
CASE "f_desde"
li_da = daysafter( Date(This.object.f_desde [ll_row]), today())
IF li_da >4 THEN
MessageBox("Ingreso de informacion", "Fecha fuera del límite permitido")
This.object.f_desde [ll_row] = ld_null
Return 1
END IF
funciona correctamente...pero ahora mi dolor de cabeza es hacer que se pueda ingresar fechas de hasta 4 dias despues de la fecha actual. Alguien puede ayudarme con esto?.
Atento a sus comentarios.
Saludos,
Respuesta de Jose Violeta
Ponlo así en el evento editchanged de tu datawindow
choose case dwo.name
case 'f_desde'
this.accepttext( )
date ld_fecha
long ll_fecha
ld_fecha = date(object.f_desde[1])
ll_fecha = daysafter(ld_fecha,today())
if ll_fecha < 5 and ll_fecha> -5 then
else
f_mensaje('',string(ll_fecha)+'fecha fuera del limite')
end if
END CHOOSE
No te olvides de cerrar la pregunta ..
choose case dwo.name
case 'f_desde'
this.accepttext( )
date ld_fecha
long ll_fecha
ld_fecha = date(object.f_desde[1])
ll_fecha = daysafter(ld_fecha,today())
if ll_fecha < 5 and ll_fecha> -5 then
else
f_mensaje('',string(ll_fecha)+'fecha fuera del limite')
end if
END CHOOSE
No te olvides de cerrar la pregunta ..