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