diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 7765642fb..ba963379c 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1511,10 +1511,10 @@ Partial Class Compras_Compras
 
             ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
 
-                If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
-                    DdlTipoComprobante.Items.Clear()
-                    DdlTipoComprobante.Items.Add(New ListItem("Remisión de Nota de Crédito", "RNC"))
-                End If
+                'If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+                '    DdlTipoComprobante.Items.Clear()
+                '    DdlTipoComprobante.Items.Add(New ListItem("Remisión de Nota de Crédito", "RNC"))
+                'End If
 
                 ViewState("CveCompra") = Request("CveCompra")
                 CargaCompra()
@@ -2990,6 +2990,10 @@ Partial Class Compras_Compras
                 End If
 
                 DdlTipoComprobante.Enabled = False
+                If dr("TipoDocto").ToString = "RNC" Then
+                    DdlTipoComprobante.Items.Add(New ListItem("Remisión de Nota de Crédito", "RNC"))
+                End If
+
                 DdlTipoComprobante.SelectedValue = dr("TipoDocto").ToString
                 If dr("TipoDocto").ToString.Contiene("Fac", "Ant") Then
                     ChkAplicaNotaCredito.Enabled = True
@@ -3245,8 +3249,6 @@ Partial Class Compras_Compras
                     BtnEliminarCompra.Visible = False
                 End If
 
-
-
             Else
                 Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
             End If
@@ -8354,7 +8356,7 @@ Partial Class Compras_Compras
                                     If ChkPagarConDolares.Checked Then Pago.TCCambioMoneda = TipoCambioAnt
 
                                     Select Case gvr.DataKey("TipoDocto")
-                                        Case "NC", "DEV"
+                                        Case "NC", "DEV", "RNC"
                                             CveConceptoCompra = If(CveMonedaAnticipo = 1, 60, 60)
                                             CveConceptoCompraComplementaria = 235
                                             CveIE = -1
@@ -14743,6 +14745,10 @@ Partial Class Compras_Compras
         If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso (AjusteProntoPagoConIVA > 0 Or AjusteProntoPagoSinIVA > 0) Then
 
             Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
+            If CvePS_RNC = 0 Then
+                Alert("producto utilizado para diferencia no definido.")
+                Exit Sub
+            End If '876906
             Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("")
             Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
             Dim SubProyecto As String = GlobalDTSubProyectos(-1, CveSubProyectoPrincipal, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
@@ -20875,7 +20881,6 @@ Partial Class Compras_Compras
             Return False
         End If
 
-
         If Not CveSubProyectoPrincipal > 0 Then
             Alert("No esta definido el Sub Proyecto.", TipoMensaje.MsgAdvertencia)
             Return False
@@ -20900,9 +20905,6 @@ Partial Class Compras_Compras
             CompraRNC.Folio = TxtFolio.Text
             CompraRNC.CveCompraAmortizacion = CveCompraRegistrada
 
-
-
-
             Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
             If PSRow("CvePSCargo").ToString <> "" Then
                 CveTipoPS = 2
@@ -20934,8 +20936,8 @@ Partial Class Compras_Compras
                 CompraRNCProntoPAgo.NombreProveedor = DdlProveedor.SelectedItem.Text
                 CompraRNCProntoPAgo.Fecha = TxtFecha.Text.ToDate
                 CompraRNCProntoPAgo.CveMoneda = DdlMoneda.SelectedValue.ToEntero
-                CompraRNCProntoPAgo.Serie = $"{TxtSerie.Text}_P"
-                CompraRNCProntoPAgo.Folio = $"{TxtFolio.Text}_P"
+                CompraRNCProntoPAgo.Serie = $"PP-{TxtSerie.Text}"
+                CompraRNCProntoPAgo.Folio = $"{TxtFolio.Text}"
                 CompraRNCProntoPAgo.CveCompraAmortizacion = CveCompraRegistrada
                 Dim IVARNCProntoPago As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
 
@@ -20945,12 +20947,8 @@ Partial Class Compras_Compras
                 End If
 
             End If
-
-
         End If
 
-
-
         Return respuesta
     End Function
 
@@ -20974,9 +20972,9 @@ Partial Class Compras_Compras
         Else
 
             If ImporteRNCProntoPago > 0 Then
-                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generaran dos Remisiones de Nota de Crédito una por descuento de ${ImporteRNC.ToString("###,###,###.00")} y otra por  pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
+                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra. <br/> Se generaran las siguientes Remisiones de Nota de Crédito. <br/> - Descuento de ${ImporteRNC.ToString("###,###,###.00")}.<br/> - Pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
             Else
-                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generara una Remision de Nota de Crédito una por descuento de ${ImporteRNC.ToString("###,###,###.00")}"
+                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generara una Remision de Nota de Crédito por descuento de ${ImporteRNC.ToString("###,###,###.00")}"
             End If
 
             RegistraScript("$('#DVModalConfirmaVinculacionProntoPago').modal('show');")
diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
index a53dcd376..c0868b5c7 100644
--- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
+++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb
@@ -1,9 +1,6 @@
 Option Explicit On
 Option Strict On
 
-Imports System
-Imports System.Linq
-Imports System.Web.UI.WebControls
 Imports Extensiones
 
 Partial Class PopUpSeleccionarEmpresa