diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index a2ff0baa0..2076a6b21 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -208,31 +208,29 @@ Partial Class Bancos_FluctuacionCambiaria
 
             Dim Perdida As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion > 0")
             Dim Ganancias As DataTable = ObjBancos.DtResultados.FiltraParametros("Fluctuacion < 0")
-
             Dim PerdidaAux As Double = Perdida.SUM("Fluctuacion", "Fluctuacion > 0").Abs
-            Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion", "Fluctuacion < 0").Abs
-
-            Dim Final As Double = GanaciaAux - PerdidaAux
+            Dim GananciaAux As Double = Ganancias.SUM("Fluctuacion", "Fluctuacion < 0").Abs
+
             HdnClienteCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString
             HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString
 
             HplClientesLiga.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ObjBancos.DtResultados.MAX("CvePrePoliza").ToString)
             HplClientesLiga.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0
             BtnClientesRemove.Visible = HdnClienteCvePrePoliza.Value.ToEntero > 0
-            BtnGeneraVentas.Visible = Not HdnClienteCvePrePoliza.Value.ToEntero > 0
-
-            IImagenFinalVentas.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
-
-            LtIndicador_PerdidasVentas.Text = PerdidaAux.ToString.FormatoNumero
-            LtIndicador_GanaciaVentas.Text = GanaciaAux.ToString.FormatoNumero
-            LtIndicador_FinalVentas.Text = Final.ToString.FormatoNumero
-            LblVentasPerdidaGanancia.Text = If(Final < 0, "Pérdida", "Ganancia")
-
-            LblTotalVentas.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
-
+            BtnGeneraVentas.Visible = Not HdnClienteCvePrePoliza.Value.ToEntero > 0
+
+            'LtIndicador_PerdidasVentas.Text = PerdidaAux.ToString.FormatoNumero
+            'LtIndicador_GanaciaVentas.Text = GanaciaAux.ToString.FormatoNumero
+            'LtIndicador_FinalVentas.Text = Final.ToString.FormatoNumero
+
             UpIndicadoresVentas.Visible = True
 
             Dim tdt As DataTable = VerificacionFluctuacion(3, FechaUltimoDiaMes)
+            Dim Final As Decimal = tdt.SUMD("Diferencia")
+            IImagenFinalVentas.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd")
+            LblVentasPerdidaGanancia.Text = If(Final > 0, "Pérdida", "Ganancia")
+
+            LblTotalVentas.Text = (PerdidaAux - GananciaAux).FormatoNumero 'tdt.SUMD("Diferencia").FormatoNumero
             LtIndicador_PerdidasVentas.Text = tdt.SUMD("Diferencia").FormatoNumero
             LtIndicador_GanaciaVentas.Text = ""
             LtIndicador_FinalVentas.Text = ""
@@ -669,7 +667,8 @@ Partial Class Bancos_FluctuacionCambiaria
                     '    AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal
                     'End If
                     tTipoMovto = dr("TipoMovto").ToString.ToBool
-                    If TipoFluctuacion.Contiene(3) AndAlso tTipoMovto AndAlso AjusteTotal > 0 Then AjusteTotal = -AjusteTotal 'si es cleintes, abonado y el ajustes es positivo tiene que restar
+                    If TipoFluctuacion.Contiene(3) AndAlso tTipoMovto Then AjusteTotal = -AjusteTotal 'si es cleintes, abonado y el ajustes es positivo tiene que restar
+
 
                     AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal
                     If AjusteTotal < 0 Then