-

Contabilidad/RegPrePoliza1.aspx.vb

@@ -175,18 +175,7 @@ Partial Class ContabilidadC_RegPrePoliza
             Beneficiario = "-1"
             Actualizar = False
 
-            Dim dt As DataTable = Nothing
+            If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
-            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
                     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
 

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
 

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)

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