diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index ef294b50b..c0c464012 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9780,7 +9780,7 @@ Partial Class Compras_Compras
 
 
 
-
+                Dim TCAnt As Decimal = If(DdlMoneda.SelectedValue = "1", 1, If(CveCompra > 0, LblTC.Text.ToDecimal, TxtTC.Text.ToDecimal))
 
 
                 If UsuarioActual.Empresa.CveEmpresa.Contiene(13, 83) Then
@@ -9792,7 +9792,7 @@ Partial Class Compras_Compras
                                                                                     e.Row.DBCampo("CveMoneda"),
                                                                                     e.Row.DBCampo("TCCompra").ToDouble,
                                                                                     DdlMoneda.SelectedValue,
-                                                                                    IIf(DdlMoneda.SelectedValue = "1", 1, TxtTC.Text),
+                                                                                    TCAnt,
                                                                                     e.Row.FCTextBox("TxtComision").ClientID
                                                                                     )) 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO
 
@@ -9824,7 +9824,7 @@ Partial Class Compras_Compras
                                                                                     e.Row.DBCampo("CveMoneda"),
                                                                                     e.Row.DBCampo("TCCompra").ToDouble,
                                                                                     DdlMoneda.SelectedValue,
-                                                                                    IIf(DdlMoneda.SelectedValue = "1", 1, TxtTC.Text)
+                                                                                    TCAnt
                                                                                     )) 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO
 
                     e.Row.FCTextBox("TxtAnticipo").Attributes.Add("onKeyUp", String.Format("FnCambiaAnt({0},this,{1},{2},{3},{4},{5});",
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index ab4a57400..07148d380 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1690,7 +1690,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         End If
 
 
-        If DdlPlantilla.SelectedValue.ToEntero <> 53 Then
+        If DdlPlantilla.SelectedValue.ToEntero <> 53 And Not CvePrePoliza > 0 Then
 
             Dim x As Integer = 0
             For Each gvRow As GridViewRow In GvMov.Rows
@@ -1769,7 +1769,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         DtMovimientos.AcceptChanges()
 
-        If DdlPlantilla.SelectedValue.ToEntero <> 53 Then
+        If DdlPlantilla.SelectedValue.ToEntero <> 53 And Not CvePrePoliza > 0 Then
             GvMov.DataSource = DtMovimientos
             GvMov.DataBind()
             GvPrePoliza.DataBind()