-- cambio a unificación función validaciónprepolizas

Compras/RepRembolsoComprobaciones.aspx.vb

@@ -160,7 +160,7 @@ Partial Class Compras_RepRembolsoComprobaciones
 
             End If
 
-            If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+            If ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
                 If ObjMov.ValorPolizaDescuadre > 0 Then
                     GuardaLogAD($"Compras/RepRembolsoComprobaciones - Unificar | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                     Alert(ObjMov.MensajePolizaDescuadre, TipoMensaje.MsgError)
@@ -171,25 +171,11 @@ Partial Class Compras_RepRembolsoComprobaciones
             If Not TieneError Then
                 Msg.AppendFormat("Se unificaron todas las compras con éxito")
             End If
-
-            If UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" AndAlso Not TieneError Then
-                ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
-                ObjAC.IniciaTransacSQL()
-
-                If Not TieneError Then
-                    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
-                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
-
+            IdPoliza = ObjMov.ContaIdPoliza
+            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
+
         Catch ex As Exception
             TieneError = True
             OnError("Ocurrió un error al unificar las compras", ex)