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

3
App_Code/ClsContabilidad.vb
View File

@@ -5747,7 +5747,7 @@ Public Class ClsContabilidad
Return Retorno Return Retorno
End Function 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 Dim Retorno = False
DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet") DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet")
@@ -5755,6 +5755,7 @@ Public Class ClsContabilidad
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Tipo", SqlDbType.Int).Value = Tipo .Add("@Tipo", SqlDbType.Int).Value = Tipo
.Add("@Opcion", SqlDbType.Int).Value = Opcion
End With End With
Try Try

9
Contabilidad2/CatCuentasAsignaciones.aspx
View File

@@ -46,6 +46,15 @@
</asp:DropDownList> </asp:DropDownList>
</div> </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>
</div> </div>
</div> </div>

4
Contabilidad2/CatCuentasAsignaciones.aspx.vb
View File

@@ -21,7 +21,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
End If End If
End Sub 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() CargaDatosSistema()
End Sub End Sub
@@ -37,7 +37,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Private Sub CargaDatosSistema() Private Sub CargaDatosSistema()
Dim ObjConta As New ClsContabilidad 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 GvDatos.DataSource = ObjConta.DtResultados
End If End If
ObjConta.Dispose() ObjConta.Dispose()