From 1ff2c24a28aa9f4efddba9ff50d5afb4f11839a7 Mon Sep 17 00:00:00 2001
From: Luis Carlos Quijada <luis.zalasar12@hotmail.com>
Date: Tue, 15 Jul 2025 16:42:10 -0600
Subject: [PATCH] Cambios carga de datos Proveedores.aspx

---
 Compras/Proveedores.aspx    | 109 ++++++++++++++++++++++++------------
 Compras/Proveedores.aspx.vb | 109 +++++++++++++++++++++++++++---------
 2 files changed, 155 insertions(+), 63 deletions(-)

diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx
index d22f12fb4..23ba0157d 100644
--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -916,7 +916,7 @@
 
                 <ajax:TabPanel ID="TabHistorial" runat="server" HeaderText="Historial de Compras">
                     <ContentTemplate>
-
+                        
                         <%-- <table border="0" runat="server" id="tHistorial" class="SubTotales3" width="100%">
                                         <tr>
                                             <td width="120px">Filtrar por Sucursal:</td>
@@ -1009,6 +1009,7 @@
                                         <td>
                                             <asp:UpdatePanel ID="UpnHistorial" runat="server" UpdateMode="Conditional">
                                                 <ContentTemplate>
+                                                    <asp:Button ID="BtnCargaHistorial" runat="server" ClientIDMode="Static" Text="CargarHistorial" Style="display: none;" OnClick="BtnCargaHistorial_Click" />
                                                     <asp:GridView ID="GVHistorial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron compras del proveedor" ToolTip="Listado de Historial de Ventas"
                                                         CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" AlternatingRowStyle-BorderStyle="None" GridLines="None" BorderColor="#D3D3D3" BorderWidth="1">
                                                         <Columns>
@@ -1079,6 +1080,7 @@
                     <ContentTemplate>
                         <asp:UpdatePanel ID="UPPCxP" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
+                                <asp:Button ID="BtnCargaCxP" runat="server" ClientIDMode="Static" Text="CargarCxP" Style="display: none;" OnClick="BtnCargaCxP_Click" />
                                 <asp:Button ID="BtnRecargaCxP" ClientIDMode="Static" runat="server" Style="display: none;" Text="ConsultarCxP" />
                                 <div class="row">
 
@@ -1422,7 +1424,7 @@
                     <ContentTemplate>
                         <asp:UpdatePanel runat="server" ID="UpAnticipos" UpdateMode="Conditional">
                             <ContentTemplate>
-
+                                <asp:Button ID="BtnCargaAnticipos" runat="server" ClientIDMode="Static" Text="CargarAnticipos" Style="display: none;" OnClick="BtnCargaAnticipos_Click" />
 
                                 <%--<table border="0" runat="server" id="tAnticipos" class="SubTotales3" width="100%">
                                         <tr>
@@ -1682,6 +1684,7 @@
                     <ContentTemplate>
                         <asp:UpdatePanel runat="server" ID="UpBancos" UpdateMode="Conditional">
                             <ContentTemplate>
+                                <asp:Button ID="BtnCargaBancos" runat="server" ClientIDMode="Static" Text="CargarBancos" Style="display: none;" OnClick="BtnCargaBancos_Click" />
                                 <div class="portlet light xspadding bordered ">
                                     <div class="portlet-title">
                                         <div class="caption font-green">
@@ -1978,40 +1981,45 @@
 
                 <ajax:TabPanel ID="TabOC" runat="server" HeaderText="Órdenes Compra">
                     <ContentTemplate>
-                        <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
-                            <input type="text" id="TxtBusqueda6" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda6','{0}')", GvOC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda6','{0}')", GvOC.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                        </div>
-                        <br />
-                        <asp:GridView ID="GvOC" GridLines="None" CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true" runat="server" AutoGenerateColumns="False" DataKeyNames="CveOrdenCompra" EmptyDataText="No se encontraron Ordenes de Compra">
-                            <%--BorderColor="#D3D3D3" BorderWidth="1"--%>
-                            <Columns>
-                                <asp:TemplateField>
-                                    <HeaderTemplate>OC</HeaderTemplate>
-                                    <ItemTemplate>
-                                        <asp:HyperLink ID="HplOC" runat="server" CssClass="Texto" Text='<%# Eval("Folio")%>' NavigateUrl='<%# Eval("CveOrdenCompra", "/OC/OC.aspx?OC={0}")%>'></asp:HyperLink>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                                <asp:TemplateField>
-                                    <HeaderTemplate>Descripción</HeaderTemplate>
-                                    <ItemTemplate>
-                                        <asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal>&nbsp;
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                                <asp:BoundField HeaderText="Estatus" DataField="Estatus" />
-                                <asp:TemplateField>
-                                    <HeaderTemplate>Fecha</HeaderTemplate>
-                                    <ItemTemplate>
-                                        <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                                <asp:BoundField HeaderText="Lugar de Entrega" DataField="LugarEntrega" />
-                                <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" />
-                                <asp:BoundField DataField="Total" HeaderText="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                                <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
-                            </Columns>
-                            <HeaderStyle CssClass="Titulos"></HeaderStyle>
-                        </asp:GridView>
+
+                        <asp:UpdatePanel ID="UpOC" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <asp:Button ID="BtnCargaOC" runat="server" ClientIDMode="Static" Text="CargarOC" Style="display: none;" OnClick="BtnCargaOC_Click" />
+                                <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
+                                    <input type="text" id="TxtBusqueda6" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda6','{0}')", GvOC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda6','{0}')", GvOC.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                </div>
+                                <br />
+                                <asp:GridView ID="GvOC" GridLines="None" CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true" runat="server" AutoGenerateColumns="False" DataKeyNames="CveOrdenCompra" EmptyDataText="No se encontraron Ordenes de Compra">
+                                    <Columns>
+                                        <asp:TemplateField>
+                                            <HeaderTemplate>OC</HeaderTemplate>
+                                            <ItemTemplate>
+                                                <asp:HyperLink ID="HplOC" runat="server" CssClass="Texto" Text='<%# Eval("Folio")%>' NavigateUrl='<%# Eval("CveOrdenCompra", "/OC/OC.aspx?OC={0}")%>'></asp:HyperLink>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                        <asp:TemplateField>
+                                            <HeaderTemplate>Descripción</HeaderTemplate>
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal>&nbsp;
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                        <asp:BoundField HeaderText="Estatus" DataField="Estatus" />
+                                        <asp:TemplateField>
+                                            <HeaderTemplate>Fecha</HeaderTemplate>
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                        <asp:BoundField HeaderText="Lugar de Entrega" DataField="LugarEntrega" />
+                                        <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" />
+                                        <asp:BoundField DataField="Total" HeaderText="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                        <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
+                                    </Columns>
+                                    <HeaderStyle CssClass="Titulos"></HeaderStyle>
+                                </asp:GridView>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
                     </ContentTemplate>
                 </ajax:TabPanel>
 
@@ -2065,6 +2073,7 @@
 
                         <asp:UpdatePanel runat="server" ID="UpDocumentos" UpdateMode="Conditional"> 
                             <ContentTemplate>
+                                <asp:Button ID="BtnCargaDocs" runat="server" ClientIDMode="Static" Text="CargarDocs" Style="display: none;" OnClick="BtnCargaDocs_Click" />
                                   <asp:GridView ID="GvDocs" AutoGenerateColumns="false" runat="server" GridLines="none" 
                             DataKeyNames="CveDocumentacion,Documentacion,Orden,CveDocumentacionElectronica,Adjunto,Estatus,Observacion,Fecha,FechaIng,Usuario,FechaLimite,FechaVigencia,DiasLimite,AplicaDiasLimite,AplicaFechaVencimiento">
                             <Columns>
@@ -2147,6 +2156,7 @@
                         </div>
                         <asp:UpdatePanel ID="UpGvUsuarios" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
+                                <asp:Button ID="BtnCargaPortal" runat="server" ClientIDMode="Static" Text="CargarPortal" Style="display: none;" OnClick="BtnCargaPortal_Click" />
                                 <asp:GridView ID="GvUsuarios" runat="server" GridLines="None" DataKeyNames="CveUsuario, Usuario" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Estatus de Ordenes de Servicios">
                                     <Columns>
                                         <asp:BoundField DataField="Usuario" ItemStyle-Width="30%" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
@@ -4265,6 +4275,33 @@
     <script src="/Metronic/assets/global/scripts/datatable.js"></script>
     <script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
     <script type="text/javascript">
+
+        function pageLoad(sender, e) {
+            if (<%= Me.ProveedorID %> > 0) {
+                $("#__tab_C_Tab_TabHistorial").on("click", function () {
+                    $('#BtnCargaHistorial').click();
+                });
+                $("#__tab_C_Tab_TabCxP").on("click", function () {
+                    $('#BtnCargaCxP').click();
+                });
+                $("#__tab_C_Tab_TabAnticipos").on("click", function () {
+                    $('#BtnCargaAnticipos').click();
+                });
+                $("#__tab_C_Tab_TabBancos").on("click", function () {
+                    $('#BtnCargaBancos').click();
+                });
+                $("#__tab_C_Tab_TabOC").on("click", function () {
+                    $('#BtnCargaOC').click();
+                });
+                $("#__tab_C_Tab_TabUsuarios").on("click", function () {
+                    $('#BtnCargaPortal').click();
+                });
+            }
+        }
+        $(document).ready(function () {
+            pageLoad();
+        });
+
         //var OrdenarGV = function () {
         //    var Tam = TamañoVentana();
         //    var Alto = Tam.height - 330;
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 634f7cc68..a6e33a06e 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -19,6 +19,11 @@ Partial Class Compras_Proveedores
             Return ViewState("CveProveedor").ToString.ToEntero
         End Get
     End Property
+    Public ReadOnly Property ProveedorID As Integer
+        Get
+            Return Me.CveProveedor
+        End Get
+    End Property
     Private Property CveProveedorSucursal As Integer
         Get
             Return ViewState("CveProveedorSucursal").ToString.ToEntero
@@ -499,15 +504,15 @@ Partial Class Compras_Proveedores
                 If CargaDatos() Then
                     CveMonedaFiltro = -1
 
-                    CargaHistorial(CveProveedorSucursal)
-                    CargaCxP(CveProveedorSucursal)
-                    CargaAnticipos(CveProveedorSucursal)
-                    CargaBancos(CveProveedorSucursal)
+                    'CargaHistorial(CveProveedorSucursal)
+                    'CargaCxP(CveProveedorSucursal)
+                    'CargaAnticipos(CveProveedorSucursal)
+                    'CargaBancos(CveProveedorSucursal)
                     CargaProveedorSucursales()
                     CargaCuentasBancarias()
 
-                    CargaOC()
-                    CargaDocs()
+                    'CargaOC()
+                    'CargaDocs()
                     'CargaColectivas()
                     'CargaSaldosBeneficiarios()
                     'CargaUsuariosPortal()
@@ -758,27 +763,27 @@ Partial Class Compras_Proveedores
             Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
             Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
 
-                Dim nodo As XmlNode = XMLDoc.DocumentElement
-                Dim Version As String = ValorXml(nodo, "Version")
+            Dim nodo As XmlNode = XMLDoc.DocumentElement
+            Dim Version As String = ValorXml(nodo, "Version")
 
 
-                If Version = "3.2" Then
-                    Prefijo = "cfd"
-                    cfdVer = "http://www.sat.gob.mx/cfd/2"
-                ElseIf Version = "3.3" Then
-                    cfdVer = "http://www.sat.gob.mx/cfd/3"
+            If Version = "3.2" Then
+                Prefijo = "cfd"
+                cfdVer = "http://www.sat.gob.mx/cfd/2"
+            ElseIf Version = "3.3" Then
+                cfdVer = "http://www.sat.gob.mx/cfd/3"
 
-                Else ' se considera que es la version 4.0
-                    cfdVer = "http://www.sat.gob.mx/cfd/4"
-                End If
+            Else ' se considera que es la version 4.0
+                cfdVer = "http://www.sat.gob.mx/cfd/4"
+            End If
 
-                'If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
-                namespaces.AddNamespace(Prefijo, cfdVer)
-                '     XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("&lt;br&gt;", "").Replace("&lt;", "").Replace("o;?", "").Replace(ChrW(&HFEFF), ""))
+            'If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
+            namespaces.AddNamespace(Prefijo, cfdVer)
+            '     XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("&lt;br&gt;", "").Replace("&lt;", "").Replace("o;?", "").Replace(ChrW(&HFEFF), ""))
 
 
-                Dim node As XmlNode
-                node = XMLDoc.SelectSingleNode(String.Format("//{0}:Emisor", Prefijo), namespaces)
+            Dim node As XmlNode
+            node = XMLDoc.SelectSingleNode(String.Format("//{0}:Emisor", Prefijo), namespaces)
             If node IsNot Nothing Then
                 TxtRFC.Text = ValorXml(node, "rfc")
 
@@ -5542,13 +5547,13 @@ Partial Class Compras_Proveedores
 
         Dim ObjBancos As New ClsBancos()
 
-            If ObjBancos.NotificacionPago(HdnCveIE.Value.ToEntero, TxtParaMail.Text.Trim, TxtCC.Text.Trim, UsuarioActual) Then
-                Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
-            Else
-                Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
-            End If
+        If ObjBancos.NotificacionPago(HdnCveIE.Value.ToEntero, TxtParaMail.Text.Trim, TxtCC.Text.Trim, UsuarioActual) Then
+            Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+        Else
+            Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
+        End If
 
-            ObjBancos.Dispose()
+        ObjBancos.Dispose()
 
 
         'Dim ObjMail As New ClsSisMail()
@@ -5925,7 +5930,57 @@ Partial Class Compras_Proveedores
         End If
         UpDatos.Update()
     End Sub
+
+    Protected Sub BtnCargaHistorial_Click(sender As Object, e As EventArgs) Handles BtnCargaHistorial.Click
+        If CveProveedor > 0 Then
+            CargaHistorial(CveProveedorSucursal) ' <-- Tu método de carga
+            UpnHistorial.Update() ' <-- UpdatePanel de Historial
+        End If
+    End Sub
+
+    Protected Sub BtnCargaCxP_Click(sender As Object, e As EventArgs) Handles BtnCargaCxP.Click
+        If CveProveedor > 0 Then
+            CargaCxP(CveProveedorSucursal) ' <-- Tu método de carga
+            UPPCxP.Update() ' <-- UpdatePanel de CxP
+        End If
+    End Sub
+
+    Protected Sub BtnCargaAnticipos_Click(sender As Object, e As EventArgs) Handles BtnCargaAnticipos.Click
+        If CveProveedor > 0 Then
+            CargaAnticipos(CveProveedorSucursal) ' <-- Tu método de carga
+            UpAnticipos.Update() ' <-- UpdatePanel de Anticipos
+        End If
+    End Sub
+
+    Protected Sub BtnCargaBancos_Click(sender As Object, e As EventArgs) Handles BtnCargaBancos.Click
+        If CveProveedor > 0 Then
+            CargaBancos(CveProveedorSucursal) ' <-- Tu método de carga
+            UpBancos.Update() ' <-- UpdatePanel de Bancos
+        End If
+    End Sub
+
+    Protected Sub BtnCargaOC_Click(sender As Object, e As EventArgs) Handles BtnCargaOC.Click
+        If CveProveedor > 0 Then
+            CargaOC() ' <-- Tu método de carga
+            UpOC.Update() ' <-- UpdatePanel de OC
+        End If
+    End Sub
+
+    Protected Sub BtnCargaDocs_Click(sender As Object, e As EventArgs) Handles BtnCargaDocs.Click
+        If CveProveedor > 0 Then
+            CargaDocs() ' <-- Tu método de carga
+            UpDocumentos.Update() ' <-- UpdatePanel de Documentos
+        End If
+    End Sub
+
+    Protected Sub BtnCargaPortal_Click(sender As Object, e As EventArgs) Handles BtnCargaPortal.Click
+        If CveProveedor > 0 Then
+            CargaUsuariosPortalProveedor() ' <-- Tu método de carga
+            UpGvUsuarios.Update() ' <-- UpdatePanel de Portal/Usuarios
+        End If
+    End Sub
 End Class
 
 
 
+