//Declaramos las variables
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition
//Aperturamos el Reporte
Screen.MousePointer = vbHourglass
Set crReport = crApp.OpenReport(gcPathReport & "rpt_ImpresionCompraDibujo.rpt", 0)
crReport.Database.Tables(1).SetLogOnInfo Servidor, Data, usuario,Password
//Pasamos parametros del reporte general
Set crParamDefs = crReport.ParameterFields
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "@Param1"
crParamDef.AddCurrentValue (mstrParametro1)
Case "@Param2"
crParamDef.AddCurrentValue (mstrParametro2)
End Select
Next
//Enlazamos el Subreporte con el Reporte General
Set crSubReport = crReport.OpenSubreport("sbr_Compras")
crSubReport.Database.Tables(1).SetLogOnInfo "liderquim", "DatSysLogist", "sa", "12345"
//Visualizamos el reporte Maestro y Subreporte
CRViewer.ReportSource = crReport
CRViewer.DisplayGroupTree = False
CRViewer.ViewReport
Screen.MousePointer = vbDefault
Set crParamDefs = Nothing
Set crParamDef = Nothing
