Option Strict On

Imports System.Net
Imports System.Data
Imports System.IO
Imports Extensiones
Imports System.Data.OleDb
Imports System.Globalization
Imports GemBox.Spreadsheet

Partial Class General_CatSatListado69B
    Inherits ClsPaginas


    Private Sub General_CatSatListado69B_Load(sender As Object, e As EventArgs) Handles Me.Load


        If Request("Accion") IsNot Nothing Then

            Dim Accion As Integer = Request("Accion").ToString.ToEntero
            Select Case Accion
                Case 101
                    Dim ObjSAT As New ClsSAT

                    ' ObjSAT.ActualizarListado69B(Server.MapPath("~"))
                    'ObjSAT.EnviaCorreoReporteListado69B()

                    ObjSAT.Dispose()

                    Exit Select

            End Select



        Else
            If Not Page.IsPostBack Then

                'GVDatosGeneral.Columns(4).Visible = False
                'GVDatosGeneral.Columns(6).Visible = False

                'GVDatosGeneral.Columns(7).Visible = False
                'GVDatosGeneral.Columns(8).Visible = False
                'GVDatosGeneral.Columns(9).Visible = False
                'GVDatosGeneral.Columns(10).Visible = False
                'GVDatosGeneral.Columns(11).Visible = False
                'GVDatosGeneral.Columns(12).Visible = False
                'GVDatosGeneral.Columns(13).Visible = False
                'GVDatosGeneral.Columns(14).Visible = False

                CargaDatos()
            End If

        End If


    End Sub

            
    Private Sub CargaDatos()

        Dim ObjSAT As New ClsSAT

        If ObjSAT.GetListado69B(DdlTipo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
            GVDatosGeneral.DataSource = ObjSAT.DtResultados

        Else
            GVDatosGeneral.DataSource = Nothing
        End If
        ObjSAT.Dispose()

        GVDatosGeneral.DataBind()

        UpDatosGeneral.Update()

    End Sub

    Protected Sub LnkListado69BExcel_Click(sender As Object, e As EventArgs)

        If GVDatosGeneral.Rows.Count > 0 Then
            GVDatosGeneral.ExportToExcel($"Reporte_{Now.ToString("yyyyMMddhhmmss")}")
        End If

    End Sub
    Protected Sub LnkActualizarListado69B_Click(sender As Object, e As EventArgs)

        Dim ObjSAT As New ClsSAT
        Dim Contador As Integer = 0
        Dim Mensaje As String = ""

        ObjSAT.ActualizarListado69B(Server.MapPath("~"))

        ObjSAT.Dispose()

        CargaDatos()

    End Sub
    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
        CargaDatos()
    End Sub

    Private Sub GVDatosGeneral_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVDatosGeneral.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then
            If DdlTipo.SelectedValue.ToEntero = 1 Then
                e.Row.Cells(2).Text = $"<div  class='truncate' style='width:300px!important'><a href='../Compras/Proveedores.aspx?CveProveedor={e.Row.DataKey("CveProveedor")}' target='_blank' style='width:300px!important'>{e.Row.DataKey("NombreContribuyente")}</a></div>"
            End If
        End If
    End Sub


End Class