Reporte Filtrado por Fecha de Ref y Rango de Fecha
Publicado por Leonel Sánchez (2 intervenciones) el 03/06/2004 22:06:36
Hola Amigos, antemano un gran saludo a todos!
Mi problema es el siguiente, espero porfa me pueda ayudar que me urge muchisimo.
Tengo un reporte en RDC que contiene un subreporte, dicho reporte esta conectado a una base de datos de access 97 con password. El problema radica en que hace poco le agregue un filtrado por fecha de referencia y rango de fecha para que me traiga un conjunto de datos de acuerdo a la fecha y rango, pero no me lo hace. Cuando lo ejecuto solo refresca y en ningun momento me pregunta la fecha de referencia y el Rango de fecha. Lo cual en Crystal si me lo pide. Ahhh uso la version 8 de crystal y Visual Basic 6.00. Espero me ayuden, se los agradezco.
Asi llamo el reporte para ejecutarlo:
Screen.MousePointer = vbHourglass
Report.DiscardSavedData
Report.Database.Tables.Item(1).SetSessionInfo "Admin", Chr(10) & "140703"
Report.Subinforme1.OpenSubreport.Database.Tables(1).SetSessionInfo "Admin", Chr(10) & "140703"
FRMRPTRDC.Caption = "Resumen Anual de Producción - Varicoater LF"
Report.ReportTitle = "Resumen Anual de Producción - Varicoater LF"
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Zoom (51)
Screen.MousePointer = vbDefault
Mi problema es el siguiente, espero porfa me pueda ayudar que me urge muchisimo.
Tengo un reporte en RDC que contiene un subreporte, dicho reporte esta conectado a una base de datos de access 97 con password. El problema radica en que hace poco le agregue un filtrado por fecha de referencia y rango de fecha para que me traiga un conjunto de datos de acuerdo a la fecha y rango, pero no me lo hace. Cuando lo ejecuto solo refresca y en ningun momento me pregunta la fecha de referencia y el Rango de fecha. Lo cual en Crystal si me lo pide. Ahhh uso la version 8 de crystal y Visual Basic 6.00. Espero me ayuden, se los agradezco.
Asi llamo el reporte para ejecutarlo:
Screen.MousePointer = vbHourglass
Report.DiscardSavedData
Report.Database.Tables.Item(1).SetSessionInfo "Admin", Chr(10) & "140703"
Report.Subinforme1.OpenSubreport.Database.Tables(1).SetSessionInfo "Admin", Chr(10) & "140703"
FRMRPTRDC.Caption = "Resumen Anual de Producción - Varicoater LF"
Report.ReportTitle = "Resumen Anual de Producción - Varicoater LF"
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Zoom (51)
Screen.MousePointer = vbDefault
Valora esta pregunta
0