From 6ef3ae0071f10847cbc856919c4bc76cce8d02f0 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Thu, 1 Oct 2020 13:53:06 -0700
Subject: [PATCH] Correcion Filtro  Estatus Cliente

---
 Bancos/PolizaCheque.aspx.vb | 100 +++++++++++++++++++-----------------
 Ventas/CatClientes.aspx     |   2 +-
 2 files changed, 53 insertions(+), 49 deletions(-)

diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb
index 56533019e..f27450da1 100644
--- a/Bancos/PolizaCheque.aspx.vb
+++ b/Bancos/PolizaCheque.aspx.vb
@@ -403,54 +403,58 @@ Partial Class Bancos_PolizaCheque
             CodigoCuenta = ""
             NombreCuenta = ""
 
-            If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
-                Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))
-
-
-                If drr IsNot Nothing Then
-                    IdCuenta = drt("IdCtaContable").ToString.ToEntero
-                    CodigoCuenta = drr("CuentaFormato").ToString()
-                    NombreCuenta = drr("Nombre").ToString()
-                    'Cuenta = drr("Nombre").ToString()
-                End If
-                EsComodin = 0
-
-
-            ElseIf drt("CveConcepto").ToString = "30" Then
-                'saco la clave de la cuenta bancaria seleccionada
-                If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables
-                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero)))
-                    If drr IsNot Nothing Then
-                        IdCuenta = drr("Id").ToString.ToEntero
-                        CodigoCuenta = drr("CuentaFormato").ToString()
-                        NombreCuenta = drr("Nombre").ToString()
-                        '  Cuenta = drr("Nombre").ToString()
-                        EsComodin = 1
-                    Else
-
-                        ' Rad.Checked = False
-                        If UsuarioActual.CveEmpresa <> 126 Then
-                            Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia)
-                            GvMov.DataBind()
-                            UPMovs.Update()
-                            Exit Sub
-                        End If
-
-                    End If
-                End If
-            ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then
-
-                Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia))
-
-                IdCuenta = IdCtaFondoGarantia
-                CodigoCuenta = drr("CuentaFormato").ToString()
-                NombreCuenta = drr("Nombre").ToString()
-                'Cuenta = drr("Nombre").ToString()
-
-                EsComodin = 0
-
-            End If
-
+            If UsuarioActual.Empresa.UsaContabilidad Then
+                If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables
+                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString))
+
+
+                    If drr IsNot Nothing Then
+                        IdCuenta = drt("IdCtaContable").ToString.ToEntero
+                        CodigoCuenta = drr("CuentaFormato").ToString()
+                        NombreCuenta = drr("Nombre").ToString()
+                        'Cuenta = drr("Nombre").ToString()
+                    End If
+                    EsComodin = 0
+
+
+                ElseIf drt("CveConcepto").ToString = "30" Then
+                    'saco la clave de la cuenta bancaria seleccionada
+                    If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables
+                        Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero)))
+                        If drr IsNot Nothing Then
+                            IdCuenta = drr("Id").ToString.ToEntero
+                            CodigoCuenta = drr("CuentaFormato").ToString()
+                            NombreCuenta = drr("Nombre").ToString()
+                            '  Cuenta = drr("Nombre").ToString()
+                            EsComodin = 1
+                        Else
+
+                            ' Rad.Checked = False
+                            If UsuarioActual.CveEmpresa <> 126 Then
+                                Alert("La Cuenta Bancaria no se ha vinculado a la cuenta contable", TipoMensaje.MsgAdvertencia)
+                                GvMov.DataBind()
+                                UPMovs.Update()
+                                Exit Sub
+                            End If
+
+                        End If
+                    End If
+                ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then
+
+                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia))
+
+                    IdCuenta = IdCtaFondoGarantia
+                    CodigoCuenta = drr("CuentaFormato").ToString()
+                    NombreCuenta = drr("Nombre").ToString()
+                    'Cuenta = drr("Nombre").ToString()
+
+                    EsComodin = 0
+
+                End If
+            End If
+
+
+
             Dim dr As DataRow = DtMovimientos.NewRow
             dr("IdCuenta") = IdCuenta
             dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
diff --git a/Ventas/CatClientes.aspx b/Ventas/CatClientes.aspx
index 08b7edadf..cb3868201 100644
--- a/Ventas/CatClientes.aspx
+++ b/Ventas/CatClientes.aspx
@@ -60,7 +60,7 @@
                                 <asp:DropDownList ID="DdlEstatus" runat="server" CssClass=" form-control  input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
                                     <asp:ListItem Value="-1">Todos</asp:ListItem>
                                     <asp:ListItem Selected="True" Value="1">Activo</asp:ListItem>
-                                    <asp:ListItem Value="2">Inactivo</asp:ListItem>
+                                    <asp:ListItem Value="0">Inactivo</asp:ListItem>
                                 </asp:DropDownList>
                             </div>