From 8b18fb3d91daf85290228c4afbae6a9d7f17c7d8 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sun, 26 Feb 2023 08:44:57 -0700
Subject: [PATCH] -- CAMBIOS EN BANCOS/FILIACIONES QUE SE TME LO CONTABLE

---
 Bancos/FluctuacionCambiaria.aspx    | 11 +++++++++++
 Bancos/FluctuacionCambiaria.aspx.vb | 17 +++++++++++++++--
 2 files changed, 26 insertions(+), 2 deletions(-)

diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx
index 9f944d3b2..c7634465c 100644
--- a/Bancos/FluctuacionCambiaria.aspx
+++ b/Bancos/FluctuacionCambiaria.aspx
@@ -806,6 +806,17 @@
                                 <asp:BoundField HeaderText="Fluctuación" DataField="Fluctuacion" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
                             </Columns>
                         </asp:GridView>
+                        <asp:GridView ID="GvAcreedorDiversos" Width="99%" runat="server" AutoGenerateColumns="False"
+                            DataKeyNames="TipoCambio,Fluctuacion,RazonSocial,CveProveedor"
+                            EmptyDataText="No se Encontraron" ToolTip=""
+                            CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
+                            <Columns>
+                                <asp:BoundField HeaderText="Acreedor" DataField="RazonSocial" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField HeaderText="Saldo" DataField="Saldo" ItemStyle-Width="100" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="T.C. último ajuste" DataField="TipoCambio" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Fluctuación" DataField="Fluctuacion" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
+                            </Columns>
+                        </asp:GridView>
                         <asp:Label ID="Label1" runat="server" Text=""></asp:Label>
                     </ContentTemplate>
                 </ajax:TabPanel>
diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index 077ad1d5b..c6ec2a338 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -75,7 +75,7 @@ Partial Class Bancos_FluctuacionCambiaria
         If T.ActiveTabIndex = 5 Then CargaDatosAcreedoresAnticipos()
         If T.ActiveTabIndex = 6 Then CargaDatosBancosCuentas()
 
-        If T.ActiveTabIndex = 7 Then CargaDatosFiliales()
+        If T.ActiveTabIndex = 7 Then CargaDatosAcreedoresDiversos() 'CargaDatosFiliales()
         If T.ActiveTabIndex = 8 Then CargaDatosDeudores()
         UpTabs.Update()
     End Sub
@@ -366,7 +366,7 @@ Partial Class Bancos_FluctuacionCambiaria
     Private Sub CargaDatosFiliales()
         Dim ObjBancos As New ClsBancos
         LblTotalAcreedores.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 8, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 88, UsuarioActual.CveEmpresa) Then
             GvFiliales.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0")
             LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
         Else
@@ -376,6 +376,19 @@ Partial Class Bancos_FluctuacionCambiaria
         ObjBancos.Dispose()
         GvFiliales.DataBind()
     End Sub
+    Private Sub CargaDatosAcreedoresDiversos()
+        Dim ObjBancos As New ClsBancos
+        LblTotalAcreedores.Text = "0.00"
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 88, UsuarioActual.CveEmpresa) Then
+            GvAcreedorDiversos.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0")
+            LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+        Else
+            GvAcreedorDiversos.DataSource = Nothing
+            Alert("Ocurrio un error al cargar los acreedores", TipoMensaje.MsgAdvertencia)
+        End If
+        ObjBancos.Dispose()
+        GvAcreedorDiversos.DataBind()
+    End Sub
 
 #End Region