From 7a766f606b19938bafa2e392badf79e310bdcc59 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 25 Oct 2022 17:24:18 -0700
Subject: [PATCH] =?UTF-8?q?--=20asignaci=C3=B3n=20de=20pesta=C3=B1a?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/FluctuacionCambiaria.aspx.vb | 28 ++++++++++------------------
 1 file changed, 10 insertions(+), 18 deletions(-)

diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index 9efa900c9..8bfe86260 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -139,10 +139,8 @@ Partial Class Bancos_FluctuacionCambiaria
             LtIndicador_CPPesosFinal.Text = Final.Abs.ToString.FormatoNumero
             LblComprasPerdidaGanancia.Text = If(Final < 0, "Ganancia", "Pérdida")
 
-            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
-        Else
-            GvProveedores.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
+            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+
         End If
         ObjBancos.Dispose()
         GvProveedores.DataBind()
@@ -179,10 +177,8 @@ Partial Class Bancos_FluctuacionCambiaria
             LtIndicador_CPPesosFinal.Text = Final.Abs.ToString.FormatoNumero
             LblComprasPerdidaGanancia.Text = If(Final > 0, "Ganancia", "Pérdida")
 
-            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
-        Else
-            GvProveedoresAnt.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
+            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+
         End If
         ObjBancos.Dispose()
         GvProveedoresAnt.DataBind()
@@ -220,10 +216,8 @@ Partial Class Bancos_FluctuacionCambiaria
 
             LblTotalVentas.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
 
-            UpIndicadoresVentas.Visible = True
-        Else
-            GvVentas.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
+            UpIndicadoresVentas.Visible = True
+
         End If
         ObjBancos.Dispose()
         GvVentas.DataBind()
@@ -257,10 +251,8 @@ Partial Class Bancos_FluctuacionCambiaria
 
             LblTotalVentasAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
 
-            UpIndicadoresVentas.Visible = True
-        Else
-            GvClientesAnt.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
+            UpIndicadoresVentas.Visible = True
+
         End If
         ObjBancos.Dispose()
         GvClientesAnt.DataBind()
@@ -359,7 +351,7 @@ Partial Class Bancos_FluctuacionCambiaria
     Private Sub CargaDatosDeudores()
         Dim ObjBancos As New ClsBancos
         LblTotalDeudores.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 5, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 9, UsuarioActual.CveEmpresa) Then
             GvDeudores.DataSource = ObjBancos.DtResultados
             LblTotalDeudores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
         Else
@@ -374,7 +366,7 @@ Partial Class Bancos_FluctuacionCambiaria
     Private Sub CargaDatosFiliales()
         Dim ObjBancos As New ClsBancos
         LblTotalAcreedores.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 7, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 8, UsuarioActual.CveEmpresa) Then
             GvFiliales.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0")
             LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
         Else