Hola a todos, please soy novato en esto de vb 6.0 y crystal report 9.0 necesito que me ayude o que me envien un codigo de como enviar parametros desde vb 6.0 a un Subreporte a VB 6.0, explico a continuación mi Problema:
1.-Resulta que tengo un reporte llamado "Pauta de mantenimiento", y este reporte tiene dos subreportes llamados "Cuadro y","Maquina", resulta que todos los subreportes y el reporte principal maneja Procedimientos almacenados diferentes en SQL 2000.
2.-Pero estos Procedimientos Almacenados manejan los mismos parametros que ME SIRVEN PARA EL CRITERIO DE SELECCIÓN O WHERE (QUE SON LOS QUE QUIEREO ENVIAR desde vb 6.0 ESTOS parametros SON (FECHA, Y CODIGO DEL VEHICULO))
3.-ESTOS PARAMENTROS SI ME FUNCIONAN EN EL REPORTE PRINCIPAL PERO NO ME FUNCIONA EN LOS 2 SUBREPORTES ME SALEN VACIAS LAS CONSULTAS, y por ende los subreportes.
De antemano les doy las gracias por su ayuda y adjunto mi codigo que utilizo para enviar parametros a un reporte, ("DEL CUÁL NO CE QUE CODIGO ESCRIBIR PARA ENVIAR ESTOS MISMOS PARAMETROS A MI SUBREPORTE")
Private Sub Imprimir()
On Error GoTo Error
Dim Aplicacion As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
Dim FRMReporte As New FRMViewer
Dim CRXParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim CRXParamDef As CRAXDRT.ParameterFieldDefinition
‘EN ESTA PARTE NO C COMO AÑADIR EL CODIGO PARA ENVIAR 'ESTOS ‘MISMOS PARAMETROS AL SUBREPORTE
Set Report = Apliccion.OpenReport(Parametro(1).Ruta & "\Pauta Mantenimiento.rpt", 1)
Set CRXParamDefs = Report.ParameterFields
For Each CRXParamDef In CRXParamDefs
With CRXParamDef
Select Case .ParameterFieldName
Case "@fecha"
.SetCurrentValue Format(Me.DTPFecha.Value, "dd/mm/yyyy")
Case "@maq_codigo" ' Codigo de la MAQUINA O VEHICULO
.SetCurrentValue Val(LBLCodmaquina.Caption)
End Select
End With
Next
Report.Database.Tables(1).ConnectBufferString = "DSN=" & Parametro(1).Conexion & ";;UID=" & Parametro(1).Usu_Base & ";;PWD=" & Parametro(1).Password & ";;DSQ=" & Parametro(1).Base
Report.SQLQueryString = SSQLQuery
''AKI ENVIO PARAMETROS PARA EL ENCABEZADO DEL REPORTE(AKI TODO BIEN)
For I = 1 To Report.FormulaFields.Count
Select Case Report.FormulaFields.Item(I).Name
Case "{@fecha}"
Report.FormulaFields.Item(I).Text = "'" & Format (Me.DTPFecha.Value, "long date") & "'"
(Me.DTPHasta.Value, "long date") & "'"
Case "{@empresa}"
Report.FormulaFields.Item(I).Text = "'" & Parametro(1).Nom_Empresa & "'"
End Select
Next
FRMReporte.ViewReport.EnableExportButton = True
FRMReporte.ViewReport.ReportSource = Report
FRMReporte.Mostrar
FRMReporte.Show
Error:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, "Mensaje."
End If
End Sub
Please Ayuuuuuuuuuuuuuuuuuuuuuuuuuuuuda
1.-Resulta que tengo un reporte llamado "Pauta de mantenimiento", y este reporte tiene dos subreportes llamados "Cuadro y","Maquina", resulta que todos los subreportes y el reporte principal maneja Procedimientos almacenados diferentes en SQL 2000.
2.-Pero estos Procedimientos Almacenados manejan los mismos parametros que ME SIRVEN PARA EL CRITERIO DE SELECCIÓN O WHERE (QUE SON LOS QUE QUIEREO ENVIAR desde vb 6.0 ESTOS parametros SON (FECHA, Y CODIGO DEL VEHICULO))
3.-ESTOS PARAMENTROS SI ME FUNCIONAN EN EL REPORTE PRINCIPAL PERO NO ME FUNCIONA EN LOS 2 SUBREPORTES ME SALEN VACIAS LAS CONSULTAS, y por ende los subreportes.
De antemano les doy las gracias por su ayuda y adjunto mi codigo que utilizo para enviar parametros a un reporte, ("DEL CUÁL NO CE QUE CODIGO ESCRIBIR PARA ENVIAR ESTOS MISMOS PARAMETROS A MI SUBREPORTE")
Private Sub Imprimir()
On Error GoTo Error
Dim Aplicacion As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
Dim FRMReporte As New FRMViewer
Dim CRXParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim CRXParamDef As CRAXDRT.ParameterFieldDefinition
‘EN ESTA PARTE NO C COMO AÑADIR EL CODIGO PARA ENVIAR 'ESTOS ‘MISMOS PARAMETROS AL SUBREPORTE
Set Report = Apliccion.OpenReport(Parametro(1).Ruta & "\Pauta Mantenimiento.rpt", 1)
Set CRXParamDefs = Report.ParameterFields
For Each CRXParamDef In CRXParamDefs
With CRXParamDef
Select Case .ParameterFieldName
Case "@fecha"
.SetCurrentValue Format(Me.DTPFecha.Value, "dd/mm/yyyy")
Case "@maq_codigo" ' Codigo de la MAQUINA O VEHICULO
.SetCurrentValue Val(LBLCodmaquina.Caption)
End Select
End With
Next
Report.Database.Tables(1).ConnectBufferString = "DSN=" & Parametro(1).Conexion & ";;UID=" & Parametro(1).Usu_Base & ";;PWD=" & Parametro(1).Password & ";;DSQ=" & Parametro(1).Base
Report.SQLQueryString = SSQLQuery
''AKI ENVIO PARAMETROS PARA EL ENCABEZADO DEL REPORTE(AKI TODO BIEN)
For I = 1 To Report.FormulaFields.Count
Select Case Report.FormulaFields.Item(I).Name
Case "{@fecha}"
Report.FormulaFields.Item(I).Text = "'" & Format (Me.DTPFecha.Value, "long date") & "'"
(Me.DTPHasta.Value, "long date") & "'"
Case "{@empresa}"
Report.FormulaFields.Item(I).Text = "'" & Parametro(1).Nom_Empresa & "'"
End Select
Next
FRMReporte.ViewReport.EnableExportButton = True
FRMReporte.ViewReport.ReportSource = Report
FRMReporte.Mostrar
FRMReporte.Show
Error:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, "Mensaje."
End If
End Sub
Please Ayuuuuuuuuuuuuuuuuuuuuuuuuuuuuda
