This commit is contained in:
AbrahamCastilloV
2024-02-14 09:45:28 -07:00
37 changed files with 13302 additions and 220 deletions

File diff suppressed because it is too large Load Diff

View File

@@ -10376,6 +10376,25 @@ Public Class ClsPaginas
PaginaDict.Add("/MF/CargaLayout.aspx".ToUpper(), 863) PaginaDict.Add("/MF/CargaLayout.aspx".ToUpper(), 863)
PaginaDict.Add("/MF/RepConsumoCombustible.aspx".ToUpper(), 864) PaginaDict.Add("/MF/RepConsumoCombustible.aspx".ToUpper(), 864)
#End Region #End Region
#Region "MQ"
PaginaDict.Add("/MQ/CatActividades.aspx".ToUpper, 1401)
PaginaDict.Add("/MQ/ContratosMaquinariaRentada.aspx".ToUpper, 1402)
PaginaDict.Add("/MQ/CatOrdenesTrabajoTipos.aspx".ToUpper, 1403)
PaginaDict.Add("/MQ/CatActividadesOT.aspx".ToUpper, 1404)
PaginaDict.Add("/MQ/CatCheckListActividadesGrupos.aspx".ToUpper, 1405)
PaginaDict.Add("/MQ/CatCheckListActividades.aspx".ToUpper, 1406)
PaginaDict.Add("/MQ/CatEstatusOT.aspx".ToUpper, 1407)
PaginaDict.Add("/MQ/CatHerramientasOT.aspx".ToUpper, 1408)
PaginaDict.Add("/MQ/SubContrataciones.aspx".ToUpper, 1409)
PaginaDict.Add("/MQ/CatTipoOrdenTrabajo.aspx".ToUpper, 1410)
PaginaDict.Add("/MQ/CatOperadores.aspx".ToUpper, 1411)
PaginaDict.Add("/MQ/OrdenTrabajo.aspx".ToUpper, 1412)
PaginaDict.Add("/MQ/CatOrdenTrabajo.aspx".ToUpper, 1413)
PaginaDict.Add("/MQ/HorometroDiario.aspx".ToUpper, 1414)
PaginaDict.Add("/MQ/TipoOrdenTrabajo.aspx".ToUpper, -1)
#End Region
#Region "Nomina" #Region "Nomina"
PaginaDict.Add("/Nomina/Calculo.aspx".ToUpper(), -1) PaginaDict.Add("/Nomina/Calculo.aspx".ToUpper(), -1)
PaginaDict.Add("/Nomina/SobreRecibo.aspx".ToUpper(), -1) PaginaDict.Add("/Nomina/SobreRecibo.aspx".ToUpper(), -1)

102
MQ/CatActividades.aspx Normal file
View File

@@ -0,0 +1,102 @@
<%@ 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,CveUsuario, CveEmpresa,Estatus"
EmptyDataText="No se encontraron Actividades" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Width="50%" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Actividad" DataField="Nombre" />
<asp:BoundField HeaderText="Estatus" DataField="EstatusStr" />
<asp:BoundField HeaderText="Fecha Ingreso" DataField="FechaIng" DataFormatString = "{0:dd/MM/yyyy}" />
<asp:BoundField HeaderText="Usuario Ingreso" DataField="Usuario" />
<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="LtlTituloModalActividad" runat="server">Actividades</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">Actividad:</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 ID="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright" visible="false">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<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>

119
MQ/CatActividades.aspx.cs Normal file
View File

@@ -0,0 +1,119 @@
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, UsuarioActual.CveEmpresa,-1))
{
GvDatos.DataSource = ObjAF.DtResultados;
GvDatos.DataBind();
}
ObjAF.Dispose();
}
protected void BtnAgregarActividadD_Click(object sender, EventArgs e)
{
BtnAgregarActividad.Text = "Agregar";
TxtNombre.Text = "";
LtlTituloModalActividad.Text = "Agregar Actividad";
ChkEstatus.Checked = true;
CheckActiveSection.Visible = false;
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");
ChkEstatus.Checked = GvRow.DataKey("Estatus").ToEntero() == 1 ? true : false;
CheckActiveSection.Visible = true;
UpModalTiposD.Update();
LtlTituloModalActividad.Text = "Actualizar Actividad";
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, UsuarioActual.CveEmpresa))
{
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();
int Estatus = ChkEstatus.Checked ? 1 : 0;
if (BtnAgregarActividad.Text == "Agregar")
{
if (ObjAF.AddActividades(TxtNombre.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,Estatus))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarActividadD"));
Alert("Se agregó la Actividad correctamente");
}
}
else
{
if (ObjAF.UpdateActividades(CveActividad,TxtNombre.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,Estatus))
{
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"));
}
}

105
MQ/CatActividadesOT.aspx Normal file
View File

@@ -0,0 +1,105 @@
<%@ Page Title="AF - Catálogo de Actividades" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatActividadesOT.aspx.cs" Inherits="AF_CatActividadesOT" %>
<%@ 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 Actividades Ordenes de Trabajo
</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 actividad" 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="CveActividadOT,ActividadOT,CveUsuario,CveEmpresa,Estatus,CvePuesto,Horas"
EmptyDataText="No se encontraron Actividades" ToolTip="Listado de Actividades " CssClass="table table-striped table-advance table-hover" Width="50%" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Actividad" DataField="ActividadOT" />
<asp:BoundField HeaderText="Puesto" DataField="Puesto" />
<asp:BoundField HeaderText="Estatus" DataField="EstatusStr" />
<asp:BoundField HeaderText="Fecha Ingreso" DataField="FechaIng" DataFormatString = "{0:dd/MM/yyyy}" />
<asp:BoundField HeaderText="Usuario Ingreso" DataField="Usuario" />
<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="LtlTituloModalActividad" runat="server">Actividades</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">Actividad:</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="TxtHoras" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvCantidad" runat="server" ControlToValidate="TxtHoras" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Horas''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="TxtHoras">Horas:</label>
<i></i>
</div>
<div ID="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright" visible="false">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<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>

144
MQ/CatActividadesOT.aspx.cs Normal file
View File

@@ -0,0 +1,144 @@
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_CatActividadesOT : ClsPaginas
{
private int CveActividadOT
{
get
{
return ViewState["CveActividadOT"].ToString().ToEntero();
}
set
{
ViewState["CveActividadOT"] = value;
}
}
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
CargaDatos();
ClsRH objRH = new ClsRH();
if (objRH.GetPuestos(UsuarioActual.CveEmpresa))
{
DdlPuesto.DataSource = objRH.DtResultados;
}
else {
DdlPuesto.DataSource = null;
}
DdlPuesto.DataBind();
DdlPuesto.Items.Insert(0, new ListItem("Seleccione uno", "-1"));
}
}
private void CargaDatos()
{
ClsAF ObjAF = new ClsAF();
if (ObjAF.GetActividadesOT(-1, -1, UsuarioActual.CveEmpresa,-1))
{
GvDatos.DataSource = ObjAF.DtResultados;
GvDatos.DataBind();
}
ObjAF.Dispose();
}
protected void BtnAgregarActividadD_Click(object sender, EventArgs e)
{
BtnAgregarActividad.Text = "Agregar";
TxtNombre.Text = "";
LtlTituloModalActividad.Text = "Agregar Actividad";
ChkEstatus.Checked = true;
CheckActiveSection.Visible = false;
DdlPuesto.SelectedValueExist(-1); ;
TxtHoras.Text = "0";
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);
CveActividadOT = GvRow.DataKey("CveActividadOT").ToEntero();
TxtNombre.Text = GvRow.DataKey("ActividadOT");
ChkEstatus.Checked = GvRow.DataKey("Estatus").ToEntero() == 1 ? true : false;
CheckActiveSection.Visible = true;
DdlPuesto.SelectedValueExist(GvRow.DataKey("CvePuesto"));
TxtHoras.Text = GvRow.DataKey("Horas");
UpModalTiposD.Update();
LtlTituloModalActividad.Text = "Actualizar Actividad";
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarActividadD"));
}
protected void LnkEliminar_Click(object sender, EventArgs e)
{
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveActividadOT = GvRow.DataKey("CveActividadOT").ToEntero();
ClsAF ObjAF = new ClsAF();
if (ObjAF.DeleteActividadesOT(CveActividadOT, UsuarioActual.CveEmpresa))
{
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();
int Estatus = ChkEstatus.Checked ? 1 : 0;
if (BtnAgregarActividad.Text == "Agregar")
{
// if (ObjAF.AddActividadesOT(TxtNombre.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,Estatus, DdlPuesto.SelectedValue.ToEntero(), TxtHoras.Text.ToDecimal()))
if (ObjAF.AddActividadesOT(TxtNombre.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlPuesto.SelectedValue.ToEntero(), TxtHoras.Text.ToDecimal()))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarActividadD"));
Alert("Se agregó la Actividad correctamente");
}
}
else
{
if (ObjAF.UpdateActividadesOT(CveActividadOT,TxtNombre.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,Estatus, DdlPuesto.SelectedValue.ToEntero(), TxtHoras.Text.ToDecimal()))
{
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"));
}
}

View File

@@ -0,0 +1,92 @@
<%@ Page Title="AF - Catálogo de Actividades de CheckList" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatCheckListActividades.aspx.cs" Inherits="AF_CatCheckListActividades" %>
<%@ 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 CheckList Nivel 2
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="BtnAgregarActividadCheckListD" OnClick="BtnAgregarActividadCheckListD_Click" data-toggle="tooltip" data-placement="left" title="Agregar CheckList Nivel 2" Text="<i class='fa fa-plus'></i>Agregar CheckList Nivel 2"></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="CveCheckListActividad, CheckListActividad, CveCheckListActividadGrupo, CheckListActividadGrupo,Estatus"
EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Width="50%" GridLines="None">
<Columns>
<asp:BoundField HeaderText="CheckList Nivel 1" DataField="CheckListActividadGrupo" />
<asp:BoundField HeaderText="CheckList Nivel 2" DataField="CheckListActividad" />
<asp:BoundField HeaderText="Estatus" DataField="EstatusStr" />
<asp:BoundField HeaderText="Fecha Ingreso" DataField="FechaIng" DataFormatString = "{0:dd/MM/yyyy}" />
<asp:BoundField HeaderText="Usuario Ingreso" DataField="Usuario" />
<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="DivAgregarTiposServiciosD" 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="LtlTituloModalActividad" runat="server">Actividad CheckList</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCheckListActividad" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtCheckListActividad" runat="server" ControlToValidate="TxtCheckListActividad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''CheckList''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="LblNombre">CheckList Nivel 2:</label>
<i></i>
</div>
<br />
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCheckListActividadGrupo" DataTextField="CheckListActividadGrupo" DataValueField="CveCheckListActividadGrupo" CausesValidation="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlCheckListActividadGrupo.ClientID.ToString()%>">CheckList Nivel 1:</label>
<asp:RequiredFieldValidator ID="RFVDdlCheckListActividadGrupo" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlCheckListActividadGrupo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nivel de CheckList''</b> es necesario." InitialValue="-1" ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
</div>
<div ID="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright" visible="false">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<br />
<div class="modal-footer">
<asp:Button ID="BtnAgregarActividadCheckList" OnClick="BtnAgregarActividadCheckList_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>

View File

@@ -0,0 +1,121 @@
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_CatCheckListActividades : ClsPaginas
{
private int CveCheckListActividad
{
get
{
return ViewState["CveCheckListActividad"].ToString().ToEntero();
}
set
{
ViewState["CveCheckListActividad"] = value;
}
}
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
CargaDatos();
}
}
private void CargaDatos()
{
DdlCheckListActividadGrupo.Items.Clear();
ClsAF ObjAF = new ClsAF();
if (ObjAF.GetCheckListActividad(-1, -1,UsuarioActual.CveEmpresa,-1))
{
GvDatos.DataSource = ObjAF.DtResultados;
GvDatos.DataBind();
}
if (ObjAF.GetCheckListActividadGrupo(-1, UsuarioActual.CveEmpresa,1))
{
DdlCheckListActividadGrupo.DataSource = ObjAF.DtResultados;
DdlCheckListActividadGrupo.DataBind();
DdlCheckListActividadGrupo.Items.Insert(0, new ListItem("Seleccione", "-1"));
}
ObjAF.Dispose();
}
protected void BtnAgregarActividadCheckListD_Click(object sender, EventArgs e)
{
BtnAgregarActividadCheckList.Text = "Agregar";
TxtCheckListActividad.Text = "";
DdlCheckListActividadGrupo.SelectedValueExist(-1);
LtlTituloModalActividad.Text = "Agregar CheckList Nivel 2";
ChkEstatus.Checked = true;
CheckActiveSection.Visible = false;
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposServiciosD"));
}
protected void LnkEditar_Click(object sender, EventArgs e)
{
BtnAgregarActividadCheckList.Text = "Actualizar";
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveCheckListActividad = GvRow.DataKey("CveCheckListActividad").ToEntero();
TxtCheckListActividad.Text = GvRow.DataKey("CheckListActividad");
DdlCheckListActividadGrupo.SelectedValueExist(GvRow.DataKey("CveCheckListActividadGrupo"));
LtlTituloModalActividad.Text = "Actualizar CheckList Nivel 2";
ChkEstatus.Checked = GvRow.DataKey("Estatus").ToEntero() == 1 ? true : false;
CheckActiveSection.Visible = true;
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposServiciosD"));
}
protected void LnkEliminar_Click(object sender, EventArgs e)
{
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveCheckListActividad = GvRow.DataKey("CveCheckListActividad").ToEntero();
ClsAF ObjAF = new ClsAF();
if (ObjAF.DeleteCheckListActividad(CveCheckListActividad, UsuarioActual.CveEmpresa))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposServiciosD"));
Alert("Se eliminó CheckList Nivel 2");
}
ObjAF.Dispose();
}
protected void BtnAgregarActividadCheckList_Click(object sender, EventArgs e)
{
ClsAF ObjAF = new ClsAF();
int Estatus = ChkEstatus.Checked ? 1 : 0;
if (BtnAgregarActividadCheckList.Text == "Agregar")
{
if (ObjAF.AddCheckListActividad(TxtCheckListActividad.Text, DdlCheckListActividadGrupo.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa,Estatus,UsuarioActual.CveUsuario))
{
Alert("Se agregó CheckList Nivel 2 correctamente");
}
}
else
{
if (ObjAF.UpdateCheckListActividad(CveCheckListActividad, TxtCheckListActividad.Text, DdlCheckListActividadGrupo.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, Estatus, UsuarioActual.CveUsuario))
{
Alert("Se actualizó CheckList Nivel 2 correctamente");
}
}
ObjAF.Dispose();
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposServiciosD"));
}
}

View File

@@ -0,0 +1,84 @@
<%@ 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 CheckList Nivel 1
</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 CheckList Nivel 1" Text="<i class='fa fa-plus'></i>Agregar CheckList Nivel 1"></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,Estatus"
EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Width="50%" GridLines="None">
<Columns>
<asp:BoundField HeaderText="CheckList Nivel 1" DataField="CheckListActividadGrupo" />
<asp:BoundField HeaderText="Estatus" DataField="EstatusStr" />
<asp:BoundField HeaderText="Fecha Ingreso" DataField="FechaIng" DataFormatString = "{0:dd/MM/yyyy}" />
<asp:BoundField HeaderText="Usuario Ingreso" DataField="Usuario" />
<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="LtlTituloModalGrupoCheckList" 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">CheckList Nivel 1:</label>
<i></i>
</div>
<div ID="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright" visible="false">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</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>

View File

@@ -0,0 +1,114 @@
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, UsuarioActual.CveEmpresa,-1))
{
GvDatos.DataSource = ObjAF.DtResultados;
GvDatos.DataBind();
}
ObjAF.Dispose();
}
protected void BtnAgregarGrupoCheckListD_Click(object sender, EventArgs e)
{
BtnAgregarGrupoCheckList.Text = "Agregar";
TxtGrupoCheckList.Text = "";
LtlTituloModalGrupoCheckList.Text = "Agregar CheckList Nivel 1";
ChkEstatus.Checked = true;
CheckActiveSection.Visible = false;
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");
ChkEstatus.Checked = GvRow.DataKey("Estatus").ToEntero() == 1 ? true : false;
CheckActiveSection.Visible = true;
LtlTituloModalGrupoCheckList.Text = "Actualizar CheckList Nivel 1";
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, UsuarioActual.CveEmpresa))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarGrupoCheckListD"));
Alert("Se eliminó el CheckList Nivel 1");
}
ObjAF.Dispose();
}
protected void BtnAgregarGrupoCheckList_Click(object sender, EventArgs e)
{
ClsAF ObjAF = new ClsAF();
int Estatus = ChkEstatus.Checked ? 1 : 0;
if (BtnAgregarGrupoCheckList.Text == "Agregar")
{
if (ObjAF.AddCheckListActividadGrupo(TxtGrupoCheckList.Text, UsuarioActual.CveEmpresa,Estatus,UsuarioActual.CveUsuario))
{
Alert("Se agregó el CheckList Nivel 1 correctamente");
}
}
else
{
if (ObjAF.UpdateCheckListActividadGrupo(CveCheckListActividadGrupo, TxtGrupoCheckList.Text, Estatus, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{
Alert("Se actualizó el CheckList Nivel 1 correctamente");
}
}
ObjAF.Dispose();
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarGrupoCheckListD"));
}
}

143
MQ/CatEstatusOT.aspx Normal file
View File

@@ -0,0 +1,143 @@
<%@ Page Title="Catálogo Operadores" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatEstatusOT.aspx.vb" Inherits="AF_CatEstatusOT" %>
<%@ 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 Operadores
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="LnkAgregarEstatusOT" data-toggle="tooltip" data-placement="left" title="Agregar Estatus" Text="<i class='fa fa-plus'></i> Agregar Estatus"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="col-md-8">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveEstatusOT,EstatusOT,Estatus" EmptyDataText="No se encontraron Estatus" Width="100%"
ToolTip="Listado de Estatus" CssClass="table table-striped table-advance table-hover" GridLines="None" >
<Columns>
<asp:TemplateField HeaderText="Operador">
<ItemTemplate>
<asp:Literal ID="LtlOperador" runat="server" Text='<%# Eval("EstatusOT") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center" Visible="true">
<ItemTemplate>
<asp:Literal ID="LtlEsatusString" runat="server" Text='<%# Eval("EstatusString") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Ing" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario" ItemStyle-Width="200" >
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton ID="LnkActualizar" runat="server" OnClick="LnkGvActualizar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" ValidationGroup="GrpGV" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton runat="server" ID="LnkEliminar" OnClick="LnkGvEliminar_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
<div id="DVModalEstatusOT" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalEstatusOT" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalOperdaor" runat="server"></asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEstatusOT" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtEstatusOT" runat="server" ControlToValidate="TxtEstatusOT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estatus''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEstatusOT"></asp:RequiredFieldValidator>
<label for="TxtEstatusOT">Estatus:</label>
<i></i>
</div>
<%-- <label for="TxtOperador">Operador:</label>
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px;">
<asp:TextBox Width="115px" ID="TxtFecha" runat="server" CssClass="form-control text-size-14" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="TxtFecha" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpOperador"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpOperador"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<i></i>
</div>--%>
<br ID="saltoDeLinea" runat="server" />
<div ID="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright" visible="false">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<br />
<div class="modal-footer">
<asp:Button ID="BtnModalAgregarEstatusOT" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpEstatusOT" />
<button id="Button" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

135
MQ/CatEstatusOT.aspx.vb Normal file
View File

@@ -0,0 +1,135 @@
Option Strict On
Imports System.Data
Imports System.Linq
Imports Extensiones
Partial Class AF_CatEstatusOT
Inherits ClsPaginas
Protected Property CveEstatusOT As Integer
Get
If ViewState("CveEstatusOT") Is Nothing Then
Return -1
Else
Return ViewState("CveEstatusOT").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("CveEstatusOT") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaDatos()
End If
End Sub
Private Sub CargaDatos()
Dim ObjAF As New ClsAF
If ObjAF.GetEstatusOT(-1, UsuarioActual.CveEmpresa, -1) Then
GvDatos.DataSource = ObjAF.DtResultados
Else
GvDatos.DataSource = Nothing
End If
ObjAF.Dispose()
GvDatos.DataBind()
UpDatos.Update()
End Sub
Protected Sub BtnAgregarOperador_Click(sender As Object, e As EventArgs) Handles LnkAgregarEstatusOT.Click
ResetModalEstatusOT()
RegistraScript(String.Format("$('#{0}').modal();", "DVModalEstatusOT"))
End Sub
Private Sub ResetModalEstatusOT()
CveEstatusOT = -1
TxtEstatusOT.Text = ""
ChkEstatus.Checked = True
LtlTituloModalOperdaor.Text = "Agregar Etapa"
CheckActiveSection.Visible = False
UpModalEstatusOT.Update()
End Sub
Protected Sub LnkGvActualizar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveEstatusOT = GvRow.DataKey("CveEstatusOT").ToEntero
TxtEstatusOT.Text = GvRow.DataKey("EstatusOT")
'TxtFecha.Text = GvRow.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy")
ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString.ToEntero = 1, True, False)
LtlTituloModalOperdaor.Text = "Actualizar Etapa"
CheckActiveSection.Visible = True
UpModalEstatusOT.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DVModalEstatusOT"))
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnModalAgregarEstatusOT.Click
Dim ObjAF As New ClsAF
Dim ErrorProceso As Boolean = False
If CveEstatusOT = -1 Then
If Not ObjAF.AddEstatusOT(TxtEstatusOT.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkEstatus.Checked, 1, 0)) Then
ErrorProceso = True
End If
Else
If Not ObjAF.UpdateEstatusOT(CveEstatusOT, TxtEstatusOT.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkEstatus.Checked, 1, 0)) Then
ErrorProceso = True
End If
End If
ObjAF.Dispose()
If Not ErrorProceso Then
Alert($"Etapa { If(CveEstatusOT > 0, "Actualizada", "Agregada") } correctamente.")
RegistraScript(String.Format("$('#{0}').modal('hide');", "DVModalEstatusOT"))
CargaDatos()
End If
End Sub
Protected Sub LnkGvEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim ErrorProceso As Boolean = False
Dim CveEstatusOTEliminar As Integer = GvRow.DataKey("CveEstatusOT").ToEntero
Dim ObjAF As New ClsAF
If ObjAF.DeletEstatusOT(CveEstatusOTEliminar, UsuarioActual.CveEmpresa) Then
Alert("Etapa eliminado correctamente")
Else
ErrorProceso = True
End If
ObjAF.Dispose()
If Not ErrorProceso Then
CargaDatos()
End If
End Sub
End Class

123
MQ/CatHerramientasOT.aspx Normal file
View File

@@ -0,0 +1,123 @@
<%@ Page Title="Catálogo Operadores" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatHerramientasOT.aspx.vb" Inherits="AF_CatHerramientasOT" %>
<%@ 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 Herramientas para Orden de Trabajo
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="LnkAgregarHerramientas" data-toggle="tooltip" data-placement="left" title="Agregar Herramienta" Text="<i class='fa fa-plus'></i> Agregar Herramienta"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="col-md-8">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveHerramientaOT,HerramientaOT,Estatus" EmptyDataText="No se encontraron Herramientas" Width="100%"
ToolTip="Listado de Herramientas" CssClass="table table-striped table-advance table-hover" GridLines="None" >
<Columns>
<asp:TemplateField HeaderText="Herramienta">
<ItemTemplate>
<asp:Literal ID="LtlHerramientas" runat="server" Text='<%# Eval("HerramientaOT") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center" Visible="true">
<ItemTemplate>
<asp:Literal ID="LtlEsatusString" runat="server" Text='<%# Eval("EstatusString") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Ing" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario" ItemStyle-Width="200" >
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton ID="LnkActualizar" runat="server" OnClick="LnkGvActualizar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" ValidationGroup="GrpGV" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton runat="server" ID="LnkEliminar" OnClick="LnkGvEliminar_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
<div id="DVModalHerramientaOT" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalHerramienta" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalOperdaor" runat="server"></asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtHerramientaOT" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtHerramientaOT" runat="server" ControlToValidate="TxtHerramientaOT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Herramienta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpHerramientaOT"></asp:RequiredFieldValidator>
<label for="TxtHerramientaOT">Herramienta:</label>
<i></i>
</div>
<br ID="saltoDeLinea" runat="server" />
<div ID="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright" visible="false">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<br />
<div class="modal-footer">
<asp:Button ID="BtnModalAgregarHerramientaOT" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpHerramientaOT" />
<button id="Button" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

View File

@@ -0,0 +1,135 @@
Option Strict On
Imports System.Data
Imports System.Linq
Imports Extensiones
Partial Class AF_CatHerramientasOT
Inherits ClsPaginas
Protected Property CveHerramientaOT As Integer
Get
If ViewState("CveHerramientaOT") Is Nothing Then
Return -1
Else
Return ViewState("CveHerramientaOT").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("CveHerramientaOT") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaDatos()
End If
End Sub
Private Sub CargaDatos()
Dim ObjAF As New ClsAF
If ObjAF.GetHerramientasOT(-1, UsuarioActual.CveEmpresa, -1) Then
GvDatos.DataSource = ObjAF.DtResultados
Else
GvDatos.DataSource = Nothing
End If
ObjAF.Dispose()
GvDatos.DataBind()
UpDatos.Update()
End Sub
Protected Sub BtnAgregarOperador_Click(sender As Object, e As EventArgs) Handles LnkAgregarHerramientas.Click
ResetModalOperador()
RegistraScript(String.Format("$('#{0}').modal();", "DVModalHerramientaOT"))
End Sub
Private Sub ResetModalOperador()
CveHerramientaOT = -1
TxtHerramientaOT.Text = ""
ChkEstatus.Checked = True
LtlTituloModalOperdaor.Text = "Agregar Herramienta"
CheckActiveSection.Visible = False
UpModalHerramienta.Update()
End Sub
Protected Sub LnkGvActualizar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveHerramientaOT = GvRow.DataKey("CveHerramientaOT").ToEntero
TxtHerramientaOT.Text = GvRow.DataKey("HerramientaOT")
'TxtFecha.Text = GvRow.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy")
ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString.ToEntero = 1, True, False)
LtlTituloModalOperdaor.Text = "Actualizar Herramienta"
CheckActiveSection.Visible = True
UpModalHerramienta.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DVModalHerramientaOT"))
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnModalAgregarHerramientaOT.Click
Dim ObjAF As New ClsAF
Dim ErrorProceso As Boolean = False
If CveHerramientaOT = -1 Then
If Not ObjAF.AddHerramientasOT(TxtHerramientaOT.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkEstatus.Checked, 1, 0)) Then
ErrorProceso = True
End If
Else
If Not ObjAF.UpdateHerramientasOT(CveHerramientaOT, TxtHerramientaOT.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(ChkEstatus.Checked, 1, 0)) Then
ErrorProceso = True
End If
End If
ObjAF.Dispose()
If Not ErrorProceso Then
Alert($"Herramienta { If(CveHerramientaOT > 0, "Actualizada", "Agregada") } correctamente.")
RegistraScript(String.Format("$('#{0}').modal('hide');", "DVModalHerramientaOT"))
CargaDatos()
End If
End Sub
Protected Sub LnkGvEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim ErrorProceso As Boolean = False
Dim CveHerramientaOTEliminar As Integer = GvRow.DataKey("CveHerramientaOT").ToEntero
Dim ObjAF As New ClsAF
If ObjAF.DeleteHerramientasOT(CveHerramientaOTEliminar, UsuarioActual.CveEmpresa) Then
Alert("Herramienta eliminada correctamente")
Else
ErrorProceso = True
End If
ObjAF.Dispose()
If Not ErrorProceso Then
CargaDatos()
End If
End Sub
End Class

143
MQ/CatOperadores.aspx Normal file
View File

@@ -0,0 +1,143 @@
<%@ Page Title="Catálogo Operadores" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatOperadores.aspx.vb" Inherits="AF_CatOperadores" %>
<%@ 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 Operadores
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="LnkAgregarOperador" data-toggle="tooltip" data-placement="left" title="Agregar Operador" Text="<i class='fa fa-plus'></i> Agregar Operador"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="col-md-8">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveOperador,Operador,Estatus" EmptyDataText="No se encontraron operadores" Width="100%"
ToolTip="Listado de operadores" CssClass="table table-striped table-advance table-hover" GridLines="None" >
<Columns>
<asp:TemplateField HeaderText="Operador">
<ItemTemplate>
<asp:Literal ID="LtlOperador" runat="server" Text='<%# Eval("Operador") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center" Visible="true">
<ItemTemplate>
<asp:Literal ID="LtlEsatusString" runat="server" Text='<%# Eval("EstatusString") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Ing" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario" ItemStyle-Width="200" >
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton ID="LnkActualizar" runat="server" OnClick="LnkGvActualizar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" ValidationGroup="GrpGV" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton runat="server" ID="LnkEliminar" OnClick="LnkGvEliminar_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
<div id="DVModalOperador" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalOperador" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalOperdaor" runat="server"></asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtOperador" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtOperador" runat="server" ControlToValidate="TxtOperador" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Operador''</b> es necesario, por favor ingréselo." ValidationGroup="GrpOperador"></asp:RequiredFieldValidator>
<label for="TxtOperador">Operador:</label>
<i></i>
</div>
<%-- <label for="TxtOperador">Operador:</label>
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px;">
<asp:TextBox Width="115px" ID="TxtFecha" runat="server" CssClass="form-control text-size-14" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="TxtFecha" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpOperador"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpOperador"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<i></i>
</div>--%>
<br ID="saltoDeLinea" runat="server" />
<div ID="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright" visible="false">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<br />
<div class="modal-footer">
<asp:Button ID="BtnModalAgregarOperador" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpOperador" />
<button id="Button" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

135
MQ/CatOperadores.aspx.vb Normal file
View File

@@ -0,0 +1,135 @@
Option Strict On
Imports System.Data
Imports System.Linq
Imports Extensiones
Partial Class AF_CatOperadores
Inherits ClsPaginas
Protected Property CveOperador As Integer
Get
If ViewState("CveOperador") Is Nothing Then
Return -1
Else
Return ViewState("CveOperador").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("CveOperador") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaDatos()
End If
End Sub
Private Sub CargaDatos()
Dim ObjAF As New ClsAF
If ObjAF.GetOperador(-1, UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = ObjAF.DtResultados
Else
GvDatos.DataSource = Nothing
End If
ObjAF.Dispose()
GvDatos.DataBind()
UpDatos.Update()
End Sub
Protected Sub BtnAgregarOperador_Click(sender As Object, e As EventArgs) Handles LnkAgregarOperador.Click
ResetModalOperador()
RegistraScript(String.Format("$('#{0}').modal();", "DVModalOperador"))
End Sub
Private Sub ResetModalOperador()
CveOperador = -1
TxtOperador.Text = ""
ChkEstatus.Checked = True
LtlTituloModalOperdaor.Text = "Agregar operador"
CheckActiveSection.Visible = False
UpModalOperador.Update()
End Sub
Protected Sub LnkGvActualizar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveOperador = GvRow.DataKey("CveOperador").ToEntero
TxtOperador.Text = GvRow.DataKey("Operador")
'TxtFecha.Text = GvRow.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy")
ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString.ToEntero = 1, True, False)
LtlTituloModalOperdaor.Text = "Actualizar operador"
CheckActiveSection.Visible = True
UpModalOperador.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DVModalOperador"))
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnModalAgregarOperador.Click
Dim ObjAF As New ClsAF
Dim ErrorProceso As Boolean = False
If CveOperador = -1 Then
If Not ObjAF.AddOperador(TxtOperador.Text, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ErrorProceso = True
End If
Else
If Not ObjAF.UpdateOperador(CveOperador, TxtOperador.Text, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ErrorProceso = True
End If
End If
ObjAF.Dispose()
If Not ErrorProceso Then
Alert($"Operador { If(CveOperador > 0, "Actualizado", "Agregado") } correctamente.")
RegistraScript(String.Format("$('#{0}').modal('hide');", "DVModalOperador"))
CargaDatos()
End If
End Sub
Protected Sub LnkGvEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim ErrorProceso As Boolean = False
Dim CveOperadorEliminar As Integer = GvRow.DataKey("CveOperador").ToEntero
Dim ObjAF As New ClsAF
If ObjAF.RemoveOperador(CveOperadorEliminar, UsuarioActual.CveEmpresa) Then
Alert("Operador eliminado correctamente")
Else
ErrorProceso = True
End If
ObjAF.Dispose()
If Not ErrorProceso Then
CargaDatos()
End If
End Sub
End Class

198
MQ/CatOrdenTrabajo.aspx Normal file
View File

@@ -0,0 +1,198 @@
<%@ Page Title="Catálogo Operadores" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatOrdenTrabajo.aspx.vb" Inherits="AF_CatOrdenTrabajo" %>
<%@ 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 Ordenes de Trabajo
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" style="" id="Porlet">
<div class="portlet-title portlet-filterT smalltitle " style="">
<div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" OnClick="BtnConsultar_Click" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row">
<div class="col-md-1 truncate">Obra:</div>
<div class="col-md-1">
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" >
</asp:DropDownList>
</div>
<div class="col-md-1 truncate">Folio:</div>
<div class="col-md-1">
<asp:TextBox runat="server" ID="TxtFolio" CssClass="form-control" Width="50px"></asp:TextBox>
<ajax:FilteredTextBoxExtender runat="server" FilterType="Numbers" TargetControlID="TxtFolio" />
</div>
<div class="col-md-1 truncate">
Fecha de:
</div>
<div class="col-md-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-1 truncate">
Fecha a:
</div>
<div class="col-md-1">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-1 truncate">
Etapa:
</div>
<div class="col-md-1 truncate">
<asp:DropDownList ID="DdlOrdenesTrabajoEstatus" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="EstatusOT" DataValueField="CveEstatusOT">
</asp:DropDownList>
</div>
</div>
</div>
</div>
<div class="portlet-body" style="display: none;">
<div class="row">
<div class="col-md-1 truncate">
Equipo A.F.:
</div>
<div class="col-md-1 truncate">
<asp:DropDownList ID="DdlAF" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="CodDesc" DataValueField="CveActivoFijo" ></asp:DropDownList>
</div>
<div class="col-md-1 truncate">
Tipo O.T.:
</div>
<div class="col-md-1 truncate">
<asp:DropDownList ID="DdlTipoMantenimiento" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="OrdenTrabajoTipo" DataValueField="CveOrdenTrabajoTipo" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoMantenimiento_SelectedIndexChanged"></asp:DropDownList>
</div>
<div class="col-md-1 truncate">
Tipo:
</div>
<div class="col-md-1 truncate">
<asp:DropDownList ID="DdlTipoServicio" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="Nombre" DataValueField="CveTipoServicio">
<asp:ListItem Value="-1">Todos</asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1 truncate">Asignado:</div>
<div class="col-md-1 truncate">
<asp:DropDownList ID="DdlOperador" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="Operador" DataValueField="CveOperador">
</asp:DropDownList>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<br />
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="col-md-12">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveOrdenTrabajo,CveTipoServicio" EmptyDataText="No se Ordenes de Trabajo " Width="100%"
ToolTip="Listado de Ordenes de Trabajo" CssClass="table table-striped table-advance table-hover" GridLines="None" >
<Columns>
<asp:BoundField DataField="FechaInicio" HeaderText="Fecha" DataFormatString="{0:dd/MM/yyyy}" />
<asp:BoundField DataField="Folio" HeaderText="Folio" />
<asp:BoundField DataField="CodigoAF" HeaderText="Unidad" />
<asp:BoundField DataField="SubProyecto" HeaderText="Obra" />
<asp:BoundField DataField="EstatusOT" HeaderText="Etapa" />
<asp:BoundField DataField="OrdenTrabajoTipo" HeaderText="Tipo de O.T." />
<asp:BoundField DataField="TipoServicio" HeaderText="Tipo" />
<asp:TemplateField HeaderText="Ir" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<%-- <asp:LinkButton ID="LnkActualizar" runat="server" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" Target="_blank" /> --%>
</ItemTemplate>
</asp:TemplateField>
<%-- <asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton runat="server" ID="LnkEliminar" OnClick="LnkGvEliminar_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>--%>
</Columns>
</asp:GridView>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

179
MQ/CatOrdenTrabajo.aspx.vb Normal file
View File

@@ -0,0 +1,179 @@
Option Strict On
Imports System.Data
Imports System.Linq
Imports Extensiones
Partial Class AF_CatOrdenTrabajo
Inherits ClsPaginas
Protected Property CveOperador As Integer
Get
If ViewState("CveOperador") Is Nothing Then
Return -1
Else
Return ViewState("CveOperador").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("CveOperador") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaCombos()
'CargaDatos()
End If
End Sub
Protected Sub CargaCombos()
txtFechaF.Text = Now.ToString("dd/MM/yyyy")
txtFechaI.Text = Now.AddDays(-30).ToString("dd/MM/yyyy")
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))
DdlSubProyecto.SelectedValueExist(-1)
'CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
Dim ObjAF As New ClsAF
If ObjAF.GetEstatusOT(-1, UsuarioActual.CveEmpresa, 1) Then
DdlOrdenesTrabajoEstatus.DataSource = ObjAF.DtResultados
Else
DdlOrdenesTrabajoEstatus.DataSource = Nothing
End If
If ObjAF.GetTiposOT(-1, 1, UsuarioActual.CveEmpresa) Then
DdlTipoMantenimiento.DataSource = ObjAF.DtResultados
Else
DdlTipoMantenimiento.DataSource = Nothing
End If
If ObjAF.GetOperador(-1, UsuarioActual.CveEmpresa) Then
DdlOperador.DataSource = ObjAF.DtResultados
Else
DdlOperador.DataSource = Nothing
End If
If ObjAF.GetOrdenesTrabajoAF(-1, UsuarioActual.CveEmpresa) Then
DdlAF.DataSource = ObjAF.DtResultados
Else
DdlAF.DataSource = Nothing
End If
ObjAF.Dispose()
' DdlTipoServicio.DataBind()
DdlOrdenesTrabajoEstatus.DataBind()
DdlTipoMantenimiento.DataBind()
DdlOperador.DataBind()
DdlAF.DataBind()
DdlOrdenesTrabajoEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
DdlOrdenesTrabajoEstatus.SelectedValueExist(-1)
DdlOperador.Items.Insert(0, New ListItem("Todos", "-1"))
DdlOperador.SelectedValueExist(-1)
DdlTipoMantenimiento.Items.Insert(0, New ListItem("Todos", "-1"))
DdlTipoMantenimiento.SelectedValueExist(-1)
DdlAF.Items.Insert(0, New ListItem("Todos", "-1"))
DdlAF.SelectedValueExist(-1)
UPFiltros.Update()
End Sub
Private Sub CargaDatos()
Dim ObjAF As New ClsAF
Dim Folio As Integer = If(TxtFolio.Text.ToEntero > 0, TxtFolio.Text.ToEntero, -1)
If ObjAF.GetOrdenesTrabajo(-1, DdlTipoServicio.SelectedValue.ToEntero, Folio, DdlAF.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, Nothing, DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlOperador.SelectedValue.ToEntero) Then
GvDatos.DataSource = ObjAF.DtResultados
Else
GvDatos.DataSource = Nothing
End If
ObjAF.Dispose()
GvDatos.DataBind()
UpDatos.Update()
End Sub
Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.Cells(7).Text = $"<a target='_blank' href='OrdenTrabajo.aspx?CveOrdenTrabajo={e.Row.DataKey("CveOrdenTrabajo").ToString}' class='btn btn-circle btn-sm green' ><i class='fa fa-pencil'></i></a>"
End If
End Sub
Protected Sub DdlTipoMantenimiento_SelectedIndexChanged(sender As Object, e As EventArgs)
If DdlTipoMantenimiento.SelectedValue.ToEntero > 0 Then
Dim ObjAF As New ClsAF
If ObjAF.GetTiposServicios(-1, DdlTipoMantenimiento.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
DdlTipoServicio.DataSource = ObjAF.DtResultados
Else
DdlTipoServicio.DataSource = Nothing
End If
ObjAF.Dispose()
Else
DdlTipoServicio.DataSource = Nothing
End If
DdlTipoServicio.DataBind()
DdlTipoServicio.Items.Insert(0, New ListItem("Todos", "-1"))
UPFiltros.Update()
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
CargaDatos()
End Sub
End Class

View File

@@ -0,0 +1,90 @@
<%@ Page Title="AF - Catálogo de Actividades" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatOrdenesTrabajoTipos.aspx.cs" Inherits="AF_CatOrdenesTrabajoTipos" %>
<%@ 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 Tipos Ordenes de Trabajo
</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 tipo" Text="<i class='fa fa-plus'></i>Agregar Tipo"></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="CveOrdenTrabajoTipo,OrdenTrabajoTipo,CveUsuario,CveEmpresa,Estatus"
EmptyDataText="No se encontraron Tipos de ordenes" ToolTip="Listado de Tipos " CssClass="table table-striped table-advance table-hover" Width="50%" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Tipo" DataField="OrdenTrabajoTipo" />
<asp:BoundField HeaderText="Estatus" DataField="EstatusStr" />
<asp:BoundField HeaderText="Fecha Ingreso" DataField="FechaIng" DataFormatString = "{0:dd/MM/yyyy}" />
<asp:BoundField HeaderText="Usuario Ingreso" DataField="Usuario" />
<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="DivAgregarTipo" 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="LtlTituloModalActividad" runat="server">Actividades</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtOrdenTrabajoTipo" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtNombre" runat="server" ControlToValidate="TxtOrdenTrabajoTipo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="TxtNombre">Tipo:</label>
<i></i>
</div>
<br />
<div ID="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright" visible="false">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<br />
<div class="modal-footer">
<asp:Button ID="BtnAgregarTipo" OnClick="BtnAgregarTipo_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>

View File

@@ -0,0 +1,127 @@
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_CatOrdenesTrabajoTipos : ClsPaginas
{
private int CveOrdenTrabajoTipo
{
get
{
return ViewState["CveOrdenTrabajoTipo"].ToString().ToEntero();
}
set
{
ViewState["CveOrdenTrabajoTipo"] = value;
}
}
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
CargaDatos();
}
}
private void CargaDatos()
{
ClsAF ObjAF = new ClsAF();
if (ObjAF.GetTiposOT(-1, -1, UsuarioActual.CveEmpresa))
{
GvDatos.DataSource = ObjAF.DtResultados;
GvDatos.DataBind();
}
ObjAF.Dispose();
}
protected void BtnAgregarActividadD_Click(object sender, EventArgs e)
{
BtnAgregarTipo.Text = "Agregar";
TxtOrdenTrabajoTipo.Text = "";
LtlTituloModalActividad.Text = "Agregar Tipo";
ChkEstatus.Checked = true;
CheckActiveSection.Visible = false;
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTipo"));
}
protected void LnkEditar_Click(object sender, EventArgs e)
{
BtnAgregarTipo.Text = "Actualizar";
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveOrdenTrabajoTipo = GvRow.DataKey("CveOrdenTrabajoTipo").ToEntero();
TxtOrdenTrabajoTipo.Text = GvRow.DataKey("OrdenTrabajoTipo");
ChkEstatus.Checked = GvRow.DataKey("Estatus").ToEntero() == 1 ? true : false;
CheckActiveSection.Visible = true;
UpModalTiposD.Update();
LtlTituloModalActividad.Text = "Actualizar Tipo";
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTipo"));
}
protected void LnkEliminar_Click(object sender, EventArgs e)
{
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveOrdenTrabajoTipo = GvRow.DataKey("CveOrdenTrabajoTipo").ToEntero();
ClsAF ObjAF = new ClsAF();
if (ObjAF.DeleteTiposOT(CveOrdenTrabajoTipo, UsuarioActual.CveEmpresa))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTipo"));
Alert("Se eliminó el tipo correctamente");
}
ObjAF.Dispose();
}
protected void BtnAgregarTipo_Click(object sender, EventArgs e)
{
ClsAF ObjAF = new ClsAF();
int Estatus = ChkEstatus.Checked ? 1 : 0;
if (BtnAgregarTipo.Text == "Agregar")
{
if (ObjAF.AddTiposOT(TxtOrdenTrabajoTipo.Text, UsuarioActual.CveUsuario, Estatus, UsuarioActual.CveEmpresa))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTipo"));
Alert("Se agregó el tipo de orden");
}
}
else
{
if (ObjAF.UpdateTiposOT(CveOrdenTrabajoTipo, TxtOrdenTrabajoTipo.Text, UsuarioActual.CveUsuario, Estatus, UsuarioActual.CveEmpresa ))
{
CargaDatos();
UpDatos.Update();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTipo"));
Alert("Se actualizó el tipo de orden");
}
}
ObjAF.Dispose();
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTipo"));
}
}

View File

@@ -0,0 +1,80 @@
<%@ Page Title="Catálogo Operadores" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatTipoOrdenTrabajo.aspx.vb" Inherits="AF_CatTipoOrdenTrabajo" %>
<%@ 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 Tipos de Ordenes de Trabajo
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<a data-toggle="tooltip" data-placement="left" title="Agregar Tipo de Orden de trabajo" href="TipoOrdenTrabajo.aspx" target="_blank" ><i class='fa fa-plus' ></i> Agregar Tipo de Orden de trabajo</a>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="col-md-8">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoServicio,Nombre" EmptyDataText="No se Ordenes de Trabajo " Width="100%"
ToolTip="Listado de Ordenes de Trabajo" CssClass="table table-striped table-advance table-hover" GridLines="None" >
<Columns>
<asp:TemplateField HeaderText="Tipos de O.S." ItemStyle-Width="200" >
<ItemTemplate>
<asp:Literal ID="LtlOrdenTrabajoTipo" runat="server" Text='<%# Eval("OrdenTrabajoTipo") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Descripción">
<ItemTemplate>
<asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton ID="LnkActualizar" runat="server" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" Target="_blank" />
</ItemTemplate>
</asp:TemplateField>
<%-- <asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton runat="server" ID="LnkEliminar" OnClick="LnkGvEliminar_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>--%>
</Columns>
</asp:GridView>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

View File

@@ -0,0 +1,73 @@
Option Strict On
Imports System.Data
Imports System.Linq
Imports Extensiones
Partial Class AF_CatTipoOrdenTrabajo
Inherits ClsPaginas
Protected Property CveOperador As Integer
Get
If ViewState("CveOperador") Is Nothing Then
Return -1
Else
Return ViewState("CveOperador").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("CveOperador") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaDatos()
End If
End Sub
Private Sub CargaDatos()
Dim ObjAF As New ClsAF
If ObjAF.GetTiposServicios(-1, -1, -1, UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = ObjAF.DtResultados
Else
GvDatos.DataSource = Nothing
End If
ObjAF.Dispose()
GvDatos.DataBind()
UpDatos.Update()
End Sub
'Protected Sub LnkGvActualizar_Click(sender As Object, e As EventArgs)
' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
' Dim CveTipoServicio = GvRow.DataKey("CveTipoServicio").ToEntero
' Response.Redirect($"./TipoOrdenTrabajo.aspx?CveTipoServicio={CveTipoServicio}", True)
'End Sub
Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.Cells(2).Text = $"<a target='_blank' href='TipoOrdenTrabajo.aspx?CveTipoServicio={e.Row.DataKey("CveTipoServicio").ToString}' class='btn btn-circle btn-sm green' ><i class='fa fa-pencil'></i></a>"
End If
End Sub
End Class

4212
MQ/ClsAF.vb Normal file

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,320 @@
<%@ Page Title="Contrato Maquinaria Rentada" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ContratosMaquinariaRentada.aspx.vb" Inherits="AF_ContratosMaquinariaRentada" %>
<%@ 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">
Contrato Maquinaria Rentada
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<%-- <asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="LnkAgregarHorometroDiarioDetalle" data-toggle="tooltip" data-placement="left" title="Agregar Detalle" Text="<i class='fa fa-plus'></i> Agregar Detalle" Visible="false"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>--%>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpDatosGenerales">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<div class="portlet smmallpadding light bordered">
<div class="portlet-title font-green">
<div class="tools">
<a href="javascript;" data-idchekbox="C_chkexpand" class=" collapse" data-original-title="" title=""></a><span class="hidden">
<input id="C_chkexpand" type="checkbox" name="ctl00$C$chkexpand" checked="checked"></span>
</div>
<div class="caption uppercase" style="position: relative;"><i class="fa fa-info-circle"></i>Datos Generales</div>
</div>
<div class="portlet-body form">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlAF" Width="50%" runat="server" CssClass="table-group-action-input form-control input-inline input-sm select2me"
AppendDataBoundItems="true" DataTextField="CodDesc" DataValueField="CveActivoFijo" Style="width: 100%;" ValidationGroup="GrpContrato" >
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlAF" runat="server" ControlToValidate="DdlAF" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Activo Fijo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpContrato"></asp:RequiredFieldValidator>
<label for="<%= DdlAF.ClientID.ToString()%>">Activo Fijo:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtNumeroEconomico.ClientID.ToString()%>">Numero Económico:</label>
<asp:TextBox ID="TxtNumeroEconomico" MaxLength="20" runat="server" Width="120px" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtNumeroEconomico" runat="server" ControlToValidate="TxtNumeroEconomico" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero Económico:''</b> es necesario, por favor ingréselo." ValidationGroup="GrpContrato"></asp:RequiredFieldValidator>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlSubProyecto" Width="50%" runat="server" CssClass="table-group-action-input form-control input-inline input-sm select2me" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 100%;" ValidationGroup="GrpContrato" >
<asp:ListItem Selected="True" Text="Seleccione uno" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proyecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpContrato"></asp:RequiredFieldValidator>
<label for="<%= DdlSubProyecto.ClientID.ToString()%>">Proyecto:</label>
</div>
<%-- <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlOperador" Width="100%" runat="server" CssClass="table-group-action-input form-control input-inline input-sm select2me" AppendDataBoundItems="true" DataTextField="Operador" DataValueField="CveOperador" Style="width: 100%;" ValidationGroup="GrpContrato" >
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlOperador" runat="server" ControlToValidate="DdlOperador" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Operador''</b> es necesario, por favor ingréselo." ValidationGroup="GrpContrato"></asp:RequiredFieldValidator>
<label for="<%= DdlOperador.ClientID.ToString()%>">Operador:</label>
</div>--%>
<div class="row">
<label class="col-md-3 truncate">Fecha de llegada:</label>
<div class="col-md-9">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
<asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" CausesValidation="True" Style="width: 118px" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "><asp:LinkButton ID="ImgCalendarioInicial" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaInicial" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MEEFechaInicial" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CalendarioInicial" runat="server" TargetControlID="TxtFecha" PopupButtonID="ImgCalendarioInicial" PopupPosition="BottomRight" BehaviorID="_content_CalendarioInicial"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpContrato"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpContrato"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="VCOFechaInicial1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px" BehaviorID="_content_VCOFechaInicial1"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="VCOFechaInicial2" runat="server" HighlightCssClass="vco" TargetControlID="CVFecha" Width="350px" BehaviorID="_content_VCOFechaInicial2"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtEntrada.ClientID.ToString()%>">Horómetro de Llegada:</label>
<asp:TextBox ID="TxtEntrada" runat="server" Width="120px" MaxLength="5" CssClass="form-control"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtEntrada" FilterType="Custom, Numbers" ValidChars="." />
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtEntrada" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Horómetro de llegada''</b> es necesario, por favor ingréselo." ValidationGroup="GrpContrato"></asp:RequiredFieldValidator>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtIncluye.ClientID.ToString()%>">Incluye:</label>
<asp:TextBox ID="TxtIncluye" runat="server" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtIncluye" runat="server" ControlToValidate="TxtIncluye" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Incluye''</b> es necesario, por favor ingréselo." ValidationGroup="GrpContrato"></asp:RequiredFieldValidator>
<i></i>
</div>
</div>
</div>
</div>
<%-- <div class="col-md-6">
<div class="portlet smmallpadding light bordered">
<div class="portlet-title">
<div class="tools">
<a href="javascript;" data-idchekbox="C_chkexpand" class=" collapse" data-original-title="" title=""></a><span class="hidden">
<input id="C_chkexpand2" type="checkbox" name="ctl00$C$chkexpand" checked="checked"></span>
</div>
<div class="caption uppercase" style="position: relative;"><i class="fa fa-info-circle"></i>Horómetro</div>
</div>
<div class="portlet-body rowpadding">
<div class="row ">
<div class=" form-group form-md-line-input input-iconright col-md-3">
<label for="<%= TxtEntrada.ClientID.ToString()%>">Entrada:</label>
<asp:TextBox ID="TxtEntrada" runat="server" Width="70px" CssClass="form-control"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FILGrpHorometro" runat="server" TargetControlID="TxtEntrada" FilterType="Custom, Numbers" ValidChars="." />
<asp:RequiredFieldValidator ID="RFVGrpHorometro" runat="server" ControlToValidate="TxtEntrada" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Entrada''</b> es necesario, por favor ingréselo." ValidationGroup="GrpHorometro"></asp:RequiredFieldValidator>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright col-md-3">
<label for="<%= TxtSalida.ClientID.ToString()%>">Salida:</label>
<asp:TextBox ID="TxtSalida" runat="server" Width="70px" CssClass="form-control"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FILTxtSalida" runat="server" TargetControlID="TxtSalida" FilterType="Custom, Numbers" ValidChars="." />
<asp:RequiredFieldValidator ID="RFVTxtSalida" runat="server" ControlToValidate="TxtSalida" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Salida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpHorometro"></asp:RequiredFieldValidator>
<i></i>
</div>
</div>
</div>
</div>
</div>--%>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatosDetalle" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" id="DVDetalles" runat="server" visible ="false">
<div class="col-md-12">
<div class="portlet smmallpadding light bordered">
<div class="portlet-title">
<div class="tools">
<a href="javascript;" data-idchekbox="C_chkexpand" class=" collapse" data-original-title="" title=""></a><span class="hidden">
<input id="C_chkexpand3" type="checkbox" name="ctl00$C$chkexpand" checked="checked"></span>
</div>
<div class="caption uppercase" style="position: relative;"><i class="fa fa-info-circle"></i>Trabajos realizados</div>
</div>
<div class="portlet-body rowpadding">
<div class="row">
<div class="col-md-8">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveHorometroDiarioDetalle,CveActividad,Horas" EmptyDataText="No se encontraron Detalles" Width="50%"
ToolTip="Listado de Detalles" CssClass="table table-striped table-advance table-hover" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Horas" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Literal ID="LtlHoras" runat="server" Text='<%# Eval("Horas", "{0:###}") %>' ></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Actividad" ItemStyle-HorizontalAlign="Left" Visible="true">
<ItemTemplate>
<asp:Literal ID="LtlEsatusString" runat="server" Text='<%# Eval("Actividad") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton ID="LnkActualizar" runat="server" OnClick="LnkGvActualizar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton runat="server" ID="LnkEliminar" OnClick="LnkGvEliminar_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div style="text-align: center; padding-top: 20px;">
<asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpContrato" CssClass="btn btn-primary" Visible="true" />
<asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" Visible="false" CssClass="btn btn-danger" data-toggle="confirmation" data-popout="true" data-original-title="Esta seguro de eliminar el registro?" data-btn-ok-label="si" />
</ContentTemplate>
</asp:UpdatePanel>
</div>
<%-- <div id="DVModalHorometroDetalle" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalHorometroDetalle" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalDetalle" runat="server"></asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlActividad" DataTextField="Nombre" DataValueField="CveActividad" CausesValidation="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlActividad.ClientID.ToString()%>">Actividad:</label>
<asp:RequiredFieldValidator ID="RFVDdlActividad" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlActividad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Actividad''</b> es necesario." InitialValue="-1" ValidationGroup="GrpHorometroDetalle"></asp:RequiredFieldValidator>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtHoras" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FILTxtHoras" runat="server" TargetControlID="TxtHoras" FilterType="Numbers" InvalidChars=".+-," />
<asp:RequiredFieldValidator ID="EFVTxtHoras" runat="server" ControlToValidate="TxtHoras" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Horas''</b> es necesario, por favor ingréselo." ValidationGroup="GrpHorometroDetalle"></asp:RequiredFieldValidator>
<label for="TxtHoras">Horas:</label>
<i></i>
</div>
<br ID="saltoDeLinea" runat="server" />
</div>
<br />
<div class="modal-footer">
<asp:Button ID="BtnModalAgregarHorometroDetalle" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpHorometroDetalle" />
<button id="Button" 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>

View File

@@ -0,0 +1,364 @@
Option Strict On
Imports System.Data
Imports System.Globalization
Imports System.Linq
Imports Extensiones
Partial Class AF_ContratosMaquinariaRentada
Inherits ClsPaginas
Protected Property CveHorometroDiario As Integer
Get
If ViewState("CveHorometroDiario") Is Nothing Then
Return -1
Else
Return ViewState("CveHorometroDiario").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("CveHorometroDiario") = value
End Set
End Property
Protected Property CveHorometroDiarioDetalle As Integer
Get
If ViewState("CveHorometroDiarioDetalle") Is Nothing Then
Return -1
Else
Return ViewState("CveHorometroDiarioDetalle").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("CveHorometroDiarioDetalle") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargCombos()
If Request("CveHorometroDiario") IsNot Nothing AndAlso Request("CveHorometroDiario").ToString.ToEntero > 0 Then
CveHorometroDiario = Request("CveHorometroDiario").ToString.ToEntero
' LnkAgregarHorometroDiarioDetalle.Visible = True
DVDetalles.Visible = True
CargaDatos()
CargaDetalles()
End If
End If
End Sub
Private Sub CargCombos()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
Dim ObjAF As New ClsAF()
'If ObjAF.GetOperador(-1, UsuarioActual.CveEmpresa) Then
' DdlOperador.DataSource = ObjAF.DtResultados.FiltraParametros("Estatus = 1")
'Else
' DdlOperador.DataSource = Nothing
'End If
'ObjAF.Dispose()
'DdlOperador.DataBind()
'DdlOperador.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
UpDatosGenerales.Update()
'ObjAF = New ClsAF()
'If ObjAF.GetActividades(-1, -1, UsuarioActual.CveEmpresa, 1) Then
' DdlActividad.DataSource = ObjAF.DtResultados
'Else
' DdlActividad.DataSource = Nothing
'End If
DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
ObjAF.Dispose()
'DdlActividad.DataBind()
'DdlActividad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
DdlAF.DataBind()
DdlAF.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End Sub
Private Sub CargaDatos()
'If CveHorometroDiario > 0 Then
' Dim ObjAF As New ClsAF
' If ObjAF.GetHorometroDiario(MinFecha, MaxFecha, CveHorometroDiario, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
' DdlAF.SelectedValueExist(ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString.ToEntero)
' 'DdlOperador.SelectedValueExist(ObjAF.DtResultados.Rows(0)("CveOperador").ToString.ToEntero)
' DdlSubProyecto.SelectedValueExist(ObjAF.DtResultados.Rows(0)("CveSubProyecto").ToString.ToEntero)
' TxtFecha.Text = ObjAF.DtResultados.Rows(0)("Fecha").ToString.ToDate.ToString("dd/MM/yyyy")
' TxtEntrada.Text = ObjAF.DtResultados.Rows(0)("Entrada").ToString
' TxtSalida.Text = ObjAF.DtResultados.Rows(0)("Salida").ToString
' End If
' ObjAF.Dispose()
' UpDatosGenerales.Update()
'End If
End Sub
Private Sub CargaDetalles()
'Dim ObjAF As New ClsAF
'If ObjAF.GetHorometroDiarioDetalleDetalle(CveHorometroDiario, UsuarioActual.CveEmpresa) Then
' GvDatos.DataSource = ObjAF.DtResultados
'Else
' GvDatos.DataSource = Nothing
'End If
'ObjAF.Dispose()
'GvDatos.DataBind()
'UpDatosDetalle.Update()
End Sub
'Protected Sub LnkAgregarHorometroDiarioDetalle_Click(sender As Object, e As EventArgs) Handles LnkAgregarHorometroDiarioDetalle.Click
' CveHorometroDiarioDetalle = -1
' 'LtlTituloModalDetalle.Text = "Agregar Detalle"
' ResetModalActividades()
' RegistraScript($"$('#DVModalHorometroDetalle').modal('show');")
'End Sub
Private Sub ResetModalActividades()
'DdlActividad.SelectedValueExist(-1)
' TxtHoras.Text = ""
'UpModalHorometroDetalle.Update()
End Sub
Protected Sub LnkGvActualizar_Click(sender As Object, e As EventArgs)
'Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
'' LtlTituloModalDetalle.Text = "Actualizar Detalle"
'CveHorometroDiarioDetalle = GvRow.DataKey("CveHorometroDiarioDetalle").ToEntero
'DdlActividad.SelectedValueExist(GvRow.DataKey("CveActividad").ToString)
'TxtHoras.Text = GvRow.DataKey("Horas").ToEntero.ToString
'UpModalHorometroDetalle.Update()
'RegistraScript($"$('#DVModalHorometroDetalle').modal('show');")
End Sub
'Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnModalAgregarHorometroDetalle.Click
' Dim ObjAF As New ClsAF
' Dim ErrorProceso As Boolean = False
' If CveHorometroDiarioDetalle > 0 Then
' If ObjAF.UpdateHorometroDiarioDetalle(CveHorometroDiarioDetalle, CveHorometroDiario, DdlActividad.SelectedValue.ToEntero, TxtHoras.Text.ToDecimal) Then
' Alert("Detalle agregado correctamente.")
' RegistraScript($"$('#DVModalHorometroDetalle').modal('hide');")
' ErrorProceso = False
' Else
' ErrorProceso = True
' End If
' Else
' If ObjAF.AddHorometroDiarioDetalle(CveHorometroDiario, DdlActividad.SelectedValue.ToEntero, TxtHoras.Text.ToDecimal) Then
' Alert("Detalle actualizado correctamente.")
' RegistraScript($"$('#DVModalHorometroDetalle').modal('hide');")
' ErrorProceso = False
' Else
' ErrorProceso = True
' End If
' End If
' ObjAF.Dispose()
' If Not ErrorProceso Then
' CargaDetalles()
' End If
'End Sub
Protected Sub LnkGvEliminar_Click(sender As Object, e As EventArgs)
'Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
'Dim ErrorProceso As Boolean = False
'Dim ObjAF As New ClsAF
'Dim CveHorometroDiarioDetalleEliminar As Integer = GvRow.DataKey("CveHorometroDiarioDetalle").ToEntero
'If ObjAF.RemoveHorometroDiarioDetalle(CveHorometroDiarioDetalleEliminar) Then
' Alert("Detalle eliminado correctamente.")
' ErrorProceso = False
'Else
' ErrorProceso = True
'End If
'ObjAF.Dispose()
'If Not ErrorProceso Then
' CargaDetalles()
'End If
End Sub
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
'If TxtEntrada.Text.ToDecimal > TxtSalida.Text.ToDecimal Then
' Alert("La salida no puede ser inferior a la entrada", TipoMensaje.MsgAdvertencia)
' Exit Sub
'End If
'Dim ErrorProceso As Boolean = False
'Dim ObjAF As New ClsAF
'ObjAF.IniciaTransacSQL()
'Dim Anio As Integer = TxtFecha.Text.ToDate.Year
'Dim Semana As Integer = GetIso8601WeekOfYear(TxtFecha.Text.ToDate)
'Dim DiaSemana As Integer = GetDayOfWeek(TxtFecha.Text.ToDate.DayOfWeek)
'If CveHorometroDiario > 0 Then
' If ObjAF.UpdateHorometroDiario(CveHorometroDiario, DdlAF.SelectedValue.ToEntero, DdlOperador.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, TxtFecha.Text.ToDate, TxtEntrada.Text.ToDecimal, TxtSalida.Text.ToDecimal,
' UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Anio, Semana, DiaSemana) Then
' Alert("Actualizado correctamente.")
' Else
' ErrorProceso = True
' End If
'Else
' If ObjAF.AddHorometroDiario(DdlAF.SelectedValue.ToEntero, DdlOperador.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, TxtFecha.Text.ToDate, TxtEntrada.Text.ToDecimal, TxtSalida.Text.ToDecimal, UsuarioActual.CveUsuario,
' UsuarioActual.CveEmpresa, Anio, Semana, DiaSemana) Then
' CveHorometroDiario = ObjAF.CveHorometroDiario
' If CveHorometroDiario > 0 Then
' ErrorProceso = False
' Alert("Regsitro guardado correctamente.", TipoMensaje.MsgInformacion, $"location.href=""HorometroDiario.aspx?CveHorometroDiario={CveHorometroDiario}""")
' Else
' ErrorProceso = True
' End If
' Else
' ErrorProceso = True
' End If
'End If
'If ErrorProceso Then
' ObjAF.RollBack()
'Else
' ObjAF.Commit()
'End If
'ObjAF.Dispose()
End Sub
Private Function GetIso8601WeekOfYear(time As Date) As Integer
' Seriously cheat. If its Monday, Tuesday Or Wednesday, then it'll
' be the same week# as whatever Thursday, Friday Or Saturday are,
' And we always get those right
Dim day As DayOfWeek = CultureInfo.InvariantCulture.Calendar.GetDayOfWeek(time)
If (day >= DayOfWeek.Monday And day <= DayOfWeek.Wednesday) Then
time = time.AddDays(3)
End If
' Return the week of our adjusted day
Return CultureInfo.InvariantCulture.Calendar.GetWeekOfYear(time, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)
End Function
Private Function GetDayOfWeek(Dia As DayOfWeek) As Integer
Select Case Dia
Case DayOfWeek.Monday
Return 1
Case DayOfWeek.Tuesday
Return 2
Case DayOfWeek.Wednesday
Return 3
Case DayOfWeek.Thursday
Return 4
Case DayOfWeek.Friday
Return 5
Case DayOfWeek.Saturday
Return 6
Case DayOfWeek.Sunday
Return 7
Case Else
Return 1
End Select
End Function
End Class

284
MQ/HorometroDiario.aspx Normal file
View File

@@ -0,0 +1,284 @@
<%@ Page Title="Horometro Diario" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="HorometroDiario.aspx.vb" Inherits="AF_HorometroDiario" %>
<%@ 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">
Registro Horómetro Diario
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="LnkAgregarHorometroDiarioDetalle" data-toggle="tooltip" data-placement="left" title="Agregar Detalle" Text="<i class='fa fa-plus'></i> Agregar Detalle" Visible="false"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpDatosGenerales">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<div class="portlet smmallpadding light bordered">
<div class="portlet-title">
<div class="tools">
<a href="javascript;" data-idchekbox="C_chkexpand" class=" collapse" data-original-title="" title=""></a><span class="hidden">
<input id="C_chkexpand" type="checkbox" name="ctl00$C$chkexpand" checked="checked"></span>
</div>
<div class="caption uppercase" style="position: relative;"><i class="fa fa-info-circle"></i>Datos Generales</div>
</div>
<div class="portlet-body rowpadding">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlSubProyecto" Width="100%" runat="server" CssClass="table-group-action-input form-control input-inline input-sm select2me" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 100%;" ValidationGroup="GrpHorometro" AutoPostBack="true" >
<asp:ListItem Selected="True" Text="Seleccione uno" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proyecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpHorometro"></asp:RequiredFieldValidator>
<label for="<%= DdlSubProyecto.ClientID.ToString()%>">Proyecto:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlAF" Width="100%" runat="server" CssClass="table-group-action-input form-control input-inline input-sm select2me" AppendDataBoundItems="true" DataTextField="CodDesc" DataValueField="CveActivoFijo" Style="width: 100%;" ValidationGroup="GrpHorometro" >
<asp:ListItem Selected="True" Text="Seleccione uno" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlAF" runat="server" ControlToValidate="DdlAF" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Activo Fijo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpHorometro"></asp:RequiredFieldValidator>
<label for="<%= DdlAF.ClientID.ToString()%>">Activo Fijo:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlOperador" Width="100%" runat="server" CssClass="table-group-action-input form-control input-inline input-sm select2me" AppendDataBoundItems="true" DataTextField="Operador" DataValueField="CveOperador" Style="width: 100%;" ValidationGroup="GrpHorometro" >
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlOperador" runat="server" ControlToValidate="DdlOperador" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Operador''</b> es necesario, por favor ingréselo." ValidationGroup="GrpHorometro"></asp:RequiredFieldValidator>
<label for="<%= DdlOperador.ClientID.ToString()%>">Operador:</label>
</div>
<div class="row">
<label class="col-md-3 truncate">Fecha :</label>
<div class="col-md-9">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
<asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" CausesValidation="True" Style="width: 118px" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "><asp:LinkButton ID="ImgCalendarioInicial" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaInicial" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MEEFechaInicial" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CalendarioInicial" runat="server" TargetControlID="TxtFecha" PopupButtonID="ImgCalendarioInicial" PopupPosition="BottomRight" BehaviorID="_content_CalendarioInicial"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpHorometro"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpHorometro"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="VCOFechaInicial1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px" BehaviorID="_content_VCOFechaInicial1"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="VCOFechaInicial2" runat="server" HighlightCssClass="vco" TargetControlID="CVFecha" Width="350px" BehaviorID="_content_VCOFechaInicial2"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
</div>
</div>
<div class="col-md-6">
<div class="portlet smmallpadding light bordered">
<div class="portlet-title">
<div class="tools">
<a href="javascript;" data-idchekbox="C_chkexpand" class=" collapse" data-original-title="" title=""></a><span class="hidden">
<input id="C_chkexpand2" type="checkbox" name="ctl00$C$chkexpand" checked="checked"></span>
</div>
<div class="caption uppercase" style="position: relative;"><i class="fa fa-info-circle"></i>Horómetro</div>
</div>
<div class="portlet-body rowpadding">
<div class="row ">
<div class=" form-group form-md-line-input input-iconright col-md-3">
<label for="<%= TxtEntrada.ClientID.ToString()%>">Entrada:</label>
<asp:TextBox ID="TxtEntrada" runat="server" Width="70px" CssClass="form-control"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FILGrpHorometro" runat="server" TargetControlID="TxtEntrada" FilterType="Custom, Numbers" ValidChars="." />
<asp:RequiredFieldValidator ID="RFVGrpHorometro" runat="server" ControlToValidate="TxtEntrada" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Entrada''</b> es necesario, por favor ingréselo." ValidationGroup="GrpHorometro"></asp:RequiredFieldValidator>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright col-md-3">
<label for="<%= TxtSalida.ClientID.ToString()%>">Salida:</label>
<asp:TextBox ID="TxtSalida" runat="server" Width="70px" CssClass="form-control"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FILTxtSalida" runat="server" TargetControlID="TxtSalida" FilterType="Custom, Numbers" ValidChars="." />
<asp:RequiredFieldValidator ID="RFVTxtSalida" runat="server" ControlToValidate="TxtSalida" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Salida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpHorometro"></asp:RequiredFieldValidator>
<i></i>
</div>
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatosDetalle" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" id="DVDetalles" runat="server" visible ="false">
<div class="col-md-12">
<div class="portlet smmallpadding light bordered">
<div class="portlet-title">
<div class="tools">
<a href="javascript;" data-idchekbox="C_chkexpand" class=" collapse" data-original-title="" title=""></a><span class="hidden">
<input id="C_chkexpand3" type="checkbox" name="ctl00$C$chkexpand" checked="checked"></span>
</div>
<div class="caption uppercase" style="position: relative;"><i class="fa fa-info-circle"></i>Trabajos realizados</div>
</div>
<div class="portlet-body rowpadding">
<div class="row">
<div class="col-md-8">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveHorometroDiarioDetalle,CveActividad,Horas" EmptyDataText="No se encontraron Detalles" Width="50%"
ToolTip="Listado de Detalles" CssClass="table table-striped table-advance table-hover" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Horas" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Literal ID="LtlHoras" runat="server" Text='<%# Eval("Horas", "{0:###}") %>' ></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Actividad" ItemStyle-HorizontalAlign="Left" Visible="true">
<ItemTemplate>
<asp:Literal ID="LtlEsatusString" runat="server" Text='<%# Eval("Actividad") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton ID="LnkActualizar" runat="server" OnClick="LnkGvActualizar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton runat="server" ID="LnkEliminar" OnClick="LnkGvEliminar_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div style="text-align: center; padding-top: 20px;">
<asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpHorometro" CssClass="btn btn-primary" Visible="true" />
<asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" Visible="false" CssClass="btn btn-danger" data-toggle="confirmation" data-popout="true" data-original-title="Esta seguro de eliminar el registro?" data-btn-ok-label="si" />
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div id="DVModalHorometroDetalle" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalHorometroDetalle" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalDetalle" runat="server"></asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlActividad" DataTextField="Nombre" DataValueField="CveActividad" CausesValidation="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlActividad.ClientID.ToString()%>">Actividad:</label>
<asp:RequiredFieldValidator ID="RFVDdlActividad" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlActividad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Actividad''</b> es necesario." InitialValue="-1" ValidationGroup="GrpHorometroDetalle"></asp:RequiredFieldValidator>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtHoras" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FILTxtHoras" runat="server" TargetControlID="TxtHoras" FilterType="Numbers" InvalidChars=".+-," />
<asp:RequiredFieldValidator ID="EFVTxtHoras" runat="server" ControlToValidate="TxtHoras" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Horas''</b> es necesario, por favor ingréselo." ValidationGroup="GrpHorometroDetalle"></asp:RequiredFieldValidator>
<label for="TxtHoras">Horas:</label>
<i></i>
</div>
<br ID="saltoDeLinea" runat="server" />
</div>
<br />
<div class="modal-footer">
<asp:Button ID="BtnModalAgregarHorometroDetalle" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpHorometroDetalle" />
<button id="Button" 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>

309
MQ/HorometroDiario.aspx.vb Normal file
View File

@@ -0,0 +1,309 @@
Option Strict On
Imports System.Data
Imports System.Linq
Imports Extensiones
Partial Class AF_HorometroDiario
Inherits ClsPaginas
Protected Property CveHorometroDiario As Integer
Get
If ViewState("CveHorometroDiario") Is Nothing Then
Return -1
Else
Return ViewState("CveHorometroDiario").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("CveHorometroDiario") = value
End Set
End Property
Protected Property CveHorometroDiarioDetalle As Integer
Get
If ViewState("CveHorometroDiarioDetalle") Is Nothing Then
Return -1
Else
Return ViewState("CveHorometroDiarioDetalle").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("CveHorometroDiarioDetalle") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargCombos()
If Request("CveHorometroDiario") IsNot Nothing AndAlso Request("CveHorometroDiario").ToString.ToEntero > 0 Then
CveHorometroDiario = Request("CveHorometroDiario").ToString.ToEntero
LnkAgregarHorometroDiarioDetalle.Visible = True
DVDetalles.Visible = True
CargaDatos()
CargaDetalles()
End If
End If
End Sub
Private Sub CargCombos()
DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
DdlAF.DataBind()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
Dim ObjAF As New ClsAF()
If ObjAF.GetOperador(-1, UsuarioActual.CveEmpresa) Then
DdlOperador.DataSource = ObjAF.DtResultados.FiltraParametros("Estatus = 1")
Else
DdlOperador.DataSource = Nothing
End If
ObjAF.Dispose()
DdlOperador.DataBind()
DdlOperador.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
UpDatosGenerales.Update()
ObjAF = New ClsAF()
If ObjAF.GetActividades(-1, -1, UsuarioActual.CveEmpresa, 1) Then
DdlActividad.DataSource = ObjAF.DtResultados
Else
DdlActividad.DataSource = Nothing
End If
ObjAF.Dispose()
DdlActividad.DataBind()
DdlActividad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End Sub
Private Sub CargaDatos()
If CveHorometroDiario > 0 Then
Dim ObjAF As New ClsAF
If ObjAF.GetHorometroDiario(MinFecha, MaxFecha, CveHorometroDiario, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
DdlAF.SelectedValueExist(ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString.ToEntero)
DdlOperador.SelectedValueExist(ObjAF.DtResultados.Rows(0)("CveOperador").ToString.ToEntero)
DdlSubProyecto.SelectedValueExist(ObjAF.DtResultados.Rows(0)("CveSubProyecto").ToString.ToEntero)
TxtFecha.Text = ObjAF.DtResultados.Rows(0)("Fecha").ToString.ToDate.ToString("dd/MM/yyyy")
TxtEntrada.Text = ObjAF.DtResultados.Rows(0)("Entrada").ToString
TxtSalida.Text = ObjAF.DtResultados.Rows(0)("Salida").ToString
End If
ObjAF.Dispose()
UpDatosGenerales.Update()
End If
End Sub
Private Sub CargaDetalles()
Dim ObjAF As New ClsAF
If ObjAF.GetHorometroDiarioDetalleDetalle(CveHorometroDiario, UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = ObjAF.DtResultados
Else
GvDatos.DataSource = Nothing
End If
ObjAF.Dispose()
GvDatos.DataBind()
UpDatosDetalle.Update()
End Sub
Protected Sub LnkAgregarHorometroDiarioDetalle_Click(sender As Object, e As EventArgs) Handles LnkAgregarHorometroDiarioDetalle.Click
CveHorometroDiarioDetalle = -1
LtlTituloModalDetalle.Text = "Agregar Detalle"
ResetModalActividades()
RegistraScript($"$('#DVModalHorometroDetalle').modal('show');")
End Sub
Private Sub ResetModalActividades()
DdlActividad.SelectedValueExist(-1)
TxtHoras.Text = ""
UpModalHorometroDetalle.Update()
End Sub
Protected Sub LnkGvActualizar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
LtlTituloModalDetalle.Text = "Actualizar Detalle"
CveHorometroDiarioDetalle = GvRow.DataKey("CveHorometroDiarioDetalle").ToEntero
DdlActividad.SelectedValueExist(GvRow.DataKey("CveActividad").ToString)
TxtHoras.Text = GvRow.DataKey("Horas").ToEntero.ToString
UpModalHorometroDetalle.Update()
RegistraScript($"$('#DVModalHorometroDetalle').modal('show');")
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnModalAgregarHorometroDetalle.Click
Dim ObjAF As New ClsAF
Dim ErrorProceso As Boolean = False
If CveHorometroDiarioDetalle > 0 Then
If ObjAF.UpdateHorometroDiarioDetalle(CveHorometroDiarioDetalle, CveHorometroDiario, DdlActividad.SelectedValue.ToEntero, TxtHoras.Text.ToDecimal) Then
Alert("Detalle agregado correctamente.")
RegistraScript($"$('#DVModalHorometroDetalle').modal('hide');")
ErrorProceso = False
Else
ErrorProceso = True
End If
Else
If ObjAF.AddHorometroDiarioDetalle(CveHorometroDiario, DdlActividad.SelectedValue.ToEntero, TxtHoras.Text.ToDecimal) Then
Alert("Detalle actualizado correctamente.")
RegistraScript($"$('#DVModalHorometroDetalle').modal('hide');")
ErrorProceso = False
Else
ErrorProceso = True
End If
End If
ObjAF.Dispose()
If Not ErrorProceso Then
CargaDetalles()
End If
End Sub
Protected Sub LnkGvEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim ErrorProceso As Boolean = False
Dim ObjAF As New ClsAF
Dim CveHorometroDiarioDetalleEliminar As Integer = GvRow.DataKey("CveHorometroDiarioDetalle").ToEntero
If ObjAF.RemoveHorometroDiarioDetalle(CveHorometroDiarioDetalleEliminar) Then
Alert("Detalle eliminado correctamente.")
ErrorProceso = False
Else
ErrorProceso = True
End If
ObjAF.Dispose()
If Not ErrorProceso Then
CargaDetalles()
End If
End Sub
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
Dim ErrorProceso As Boolean = False
Dim ObjAF As New ClsAF
ObjAF.IniciaTransacSQL()
If CveHorometroDiario > 0 Then
If ObjAF.UpdateHorometroDiario(CveHorometroDiario, DdlAF.SelectedValue.ToEntero, DdlOperador.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, TxtFecha.Text.ToDate, TxtEntrada.Text.ToDecimal, TxtSalida.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Alert("Actualizado correctamente.")
Else
ErrorProceso = True
End If
Else
If ObjAF.AddHorometroDiario(DdlAF.SelectedValue.ToEntero, DdlOperador.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, TxtFecha.Text.ToDate, TxtEntrada.Text.ToDecimal, TxtSalida.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
CveHorometroDiario = ObjAF.CveHorometroDiario
If CveHorometroDiario > 0 Then
ErrorProceso = False
Alert("Regsitro guardado correctamente.", TipoMensaje.MsgInformacion, $"location.href=""HorometroDiario.aspx?CveHorometroDiario={CveHorometroDiario}""")
Else
ErrorProceso = True
End If
Else
ErrorProceso = True
End If
End If
If ErrorProceso Then
ObjAF.RollBack()
Else
ObjAF.Commit()
End If
ObjAF.Dispose()
End Sub
Private Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
DdlAF.Items.Clear()
If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}")
DdlAF.DataBind()
Else
DdlAF.DataSource = Nothing
DdlAF.DataBind()
End If
DdlAF.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
UpDatosGenerales.Update()
End Sub
End Class

621
MQ/OrdenTrabajo.aspx Normal file
View File

@@ -0,0 +1,621 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="OrdenTrabajo.aspx.vb" Inherits="AF_OrdenTrabajo" EnableEventValidation = "false" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.Widthall {
width: 100% !important;
}
.dataTables_scrollHeadInner {
width: 100% !important;
background-color: #dddddd;
padding-left: 0px !important;
}
.dataTables_scrollFoot {
display: none;
position: static;
}
.table-scrollable {
margin: 0px !important;
}
.dataTables_scroll {
margin-bottom: 0px;
}
.table.dataTable {
margin-top: 0px !important;
}
.dataTables_scrollBody table th {
padding: 0px !important;
padding-right: 4px !important;
padding-left: 4px !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Ordenes de Trabajo
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpGeneral" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-4 ">
<div class="portlet light bordered xspadding">
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-table font-green"></i>
<span class="caption-subject bold uppercase">
<asp:Label runat="server" ID="LblSubProyecto2"></asp:Label></span>
</div>
<div class="actions">
<div class="btn-group">
<%--<asp:Button ID="BtnCargarClientes" runat="server" ClientIDMode="Static" Text="CargarClientes" Style="display: none;" class="btn btn-success" />--%>
</div>
</div>
</div>
<div class="portlet-body form">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AutoPostBack="true" OnSelectedIndexChanged="DdlSubProyecto_SelectedIndexChanged"></asp:DropDownList>
<label for="<%= DdlSubProyecto.ClientID.ToString()%>">
<asp:Label runat="server" ID="LblSubProyecto" Text=""></asp:Label>
</label>
<i></i>
<asp:RequiredFieldValidator ID="RFVDdlSubProyecto" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlAF" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="CodDesc" DataValueField="CveActivoFijo" ></asp:DropDownList>
<label for="<%= DdlAF.ClientID.ToString()%>">
<asp:Label runat="server" ID="LblAF" Text="Equipo A.F."></asp:Label>
</label>
<i></i>
<asp:RequiredFieldValidator ID="RFVDdlAF" runat="server" InitialValue="-1" ControlToValidate="DdlAF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Equipo A.F.''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoMantenimiento" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="OrdenTrabajoTipo" DataValueField="CveOrdenTrabajoTipo" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoMantenimiento_SelectedIndexChanged"></asp:DropDownList>
<label for="<%= DdlTipoMantenimiento.ClientID.ToString()%>">
<asp:Label runat="server" ID="LblTipo" Text="Tipo O.T:"></asp:Label>
</label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoServicio" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="Nombre" DataValueField="CveTipoServicio">
<asp:ListItem Value="-1">Seleccione Uno</asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlTipoServicio.ClientID.ToString()%>">
<asp:Label runat="server" ID="LblTipoServicio" Text="Tipo"></asp:Label>
</label>
<i></i>
<asp:RequiredFieldValidator ID="RFVDdlTipoServicio" runat="server" InitialValue="-1" ControlToValidate="DdlAF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Equipo A.F.''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div>
<%-- <div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtServicio" runat="server" MaxLength="50"></asp:TextBox>
<asp:Label AssociatedControlID="TxtServicio" runat="server" Text="Servicio"></asp:Label>
<asp:RequiredFieldValidator ID="RFVTxtServicio" runat="server" ControlToValidate="TxtServicio" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Servicio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i>
</div>
--%>
</div>
</div>
</div>
<div class="col-md-4 ">
<div class="portlet light bordered xspadding">
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-table font-green"></i>
<span class="caption-subject bold uppercase">
<asp:Label runat="server" ID="Label1"></asp:Label></span>
</div>
<div class="actions">
<div class="btn-group">
<%--<asp:Button ID="BtnCargarClientes" runat="server" ClientIDMode="Static" Text="CargarClientes" Style="display: none;" class="btn btn-success" />--%>
</div>
</div>
</div>
<div class="portlet-body form">
<div class="row" runat="server" id="DVFolioAsignado" visible="false" >
<div class="col-md-6">
<div class="form-group form-inline ">
<label >Folio: </label>
<asp:Label runat="server" ID="LblFolio" ForeColor="Red" CssClass=""></asp:Label>
</div>
</div>
<%-- <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<label for="<%= LblAsiganado.ClientID.ToString()%>">Asignado:</label>
<asp:Label runat="server" ID="LblAsiganado" CssClass="form-control"></asp:Label>
</div>
</div>--%>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPrioridad" CssClass="form-control input-sm select2me" Width="100%" runat="server">
<asp:ListItem Value="1">Baja</asp:ListItem>
<asp:ListItem Value="2">Media</asp:ListItem>
<asp:ListItem Value="3">Alta</asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlPrioridad.ClientID.ToString()%>">
<asp:Label runat="server" ID="LblPrioridad" Text="Prioridad"></asp:Label>
</label>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<label for="<%= txtFechaI.ClientID.ToString()%>">
<asp:Label runat="server" ID="LblFechaInicio" Text="Fecha Inicio"></asp:Label>
</label>
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
<asp:TextBox Width="100px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<i></i>
</div>
</div>
<div class="col-md-6">
<div runat="server" id="DVFechaFin" visible="false" class="form-group form-md-line-input input-iconright">
<label for="<%= txtFechaF.ClientID.ToString()%>">
<asp:Label runat="server" ID="LblFechaFin" Text="Fecha Fin"></asp:Label>
</label>
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
<asp:TextBox Width="100px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<%--<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>--%>
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
<%--<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>--%>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
<br />
<div runat="server" id="DVEstatus" visible="true" class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlOrdenesTrabajoEstatus" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="EstatusOT" DataValueField="CveEstatusOT">
</asp:DropDownList>
<label for="<%= DdlOrdenesTrabajoEstatus.ClientID.ToString()%>">
<asp:Label runat="server" ID="LblEstatus" Text="Estatus"></asp:Label>
</label>
<i></i>
<asp:RequiredFieldValidator ID="RFVDdlOrdenesTrabajoEstatus" runat="server" InitialValue="-1" ControlToValidate="DdlOrdenesTrabajoEstatus" Display="Dynamic" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estatus''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlOperador" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="Operador" DataValueField="CveOperador">
</asp:DropDownList>
<label for="<%= DdlOperador.ClientID.ToString()%>">
<asp:Label runat="server" ID="LblOperador" Text="Asignar a"></asp:Label>
</label>
<i></i>
<asp:RequiredFieldValidator ID="RFVDdlOperador" runat="server" InitialValue="-1" ControlToValidate="DdlOperador" Display="Dynamic" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Operador''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" Visible="false">
<ajax:TabPanel ID="TabMaterial" runat="server" HeaderText="Material">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<asp:UpdatePanel runat="server" ID="UpGvMaterial" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvMaterial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
OnRowDataBound="GvMaterial_RowDataBound"
DataKeyNames="CveMaterial,Cantidad,CvePS,Importe,Faltante"
GridLines="None">
<Columns>
<asp:BoundField DataField="Cantidad" ItemStyle-Width="15%" HeaderText="Cantidad" />
<asp:BoundField DataField="Abreviatura" ItemStyle-Width="15%" HeaderText="U.M." />
<asp:TemplateField ItemStyle-Width="45%" HeaderText="Producto">
<ItemTemplate>
<asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS") %>' Width="220px"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="45%" HeaderText="Importe" Visible="false">
<ItemTemplate>
<asp:TextBox ID="TxtImporte" runat="server" Text='<%# Eval("Importe") %>' Width="100px"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="150px" HeaderText="Faltante" Visible="false" ItemStyle-HorizontalAlign="Right">
<HeaderTemplate>
Faltante
</HeaderTemplate>
<ItemTemplate>
<div class="row">
<div class="col-md-6">
<asp:Label ID="LtlFaltante" runat="server" Text='<%# Eval("Faltante") %>' ></asp:Label>
</div>
<div class="col-md-6">
<asp:HyperLink Visible="false" ID="HLOC" runat="server" Target="_blank" CssClass="Texto" data-toggle="tooltip" data-placement="top" title="Crear orden de compra" Text="<i class='fa fa-shopping-cart'></i> OC" ></asp:HyperLink>
</div>
</div>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabActividades" runat="server" HeaderText="Actividades" >
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<asp:UpdatePanel runat="server" ID="UpGvActividades" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvActividades" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
OnRowDataBound="GvActividades_RowDataBound"
DataKeyNames="CveOrdenTrabajoActividad,CveActividad,Terminado" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="">
<ItemStyle Width="20px" />
<ItemTemplate>
<asp:CheckBox runat="server" ID="Chk" />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Actividad" ItemStyle-Width="30%" HeaderText="Detalle" />
<asp:BoundField DataField="Duracion" ItemStyle-Width="30%" HeaderText="Duración (hrs)" />
<asp:TemplateField HeaderText="Observaciones">
<ItemStyle Width="300px" />
<ItemTemplate>
<asp:TextBox runat="server" ID="TxtObservaciones" Text='<%# Eval("Observaciones") %>' Width="300px" MaxLength="200"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<%-- <asp:BoundField DataField="Nombre" ItemStyle-Width="30%" HeaderText="Actividad" />
<asp:BoundField DataField="Puesto" ItemStyle-Width="30%" HeaderText="Puesto" />--%>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabCheckList" runat="server" HeaderText="Check List">
<ContentTemplate>
<div class="row">
<div class="col-md-8">
<asp:UpdatePanel runat="server" ID="UpGvCheckList" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvCheckList" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
OnRowDataBound="GvCheckList_RowDataBound"
DataKeyNames="CveOrdenTrabajoCheckList,CveCheckListActividad,CheckListActividadGrupo,Estatus,Terminado"
GridLines="None">
<Columns>
<asp:TemplateField HeaderText="">
<ItemStyle Width="20px" />
<ItemTemplate>
<asp:CheckBox runat="server" ID="Chk" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="No.">
<ItemStyle Width="200px" />
<ItemTemplate>
<asp:Literal ID="LtlNROW" runat="server" Text='<%# Eval("NROWO")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Componentes Inspección">
<ItemStyle Width="350px" />
<ItemTemplate>
<asp:Literal ID="LtlCheckListActividad" runat="server" Text='<%# Eval("CheckListActividad")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Condiciones operativas" ItemStyle-HorizontalAlign="Center">
<ItemStyle Width="180px" />
<HeaderTemplate>
<table style="width:180px">
<tr><td colspan="3">Condiciones Operativas</td></tr>
<tr>
<td style="width:60px">Si</td>
<td style="width:60px">No</td>
<td style="width:60px">ND</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<asp:RadioButtonList ID="RDLSINOND" runat="server" RepeatDirection="Horizontal" Width="180px" >
<asp:ListItem Value="1" ><label style="width:30px!important"></asp:ListItem>
<asp:ListItem Value="2"><label style="width:30px!important"></asp:ListItem>
<asp:ListItem Value="3"><label style="width:30px!important"></asp:ListItem>
</asp:RadioButtonList>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Observaciones">
<ItemStyle Width="300px" />
<ItemTemplate>
<asp:TextBox runat="server" ID="TxtObservaciones" Text='<%# Eval("Observaciones") %>' Width="300px" MaxLength="200"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabHerramientas" runat="server" HeaderText="Herramientas">
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpGvHerramientas" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<asp:GridView ID="GvHerramientas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
DataKeyNames="CveOrdenTrabajoHerramienta,CveHerramientaOT,Observaciones" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="" Visible="false">
<ItemStyle Width="20px" />
<ItemTemplate>
<asp:CheckBox runat="server" ID="Chk" />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="HerramientaOT" ItemStyle-Width="30%" HeaderText="Herramienta" />
<%--<asp:BoundField DataField="Duracion" ItemStyle-Width="30%" HeaderText="Duración (hrs)" />
<asp:TemplateField HeaderText="Observaciones">
<ItemStyle Width="300px" />
<ItemTemplate>
<asp:TextBox runat="server" ID="TxtObservaciones" Text='<%# Eval("Observaciones") %>' Width="300px" MaxLength="200"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>--%>
</Columns>
</asp:GridView>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabSubContrataciones" runat="server" HeaderText="Sub Contrataciones">
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpGvSubContrataciones" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<asp:GridView ID="GvSubContrataciones" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
DataKeyNames="CveOrdenTrabajoSubContratacion,CveSubContratacion,Observaciones" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="" Visible="false">
<ItemStyle Width="20px" />
<ItemTemplate>
<asp:CheckBox runat="server" ID="Chk" />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="SubContratacion" ItemStyle-Width="30%" HeaderText="Sub Contrataciones" />
<%--<asp:BoundField DataField="Duracion" ItemStyle-Width="30%" HeaderText="Duración (hrs)" />
<asp:TemplateField HeaderText="Observaciones">
<ItemStyle Width="300px" />
<ItemTemplate>
<asp:TextBox runat="server" ID="TxtObservaciones" Text='<%# Eval("Observaciones") %>' Width="300px" MaxLength="200"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>--%>
</Columns>
</asp:GridView>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>
<div id="ModalDescargaReporte" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:UpdatePanel ID="UpModalTitleModalDescargaReporte" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Literal ID="LtlModalTitleModalDescargaReporte" runat="server">Descarga reporte </asp:Literal>
</ContentTemplate>
</asp:UpdatePanel>
</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UpModalCuerpoModalDescargaReporte" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-12">
<p>Metricas guardadas correctamente.</p>
<%-- <asp:LinkButton ID="LnkDescargaReporte" runat="server" OnClick="LnkDescargaReporte_Click">
<i class="fa fa-arrow-down" style="font-weight:bold;"></i> Descarga Reporte Excel</asp:LinkButton>--%>
</div>
</div>
</ContentTemplate>
<Triggers>
<%-- <asp:PostBackTrigger ControlID="LnkDescargaReporte" />--%>
</Triggers>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
<br />
<div class="row">
<div class="col-md-12" style="text-align:center">
<asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" OnClick="BtnGuardar_Click" Visible="true" />
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

579
MQ/OrdenTrabajo.aspx.vb Normal file
View File

@@ -0,0 +1,579 @@
Option Explicit On
Option Strict On
Imports System.Data
Imports System.IO
Imports Extensiones
Imports GemBox.Spreadsheet
Imports Microsoft.Reporting.WebForms
Partial Class AF_OrdenTrabajo
Inherits ClsPaginas
#Region " PROPIEDADES"
Property CveOrdenTrabajo As Integer
Get
If ViewState("CveOrdenTrabajo") Is Nothing Then
Return -1
Else
Return ViewState("CveOrdenTrabajo").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("CveOrdenTrabajo") = value
End Set
End Property
Property CveOrdenCompra As Integer
Get
If ViewState("CveOrdenCompra") Is Nothing Then
Return -1
Else
Return ViewState("CveOrdenCompra").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("CveOrdenCompra") = value
End Set
End Property
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaCombos()
If Request("CveOrdenTrabajo") IsNot Nothing Then
CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero
If CveOrdenTrabajo > 0 Then
DVFechaFin.Visible = True
DVFolioAsignado.Visible = True
DVEstatus.Visible = True
Tab.Visible = True
CargaDatos()
End If
End If
End If
End Sub
#Region " CARGA PARAMETROS "
#End Region
#Region " CARGA COMBOS "
Protected Sub CargaCombos()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
DdlSubProyecto.SelectedValueExist(-1)
LblSubProyecto.Text = "Obra"
'CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa, -1)
DdlAF.DataBind()
DdlAF.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
Dim ObjAF As New ClsAF
If ObjAF.GetEstatusOT(-1, UsuarioActual.CveEmpresa, 1) Then
DdlOrdenesTrabajoEstatus.DataSource = ObjAF.DtResultados
Else
DdlOrdenesTrabajoEstatus.DataSource = Nothing
End If
If ObjAF.GetTiposOT(-1, 1, UsuarioActual.CveEmpresa) Then
DdlTipoMantenimiento.DataSource = ObjAF.DtResultados
Else
DdlTipoMantenimiento.DataSource = Nothing
End If
If ObjAF.GetOperador(-1, UsuarioActual.CveEmpresa) Then
DdlOperador.DataSource = ObjAF.DtResultados
Else
DdlOperador.DataSource = Nothing
End If
ObjAF.Dispose()
' DdlTipoServicio.DataBind()
DdlOrdenesTrabajoEstatus.DataBind()
DdlTipoMantenimiento.DataBind()
DdlOperador.DataBind()
DdlOrdenesTrabajoEstatus.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
DdlOrdenesTrabajoEstatus.SelectedValueExist(-1)
DdlOperador.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
DdlOperador.SelectedValueExist(-1)
DdlTipoMantenimiento.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
DdlTipoMantenimiento.SelectedValueExist(-1)
UpGeneral.Update()
End Sub
Protected Sub DdlTipoMantenimiento_SelectedIndexChanged(sender As Object, e As EventArgs)
If DdlTipoMantenimiento.SelectedValue.ToEntero > 0 Then
Dim ObjAF As New ClsAF
If ObjAF.GetTiposServicios(-1, DdlTipoMantenimiento.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
DdlTipoServicio.DataSource = ObjAF.DtResultados
Else
DdlTipoServicio.DataSource = Nothing
End If
ObjAF.Dispose()
Else
DdlTipoServicio.DataSource = Nothing
End If
DdlTipoServicio.DataBind()
DdlTipoServicio.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
UpGeneral.Update()
End Sub
#End Region
#Region " GV DATOS "
Private Sub CargaDatos()
Dim ObjAF As New ClsAF
If ObjAF.GetOrdenesTrabajo(CveOrdenTrabajo, -1, -1, -1, -1, -1, MinFecha, MaxFecha, Nothing, -1, UsuarioActual.CveEmpresa, -1) Then
If ObjAF.DtResultados IsNot Nothing AndAlso ObjAF.DtResultados.Rows.Count > 0 Then
LblFolio.Text = ObjAF.DtResultados(0)("Folio").ToString
DdlSubProyecto.SelectedValueExist(ObjAF.DtResultados(0)("CveSubProyecto").ToString)
DdlAF.SelectedValueExist(ObjAF.DtResultados(0)("CveAF").ToString)
'DdlTipoServicio.SelectedValueExist(ObjAF.DtResultados(0)("CveTipoServicio").ToString)
DdlPrioridad.SelectedValueExist(ObjAF.DtResultados(0)("Prioridad").ToString)
txtFechaI.Text = ObjAF.DtResultados(0)("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy")
DdlOperador.SelectedValueExist(ObjAF.DtResultados(0)("CveOperador").ToString)
If ObjAF.DtResultados(0)("FechaFin").ToString.Length > 0 Then
txtFechaF.Text = ObjAF.DtResultados(0)("FechaFin").ToString.ToDate.ToString("dd/MM/yyyy")
End If
DdlOrdenesTrabajoEstatus.SelectedValueExist(ObjAF.DtResultados(0)("CveEstatusOT").ToString)
DdlTipoMantenimiento.SelectedValueExist(ObjAF.DtResultados(0)("CveOrdenTrabajoTipo").ToString)
DdlTipoMantenimiento_SelectedIndexChanged(Nothing, Nothing)
DdlTipoServicio.SelectedValueExist(ObjAF.DtResultados(0)("CveTipoServicio").ToString)
Else
Alert("No se encontro la orden de trabajo", TipoMensaje.MsgAdvertencia)
End If
End If
ObjAF.Dispose()
CargaMaterial()
CargaActividades()
CargaCheckList()
CargaHerramientas()
CargaSubContrataciones()
End Sub
#End Region
Protected Sub LnkEliminarMetricaValor_Click(sender As Object, e As EventArgs)
End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
If CveOrdenTrabajo <= 0 Then
Dim ObjAF As New ClsAF
ObjAF.IniciaTransacSQL()
Dim ErrorProceso As Boolean = False
If Not ObjAF.AddOrdenesTrabajo(DdlTipoServicio.SelectedValue.ToEntero, DdlAF.SelectedValue.ToEntero, "", DdlSubProyecto.SelectedValue.ToEntero, DdlPrioridad.SelectedValue.ToEntero, txtFechaI.Text.ToDate, MaxFecha, MaxFecha, DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlOperador.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
ErrorProceso = True
End If
If Not ErrorProceso Then
ObjAF.Commit()
Alert($"Orden de trabajo guardada corectamente <a href='./OrdenTrabajo.aspx?CveOrdenTrabajo={ObjAF.CveOrdenTrabajo}' class='Texto'> Folio {ObjAF.FolioOT}</a>", TipoMensaje.MsgInformacion, $" document.location.href=""OrdenTrabajo.aspx?CveOrdenTrabajo={CveOrdenTrabajo}"";")
Else
ObjAF.RollBack()
End If
ObjAF.Dispose()
Else
If DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero = 3 Then
If txtFechaF.Text.Length = 0 Then
Alert("La fecha fin es requerida.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
Dim ObjAF As New ClsAF
ObjAF.IniciaTransacSQL()
Dim ErrorProceso As Boolean = False
Dim FechaFinal As Date = MaxFecha
Dim FechaFinReal As Date = MaxFecha
If txtFechaF.Text.ToDate > MinFecha Then
FechaFinal = txtFechaF.Text.ToDate
End If
If Not ObjAF.UpdateOrdenesTrabajo(CveOrdenTrabajo, DdlTipoServicio.SelectedValue.ToEntero, DdlAF.SelectedValue.ToEntero, "", DdlSubProyecto.SelectedValue.ToEntero, DdlPrioridad.SelectedValue.ToEntero, txtFechaI.Text.ToDate, FechaFinal, MaxFecha, DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlOperador.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
ErrorProceso = True
End If
If Not ErrorProceso Then
For Each GvRow As GridViewRow In GvActividades.Rows
Dim Chk As CheckBox = GvRow.FCCheckBox("Chk")
Dim TxtObservaciones As TextBox = GvRow.FCTextBox("TxtObservaciones")
Dim CveOrdenTrabajoActividad As Integer = GvRow.DataKey("CveOrdenTrabajoActividad").ToEntero
If Not ObjAF.UpdateOrdenesTrabajoActividades(CveOrdenTrabajoActividad, "-1", If(Chk.Checked, 1, 0), TxtObservaciones.Text, UsuarioActual.CveEmpresa) Then
ErrorProceso = True
Exit For
End If
Next
End If
If Not ErrorProceso Then
For Each GvRow As GridViewRow In GvCheckList.Rows
Dim Chk As CheckBox = GvRow.FCCheckBox("Chk")
Dim TxtObservaciones As TextBox = GvRow.FCTextBox("TxtObservaciones")
Dim CveOrdenTrabajoCheckList As Integer = GvRow.DataKey("CveOrdenTrabajoCheckList").ToEntero
Dim RBL As RadioButtonList = GvRow.FCRadioButtonList("RDLSINOND")
Dim Estatus As Integer = 0
If RBL.SelectedValue.ToEntero > 0 Then
Estatus = RBL.SelectedValue.ToEntero
End If
If CveOrdenTrabajoCheckList > 0 Then
If Not ObjAF.UpdateOrdenesTrabajoCheckList(CveOrdenTrabajoCheckList, "-1", If(Chk.Checked, 1, 0), TxtObservaciones.Text, Estatus, UsuarioActual.CveEmpresa) Then
ErrorProceso = True
Exit For
End If
End If
Next
End If
If Not ErrorProceso Then
ObjAF.Commit()
Alert($"Orden de trabajo actualizada correctamente.", TipoMensaje.MsgInformacion, $" document.location.href=""OrdenTrabajo.aspx?CveOrdenTrabajo={CveOrdenTrabajo}"";")
Else
ObjAF.RollBack()
End If
End If
End Sub
#Region "FOLIOS"
Private Function CargaFolios() As Boolean
Dim Respuesta As Boolean = False
If DdlSubProyecto.SelectedValue.ToEntero() <= 0 Then
Alert("No se tienen asignadas sucursales", TipoMensaje.MsgError)
Return False
Exit Function
End If
Dim ObjFolios As New ClsGralFolios()
If ObjFolios.GetFolios("OT", UsuarioActual.CveEmpresa) Then
Dim DT As DataTable = ObjFolios.DtResultados '.FiltraParametros(String.Format(" CveSubProyecto = {0} And Estado = 'Activo'", DdlSubProyecto.SelectedValue))
If DT.Rows.Count > 0 Then
Respuesta = True
Else
Alert("No tiene registrados Folios para " & DdlSubProyecto.SelectedItem.Text & " ", TipoMensaje.MsgAdvertencia)
End If
DT.Dispose()
End If
ObjFolios.Dispose()
Return Respuesta
End Function
#End Region
Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
If CargaFolios() Then
BtnGuardar.Enabled = True
Else
BtnGuardar.Enabled = False
End If
UpGuardar.Update()
End Sub
Private Sub CargaMaterial()
Dim ObjAF As New ClsAF
Dim MaterialFaltante As Decimal = 0
If ObjAF.GetOrdenesTrabajoMateriales(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then
GvMaterial.DataSource = ObjAF.DtResultados
MaterialFaltante = ObjAF.DtResultados.SUMD("Faltante")
Else
GvMaterial.DataSource = Nothing
End If
ObjAF.Dispose()
If MaterialFaltante > 0 AndAlso CveOrdenCompra <= 0 Then
GvMaterial.Columns(4).Visible = True
End If
GvMaterial.DataBind()
UpGvMaterial.Update()
End Sub
Private Sub CargaActividades()
Dim ObjAF As New ClsAF
If ObjAF.GetOrdenesTrabajoActividades(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then
GvActividades.DataSource = ObjAF.DtResultados
Else
GvActividades.DataSource = Nothing
End If
ObjAF.Dispose()
GvActividades.DataBind()
UpGvActividades.Update()
End Sub
Private Sub CargaCheckList()
Dim ObjAF As New ClsAF
If ObjAF.GetOrdenesTrabajoCheckList(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then
GvCheckList.DataSource = ObjAF.DtResultados
Else
GvCheckList.DataSource = Nothing
End If
ObjAF.Dispose()
GvCheckList.DataBind()
UpGvCheckList.Update()
End Sub
Private Sub CargaHerramientas()
Dim ObjAF As New ClsAF
If ObjAF.GetOrdenesTrabajoHerramientas(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then
GvHerramientas.DataSource = ObjAF.DtResultados
Else
GvHerramientas.DataSource = Nothing
End If
ObjAF.Dispose()
GvHerramientas.DataBind()
UpGvHerramientas.Update()
End Sub
Private Sub CargaSubContrataciones()
Dim ObjAF As New ClsAF
If ObjAF.GetOrdenesTrabajoSubContrataciones(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then
GvSubContrataciones.DataSource = ObjAF.DtResultados
Else
GvSubContrataciones.DataSource = Nothing
End If
ObjAF.Dispose()
GvSubContrataciones.DataBind()
UpGvSubContrataciones.Update()
End Sub
Protected Sub GvMaterial_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If GvMaterial.Columns(4).Visible Then
If e.Row.DataKey("Faltante").ToDecimal > 0 Then
Dim HLOC As HyperLink = e.Row.FCHyperLink("HLOC")
HLOC.Visible = True
HLOC.NavigateUrl = $"../OC/OC.aspx?CveOrdenTrabajo={CveOrdenTrabajo}"
End If
End If
End If
End Sub
Protected Sub GvActividades_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
Dim Chk As CheckBox = e.Row.FCCheckBox("Chk")
If Boolean.Parse(e.Row.DataKey("Terminado")) Then
Chk.Checked = True
Else
Chk.Checked = False
End If
End If
End Sub
Protected Sub GvCheckList_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
Dim Chk As CheckBox = e.Row.FCCheckBox("Chk")
Dim RDLSINOND As RadioButtonList = e.Row.FCRadioButtonList("RDLSINOND")
Dim TxtObservaciones As TextBox = e.Row.FCTextBox("TxtObservaciones")
If e.Row.DataKey("CveOrdenTrabajoCheckList").ToEntero = 0 Then
e.Row.FCLiteral("LtlNROW").Text = e.Row.DataKey("CheckListActividadGrupo").ToString
e.Row.Attributes.Add("style", "background-color:#DDD")
Chk.Visible = False
RDLSINOND.Visible = False
TxtObservaciones.Visible = False
Else
Dim Estatus As String = e.Row.DataKey("Estatus")
RDLSINOND.SelectedValuesIfExist(Estatus)
If Boolean.Parse(e.Row.DataKey("Terminado")) Then
Chk.Checked = True
Else
Chk.Checked = False
End If
End If
End If
End Sub
End Class

126
MQ/SubContrataciones.aspx Normal file
View File

@@ -0,0 +1,126 @@
<%@ Page Title="Catálogo Operadores" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="SubContrataciones.aspx.vb" Inherits="AF_SubContrataciones" %>
<%@ 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 Sub Contrataciones
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="LnkAgregarSubContratacion" data-toggle="tooltip" data-placement="left" title="Agregar Sub Contratación" Text="<i class='fa fa-plus'></i> Agregar Sub Contratación"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="col-md-8">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveSubContratacion,SubContratacion,Estatus" EmptyDataText="No se encontraron Sub Contrataciones" Width="100%"
ToolTip="Listado de Sub Contrataciones" CssClass="table table-striped table-advance table-hover" GridLines="None" >
<Columns>
<asp:TemplateField HeaderText="Sub Contratación">
<ItemTemplate>
<asp:Literal ID="LtlOperador" runat="server" Text='<%# Eval("SubContratacion") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center" Visible="true">
<ItemTemplate>
<asp:Literal ID="LtlEsatusString" runat="server" Text='<%# Eval("EstatusString") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Ing" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario" ItemStyle-Width="200" >
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton ID="LnkActualizar" runat="server" OnClick="LnkGvActualizar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" ValidationGroup="GrpGV" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton runat="server" ID="LnkEliminar" OnClick="LnkGvEliminar_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
<div id="DVModalSubContratacion" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalOperador" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalOperdaor" runat="server"></asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtSubContratacion" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVTxtSubContratacion" runat="server" ControlToValidate="TxtSubContratacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Contratación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpOperador"></asp:RequiredFieldValidator>
<label for="TxtSubContratacion">Sub Contratación:</label>
<i></i>
</div>
<br ID="saltoDeLinea" runat="server" />
<div ID="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright" visible="false">
<label for="ChkEstatus">Activo:</label>&nbsp;
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
<i></i>
</div>
</div>
<br />
<div class="modal-footer">
<asp:Button ID="BtnModalAgregarOperador" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpOperador" />
<button id="Button" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

View File

@@ -0,0 +1,135 @@
Option Strict On
Imports System.Data
Imports System.Linq
Imports Extensiones
Partial Class AF_SubContrataciones
Inherits ClsPaginas
Protected Property CveSubContratacion As Integer
Get
If ViewState("CveSubContratacion") Is Nothing Then
Return -1
Else
Return ViewState("CveSubContratacion").ToString.ToEntero
End If
End Get
Set(value As Integer)
ViewState("CveSubContratacion") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaDatos()
End If
End Sub
Private Sub CargaDatos()
Dim ObjAF As New ClsAF
If ObjAF.GetSubContratacionOT(-1, UsuarioActual.CveEmpresa, -1) Then
GvDatos.DataSource = ObjAF.DtResultados
Else
GvDatos.DataSource = Nothing
End If
ObjAF.Dispose()
GvDatos.DataBind()
UpDatos.Update()
End Sub
Protected Sub LnkAgregarSubContratacion_Click(sender As Object, e As EventArgs) Handles LnkAgregarSubContratacion.Click
ResetModalSubContrataciones()
RegistraScript(String.Format("$('#{0}').modal();", "DVModalSubContratacion"))
End Sub
Private Sub ResetModalSubContrataciones()
CveSubContratacion = -1
TxtSubContratacion.Text = ""
ChkEstatus.Checked = True
LtlTituloModalOperdaor.Text = "Agregar operador"
CheckActiveSection.Visible = False
UpModalOperador.Update()
End Sub
Protected Sub LnkGvActualizar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveSubContratacion = GvRow.DataKey("CveSubContratacion").ToEntero
TxtSubContratacion.Text = GvRow.DataKey("SubContratacion")
'TxtFecha.Text = GvRow.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy")
ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString.ToEntero = 1, True, False)
LtlTituloModalOperdaor.Text = "Actualizar Sub Contratación"
CheckActiveSection.Visible = True
UpModalOperador.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DVModalSubContratacion"))
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnModalAgregarOperador.Click
Dim ObjAF As New ClsAF
Dim ErrorProceso As Boolean = False
If CveSubContratacion = -1 Then
If Not ObjAF.AddSubContratacionOT(TxtSubContratacion.Text, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ErrorProceso = True
End If
Else
If Not ObjAF.UpdateSubContratacionOT(CveSubContratacion, TxtSubContratacion.Text, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ErrorProceso = True
End If
End If
ObjAF.Dispose()
If Not ErrorProceso Then
Alert($"Sub Contratación { If(CveSubContratacion > 0, "Actualizada", "Agregada") } correctamente.")
RegistraScript(String.Format("$('#{0}').modal('hide');", "DVModalSubContratacion"))
CargaDatos()
End If
End Sub
Protected Sub LnkGvEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim ErrorProceso As Boolean = False
Dim CveSubContratacionEliminar As Integer = GvRow.DataKey("CveSubContratacion").ToEntero
Dim ObjAF As New ClsAF
If ObjAF.RemoveSubContratacionOT(CveSubContratacionEliminar, UsuarioActual.CveEmpresa) Then
Alert("Sub Contratación eliminada correctamente")
Else
ErrorProceso = True
End If
ObjAF.Dispose()
If Not ErrorProceso Then
CargaDatos()
End If
End Sub
End Class

581
MQ/TipoOrdenTrabajo.aspx Normal file
View File

@@ -0,0 +1,581 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="TipoOrdenTrabajo.aspx.vb" Inherits="MQ_TipoOrdenTrabajo" EnableEventValidation = "false" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.Widthall {
width: 100% !important;
}
.dataTables_scrollHeadInner {
width: 100% !important;
background-color: #dddddd;
padding-left: 0px !important;
}
.dataTables_scrollFoot {
display: none;
position: static;
}
.table-scrollable {
margin: 0px !important;
}
.dataTables_scroll {
margin-bottom: 0px;
}
.table.dataTable {
margin-top: 0px !important;
}
.dataTables_scrollBody table th {
padding: 0px !important;
padding-right: 4px !important;
padding-left: 4px !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Tipo de Ordenes de Trabajo
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar" UpdateMode="Conditional">
<ContentTemplate>
<li style="text-align: left!important">
<asp:LinkButton runat="server" ID="LnkAgregarMaterial" CssClass=" " data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar Material" Text="<i class='fa fa-plus'></i> Agregar Material" OnClick="LnkAgregarMaterial_Click"></asp:LinkButton>
</li>
<li style="text-align: left!important">
<asp:LinkButton runat="server" ID="LnkAgregarActividad" CssClass=" " data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar Actividad" Text="<i class='fa fa-plus'></i> Agregar Actividad" OnClick="LnkAgregarActividad_Click"></asp:LinkButton>
</li>
<li style="text-align: left!important">
<asp:LinkButton runat="server" ID="LnkAgregarHorramienta" CssClass=" " data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar Herramienta" Text="<i class='fa fa-plus'></i> Agregar Herramienta" OnClick="LnkAgregarHorramienta_Click"></asp:LinkButton>
</li>
<li style="text-align: left!important">
<asp:LinkButton runat="server" ID="LnkAgregarSubContratacion" CssClass=" " data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar Sub Contratación" Text="<i class='fa fa-plus'></i> Agregar Sub Contratación" OnClick="LnkAgregarSubContratacion_Click"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpFiltro" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-4 ">
<div class="portlet light bordered xspadding">
<div class="portlet-title">
<div class="caption font-green">
<i class="fa fa-table font-green"></i>
<span class="caption-subject bold uppercase">
<asp:Label runat="server" ID="LblTitulo">Tipo de Ordenes de Trabajo</asp:Label></span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
</div>
<div class="portlet-body form">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoMantenimiento" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="OrdenTrabajoTipo" DataValueField="CveOrdenTrabajoTipo"></asp:DropDownList>
<label for="<%= DdlTipoMantenimiento.ClientID.ToString()%>">
<asp:Label runat="server" ID="LblTipo" Text="Tipo O.T:"></asp:Label>
</label>
<i></i>
<asp:RequiredFieldValidator ID="RFVDdlTipoServicio" runat="server" InitialValue="-1" ControlToValidate="DdlTipoMantenimiento" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Mantenimientp''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTipoServicio" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
<asp:Label AssociatedControlID="TxtTipoServicio" runat="server" Text="Descripción:"></asp:Label>
<asp:RequiredFieldValidator ID="RFVTxtTipoServicio" runat="server" ControlToValidate="TxtTipoServicio" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtDuracion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
<asp:Label AssociatedControlID="TxtDuracion" runat="server" Text="Duración:"></asp:Label>
<asp:RequiredFieldValidator ID="RFVTxtDuracion" runat="server" ControlToValidate="TxtDuracion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Duración''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:FilteredTextBoxExtender ID="FilTxtDuracion" TargetControlID="TxtDuracion" runat="server" FilterType="Numbers,Custom" InvalidChars="-*+," ValidChars="." />
<i></i>
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" >
<ajax:TabPanel ID="TabMaterial" runat="server" HeaderText="Material">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<asp:UpdatePanel runat="server" ID="UpGvMaterial" UpdateMode="Conditional" >
<ContentTemplate>
<asp:GridView ID="GvMaterial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
DataKeyNames="CveTipoServicioMaterial,CveTipoServicio,Cantidad,CveUM,CvePS,Tipo"
GridLines="None">
<Columns>
<asp:BoundField DataField="Cantidad" ItemStyle-Width="15%" HeaderText="Cantidad" />
<asp:BoundField DataField="Abreviatura" ItemStyle-Width="15%" HeaderText="U.M." />
<asp:TemplateField ItemStyle-Width="45%" HeaderText="Producto" >
<ItemTemplate>
<asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS") %>' Width="220px"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="25%">
<ItemTemplate>
<asp:LinkButton ID="LnkEliminarMaterial" runat="server" AlternateText="Eliminar" OnClick="LnkEliminarMaterial_Click" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></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>
</div>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabActividades" runat="server" HeaderText="Actividades">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<asp:UpdatePanel runat="server" ID="UpGvActividades" UpdateMode="Conditional" >
<ContentTemplate>
<asp:GridView ID="GvActividades" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
OnRowDataBound="GvActividades_RowDataBound"
DataKeyNames="CveTipoServicioActividad,CveActividadOT,Horas" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="" Visible="false">
<ItemStyle Width="20px" />
<ItemTemplate>
<asp:CheckBox runat="server" ID="Chk" OnCheckedChanged="Chk_CheckedChanged" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Horas" >
<ItemStyle Width="100px" />
<ItemTemplate>
<asp:TextBox runat="server" ID="TxtHoras" Width="100px"></asp:TextBox>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtHoras" FilterType="Custom" ValidChars="1234567890." />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="ActividadOT" ItemStyle-Width="30%" HeaderText="Actividad" />
<asp:BoundField DataField="Puesto" ItemStyle-Width="30%" HeaderText="Puesto" />
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="25%">
<ItemTemplate>
<asp:LinkButton ID="LnkEliminarActividad" runat="server" AlternateText="Eliminar" OnClick="LnkEliminarActividad_Click" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></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>
</div>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabCheckList" runat="server" HeaderText="Check List">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<asp:UpdatePanel runat="server" ID="UpGvCheckList" UpdateMode="Conditional" >
<ContentTemplate>
<asp:GridView ID="GvCheckList" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
OnRowDataBound="GvCheckList_RowDataBound"
DataKeyNames="CveCheckListActividad,CheckListActividadGrupo,CveCheckList,CveTipoServicio"
GridLines="None">
<Columns>
<asp:TemplateField HeaderText="">
<ItemStyle Width="20px" />
<ItemTemplate>
<asp:CheckBox runat="server" ID="Chk" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="No.">
<ItemStyle Width="100px" />
<ItemTemplate>
<asp:Literal ID="LtlNROW" runat="server" Text='<%# Eval("NROW")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Componentes Inspección">
<ItemStyle Width="350px" />
<ItemTemplate>
<asp:Literal ID="LtlCheckListActividad" runat="server" Text='<%# Eval("CheckListActividad")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabHerramientas" runat="server" HeaderText="Herramientas">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<asp:UpdatePanel runat="server" ID="UpGvHerramientas" UpdateMode="Conditional" >
<ContentTemplate>
<asp:GridView ID="GvHerraminetas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
DataKeyNames="CveTipoServicioHerramientaOT,CveTipoServicio,CveHerramientaOT,HerramientaOT" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="" Visible="false">
<ItemStyle Width="20px" />
<ItemTemplate>
<asp:CheckBox runat="server" ID="Chk" />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="HerramientaOT" ItemStyle-Width="80%" HeaderText="Herramienta" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="25%">
<ItemTemplate>
<asp:LinkButton ID="LnkEliminarHerramienta" runat="server" AlternateText="Eliminar" OnClick="LnkEliminarHerramienta_Click" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></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>
</div>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabSubContratacion" runat="server" HeaderText="Sub Contratación">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<asp:UpdatePanel runat="server" ID="UpGvSubContratacion" UpdateMode="Conditional" >
<ContentTemplate>
<asp:GridView ID="GvSubContratacion" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
DataKeyNames="CveTipoServicioSubContratacion,CveTipoServicio,CveSubContratacion,SubContratacion" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="" Visible="false">
<ItemStyle Width="20px" />
<ItemTemplate>
<asp:CheckBox runat="server" ID="Chk" />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="SubContratacion" ItemStyle-Width="80%" HeaderText="Sub Contratación" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="25%">
<ItemTemplate>
<asp:LinkButton ID="LnkEliminarSubContratacion" runat="server" AlternateText="Eliminar" OnClick="LnkEliminarSubContratacion_Click" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></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>
</div>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>
<br />
<div class="row">
<div class="col-md-12" style="text-align:center">
<asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" OnClick="BtnGuardar_Click" Visible="true" />
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div id="ModalMateriales" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Literal ID="Literal1" runat="server">Material </asp:Literal>
</ContentTemplate>
</asp:UpdatePanel>
</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UpModalMaterialesBody" UpdateMode="Conditional">
<ContentTemplate>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= DdlPS.ClientID.ToString()%>">Producto:</label>
<ADS:Dropdownlost runat="server" ID="DdlPS" DataTextField="PSCodigo" DataValueField="CvePS" Width="100%" CssClassDdl="select2me" CssStyle="width: 220px;"/>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCantidad" runat="server" CssClass="form-control" MaxLength="100"></asp:TextBox>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtCantidad" FilterType="Custom" ValidChars="1234567890." />
<asp:RequiredFieldValidator ID="RFVTxtCantidad" runat="server" ControlToValidate="TxtCantidad" CssClass="help-block errorimput" ErrorMessage="&lt;b&gt;&lt;span style='text-decoration: underline'&gt;ERROR:&lt;/span&gt;&lt;/b&gt;&lt;br /&gt;El campo &lt;b&gt;''Cantidad''&lt;/b&gt; es necesario, por favor ingréselo." ValidationGroup="GrpMaterial"></asp:RequiredFieldValidator>
<label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:CheckBox runat="server" Text="Continuar agregando" ID="ChkContinuarMaterial" />
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button runat="server" ID="BtnGuardarMaterial" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="GrpMaterial" OnClick="BtnGuardarMaterial_Click" />
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
<div id="ModalActividades" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:UpdatePanel ID="UpdatePanel2" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Literal ID="LtlModalTituloActividades" runat="server">Agregar Actividades</asp:Literal>
</ContentTemplate>
</asp:UpdatePanel>
</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UpModalActividades" UpdateMode="Conditional">
<ContentTemplate>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList runat="server" ID="DdlModalActiviades" CssClass="select2me form-control" DataTextField="ActividadOT" DataValueField="CveActividadOT" Width="150px" ></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlModalActiviades" InitialValue="-1" runat="server" ControlToValidate="DdlModalActiviades" CssClass="help-block errorimput" ErrorMessage="&lt;b&gt;&lt;span style='text-decoration: underline'&gt;ERROR:&lt;/span&gt;&lt;/b&gt;&lt;br /&gt;El campo &lt;b&gt;''Actividad''&lt;/b&gt; es necesario, por favor ingréselo." ValidationGroup="GrpActividad"></asp:RequiredFieldValidator>
<label for="<%= DdlModalActiviades.ClientID.ToString()%>">Actividad:</label>
<i></i>
</div>
<%-- <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList runat="server" ID="DdlmodalPuesto" CssClass="select2me form-control" DataTextField="Puesto" DataValueField="CvePuesto" Width="150px" ></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlmodalPuesto" InitialValue="-1" runat="server" ControlToValidate="DdlmodalPuesto" CssClass="help-block errorimput" ErrorMessage="&lt;b&gt;&lt;span style='text-decoration: underline'&gt;ERROR:&lt;/span&gt;&lt;/b&gt;&lt;br /&gt;El campo &lt;b&gt;''Puesto''&lt;/b&gt; es necesario, por favor ingréselo." ValidationGroup="GrpActividad"></asp:RequiredFieldValidator>
<label for="<%= DdlmodalPuesto.ClientID.ToString()%>">Puesto:</label>
<i></i>
</div>--%>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtmodalHoras" runat="server" CssClass="form-control" MaxLength="5"></asp:TextBox>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtmodalHoras" FilterType="Custom" ValidChars="1234567890." />
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtmodalHoras" CssClass="help-block errorimput" ErrorMessage="&lt;b&gt;&lt;span style='text-decoration: underline'&gt;ERROR:&lt;/span&gt;&lt;/b&gt;&lt;br /&gt;El campo &lt;b&gt;''Horas ''&lt;/b&gt; es necesario, por favor ingréselo." ValidationGroup="GrpActividad"></asp:RequiredFieldValidator>
<label for="<%= TxtmodalHoras.ClientID.ToString()%>">Horas:</label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:CheckBox runat="server" Text="Continuar agregando" ID="chkModalContinuarActividades" />
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button runat="server" ID="BtnmodalActividad" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="GrpActividad" OnClick="BtnmodalActividad_Click" />
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
<div id="ModalHerramientas" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:UpdatePanel ID="UpdatePanel4" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Literal ID="LtlModalTituloHerramientas" runat="server">Agregar Herramienta</asp:Literal>
</ContentTemplate>
</asp:UpdatePanel>
</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UpModalHerramientas" UpdateMode="Conditional">
<ContentTemplate>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList runat="server" ID="DdlModalHerramienta" CssClass="select2me form-control" DataTextField="HerramientaOT" DataValueField="CveHerramientaOT" ></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFvDdlModalHerramienta" InitialValue="-1" runat="server" ControlToValidate="DdlModalHerramienta" CssClass="help-block errorimput" ErrorMessage="&lt;b&gt;&lt;span style='text-decoration: underline'&gt;ERROR:&lt;/span&gt;&lt;/b&gt;&lt;br /&gt;El campo &lt;b&gt;''Actividad''&lt;/b&gt; es necesario, por favor ingréselo." ValidationGroup="GrpHerramienta"></asp:RequiredFieldValidator>
<label for="<%= DdlModalHerramienta.ClientID.ToString()%>">Herramienta:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:CheckBox runat="server" Text="Continuar agregando" ID="ChkModalContinuarHerramientas" />
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button runat="server" ID="BtnModalHerramienta" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="GrpHerramienta" OnClick="BtnModalHerramienta_Click" />
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
<div id="ModalSubContratacion" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:UpdatePanel ID="UpdatePanel3" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Literal ID="Literal2" runat="server">Agregar Sub Contratación</asp:Literal>
</ContentTemplate>
</asp:UpdatePanel>
</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UpModalSubContratacion" UpdateMode="Conditional">
<ContentTemplate>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList runat="server" ID="DdlModalSubContratacion" CssClass="select2me form-control" DataTextField="SubContratacion" DataValueField="CveSubContratacion" ></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlSubContratacion" InitialValue="-1" runat="server" ControlToValidate="DdlModalSubContratacion" CssClass="help-block errorimput" ErrorMessage="&lt;b&gt;&lt;span style='text-decoration: underline'&gt;ERROR:&lt;/span&gt;&lt;/b&gt;&lt;br /&gt;El campo &lt;b&gt;''Sub Contratación''&lt;/b&gt; es necesario, por favor ingréselo." ValidationGroup="GrpSubContratacion"></asp:RequiredFieldValidator>
<label for="<%= DdlModalSubContratacion.ClientID.ToString()%>">Sub Contratación:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:CheckBox runat="server" Text="Continuar agregando" ID="ChkModalContinuarSubcatratacion" />
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button runat="server" ID="BtnModalSubContratacion" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="GrpSubContratacion" OnClick="BtnModalSubContratacion_Click" />
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

1264
MQ/TipoOrdenTrabajo.aspx.vb Normal file

File diff suppressed because it is too large Load Diff

View File

@@ -2415,7 +2415,11 @@ Partial Class Ventas_ClientesAbonar
End If End If
If DTCuentas.Rows.Count > 0 Then If DTCuentas.Rows.Count > 0 Then
If String.IsNullOrEmpty(DTCuentas.Rows(0)("CLABE").ToString) Then
CuentaBeneficiario = DTCuentas.Rows(0)("NumCuenta").ToString CuentaBeneficiario = DTCuentas.Rows(0)("NumCuenta").ToString
Else
CuentaBeneficiario = DTCuentas.Rows(0)("CLABE").ToString
End If
Else Else
Alert("No se pudo encontrar la cuenta", TipoMensaje.MsgAdvertencia) Alert("No se pudo encontrar la cuenta", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub

View File

@@ -263,7 +263,9 @@ Partial Class Ventas_FacturacionAcarreos
drr("SerieFolio") = resp.SerieFolio drr("SerieFolio") = resp.SerieFolio
dtt.Rows.Add(drr) dtt.Rows.Add(drr)
DescargarFactura(resp.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) 'DescargarFactura(resp.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)
GenerarPDFVenta(resp.CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False)
Archivo = String.Format("{0}PDF/ING/{1}.pdf", UsuarioActual.Empresa.Ruta.Replace("\", "/"), resp.SerieFolio) Archivo = String.Format("{0}PDF/ING/{1}.pdf", UsuarioActual.Empresa.Ruta.Replace("\", "/"), resp.SerieFolio)
If File.Exists(Archivo) Then If File.Exists(Archivo) Then
archiveZip.CreateEntryFromFile(Archivo, resp.SerieFolio & ".pdf") archiveZip.CreateEntryFromFile(Archivo, resp.SerieFolio & ".pdf")

View File

@@ -4376,7 +4376,9 @@
</b> </b>
</td> </td>
<td><b> <td><b>
<asp:Label ID="LblUtilidadPorcentaje" runat="server" ClientIDMode="Static" Text="0.00"></asp:Label></b></td> <asp:Label ID="LblUtilidadPorcentaje" runat="server" ClientIDMode="Static" Text="0.00"></asp:Label></b>
&nbsp
<asp:Label ID="LblPrecioCompra" runat="server" ClientIDMode="Static" Text="0.00"></asp:Label></td>
</tr> </tr>
<tr> <tr>
<td></td> <td></td>

View File

@@ -13524,7 +13524,7 @@ Partial Class Ventas
CargaNCDT(factura.CveVentaPadre, DdlTipoComprobante.SelectedValue, factura.Total, NuevaFactura:=NuevaFactura, ObjVentas:=ObjVentas) CargaNCDT(factura.CveVentaPadre, DdlTipoComprobante.SelectedValue, factura.Total, NuevaFactura:=NuevaFactura, ObjVentas:=ObjVentas)
End If End If
Dim EsatusAlmacen As Integer = If(RBLTipoVenta.SelectedValue = "5" AndAlso EsVentaMedica AndAlso DdlTipoComprobante.SelectedValue = "Ped", 1, 0) ', EstatusAlmacen:=EsatusAlmacen Dim EsatusAlmacen As Integer = If(RBLTipoVenta.SelectedValue.Contiene("5", "6") AndAlso EsVentaMedica AndAlso DdlTipoComprobante.SelectedValue = "Ped", 1, 0) ', EstatusAlmacen:=EsatusAlmacen
'Se agregan los PS 'Se agregan los PS
For Each Row As DataRow In TmpDTDetalle.Rows For Each Row As DataRow In TmpDTDetalle.Rows
If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("CveUM").ToString().ToEntero(), If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("CveUM").ToString().ToEntero(),
@@ -23977,6 +23977,7 @@ Partial Class Ventas
Dim PrecioCompra = ObjPS.GetUltimoPrecioCompra(UsuarioActual.CveEmpresa, GvRow.DataKey("CvePS").ToEntero()) Dim PrecioCompra = ObjPS.GetUltimoPrecioCompra(UsuarioActual.CveEmpresa, GvRow.DataKey("CvePS").ToEntero())
If PrecioCompra > 0 Then If PrecioCompra > 0 Then
HdnTotalCompra.Value = (PrecioCompra * GvRow.DataKey("Cantidad").ToDouble() * 1.16).ToString() HdnTotalCompra.Value = (PrecioCompra * GvRow.DataKey("Cantidad").ToDouble() * 1.16).ToString()
LblPrecioCompra.Text = $"PU Compra: {(PrecioCompra * 1.16).FormatoNumero(2)}"
End If End If
End Using End Using
@@ -36390,7 +36391,7 @@ Partial Class Ventas
Select Case RBLTipoVenta.SelectedValue Select Case RBLTipoVenta.SelectedValue
Case "1", "5" '1 Fuera de linea || 5 Consignación - Uso material Case "1", "5", "6" '1 Fuera de linea || 5 Consignación - Uso material || A-Vista - Material Utilizado
ChkRequiereTecnicoModal.Checked = True ChkRequiereTecnicoModal.Checked = True
ChkRequiereTecnicoModal.Enabled = True ChkRequiereTecnicoModal.Enabled = True
DvModalRequiereOSFecha.Visible = True DvModalRequiereOSFecha.Visible = True