Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Jose

Páginas: [1]
1
Bases de Datos / Re:Reportes
« en: Junio 15, 2010, 01:35:33 pm »
El error me lo da en esta linea (linea roja) a la hora de solicitar el reporte

Private Sub BtMonitoreo_Click()
    If grid.Rows = 1 Then
        MsgBox ("No hay informacion para mostrar")
    Else
        If vUsuario = "SYSTEM" Then
            With RptDiversos
                .ReportFileName = App.Path & "\Reportes\REP_MONITOREOS.rpt"
                .Destination = 0
                    .WindowBorderStyle = 3
                    .WindowControlBox = True
                    .WindowMaxButton = False
                    .WindowMinButton = False
                    cadena = ""
                    For n = 1 To grid.Rows - 1
                        grid.Row = n
                        grid.Col = 1
                        cadena = cadena & grid.Text & ","
                    Next
                    If Trim(cadena) <> "" Then
                        cadena = left(Trim(cadena), Len(Trim(cadena)) - 1)
                    End If
                    RANGODATOS = "{MONITOREO.noMONITOREO} in [" & cadena & "]"
                    .ReplaceSelectionFormula RANGODATOS
                    .WindowTitle = "[ Reporte de Monitoreos ]"
                    .WindowHeight = MDIPrincipal.ScaleHeight / Screen.TwipsPerPixelY
                    .WindowWidth = MDIPrincipal.ScaleWidth / Screen.TwipsPerPixelX
                    .WindowLeft = MDIPrincipal.left / Screen.TwipsPerPixelX + 5
                    .WindowTop = (MDIPrincipal.Top + (MDIPrincipal.Height - (MDIPrincipal.ScaleHeight + MDIPrincipal.StatusBar1.Height)) * 2 / 2) / Screen.TwipsPerPixelY - 5
            End With
            RptDiversos.Action = 1
         Else
            If AccesoA("REPORTE MONITOREOS") Then

2
Bases de Datos / Re:Reportes
« en: Junio 14, 2010, 06:49:35 pm »
Me da un error ´20572´en tiempo de ejecucion
error en file ...\Rep_Compañias.rpt (este es el nombre del archivo de Crystal Report)
Invalid negative value.

Tengo el Crystal Report Version 7, pero acabo de comprar la version 9 no se si puedo hacer algo con ese

3
Bases de Datos / Re:Reportes
« en: Junio 10, 2010, 05:17:25 pm »
Este es mi Form y de aqui tengo que sacar el reporte si se dan cuenta esta en Crystal Report

Private Sub BtMonitoreo_Click()
    If grid.Rows = 1 Then
        MsgBox ("No hay informacion para mostrar")
    Else
        If vUsuario = "SYSTEM" Then
            With RptDiversos
                .ReportFileName = App.Path & "\Reportes\REP_MONITOREOS.rpt"
                .Destination = 0
                    .WindowBorderStyle = 3
                    .WindowControlBox = True
                    .WindowMaxButton = False
                    .WindowMinButton = False
                    cadena = ""
                    For n = 1 To grid.Rows - 1
                        grid.Row = n
                        grid.Col = 1
                        cadena = cadena & grid.Text & ","
                    Next
                    If Trim(cadena) <> "" Then
                        cadena = left(Trim(cadena), Len(Trim(cadena)) - 1)
                    End If
                    RANGODATOS = "{MONITOREO.noMONITOREO} in [" & cadena & "]"
                    .ReplaceSelectionFormula RANGODATOS
                    .WindowTitle = "[ Reporte de Monitoreos ]"
                    .WindowHeight = MDIPrincipal.ScaleHeight / Screen.TwipsPerPixelY
                    .WindowWidth = MDIPrincipal.ScaleWidth / Screen.TwipsPerPixelX
                    .WindowLeft = MDIPrincipal.left / Screen.TwipsPerPixelX + 5
                    .WindowTop = (MDIPrincipal.Top + (MDIPrincipal.Height - (MDIPrincipal.ScaleHeight + MDIPrincipal.StatusBar1.Height)) * 2 / 2) / Screen.TwipsPerPixelY - 5
            End With
            RptDiversos.Action = 1
        Else
            If AccesoA("REPORTE MONITOREOS") Then
            With RptDiversos
                .ReportFileName = App.Path & "\Reportes\REP_MONITOREOS.rpt"
                .Destination = 0
                    .WindowBorderStyle = 3
                    .WindowControlBox = True
                    .WindowMaxButton = False
                    .WindowMinButton = False
                    cadena = ""
                    For n = 1 To grid.Rows - 1
                        grid.Row = n
                        grid.Col = 1
                        cadena = cadena & grid.Text & ","
                    Next
                    If Trim(cadena) <> "" Then
                        cadena = left(Trim(cadena), Len(Trim(cadena)) - 1)
                    End If
                    RANGODATOS = "{MONITOREO.noMONITOREO} in [" & cadena & "]"
                    .ReplaceSelectionFormula RANGODATOS
                    .WindowTitle = "[ Reporte de Monitoreos ]"
                    .WindowHeight = MDIPrincipal.ScaleHeight / Screen.TwipsPerPixelY
                    .WindowWidth = MDIPrincipal.ScaleWidth / Screen.TwipsPerPixelX
                    .WindowLeft = MDIPrincipal.left / Screen.TwipsPerPixelX + 5
                    .WindowTop = (MDIPrincipal.Top + (MDIPrincipal.Height - (MDIPrincipal.ScaleHeight + MDIPrincipal.StatusBar1.Height)) * 2 / 2) / Screen.TwipsPerPixelY - 5
            End With
            RptDiversos.Action = 1
            End If
        End If
    End If
End Sub

4
Bases de Datos / Reportes
« en: Junio 10, 2010, 05:02:16 pm »
He tratado por todos los medios hacer un reporte, pero no he podido.
intente en crystal report pero el sistema operativo que estoy utilizando es windows 7 y no me da chance de nada alguien me puede dar alguna solucion a este problema

5
Visual Basic 6 / Reportes en Cristal Report
« en: Mayo 27, 2010, 01:23:58 pm »
Quiero ver que puedo hacer para que me habra los reportes en Cristal Report pero en Windows Vista y Windows 7 cuando trabaje los reportes se hicieron en Windows XP pero ahora no me deja, hay alguna solucion

Páginas: [1]