This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
File diff suppressed because it is too large
Load Diff
@@ -50,6 +50,30 @@
|
|||||||
|
|
||||||
<asp:UpdatePanel ID="upDatosPA_N" runat="server" UpdateMode="Conditional">
|
<asp:UpdatePanel ID="upDatosPA_N" runat="server" UpdateMode="Conditional">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-3 col-md-offset-1">
|
||||||
|
<div class="dashboard-stat blue">
|
||||||
|
<div class="visual"><i class="fa fa-sort-numeric-desc"></i></div>
|
||||||
|
<div class="details">
|
||||||
|
<div class="number"> <asp:Literal ID="LtlTotal" runat="server"></asp:Literal> </div>
|
||||||
|
<div class="desc">
|
||||||
|
Total Aguinaldo
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-3 col-md-offset-2">
|
||||||
|
<div class="dashboard-stat green">
|
||||||
|
<div class="visual"><i class="fa fa-line-chart"></i></div>
|
||||||
|
<div class="details">
|
||||||
|
<div class="number"> <asp:Literal ID="LtldiasEjercicio" runat="server"></asp:Literal></div>
|
||||||
|
<div class="desc">
|
||||||
|
Días ejercicio
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
<asp:GridView ID="GVCalcularAguinaldo" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVCalcularUtilidades" AutoGenerateColumns="False"
|
<asp:GridView ID="GVCalcularAguinaldo" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVCalcularUtilidades" AutoGenerateColumns="False"
|
||||||
DataKeyNames="Nombre,CvePersonal">
|
DataKeyNames="Nombre,CvePersonal">
|
||||||
<Columns>
|
<Columns>
|
||||||
@@ -88,13 +112,25 @@
|
|||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
<ItemStyle HorizontalAlign ="Right" />
|
<ItemStyle HorizontalAlign ="Right" />
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
<asp:TemplateField>
|
<asp:TemplateField HeaderText="Aguinaldo Gravado">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Label ID="lblAguinaldoGravado" runat="server" Text='<%# Eval("AguinaldoGravado", "${0:N2}")%>'> </asp:Label>
|
||||||
|
</ItemTemplate>
|
||||||
|
<ItemStyle HorizontalAlign ="Right" />
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField HeaderText="Impuesto">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Label ID="lblAguinaldo" runat="server" Text='<%# Eval("ISR", "${0:N2}")%>'> </asp:Label>
|
||||||
|
</ItemTemplate>
|
||||||
|
<ItemStyle HorizontalAlign ="Right" />
|
||||||
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField HeaderText="">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
<%-- <asp:TemplateField HeaderText="Gravadas">
|
<%-- <asp:TemplateField HeaderText="Gravadas">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
<asp:Label ID="lbluGravadas" runat="server" Text='<%# Eval("UGravadas", "${0:N2}")%>'> </asp:Label>
|
<asp:Label ID="lbluGravadas" runat="server" Text='<%# Eval("ISR", "${0:N2}")%>'> </asp:Label>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
<asp:TemplateField HeaderText="ISR">
|
<asp:TemplateField HeaderText="ISR">
|
||||||
|
|||||||
@@ -57,6 +57,8 @@ public partial class Nomina_Aguinaldo : ClsPaginas
|
|||||||
objnom.GetCalculoAguinaldo(ejercicio, UsuarioActual.CveEmpresa, 0, CveTipoPeriodo, CvePeriodo);
|
objnom.GetCalculoAguinaldo(ejercicio, UsuarioActual.CveEmpresa, 0, CveTipoPeriodo, CvePeriodo);
|
||||||
DTAguinaldos = objnom.DtResultados;
|
DTAguinaldos = objnom.DtResultados;
|
||||||
GVCalcularAguinaldo.DataSource = DTAguinaldos;
|
GVCalcularAguinaldo.DataSource = DTAguinaldos;
|
||||||
|
LtlTotal.Text = string.Format("{0:N2}", DTAguinaldos.SUM("Aguinaldo"));
|
||||||
|
LtldiasEjercicio.Text = string.Format("{0}/12/31", ejercicio).ToDate().DayOfYear.ToString();
|
||||||
}
|
}
|
||||||
|
|
||||||
GVCalcularAguinaldo.DataBind();
|
GVCalcularAguinaldo.DataBind();
|
||||||
|
|||||||
@@ -780,6 +780,86 @@
|
|||||||
</div>
|
</div>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</ajax:TabPanel>
|
</ajax:TabPanel>
|
||||||
|
|
||||||
|
<ajax:TabPanel ID="TabFonacot" runat="server" HeaderText="Fonacot">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="portlet light bordered xspadding" id="porletFonacot">
|
||||||
|
<div class="portlet-title">
|
||||||
|
<div class="caption font-green">
|
||||||
|
<i class="fa fa-home font-green"></i>
|
||||||
|
<span class="caption-subject bold uppercase">Fonacot</span>
|
||||||
|
</div>
|
||||||
|
<div class="tools">
|
||||||
|
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||||
|
</div>
|
||||||
|
<div class="actions">
|
||||||
|
<div class="btn-group">
|
||||||
|
<asp:LinkButton ID="LnkGuardarFonacot" OnClick="LnkGuardarFonacot_Click" runat="server" Text="Guardar" class="btn btn-primary" />
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="portlet-body form">
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-6">
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:TextBox CssClass="form-control" ID="TxtFonNumCredito" runat="server" MaxLength="20"></asp:TextBox>
|
||||||
|
<asp:Label AssociatedControlID="TxtFonNumCredito" runat="server" Text="Número de crédito"></asp:Label>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-6">
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:TextBox CssClass="form-control" ID="TxtFonDescripcion" runat="server" MaxLength="20"></asp:TextBox>
|
||||||
|
<asp:Label AssociatedControlID="TxtFonDescripcion" runat="server" Text="Descripción"></asp:Label>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-6">
|
||||||
|
<div class="">
|
||||||
|
<asp:Label AssociatedControlID="DdlFonTipoAplicacion" CssClass="ddlInfolabel" runat="server" Text="Tipo Aplicación"></asp:Label>
|
||||||
|
|
||||||
|
<asp:DropDownList ID="DdlFonTipoAplicacion" AutoPostBack="true" runat="server" Class="form-control select2me" Width="100%">
|
||||||
|
<asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Fonacot(Importe fijo)" Value="3001"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Fonacot(Por días Labarados)" Value="3002"></asp:ListItem>
|
||||||
|
</asp:DropDownList>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-6">
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:TextBox CssClass="form-control" ID="TxtFonValor" runat="server" MaxLength="20"></asp:TextBox>
|
||||||
|
<asp:Label AssociatedControlID="TxtFonValor" runat="server" Text="Valor"></asp:Label>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-6">
|
||||||
|
<div class="form-group form-md-line-input input-iconright " style="width: 120px !important; display: inline-block;">
|
||||||
|
<asp:TextBox CssClass="form-control" ID="TxtFonFechaInicio" runat="server" MaxLength="20"></asp:TextBox>
|
||||||
|
<asp:Label AssociatedControlID="TxtFonFechaInicio" runat="server" Text="Fecha Inicio"></asp:Label>
|
||||||
|
<asp:RequiredFieldValidator runat="server" ID="rfvFonFechaFEstFin" ControlToValidate="TxtFonFechaInicio" ErrorMessage="Debe ingresar una fecha" ValidationGroup="vgEstFon" />
|
||||||
|
<ajax:MaskedEditExtender ID="MEEFonFechaFEstFin" runat="server" TargetControlID="TxtFonFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
|
<ajax:CalendarExtender runat="server" ID="CEEFonFechaFEstFin" TargetControlID="TxtFonFechaInicio" PopupButtonID="LnkFonFechaFEstFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
|
</div>
|
||||||
|
<div style="display: inline-block; vertical-align: top; padding-top: 10px;">
|
||||||
|
<span class="input-group-btn ">
|
||||||
|
<asp:LinkButton ID="LnkFonFechaFEstFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-3">
|
||||||
|
<div class="">
|
||||||
|
<asp:Label AssociatedControlID="ChkFonacot" runat="server" Text="Estado (Activo)"></asp:Label>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="col-md-3">
|
||||||
|
<asp:CheckBox ID="ChkFonacot" CssClass="chksino" runat="server" Text=" " />
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</ajax:TabPanel>
|
||||||
<ajax:TabPanel ID="TabMovtosPermanentes" runat="server" HeaderText="Movimientos Permanentes">
|
<ajax:TabPanel ID="TabMovtosPermanentes" runat="server" HeaderText="Movimientos Permanentes">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<asp:UpdatePanel ID="UpMovtosPermanentes" UpdateMode="Conditional" runat="server">
|
<asp:UpdatePanel ID="UpMovtosPermanentes" UpdateMode="Conditional" runat="server">
|
||||||
|
|||||||
@@ -1049,6 +1049,28 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
ChkInfo.Checked = frow["estatus"].ToString().ToUpper().Contiene("1", "TRUE");
|
ChkInfo.Checked = frow["estatus"].ToString().ToUpper().Contiene("1", "TRUE");
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
frow = objper.DtResultados.FiltroPrimero("CveSistema =4");
|
||||||
|
TxtFonValor.Text = "";
|
||||||
|
DdlFonTipoAplicacion.SelectedValueExist("-1");
|
||||||
|
TxtFonDescripcion.Text = "";
|
||||||
|
TxtFonNumCredito.Text = "";
|
||||||
|
TxtFonFechaInicio.Text = "";
|
||||||
|
ChkFonacot.Checked = false;
|
||||||
|
if (frow != null)
|
||||||
|
{
|
||||||
|
|
||||||
|
TxtFonValor.Text = String.Format("{0:###,###.##}", frow["Importe"]);
|
||||||
|
DdlFonTipoAplicacion.SelectedValueExist(frow["TipoAplicacion"].ToString());
|
||||||
|
|
||||||
|
TxtFonDescripcion.Text = String.Format("{0}", frow["Descripcion02"]);
|
||||||
|
TxtFonNumCredito.Text = String.Format("{0}", frow["Descripcion01"]);
|
||||||
|
TxtFonFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow["FInicioAplicacion"]);
|
||||||
|
ChkFonacot.Checked = frow["estatus"].ToString().ToUpper().Contiene("1", "TRUE");
|
||||||
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
#endregion
|
#endregion
|
||||||
@@ -1168,7 +1190,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
string FechaInicio = "";
|
string FechaInicio = "";
|
||||||
string FechaFin = "";
|
string FechaFin = "";
|
||||||
string DiasRetardos = "";
|
string DiasRetardos = "";
|
||||||
|
string DiasIncapacidad = "";
|
||||||
{
|
{
|
||||||
DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal));
|
DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal));
|
||||||
if (drow != null)
|
if (drow != null)
|
||||||
@@ -1179,6 +1201,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
FechaInicio = string.Format("{0:dd/MM/yyyy}", drow["FechaInicio"]);
|
FechaInicio = string.Format("{0:dd/MM/yyyy}", drow["FechaInicio"]);
|
||||||
FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]);
|
FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]);
|
||||||
DiasRetardos = string.Format("{0}", drow["DiasRetardos"].ToString().ToEntero());
|
DiasRetardos = string.Format("{0}", drow["DiasRetardos"].ToString().ToEntero());
|
||||||
|
DiasIncapacidad = string.Format("{0}", drow["DiasIncapacidad"].ToString().ToEntero());
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
//string Codigo = "";
|
//string Codigo = "";
|
||||||
@@ -1195,6 +1218,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
NSS = drow["NSS"].ToString();
|
NSS = drow["NSS"].ToString();
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasIncapacidad", DiasIncapacidad));
|
||||||
parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Codigo", CodigoEmpleado));
|
parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Codigo", CodigoEmpleado));
|
||||||
parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("NombreCompleto", NombreCompleto));
|
parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("NombreCompleto", NombreCompleto));
|
||||||
parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("RFC", RFC));
|
parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("RFC", RFC));
|
||||||
@@ -3025,4 +3049,33 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
|||||||
UpMovtosPermanentes.Update();
|
UpMovtosPermanentes.Update();
|
||||||
}
|
}
|
||||||
#endregion
|
#endregion
|
||||||
|
|
||||||
|
protected void LnkGuardarFonacot_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
double importe = TxtFonValor.Text.ToDouble();
|
||||||
|
int TipoAplicacion = DdlFonTipoAplicacion.SelectedValue.ToEntero();
|
||||||
|
int NoPagos = 0;
|
||||||
|
double SaldoIni = 0;
|
||||||
|
string descripcion02 = TxtFonDescripcion.Text;
|
||||||
|
string descripcion01 = TxtFonNumCredito.Text;
|
||||||
|
string fecha = TxtFonFechaInicio.Text.Replace("_", "");
|
||||||
|
int estatus = ChkFonacot.Checked ? 1 : 0;
|
||||||
|
if (fecha.Length > 8)
|
||||||
|
fecha = fecha.ToDateTime().ToString("yyyy/MM/dd");
|
||||||
|
else
|
||||||
|
fecha = "";
|
||||||
|
bool continuar = true;
|
||||||
|
using (ClsRH ObjPersonal = new ClsRH())
|
||||||
|
{
|
||||||
|
if (!ObjPersonal.AddConcepto(SRCvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 4, descripcion01, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa))
|
||||||
|
continuar = false;
|
||||||
|
}
|
||||||
|
if (continuar)
|
||||||
|
{
|
||||||
|
LnkConsultar_Click(null, null);
|
||||||
|
mostrarConceptos();
|
||||||
|
Alert("Se actualizo el calculo de fonacot");
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
}
|
}
|
||||||
@@ -156,7 +156,7 @@
|
|||||||
<asp:CheckBox ID="AplicaNoAplica" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
|
<asp:CheckBox ID="AplicaNoAplica" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="col-md-4" style="display:none;">
|
<div class="col-md-4" >
|
||||||
<label for="AplicaFalta">Aplica Falta:</label><br />
|
<label for="AplicaFalta">Aplica Falta:</label><br />
|
||||||
<asp:CheckBox ID="AplicaFalta" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
|
<asp:CheckBox ID="AplicaFalta" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
|
||||||
</div>
|
</div>
|
||||||
@@ -164,16 +164,18 @@
|
|||||||
<label for="AplicaVacacion">Aplica Vacaciones:</label><br />
|
<label for="AplicaVacacion">Aplica Vacaciones:</label><br />
|
||||||
<asp:CheckBox ID="AplicaVacacion" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
|
<asp:CheckBox ID="AplicaVacacion" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
|
||||||
</div>
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="row">
|
||||||
<div class="col-md-4">
|
<div class="col-md-4">
|
||||||
<label for="AplicaIncapacidad">Aplica Incapacidad:</label><br />
|
<label for="AplicaIncapacidad">Aplica Incapacidad:</label><br />
|
||||||
<asp:CheckBox ID="AplicaIncapacidad" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
|
<asp:CheckBox ID="AplicaIncapacidad" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
|
||||||
</div>
|
</div>
|
||||||
</div>
|
|
||||||
<div class="row">
|
|
||||||
<div class="col-md-4">
|
<div class="col-md-4">
|
||||||
<label for="AplicaRetardo">Aplica Retardo:</label><br />
|
<label for="AplicaRetardo">Aplica Retardo:</label><br />
|
||||||
<asp:CheckBox ID="AplicaRetardo" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
|
<asp:CheckBox ID="AplicaRetardo" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
|
||||||
</div>
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="row">
|
||||||
<div class="col-md-4">
|
<div class="col-md-4">
|
||||||
<label for="AplicaAguinaldo">Aplica Aguinaldo:</label><br />
|
<label for="AplicaAguinaldo">Aplica Aguinaldo:</label><br />
|
||||||
<asp:CheckBox ID="AplicaAguinaldo" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
|
<asp:CheckBox ID="AplicaAguinaldo" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
|
||||||
@@ -208,7 +210,7 @@
|
|||||||
|
|
||||||
</asp:Content>
|
</asp:Content>
|
||||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||||
<script language="javascript" type="text/javascript">
|
<script type="text/javascript">
|
||||||
function C() {
|
function C() {
|
||||||
return confirm('¿Está seguro que desea eliminar el tipo de Asistencias/Inasistencias?');
|
return confirm('¿Está seguro que desea eliminar el tipo de Asistencias/Inasistencias?');
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -64,7 +64,7 @@ Partial Class RH_CatAsistenciasInasistencias
|
|||||||
BtnAgregarTiposDModal.Visible = True
|
BtnAgregarTiposDModal.Visible = True
|
||||||
CheckActiveSection.Visible = False
|
CheckActiveSection.Visible = False
|
||||||
AplicaNoAplica.Checked = False
|
AplicaNoAplica.Checked = False
|
||||||
AplicaFalta.Checked = False
|
AplicaFalta.Checked = True
|
||||||
AplicaVacacion.Checked = False
|
AplicaVacacion.Checked = False
|
||||||
AplicaIncapacidad.Checked = False
|
AplicaIncapacidad.Checked = False
|
||||||
AplicaRetardo.Checked = False
|
AplicaRetardo.Checked = False
|
||||||
@@ -78,6 +78,7 @@ Partial Class RH_CatAsistenciasInasistencias
|
|||||||
|
|
||||||
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click 'esta funcion es la que agrega un nuevo motivo de baja se activa con el boton "Agregar" de la ventana modal"
|
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click 'esta funcion es la que agrega un nuevo motivo de baja se activa con el boton "Agregar" de la ventana modal"
|
||||||
Dim ObjAsistenciasInasistencias As New ClsRH
|
Dim ObjAsistenciasInasistencias As New ClsRH
|
||||||
|
Dim chkAplicaFalta As Boolean = AplicaFalta.Checked
|
||||||
Dim chkAplicaNoAplica As Boolean = Not AplicaNoAplica.Checked
|
Dim chkAplicaNoAplica As Boolean = Not AplicaNoAplica.Checked
|
||||||
Dim chkAplicaVacacion As Boolean = AplicaVacacion.Checked
|
Dim chkAplicaVacacion As Boolean = AplicaVacacion.Checked
|
||||||
Dim chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked
|
Dim chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked
|
||||||
@@ -86,7 +87,7 @@ Partial Class RH_CatAsistenciasInasistencias
|
|||||||
Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked
|
Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked
|
||||||
|
|
||||||
|
|
||||||
If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaNoAplica, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaFalta, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
||||||
chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then
|
chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then
|
||||||
TipoTxt.Text = ""
|
TipoTxt.Text = ""
|
||||||
Alert("El nuevo Tipo Asistencias/Inasistencias se guardó correctamente.", TipoMensaje.MsgInformacion)
|
Alert("El nuevo Tipo Asistencias/Inasistencias se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||||
@@ -121,6 +122,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
|
|||||||
|
|
||||||
|
|
||||||
AplicaFalta.Checked = If(GvRow.DataKey("AplicaFalta") = "Aplica", True, False)
|
AplicaFalta.Checked = If(GvRow.DataKey("AplicaFalta") = "Aplica", True, False)
|
||||||
|
|
||||||
AplicaVacacion.Checked = If(GvRow.DataKey("AplicaVacacion") = "Aplica", True, False)
|
AplicaVacacion.Checked = If(GvRow.DataKey("AplicaVacacion") = "Aplica", True, False)
|
||||||
AplicaIncapacidad.Checked = If(GvRow.DataKey("AplicaIncapacidad") = "Aplica", True, False)
|
AplicaIncapacidad.Checked = If(GvRow.DataKey("AplicaIncapacidad") = "Aplica", True, False)
|
||||||
AplicaRetardo.Checked = If(GvRow.DataKey("AplicaRetardo") = "Aplica", True, False)
|
AplicaRetardo.Checked = If(GvRow.DataKey("AplicaRetardo") = "Aplica", True, False)
|
||||||
@@ -142,7 +144,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
|
|||||||
Dim ObjAsistenciasInasistencias As New ClsRH
|
Dim ObjAsistenciasInasistencias As New ClsRH
|
||||||
Dim Tipo As String = TipoTxt.Text.Trim
|
Dim Tipo As String = TipoTxt.Text.Trim
|
||||||
Dim Estatus As Boolean = ChkEstatus.Checked
|
Dim Estatus As Boolean = ChkEstatus.Checked
|
||||||
Dim AplicaFalta As Boolean = Not AplicaNoAplica.Checked
|
Dim ckAplicaFalta As Boolean = Not AplicaFalta.Checked
|
||||||
Dim AplicaAsistencia As Boolean = AplicaNoAplica.Checked
|
Dim AplicaAsistencia As Boolean = AplicaNoAplica.Checked
|
||||||
Dim CveAsistenciasInasistencias As Integer = CveTipoAsisAEditar 'aquí obtenemos el valor de la propiedad que utilizamos en el metodo "GvDatos_RowEditing"
|
Dim CveAsistenciasInasistencias As Integer = CveTipoAsisAEditar 'aquí obtenemos el valor de la propiedad que utilizamos en el metodo "GvDatos_RowEditing"
|
||||||
|
|
||||||
@@ -155,7 +157,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
|
|||||||
Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked
|
Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked
|
||||||
|
|
||||||
|
|
||||||
If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, AplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias,
|
If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, ckAplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias,
|
||||||
chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then
|
chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then
|
||||||
GvDatos.EditIndex = -1
|
GvDatos.EditIndex = -1
|
||||||
ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||||
|
|||||||
@@ -1727,6 +1727,7 @@
|
|||||||
</tr>
|
</tr>
|
||||||
</table>
|
</table>
|
||||||
<asp:GridView ID="GVAsistencia" runat="server" AutoGenerateColumns="false" DataKeyNames="CvePersonal,CveAsistencia" ShowHeader="false"
|
<asp:GridView ID="GVAsistencia" runat="server" AutoGenerateColumns="false" DataKeyNames="CvePersonal,CveAsistencia" ShowHeader="false"
|
||||||
|
data-heighterror="550"
|
||||||
EmptyDataText="No se encontraron registros de Asistencias con los filtros seleccionados" ToolTip="Listado de Asistencias" data-rows="0"
|
EmptyDataText="No se encontraron registros de Asistencias con los filtros seleccionados" ToolTip="Listado de Asistencias" data-rows="0"
|
||||||
CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-tableheader="#GvAsistenciaHeader" GridLines="None">
|
CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-tableheader="#GvAsistenciaHeader" GridLines="None">
|
||||||
<Columns>
|
<Columns>
|
||||||
|
|||||||
@@ -10,8 +10,8 @@ Imports Microsoft.Reporting.WebForms
|
|||||||
Imports System.Globalization
|
Imports System.Globalization
|
||||||
|
|
||||||
Partial Class RH_Personal
|
Partial Class RH_Personal
|
||||||
Inherits ClsPaginas
|
Inherits ClsPaginas
|
||||||
|
|
||||||
#Region "P R O P I E D A D E S"
|
#Region "P R O P I E D A D E S"
|
||||||
Private Property DTCuentasBancos As DataTable
|
Private Property DTCuentasBancos As DataTable
|
||||||
Get
|
Get
|
||||||
@@ -321,14 +321,14 @@ Partial Class RH_Personal
|
|||||||
Set(value As Integer)
|
Set(value As Integer)
|
||||||
ViewState("CveMovimientoDetalleUniforme") = value
|
ViewState("CveMovimientoDetalleUniforme") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "V A C A C I O N E S - P E R M I S O S"
|
#Region "V A C A C I O N E S - P E R M I S O S"
|
||||||
|
|
||||||
Private Property VacInicioPeriodo As Date
|
Private Property VacInicioPeriodo As Date
|
||||||
Get
|
Get
|
||||||
If ViewState("VacInicioPeriodo") Is Nothing Then
|
If ViewState("VacInicioPeriodo") Is Nothing Then
|
||||||
@@ -626,137 +626,137 @@ Partial Class RH_Personal
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
ViewState("Orden") = ""
|
ViewState("Orden") = ""
|
||||||
ViewState("Orden1") = ""
|
ViewState("Orden1") = ""
|
||||||
Session("FileUpload") = ""
|
Session("FileUpload") = ""
|
||||||
ViewState("Archivo") = ""
|
ViewState("Archivo") = ""
|
||||||
DTConsumos = Nothing
|
DTConsumos = Nothing
|
||||||
|
|
||||||
If UsuarioActual.CveRol = 1 Or UsuarioActual.CveEmpresa = 74 Then
|
If UsuarioActual.CveRol = 1 Or UsuarioActual.CveEmpresa = 74 Then
|
||||||
TabGES.Visible = True
|
TabGES.Visible = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
SetValues()
|
||||||
|
'SetPermisos()
|
||||||
|
|
||||||
|
CargaEscolaridad()
|
||||||
|
CargaEstadoCivil()
|
||||||
|
CargaDepartamento()
|
||||||
|
CargaPuestos()
|
||||||
|
CargaEstatusPersonal()
|
||||||
|
CargaGenero()
|
||||||
|
CargaMotivoBaja()
|
||||||
|
CargaRuta()
|
||||||
|
CargaTiposContrato()
|
||||||
|
CargaTipoPeriodo()
|
||||||
|
CargaTurno()
|
||||||
|
CargaJornadas()
|
||||||
|
CargaProyecto()
|
||||||
|
CargaTiposAsistencia()
|
||||||
|
'CargaMotivoHoraExtra()
|
||||||
|
CargaMotivosHorasExtras()
|
||||||
|
CargaSupervisores()
|
||||||
|
CargaMetodosPago()
|
||||||
|
CargaTipoRegimen()
|
||||||
|
CargaRiesgoPuesto()
|
||||||
|
CargaBancos()
|
||||||
|
CargaSubProyectosZona()
|
||||||
|
CargaEstados(1)
|
||||||
|
CargaMonedas()
|
||||||
|
CargaSuperioresOrganigrama()
|
||||||
|
CargaUsuariosNomina()
|
||||||
|
CargaComboUniformes()
|
||||||
|
CargaPermisos()
|
||||||
|
CargaCombosBuzon()
|
||||||
|
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
|
||||||
|
CargaDatos()
|
||||||
|
CargaDocumentacionFirmaDecontratos()
|
||||||
|
'LnkAddLicencias.Visible = True
|
||||||
|
'TabLicencias.Visible = True
|
||||||
|
'Configuración de Modalidad Update
|
||||||
|
BtnGuardar.Text = "Guardar Cambios"
|
||||||
|
LtlTitulo.Text = "Consulta de Personal:"
|
||||||
|
If UsuarioActual.CveRol = 1 Then
|
||||||
|
'ImgImprimir.Visible = True
|
||||||
|
ImgImprimirExpediente.Visible = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
SetValues()
|
'ImgAddObs.Attributes.Add("onclick", "javascript: PosicionaObjeto(this.id,'DivEventoBitacora',null,-250,-250); $('#DivEventoBitacora').show(1000); ")
|
||||||
'SetPermisos()
|
If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero - 1
|
||||||
|
|
||||||
CargaEscolaridad()
|
'Inicia Permisos
|
||||||
CargaEstadoCivil()
|
If UsuarioActual.TienePermisoProceso(228) Then
|
||||||
CargaDepartamento()
|
GVAsistencia.Columns(10).Visible = True
|
||||||
CargaPuestos()
|
End If
|
||||||
CargaEstatusPersonal()
|
'Fin Permisos
|
||||||
CargaGenero()
|
HlEvento.Visible = True
|
||||||
CargaMotivoBaja()
|
HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CvePersonal=" & CvePersonal & "&TB_iframe=true&height=370&width=600;"
|
||||||
CargaRuta()
|
|
||||||
CargaTiposContrato()
|
|
||||||
CargaTipoPeriodo()
|
|
||||||
CargaTurno()
|
|
||||||
CargaJornadas()
|
|
||||||
CargaProyecto()
|
|
||||||
CargaTiposAsistencia()
|
|
||||||
'CargaMotivoHoraExtra()
|
|
||||||
CargaMotivosHorasExtras()
|
|
||||||
CargaSupervisores()
|
|
||||||
CargaMetodosPago()
|
|
||||||
CargaTipoRegimen()
|
|
||||||
CargaRiesgoPuesto()
|
|
||||||
CargaBancos()
|
|
||||||
CargaSubProyectosZona()
|
|
||||||
CargaEstados(1)
|
|
||||||
CargaMonedas()
|
|
||||||
CargaSuperioresOrganigrama()
|
|
||||||
CargaUsuariosNomina()
|
|
||||||
CargaComboUniformes()
|
|
||||||
CargaPermisos()
|
|
||||||
CargaCombosBuzon()
|
|
||||||
CargaPermisosReemplazos()
|
|
||||||
|
|
||||||
|
CargaViaticosPersonal()
|
||||||
|
|
||||||
If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then
|
divBitacora.Visible = True
|
||||||
ViewState("CvePersonal") = Request("CvePersonal")
|
CargaGvBitacora()
|
||||||
'CvePersonal = ViewState("CvePersonal").ToString.ToEntero
|
Else
|
||||||
CargaDatos()
|
|
||||||
CargaDocumentacionFirmaDecontratos()
|
'Configuración de Modalidad Insert
|
||||||
'LnkAddLicencias.Visible = True
|
|
||||||
'TabLicencias.Visible = True
|
ImgAddObs.Visible = False
|
||||||
'Configuración de Modalidad Update
|
LblFechaCaptura.Text = Now.ToShortDateString()
|
||||||
BtnGuardar.Text = "Guardar Cambios"
|
LblUsuarioCapturo.Text = UsuarioActual.Usuario
|
||||||
LtlTitulo.Text = "Consulta de Personal:"
|
ViewState("CvePersonal") = -1
|
||||||
If UsuarioActual.CveRol = 1 Then
|
BtnEliminar.Visible = False
|
||||||
'ImgImprimir.Visible = True
|
CarcaConceptosNomina()
|
||||||
ImgImprimirExpediente.Visible = True
|
For Each Gvr As GridViewRow In GVConceptos.Rows
|
||||||
|
If CBool(Gvr.DataKey("Obligatorio")) Then
|
||||||
|
Gvr.FCCheckBox("ChkAplica").Checked = True
|
||||||
|
Else
|
||||||
|
Gvr.Visible = False
|
||||||
End If
|
End If
|
||||||
|
Next
|
||||||
|
'Inicia Permisos
|
||||||
|
'Fin Permisos
|
||||||
|
End If
|
||||||
|
CargaCuentasBancarias()
|
||||||
|
|
||||||
'ImgAddObs.Attributes.Add("onclick", "javascript: PosicionaObjeto(this.id,'DivEventoBitacora',null,-250,-250); $('#DivEventoBitacora').show(1000); ")
|
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
|
||||||
If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero - 1
|
|
||||||
|
|
||||||
'Inicia Permisos
|
CrearEstructuraFamiliares()
|
||||||
If UsuarioActual.TienePermisoProceso(228) Then
|
CargaFamiliares()
|
||||||
GVAsistencia.Columns(10).Visible = True
|
|
||||||
End If
|
|
||||||
'Fin Permisos
|
|
||||||
HlEvento.Visible = True
|
|
||||||
HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CvePersonal=" & CvePersonal & "&TB_iframe=true&height=370&width=600;"
|
|
||||||
|
|
||||||
CargaViaticosPersonal()
|
LIFamiliaresAcciones.Visible = True
|
||||||
|
DivFamiliares.Visible = True
|
||||||
|
DivPadres.Visible = False
|
||||||
|
|
||||||
divBitacora.Visible = True
|
|
||||||
CargaGvBitacora()
|
|
||||||
Else
|
|
||||||
|
|
||||||
'Configuración de Modalidad Insert
|
|
||||||
|
|
||||||
ImgAddObs.Visible = False
|
|
||||||
LblFechaCaptura.Text = Now.ToShortDateString()
|
|
||||||
LblUsuarioCapturo.Text = UsuarioActual.Usuario
|
|
||||||
ViewState("CvePersonal") = -1
|
|
||||||
BtnEliminar.Visible = False
|
|
||||||
CarcaConceptosNomina()
|
|
||||||
For Each Gvr As GridViewRow In GVConceptos.Rows
|
|
||||||
If CBool(Gvr.DataKey("Obligatorio")) Then
|
|
||||||
Gvr.FCCheckBox("ChkAplica").Checked = True
|
|
||||||
Else
|
|
||||||
Gvr.Visible = False
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
'Inicia Permisos
|
|
||||||
'Fin Permisos
|
|
||||||
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
|
|
||||||
|
|
||||||
'09/05/2018 - Si el Personal tiene consumos, muestra boton para generar reporte
|
|
||||||
If DTConsumos IsNot Nothing Then
|
|
||||||
If DTConsumos.Rows.Count > 0 Then
|
|
||||||
UpDescargaConsumos.Visible = True
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
CargaLicencias()
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
AgregarEventosAsincronosGvVacaciones()
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'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
|
||||||
|
|
||||||
|
'09/05/2018 - Si el Personal tiene consumos, muestra boton para generar reporte
|
||||||
|
If DTConsumos IsNot Nothing Then
|
||||||
|
If DTConsumos.Rows.Count > 0 Then
|
||||||
|
UpDescargaConsumos.Visible = True
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
CargaLicencias()
|
||||||
|
|
||||||
|
End If
|
||||||
|
AgregarEventosAsincronosGvVacaciones()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub CargaCuentasContables()
|
Private Sub CargaCuentasContables()
|
||||||
@@ -810,10 +810,10 @@ Partial Class RH_Personal
|
|||||||
Private Sub SetPermisos()
|
Private Sub SetPermisos()
|
||||||
'Permisos
|
'Permisos
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region "Carga Combos"
|
#Region "Carga Combos"
|
||||||
|
|
||||||
Private Sub CargaEscolaridad()
|
Private Sub CargaEscolaridad()
|
||||||
DdlEscolaridad.DataSource = GlobalDTEscolaridad
|
DdlEscolaridad.DataSource = GlobalDTEscolaridad
|
||||||
DdlEscolaridad.DataBind()
|
DdlEscolaridad.DataBind()
|
||||||
@@ -1042,16 +1042,16 @@ Partial Class RH_Personal
|
|||||||
Nom.Dispose()
|
Nom.Dispose()
|
||||||
GvNominas.DataBind()
|
GvNominas.DataBind()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "Asistencias"
|
#Region "Asistencias"
|
||||||
|
|
||||||
|
|
||||||
Protected Sub LnkEliminarAsistencia_Click(sender As Object, e As EventArgs)
|
Protected Sub LnkEliminarAsistencia_Click(sender As Object, e As EventArgs)
|
||||||
Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
||||||
Dim ObjRH As New ClsRH
|
Dim ObjRH As New ClsRH
|
||||||
@@ -1159,7 +1159,7 @@ Partial Class RH_Personal
|
|||||||
ObjPersonal.Dispose()
|
ObjPersonal.Dispose()
|
||||||
|
|
||||||
BtnConsultarAsistencia_Click(sender, e)
|
BtnConsultarAsistencia_Click(sender, e)
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
Private Sub CargaConsignacion()
|
Private Sub CargaConsignacion()
|
||||||
|
|
||||||
@@ -1758,11 +1758,11 @@ Partial Class RH_Personal
|
|||||||
DdlClienteAsignado.Attributes.Remove("onclick")
|
DdlClienteAsignado.Attributes.Remove("onclick")
|
||||||
DdlClienteAsistenciaC.Attributes.Remove("onclick")
|
DdlClienteAsistenciaC.Attributes.Remove("onclick")
|
||||||
DdlClienteAsistenciaA.Attributes.Remove("onclick")
|
DdlClienteAsistenciaA.Attributes.Remove("onclick")
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region "Buzón de Calidad"
|
#Region "Buzón de Calidad"
|
||||||
|
|
||||||
|
|
||||||
Private Sub CargaBuzonCalidad()
|
Private Sub CargaBuzonCalidad()
|
||||||
|
|
||||||
Dim ObjPersonal As New ClsRH
|
Dim ObjPersonal As New ClsRH
|
||||||
@@ -2098,12 +2098,12 @@ Partial Class RH_Personal
|
|||||||
End If
|
End If
|
||||||
GvBuzonCalidad.DataBind()
|
GvBuzonCalidad.DataBind()
|
||||||
UpDatos.Update()
|
UpDatos.Update()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "Resguardos"
|
#Region "Resguardos"
|
||||||
|
|
||||||
Protected Sub GvResguardos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvResguardos.RowDataBound
|
Protected Sub GvResguardos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvResguardos.RowDataBound
|
||||||
|
|
||||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
@@ -2126,13 +2126,13 @@ Partial Class RH_Personal
|
|||||||
e.Row.FCLiteral("LtlAF").Text = Liga & e.Row.FCLiteral("LtlAF").Text & "</a>"
|
e.Row.FCLiteral("LtlAF").Text = Liga & e.Row.FCLiteral("LtlAF").Text & "</a>"
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "Nómina"
|
#Region "Nómina"
|
||||||
|
|
||||||
|
|
||||||
Private Sub CarcaConceptosNomina()
|
Private Sub CarcaConceptosNomina()
|
||||||
Dim ObjPersonal As New ClsRH
|
Dim ObjPersonal As New ClsRH
|
||||||
If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
|
If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
|
||||||
@@ -2185,6 +2185,10 @@ Partial Class RH_Personal
|
|||||||
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001"))
|
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001"))
|
||||||
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002"))
|
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002"))
|
||||||
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija)", "5003"))
|
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija)", "5003"))
|
||||||
|
|
||||||
|
ElseIf (e.Row.DBCampo("CveSistema").ToString() = "4") Then
|
||||||
|
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Importe fijo)", "3001"))
|
||||||
|
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Por días Labarados)", "3002"))
|
||||||
Else
|
Else
|
||||||
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Saldo", "1"))
|
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Saldo", "1"))
|
||||||
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("No. Pagos", "2"))
|
e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("No. Pagos", "2"))
|
||||||
@@ -2193,30 +2197,30 @@ Partial Class RH_Personal
|
|||||||
|
|
||||||
|
|
||||||
If e.Row.DBCampo("TipoAplicacion").ToEntero > 5 Then
|
If e.Row.DBCampo("TipoAplicacion").ToEntero > 5 Then
|
||||||
TipoAplicacion = "2600"
|
TipoAplicacion = "2600"
|
||||||
End If
|
|
||||||
e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValueExist(TipoAplicacion)
|
|
||||||
End If
|
End If
|
||||||
|
e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValueExist(TipoAplicacion)
|
||||||
|
End If
|
||||||
|
|
||||||
'If e.Row.DBCampo("TipoCalculo") = "False" Then
|
'If e.Row.DBCampo("TipoCalculo") = "False" Then
|
||||||
' e.Row.FCTextBox("TxtImporte").Visible = False
|
' e.Row.FCTextBox("TxtImporte").Visible = False
|
||||||
' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False
|
' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False
|
||||||
'Else
|
'Else
|
||||||
' Select Case e.Row.DBCampo("TipoAplicacion").ToEntero
|
' Select Case e.Row.DBCampo("TipoAplicacion").ToEntero
|
||||||
' Case 1
|
' Case 1
|
||||||
' 'Saldo
|
' 'Saldo
|
||||||
' e.Row.FCLiteral("LtlSaldo").Visible = True
|
' e.Row.FCLiteral("LtlSaldo").Visible = True
|
||||||
' e.Row.FCTextBox("TxtSaldoIni").Visible = True
|
' e.Row.FCTextBox("TxtSaldoIni").Visible = True
|
||||||
' Case 2
|
' Case 2
|
||||||
' 'Numero de Pagos
|
' 'Numero de Pagos
|
||||||
' e.Row.FCLiteral("LtlNoPago").Visible = True
|
' e.Row.FCLiteral("LtlNoPago").Visible = True
|
||||||
' e.Row.FCTextBox("TxtNoPagos").Visible = True
|
' e.Row.FCTextBox("TxtNoPagos").Visible = True
|
||||||
' Case 2600
|
' Case 2600
|
||||||
' 'Permanente
|
' 'Permanente
|
||||||
' End Select
|
' End Select
|
||||||
'End If
|
'End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs)
|
||||||
@@ -2299,9 +2303,9 @@ Partial Class RH_Personal
|
|||||||
|
|
||||||
ObjPersonal.Dispose()
|
ObjPersonal.Dispose()
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
Protected Sub DdlTipoAplicacion_SelectedIndexChanged(sender As Object, e As EventArgs)
|
Protected Sub DdlTipoAplicacion_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||||
Dim Ddl As DropDownList = DirectCast(sender, DropDownList)
|
Dim Ddl As DropDownList = DirectCast(sender, DropDownList)
|
||||||
|
|
||||||
@@ -2383,10 +2387,10 @@ Partial Class RH_Personal
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region "G A S T O S X C O M P R O B A R"
|
#Region "G A S T O S X C O M P R O B A R"
|
||||||
|
|
||||||
Protected Sub RBLTipoGastos_SelectedIndexChanged(sender As Object, e As EventArgs)
|
Protected Sub RBLTipoGastos_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
If RBLTipoGastos.SelectedValue = "1" Then
|
If RBLTipoGastos.SelectedValue = "1" Then
|
||||||
@@ -2475,10 +2479,10 @@ Partial Class RH_Personal
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "E V E N T O - B I T A C O R A"
|
#Region "E V E N T O - B I T A C O R A"
|
||||||
Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
|
Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
|
||||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
@@ -2554,9 +2558,9 @@ Partial Class RH_Personal
|
|||||||
HttpContext.Current.Response.End()
|
HttpContext.Current.Response.End()
|
||||||
|
|
||||||
Archivo = Nothing
|
Archivo = Nothing
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
Protected Sub GvGxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGxC.RowDataBound, GvGxCHistorial.RowDataBound
|
Protected Sub GvGxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGxC.RowDataBound, GvGxCHistorial.RowDataBound
|
||||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
If e.Row.RowIndex = 1 Then
|
If e.Row.RowIndex = 1 Then
|
||||||
@@ -2609,7 +2613,7 @@ Partial Class RH_Personal
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
#Region "TAB BANCOS"
|
#Region "TAB BANCOS"
|
||||||
Private Sub CargaMonedas()
|
Private Sub CargaMonedas()
|
||||||
DdlMoneda.DataSource = GlobalDTMonedas
|
DdlMoneda.DataSource = GlobalDTMonedas
|
||||||
@@ -2757,8 +2761,8 @@ Partial Class RH_Personal
|
|||||||
|
|
||||||
ObjCuentasBancos.Dispose()
|
ObjCuentasBancos.Dispose()
|
||||||
CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
|
CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region "GRIDVIEW - CUENTAS BANCARIAS"
|
#Region "GRIDVIEW - CUENTAS BANCARIAS"
|
||||||
Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
|
Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
|
||||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
@@ -2909,11 +2913,11 @@ Partial Class RH_Personal
|
|||||||
CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
|
CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
|
||||||
ObjCuentasBancos.Dispose()
|
ObjCuentasBancos.Dispose()
|
||||||
CargaGvBitacora()
|
CargaGvBitacora()
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
#Region "O R D E N A M I E N T O"
|
#Region "O R D E N A M I E N T O"
|
||||||
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||||
Dim Orden As String = ""
|
Dim Orden As String = ""
|
||||||
@@ -2949,10 +2953,10 @@ Partial Class RH_Personal
|
|||||||
ViewState("Orden1") = Orden
|
ViewState("Orden1") = Orden
|
||||||
CargaGvAsistencias()
|
CargaGvAsistencias()
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
#Region "I M P R I M I R N O M I N A"
|
#Region "I M P R I M I R N O M I N A"
|
||||||
Protected Sub LbPDF_Click(sender As Object, e As EventArgs)
|
Protected Sub LbPDF_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
@@ -2960,11 +2964,11 @@ Partial Class RH_Personal
|
|||||||
|
|
||||||
ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "Recibo")
|
ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "Recibo")
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
#Region " ORGANIGRAMA "
|
#Region " ORGANIGRAMA "
|
||||||
Private Sub CargaSuperioresOrganigrama()
|
Private Sub CargaSuperioresOrganigrama()
|
||||||
Dim ObjRH As New ClsRH
|
Dim ObjRH As New ClsRH
|
||||||
@@ -2985,10 +2989,10 @@ Partial Class RH_Personal
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
#Region "I M P R I M I R "
|
#Region "I M P R I M I R "
|
||||||
Private Sub GenerarPDF(Optional Formato As String = "PDF")
|
Private Sub GenerarPDF(Optional Formato As String = "PDF")
|
||||||
|
|
||||||
@@ -3290,12 +3294,12 @@ Partial Class RH_Personal
|
|||||||
End Sub
|
End Sub
|
||||||
Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
|
||||||
GenerarPDFGastosXComp("Excel")
|
GenerarPDFGastosXComp("Excel")
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "D O C U M E N T A C I O N C O N T R A T O S"
|
#Region "D O C U M E N T A C I O N C O N T R A T O S"
|
||||||
|
|
||||||
Private Sub CargaDocumentacionFirmaDecontratos()
|
Private Sub CargaDocumentacionFirmaDecontratos()
|
||||||
|
|
||||||
If CvePersonal > 0 Then
|
If CvePersonal > 0 Then
|
||||||
@@ -3986,10 +3990,10 @@ Partial Class RH_Personal
|
|||||||
|
|
||||||
RegistraScript("Download('" & baseUrl & "')")
|
RegistraScript("Download('" & baseUrl & "')")
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
Protected Sub LBCancelar_Click(sender As Object, e As EventArgs)
|
Protected Sub LBCancelar_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
Dim FolioFiscal = CType(sender, LinkButton).CommandArgument.ToString
|
Dim FolioFiscal = CType(sender, LinkButton).CommandArgument.ToString
|
||||||
@@ -4010,10 +4014,10 @@ Partial Class RH_Personal
|
|||||||
Obj = Nothing
|
Obj = Nothing
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region "VACACIONES"
|
#Region "VACACIONES"
|
||||||
|
|
||||||
Private Sub CargaVacaciones()
|
Private Sub CargaVacaciones()
|
||||||
|
|
||||||
Dim objRH As New ClsRH
|
Dim objRH As New ClsRH
|
||||||
@@ -4703,12 +4707,12 @@ Partial Class RH_Personal
|
|||||||
|
|
||||||
objRH.Dispose()
|
objRH.Dispose()
|
||||||
Return ListaTags
|
Return ListaTags
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "CURSOS"
|
#Region "CURSOS"
|
||||||
|
|
||||||
Private Sub CargaCursos()
|
Private Sub CargaCursos()
|
||||||
|
|
||||||
Dim objRH As New ClsRH
|
Dim objRH As New ClsRH
|
||||||
@@ -4805,11 +4809,11 @@ Partial Class RH_Personal
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "UNIFORMES"
|
#Region "UNIFORMES"
|
||||||
Private Sub CargaComboUniformes()
|
Private Sub CargaComboUniformes()
|
||||||
|
|
||||||
@@ -4934,12 +4938,12 @@ Partial Class RH_Personal
|
|||||||
CargaUniformesPersonal()
|
CargaUniformesPersonal()
|
||||||
End If
|
End If
|
||||||
ObjInv.Dispose()
|
ObjInv.Dispose()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "CARGAR IMAGEN"
|
#Region "CARGAR IMAGEN"
|
||||||
Private Sub LnkSubirFacturas_Click(sender As Object, e As EventArgs) Handles LnkSubirFacturas.Click
|
Private Sub LnkSubirFacturas_Click(sender As Object, e As EventArgs) Handles LnkSubirFacturas.Click
|
||||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
|
RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
|
||||||
@@ -4963,10 +4967,10 @@ Partial Class RH_Personal
|
|||||||
TxtCargaImg.Text = "[]"
|
TxtCargaImg.Text = "[]"
|
||||||
UpAddArchivo.Update()
|
UpAddArchivo.Update()
|
||||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo"))
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo"))
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region "PERMISOS"
|
#Region "PERMISOS"
|
||||||
|
|
||||||
Public Sub CargaPermisos()
|
Public Sub CargaPermisos()
|
||||||
|
|
||||||
Dim ObjRH As New ClsRH
|
Dim ObjRH As New ClsRH
|
||||||
@@ -5092,57 +5096,57 @@ Partial Class RH_Personal
|
|||||||
ObjRH.Dispose()
|
ObjRH.Dispose()
|
||||||
|
|
||||||
CargaPermisos()
|
CargaPermisos()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
'Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click
|
'Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click
|
||||||
' Preguntar si existe en temporales
|
' Preguntar si existe en temporales
|
||||||
' If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString) Then
|
' If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString) Then
|
||||||
' Dim Extension As String = Path.GetExtension(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString)
|
' Dim Extension As String = Path.GetExtension(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString)
|
||||||
' If Not Directory.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
|
' If Not Directory.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
|
||||||
' If File.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
|
' If File.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
|
||||||
' File.Delete(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
|
' File.Delete(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
|
||||||
' File.Move(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
|
' File.Move(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
|
||||||
' Else
|
' Else
|
||||||
' File.Move(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
|
' File.Move(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension)
|
||||||
' End If
|
' End If
|
||||||
|
|
||||||
' Else
|
' Else
|
||||||
' Imagen Default
|
' Imagen Default
|
||||||
' If ImgPersonal.ImageUrl = "../Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" Then
|
' If ImgPersonal.ImageUrl = "../Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" Then
|
||||||
' ImgPersonal.ImageUrl = "/Imagenes/SinImagen.jpg"
|
' ImgPersonal.ImageUrl = "/Imagenes/SinImagen.jpg"
|
||||||
' End If
|
' End If
|
||||||
' End If
|
' End If
|
||||||
|
|
||||||
|
|
||||||
' Si existe mover de temporales a .../Empresas/RH/Personal, SINO Session("FileUpload") = ""
|
' Si existe mover de temporales a .../Empresas/RH/Personal, SINO Session("FileUpload") = ""
|
||||||
' Si existe en: .../Empresas/RH/Personal Guardar, SINO Session("FileUpload") = ""
|
' Si existe en: .../Empresas/RH/Personal Guardar, SINO Session("FileUpload") = ""
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
' If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\" & Session("FileUpload").ToString) Then
|
' If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\" & Session("FileUpload").ToString) Then
|
||||||
' Dim Extension As String = Path.GetExtension(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal" & Session("FileUpload").ToString)
|
' Dim Extension As String = Path.GetExtension(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal" & Session("FileUpload").ToString)
|
||||||
' If Not Directory.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
|
' If Not Directory.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal")
|
||||||
' Session("FileUpload") = ""
|
' Session("FileUpload") = ""
|
||||||
|
|
||||||
' If File.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
|
' If File.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
|
||||||
' ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & CvePersonal & Extension
|
' ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & CvePersonal & Extension
|
||||||
|
|
||||||
' End If
|
' End If
|
||||||
' End If
|
' End If
|
||||||
'End Sub
|
'End Sub
|
||||||
|
|
||||||
#Region "Consumos"
|
#Region "Consumos"
|
||||||
|
|
||||||
Private Sub Consumos()
|
Private Sub Consumos()
|
||||||
|
|
||||||
Dim ObjCompras As New ClsCompras
|
Dim ObjCompras As New ClsCompras
|
||||||
@@ -5221,10 +5225,10 @@ Partial Class RH_Personal
|
|||||||
End Sub
|
End Sub
|
||||||
Protected Sub LnkImprimirPDFConsumo_Click(sender As Object, e As EventArgs)
|
Protected Sub LnkImprimirPDFConsumo_Click(sender As Object, e As EventArgs)
|
||||||
GenerarPDFConsumo()
|
GenerarPDFConsumo()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region ""
|
#Region ""
|
||||||
Protected Sub LbMail_Click(sender As Object, e As EventArgs)
|
Protected Sub LbMail_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
@@ -5308,9 +5312,9 @@ Partial Class RH_Personal
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "VIATICOS"
|
#Region "VIATICOS"
|
||||||
Protected Sub CargaViaticosPersonal()
|
Protected Sub CargaViaticosPersonal()
|
||||||
Dim ObjBancos As ClsBancos = New ClsBancos
|
Dim ObjBancos As ClsBancos = New ClsBancos
|
||||||
@@ -5345,11 +5349,11 @@ Partial Class RH_Personal
|
|||||||
If (e.Row.RowType = DataControlRowType.Footer) Then
|
If (e.Row.RowType = DataControlRowType.Footer) Then
|
||||||
e.Row.FCLiteral("LtTotalImporte").Text = DTViaticosDetalle.SUM("Importe").FormatoNumero()
|
e.Row.FCLiteral("LtTotalImporte").Text = DTViaticosDetalle.SUM("Importe").FormatoNumero()
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "BITACORA"
|
#Region "BITACORA"
|
||||||
|
|
||||||
Private Sub CargaGvBitacora()
|
Private Sub CargaGvBitacora()
|
||||||
|
|
||||||
If CvePersonal > 0 Then
|
If CvePersonal > 0 Then
|
||||||
@@ -5362,12 +5366,12 @@ Partial Class RH_Personal
|
|||||||
UpHistorialModificacion.Update()
|
UpHistorialModificacion.Update()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "PAGO DE FACTURAS"
|
#Region "PAGO DE FACTURAS"
|
||||||
|
|
||||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
||||||
CargaPagoFactura()
|
CargaPagoFactura()
|
||||||
UpnHistorial.Update()
|
UpnHistorial.Update()
|
||||||
@@ -5380,10 +5384,10 @@ Partial Class RH_Personal
|
|||||||
End If
|
End If
|
||||||
ObjRH.Dispose()
|
ObjRH.Dispose()
|
||||||
GVPagoFactura.DataBind()
|
GVPagoFactura.DataBind()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
Protected Sub BtnSaldoInicial_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnSaldoInicial_Click(sender As Object, e As EventArgs)
|
||||||
Dim SaldoInicial As Double = TxtSaldoInicial.Text.ToDouble()
|
Dim SaldoInicial As Double = TxtSaldoInicial.Text.ToDouble()
|
||||||
Dim Fecha As DateTime = TxtFechaSaldo.Text.ToDateTime()
|
Dim Fecha As DateTime = TxtFechaSaldo.Text.ToDateTime()
|
||||||
@@ -5399,8 +5403,8 @@ Partial Class RH_Personal
|
|||||||
End Sub
|
End Sub
|
||||||
Private Function AgregarSaldoInicial(SaldoInicial As Double, Fecha As DateTime, CveMoneda As Integer, ObjMov As ClsContabilidad) As Integer
|
Private Function AgregarSaldoInicial(SaldoInicial As Double, Fecha As DateTime, CveMoneda As Integer, ObjMov As ClsContabilidad) As Integer
|
||||||
Return ObjMov.AddPrePolizas("RH/Personal", 13, SaldoInicial, SaldoInicial, CveMoneda, Fecha, "Saldo Inicial", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
Return ObjMov.AddPrePolizas("RH/Personal", 13, SaldoInicial, SaldoInicial, CveMoneda, Fecha, "Saldo Inicial", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
#Region "L I C E N C I A S"
|
#Region "L I C E N C I A S"
|
||||||
Public Sub CargaLicencias()
|
Public Sub CargaLicencias()
|
||||||
If CvePersonal > 0 Then
|
If CvePersonal > 0 Then
|
||||||
@@ -5547,7 +5551,7 @@ Partial Class RH_Personal
|
|||||||
End If
|
End If
|
||||||
RegistraScript("$('#DivAddLicencias').modal('hide');")
|
RegistraScript("$('#DivAddLicencias').modal('hide');")
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
Protected Sub BtnPDFResguardo_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnPDFResguardo_Click(sender As Object, e As EventArgs)
|
||||||
GenerarPDFResguardosAF()
|
GenerarPDFResguardosAF()
|
||||||
@@ -5682,7 +5686,7 @@ Partial Class RH_Personal
|
|||||||
|
|
||||||
|
|
||||||
Protected Sub BtnAgregarFamiliar_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliar.Click
|
Protected Sub BtnAgregarFamiliar_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliar.Click
|
||||||
resetFormFamiliares()
|
ResetFormFamiliares()
|
||||||
RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static', keyboard: false});")
|
RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static', keyboard: false});")
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user