RH Familiares grid y personal requeriemientos
This commit is contained in:
Rakcsle Supertramp
@@ -81,19 +81,28 @@
|
||||
<asp:UpdatePanel ID="UPGVDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:GridView ID="GVDatos" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="false" data-sort="true" EmptyDataText="No se encontraron registros"
|
||||
DataKeyNames="CveRequerimiento,Cantidad,Proyecto,CveProyecto,SubProyecto,CveSubProyecto,Turno,CveTurno,Usuario,CveUsuario,CveEmpresa,FechaIngreso,FechaActualizacion">
|
||||
<asp:GridView ID="GVDatos" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover ScrollAD" AutoGenerateColumns="false" data-sort="true" EmptyDataText="No se encontraron registros"
|
||||
DataKeyNames="CveRequerimiento,Cantidad,Proyecto,CveProyecto,SubProyecto,CveSubProyecto,Turno,CveTurno,Usuario,CveUsuario,CveEmpresa,FechaIngreso,FechaActualizacion,CveDepartamento"
|
||||
Width="1000px" >
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Proyecto">
|
||||
<ItemTemplate>
|
||||
<asp:Label runat="server" Text='<%# Eval("Proyecto", "{0}") %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="SubProyecto">
|
||||
<ItemTemplate>
|
||||
<asp:Label runat="server" Text='<%# Eval("SubProyecto", "{0}") %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Departamento">
|
||||
<ItemTemplate>
|
||||
<asp:Label runat="server" Text='<%# Eval("Departamento", "{0}") %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Turno">
|
||||
<ItemTemplate>
|
||||
<asp:Label runat="server" Text='<%# Eval("Turno", "{0}") %>'></asp:Label>
|
||||
@@ -157,6 +166,22 @@
|
||||
|
||||
<br />
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
|
||||
|
||||
<asp:DropDownList ID="DdlDepartamento" runat="server" AppendDataBoundItems="True" DataTextField="Departamento" DataValueField="CveDepartamento" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar" Width="250px">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
|
||||
<asp:RequiredFieldValidator ID="RFVDdlDepartamento" InitialValue="-1" runat="server" ControlToValidate="DdlDepartamento" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Departamento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="CERFVDdlDepartamento" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlDepartamento" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= ReqTurnoDdl.ClientID.ToString()%>">Departamento:</label>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
<br />
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
|
||||
<asp:DropDownList ID="ReqTurnoDdl" runat="server" DataTextField="Turno" DataValueField="CveTurno" CssClass="form-control input-sm select2me" Class="table-group-action-input form-control input-inline input-small input-sm" Width="250px" AutoPostBack="true"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVTurno" InitialValue="-1" runat="server" ControlToValidate="ReqTurnoDdl" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Turno''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
|
||||
@@ -94,6 +94,11 @@ Partial Class RH_CatPersonalRequerido
|
||||
Private Sub CargaTurno()
|
||||
ReqTurnoDdl.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
ReqTurnoDdl.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDepartamento()
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlDepartamento.DataBind()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnAgregarPersonalReqModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarPersonalReqModal.Click
|
||||
@@ -108,12 +113,14 @@ Partial Class RH_CatPersonalRequerido
|
||||
RHRequerido.Cantidad = TxtCantidad.Text.ToEntero
|
||||
RHRequerido.CveUsuario = UsuarioActual.CveUsuario
|
||||
RHRequerido.CveEmpresa = UsuarioActual.CveEmpresa
|
||||
RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero
|
||||
|
||||
If ObjRH.AddPersonalRequerido(RHRequerido) Then
|
||||
|
||||
ReqProyectoDdl.SelectedValueExist(-1)
|
||||
ReqSubProyectoDdl.SelectedValueExist(-1)
|
||||
ReqTurnoDdl.SelectedValueExist(-1)
|
||||
ReqTurnoDdl.SelectedValueExist(-1)
|
||||
DdlDepartamento.SelectedValueExist(-1)
|
||||
TxtCantidad.Text = ""
|
||||
|
||||
CargadatosGvPersonalReq()
|
||||
@@ -131,12 +138,16 @@ Partial Class RH_CatPersonalRequerido
|
||||
RHRequerido.CveTurno = ReqTurnoDdl.SelectedValue.ToEntero
|
||||
RHRequerido.Cantidad = TxtCantidad.Text.ToEntero
|
||||
RHRequerido.CveRequerimiento = CveRequerimiento
|
||||
RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero
|
||||
|
||||
If ObjRH.UpdatePersonalRequerido(RHRequerido) Then
|
||||
|
||||
ReqProyectoDdl.SelectedValueExist(-1)
|
||||
ReqSubProyectoDdl.SelectedValueExist(-1)
|
||||
ReqTurnoDdl.SelectedValueExist(-1)
|
||||
ReqTurnoDdl.SelectedValueExist(-1)
|
||||
DdlDepartamento.SelectedValueExist(-1)
|
||||
DdlDepartamento.SelectedValueExist(-1)
|
||||
|
||||
TxtCantidad.Text = ""
|
||||
|
||||
CargadatosGvPersonalReq()
|
||||
@@ -164,7 +175,8 @@ Partial Class RH_CatPersonalRequerido
|
||||
Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento")
|
||||
|
||||
Dim ObjRH As New ClsRH
|
||||
If ObjRH.RemovePersonalRequerido(CveReq) Then
|
||||
|
||||
If ObjRH.RemovePersonalRequerido(CveReq, UsuarioActual.CveEmpresa) Then
|
||||
CargadatosGvPersonalReq()
|
||||
|
||||
Alert("El personal requerido se eliminó correctamente ", TipoMensaje.MsgInformacion)
|
||||
@@ -189,13 +201,19 @@ Partial Class RH_CatPersonalRequerido
|
||||
CveRequerimiento = GvRow.DataKey("CveRequerimiento")
|
||||
|
||||
CargaProyectos()
|
||||
CargaTurno()
|
||||
CargaDepartamento()
|
||||
|
||||
ReqProyectoDdl.SelectedValueExist(GvRow.DataKey("CveProyecto").ToEntero)
|
||||
CargaSubProyectos(GvRow.DataKey("CveProyecto").ToEntero, ReqSubProyectoDdl)
|
||||
ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
|
||||
CargaTurno()
|
||||
ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
|
||||
|
||||
ReqTurnoDdl.SelectedValueExist(GvRow.DataKey("CveTurno").ToEntero)
|
||||
TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero
|
||||
|
||||
TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero
|
||||
|
||||
DdlDepartamento.SelectedValueExist(GvRow.DataKey("CveDepartamento").ToEntero)
|
||||
|
||||
|
||||
BtnAgregarPersonalReqModal.Text = "Actualizar"
|
||||
|
||||
UpModalPersonalReq.Update()
|
||||
|
||||
165
RH/Personal.aspx
165
RH/Personal.aspx
@@ -70,7 +70,17 @@
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<%-- añlsdkjlasjdlkasjdkas--%>
|
||||
<asp:UpdatePanel runat="server" ID="UpFamiliaresAcciones">
|
||||
<ContentTemplate>
|
||||
|
||||
<li style="text-align: left!important" runat="server" id="LIFamiliaresAcciones" visible="false">
|
||||
<asp:LinkButton runat="server" ID="BtnAgregarFamiliar" CssClass=" " data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar<br/>Familiares" Text="<i class='fa fa-plus'></i> Agregar Familiar"></asp:LinkButton>
|
||||
</li>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
<asp:Literal ID="LtlTitulo" runat="server" Text="Registro de Personal"></asp:Literal> <asp:Literal ID="LtlPersonal" runat="server"></asp:Literal>
|
||||
@@ -259,15 +269,69 @@
|
||||
<label for="<%= TxtLugarNacimiento.ClientID.ToString()%>">Lugar de Nacimiento: </label>
|
||||
<i></i>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtNombrePadre" runat="server" MaxLength="50"></asp:TextBox>
|
||||
<label for="<%= TxtNombrePadre.ClientID.ToString()%>">Nombre del Padre: </label>
|
||||
<i></i>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtNombreMadre" runat="server" MaxLength="50"></asp:TextBox>
|
||||
<label for="<%= TxtNombreMadre.ClientID.ToString()%>">Nombre de la Madre: </label>
|
||||
<i></i>
|
||||
|
||||
|
||||
<div runat="server" id="DivPadres" visible="true">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtNombrePadre" runat="server" MaxLength="50"></asp:TextBox>
|
||||
<label for="<%= TxtNombrePadre.ClientID.ToString()%>">Nombre del Padre: </label>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox CssClass="form-control" ID="TxtNombreMadre" runat="server" MaxLength="50"></asp:TextBox>
|
||||
<label for="<%= TxtNombreMadre.ClientID.ToString()%>">Nombre de la Madre: </label>
|
||||
<i></i>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
<div runat="server" id="DivFamiliares" visible="false">
|
||||
|
||||
<asp:UpdatePanel ID="UPTabFamiliares" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvFamiliares" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFamiliar,Parentesco,Nombre,Domicilio,Edad,Ocupacion,CveParentesco,Telefono,Observaciones,Beneficiario"
|
||||
EmptyDataText="No se encontraron registros de familiares" ToolTip="Listado de familiares" CssClass="table table-hover table-advance ADScroller Widthall btn-xs" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Nombre">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Parentesco">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlParentesco" runat="server" Text='<%# Eval("Parentesco")%>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Bene.">
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox runat="server" ID="ChkBeneficiario" Checked= '<%# Eval("Beneficiario")%>' Enabled="false" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="40px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="ImgE" OnClick="Edit_ClickFamiliar" runat="server" AlternateText="Editar" CausesValidation="False"
|
||||
CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="40px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" OnClick="Remove_ClickFamiliar" runat="server" AlternateText="Eliminar" CausesValidation="False" 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>
|
||||
@@ -4218,6 +4282,87 @@
|
||||
</div>
|
||||
|
||||
|
||||
<div id="divAgregarFamiliar" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalFamiliar" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="LtlTituloModalFamiliar" runat="server">Agregar Familiar</asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtNombreFamiliar4" CssClass="form-control" MaxLength="70" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="rfvTxtNombreFamiliar4" runat="server" ControlToValidate="TxtNombreFamiliar4" ValidationGroup="GrpFamiliar" 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."></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtNombreFamiliar4.ClientID.ToString()%>">Nombre:</label>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DDLParentescoFamiliar4" runat="server" Width="150" CssClass=" select2me form-control ">
|
||||
<asp:ListItem Value="-1" Text="Seleccione un opción"></asp:ListItem>
|
||||
<asp:ListItem Value="1" Text="Padre"></asp:ListItem>
|
||||
<asp:ListItem Value="2" Text="Madre"></asp:ListItem>
|
||||
<asp:ListItem Value="3" Text="Esposo(a)"></asp:ListItem>
|
||||
<asp:ListItem Value="4" Text="Hijo(a)"></asp:ListItem>
|
||||
<asp:ListItem Value="5" Text="Hermano(a)"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator InitialValue="-1" ID="rfvDDLParentescoFamiliar" ControlToValidate="DDLParentescoFamiliar4" CssClass="help-block errorimput" ValidationGroup="GrpFamiliar" runat="server" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DDLParentescoFamiliar4.ClientID.ToString()%>">Parentesco:</label>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtDomicilioFamiliar4" CssClass="form-control" MaxLength="70" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="rfvTxtDomicilioFamiliar4" runat="server" ControlToValidate="TxtDomicilioFamiliar4" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Dirección''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtDomicilioFamiliar4.ClientID.ToString()%>">Dirección:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtEdadFamiliar4" CssClass="form-control" TextMode="Number" MaxLength="3" onkeyDown="checkTextAreaMaxLength(this,event,'3');" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="rfvTxtEdadFamiliar4" runat="server" ControlToValidate="TxtEdadFamiliar4" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Familiar''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtEdadFamiliar4.ClientID.ToString()%>">Edad:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtOcupacionFamiliar4" CssClass="form-control" MaxLength="30" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="rfvTxtOcupacionFamiliar" runat="server" ControlToValidate="TxtOcupacionFamiliar4" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Familiar''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtOcupacionFamiliar4.ClientID.ToString()%>">Ocupación:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtTelefonoFamiliar" CssClass="form-control" MaxLength="10" runat="server"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtTelefonoFamiliar" runat="server" ControlToValidate="TxtTelefonoFamiliar" ValidationGroup="GrpFamiliar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtTelefonoFamiliar.ClientID.ToString()%>">Telefono:</label>
|
||||
<ajax:FilteredTextBoxExtender ID="FilTxtTelefonoFamiliar" runat="server" FilterType="Numbers" InvalidChars=".-," TargetControlID="TxtTelefonoFamiliar" />
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtObservacionesFamiliar" TextMode="MultiLine" Rows="3" Columns="300" onkeyDown="checkTextAreaMaxLength(this,event,'200');" CssClass="form-control" MaxLength="200" runat="server"></asp:TextBox>
|
||||
<label for="<%= TxtObservacionesFamiliar.ClientID.ToString()%>">Observaciones:</label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:CheckBox runat="server" ID="ChkBeneficiario" />
|
||||
<label for="<%= ChkBeneficiario.ClientID.ToString()%>">Beneficiario: </label>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnAgregarFamiliarModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpFamiliar" />
|
||||
<button id="BtnCancelarFamiliarModal4" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<iframe id="my_iframe" style="display: none;"></iframe>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
|
||||
@@ -528,12 +528,94 @@ Partial Class RH_Personal
|
||||
Set(value As Integer)
|
||||
ViewState("CvePermiso") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "PROPIEDADES FAMILIARES"
|
||||
|
||||
Private Property ActualizarFamiliar As Boolean
|
||||
Get
|
||||
If ViewState("ActualizarFamiliar") Is Nothing Then
|
||||
Return True
|
||||
Else
|
||||
Return DirectCast(ViewState("ActualizarFamiliar"), Boolean)
|
||||
|
||||
End If
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("ActualizarFamiliar") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property CveFamiliar As Integer
|
||||
Get
|
||||
If ViewState("CveFamiliar") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return DirectCast(ViewState("CveFamiliar"), Integer)
|
||||
End If
|
||||
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveFamiliar") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property IndexActual As Integer
|
||||
Get
|
||||
If ViewState("IndexActual") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return DirectCast(ViewState("IndexActual"), Integer)
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IndexActual") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property DTFamiliares As DataTable
|
||||
Get
|
||||
Return DirectCast(ViewState("DTFamiliares"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTFamiliares") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private Property ValPadre As Boolean
|
||||
Get
|
||||
If ViewState("ValPadre") Is Nothing Then
|
||||
Return False
|
||||
Else
|
||||
Return DirectCast(ViewState("ValPadre"), Boolean)
|
||||
End If
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("ValPadre") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
Private Property ValMadre As Boolean
|
||||
Get
|
||||
If ViewState("ValMadre") Is Nothing Then
|
||||
Return False
|
||||
Else
|
||||
Return DirectCast(ViewState("ValMadre"), Boolean)
|
||||
End If
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("ValMadre") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
Const wdPageBreak As Integer = 7
|
||||
Const wdCharacter As Integer = 1
|
||||
'Configuración
|
||||
@@ -581,9 +663,9 @@ Partial Class RH_Personal
|
||||
CargaComboUniformes()
|
||||
CargaPermisos()
|
||||
CargaCombosBuzon()
|
||||
CargaPermisosReemplazos()
|
||||
|
||||
|
||||
CargaPermisosReemplazos()
|
||||
|
||||
|
||||
If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then
|
||||
ViewState("CvePersonal") = Request("CvePersonal")
|
||||
'CvePersonal = ViewState("CvePersonal").ToString.ToEntero
|
||||
@@ -634,14 +716,29 @@ Partial Class RH_Personal
|
||||
'Inicia Permisos
|
||||
'Fin Permisos
|
||||
End If
|
||||
CargaCuentasBancarias()
|
||||
|
||||
'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago
|
||||
' HplAbonarMasivo.Visible = True
|
||||
' GvGxC.Columns(7).Visible = True
|
||||
'End If
|
||||
|
||||
|
||||
CargaCuentasBancarias()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
|
||||
|
||||
CrearEstructuraFamiliares()
|
||||
CargaFamiliares()
|
||||
|
||||
LIFamiliaresAcciones.Visible = True
|
||||
DivFamiliares.Visible = True
|
||||
DivPadres.Visible = False
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago
|
||||
' HplAbonarMasivo.Visible = True
|
||||
' GvGxC.Columns(7).Visible = True
|
||||
'End If
|
||||
|
||||
|
||||
If Not CvePersonal > 0 Then
|
||||
DivSuperiorInmediato.Visible = False
|
||||
End If
|
||||
@@ -1381,6 +1478,11 @@ Partial Class RH_Personal
|
||||
'Agregar Cuentas Bancarias
|
||||
ViewState("CvePersonal") = ObjPersonal.CvePersonal
|
||||
|
||||
'Funsion usa RH Familiares
|
||||
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
|
||||
ProcesaDTFamiliares(ObjPersonal)
|
||||
End If
|
||||
|
||||
If TempDTCuentasBancos.Rows.Count > 0 Then
|
||||
For Each row As DataRow In TempDTCuentasBancos.Rows
|
||||
If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, "", UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
@@ -1435,7 +1537,12 @@ 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,
|
||||
FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso) Then
|
||||
FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso) Then
|
||||
|
||||
'Funsion usa RH Familiares
|
||||
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
|
||||
ProcesaDTFamiliares(ObjPersonal)
|
||||
End If
|
||||
|
||||
|
||||
If Archivo.Exists Then
|
||||
@@ -5506,5 +5613,265 @@ Partial Class RH_Personal
|
||||
Alert("No se encontraron registros .", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "FAMILIARES"
|
||||
|
||||
|
||||
Private Sub CargaFamiliares()
|
||||
|
||||
If CvePersonal <> -1 Then
|
||||
Dim objRH As New ClsRH
|
||||
|
||||
If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
|
||||
|
||||
If objRH.DtResultados.Rows.Count > 0 Then
|
||||
DTFamiliares = objRH.DtResultados
|
||||
DTFamiliares.Columns.Add("Accion", Type.GetType("System.String"))
|
||||
DTFamiliares.AcceptChanges()
|
||||
GvFamiliares.DataSource = DTFamiliares
|
||||
Else
|
||||
DTFamiliares.Rows.Clear()
|
||||
GvFamiliares.DataSource = DTFamiliares
|
||||
End If
|
||||
|
||||
Else
|
||||
GvFamiliares.DataSource = Nothing
|
||||
End If
|
||||
|
||||
objRH.Dispose()
|
||||
GvFamiliares.DataBind()
|
||||
UPTabFamiliares.Update()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CrearEstructuraFamiliares()
|
||||
|
||||
Dim Familiares As New DataTable
|
||||
|
||||
Familiares.Columns.Add("CveFamiliar", Type.GetType("System.Int32"))
|
||||
Familiares.Columns.Add("CvePersonal", Type.GetType("System.Int32"))
|
||||
Familiares.Columns.Add("CveParentesco", Type.GetType("System.Int32"))
|
||||
Familiares.Columns.Add("Parentesco", Type.GetType("System.String"))
|
||||
Familiares.Columns.Add("Nombre", Type.GetType("System.String"))
|
||||
Familiares.Columns.Add("Domicilio", Type.GetType("System.String"))
|
||||
Familiares.Columns.Add("Edad", Type.GetType("System.Int32"))
|
||||
Familiares.Columns.Add("Ocupacion", Type.GetType("System.String"))
|
||||
Familiares.Columns.Add("Fecha", Type.GetType("System.DateTime"))
|
||||
Familiares.Columns.Add("Usuario", Type.GetType("System.String"))
|
||||
Familiares.Columns.Add("Telefono", Type.GetType("System.String"))
|
||||
Familiares.Columns.Add("Accion", Type.GetType("System.String"))
|
||||
Familiares.Columns.Add("Observaciones", Type.GetType("System.String"))
|
||||
Familiares.Columns.Add("Beneficiario", Type.GetType("System.Boolean"))
|
||||
|
||||
DTFamiliares = Familiares
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub BtnAgregarFamiliar_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliar.Click
|
||||
resetFormFamiliares()
|
||||
RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static', keyboard: false});")
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ResetFormFamiliares()
|
||||
|
||||
ActualizarFamiliar = False
|
||||
CveFamiliar = -1
|
||||
|
||||
LtlTituloModalFamiliar.Text = "Agregar Familiar"
|
||||
BtnAgregarFamiliarModal.Text = "Agregar Familiar"
|
||||
TxtNombreFamiliar4.Text = ""
|
||||
TxtDomicilioFamiliar4.Text = ""
|
||||
TxtEdadFamiliar4.Text = ""
|
||||
TxtOcupacionFamiliar4.Text = ""
|
||||
TxtTelefonoFamiliar.Text = ""
|
||||
TxtObservacionesFamiliar.Text = ""
|
||||
DDLParentescoFamiliar4.SelectedIndex = 0
|
||||
ChkBeneficiario.Checked = False
|
||||
|
||||
UpModalFamiliar.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnAgregarFamiliarModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliarModal.Click
|
||||
|
||||
If ActualizarFamiliar Then
|
||||
|
||||
'DtRowFamiliar("CveFamiliar") = -1
|
||||
DTFamiliares(IndexActual)("CvePersonal") = -1
|
||||
DTFamiliares(IndexActual)("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text
|
||||
DTFamiliares(IndexActual)("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero
|
||||
DTFamiliares(IndexActual)("Nombre") = TxtNombreFamiliar4.Text.Trim
|
||||
DTFamiliares(IndexActual)("Domicilio") = TxtDomicilioFamiliar4.Text.Trim
|
||||
DTFamiliares(IndexActual)("Edad") = TxtEdadFamiliar4.Text.ToEntero
|
||||
DTFamiliares(IndexActual)("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim
|
||||
DTFamiliares(IndexActual)("Telefono") = TxtTelefonoFamiliar.Text.Trim
|
||||
DTFamiliares(IndexActual)("Observaciones") = TxtObservacionesFamiliar.Text.Trim
|
||||
DTFamiliares(IndexActual)("Beneficiario") = ChkBeneficiario.Checked
|
||||
|
||||
If DTFamiliares(IndexActual)("CveFamiliar").ToString = "-1" Then
|
||||
DTFamiliares(IndexActual)("Accion") = "2"
|
||||
Else
|
||||
DTFamiliares(IndexActual)("Accion") = "1"
|
||||
End If
|
||||
|
||||
DTFamiliares.AcceptChanges()
|
||||
|
||||
Else
|
||||
|
||||
Dim DtRowFamiliar As DataRow
|
||||
DtRowFamiliar = DTFamiliares.NewRow
|
||||
|
||||
DtRowFamiliar("CveFamiliar") = -1
|
||||
DtRowFamiliar("CvePersonal") = -1
|
||||
DtRowFamiliar("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text
|
||||
DtRowFamiliar("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero
|
||||
DtRowFamiliar("Nombre") = TxtNombreFamiliar4.Text.Trim
|
||||
DtRowFamiliar("Domicilio") = TxtDomicilioFamiliar4.Text.Trim
|
||||
DtRowFamiliar("Edad") = TxtEdadFamiliar4.Text.ToEntero
|
||||
DtRowFamiliar("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim
|
||||
DtRowFamiliar("Telefono") = TxtTelefonoFamiliar.Text.Trim
|
||||
DtRowFamiliar("Observaciones") = TxtObservacionesFamiliar.Text.Trim
|
||||
DtRowFamiliar("Beneficiario") = ChkBeneficiario.Checked
|
||||
|
||||
DtRowFamiliar("Accion") = "2"
|
||||
|
||||
DTFamiliares.Rows.Add(DtRowFamiliar)
|
||||
DTFamiliares.AcceptChanges()
|
||||
|
||||
End If
|
||||
|
||||
IndexActual = -1
|
||||
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarFamiliar"))
|
||||
'CargaFamiliares()
|
||||
|
||||
GvFamiliares.DataSource = DTFamiliares
|
||||
GvFamiliares.DataBind()
|
||||
UPTabFamiliares.Update()
|
||||
|
||||
CveFamiliar = -1
|
||||
ActualizarFamiliar = False
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub Edit_ClickFamiliar(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim activo As Boolean = True
|
||||
|
||||
CveFamiliar = GvRow.DataKey("CveFamiliar").ToString.ToEntero
|
||||
ActualizarFamiliar = True
|
||||
IndexActual = GvRow.RowIndex
|
||||
|
||||
LtlTituloModalFamiliar.Text = "Editar Familiar"
|
||||
BtnAgregarFamiliarModal.Text = "Actualizar"
|
||||
|
||||
TxtNombreFamiliar4.Text = GvRow.DataKey("Nombre")
|
||||
DDLParentescoFamiliar4.SelectedValueExist(GvRow.DataKey("CveParentesco"))
|
||||
TxtDomicilioFamiliar4.Text = GvRow.DataKey("Domicilio")
|
||||
TxtEdadFamiliar4.Text = GvRow.DataKey("Edad")
|
||||
TxtOcupacionFamiliar4.Text = GvRow.DataKey("Ocupacion")
|
||||
TxtTelefonoFamiliar.Text = GvRow.DataKey("Telefono")
|
||||
TxtObservacionesFamiliar.Text = GvRow.DataKey("Observaciones")
|
||||
ChkBeneficiario.Checked = Boolean.Parse(GvRow.DataKey("Beneficiario").ToString)
|
||||
|
||||
UpModalFamiliar.Update()
|
||||
RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static', keyboard: false});")
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub Remove_ClickFamiliar(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
IndexActual = GvRow.RowIndex
|
||||
Dim activo As Boolean = False
|
||||
Dim CveFamiliar As Integer = GvRow.DataKey("CveFamiliar").ToString.ToEntero
|
||||
|
||||
If CveFamiliar > 0 Then
|
||||
|
||||
DTFamiliares.Rows(IndexActual)("Accion") = "3"
|
||||
Dim objRH As New ClsRH
|
||||
ProcesaDTFamiliares(objRH)
|
||||
objRH.Dispose()
|
||||
|
||||
CargaFamiliares()
|
||||
|
||||
|
||||
|
||||
Else
|
||||
DTFamiliares.Rows(IndexActual).Delete()
|
||||
DTFamiliares.AcceptChanges()
|
||||
GvFamiliares.DataSource = DTFamiliares
|
||||
GvFamiliares.DataBind()
|
||||
UPTabFamiliares.Update()
|
||||
End If
|
||||
IndexActual = -1
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ProcesaDTFamiliares(ByRef objRH As ClsRH)
|
||||
|
||||
'Dim objRH As New ClsRH
|
||||
|
||||
ValPadre = False
|
||||
ValMadre = False
|
||||
|
||||
For Each dRow As DataRow In DTFamiliares.Rows
|
||||
|
||||
|
||||
|
||||
If dRow("Accion").ToString = "1" Then 'Actualiza
|
||||
|
||||
Dim Beneficiario As Integer = -1
|
||||
|
||||
If Boolean.Parse(dRow("Beneficiario").ToString) Then
|
||||
Beneficiario = 1
|
||||
Else
|
||||
Beneficiario = 0
|
||||
End If
|
||||
|
||||
|
||||
objRH.PersonalFamiliaresUpdate(dRow("CveFamiliar").ToString.ToEntero, CvePersonal, dRow("CveParentesco").ToString.ToEntero, dRow("Nombre").ToString, dRow("Domicilio").ToString, dRow("Edad").ToString.ToEntero, dRow("Ocupacion").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString, If(dRow("Observaciones").ToString.Trim = "", "-1", dRow("Observaciones").ToString.Trim), Beneficiario)
|
||||
|
||||
End If
|
||||
If dRow("Accion").ToString = "2" Then 'Inserta
|
||||
|
||||
|
||||
Dim Beneficiario As Boolean = Boolean.Parse(dRow("Beneficiario").ToString)
|
||||
|
||||
|
||||
|
||||
objRH.PersonalFamiliaresAdd(CvePersonal, dRow("CveParentesco").ToString.ToEntero, dRow("Nombre").ToString, dRow("Domicilio").ToString, dRow("Edad").ToString.ToEntero, dRow("Ocupacion").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString, If(dRow("Observaciones").ToString.Trim = "", "-1", dRow("Observaciones").ToString.Trim), Beneficiario)
|
||||
|
||||
End If
|
||||
|
||||
If dRow("CveParentesco").ToString.ToEntero = 1 Then
|
||||
ValPadre = True
|
||||
End If
|
||||
|
||||
If dRow("CveParentesco").ToString.ToEntero = 2 Then
|
||||
ValMadre = True
|
||||
End If
|
||||
|
||||
If dRow("Accion").ToString = "3" Then 'Borra
|
||||
objRH.PersonalFamiliaresRemove(dRow("CveFamiliar").ToString.ToEntero, -1)
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
'objRH.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -30,6 +30,12 @@
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</li>
|
||||
|
||||
<li>Departamento:
|
||||
<asp:DropDownList ID="DdlDepartamento" runat="server" Class="form-control input-sm select2me" DataTextField="Departamento" DataValueField="CveDepartamento" Style="width: 75px !important;">
|
||||
</asp:DropDownList>
|
||||
</li>
|
||||
|
||||
<li>Turno:
|
||||
<asp:DropDownList ID="DdlTurno" runat="server" Class="form-control input-sm select2me" DataTextField="Turno" DataValueField="CveTurno" Style="width: 75px !important;">
|
||||
</asp:DropDownList>
|
||||
@@ -62,6 +68,7 @@
|
||||
<Columns>
|
||||
<asp:BoundField HeaderText ="Proyecto" DataField="Proyecto" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="Departamento" DataField="Departamento" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="Turno" DataField="Turno" />
|
||||
|
||||
<asp:TemplateField HeaderText="Personal Actual" ItemStyle-HorizontalAlign="Center">
|
||||
|
||||
@@ -22,6 +22,7 @@ Partial Class RH_RepPersonalNecesidades
|
||||
CargaProyecto()
|
||||
CargaTurnos()
|
||||
CargaDatos()
|
||||
CargaDepartamento()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -32,18 +33,32 @@ Partial Class RH_RepPersonalNecesidades
|
||||
End Sub
|
||||
|
||||
Private Sub CargaProyecto()
|
||||
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
|
||||
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
|
||||
DdlProyecto.DataBind()
|
||||
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSubProyecto()
|
||||
|
||||
DdlSubProyecto.Items.Clear()
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
|
||||
DdlSubProyecto.DataBind()
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub CargaDepartamento()
|
||||
|
||||
DdlDepartamento.Items.Clear()
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlDepartamento.DataBind()
|
||||
DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
||||
CargaSubProyecto()
|
||||
End Sub
|
||||
@@ -54,7 +69,7 @@ Partial Class RH_RepPersonalNecesidades
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim objpersonal As New ClsRH
|
||||
If objpersonal.GetReportePersonalNecesidades(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
If objpersonal.GetReportePersonalNecesidades(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, DdlDepartamento.SelectedValue.ToEntero) Then
|
||||
GVDatos.DataSource = objpersonal.DtResultados
|
||||
Else
|
||||
GVDatos.DataSource = Nothing
|
||||
|
||||
Reference in New Issue
Block a user