AYUDA CON EL ENVIO A CRISTAL REPORT - VB-MUNDO

PEPE · #1 (**permalink**) 02-11-2004, 20:25:33

AMIGOS

TENGO EL SIGUIENTE PROCEDIMIENTO EN EL CUAL QUIERO QUE EL CONTENIDO DE UN MSFLEXGRID SE TRASPASE AL CRISTAL REPORT
PERO ME SALE ERROR NRO 20515

EN EL FORMULARIO TENGO DOS TEXTBOX EN UNA INGRESO UNA FECHA Y EN EL OTRO TEXTBOX OTRA FECHA PARA HACER UNA CONSULTA ENTRE FECHAS CON UN BOTON ( ESTA CONSULTA LA HAGO A UNA BASE DATOS ACCES) Y EL RESULTADO ME SALE EN EL MSFLEX GRID BIEN COMO YO LO QUIERO

EL ERROR ESTA EN ESTE BOTON QUE DEBERIA ENVIARMELO AL CRISTAL REPORT PERO NO RESULTA

Private Sub Command4_Click()
With reporte
.DataFiles(0) = App.Path & "C:\cargos\cargos.mdb"
.WindowTitle = "Detalle de Fecha solicitadas " & " " & fecha(0) & "/" & fecha(1) '
.ReportFileName = App.Path & "\reporte.rpt" 'nombre del informe
.SelectionFormula = ""
.GroupSelectionFormula = "{datos.FECHA_INGRESO}=" & fecha(0).Text
.PrintReport
If .LastErrorNumber <> 0 Then
MsgBox "error nro:" + CStr(.LastErrorNumber) + Chr$(13) + .LastErrorString, 16, "The Manager"

End If
End With

End Sub

OJO LOS TEXT TIENEN NAME FECHA(0) Y FECHA(1)
ESTOY USADO VISUAL BASIC 5.0

ESPERANDO SU RESPUESTA

Ronald_Leon_Madrid · #2 (**permalink**) 03-11-2004, 02:23:33

Hola :

que tal un gusto en saludarte, quizas este procedimiento te puede ayudar a resolver tu problema .

Private Sub rEnviarReporte()
Dim Mes1 As String
Dim Mes2 As String
Dim f1 As Date
Dim f2 As Date
Dim Fecha1 As String
Dim Fecha2 As String
Dim Concat As String
Dim lsDiaIni As String
Dim lsDiaFin As String
Dim lsRango As String
Dim lsPeriodo As String

On Error GoTo ErrReporte
Screen.MousePointer = vbHourglass
CryReporte.Reset
CryReporte.ReportFileName = App.Path + "\Rpt\rptInduccionFecha.rpt"
CryReporte.RetrieveDataFiles
Mes1 = Mid(txtFecha1.Text, 4, 2)
Mes2 = Mid(txtFecha2.Text, 4, 2)
f1 = CDate(txtFecha1.Text)
f2 = CDate(txtFecha2.Text)
lsDiaIni = Mid(txtFecha1.Text, 1, 2)
lsDiaFin = Mid(txtFecha2.Text, 1, 2)
Call rObtenerMes(Mes1, Mes1)
Call rObtenerMes(Mes2, Mes2)
lsPeriodo = Mid(txtFecha1.Text, 7, 4)
lsRango = "DEL " & lsDiaIni & " DE " & Mes1 & " AL " & lsDiaFin & " DE " & Mes2 & " AÑO " & lsPeriodo
Fecha1 = Year(f1) & "," & Month(f1) & "," & Day(f1)
Fecha2 = Year(f2) & "," & Month(f2) & "," & Day(f2)
Concat = "{vw_InducArea.FchInduc} in Date(" + Fecha1 + ") to Date (" + Fecha2 + ")"
CryReporte.SelectionFormula = Concat
CryReporte.Formulas(0) = "Rango = '" & lsRango & "'"
CryReporte.DiscardSavedData = True
CryReporte.WindowTitle = "Reporte de Inducciones Por Fecha"
CryReporte.ReportSource = crptReport
CryReporte.WindowState = crptMaximized
CryReporte.Destination = crptToWindow
CryReporte.Action = 1
Screen.MousePointer = vbDefault
Exit Sub
ErrReporte:
Screen.MousePointer = vbDefault
MsgBox Err.Description, vbCritical + vbOKOnly + vbMsgBoxHelpButton, Me.Caption, Err.HelpFile, Err.HelpContext

End Sub

Saludos cordiales,

angelescj · #3 (**permalink**) 03-11-2004, 07:34:12

¿Por qué no asignas la consulta SQL, tal cual?

reporte.SQLQuery = "Select ..........."
reporte.PrintReport

PEPE · #4 (**permalink**) 06-11-2004, 15:07:51

ESTIMADO RONALD
PERDON SI ME DEMORE EN LA RESPUESTA PERO TENGO UN PROBLEMA CON EL PROCEDIMIENTO QUE ME DISTE
ME SALE EL SGTE ERROR.

NO SE HA DEFINIDO SUB O FUNCTION
Y ME SEÑALA EN LA LINEA
CALL ROBTENERMES

PERDON POR LA NUEVA PREGUNTA ES QUE ESTOY APRENDIENDO
LO DE CRISTAL REPORT DE A POCO

SALUDOS

Ronald_Leon_Madrid · #5 (**permalink**) 07-11-2004, 17:29:06

Hola :

que tal un gusto en saludarte, aqui te mando el procedimiento que falta mucha suerte.

Private Sub rObtenerMes(ByVal nMes As String, ByRef Mes As String)
Select Case nMes
Case "01"
Mes = "ENERO"
Case "02"
Mes = "FEBRERO"
Case "03"
Mes = "MARZO"
Case "04"
Mes = "ABRIL"
Case "05"
Mes = "MAYO"
Case "06"
Mes = "JUNIO"
Case "07"
Mes = "JULIO"
Case "08"
Mes = "AGOSTO"
Case "09"
Mes = "SETIEMBRE"
Case "10"
Mes = "OCTUBRE"
Case "11"
Mes = "NOVIEMBRE"
Case "12"
Mes = "DICIEMBRE"
End Select

End Sub

Saludos cordiales,