|
|   | |
| | | | | | | | | | |
Notas Anteriores |  | pasar parametros crystal 8.0 y vb6.0 andres (14/04/2006) | 8.740 |  |  | RE:pasar parametros crystal 8.0 y vb6.0 Carlos Nardi (18/04/2006) | 6.016 |
| Autor: | | | Fecha: | 21/04/2006 18:21:06 | | Asunto: | RE:pasar parametros crystal 8.0 y vb6.0 | Hola, yo tenia el mismo problema y lo resolvi asi, tengo visual 6 y crystal 10.
Y solo mande llamar el modulo
' Módulo agregado para ejecutar un reporte de Crystal desde la aplicación
' y exportarlo a formato PDF de forma transparente para el usuario - 18 Abril 206
Option Explicit
'Objeto que representa una instancia del programa Crystal Reports.
Private crApp As New CRAXDDRT.Application
'Objeto que representa el reporte que deseamos abrir.
Private crReport As New CRAXDDRT.Report
'******* Declarar todos los parametros a utilizar en el reporte
Private SC_Costos As String
' C_Costos
Private STipo_Nomina As String
' Tipo_Nomina
Private IAno As Integer
' Ano
Private IPeriodo As Integer
' Periodo
' Función principal que ejecuta el reporte tomando como entrada los parámetros que
' necesita el reporte de Crystal
Public Sub EjecutarReporte(PSArchivo_Nombre As String, PSC_Costos As String, PSTipo_Nomina As String, PIAno As Integer, PIPeriodo As Integer)
Dim crParamDefs As CRAXDDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDDRT.ParameterFieldDefinition
On Error GoTo Problemas
SC_Costos = PSC_Costos
STipo_Nomina = PSTipo_Nomina
IAno = PIAno
IPeriodo = PIPeriodo
' Abrimos el reporte, el segundo parámetro del método OpenReport es opcional, un 1 indica que queremos abrir el reporte de manera exclusiva, un 0 indica que queremos crear una copia temporal y trabajar con ella.
Set crReport = crApp.OpenReport(App.Path & "\Hrs_hombre_trabajadas.rpt", 1)
' Parametros del reporte
Set crParamDefs = crReport.ParameterFields
' Hacemos una iteración por la colección de parámetros para asignarle un valor
' a cada uno de ellos. Dentro del ciclo usamos la estructura Select Case para
' evaluar el nombre del parámetro, el cual está contenido en el miembro
' ParameterFieldValue del objeto crParamDef. Cabe aclarar que para la cláusula
' Case debemos usar exactamente el mismo nombre que le dimos a cada parámetro
' dentro de Crystal Reports.
' El método AdCurrentValue es el que propiamente asigna el valor que le pasemos
' como parámetro al parámetro en sí.
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "C_Costos"
crParamDef.AddCurrentValue (SC_Costos)
Case "Tipo_Nomina"
crParamDef.AddCurrentValue (STipo_Nomina)
Case "Ano"
crParamDef.AddCurrentValue (IAno)
Case "Periodo"
crParamDef.AddCurrentValue (IPeriodo)
End Select
Next
Call Exportar(PSArchivo_Nombre)
Set crParamDefs = Nothing
Set crParamDef = Nothing
Exit Sub
Problemas:
MsgBox "Se presento el siguiente problema: " & VBA.Err & ": " & _
VBA.error, vbCritical, App.Title & " Versión " & App.Major & "." & App.Minor & "." & App.Revision & " - Problema Interno"
Screen.MousePointer = vbDefault
End Sub
|
|
Notas Siguientes
| | | | | RE:pasar parametros crystal 8.0 y vb6.0 alejandro (21/04/2006) | 6.072 | | | | | | RE:pasar parametros crystal 8.0 y vb6.0 Juan (22/04/2006) | 4.342 | | | | | | | RE:pasar parametros crystal 8.0 y vb6.0 Marcelo (10/08/2009) | 2.445 | | | | | | | RE:pasar parametros crystal 8.0 y vb6.0 Antonio (06/05/2010) | 1.189 | | | | | | RE:pasar parametros crystal 8.0 y vb6.0 Diego (23/04/2006) | 3.988 | | | | | | | RE:pasar parametros crystal 8.0 y vb6.0 Diego (16/05/2006) | 3.899 | | | | | | como pasar un parametros crystal 8.0 y vb6.0 Elexander (06/09/2007) | 3.182 | | | | | | RE:pasar parametros crystal 8.0 y vb6.0 Elmer Núñez (10/09/2009) | 2.412 | | | RE:pasar parametros crystal 8.0 y vb6.0 Ivy (12/12/2006) | 3.801 | | | RE:pasar parametros crystal 8.0 y vb6.0 asa (05/11/2007) | 3.283 |
 |
 |  |
RESPONDER NOTA
|
|
|
|
| |
Otras secciones relacionadas con Crystal Report |
|
|
