Commit inicial Ventas Productivo

General/CatSatListado69B.aspx.vb

@@ -0,0 +1,109 @@
+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
+            GVDatosGeneral.DataBind()
+        Else
+            GVDatosGeneral.DataSource = Nothing
+        End If
+
+        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