rh
This commit is contained in:
rakcsle
106
RH/CatRegistroPatronal.aspx
Normal file
106
RH/CatRegistroPatronal.aspx
Normal file
@@ -0,0 +1,106 @@
|
||||
<%@ Page Title="RH - Catálogo Registro Patronal" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatRegistroPatronal.aspx.vb" Inherits="RH_CatRegistroPatronal" %>
|
||||
|
||||
<%@ 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 Registro Patronal
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
<asp:UpdatePanel runat="server" ID="UpAgregar">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton runat="server" ID="LnkAgregarRegistroPatronal" data-toggle="tooltip" data-placement="left" title="Agregar Registro Patronal" Text="<i class='fa fa-plus'></i> Agregar Registro Patronal"></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="row">
|
||||
<div class="col-md-12">
|
||||
<br />
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="800px"
|
||||
DataKeyNames="CveRegistroPatronal,RegistroPatronal,Estatus,CveEmpresa,FechaIng,CveUsuario" EmptyDataText="No se encontraron Registros Patronales" ToolTip="Listado de Registros Patronales"
|
||||
CssClass="table table-striped table-advance table-hover" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:BoundField HeaderText="Registro Patronal" DataField="RegistroPatronal" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="Estatus" DataField="EstatusStr" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="Fecha" DataField="FechaIng" ItemStyle-HorizontalAlign="Center"/>
|
||||
<asp:BoundField HeaderText="Usuario" DataField="Usuario" ItemStyle-HorizontalAlign="Left" />
|
||||
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="ImgE" OnClick="Edit_ClickRegistroPAtronal" runat="server" AlternateText="Editar" CausesValidation="False"
|
||||
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="80px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" OnClick="Remove_ClickRegistroPatronal" runat="server" AlternateText="Eliminar" CausesValidation="False" 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 id="DVModalRegistroPatronal" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalRegistroPAtronal" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="LtlTituloModalAgregaRegsitroPatronal" runat="server">Agregar Registro Patronal</asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtRegistroPatronal" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtRegistroPatronal" runat="server" ControlToValidate="TxtRegistroPatronal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Registro Patronal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRegistroPatronal"></asp:RequiredFieldValidator>
|
||||
<label for="DepartamentoNewTxt">Registro Patronal:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
<br ID="saltoDeLinea" runat="server"/>
|
||||
<div ID="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
|
||||
<label for="ChkModalEstatus">Activo:</label>
|
||||
<asp:CheckBox ID="ChkModalEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
|
||||
<i></i>
|
||||
</div>
|
||||
<br />
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnModalAgregarRegistroPatronal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpRegistroPatronal" />
|
||||
<button id="Button3" 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>
|
||||
154
RH/CatRegistroPatronal.aspx.vb
Normal file
154
RH/CatRegistroPatronal.aspx.vb
Normal file
@@ -0,0 +1,154 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class RH_CatRegistroPatronal
|
||||
Inherits ClsPaginas
|
||||
|
||||
Private Property CveRegistroPatronal() As Integer
|
||||
Get
|
||||
If ViewState("CveRegistroPatronal") Is Nothing Then
|
||||
ViewState("CveRegistroPatronal") = -1
|
||||
End If
|
||||
Return ViewState("CveRegistroPatronal").ToString.ToEntero
|
||||
End Get
|
||||
Set
|
||||
ViewState("CveRegistroPatronal") = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Protected Sub CatRegistroPatronal_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
|
||||
CargaDatos()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub CargaDatos()
|
||||
|
||||
Dim ObjRH As New ClsRH
|
||||
|
||||
If ObjRH.GetRegistrosPatronales(-1, UsuarioActual.CveEmpresa, -1) Then
|
||||
GvDatos.DataSource = ObjRH.DtResultados
|
||||
|
||||
Else
|
||||
GvDatos.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjRH.Dispose()
|
||||
GvDatos.DataBind()
|
||||
UpDatos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub BtnAgregarPuestoModal_Click(sender As Object, e As EventArgs) Handles BtnModalAgregarRegistroPatronal.Click
|
||||
|
||||
Dim ObjRH As New ClsRH
|
||||
Dim ErrorProceso As Boolean = True
|
||||
|
||||
If CveRegistroPatronal = -1 Then
|
||||
If ObjRH.AddRegistrosPatronales(TxtRegistroPatronal.Text, ChkModalEstatus.Checked, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||
Alert("Registro Patronal correctamente.")
|
||||
ErrorProceso = False
|
||||
End If
|
||||
Else
|
||||
If ObjRH.UpdateRegistrosPatronales(CveRegistroPatronal, TxtRegistroPatronal.Text, ChkModalEstatus.Checked, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||
Alert("Registro Patronal actualizado correctamente.")
|
||||
ErrorProceso = False
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
CveRegistroPatronal = -1
|
||||
ObjRH.Dispose()
|
||||
|
||||
|
||||
If Not ErrorProceso Then
|
||||
CargaDatos()
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DVModalRegistroPatronal"))
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub Remove_ClickRegistroPatronal(sender As Object, e As EventArgs)
|
||||
|
||||
Dim Errorelimiancion As Boolean = True
|
||||
Dim objRH As New ClsRH
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
Dim CveRegistroPatronalEliminar As Integer = GvRow.DataKey("CveRegistroPatronal").ToEntero
|
||||
|
||||
If objRH.RemoveRegistrosPatronales(CveRegistroPatronalEliminar, UsuarioActual.CveEmpresa) Then
|
||||
Alert("Registro Patronal Eliminado correctamente.")
|
||||
Errorelimiancion = False
|
||||
End If
|
||||
|
||||
objRH.Dispose()
|
||||
|
||||
If Not Errorelimiancion Then
|
||||
CargaDatos()
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub Edit_ClickRegistroPAtronal(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
|
||||
|
||||
CveRegistroPatronal = GvRow.DataKey("CveRegistroPatronal").ToEntero
|
||||
TxtRegistroPatronal.Text = GvRow.DataKey("RegistroPatronal")
|
||||
|
||||
LtlTituloModalAgregaRegsitroPatronal.Text = "Editar Registro Patronal"
|
||||
|
||||
|
||||
ChkModalEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
|
||||
|
||||
BtnModalAgregarRegistroPatronal.Text = "Actualizar"
|
||||
|
||||
UpModalRegistroPAtronal.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "DVModalRegistroPatronal"))
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkAgregarRegistroPatronal_Click(sender As Object, e As EventArgs) Handles LnkAgregarRegistroPatronal.Click
|
||||
|
||||
|
||||
CveRegistroPatronal = -1
|
||||
TxtRegistroPatronal.Text = ""
|
||||
LtlTituloModalAgregaRegsitroPatronal.Text = "Agregar Registro Patronal"
|
||||
ChkModalEstatus.Checked = True
|
||||
|
||||
|
||||
BtnModalAgregarRegistroPatronal.Text = "Agregar"
|
||||
|
||||
'Combos
|
||||
|
||||
UpModalRegistroPAtronal.Update()
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "DVModalRegistroPatronal"))
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
@@ -1457,6 +1457,15 @@
|
||||
<asp:RequiredFieldValidator ID="RFVRiesgoPuesto" runat="server" ControlToValidate="DdlRiesgoPuesto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Riesgo Puesto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlRegistroPatronal" runat="server" Width="100%" DataTextField="RegistroPatronal" CssClass="form-control input-sm select2me" DataValueField="CveRegistroPatronal" >
|
||||
|
||||
</asp:DropDownList>
|
||||
<asp:Label runat="server" AssociatedControlID="DdlRegistroPatronal" Text="Registro Patronal:"></asp:Label>
|
||||
<%--<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="DdlRiesgoPuesto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Riesgo Puesto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtNumeroSS" runat="server" MaxLength="11"></asp:TextBox>
|
||||
<asp:Label runat="server" AssociatedControlID="TxtNumeroSS" Text="Número de Seguridad Social:"></asp:Label>
|
||||
|
||||
@@ -856,6 +856,7 @@ Partial Class RH_Personal
|
||||
CargaCombosBuzon()
|
||||
CargaPermisosReemplazos()
|
||||
CargaPaises()
|
||||
CargaRegistroPatronal()
|
||||
|
||||
If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero() > 0 Then
|
||||
ViewState("CvePersonal") = Request("CvePersonal")
|
||||
@@ -1354,6 +1355,24 @@ Partial Class RH_Personal
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaRegistroPatronal()
|
||||
|
||||
Dim ObjRH As New ClsRH
|
||||
|
||||
If ObjRH.GetRegistrosPatronales(-1, UsuarioActual.CveEmpresa, 1) Then
|
||||
DdlRegistroPatronal.DataSource = ObjRH.DtResultados
|
||||
Else
|
||||
DdlRegistroPatronal.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjRH.Dispose()
|
||||
|
||||
DdlRegistroPatronal.DataBind()
|
||||
DdlRegistroPatronal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Asistencias"
|
||||
@@ -1654,7 +1673,7 @@ Partial Class RH_Personal
|
||||
DdlPais.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CvePais").ToString)
|
||||
|
||||
|
||||
|
||||
DdlRegistroPatronal.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CveRegistroPatronal").ToString)
|
||||
|
||||
'Carga Incidencias
|
||||
BtnConsultarAsistencia_Click(Me, New System.EventArgs)
|
||||
@@ -1828,7 +1847,8 @@ Partial Class RH_Personal
|
||||
DdlClienteAsignado.SelectedValue.ToEntero(), DdlSubProyectoAsignado.SelectedValue.ToEntero(), URL,
|
||||
DdlSupervisor.SelectedValue.ToEntero(), TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero(), DdlViaticos.SelectedValue.ToEntero(), DdlViaticos.SelectedItem.Text,
|
||||
DdlPrestamos.SelectedValue.ToEntero(), DdlPrestamos.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
|
||||
TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero()) Then
|
||||
TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(),
|
||||
Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero()) Then
|
||||
|
||||
If Archivo.Exists Then
|
||||
|
||||
@@ -1903,7 +1923,7 @@ Partial Class RH_Personal
|
||||
URL, DdlSupervisor.SelectedValue.ToEntero(), TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero(), DdlViaticos.SelectedValue.ToEntero(), DdlViaticos.SelectedItem.Text,
|
||||
DdlPrestamos.SelectedValue.ToEntero(), DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
|
||||
TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
|
||||
CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero()) Then
|
||||
CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero()) Then
|
||||
|
||||
'Funsion usa RH Familiares
|
||||
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
|
||||
|
||||
Reference in New Issue
Block a user