diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index cd5dbd416..45306e38b 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1362,6 +1362,8 @@ Partial Class Compras_Compras
 
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
+
         If Not IsPostBack Then
             'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
             'ImgBtnBuscarOC.Attributes.Add("data-placement", "top")
@@ -17609,10 +17611,15 @@ Partial Class Compras_Compras
             If TxtDescuento.Text.ToDouble > 0 Then TrDescuento.Visible = True
 
             If ActualizaTotales And (UsuarioActual.CveEmpresa = 72 Or Not CveCompraFactura > 0) Then
-                TxtTotal.Text = Total.ToString.FormatoNumero()
-                If CveCompra > 0 AndAlso CveCompraFactura = 0 Then
+
+                If Not (CveFactura > 0 And CveCompra <= 0) Then
+                    TxtTotal.Text = Total.ToString.FormatoNumero()
+                ElseIf CveCompra > 0 AndAlso CveCompraFactura = 0 Then 'Compra manual que ya estaba registrada
+                    TxtTotal.Text = Total.ToString.FormatoNumero()
                     TxtIVA.Text = IVA.ToString.FormatoNumero()
                 End If
+
+
             End If
 
         Else