• Martes 21 de Mayo de 2024, 08:55

Autor Tema:  Crystal Report  (Leído 918 veces)

rgfernandez

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Crystal Report
« en: Viernes 16 de Junio de 2006, 17:34 »
0
Tengo un reporte en crystal que contiene un subReporte! como puedo en asp.Net asignarle el fuente de datos.

Cuando diseñe el reporte en crystal le asigne las fuentes de datos. Pero me gustaria desde el codigo en asp asignarlos en tiempo de ejecucion !!!

aqui el codigo donde llamo el reporte en mi .aspx

Dim rptAFEnew As ReportDocument
Dim reportPath As String = Server.MapPath("Reports/rptAFEprint.rpt")
Dim pCia As New CrystalDecisions.Shared.ParameterField
Dim pLocalidad As New CrystalDecisions.Shared.ParameterField
Dim pAFE As New CrystalDecisions.Shared.ParameterField
Dim pEmpresa As New CrystalDecisions.Shared.ParameterField
Dim pCiaValue As New CrystalDecisions.Shared.ParameterDiscreteValue
Dim pLocalidadValue As New CrystalDecisions.Shared.ParameterDiscreteValue
Dim pAFEValue As New CrystalDecisions.Shared.ParameterDiscreteValue
Dim pEmpresaValue As New CrystalDecisions.Shared.ParameterDiscreteValue
Dim parametros As New CrystalDecisions.Shared.ParameterFields

currCompania = Session("sCompania")
currLocalidad = Session("sLocalidad")
currUsuario = Session("sUsuario")
If Not Page.IsPostBack Then
currAFE = PreviousPage.numeroAFE
nombreEmpresa = PreviousPage.nombreEmpresa
Session("sAFE") = currAFE
Session("sEmpresa") = nombreEmpresa
Else
currAFE = Session("sAFE")
nombreEmpresa = Session("sEmpresa")
End If

pCia.ParameterFieldName = "pCia"
pLocalidad.ParameterFieldName = "pLocalidad"
pAFE.ParameterFieldName = "pAFE"
pEmpresa.ParameterFieldName = "pEmpresa"

pCiaValue.Value = currCompania
pLocalidadValue.Value = currLocalidad
pAFEValue.Value = currAFE
pEmpresaValue.Value = nombreEmpresa

pCia.CurrentValues.Add(pCiaValue)
pLocalidad.CurrentValues.Add(pLocalidadValue)
pAFE.CurrentValues.Add(pAFEValue)
pEmpresa.CurrentValues.Add(pEmpresaValue)

parametros.Add(pCia)
parametros.Add(pLocalidad)
parametros.Add(pAFE)
parametros.Add(pEmpresa)

rptAFEnew = New ReportDocument
rptAFEnew.Load(reportPath)
crvAFEprint.ParameterFieldInfo = parametros
crvAFEprint.ReportSource = rptAFEnew