Crystal Report - listado agrupado

 
Vista:

listado agrupado

Publicado por Gabi (1 intervención) el 23/07/2007 18:45:29
Hola, tengo un listado confeccionado en crystal report pero la cuestión es que me gustaría que el mismo me preguntara la fecha de la que quiero que me saque los datos. Estoy haciendo unos informes para un cliente y digamos que el listado debe sacar todas las facturas de ese cliente de una fecha que el programa me debe preguntar a mi, de modo que para abrir el informe, me debería preguntar la fecha y la empresa ¿es esto posible? ¿con qué funcion?

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:listado agrupado

Publicado por turito64 (5 intervenciones) el 23/07/2007 20:29:12
esto se hace con un parametro

creas un parametro con el recuadro insert fields te vas al dato parametros le das new luego escribes de que fecha quieres.. luego te pide la opcion values types y le das date time. luego aceptar y ese parametro lo pegas a tu reporte.

luego le das selec expert y seleccionas el campo de fecha y le das

is iqual to = el parametro que escribiste. como nombre

para tener dos fechas una inicial y una final creas dos parametros de fecha

y a esos parametros de fecha le pones is betwen = y escoges esos parametros.

para la empresa que vas a escoger la misma operacion solo que al valorar el parametro le pones string por default.

si tienes duda ahi esta mi hotmail.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:listado agrupado

Publicado por Miguel (1 intervención) el 03/08/2007 20:38:06
Mira: te mando este ejemplo que se puede adaptar a cualquier reporte, tienes que tener en el CrystalReport creado un campo fecha, espero que te sirva.
Le agregué clave a la base de datos así que también va el ejemplo agregado.

Private Sub mnulistadofechas_Click()
fi = InputBox("Listar Fecha de :", "Fecha Inicial")
ff = InputBox("Listar Fecha hasta:", "Fecha final")
desde = CDate(fi)

hasta = CDate(ff)
di = Str(Day(desde))
mi = Str(Month(desde))
ai = Str(Year(desde))

df = Str(Day(hasta))
mf = Str(Month(hasta))
af = Str(Year(hasta))

vi = "date(" & ai & "," & mi & "," & di & ")"
vf = "date(" & af & "," & mf & "," & df & ")"

Report1.WindowState = crptMaximized
Report1.WindowMaxButton = True
Report1.WindowMinButton = True
Report1.WindowTitle = "LISTADO DE LICENCIAS"
Report1.ReportFileName = App.Path & "\listadouno.rpt"
Report1.Connect = ";pwd=miguel12"

'Report1.Action = 1

filtro = "{LICENCIAS.FECHAINICIO}>=" & vi & " and {LICENCIAS.FECHAINICIO}<= " & vf
Report1.SelectionFormula = filtro
Report1.Action = 1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar