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

avance de catálogos

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-08-20 18:18:28 -07:00
parent 952517d070
commit 7aa18b7b36
8 changed files with 755 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
AF/CatActividades.aspx Normal file
View File

@@ -0,0 +1,82 @@
<%@ Page Title="AF - Catálogo de Actividades" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatActividades.aspx.cs" Inherits="AF_CatActividades" %>
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Catálogo de Actividadedes
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="BtnAgregarActividadD" OnClick="BtnAgregarActividadD_Click" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Actividad"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveActividad, Nombre, CvePuesto, Cantidad, CveUsuario, CveEmpresa" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Nombre" DataField="Nombre" />
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<ItemTemplate>
<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DivAgregarActividadD" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Tipo de Servicio</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNombre" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtNombre" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="TxtNombre">Nombre:</label>
<i></i>
</div>
<br />
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPuesto" DataTextField="Puesto" DataValueField="CvePuesto" CausesValidation="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlPuesto.ClientID.ToString()%>">Puesto:</label>
<asp:RequiredFieldValidator ID="RfvPuesto" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlPuesto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Puesto''</b> es necesario." InitialValue="-1" ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
</div>
<br />
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCantidad" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvCantidad" runat="server" ControlToValidate="TxtCantidad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="TxtCantidad">Cantidad:</label>
<i></i>
</div>
</div>
<br />
<div class="modal-footer">
<asp:Button ID="BtnAgregarActividad" OnClick="BtnAgregarActividad_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
<button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

110
AF/CatActividades.aspx.cs Normal file
View File

@@ -0,0 +1,110 @@
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Extensiones;
using System.Data;
public partial class AF_CatActividades : ClsPaginas
{
private int CveActividad
{
get
{
return ViewState["CveActividad"].ToString().ToEntero();
}
set
{
ViewState["CveActividad"] = value;
}
}
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
CargaDatos();
}
}
private void CargaDatos()
{
ClsAF ObjAF = new ClsAF();
if (ObjAF.GetActividades(-1, -1, -1, UsuarioActual.CveEmpresa))
{
GvDatos.DataSource = ObjAF.DtResultados;
GvDatos.DataBind();
}
DdlPuesto.DataSource = get_GlobalDTRHPuestos(UsuarioActual.CveEmpresa);
DdlPuesto.DataBind();
DdlPuesto.Items.Insert(0,new ListItem("-1","Seleccione"));
ObjAF.Dispose();
}
protected void BtnAgregarActividadD_Click(object sender, EventArgs e)
{
BtnAgregarActividad.Text = "Agregar";
TxtNombre.Text = "";
DdlPuesto.SelectedValueExist(-1);
TxtCantidad.Text = "";
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarActividadD"));
}
protected void LnkEditar_Click(object sender, EventArgs e)
{
BtnAgregarActividad.Text = "Actualizar";
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveActividad = GvRow.DataKey("CveActividad").ToEntero();
TxtNombre.Text = GvRow.DataKey("Nombre");
DdlPuesto.SelectedValueExist(GvRow.DataKey("CvePuesto"));
TxtCantidad.Text = GvRow.DataKey("Cantidad");
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarActividadD"));
}
protected void LnkEliminar_Click(object sender, EventArgs e)
{
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveActividad = GvRow.DataKey("CveActividad").ToEntero();
ClsAF ObjAF = new ClsAF();
if (ObjAF.DeleteActividades(CveActividad))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarActividadD"));
Alert("Se eliminó la Actividad correctamente");
}
ObjAF.Dispose();
}
protected void BtnAgregarActividad_Click(object sender, EventArgs e)
{
ClsAF ObjAF = new ClsAF();
if (BtnAgregarActividad.Text == "Agregar")
{
if (ObjAF.AddActividades(TxtNombre.Text, DdlPuesto.SelectedValue.ToEntero(),TxtCantidad.Text.ToDecimal(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarActividadD"));
Alert("Se agregó la Actividad correctamente");
}
}
else
{
if (ObjAF.UpdateActividades(CveActividad,TxtNombre.Text, DdlPuesto.SelectedValue.ToEntero(), TxtCantidad.Text.ToDecimal(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarActividadD"));
Alert("Se actualizó la Actividad correctamente");
}
}
ObjAF.Dispose();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarActividadD"));
}
}

70
AF/CatCheckListActividadesGrupos.aspx Normal file
View File

@@ -0,0 +1,70 @@
<%@ Page Title="AF - Catálogo de Grupos de CheckLists" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatCheckListActividadesGrupos.aspx.cs" Inherits="AF_CatCheckListActividadesGrupos" %>
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Catálogo de Grupos de CheckLists
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="BtnAgregarGrupoCheckListD" OnClick="BtnAgregarGrupoCheckListD_Click" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Grupo CheckList"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCheckListActividadGrupo, CheckListActividadGrupo" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Grupo de CheckList" DataField="CheckListActividadGrupo" />
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<ItemTemplate>
<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DivAgregarGrupoCheckListD" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Grupo de CheckList</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtGrupoCheckList" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtGrupoCheckList" runat="server" ControlToValidate="TxtGrupoCheckList" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Grupo CheckList''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="LblNombre">Nombre:</label>
<i></i>
</div>
<br />
</div>
<br />
<div class="modal-footer">
<asp:Button ID="BtnAgregarGrupoCheckList" OnClick="BtnAgregarGrupoCheckList_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
<button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

100
AF/CatCheckListActividadesGrupos.aspx.cs Normal file
View File

@@ -0,0 +1,100 @@
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Extensiones;
using System.Data;
public partial class AF_CatCheckListActividadesGrupos : ClsPaginas
{
private int CveCheckListActividadGrupo
{
get
{
return ViewState["CveCheckListActividadGrupo"].ToString().ToEntero();
}
set
{
ViewState["CveCheckListActividadGrupo"] = value;
}
}
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
CargaDatos();
}
}
private void CargaDatos()
{
ClsAF ObjAF = new ClsAF();
if (ObjAF.GetCheckListActividadGrupo(-1))
{
GvDatos.DataSource = ObjAF.DtResultados;
GvDatos.DataBind();
}
ObjAF.Dispose();
}
protected void BtnAgregarGrupoCheckListD_Click(object sender, EventArgs e)
{
BtnAgregarGrupoCheckList.Text = "Agregar";
TxtGrupoCheckList.Text = "";
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarGrupoCheckListD"));
}
protected void LnkEditar_Click(object sender, EventArgs e)
{
BtnAgregarGrupoCheckList.Text = "Actualizar";
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveCheckListActividadGrupo = GvRow.DataKey("CveCheckListActividadGrupo").ToEntero();
TxtGrupoCheckList.Text = GvRow.DataKey("CheckListActividadGrupo");
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarGrupoCheckListD"));
}
protected void LnkEliminar_Click(object sender, EventArgs e)
{
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveCheckListActividadGrupo = GvRow.DataKey("CveCheckListActividadGrupo").ToEntero();
ClsAF ObjAF = new ClsAF();
if (ObjAF.DeleteCheckListActividadGrupo(CveCheckListActividadGrupo))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarGrupoCheckListD"));
Alert("Se eliminó el Grupo de CheckList correctamente");
}
ObjAF.Dispose();
}
protected void BtnAgregarGrupoCheckList_Click(object sender, EventArgs e)
{
ClsAF ObjAF = new ClsAF();
if (BtnAgregarGrupoCheckList.Text == "Agregar")
{
if (ObjAF.AddCheckListActividadGrupo(TxtGrupoCheckList.Text))
{
Alert("Se agregó el Grupo de CheckList correctamente");
}
}
else
{
if (ObjAF.UpdateCheckListActividadGrupo(CveCheckListActividadGrupo, TxtGrupoCheckList.Text))
{
Alert("Se actualizó el Grupo de CheckList correctamente");
}
}
ObjAF.Dispose();
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarGrupoCheckListD"));
}
}

70
AF/CatCheckListTipo.aspx Normal file
View File

@@ -0,0 +1,70 @@
<%@ Page Title="AF - Catálogo de Tipos de CheckLists" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatCheckListTipo.aspx.cs" Inherits="AF_CatCheckListTipo" %>
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Catálogo de Tipos de CheckLists
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="BtnAgregarTipoCheckListD" OnClick="BtnAgregarTipoCheckListD_Click" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Tipo CheckList"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCheckListTipo, CheckListTipo" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Tipos de CheckList" DataField="CheckListTipo" />
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<ItemTemplate>
<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<div id="DivAgregarGrupoCheckListD" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Grupo de CheckList</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTipoCheckList" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtTipoCheckList" runat="server" ControlToValidate="TxtTipoCheckList" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Grupo CheckList''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="TxtTipoCheckList">Tipo:</label>
<i></i>
</div>
<br />
</div>
<br />
<div class="modal-footer">
<asp:Button ID="BtnAgregarTipoCheckList" OnClick="BtnAgregarTipoCheckList_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
<button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

100
AF/CatCheckListTipo.aspx.cs Normal file
View File

@@ -0,0 +1,100 @@
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Extensiones;
using System.Data;
public partial class AF_CatCheckListTipo : ClsPaginas
{
private int CveCheckListTipo
{
get
{
return ViewState["CveCheckListTipo"].ToString().ToEntero();
}
set
{
ViewState["CveCheckListTipo"] = value;
}
}
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
CargaDatos();
}
}
private void CargaDatos()
{
ClsAF ObjAF = new ClsAF();
if (ObjAF.GetCheckListTipo(-1))
{
GvDatos.DataSource = ObjAF.DtResultados;
GvDatos.DataBind();
}
ObjAF.Dispose();
}
protected void BtnAgregarTipoCheckListD_Click(object sender, EventArgs e)
{
BtnAgregarTipoCheckList.Text = "Agregar";
TxtTipoCheckList.Text = "";
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarGrupoCheckListD"));
}
protected void LnkEditar_Click(object sender, EventArgs e)
{
BtnAgregarTipoCheckList.Text = "Actualizar";
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveCheckListTipo = GvRow.DataKey("CveCheckListTipo").ToEntero();
TxtTipoCheckList.Text = GvRow.DataKey("CheckListTipo");
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarGrupoCheckListD"));
}
protected void LnkEliminar_Click(object sender, EventArgs e)
{
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveCheckListTipo = GvRow.DataKey("CveCheckListTipo").ToEntero();
ClsAF ObjAF = new ClsAF();
if (ObjAF.DeleteCheckListTipo(CveCheckListTipo))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarGrupoCheckListD"));
Alert("Se eliminó el Grupo de CheckList correctamente");
}
ObjAF.Dispose();
}
protected void BtnAgregarTipoCheckList_Click(object sender, EventArgs e)
{
ClsAF ObjAF = new ClsAF();
if (BtnAgregarTipoCheckList.Text == "Agregar")
{
if (ObjAF.AddCheckListTipo(TxtTipoCheckList.Text))
{
Alert("Se agregó el Tipo de CheckList correctamente");
}
}
else
{
if (ObjAF.UpdateCheckListTipo(CveCheckListTipo, TxtTipoCheckList.Text))
{
Alert("Se actualizó el Tipo de CheckList correctamente");
}
}
ObjAF.Dispose();
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarGrupoCheckListD"));
}
}

220
App_Code/ClsAF.vb
View File

@@ -3775,6 +3775,226 @@ Public Class ClsAF
Return Retorno
End Function
Public Function AddActividades(Nombre As String, CvePuesto As Integer, Cantidad As Decimal, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_ActividadesAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@Nombre", SqlDbType.NVarChar).Value = Nombre
.Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto
.Add("@Cantidad", SqlDbType.SmallMoney).Value = Cantidad
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al agregar la actividad", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function UpdateActividades(CveActividad As Integer, Nombre As String, CvePuesto As Integer, Cantidad As Decimal, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_ActividadesUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveActividad", SqlDbType.Int).Value = CveActividad
.Add("@Nombre", SqlDbType.NVarChar).Value = Nombre
.Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto
.Add("@Cantidad", SqlDbType.SmallMoney).Value = Cantidad
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar la actividad", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function DeleteActividades(CveActividad As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_ActividadesDelete")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveActividad", SqlDbType.Int).Value = CveActividad
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar la actividad", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetCheckListActividadGrupo(CveCheckListActividadGrupo As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_CheckListGrupoGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function AddCheckListActividadGrupo(CheckListActividadGrupo As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_CheckListGrupoAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CheckListActividadGrupo", SqlDbType.NVarChar).Value = CheckListActividadGrupo
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al agregar el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function UpdateCheckListActividadGrupo(CveCheckListActividadGrupo As Integer, CheckListActividadGrupo As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_CheckListGrupoUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
.Add("@CheckListActividadGrupo", SqlDbType.NVarChar).Value = CheckListActividadGrupo
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function DeleteCheckListActividadGrupo(CveCheckListActividadGrupo As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_CheckListGrupoDelete")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetCheckListTipo(CveCheckListTipo As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_CheckListTipoGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCheckListTipo", SqlDbType.Int).Value = CveCheckListTipo
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function AddCheckListTipo(CheckListTipo As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_CheckListTipoAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CheckListTipo", SqlDbType.NVarChar).Value = CheckListTipo
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al agregar el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function UpdateCheckListTipo(CveCheckListTipo As Integer, CheckListTipo As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_CheckListTipoUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCheckListTipo", SqlDbType.Int).Value = CveCheckListTipo
.Add("@CheckListTipo", SqlDbType.NVarChar).Value = CheckListTipo
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function DeleteCheckListTipo(CveCheckListTipo As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_CheckListTipoDelete")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCheckListTipo", SqlDbType.Int).Value = CveCheckListTipo
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#End Region

3
App_Code/ClsPaginas.vb
View File

@@ -3955,6 +3955,9 @@ Public Class ClsPaginas
PaginaDict.Add("/AF/CatTiposServicios.aspx".ToUpper(), 765)
PaginaDict.Add("/AF/CatTiposServiciosActividades.aspx".ToUpper(), 766)
PaginaDict.Add("/AF/CatTiposServiciosMateriales.aspx".ToUpper(), 767)
PaginaDict.Add("/AF/CatActividades.aspx".ToUpper(), 768)
PaginaDict.Add("/AF/CatCheckListActividadesGrupos.aspx".ToUpper(), 769)
PaginaDict.Add("/AF/CatCheckListTipo.aspx".ToUpper(), 770)
PaginaDict.Add("/AF/TipoOrdenTrabajo.aspx".ToUpper(), -1)
PaginaDict.Add("/AF/OrdenTrabajo.aspx".ToUpper(), -1)