diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index a99e74ffd..6aa638695 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1596,6 +1596,8 @@ Partial Class Compras_Compras
                 DdlTipoComprobante.SelectedValueExist("DEV")
             End If
 
+
+
         End If
 
         'SE OCUPAN AFUERA DEL POSTBACK ??
@@ -3381,7 +3383,13 @@ Partial Class Compras_Compras
 
                 ViewState("CveProveedor") = ObjProveedor.CveProveedor
                 ViewState("CveTipoProveedor") = ObjProveedor.CveTipoProveedor
-                If ObjProveedor.CveTipoProveedor = 1 Then LblProveedor.Text = "Proveedor:" Else LblProveedor.Text = "Acreedor:"
+
+                If ObjProveedor.CveTipoProveedor = 2 Then
+                    LblProveedor.Text = "Acreedor:"
+                Else
+                    LblProveedor.Text = "Proveedor:"
+                End If
+
                 CveTipoConcepto = ObjProveedor.CveTipoProveedor
 
                 ViewState("NombreProveedor") = ObjProveedor.RazonSocial
@@ -19623,12 +19631,12 @@ Partial Class Compras_Compras
     End Sub
 
     Public Sub LblProveedor_OnClick(sender As Object, e As EventArgs) Handles LblProveedor.Click
-        If CveTipoConcepto = 1 Then
-            LblProveedor.Text = "Acreedor:"
-            CveTipoConcepto = 2
-        Else
+        If CveTipoConcepto = 2 Then
             LblProveedor.Text = "Proveedor:"
             CveTipoConcepto = 1
+        Else
+            LblProveedor.Text = "Acreedor:"
+            CveTipoConcepto = 2
         End If
     End Sub
 
@@ -20659,6 +20667,9 @@ Partial Class Compras_Compras
             CompraRNC.NombreProveedor = DdlProveedor.SelectedItem.Text
             CompraRNC.Fecha = TxtFecha.Text.ToDate
             CompraRNC.CveMoneda = DdlMoneda.SelectedValue.ToEntero
+            CompraRNC.Serie = TxtSerie.Text
+            CompraRNC.Folio = TxtFolio.Text
+
 
 
             Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
@@ -20690,6 +20701,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.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, ImporteRNCProntoPago)
                 If Not CompraRNCProntoPAgo.AddCompraRNC(trasaccion) Then
@@ -22621,7 +22634,7 @@ Public Class ClsCompraManagerCompras
         If Not AjustesValidacion() Then Return False
 
         Dim respuesta As Boolean = True
-        Dim ObjCompras As New ClsCompras
+        Dim ObjCompras As New ClsCompras(transacccion)
         Dim ObjConta As New ClsContabilidad(transacccion)
 
         If Not AddPrepolizaCabecera(ObjConta) Then
@@ -22722,14 +22735,14 @@ Public Class ClsCompraManagerCompras
         If ES_RNC Then
 
             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Me.Total, Me.Total, 370, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
-                                                        CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=False) Then
+                                                        CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=True) Then
                 respuesta = False
 
             End If
 
             If respuesta Then
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Me.Total, Me.Total, 371, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
-                                                        CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=False) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Me.Total, Me.Total, 372, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, Me.Total), TipoCambio:=TipoCambio,
+                                                        CveClasificacion:=-1, CveSubProyecto:=Me.CveSubProyecto, Contabilizable:=True) Then
                     respuesta = False
 
                 End If