Skip to main content
corregir formateado de código
Origen Enlace
user7176
user7176

Aquí de tejo una manera de poder actualizar reportes y no trabajes con reportes fijos sino dinámicos.

Sub REPORTE_COMUNICADOS(codigo As String) Dim rpt As New ReporteComunicado Try Dim Tabla As DataSet Dim existe As Boolean Dim cad As String

Sub REPORTE_COMUNICADOS(codigo As String)
    Dim rpt As New ReporteComunicado
    Try
        Dim Tabla As DataSet
        Dim existe As Boolean
        Dim cad As String

        cad = " exec [SP_REPORTE_COMUNICADO] '" & codigo & "' "
        Tabla = lsql.CARGAR_DATASET(cad)
        existe = System.IO.File.Exists("C:\XSD_COLTENE\LOGISTICA\REPORTE_COMUNICADOS.XSD")
        If existe = False Then
            My.Computer.FileSystem.CreateDirectory("C:\XSD_COLTENE")
            My.Computer.FileSystem.CreateDirectory("C:\XSD_COLTENE\LOGISTICA")
            Dim URL As String = "C:\XSD_COLTENE\LOGISTICA\REPORTE_COMUNICADOS.XSD"
            Tabla.WriteXmlSchema(URL)
        End If
        rpt.SetDataSource(Tabla)
        REPORTES_BLANCO.CrystalReportViewer1.ReportSource = rpt
        REPORTES_BLANCO.Text = "REPORTE_COMUNICADOS"
        REPORTES_BLANCO.WindowState = FormWindowState.Maximized
        REPORTES_BLANCO.Show()
    Catch ex As Exception
    End Try
End Sub

luego llamas al botón de esta manera

imp.REPORTE_COMUNICADOS(codigo)

imp.REPORTE_COMUNICADOS(codigo)

' tu conexion [Si trabas en N capas cambia a la conexion que tienes echa]

Aquí de tejo una manera de poder actualizar reportes y no trabajes con reportes fijos sino dinámicos.

Sub REPORTE_COMUNICADOS(codigo As String) Dim rpt As New ReporteComunicado Try Dim Tabla As DataSet Dim existe As Boolean Dim cad As String

        cad = " exec [SP_REPORTE_COMUNICADO] '" & codigo & "' "
        Tabla = lsql.CARGAR_DATASET(cad)
        existe = System.IO.File.Exists("C:\XSD_COLTENE\LOGISTICA\REPORTE_COMUNICADOS.XSD")
        If existe = False Then
            My.Computer.FileSystem.CreateDirectory("C:\XSD_COLTENE")
            My.Computer.FileSystem.CreateDirectory("C:\XSD_COLTENE\LOGISTICA")
            Dim URL As String = "C:\XSD_COLTENE\LOGISTICA\REPORTE_COMUNICADOS.XSD"
            Tabla.WriteXmlSchema(URL)
        End If
        rpt.SetDataSource(Tabla)
        REPORTES_BLANCO.CrystalReportViewer1.ReportSource = rpt
        REPORTES_BLANCO.Text = "REPORTE_COMUNICADOS"
        REPORTES_BLANCO.WindowState = FormWindowState.Maximized
        REPORTES_BLANCO.Show()
    Catch ex As Exception
    End Try
End Sub

luego llamas al botón de esta manera

imp.REPORTE_COMUNICADOS(codigo)

' tu conexion [Si trabas en N capas cambia a la conexion que tienes echa]

Aquí de tejo una manera de poder actualizar reportes y no trabajes con reportes fijos sino dinámicos.

Sub REPORTE_COMUNICADOS(codigo As String)
    Dim rpt As New ReporteComunicado
    Try
        Dim Tabla As DataSet
        Dim existe As Boolean
        Dim cad As String

        cad = " exec [SP_REPORTE_COMUNICADO] '" & codigo & "' "
        Tabla = lsql.CARGAR_DATASET(cad)
        existe = System.IO.File.Exists("C:\XSD_COLTENE\LOGISTICA\REPORTE_COMUNICADOS.XSD")
        If existe = False Then
            My.Computer.FileSystem.CreateDirectory("C:\XSD_COLTENE")
            My.Computer.FileSystem.CreateDirectory("C:\XSD_COLTENE\LOGISTICA")
            Dim URL As String = "C:\XSD_COLTENE\LOGISTICA\REPORTE_COMUNICADOS.XSD"
            Tabla.WriteXmlSchema(URL)
        End If
        rpt.SetDataSource(Tabla)
        REPORTES_BLANCO.CrystalReportViewer1.ReportSource = rpt
        REPORTES_BLANCO.Text = "REPORTE_COMUNICADOS"
        REPORTES_BLANCO.WindowState = FormWindowState.Maximized
        REPORTES_BLANCO.Show()
    Catch ex As Exception
    End Try
End Sub

luego llamas al botón de esta manera

imp.REPORTE_COMUNICADOS(codigo)

' tu conexion [Si trabas en N capas cambia a la conexion que tienes echa]

Origen Enlace

Aquí de tejo una manera de poder actualizar reportes y no trabajes con reportes fijos sino dinámicos.

Sub REPORTE_COMUNICADOS(codigo As String) Dim rpt As New ReporteComunicado Try Dim Tabla As DataSet Dim existe As Boolean Dim cad As String

        cad = " exec [SP_REPORTE_COMUNICADO] '" & codigo & "' "
        Tabla = lsql.CARGAR_DATASET(cad)
        existe = System.IO.File.Exists("C:\XSD_COLTENE\LOGISTICA\REPORTE_COMUNICADOS.XSD")
        If existe = False Then
            My.Computer.FileSystem.CreateDirectory("C:\XSD_COLTENE")
            My.Computer.FileSystem.CreateDirectory("C:\XSD_COLTENE\LOGISTICA")
            Dim URL As String = "C:\XSD_COLTENE\LOGISTICA\REPORTE_COMUNICADOS.XSD"
            Tabla.WriteXmlSchema(URL)
        End If
        rpt.SetDataSource(Tabla)
        REPORTES_BLANCO.CrystalReportViewer1.ReportSource = rpt
        REPORTES_BLANCO.Text = "REPORTE_COMUNICADOS"
        REPORTES_BLANCO.WindowState = FormWindowState.Maximized
        REPORTES_BLANCO.Show()
    Catch ex As Exception
    End Try
End Sub

luego llamas al botón de esta manera

imp.REPORTE_COMUNICADOS(codigo)

' tu conexion [Si trabas en N capas cambia a la conexion que tienes echa]