-- asignación de pestaña

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