En el reporte de rembolsos comprobaciones contabilizar automaticamente cuando se unifica, en IE que agare el folio que regrese cuando se registre este mismo.

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 "