Crystal Rerport 7.0
Hola:
Estoy intentando conocer esta herramienta y tengo una duda con algo particular, que espero que puedas esclarecer. Resulta que si intento asociar un reporte a un Stored Procedure existente de SQL Server que no espera parámetros, no tengo ningún problema en mostrarlo desde VB 6.0. El problema que tengo es que no encuentro la forma de asociar a un reporte un Store Procedure existente que reciba uno o más parámetros, y conseguir pasar esos parámetros en tiempo de ejecución. Te agradecería que me enviaras un pequeño código a modo de ejemplo. Cualquiera sea tu respuesta, muchas gracias
Estoy intentando conocer esta herramienta y tengo una duda con algo particular, que espero que puedas esclarecer. Resulta que si intento asociar un reporte a un Stored Procedure existente de SQL Server que no espera parámetros, no tengo ningún problema en mostrarlo desde VB 6.0. El problema que tengo es que no encuentro la forma de asociar a un reporte un Store Procedure existente que reciba uno o más parámetros, y conseguir pasar esos parámetros en tiempo de ejecución. Te agradecería que me enviaras un pequeño código a modo de ejemplo. Cualquiera sea tu respuesta, muchas gracias
1 respuesta
Respuesta de xabi
1
He encontrado este código que espero te sea de ayuda ya que yo no tengo experiencia con esto que me planteas.
Friend Sub Principal(ByRef oCliente As cClienteFac)
Screen.MousePointer = vbHourglass
Set m_oCli = oCliente
Dim crPars As CRAXDRT.ParameterFieldDefinitions
Dim crPar As CRAXDRT.ParameterFieldDefinition
Set crPars = m_oReporte.ParameterFields
For Each crPar In crPars
With crPar
Select Case .ParameterFieldName
Case "@Tipo"
.SetCurrentValue m_oCli.LisTipo
Case "@Activo"
.SetCurrentValue m_oCli.LisActivos
Case "@Encargo"
.SetCurrentValue m_oCli.LisEncargos
Case "@Orden"
.SetCurrentValue m_oCli.LisOrden
Case "@Rango"
.SetCurrentValue m_oCli.LisRango
Case "@Desde"
.SetCurrentValue m_oCli.LisDesde
Case "@Hasta"
.SetCurrentValue m_oCli.LisHasta
End Select
End With
Next
CRViewer1.ReportSource = m_oReporte
CRViewer1.EnableGroupTree = False
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
Friend Sub Principal(ByRef oCliente As cClienteFac)
Screen.MousePointer = vbHourglass
Set m_oCli = oCliente
Dim crPars As CRAXDRT.ParameterFieldDefinitions
Dim crPar As CRAXDRT.ParameterFieldDefinition
Set crPars = m_oReporte.ParameterFields
For Each crPar In crPars
With crPar
Select Case .ParameterFieldName
Case "@Tipo"
.SetCurrentValue m_oCli.LisTipo
Case "@Activo"
.SetCurrentValue m_oCli.LisActivos
Case "@Encargo"
.SetCurrentValue m_oCli.LisEncargos
Case "@Orden"
.SetCurrentValue m_oCli.LisOrden
Case "@Rango"
.SetCurrentValue m_oCli.LisRango
Case "@Desde"
.SetCurrentValue m_oCli.LisDesde
Case "@Hasta"
.SetCurrentValue m_oCli.LisHasta
End Select
End With
Next
CRViewer1.ReportSource = m_oReporte
CRViewer1.EnableGroupTree = False
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
