Ver Mensaje Individual
  #1 (permalink)  
Antiguo 26/06/2006, 23:35
JDvD
 
Fecha de Ingreso: febrero-2005
Mensajes: 11
Antigüedad: 19 años, 3 meses
Puntos: 0
Ayuda: Como obtengo datos en crystal con rangos de fechas

Buen dia...! bien directo al grano. estoy comenzando a usar crystal report 8 y me he documento "lo suficiente" para trabajar con crystal y vb6, pero ahora me sucede un problema, es el sigueinte:

Necesito generar un informe donde solo me arroje los datos que esten un rango de fecha, en este caso, con las fechas q se ingresan en dos TextBox. Cuando lo hago con solo una fecha si me aparecen los datos pero cuando lo pido con el rango de las dos fechas (desde hasta) no me sale datos ... No se si es problema de mi codigo o del reporte base. aqui le dejo el codigo a ver si me puede AYUDAR por favor.


Cita:
Sub borrard(cr1 As CrystalReport, num As Integer)

For i = 1 To num
cr1.SelectionFormula = ""
Next

For i = 1 To num
cr1.Formulas(i) = ""
Next


End Sub


Private Sub cdmimprimir_Click()

cr1.ReportFileName = "C:\JDvD AdGest\Reportes\Relecion_facturas.RPT"
cr1.WindowMaxButton = False: cr1.WindowMinButton = False
cr1.SQLQuery = "SELECT * FROM FacturaTem WHere Fecha ='" & Text1.Text & "' And '" & Text2.Text & "'"
cr1.GroupCondition(0) = "GROUP1;{FacturaTem.Fecha};ANYCHANGE;A"
cr1.SelectionFormula = "{FacturaTem.Fecha} ='" & Trim(Text1.Text) & "'and {FacturaTem.Fecha} ='" & Trim(Text2.Text) & "'"
cr1.WindowState = crptMaximized
cr1.Destination = crptToWindow
cr1.DiscardSavedData = True
cr1.Action = 0
borrard cr1, 1
End Sub