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

OI Temas, Cat Checadores

Browse Source
This commit is contained in:
rakcsle
2024-03-21 16:19:34 -07:00
parent ac5b03218d
commit 343f60d14e
15 changed files with 479 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsPaginas.vb
View File

@@ -10609,7 +10609,7 @@ Public Class ClsPaginas
PaginaDict.Add("/RH/RepDocumentacionVencida.aspx".ToUpper(), 412)
PaginaDict.Add("/RH/CatSubProyectosZonas.aspx".ToUpper(), 421)
PaginaDict.Add("/RH/RepVacaciones.aspx".ToUpper(), 422)
PaginaDict.Add("/RH/CatChecadorTipo.aspx".ToUpper(), 427)
'PaginaDict.Add("/RH/CatChecadorTipo.aspx".ToUpper(), 427)
PaginaDict.Add("/RH/CatChecadorHorarios.aspx".ToUpper(), 428)
PaginaDict.Add("/RH/RepChecadorPreAsistencia.aspx".ToUpper(), 628)
PaginaDict.Add("/RH/CatCaptaciones.aspx".ToUpper(), 629)

38
App_Code/ClsRH.vb
View File

@@ -7442,44 +7442,6 @@ Public Class ClsRH
Return Retorno
End Function
Public Function AddRemoveChecadoresSubProyectos(CveChecador As Integer, CveSubProyecto As Integer, CveUsuario As Integer, Agreagar As Boolean) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_RH_ChecadorSubProyectosAddRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveChecador", SqlDbType.Int).Value = CveChecador
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Agreagar", SqlDbType.Bit).Value = Agreagar
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al agregar el sub proyecto", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
Public Function GetChecadoresSubProyectos(CveChecador As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_RH_ChecadorSubProyectosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveChecador", SqlDbType.Int).Value = CveChecador
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obteger los sub proyecto", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
#Region " A C T I V I D A D E S"

3
Compras/Compras.aspx
View File

@@ -1202,7 +1202,8 @@
<asp:UpdatePanel ID="UpInv" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvInv" runat="server" DataKeyNames="Total,PU,Cantidad,CvePS" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall mysmallbtn" Visible="false">
<asp:GridView ID="GvInv" runat="server" DataKeyNames="Total,PU,Cantidad,CvePS,PUProntoPago,TotalProntoPago" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no hay registros."
ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall mysmallbtn" Visible="false">
<Columns>
<asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
<HeaderTemplate>

83
Compras/Compras.aspx.vb
View File

@@ -1117,6 +1117,49 @@ Partial Class Compras_Compras
End Set
End Property
''' <summary>
''' Descuento por pronto pago proveedor
''' </summary>
''' <returns>Porcentaje de descuento de proveedor</returns>
Private Property PorcentajeProntoPago As Decimal
Get
If ViewState("PorcentajeProntoPago") Is Nothing Then
ViewState("PorcentajeProntoPago") = 0D
End If
Return ViewState("PorcentajeProntoPago").ToString.ToDecimal
End Get
Set(value As Decimal)
ViewState("PorcentajeProntoPago") = value
End Set
End Property
Private Property ImporteRemNC As Decimal
Get
If ViewState("ImporteRemNC") Is Nothing Then
ViewState("ImporteRemNC") = 0D
End If
Return ViewState("ImporteRemNC").ToString.ToDecimal
End Get
Set(value As Decimal)
ViewState("ImporteRemNC") = value
End Set
End Property
Private Property ImporteRemNCProntoPago As Decimal
Get
If ViewState("ImporteRemNCProntoPago") Is Nothing Then
ViewState("ImporteRemNCProntoPago") = 0D
End If
Return ViewState("ImporteRemNCProntoPago").ToString.ToDecimal
End Get
Set(value As Decimal)
ViewState("ImporteRemNCProntoPago") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
@@ -3280,6 +3323,8 @@ Partial Class Compras_Compras
Private Sub CargaProveedor(CveProveedor As Integer, RFC As String, Optional RecargaCombo As Boolean = True)
PorcentajeProntoPago = 0D
Dim ObjProveedor As New ClsCompProveedores()
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", RFC, "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
@@ -3435,6 +3480,10 @@ Partial Class Compras_Compras
End If
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
PorcentajeProntoPago = ObjProveedor.PorcentajeProntoPago
End If
Else
Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
End If
@@ -9999,6 +10048,8 @@ Partial Class Compras_Compras
TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer))
TmpDT.Columns.Add("TemporadaCuadro", GetType(String))
TmpDT.Columns.Add("PUProntoPago", GetType(Decimal))
TmpDT.Columns.Add("TotalProntoPago", GetType(Decimal))
TmpDTOriginal = New DataTable
TmpDTOriginal.Columns.Add("Consec", GetType(Integer))
@@ -10108,6 +10159,8 @@ Partial Class Compras_Compras
TmpDTOriginal.Columns.Add("CveContratoDetalle", GetType(Double))
TmpDTOriginal.Columns.Add("CveCultivoCuadroDetalle", GetType(Double))
TmpDTOriginal.Columns.Add("TemporadaCuadro", GetType(String))
TmpDTOriginal.Columns.Add("PUProntoPago", GetType(Decimal))
TmpDTOriginal.Columns.Add("TotalProntoPago", GetType(Decimal))
End Sub
@@ -10437,6 +10490,17 @@ Partial Class Compras_Compras
e.Row.FCTextBox("TxtDividir").Visible = False
End If
End If
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
e.Row.Cells(4).Text = e.Row.DataKey("PUProtoPago").ToDecimal.ToString("###,###,###.00")
'If PorcentajeProntoPago > 0 Then
' e.Row.Cells(4).Text = e.Row.DataKey("PUProtoPago").ToDecimal - ()
'End If
End If
End If
'HEADER GvInv
@@ -14292,6 +14356,15 @@ Partial Class Compras_Compras
ElseIf Math.Abs(LbSubTotalOC2.Text.ToDecimal - (LbSubTotalOC1.Text.ToDecimal - LbAnticiposOC2.Text.ToDecimal)) < DiferenciaPermitida Then
LbSubTotalDif.Visible = False
Vinculacion()
Else
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
ImporteRemNC = (SubTotalCompra - SubTotalGV).RoundSQL(2)
ImporteRemNCProntoPago = (SubTotalCompra * PorcentajeProntoPago).RoundSQL(2)
Vinculacion()
Else
LbSubTotalDif.Visible = True
LbSubTotalDif.Text = (SubTotalCompra - SubTotalGV).FormatoNumero
@@ -14299,6 +14372,9 @@ Partial Class Compras_Compras
RegistraScript("CalculaTotalesOC();")
End If
End If
UpEstatus.Update()
End Sub
Protected Sub BtnVincularOCCompleta_Click(sender As Object, e As EventArgs)
@@ -16866,6 +16942,13 @@ Partial Class Compras_Compras
Dim Row As DataRow = Nothing
If Not TmpDT.Columns.Contains("PUProntoPago") Then
TmpDT.Columns.Add("PUProntoPago", GetType(Decimal))
End If
If Not TmpDT.Columns.Contains("TotalProntoPago") Then
TmpDT.Columns.Add("TotalProntoPago", GetType(Decimal))
End If
Row = TmpDT.NewRow()
Dim Retorno As Integer = 0
Dim CveContrato As Integer = -1

45
OI/Proyecto.aspx
View File

@@ -232,7 +232,7 @@
<ajax:ValidatorCalloutExtender ID="VCOPrio" runat="server" TargetControlID="RFVPrioridad" HighlightCssClass="vco" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-sm-6">
<div class="col-sm-4">
<div class="form-group form-md-line-input">
<asp:DropDownList ID="DdlTema" runat="server" CssClass="form-control select2me input-sm" DataValueField="CveRevision" DataTextField="Revision" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -242,6 +242,9 @@
<ajax:ValidatorCalloutExtender ID="VCERFVDdlTema" runat="server" TargetControlID="RFVDdlTema" HighlightCssClass="vco" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-sm-2">
<asp:LinkButton ID="LnkAddTtemaB" OnClick="LnkAddTtemaB_Click" runat="server" CssClass="btn btn-default" Style="margin-top: 15px;"><i class="fa fa-plus"></i></asp:LinkButton>
</div>
</div>
</div>
</asp:Panel>
@@ -258,11 +261,40 @@
</div>
</ContentTemplate>
</asp:UpdatePanel>
<script src="/Metronic/assets/global/plugins/dhtmlxgantt/dhtmlxgantt.js"></script>
<%--<script src="/Metronic/assets/global/plugins/GantJS/jsgantt.js" type="text/javascript"></script>--%>
<div id='<%= iddivAgregarTema %>' class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<asp:UpdatePanel ID="UpModalTema" class="modal-content " tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header">
<button type="button" class="close" onclick="closeModal()" aria-label="Close"><span aria-hidden="true">&times;</span> </button>
<h4 class="modal-title" style="text-align: left">
<asp:Literal ID="Literal2" runat="server">Agregar Tema</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtTema" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="1"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtTema" runat="server" ControlToValidate="TxtTema" Display="None" ErrorMessage="El campo <b>''Tema''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="VGMAddTemaTN"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Tema" AssociatedControlID="TxtTema"></asp:Label>
</div>
</div>
<div class="modal-footer">
<asp:LinkButton ID="BtnAgregarTema" OnClick="BtnAgregarTema_Click" CssClass="btn btn-primary" ValidationGroup="VGMAddTemaTN" runat="server">Agregar</asp:LinkButton>
<button id="BtnCerrarModalTema" onclick="closeModal()" class="btn btn-default">Cerrar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script src="/Metronic/assets/global/plugins/dhtmlxgantt/dhtmlxgantt.js"></script>
<script>
let RCveEvento =<%= RCveEvento %>;
@@ -576,5 +608,12 @@
CargaPickers();
}
</script>
<script type="text/javascript">
function closeModal() {
$('#divModalAgregartema').modal('hide');
}
</script>
</asp:Content>

45
OI/Proyecto.aspx.cs
View File

@@ -21,6 +21,7 @@ public partial class OI_Proyecto : ClsPaginas
public List<int> LCveUsuarioCCP { get { if (ViewState["LCveUsuarioCCP"] == null) { ViewState["LCveUsuarioCCP"] = new List<int>(); } return (List<int>)ViewState["LCveUsuarioCCP"]; } set { ViewState["LCveUsuarioCCP"] = value; } }
public List<int> LcveuserVisto { get { if (ViewState["LcveuserVisto"] == null) { ViewState["LcveuserVisto"] = new List<int>(); } return (List<int>)ViewState["LcveuserVisto"]; } set { ViewState["LcveuserVisto"] = value; } }
public const string iddivAgregarTema = "divModalAgregartema";
#endregion
protected void Page_Load(object sender, EventArgs e)
@@ -355,4 +356,48 @@ public partial class OI_Proyecto : ClsPaginas
UpModalProyecto.Update();
}
#region TEMAS
protected void LnkAddTtemaB_Click(object sender, EventArgs e)
{
RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarTema));
}
protected void BtnAgregarTema_Click(object sender, EventArgs e)
{
using (ClsOIEventos objoi = new ClsOIEventos())
{
if (objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{
Alert(string.Format("El Tema \"{0}\" fue agregado con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion);
RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTema));
TxtTema.Text = "";
set_GlobalDTOIRevision(UsuarioActual.CveEmpresa, objoi.DtResultados);
CargaTemas();
UpModalTema.Update();
UpModalProyecto.Update();
}
else { Alert("Ocurrió un error al agregar la revisión. Por favor vuelva a intentar.", ModExtensiones.TipoMensaje.MsgError); }
}
}
private void CargaTemas()
{
DdlTema.ClearSelection();
DdlTema.SelectedValue = null;
DdlTema.Items.Clear();
DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
DdlTema.DataBind();
DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1"));
}
#endregion
}

36
OI/RepProyectos.aspx
View File

@@ -178,7 +178,7 @@
<ajax:ValidatorCalloutExtender ID="VCOPrio" runat="server" TargetControlID="RFVPrioridad" HighlightCssClass="vco" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-sm-6">
<div class="col-sm-4">
<div class="form-group form-md-line-input">
<asp:DropDownList ID="DdlTema" runat="server" CssClass="form-control select2me input-sm" DataValueField="CveRevision" DataTextField="Revision" Width="100%">
@@ -193,6 +193,9 @@
</div>
</div>
<div class="col-sm-2">
<asp:LinkButton ID="LnkAddTtemaB" OnClick="LnkAddTtemaB_Click" runat="server" CssClass="btn btn-default" Style="margin-top: 15px;"><i class="fa fa-plus"></i></asp:LinkButton>
</div>
</div>
</div>
</asp:Panel>
@@ -208,6 +211,32 @@
</ContentTemplate>
</asp:UpdatePanel>
<div id='<%= iddivAgregarTema %>' class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<asp:UpdatePanel ID="UpModalTema" class="modal-content " tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header">
<button type="button" class="close" onclick="closeModal()" aria-label="Close"><span aria-hidden="true">&times;</span> </button>
<h4 class="modal-title" style="text-align: left">
<asp:Literal ID="Literal2" runat="server">Agregar Tema</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtTema" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="1"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtTema" runat="server" ControlToValidate="TxtTema" Display="None" ErrorMessage="El campo <b>''Tema''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="VGMAddTemaTN"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Tema" AssociatedControlID="TxtTema"></asp:Label>
</div>
</div>
<div class="modal-footer">
<asp:LinkButton ID="BtnAgregarTema" OnClick="BtnAgregarTema_Click" CssClass="btn btn-primary" ValidationGroup="VGMAddTemaTN" runat="server">Agregar</asp:LinkButton>
<button id="BtnCerrarModalTema" onclick="closeModal()" class="btn btn-default">Cerrar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script>
@@ -256,5 +285,10 @@
CargaPickers();
}
</script>
<script type="text/javascript">
function closeModal() {
$('#divModalAgregartema').modal('hide');
}
</script>
</asp:Content>

55
OI/RepProyectos.aspx.cs
View File

@@ -10,6 +10,7 @@ public partial class OI_RepProyectos : ClsPaginas
{
#region Propiedades
public const string iddivAgregarProyecto = "iddivAgregarProyecto";
public const string iddivAgregarTema = "divModalAgregartema";
#endregion
protected void Page_Load(object sender, EventArgs e)
{
@@ -21,9 +22,11 @@ public partial class OI_RepProyectos : ClsPaginas
DdlPara.Items.Insert(0, new ListItem("Seleccione uno", "-1"));
DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
DdlTema.DataBind();
DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1"));
CargaTemas();
//DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
//DdlTema.DataBind();
//DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1"));
cargar();
}
}
@@ -196,4 +199,50 @@ public partial class OI_RepProyectos : ClsPaginas
}
}
#region TEMAS
protected void LnkAddTtemaB_Click(object sender, EventArgs e)
{
RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarTema));
}
protected void BtnAgregarTema_Click(object sender, EventArgs e)
{
using (ClsOIEventos objoi = new ClsOIEventos())
{
if (objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{
Alert(string.Format("El Tema \"{0}\" fue agregado con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion);
RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTema));
TxtTema.Text = "";
set_GlobalDTOIRevision(UsuarioActual.CveEmpresa, objoi.DtResultados);
CargaTemas();
UpModalTema.Update();
UpModalProyecto.Update();
}
else { Alert("Ocurrió un error al agregar la revisión. Por favor vuelva a intentar.", ModExtensiones.TipoMensaje.MsgError); }
}
}
private void CargaTemas()
{
DdlTema.ClearSelection();
DdlTema.SelectedValue = null;
DdlTema.Items.Clear();
DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
DdlTema.DataBind();
DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1"));
}
#endregion
}

1
OI/TareaDetalle.aspx
View File

@@ -655,6 +655,7 @@
</asp:UpdatePanel>
</div>
</div>
<div id='<%= iddivAgregarTema %>' class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<asp:UpdatePanel ID="UpdatePanel1" class="modal-content " tabindex="-1" runat="server" UpdateMode="Conditional">

41
RH/CatChecadores.aspx
View File

@@ -23,7 +23,8 @@
<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="CveChecador,Checador,CveModelo,CveSubProyecto,SubProyecto,CveUsuario,Estatus,FechaIng,IPLocal,Puerto" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveChecador,Checador,CveModelo,CveSubProyecto,SubProyecto,CveUsuario,Estatus,FechaIng,IPLocal,Puerto"
EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Checador" DataField="Checador" />
<asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" />
@@ -53,28 +54,34 @@
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Checadores</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtChecador" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtChecador" runat="server" ControlToValidate="TxtChecador" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Checador''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="TxtChecador">Checador:</label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="DdlSubProyecto">Subproyecto:</label>
<asp:DropDownList ID="DdlSubProyecto" Width="100%" runat="server" AppendDataBoundItems="true" DataValueField="CveSubProyecto" DataTextField="SubProyecto" ValidationGroup="GrpGuardar" CssClass="select2me">
<asp:DropDownList ID="DdlSubProyecto" Width="100%" runat="server" AppendDataBoundItems="true" DataValueField="CveSubProyecto" DataTextField="SubProyecto" ValidationGroup="GrpGuardar" CssClass="form-control select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Proyecto''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCODdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="DdlSubProyecto"><asp:label runat="server" ID="LblSubProyecto" for="DdlSubProyecto">Subproyecto:</asp:label>:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="DdlModelo">Modelo:</label>
<asp:DropDownList ID="DdlModelo" Width="100%" runat="server" AppendDataBoundItems="true" ValidationGroup="GrpGuardar" CssClass="select2me">
<asp:DropDownList ID="DdlModelo" Width="100%" runat="server" AppendDataBoundItems="true" ValidationGroup="GrpGuardar" CssClass="form-control select2me">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Text="zkteco" Value="1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlModelo" runat="server" ControlToValidate="DdlModelo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Modelo''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceDdlModelo" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModelo" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="DdlModelo">Modelo:</label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
@@ -97,32 +104,8 @@
<asp:CheckBox runat="server" ID="ChkEstatus" CssClass="make-switchsd" data-size="small" Text=" " />
</div>
</br>
</br>
<div class="row">
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvChecadorSubProyectos" runat="server" AutoGenerateColumns="False" OnRowDataBound="GvChecadorSubProyectos_RowDataBound" Width="90%"
DataKeyNames="CveSubProyecto,CveChecador"
EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
<Columns>
<asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" />
<asp:BoundField HeaderText="Usuario" DataField="Usuario" />
<asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:d}" />
<asp:TemplateField>
<ItemTemplate>
<asp:CheckBox ID="Chk" runat="server" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
</div>
</div>
</br>
<div class="modal-footer">

54
RH/CatChecadores.aspx.cs
View File

@@ -26,8 +26,9 @@ public partial class RH_CatChecadores : ClsPaginas
{
if (!IsPostBack)
{
CargaDatos();
CargaSubProyectos();
CargaDatos();
}
}
@@ -38,14 +39,19 @@ public partial class RH_CatChecadores : ClsPaginas
{
GvDatos.DataSource = ObjRH.DtResultados;
}
ObjRH.Dispose();
GvDatos.DataBind();
GvDatos.HeaderRow.Cells[1].Text = LblSubProyecto.Text;
}
private void CargaSubProyectos()
{
DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, CveEmpresa: UsuarioActual.CveEmpresa);
DdlSubProyecto.DataBind();
CargarCentrosDeCosto(null, DdlSubProyecto,null, LblSubProyecto);
}
protected void BtnAgregarChecador_Click(object sender, EventArgs e)
@@ -58,10 +64,6 @@ public partial class RH_CatChecadores : ClsPaginas
BtnChecadorAgregar.Text = "Agregar";
divChkEstatus.Visible = false;
GvChecadorSubProyectos.DataSource = null;
GvChecadorSubProyectos.DataBind();
GvChecadorSubProyectos.Visible = false;
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
}
@@ -79,38 +81,11 @@ public partial class RH_CatChecadores : ClsPaginas
}
else
{
// bool errorProceso = false;
//ObjRH.IniciaTransacSQL();
if (ObjRH.UpdateChecadores(CveChecador,TxtChecador.Text,DdlSubProyecto.SelectedValue.ToEntero(),TxtIPLocal.Text,TxtPuerto.Text,Estatus: ChkEstatus.Checked, CveModelo: DdlModelo.SelectedValue.ToEntero()))
{
Alert("Checador actualizado correctamente");
}
foreach(GridViewRow GvRow in GvChecadorSubProyectos.Rows)
{
if(GvRow.RowType == DataControlRowType.DataRow)
{
CheckBox Chk = GvRow.FCCheckBox("Chk");
if (!ObjRH.AddRemoveChecadoresSubProyectos(CveChecador, GvRow.DataKey("CveSubProyecto").ToEntero(), UsuarioActual.CveUsuario, Chk.Checked))
{
//errorProceso = true;
Alert("Ocurrió un error.",ModExtensiones.TipoMensaje.MsgError);
break;
}
}
}
//if (errorProceso)
//{
// ObjRH.RollBack();
//}
//else
//{
// ObjRH.Commit();
//}
}
ObjRH.Dispose();
CargaDatos();
@@ -133,21 +108,6 @@ public partial class RH_CatChecadores : ClsPaginas
ChkEstatus.Checked = GvRow.DataKey("Estatus") == "Activo";
divChkEstatus.Visible = true;
GvChecadorSubProyectos.Visible = true;
ClsRH objRH = new ClsRH();
if (objRH.GetChecadoresSubProyectos(CveChecador, UsuarioActual.CveEmpresa))
{
GvChecadorSubProyectos.DataSource = objRH.DtResultados;
}
GvChecadorSubProyectos.DataBind();
objRH.Dispose();
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
}

11
RH/RepChecadorPreAsistencia.aspx
View File

@@ -102,7 +102,7 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GVRegDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros"
<asp:GridView ID="GVRegDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" DataKeyNames="CvePersonal,NombreCompleto"
CssClass="ADSCROLLER2 table table-striped table-advance table-hover Widthall" data-rows="1" data-cols="3" data-heightmenos="100" data-heightfijo="600" Style="text-align: center;" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Codigo" ItemStyle-HorizontalAlign="Left" >
@@ -330,6 +330,8 @@
</Columns>
</asp:GridView>
</td>
</tr>
</table>
@@ -337,8 +339,8 @@
</div>
<div class="modal-footer">
<div class="row">
<asp:Button ID="BtnEstusAsistenciaModal" runat="server" class="btn btn-success" Text="Aceptar" ValidationGroup="GrpAsistencia" />
<asp:Button ID="BtnGuardar" Visible="true" runat="server" Text="Guardar" class="btn btn-primary" OnClick="BtnGuardar_Click" />
<asp:Button ID="BtnEstusAsistenciaModal" Visible="false" runat="server" class="btn btn-success" Text="Aceptar" />
<button id="Button4" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
</div>
@@ -383,10 +385,7 @@
<ajax:ValidatorCalloutExtender ID="RfvcRfvTxtFechaModal" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaModal" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="CVCCVTxtFechaModal" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaModal" Width="350px"></ajax:ValidatorCalloutExtender>
</td></tr>
</table>
</ContentTemplate>

76
RH/RepChecadorPreAsistencia.aspx.vb
View File

@@ -126,6 +126,33 @@ Partial Class RH_RepChecadorPreAsistencia
End Set
End Property
Private Property CvePersonalSeleccionado As Integer
Get
If ViewState("CvePersonalSeleccionado") Is Nothing Then
ViewState("CvePersonalSeleccionado") = -1
End If
Return ViewState("CvePersonalSeleccionado").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CvePersonalSeleccionado") = value
End Set
End Property
Public Property FechaSeleccionada As Date
Get
If ViewState("FechaSeleccionada") Is Nothing Then
ViewState("FechaSeleccionada") = MinFecha
End If
Return ViewState("FechaSeleccionada").ToString.ToDate
End Get
Set(value As Date)
ViewState("FechaSeleccionada") = value
End Set
End Property
#End Region
Private Sub RH_RepChecadorIncidencias_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -408,20 +435,20 @@ Partial Class RH_RepChecadorPreAsistencia
DTAsistenciasInasistencias = objRH.DtResultados
End If
If objRH.ChecadorPreAsistenciaRegistrosAsistenciasGet(CveTipoPeriodo, FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.Empresa.CveEmpresa) Then
DTAsistenciasInasistenciasReg = objRH.DtResultados
'If objRH.ChecadorPreAsistenciaRegistrosAsistenciasGet(CveTipoPeriodo, FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.Empresa.CveEmpresa) Then
' DTAsistenciasInasistenciasReg = objRH.DtResultados
If DTAsistenciasInasistenciasReg.Rows.Count > 0 Then
BtnAgregar.Visible = False
BtnEstusAsistenciaModal.Visible = False
DdlAsistenciaInacistencia.Enabled = False
Else
BtnAgregar.Visible = True
BtnEstusAsistenciaModal.Visible = True
DdlAsistenciaInacistencia.Enabled = True
End If
UpAgregar.Update()
End If
' If DTAsistenciasInasistenciasReg.Rows.Count > 0 Then
' BtnAgregar.Visible = False
' BtnEstusAsistenciaModal.Visible = False
' 'DdlAsistenciaInacistencia.Enabled = False
' Else
' BtnAgregar.Visible = True
' BtnEstusAsistenciaModal.Visible = True
' 'DdlAsistenciaInacistencia.Enabled = True
' End If
' UpAgregar.Update()
'End If
objRH.Dispose()
@@ -1499,7 +1526,7 @@ Partial Class RH_RepChecadorPreAsistencia
If arrayComands.Length > 1 Then Filtro = arrayComands(1) Else Filtro = ""
lnkLink.CommandArgument = lnkLink.Text
lnkLink.CommandArgument = $"{lnkLink.Text}|{e.Row.DataKey("CvePersonal")}|{e.Row.DataKey("NombreCompleto")}"
If Instruccion = "-" Then
lnkLink.Text = "<i class='fa fa-check-square' aria-hidden='true'></i>"
@@ -1620,6 +1647,8 @@ Partial Class RH_RepChecadorPreAsistencia
Public Sub DetalleDia_Click(sender As Object, e As EventArgs)
CvePersonalSeleccionado = -1
Dim lnkLinkSender As LinkButton = DirectCast(sender, LinkButton)
Dim DTDatos As New DataTable
Dim DTTipoAsistenciaInasistencia As DataTable
@@ -1640,6 +1669,10 @@ Partial Class RH_RepChecadorPreAsistencia
objRH.Dispose()
Instruccion = arrayComands(0)
CvePersonalSeleccionado = arrayComands(2).ToEntero
LtlAsistenciaHorariosModal.Text = arrayComands(3)
DTTipoAsistenciaInasistencia = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros(" TipoCorto = '" & Instruccion & "' ")
If DTTipoAsistenciaInasistencia.Rows.Count > 0 Then
@@ -1662,6 +1695,7 @@ Partial Class RH_RepChecadorPreAsistencia
DTDatos = DtResultados.FiltraParametros(Filtro)
lblModalFecha.Text = DTDatos(0)("Fecha").ToString().ToDate.ToString("dd/MM/yyyy")
FechaSeleccionada = DTDatos(0)("Fecha").ToString().ToDate
lnkModalImg.Text = ""
@@ -1949,4 +1983,18 @@ Partial Class RH_RepChecadorPreAsistencia
End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
If DdlAsistenciaInacistencia.SelectedValue.ToEntero > 0 Then
Dim ObjPersonal As New ClsRH
If ObjPersonal.AddAsistencia(CvePersonalSeleccionado, -1, DdlSubProyecto.SelectedValue.ToEntero, FechaSeleccionada,
DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "C") Then
Alert("Registro Actualziado Correctamente.")
End If
ObjPersonal.Dispose()
End If
End Sub
End Class

26
UserControl/OI/AddTema.ascx Normal file
View File

@@ -0,0 +1,26 @@
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddTema.ascx.vb" Inherits="UserControl_AddProcedimiento" %>
<div id="DVAgregarTema" style="margin-top:-30px!important">
<div class="modal-dialog">
<asp:UpdatePanel ID="UpModalAddTema" class="modal-content " tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span> </button>
<h4 class="modal-title" style="text-align: left">
<asp:Literal ID="Literal2" runat="server">Agregar Tema</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtTema" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="1"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtTema" runat="server" ControlToValidate="TxtTema" Display="None" ErrorMessage="El campo <b>''Tema''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="VGMAddTemaTN"></asp:RequiredFieldValidator>
<asp:Label runat="server" Text="Tema" AssociatedControlID="TxtTema"></asp:Label>
</div>
</div>
<div class="modal-footer">
<asp:LinkButton ID="BtnAgregarTema" OnClick="BtnAgregarTema_Click" CssClass="btn btn-primary" ValidationGroup="VGMAddTemaTN" runat="server">Agregar</asp:LinkButton>
<button data-dismiss="modal" class="btn btn-danger">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>

96
UserControl/OI/AddTema.ascx.vb Normal file
View File

@@ -0,0 +1,96 @@
Imports Extensiones
Partial Class UserControl_AddProcedimiento
Inherits System.Web.UI.UserControl
Public ReadOnly Property UsuarioActual As Usuario
Get
If Context.Session("UsuarioSIG") Is Nothing Then
Return Nothing
Else
Return DirectCast(Context.Session("UsuarioSIG"), Usuario)
End If
End Get
End Property
Public Property CveProcedimiento As Integer
Get
If ViewState("CveProcedimiento") Is Nothing Then
ViewState("CveProcedimiento") = -1
End If
Return ViewState("CveProcedimiento").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveProcedimiento") = value
End Set
End Property
Private Sub UserControl_AddProcedimiento_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
End If
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ProcesoOK = False
Dim ObjVentas As New ClsVentas
Dim CveProcedimientoNuevo As Integer = -1
If CveProcedimiento > 0 Then
If ObjVentas.UpdateProcedimiento(CveProcedimiento, TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
'Alert($"Procedimiento Actualizado Correctamente.")
ProcesoOK = True
End If
Else
CveProcedimientoNuevo = ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CveProcedimientoNuevo > 0 Then
ProcesoOK = True
'TabProductos.Visible = True
'TabVentas.Visible = True
'LnkAgregarProducto.Visible = True
'UpDatos.Update()
'Alert($"Procedimiento Guardado Correctamente.")
End If
End If
ObjVentas.Dispose()
If ProcesoOK Then
ClsPaginas.Alert($"Procedimiento {If(CveProcedimiento > 0, "Actualizado", "Guardado")} Correctamente.")
Dim AppNombre As String = $"GlobalDTProcedimientos-{UsuarioActual.CveEmpresa}"
Application(AppNombre) = Nothing
RegistraScript($"fncRegargaProcedimientos({CveProcedimientoNuevo});")
RegistraScript("$('#BtnCancelarProcedimiento').click();")
End If
End Sub
Public Sub LimpiarControles()
TxtProcedimiento.Text = ""
ChkEstatus.Checked = True
UpModal.Update()
End Sub
Protected Sub BtnAgregarTema_Click(sender As Object, e As EventArgs)
Using objoi As New ClsOIEventos()
If objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Alert(String.Format("El Tema ""{0}"" fue agregado con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion)
RegistraScript(String.Format("$('#{0}').modal('hide')", iddivAgregarTema))
TxtTema.Text = ""
GlobalDTOIRevision(UsuarioActual.CveEmpresa, objoi.DtResultados)
CargaTemas()
UpContenido.Update()
Else
Alert("Ocurrió un error al agregar la revisión. Por favor vuelva a intentar.", ModExtensiones.TipoMensaje.MsgError)
End If
End Using
End Sub
End Class