Visual Basic.NET - Llamar reportes crystal

   
Vista:

Llamar reportes crystal

Publicado por qr1stian (29 intervenciones) el 18/01/2008 13:48:53
Hola amigos, les cuento que estoy empezando con esto de la programacion y especificamente vb 2005. Les cuento mi caso: estoy relizando una pequeña aplicacion para mostrar unos reportes que ya estan hechos en crystal reports XI (que por lo demas poseen parametros de fechas), para esto tengo el formulario que me muestra el reporte a traves del crystalreportviewer y ademas tengo otro formulario con:

Un combobox que es donde quiero elegir el formulario,

Dos datetimepicke, uno para indicar una fecha de inicio y otro para indicar la fecha final, osea que me muestre el reporte dentro de un rango de fechas.
Finalmente tengo un boton que me exportara el reporte de acuerdo a los parametros antes indicados.

Como ven ya tengo la interfaz, pero quiero ver si me pueden echar una manito con el tema del codigo, se los agradecere.

Saludos

Cristian
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:Llamar reportes crystal

Publicado por P. J. (706 intervenciones) el 18/01/2008 16:28:41
...
Pues todo bonito, solo te falta " el codigo " jeje :D

Alli te va como lo hago yo:

'IMPORTAS ESTO
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

'BOTON GENERAR REPORTE
Private Sub btnGenerarReporte_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerarReporte.Click
'DATETIMEPICKER
If Me.dtpFechaInicio.Value <= Me.dtpFechaFin.Value Then
Me.Cursor = Cursors.WaitCursor
'INSTANCIA DE TU ARCHIVO *.RPT
Dim oReporteCR As New rptInventario
Dim crParameterDiscreteValue As ParameterDiscreteValue
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldLocation As ParameterFieldDefinition
Dim crParameterValues As ParameterValues

Try
crParameterFieldDefinitions = oReporteCR.DataDefinition.ParameterFields
crParameterFieldLocation = crParameterFieldDefinitions.Item("@FINICIO")
crParameterValues = crParameterFieldLocation.CurrentValues
crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value = Format(dtpFechaInicio.Value, "yyyyMMdd").ToString
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

crParameterFieldDefinitions = oReporteCR.DataDefinition.ParameterFields
crParameterFieldLocation = crParameterFieldDefinitions.Item("@FFIN")
crParameterValues = crParameterFieldLocation.CurrentValues
crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value = Format(dtpFechaFin.Value, "yyyyMMdd").ToString
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

oReporteCR.PrintOptions.PaperSize = PaperSize.PaperFanfoldUS
'CRVCOMPRAR= CRYSTALREPORTVIEWER
crvCompras.ReportSource = oReporteCR
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical,”Error”)
End Try
Me.Cursor = Cursors.Arrow
Else
MsgBox("Verifique el rango de fechas.", MsgBoxStyle.Information, "Error Usuario")
End If
End Sub

Salu2!
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:Llamar reportes crystal

Publicado por qr1stian (29 intervenciones) el 18/01/2008 16:58:36
gracias, lo estudiare
: )
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