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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2021-10-29 03:23:04 -07:00
parent ddfdd3e615
commit c6796258d4
9 changed files with 322 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
RH/CatPersonal.aspx
View File

@@ -952,16 +952,6 @@
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList Width="100%" ID="DdlMedioTransporte" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="MedioTransporte" DataValueField="CveMedioTransporte" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Value="1" Text="Hermosillo"></asp:ListItem>
<asp:ListItem Value="2" Text="Taxi 1"></asp:ListItem>
<asp:ListItem Value="3" Text="Taxi 2"></asp:ListItem>
</asp:DropDownList>
<asp:Label AssociatedControlID="DdlMedioTransporte" runat="server" Text="Medio transporte:"></asp:Label>
</div>
</div>
<div class="col-md-5" style="display: none;">
<div class="form-group form-md-line-input input-iconright">
@@ -1001,7 +991,7 @@
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList Width="100%" ID="DdlSubProyectoAsignadoAdd" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardarAddS">
<asp:DropDownList Width="100%" ID="DdlSubProyectoAsignadoAdd" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlSubProyectoAsignadoAdd_SelectedIndexChanged" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardarAddS">
<asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:Label runat="server" ID="LblSubProyectoAsignado" AssociatedControlID="DdlSubProyectoAsignadoAdd">SubProyecto:</asp:Label>
@@ -1114,9 +1104,67 @@
</div>
</div>
<div class="row">
<div class="col-md-4">
<asp:TextBox ID="TxtFoto" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
<div class="portlet light bordered xspadding">
<div class="portlet-title text-center">
<div class="caption font-green">
<i class="fa fa-users font-green"></i>
<span class="caption-subject bold uppercase">Datos </span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div>
</div>
<div class="portlet-body form">
<div class="row">
<div class="col-md-4">
<asp:TextBox ID="TxtFoto" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList Width="100%" ID="DdlTipoTrabajador" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true"
DataTextField="TipoTrabajadorB" DataValueField="CveTipoTrabajador" ValidationGroup="GrpGuardar" OnSelectedIndexChanged="DdlTipoTrabajador_SelectedIndexChanged">
</asp:DropDownList>
<asp:Label AssociatedControlID="DdlTipoTrabajador" runat="server" Text="Tipo trabajador:"></asp:Label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList Width="100%" ID="DdlMedioTransporte" CssClass="form-control input-sm select2me" runat="server" DataTextField="MedioTransporte" DataValueField="CveMedioTransporte" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Value="1" Text="Hermosillo"></asp:ListItem>
<asp:ListItem Value="2" Text="Taxi-1"></asp:ListItem>
<asp:ListItem Value="3" Text="Taxi-2"></asp:ListItem>
<asp:ListItem Value="5" Text="Taxi-3"></asp:ListItem>
<asp:ListItem Value="4" Text="Taxi-4"></asp:ListItem>
<asp:ListItem Value="7" Text="Taxi-5"></asp:ListItem>
<asp:ListItem Value="6" Text="Taxi-6"></asp:ListItem>
<asp:ListItem Value="8" Text="Costa"></asp:ListItem>
</asp:DropDownList>
<asp:Label AssociatedControlID="DdlMedioTransporte" runat="server" Text="Medio transporte:"></asp:Label>
</div>
</div>
<div class="col-md-3">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList Width="100%" ID="DDlAgroDepartamento" CssClass="form-control input-sm select2me" runat="server"
DataTextField="Departamento" DataValueField="CveDepartamento" ValidationGroup="GrpGuardar">
</asp:DropDownList>
<asp:Label AssociatedControlID="DDlAgroDepartamento" runat="server" Text="Depto:"></asp:Label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div style="height: 35px;padding-top: 12px;">
<asp:CheckBox ID="ChkCharolaForanea" CssClass="chksino " Text=" " runat="server" />
</div>
<input type="text" class="form-control hidden" />
<asp:Label AssociatedControlID="ChkCharolaForanea" runat="server" Text="Charola foraneo"></asp:Label>
</div>
</div>
</div>
</div>
</div>
<div class="text-right">
@@ -1445,9 +1493,9 @@
function ValidaRFC() {
if (rfcValidoJS(<%= String.Format("$('#{0}').val()", TxtRFC.ClientID) %>)) {
alertatoast(5, "RFC valido!", "", 7);
alertatoast(5, "Formato de RFC valido!", "", 7);
} else {
alertatoast(8, "RFC invalido!", "", 7)
alertatoast(8, "Formato de RFC invalido!", "", 7)
}
}
function rfcValidoJS(rfc, aceptarGenerico = true) {

40
RH/CatPersonal.aspx.vb
View File

@@ -1136,7 +1136,7 @@ Partial Class RH_CatPersonal
Dim continuar As Boolean = False
Dim CvePersonal As Integer = 0
Using ObjPersonal As New ClsRH()
ObjPersonal.IniciaTransacSQL()
If ObjPersonal.AddPersonal("-1", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, "", TxtFechaIngreso.Text.ToDate,
DdlTipoPeriodoAdd.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, True, SalarioDiario,
SalarioDiario, 0, 0, 0, 15, 25, DdlMetodoPagoAdd.SelectedValue.ToEntero, TxtFechaIngreso.Text.Trim.ToDate, "-1",
@@ -1169,12 +1169,14 @@ Partial Class RH_CatPersonal
Next
ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
continuar = True
ISChange = True
ObjPersonal.Commit()
Else
ObjPersonal.RollBack()
'Alert("El empleado a sido agregado satisfactoriamente", TipoMensaje.ToastInformacion, "", 0)
End If
End Using
@@ -1212,4 +1214,38 @@ Partial Class RH_CatPersonal
End If
End Sub
Protected Sub DdlSubProyectoAsignadoAdd_SelectedIndexChanged(sender As Object, e As EventArgs)
Using objrh As New ClsRH()
If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignadoAdd.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
Dim drow As DataRow = dt.NewRow()
drow("CveTipoTrabajador") = "-1"
drow("TipoTrabajadorB") = "Seleccione"
dt.Rows.InsertAt(drow, 0)
If DdlTipoTrabajador.Items.Count() > 0 Then
DdlTipoTrabajador.SelectedValueExist("-1")
End If
DdlTipoTrabajador.DataSource = dt
DdlTipoTrabajador.DataBind()
End If
End Using
End Sub
Protected Sub DdlTipoTrabajador_SelectedIndexChanged(sender As Object, e As EventArgs)
Using objrh As New ClsRH()
If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue))
Dim drow As DataRow = dt.NewRow()
drow("CveDepartamento") = "-1"
drow("Departamento") = "Seleccione"
dt.Rows.InsertAt(drow, 0)
If DDlAgroDepartamento.Items.Count() > 0 Then
DDlAgroDepartamento.SelectedValueExist("-1")
End If
DDlAgroDepartamento.DataSource = dt
DDlAgroDepartamento.DataBind()
End If
End Using
End Sub
End Class

26
RH/Personal.aspx
View File

@@ -234,6 +234,26 @@
<asp:CheckBox ID="CHKRFCValidado" Text=" " CssClass="chksino" runat="server" />
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList Width="100%" ID="DdlTipoTrabajador" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true"
DataTextField="TipoTrabajadorB" DataValueField="CveTipoTrabajador" ValidationGroup="GrpGuardar" OnSelectedIndexChanged="DdlTipoTrabajador_SelectedIndexChanged">
</asp:DropDownList>
<asp:Label AssociatedControlID="DdlTipoTrabajador" runat="server" Text="Tipo trabajador:"></asp:Label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList Width="100%" ID="DDlAgroDepartamento" CssClass="form-control input-sm select2me" runat="server"
DataTextField="Departamento" DataValueField="CveDepartamento" ValidationGroup="GrpGuardar">
</asp:DropDownList>
<asp:Label AssociatedControlID="DDlAgroDepartamento" runat="server" Text="Depto:"></asp:Label>
</div>
<div class="form-group form-md-line-input input-iconright">
<div style="height: 35px;padding-top: 12px;">
<asp:CheckBox ID="ChkCharolaForanea" CssClass="chksino " Text=" " runat="server" />
</div>
<input type="text" class="form-control hidden" />
<asp:Label AssociatedControlID="ChkCharolaForanea" runat="server" Text="Charola foraneo"></asp:Label>
</div>
</div>
</div>
</div>
@@ -615,7 +635,7 @@
<div class="form-group form-md-line-input input-iconright">
<asp:Label runat="server" ID="LblSubProyectoAsignado" CssClass="form-line" for="<%= DdlSubProyectoAsignado.ClientID.ToString()%>" Style=" margin-bottom: unset;
color: #888888">SubProyecto: </asp:Label>
<asp:DropDownList Width="100%" ID="DdlSubProyectoAsignado" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:DropDownList Width="100%" ID="DdlSubProyectoAsignado" AutoPostBack="True" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlSubProyectoAsignado" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyectoAsignado" ValidationGroup="GrpGuardar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator>
@@ -5310,9 +5330,9 @@
function ValidaRFC() {
if (rfcValidoJS(<%= String.Format("$('#{0}').val()", TxtRFC.ClientID) %>)) {
alertatoast(5, "RFC valido!", "", 7);
alertatoast(5, "Formato de RFC valido!", "", 7);
} else {
alertatoast(8, "RFC invalido!", "", 7)
alertatoast(8, "Formato de RFC invalido!", "", 7)
}
}
function rfcValidoJS(rfc, aceptarGenerico = true) {

51
RH/Personal.aspx.vb
View File

@@ -1020,6 +1020,39 @@ Partial Class RH_Personal
#Region "Carga Combos"
Public Sub cargatipoTrabajador()
Using objrh As New ClsRH()
If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
Dim drow As DataRow = dt.NewRow()
drow("CveTipoTrabajador") = "-1"
drow("TipoTrabajadorB") = "Seleccione"
dt.Rows.InsertAt(drow, 0)
If DdlTipoTrabajador.Items.Count() > 0 Then
DdlTipoTrabajador.SelectedValueExist("-1")
End If
DdlTipoTrabajador.DataSource = dt
DdlTipoTrabajador.DataBind()
End If
End Using
End Sub
Protected Sub cargaagrodeptos()
Using objrh As New ClsRH()
If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue))
Dim drow As DataRow = dt.NewRow()
drow("CveDepartamento") = "-1"
drow("Departamento") = "Seleccione"
dt.Rows.InsertAt(drow, 0)
If DDlAgroDepartamento.Items.Count() > 0 Then
DDlAgroDepartamento.SelectedValueExist("-1")
End If
DDlAgroDepartamento.DataSource = dt
DDlAgroDepartamento.DataBind()
End If
End Using
End Sub
Private Sub CargaEscolaridad()
DdlEscolaridad.DataSource = GlobalDTEscolaridad
DdlEscolaridad.DataBind()
@@ -1569,6 +1602,11 @@ Partial Class RH_Personal
DdlProyectoAsignado.SelectedValue = ObjPersonal.CveProyecto.ToString()
If ObjPersonal.CveProyecto <> -1 Then DdlProyectoAsignado_SelectedIndexChanged(Me, New System.EventArgs())
DdlSubProyectoAsignado.SelectedValue = ObjPersonal.CveSubProyecto.ToString()
cargatipoTrabajador()
DdlTipoTrabajador.SelectedValueExist(drow("CveTipoTrabajador").ToString())
cargaagrodeptos()
DDlAgroDepartamento.SelectedValueExist(drow("CveDepartamentoAgropecuaria").ToString())
ChkCharolaForanea.Checked = (drow("CharolaForanea").ToString().ToUpper().Contiene("1", "TRUE"))
DdlSupervisor.SelectedValue = ObjPersonal.CveSupervisor.ToString()
'Carga Nómina
TxtFechaIngreso.Text = ObjPersonal.FechaIngreso.ToShortDateString
@@ -1783,6 +1821,8 @@ Partial Class RH_Personal
End If
ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
'Agregar Cuentas Bancarias
ViewState("CvePersonal") = ObjPersonal.CvePersonal
@@ -1852,6 +1892,7 @@ Partial Class RH_Personal
ProcesaDTFamiliares(ObjPersonal)
End If
ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
If Archivo.Exists Then
@@ -1944,6 +1985,16 @@ Partial Class RH_Personal
Protected Sub DdlProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsignado.SelectedIndexChanged
CargaSubProyectoAsignado()
End Sub
Protected Sub DdlSubProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlSubProyectoAsignado.SelectedIndexChanged
cargatipoTrabajador()
UpDatos.Update()
End Sub
Protected Sub DdlTipoTrabajador_SelectedIndexChanged(sender As Object, e As EventArgs)
cargaagrodeptos()
UpDatos.Update()
End Sub
Protected Sub DdlProyectoAsistenciaC_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsistenciaC.SelectedIndexChanged
CargaSubProyectoAsistenciaC()