Error en un reporte con Crystal Reports
Expertos!
Tengo un problema, tengo una aplicación que hecha en VB6, con SQL SERVER 2008 y Crystal Reports 7.
La misma genera un reporte que lo obtiene por un Store Procedure (el cual ejecuto solo y funciona bien) pero a la hora de pasar esos datos a CR explota y dice "error no se puede tener acceso al primer registro crystal reports" (numero del error es 20527).
Alguno se le ocurre algo?
Dejo el codigo:
Set rs = OpenConec.Execute(ssql) If rs.EOF Then MsgBox "No hay materiales para la selección realizada.", vbInformation, "" Screen.MousePointer = vbDefault Exit Sub End If 'Selección de Prod objrptAcert.Subinforme1_txtSeleccion.SetText "Selección: " & Trim(Left(cmborgdeventa.Text, 50)) & IIf(Trim(Left(cmbsignature.Text, 50)) = "", "", "/" & Trim(Left(cmbsignature.Text, 50))) & IIf(Trim(Left(cmbsignaturebrand.Text, 50)) = "", "", "/" & Trim(Left(cmbsignaturebrand.Text, 50))) & IIf(Trim(Left(cmbsubbrand.Text, 50)) = "", "", "/" & Trim(Left(cmbsubbrand.Text, 50))) & " Versión de Prev.: " & sPrevDesvio & " " & TipoPrevision objrptAcert.txtSelecciondet.SetText "Selección: " & Trim(Left(cmborgdeventa.Text, 50)) & IIf(Trim(Left(cmbsignature.Text, 50)) = "", "", "/" & Trim(Left(cmbsignature.Text, 50))) & IIf(Trim(Left(cmbsignaturebrand.Text, 50)) = "", "", "/" & Trim(Left(cmbsignaturebrand.Text, 50))) & IIf(Trim(Left(cmbsubbrand.Text, 50)) = "", "", "/" & Trim(Left(cmbsubbrand.Text, 50))) & " Versión de Prev.: " & sPrevDesvio & " " & TipoPrevision str = IIf(sActividad = "", "", "Actividad: " & sActividad) str = str & IIf(Trim(Left(cmbclaseabc.Text, 50)) = "", "", " - Clase: " & Trim(Left(cmbclaseabc.Text, 50))) objrptAcert.txtSelActClase.SetText str objrptAcert.Subinforme1_txtSelActClase.SetText str objrptAcert.Database.SetDataSource rs objrptAcert.Subinforme1.OpenSubreport.Database.SetDataSource rs.NextRecordset frmViewRpt.CRViewerRpt.ReportSource = objrptAcert Set frmViewRpt.objReport = objrptAcert frmViewRpt.CRViewerRpt.ViewReport 'ACAAAA frmViewRpt.Show rs.Close
Tengo un problema, tengo una aplicación que hecha en VB6, con SQL SERVER 2008 y Crystal Reports 7.
La misma genera un reporte que lo obtiene por un Store Procedure (el cual ejecuto solo y funciona bien) pero a la hora de pasar esos datos a CR explota y dice "error no se puede tener acceso al primer registro crystal reports" (numero del error es 20527).
Alguno se le ocurre algo?
Dejo el codigo:
Set rs = OpenConec.Execute(ssql) If rs.EOF Then MsgBox "No hay materiales para la selección realizada.", vbInformation, "" Screen.MousePointer = vbDefault Exit Sub End If 'Selección de Prod objrptAcert.Subinforme1_txtSeleccion.SetText "Selección: " & Trim(Left(cmborgdeventa.Text, 50)) & IIf(Trim(Left(cmbsignature.Text, 50)) = "", "", "/" & Trim(Left(cmbsignature.Text, 50))) & IIf(Trim(Left(cmbsignaturebrand.Text, 50)) = "", "", "/" & Trim(Left(cmbsignaturebrand.Text, 50))) & IIf(Trim(Left(cmbsubbrand.Text, 50)) = "", "", "/" & Trim(Left(cmbsubbrand.Text, 50))) & " Versión de Prev.: " & sPrevDesvio & " " & TipoPrevision objrptAcert.txtSelecciondet.SetText "Selección: " & Trim(Left(cmborgdeventa.Text, 50)) & IIf(Trim(Left(cmbsignature.Text, 50)) = "", "", "/" & Trim(Left(cmbsignature.Text, 50))) & IIf(Trim(Left(cmbsignaturebrand.Text, 50)) = "", "", "/" & Trim(Left(cmbsignaturebrand.Text, 50))) & IIf(Trim(Left(cmbsubbrand.Text, 50)) = "", "", "/" & Trim(Left(cmbsubbrand.Text, 50))) & " Versión de Prev.: " & sPrevDesvio & " " & TipoPrevision str = IIf(sActividad = "", "", "Actividad: " & sActividad) str = str & IIf(Trim(Left(cmbclaseabc.Text, 50)) = "", "", " - Clase: " & Trim(Left(cmbclaseabc.Text, 50))) objrptAcert.txtSelActClase.SetText str objrptAcert.Subinforme1_txtSelActClase.SetText str objrptAcert.Database.SetDataSource rs objrptAcert.Subinforme1.OpenSubreport.Database.SetDataSource rs.NextRecordset frmViewRpt.CRViewerRpt.ReportSource = objrptAcert Set frmViewRpt.objReport = objrptAcert frmViewRpt.CRViewerRpt.ViewReport 'ACAAAA frmViewRpt.Show rs.Close
