filtro de opción de cuentas asignadas/no asignadas

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

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>

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()