diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 38cec4aa4..2a408ff3c 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -7742,6 +7742,8 @@ Public Class ClsPaginas
         'Dim urlHost As String = "http://localhost:2202/"
         If EsProduccion Then
             urlHost = "http://192.200.113.178:6599/"
+        Else
+            urlHost = "http://localhost:2202/"
         End If
         'SITIO DE PRUEBA EN IIS
         Dim Url As Uri = New Uri(String.Format("{0}{1}", urlHost, Opcion))
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index b71c4f47d..b8dd69b13 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3548,32 +3548,35 @@ Namespace Modelos
 
                                                 If Not ErrorPrepoliza AndAlso ObjFactura.CveTipoAmortizacionAnticipo = 2 AndAlso ObjFactura.EsNCAmortizacion AndAlso ObjFactura.TipoDocto.Contiene("Egs") AndAlso ObjFactura.DtAnticiposAplicados IsNot Nothing Then
 
-                                                    For Each row2 As DataRow In ObjFactura.DtAnticiposAplicados.Rows
-                                                        If row2("CveConceptoContable").ToString().ToEntero() = 3 Then
-                                                            CveIEAnticipo = row2("CveIE").ToString().ToEntero()
+                                                    For Each RowAnticipo As DataRow In ObjFactura.DtAnticiposAplicados.Rows
+                                                        If RowAnticipo("Tipo").ToString() = "Ant" AndAlso RowAnticipo("CveConceptoContable").ToString().ToEntero().Contiene(3, 295) Then
 
-                                                            importeMovimiento = row2("Importe").ToString().ToDecimal() '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal)
+                                                            importeMovimiento = RowAnticipo("Importe").ToString().ToDecimal()
 
                                                             Dim ImporteAnticipo As Decimal = importeMovimiento
-                                                            Dim CveMonedaAnticipo As Integer = row2("CveMoneda").ToString().ToEntero()
-
-                                                            If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+                                                            Dim CveMonedaAnticipo As Integer = RowAnticipo("CveMoneda").ToString().ToEntero()
 
                                                             If ObjFactura.CveTipoAmortizacionAnticipo = 2 Then
-                                                                Dim DescuentosAnticipos As Decimal = row2("Descuentos").ToString().ToDecimal
-                                                                ImporteAnticipo = ImporteAnticipo / (row2("TotalAnticipo").ToString().ToDecimal - DescuentosAnticipos) * row2("SubTotalAnticipo").ToString().ToDecimal
+                                                                Dim DescuentosAnticipos As Decimal = RowAnticipo("Descuentos").ToString().ToDecimal
+                                                                ImporteAnticipo = ImporteAnticipo / (RowAnticipo("TotalAnticipo").ToString().ToDecimal - DescuentosAnticipos) * RowAnticipo("SubTotalAnticipo").ToString().ToDecimal
                                                                 ImporteAnticipo = ImporteAnticipo.RoundSQL(2)
                                                             End If
 
-                                                            Dim Importe11MX As Decimal = ImporteAnticipo
-                                                            CveSubProyectoContabilizar = CveSubProyectoVenta
+                                                            Dim PagoAnt As New ClsPaginas.VentaPago
+                                                            PagoAnt.ImportePagoVenta = 0 'DEBE SER 0 PORQUE EL PAGO A LA FACTURA YA FUE APLICADO PREVIAMENTE
+                                                            PagoAnt.ImportePago = ImporteAnticipo
+                                                            PagoAnt.CveIE = RowAnticipo("CveIE").ToString().ToEntero()
+                                                            PagoAnt.CveMonedaPago = CveMonedaAnticipo
+                                                            PagoAnt.TipoPago = "A"
+                                                            PagoAnt.Fecha = ObjFactura.Fecha
+                                                            PagoAnt.CveVentaAmortizacion = RowAnticipo("CveVenta").ToString().ToEntero()
+                                                            PagoAnt.TCPago = RowAnticipo("TipoCambioPago").ToString().ToDecimal()
+                                                            PagoAnt.AplicaTraslado = False
+                                                            PagoAnt.Referencia = Referencia
+                                                            PagoAnt.AplicaConceptoImpuestoPendiente = False
+
+                                                            ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, PagoAnt, ObjFactura.CvePrePoliza, ObjConta)
 
-                                                            If importeMovimiento <> 0 Then
-                                                                If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe11MX, Importe11MX, 11, Referencia, Concepto, CveVenta:=row2("CveVenta").ToString().ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
-                                                                    ErrorPrepoliza = True
-                                                                    Exit For
-                                                                End If
-                                                            End If
                                                         End If
                                                     Next
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9b6d4ebe3..d4f2051a7 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -17638,7 +17638,6 @@ Partial Class Ventas
                 Dim Folio = GvRowAnticipo.DataKey("Folio")
                 Dim Tipo = GvRowAnticipo.DataKey("Tipo")
 
-
                 DtAnticipos.Rows.Add(CveVenta, Importe, CveConceptoContable, CveIE, FolioFiscal, Descuentos, TotalAnticipo, SubTotalAnticipo, CveMoneda, Fecha, TipoCambioPago, Folio, Tipo)
             End If
 
@@ -17768,7 +17767,7 @@ Partial Class Ventas
                             Select Case gvr.DataKey("CveConceptoContable").ToString()
                                 Case "3", "295"
 
-                                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlMoneda.SelectedValue.ToEntero() = 1 Then
+                                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
                                         Dim ImporteNC As Decimal = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
 
                                         Dim RespNC = GenerarNC(ImporteNC, DdlVendedor.SelectedValue.ToEntero(), Me.VentaActual, gvr, ObjVenta)