From 161dad4592fcc29f3242f08910c2b00545545d61 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Fri, 28 Feb 2020 13:48:31 -0700
Subject: [PATCH] -

---
 Contabilidad/RegPrePoliza1.aspx.vb   | 22 +++-------------------
 Inventarios/RecepcionAlmacen.aspx.vb |  3 ++-
 Ventas/ClientesAbonar.aspx.vb        |  2 +-
 Ventas/Ventas.aspx.vb                |  1 +
 4 files changed, 7 insertions(+), 21 deletions(-)

diff --git a/Contabilidad/RegPrePoliza1.aspx.vb b/Contabilidad/RegPrePoliza1.aspx.vb
index 36f359c07..396eb55d9 100644
--- a/Contabilidad/RegPrePoliza1.aspx.vb
+++ b/Contabilidad/RegPrePoliza1.aspx.vb
@@ -175,18 +175,7 @@ Partial Class ContabilidadC_RegPrePoliza
             Beneficiario = "-1"
             Actualizar = False
 
-            Dim dt As DataTable = Nothing
-            If UsuarioActual.Empresa.UsaContabilidad Then
-                Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
-
-                If Conta.GetCuentas(-1, "-1", 1) Then
-                    dt = Conta.DtResultados
-                    DtCuentasContables = Conta.DtResultados
-                    Session("DtCuentas") = Conta.DtResultados
-                End If
-                Conta.Dispose()
-
-                If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
+            If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
                     DivTipoGasto.Visible = True
                     ThTipoGasto.Visible = True
                     CargaTiposGasto()
@@ -250,14 +239,9 @@ Partial Class ContabilidadC_RegPrePoliza
                     GvMov.Columns(4).Visible = False
                 End If
 
-            Else
-                Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
-                BtnIEGuardar.Enabled = False
-                BtnEliminar.Visible = False
-                LbAgregar.Enabled = False
-            End If
 
-        End If
+
+            End If
 
     End Sub
 
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 12c73fb0e..e5801a2a1 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -2999,7 +2999,7 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+        If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
             ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
             ObjContaAC.IniciaTransacSQL()
             If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then
@@ -3029,6 +3029,7 @@ Partial Class Inventarios_RecepcionAlmacen
             ObjInventario.RollBack()
             If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
+            GuardaLog(MensajeError)
             Alert("Error al guardar el movimiento de almacen. Por favor vuelva a intentar.", TipoMensaje.MsgError)
         End If
 
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index fa1d019a5..a9c503494 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1385,7 +1385,7 @@ Partial Class Ventas_ClientesAbonar
                                             ImporteMovimiento = 0
                                     End Select
 
-                                    If ImporteMovimiento <> 0 Then
+                                    If ImporteMovimiento <> 0 AndAlso MsgError = "" Then
                                         'Conta ContPAQ
                                         If (IdCtaContable < 1 Or IdCuentaBancaria < 1) Then
                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index d5fb792ac..3c3e134ce 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -11695,6 +11695,7 @@ Partial Class Ventas
                 End If
 
             End If
+            saldo = saldo.RoundSQL()
 
             Dim maxsaldo As Decimal
             If total > saldo Then