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

catalogo clasificaciones comprobaciones filtro tipos

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-04-29 20:09:17 -07:00
parent 6dafc4732b
commit 2fdcfc2ff7
3 changed files with 43 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsClasificaciones.vb
View File

@@ -137,7 +137,7 @@ Public Class ClsClasificaciones
Return Retorno Return Retorno
End Function End Function
Public Function GetClasificacionesComprobaciones(CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean Public Function GetClasificacionesComprobaciones(CveEmpresa As Integer, Optional Opcion As Integer = 1, Optional TipoComprobacion As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_ClasificacionesComprobacionesGet") DataAdapter("PA_ClasificacionesComprobacionesGet")
@@ -145,6 +145,7 @@ Public Class ClsClasificaciones
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@TipoComprobacion", SqlDbType.Int).Value = TipoComprobacion
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

36
General/CatClasificacionesComprobaciones.aspx
View File

@@ -13,6 +13,42 @@
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div id="PFiltros" class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" />
<a href="javascript:;" class="expand"></a>
</div>
<div class=" caption">
<div class="row" style="margin-left: 10px;">
<label class="col-md-1 " id="LbDdlEstados" runat="server" style="width: 90px; margin-top: 5px;">Tipo:</label>
<div class="col-md-2" >
<asp:DropDownList ID="DdlEstadosComprobaciones" runat="server" Width="150px" Class="select2me" AutoPostBack="true">
<asp:ListItem Selected="True" Value="-1">Todos</asp:ListItem>
<asp:ListItem Value="0">Sin Asignar</asp:ListItem>
<asp:ListItem Value="1">Viáticos</asp:ListItem>
<asp:ListItem Value="2">Comprobacines</asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
<div class="portlet-body" style="display: none;">
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>

6
General/CatClasificacionesComprobaciones.aspx.vb
View File

@@ -33,11 +33,12 @@ Partial Class Gral_CatClasificacionesComprobaciones
Protected Sub CargaGridClasificaciones() Protected Sub CargaGridClasificaciones()
Dim ObjClasificaciones As New ClsClasificaciones() Dim ObjClasificaciones As New ClsClasificaciones()
If ObjClasificaciones.GetClasificacionesComprobaciones(UsuarioActual.CveEmpresa, 2) Then If ObjClasificaciones.GetClasificacionesComprobaciones(UsuarioActual.CveEmpresa, 2, DdlEstadosComprobaciones.SelectedValue.ToEntero) Then
GvClasificaciones.DataSource = ObjClasificaciones.DtResultados GvClasificaciones.DataSource = ObjClasificaciones.DtResultados
GvClasificaciones.DataBind() GvClasificaciones.DataBind()
End If End If
ObjClasificaciones.Dispose() ObjClasificaciones.Dispose()
UpDatos.Update()
End Sub End Sub
Private Sub LbAgregarClasificacion_Click(sender As Object, e As EventArgs) Handles LbAgregarClasificacion.Click Private Sub LbAgregarClasificacion_Click(sender As Object, e As EventArgs) Handles LbAgregarClasificacion.Click
@@ -75,4 +76,7 @@ Partial Class Gral_CatClasificacionesComprobaciones
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
CargaGridClasificaciones()
End Sub
End Class End Class