From cafc67ba41610a854643c7380b461cf3dcec3adb Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 23 Jun 2022 07:23:08 -0700
Subject: [PATCH] -- tipo conta

---
 Inventarios/EntradasSalidas.aspx.vb | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index ebc1f90e2..746e42d4f 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1266,7 +1266,7 @@ Partial Class Inventarios_EntradasSalidas
             Dim TieneError = False
 
             Dim ObjConta As ClsContPAQi = Nothing
-            If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC) Then
                 ObjConta = New ClsContPAQi(UsuarioActual.Empresa)
                 ObjConta.IniciaTransacSQL()
             End If
@@ -1803,7 +1803,7 @@ Partial Class Inventarios_EntradasSalidas
                                 Case 30
                                     CveConceptoContable = 181
                                     TipoMovtoOtro = False
-                                    tCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
+                                    If DdlSubProyecto.Visible = True AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 Then tCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
                                     If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then
                                         IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
                                     End If
@@ -3350,9 +3350,8 @@ Partial Class Inventarios_EntradasSalidas
         DdlAlmacen.DataBind()
         Dim dttA As DataTable = Nothing
         dttA = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 14)
-        If UsuarioActual.CveEmpresa = 119 Then
-            dttA.Merge(GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1))
-        End If
+        dttA.Merge(GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1))
+
         DdlAlmacen.DataSource = dttA 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
         DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
         ' DdlAlmacen.SelectedValue = "-1"