From d8fd70c9e3cbd39874dd7c05781b977c14b82202 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 22 Jul 2021 20:27:32 -0700
Subject: [PATCH] =?UTF-8?q?filtro=20de=20opci=C3=B3n=20de=20cuentas=20asig?=
 =?UTF-8?q?nadas/no=20asignadas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsContabilidad.vb                  | 3 ++-
 Contabilidad2/CatCuentasAsignaciones.aspx    | 9 +++++++++
 Contabilidad2/CatCuentasAsignaciones.aspx.vb | 4 ++--
 3 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 289b3981f..4556220f6 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5747,7 +5747,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer) As Boolean
+    Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer, Opcion As Integer) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet")
@@ -5755,6 +5755,7 @@ Public Class ClsContabilidad
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
 
         Try
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx
index 5169e3e04..e518412a9 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx
@@ -45,6 +45,15 @@
                                     <asp:ListItem Text="Activos Fijos" Value="9"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
+
+                            <label runat="server" id="Lbl" class="col-md-1 truncate">Opción:</label>
+                            <div runat="server" id="Div1" class="col-md-2">
+                                <asp:DropDownList ID="DdlOpcion" runat="server" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                    <asp:ListItem Text="Asignadas" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Sin Asignar" Value="2"></asp:ListItem>                                 
+                                </asp:DropDownList>
+                            </div>
                                                           
                         </div>
                     </div>
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
index b350aa975..2dcb413aa 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -21,7 +21,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         End If
     End Sub
 
-    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs)
         CargaDatosSistema()
 
     End Sub
@@ -37,7 +37,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
     Private Sub CargaDatosSistema()
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.selectedvalue.toentero) Then
+        If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjConta.DtResultados
         End If
         ObjConta.Dispose()