113 lines
3.1 KiB
VB.net
113 lines
3.1 KiB
VB.net
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
|