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

Compras/RepNotasCredito.aspx.vb

@@ -129,7 +129,7 @@ Partial Class Compras_RepNotasCredito
         Dim TCCompra As Decimal = 0
         Dim Concepto As String = TxtConcepto.Text
         Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119)
-        Dim MensajeAlert = New StringBuilder
+        Dim MensajeAlert As New StringBuilder
 
         CvePrePoliza = ObjConta.AddPrePolizas("Compras/RepNotasCredito", 103, 0, 0, 1, TxtFechaSaldar.Text.ToDate, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
@@ -139,7 +139,7 @@ Partial Class Compras_RepNotasCredito
                 ImporteMN = gr.DataKey("Saldo").ToDecimal.RoundSQL
                 TCCompra = gr.DataKey("TipoCambio").ToDecimal
                 CveMoneda = gr.DataKey("CveMoneda").ToEntero
-                Dim CveTipoConcepto = gr.DataKey("CveTipoConcepto").ToEntero
+                Dim CveTipoConcepto As Integer = gr.DataKey("CveTipoConcepto").ToEntero
 
                 If CveMoneda > 1 Then
                     ImporteMN = (gr.DataKey("Saldo").ToDecimal * TCCompra).RoundSQL
@@ -188,22 +188,13 @@ Partial Class Compras_RepNotasCredito
         Next
 
         If MsgError = "" Then
-            If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
+            If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=5) Then
                 If ObjConta.ValorPolizaDescuadre > 0 Then
                     MsgError = ObjConta.MensajePolizaDescuadre
                     GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                 End If
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
-                If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                    If MensajeAlert.ToString = "" Then
-                        MensajeAlert.AppendFormat("Los siguientes movimientos fueron saldados correctamente: <br/>")
-                    End If
-                    MensajeAlert.AppendFormat("<ul><li><a Class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Poliza {1}</a></li></ul>", ObjConta.ContaIdPoliza, ObjConta.ContaFolio)
-                End If
-            End If
-
             If MsgError = "" Then
                 ObjConta.Commit()
                 If MensajeAlert.ToString <> "" Then