diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 78282a279..3b46b208e 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2352,7 +2352,6 @@ Partial Class Bancos_IE
             Dim tCveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero
             Dim tImporteMonedaExtranjera As Decimal = 0
             If tCveMoneda <> 1 Then tImporteMonedaExtranjera = TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal
-            If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = TxtFolio.Text.ToEntero 'cheque
             Dim PagueseA = ""
 
             If HdnCveCliente.Value.ToEntero > 0 Then
@@ -2372,18 +2371,21 @@ Partial Class Bancos_IE
             End If
 
             If MsgError = "" Then
-                CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
-
-                'valida prepoliza
-                If CvePrePoliza > 0 Then
-                    Dim Conc As String = If(TxtObservaciones.Text = "", TxtFolio.Text, TxtObservaciones.Text)
-                    Dim Ref As String = If(TxtObservaciones.Text = "", TxtFolio.Text, TxtObservaciones.Text)
 
 
-                    CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero,
+
+                CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero,
                                            TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1))
 
-                    If CveIE > 0 Then
+                If CveIE > 0 Then
+
+                    If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = ObjIE.Folio.ToEntero 'cheque
+                    CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
+
+                    'valida prepoliza
+                    If CvePrePoliza > 0 Then
+                        Dim Conc As String = If(TxtObservaciones.Text = "", ObjIE.Folio, TxtObservaciones.Text)
+                        Dim Ref As String = If(TxtObservaciones.Text = "", ObjIE.Folio, TxtObservaciones.Text)
 
                         If Comprobante <> "" Then
                             ComprobanteIE = $"{CveIE}.{Comprobante}"
@@ -2462,7 +2464,7 @@ Partial Class Bancos_IE
                                         TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
                                         importeMovimiento = 0
                                         Multiplicador = (Row("Multiplicador").ToString.ToEntero)
-                                        Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", TxtFolio.Text)
+                                        Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio)
 
                                         Select Case ConceptoContable
 
@@ -2562,7 +2564,7 @@ Partial Class Bancos_IE
                                 Dim ImporteAplicar = 0.0D
                                 Dim ImporteAplicarMN = 0.0D
                                 Dim ImporteAplicarME = 0.0D
-                                Dim ReferenciaAplicar = TxtFolio.Text
+                                Dim ReferenciaAplicar = ObjIE.Folio
                                 Dim ConceptoAplicar = $"Devolución al cliente {PagueseA} {TxtImporte.Text} NC:{SerieFolioDevDin}"
 
                                 ImporteAplicar = TxtImporte.Text.ToDecimal
@@ -2643,7 +2645,7 @@ Partial Class Bancos_IE
                                 Dim ImporteAplicar = 0.0D
                                 Dim ImporteAplicarMN = 0.0D
                                 Dim ImporteAplicarME = 0.0D
-                                Dim ReferenciaAplicar = TxtFolio.Text
+                                Dim ReferenciaAplicar = ObjIE.Folio
 
                                 Dim ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}"
 
@@ -2883,7 +2885,7 @@ Partial Class Bancos_IE
                                         TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
                                         importeMovimiento = 0
                                         Multiplicador = (Row("Multiplicador").ToString.ToEntero)
-                                        Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", TxtFolio.Text)
+                                        Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio)
 
                                         Select Case ConceptoContable
 
@@ -3038,11 +3040,11 @@ Partial Class Bancos_IE
                             If DdlTipoTransaccion.SelectedValue = "1" Then TipoChq = "CHQ"
                             ConceptoRenglon = String.Format("Anticipo {0}", PagueseA)
 
-                            IDPoliza = Conta.AddPoliza(2, ConceptoRenglon, Total, Total, UsuarioActual.CveUsuario, Fecha, TxtFolio.Text, TipoChq)
+                            IDPoliza = Conta.AddPoliza(2, ConceptoRenglon, Total, Total, UsuarioActual.CveUsuario, Fecha, ObjIE.Folio, TipoChq)
 
                             If IDPoliza > 0 Then
                                 FolioPoliza = Conta.Folio
-                                Referencia = TxtFolio.Text
+                                Referencia = ObjIE.Folio
                                 ConceptoRenglon = String.Format("Anticipo {0} {1}", PagueseA, TxtObservaciones.Text)
 
                                 Total = TxtImporte.Text.ToDouble
@@ -3075,11 +3077,13 @@ Partial Class Bancos_IE
                         End If
 
                     Else
-                        MsgError = "No se insertó el encabezado"
+                        MsgError = "No se pudo insertar la póliza"
                     End If
+
                 Else
-                    MsgError = "No se pudo insertar la póliza"
+                    MsgError = "No se insertó el encabezado"
                 End If
+
             End If
 
         Else
diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb
index efc17754c..b3484860e 100644
--- a/Compras/RepRembolsoComprobaciones.aspx.vb
+++ b/Compras/RepRembolsoComprobaciones.aspx.vb
@@ -160,10 +160,17 @@ Partial Class Compras_RepRembolsoComprobaciones
     Private Sub LbkUnificar_Click(sender As Object, e As EventArgs) Handles LbkUnificar.Click
         Dim ObjComp As New ClsCompras()
         Dim ObjMov As New ClsContabilidad(ObjComp.IniciaTransacSQL)
+        Dim ObjAC As ClsContPAQi = Nothing
+        If UsuarioActual.Empresa.UsaAC Then
+            ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
+            ObjAC.IniciaTransacSQL()
+        End If
         Dim TieneError = False
         Dim CvePrePoliza As Integer = 0
+        Dim IdPoliza As Integer = 0
+        Dim Msg As New StringBuilder
 
-        CvePrePoliza = ObjMov.AddPrePolizas("Compras/Registrar", 1, DtDatos(0)("Original").ToString.ToDecimal, DtDatos(0)("Original").ToString.ToDecimal, CveMoneda, txtfechaUnificacion.text.trim.todate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
+        CvePrePoliza = ObjMov.AddPrePolizas("Compras/Registrar", 1, DtDatos(0)("Original").ToString.ToDecimal, DtDatos(0)("Original").ToString.ToDecimal, CveMoneda, TxtFechaUnificacion.Text.Trim.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
 
         If CvePrePoliza > 0 AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then
             If Not ObjComp.UnificarComprasPersonal(CvePrePoliza, DdlPersonal.SelectedValue.ToEntero, -1, TxtNumeroReembolso.Text, UsuarioActual.CveEmpresa) Then
@@ -187,17 +194,43 @@ Partial Class Compras_RepRembolsoComprobaciones
             End If
         End If
 
+        If Not TieneError Then
+            Msg.AppendFormat("Se unificaron todas las compras con éxito")
+        End If
+
+        If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then
+            If ObjAC Is Nothing Then
+                TieneError = True
+                Return
+            End If
+
+            If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
+                TieneError = True
+                Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
+            Else
+                IdPoliza = ObjMov.ContaIdPoliza
+            End If
+
+            If IdPoliza > 0 AndAlso Not TieneError Then
+                Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
+            End If
+
+        End If
+
 
         If Not TieneError Then
             ObjComp.Commit()
-            Alert("Se unificaron todas las compras con éxito", TipoMensaje.MsgInformacion)
+            If ObjAC IsNot Nothing Then ObjAC.Commit()
+            Alert(Msg.ToString, TipoMensaje.MsgInformacion)
         Else
             ObjComp.RollBack()
+            If ObjAC IsNot Nothing Then ObjAC.RollBack()
             Alert("Ocurrió un error al unificar las compras", TipoMensaje.MsgAdvertencia)
         End If
 
         ObjComp.Dispose()
         ObjMov.Dispose()
+        If ObjAC IsNot Nothing Then ObjAC.Dispose()
     End Sub
 
 #Region " CARGA DATOS "