Grupos y Clacificacaiones Comprobaciones
This commit is contained in:
Rakcsle Supertramp
@@ -11,6 +11,14 @@
|
||||
Catálogo de Clasificaciones Viáticos y Comprobaciones
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
<asp:UpdatePanel runat="server" ID="UpAcciones">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:LinkButton runat="server" ID="LnkAgregarClasificacion" data-toggle="tooltip" data-placement="left" title="Agregar Clasificación"
|
||||
Text="<i class='fa fa-plus'></i> Agregar Clasificación" OnClick="LnkAgregarClasificacion_Click" ></asp:LinkButton>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
|
||||
@@ -32,7 +40,7 @@
|
||||
<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:ListItem Value="2">Comprobaciones</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
@@ -65,14 +73,15 @@
|
||||
<asp:TemplateField ItemStyle-Width="40px" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" OnClick="ActualizaModalClasif" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- <asp:TemplateField ItemStyle-HorizontalAlign="center">
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="40px" >
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea Elminar?" data-btn-ok-label="si" />
|
||||
<asp:LinkButton ID="LnkEliminar" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="LnkEliminar_Click"
|
||||
CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea Elminar?" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>--%>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
@@ -103,18 +112,20 @@
|
||||
<div class="modal-body">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtClasificaciones" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" ValidationGroup="Clasif" Enabled="false"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVCampaña" runat="server" ControlToValidate="TxtClasificaciones" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtClasificaciones.ClientID.ToString()%>">Clasificación:</label>
|
||||
|
||||
<asp:DropDownList ID="DdlClasificacion" runat="server" DataValueField="CveClasificacion" DataTextField="Clasificacion" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVCampaña" InitialValue="-1" runat="server" ControlToValidate="DdlClasificacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<label for="<%= DdlTipoComprobacion.ClientID.ToString()%>">Tipo Comprobacion:</label>
|
||||
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Tipo Comprobacion:</label>
|
||||
<br />
|
||||
<asp:DropDownList runat="server" ID="DdlTipoComprobacion" CssClass="select2me">
|
||||
<asp:ListItem Value="-1">Sin Asignar</asp:ListItem>
|
||||
<asp:ListItem Value="1">Viáticos</asp:ListItem>
|
||||
<asp:ListItem Value="2">Comprobacines</asp:ListItem>
|
||||
<asp:ListItem Value="2">Comprobaciones</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
|
||||
</div>
|
||||
|
||||
@@ -23,13 +23,41 @@ Partial Class Gral_CatClasificacionesComprobaciones
|
||||
|
||||
End Property
|
||||
|
||||
Property Actualizar As Boolean
|
||||
Get
|
||||
|
||||
If ViewState("Actualizar") Is Nothing Then
|
||||
Return False
|
||||
Else
|
||||
Return Boolean.Parse(ViewState("Actualizar").ToString)
|
||||
End If
|
||||
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("Actualizar") = value
|
||||
End Set
|
||||
|
||||
End Property
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDropDownList()
|
||||
CargaGridClasificaciones()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#Region " C L A S I F I C A C I O N E S"
|
||||
Protected Sub CargaDropDownList()
|
||||
|
||||
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=-1).FiltraParametros("", Orderby:="Clasificacion") 'GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa)
|
||||
DdlClasificacion.DataBind()
|
||||
DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub CargaGridClasificaciones()
|
||||
|
||||
Dim ObjClasificaciones As New ClsClasificaciones()
|
||||
@@ -47,23 +75,27 @@ Partial Class Gral_CatClasificacionesComprobaciones
|
||||
Dim ObjClasificaciones As New ClsClasificaciones()
|
||||
|
||||
|
||||
If ObjClasificaciones.AddClasificacionesComprobaciones(CveClasificacion, UsuarioActual.CveEmpresa, DdlTipoComprobacion.SelectedValue.ToEntero) Then
|
||||
|
||||
If ObjClasificaciones.AddClasificacionesComprobaciones(DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlTipoComprobacion.SelectedValue.ToEntero) Then
|
||||
Alert("La clasificación se actualizo correctamente.")
|
||||
CargaGridClasificaciones()
|
||||
|
||||
UpDatos.Update()
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalClasificaciones"))
|
||||
End If
|
||||
|
||||
ObjClasificaciones.Dispose()
|
||||
|
||||
ObjClasificaciones.Dispose()
|
||||
CargaGridClasificaciones()
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub ActualizaModalClasif(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Actualizar = True
|
||||
|
||||
TxtClasificaciones.Text = GvRow.DataKey("Clasificacion")
|
||||
DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion"))
|
||||
CveClasificacion = GvRow.DataKey("CveClasificacion").ToString.ToEntero
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalClasificaciones"))
|
||||
|
||||
@@ -79,4 +111,39 @@ Partial Class Gral_CatClasificacionesComprobaciones
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
||||
CargaGridClasificaciones()
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkAgregarClasificacion_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Actualizar = False
|
||||
|
||||
DdlClasificacion.SelectedValueExist("-1")
|
||||
CveClasificacion = -1
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "ModalClasificaciones"))
|
||||
|
||||
DdlTipoComprobacion.SelectedValueExist("-1")
|
||||
|
||||
UpModalClasificaciones.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
Dim ObjClasificaciones As New ClsClasificaciones()
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
Dim CveClasificacionEliminar As Integer = GvRow.DataKey("CveClasificacion").ToString.ToEntero
|
||||
Dim TipoComprobacionEliminar As Integer = GvRow.DataKey("TipoComprobacion").ToString.ToEntero
|
||||
|
||||
If ObjClasificaciones.RemoveClasificacionesComprobaciones(CveClasificacionEliminar, UsuarioActual.CveEmpresa, TipoComprobacionEliminar) Then
|
||||
Alert("La clasificación se elimino correctamente.")
|
||||
End If
|
||||
|
||||
ObjClasificaciones.Dispose()
|
||||
CargaGridClasificaciones()
|
||||
UpDatos.Update()
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user