VALIDAR FILTRO EN CRYSTAL
Publicado por alejandro (11 intervenciones) el 01/02/2007 19:17:51
Hola:
Tengo un filtro de fechas que funciona correctamente....pero mi problema es como validar este filtro si el rango de fechas es vacío.....la idea es que me envíe un mensaje diciendo que no hay fechas entre ese rango
el codigo es el siguiente:
Primera = CDate(Texto(0).Text) ' texto(0)-----> fecha 1
Ultima = CDate(Texto(1).Text) 'texto(1)------> fecha 2
Dia1 = Day(Primera)
Mes1 = Month(Primera)
Agno1 = Year(Primera)
Dia2 = Day(Ultima)
Mes2 = Month(Ultima)
Agno2 = Year(Ultima)
CrxReport.RecordSelectionFormula = "{compras.fechacompra} in Date(" & Agno1 & "," & Mes1 & "," & Dia1 & ") to Date(" & Agno2 & "," & Mes2 & "," & Dia2 & ")"
Disp_Salida.Show
Disp_Salida.CRViewer1.ReportSource = CrxReport
Disp_Salida.CRViewer1.ViewReport
BUENO ESO HASTA PRONTO
Tengo un filtro de fechas que funciona correctamente....pero mi problema es como validar este filtro si el rango de fechas es vacío.....la idea es que me envíe un mensaje diciendo que no hay fechas entre ese rango
el codigo es el siguiente:
Primera = CDate(Texto(0).Text) ' texto(0)-----> fecha 1
Ultima = CDate(Texto(1).Text) 'texto(1)------> fecha 2
Dia1 = Day(Primera)
Mes1 = Month(Primera)
Agno1 = Year(Primera)
Dia2 = Day(Ultima)
Mes2 = Month(Ultima)
Agno2 = Year(Ultima)
CrxReport.RecordSelectionFormula = "{compras.fechacompra} in Date(" & Agno1 & "," & Mes1 & "," & Dia1 & ") to Date(" & Agno2 & "," & Mes2 & "," & Dia2 & ")"
Disp_Salida.Show
Disp_Salida.CRViewer1.ReportSource = CrxReport
Disp_Salida.CRViewer1.ViewReport
BUENO ESO HASTA PRONTO
Valora esta pregunta
0