• Jueves 28 de Marzo de 2024, 17:36

Autor Tema:  filtro en CRrpt8 + VB 6  (Leído 1291 veces)

nelsonf

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
filtro en CRrpt8 + VB 6
« en: Martes 1 de Julio de 2008, 15:33 »
0
Hola; alguien me puede decir si esto es soportado por crystal, ya que logicamente creo está correcto;

esto está en el codigo desde vb6 y uso CRpt8

La idea es mostrar todos los registros cuya ( fechaBaja sea > fechaI ó fechabaja=01-01-2000 ) y sucedidadas algunas de estas condiciones si o sí se debe cumplir en simultaneo con algunade las anteriores que Fecha<= Fechai

GRACIAS DESDE YA

Nelson
- - - - - - - -- -- -- -- -- - - --- - -- -- - -- --- --- -- -------- -- -

FechaI = Format(Fecha1.text, "dd/mm/yyyy")
FechaF = Format("01/01/2000", "dd/mm/yyyy")


filtro_fecha1 = "({Stock_inicial.fechaBaja}> Date(" & Year(FechaI) & "," & Month(FechaI) & "," & Day(FechaI) & ")"

filtro_fecha2 = " or {Stock_inicial.fechaBaja}= Date (" & Year(FechaF) & "," & Month(FechaF) & "," & Day(FechaF) & "))"

filtro_fecha = " and {Stock_inicial.fecha}<= Date(" & Year(FechaI) & "," & Month(FechaI) & "," & Day(FechaI) & ")"

CrystalSTOCK.SelectionFormula = filtro_fecha1 + filtro_fecha2 + filtro_fecha