AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

filtro de opción de cuentas asignadas/no asignadas

Browse Source
This commit is contained in:
rrene
2021-07-22 20:27:32 -07:00
parent 3740d8c919
commit d8fd70c9e3
3 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Contabilidad2/CatCuentasAsignaciones.aspx
View File

@@ -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>

4
Contabilidad2/CatCuentasAsignaciones.aspx.vb
View File

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