diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 6e895b81a..55fd94f2b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -15808,23 +15808,14 @@ Partial Class Ventas
 
                                     If CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
-                                        importeMN = importeMovimiento
-                                        TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
                                     ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 2 Then
                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
-                                        importeMN = importeMovimiento * gvr.DataKey("TipoCambio").ToString().ToDecimal
-                                        TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
                                     ElseIf CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToEntero = 2 Then
                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
-                                        importeMN = importeMovimiento * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
-                                        TC = TipoCambioFluctuacion
                                     ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
-                                        importeMN = importeMovimiento
-                                        TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
                                     End If
                                     importeMovimiento = importeMovimiento.RoundSQL
-                                    importeMN = importeMN.RoundSQL
 
                                     If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(12, CveCliente) Then
                                         If ObjConta.DtResultados.Rows.Count > 0 Then