diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index a98a423b0..5dbc2169f 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -172,6 +172,25 @@ Public Class ClsNominas #Region "ClsNominas_Nominas" + Public Function GetCalculoAguinaldo(ejercicio As Int32, cveEmpresa As Int32, importe As Double, CveTipoPeriodo As Integer, CvePeriodo As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_NomCalcularAguinaldo", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + .Add("@Ejercicio", SqlDbType.Int).Value = ejercicio + .Add("@Importe", SqlDbType.Float).Value = importe + .Add("@CveTipoPeriodo", SqlDbType.Float).Value = CveTipoPeriodo + .Add("@CvePeriodo", SqlDbType.Float).Value = CvePeriodo + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al Realizar el calculo del Aguinaldo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function GetCalculoUtilidades(ejercicio As Int32, cveEmpresa As Int32, importe As Double, importeA As Double) As Boolean Dim retorno As Boolean = False DataAdapter("PA_NomCalcularUtilidades", CommandType.StoredProcedure) @@ -1890,6 +1909,102 @@ Public Class ClsNominas End Try Return retorno End Function +#Region "MovtosPermanentes" + + Public Function GetMovtoPermanente(CveEmpresa As Int32, CvePersonal As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_GetMovtoPermanente", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As String, estatus As Boolean) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@cveConcepto", SqlDbType.Int).Value = (cveConcepto) + .Add("@cvePersonal", SqlDbType.Int).Value = (cvePersonal) + .Add("@descripcion", SqlDbType.VarChar).Value = (descripcion) + .Add("@tipoDescuento", SqlDbType.Int).Value = (tipoDescuento) + .Add("@valor", SqlDbType.Float).Value = (valor) + .Add("@vecesAplicar", SqlDbType.Int).Value = (vecesAplicar) + .Add("@montoLimite", SqlDbType.Decimal).Value = (montoLimite) + .Add("@fechaInicioAplicacion", SqlDbType.VarChar).Value = (fechaInicioAplicacion) + .Add("@estatus", SqlDbType.Bit).Value = (estatus) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al agregar los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al agregar los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As String, estatus As Boolean) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_UpMovtoPermanente", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@cveMovtoPermanente", SqlDbType.Int).Value = (cveMovtoPermanente) + .Add("@cveConcepto", SqlDbType.Int).Value = (cveConcepto) + .Add("@cvePersonal", SqlDbType.Int).Value = (cvePersonal) + .Add("@descripcion", SqlDbType.VarChar).Value = (descripcion) + .Add("@tipoDescuento", SqlDbType.Int).Value = (tipoDescuento) + .Add("@valor", SqlDbType.Float).Value = (valor) + .Add("@vecesAplicar", SqlDbType.Int).Value = (vecesAplicar) + .Add("@montoLimite", SqlDbType.Decimal).Value = (montoLimite) + .Add("@fechaInicioAplicacion", SqlDbType.VarChar).Value = (fechaInicioAplicacion) + .Add("@estatus", SqlDbType.Bit).Value = (estatus) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al agregar los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al agregar los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function RemoveMovtoPermanente(cveMovtoPermanente As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RemoveMovtoPermanente", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@cveMovtoPermanente", SqlDbType.Int).Value = (cveMovtoPermanente) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al agregar los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al agregar los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function +#End Region + #Region "IDisposable Support" ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 022ef5ff0..b072d702b 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -131,7 +131,8 @@ Public Class ClsRH Return Retorno End Function - Public Function AddAsistenciasInasistencias(Tipo As String, AplicaFalta As Boolean, AplicaAsistencia As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Public Function AddAsistenciasInasistencias(Tipo As String, AplicaFalta As Boolean, AplicaAsistencia As Boolean, CveUsuario As Integer, CveEmpresa As Integer, + chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo As Boolean, chkAplicaAguinaldo As Boolean, chkAplicaUtilidades As Boolean) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_AsistenciasInasistenciasAdd") @@ -143,6 +144,12 @@ Public Class ClsRH .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@AplicaVacacion", SqlDbType.Bit).Value = chkAplicaVacacion + .Add("@AplicaIncapacidad", SqlDbType.Bit).Value = chkAplicaIncapacidad + .Add("@AplicaRetardo", SqlDbType.Bit).Value = chkAplicaRetardo + .Add("@AplicaAguinaldo", SqlDbType.Bit).Value = chkAplicaAguinaldo + .Add("@AplicaUtilidades", SqlDbType.Bit).Value = chkAplicaUtilidades + End With Try @@ -161,7 +168,8 @@ Public Class ClsRH Return Retorno End Function - Public Function UpdateAsistenciasInasistencias(Tipo As String, AplicaFalta As Boolean, AplicaAsistencia As Boolean, Estatus As Boolean, CveAI As Integer) As Boolean + Public Function UpdateAsistenciasInasistencias(Tipo As String, AplicaFalta As Boolean, AplicaAsistencia As Boolean, Estatus As Boolean, CveAI As Integer, +chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo As Boolean, chkAplicaAguinaldo As Boolean, chkAplicaUtilidades As Boolean) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_AsistenciasInasistenciasUpdate") @@ -172,6 +180,12 @@ Public Class ClsRH .Add("@AplicaAsistencia", SqlDbType.Bit).Value = AplicaAsistencia .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@CveAsistenciasInasistencias", SqlDbType.Int).Value = CveAI + + .Add("@AplicaVacacion", SqlDbType.Bit).Value = chkAplicaVacacion + .Add("@AplicaIncapacidad", SqlDbType.Bit).Value = chkAplicaIncapacidad + .Add("@AplicaRetardo", SqlDbType.Bit).Value = chkAplicaRetardo + .Add("@AplicaAguinaldo", SqlDbType.Bit).Value = chkAplicaAguinaldo + .Add("@AplicaUtilidades", SqlDbType.Bit).Value = chkAplicaUtilidades End With Try diff --git a/Nomina/Finiquito.aspx b/Nomina/Finiquito.aspx index 44af81510..1391076fe 100644 --- a/Nomina/Finiquito.aspx +++ b/Nomina/Finiquito.aspx @@ -190,7 +190,7 @@
- +
diff --git a/Nomina/Nomina2.aspx b/Nomina/Nomina2.aspx index a07420312..6b451579c 100644 --- a/Nomina/Nomina2.aspx +++ b/Nomina/Nomina2.aspx @@ -68,15 +68,15 @@
  • Cargar Nomina
    • -
  • +
  • Tablas
    • - -
  • - Lista de Raya -
    • + +
  • + Lista de Raya +
    • @@ -782,7 +782,157 @@ + + +
    +
    +
    +
    +
    + + Movimientos +
    +
    + +
    + +
    +
    + Agregar +
    +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    + +
    +
    + + + +
    +
    + +
    +
    +
    + +
    + + + +
    +
    +
    +
    + + + + + + +
    +
    +
    +
    + + +
    +
    +
    +
    + + + + + + + +
    +
    +
    +
    +
    +
    + + + +
    +
    + +
    + + + +
    +     + +
    + + + +
    +     + +
    +
    + + + + + + + +
    + +
    +
    + +
    + +
    Activo?
    +
    +
    +
    + +
    + Agregar + Actualizar +
    +
    +     + +
    +
    +     +     @@ -810,7 +960,7 @@
    - + @@ -820,18 +970,18 @@ - + - - + + - + @@ -851,7 +1001,7 @@ - + @@ -861,7 +1011,7 @@ - + @@ -899,7 +1049,7 @@
    -<%-- -recuerda Solo editar de las tercer fila en adelante.
    + <%-- -recuerda Solo editar de las tercer fila en adelante.
    -No se debe editar el nombre de la hoja 'Nomina'.
    -la columna para referenciar al emplado es la primer columna 'Codigo', la columna empleado es solo es informativa.
    -si desea agregar un empleado que no se encuentre en la lista solo debe de ingresar fila y el codigo del empleado.
    diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs index 8bdc089db..edfb71fbc 100644 --- a/Nomina/Nomina2.aspx.cs +++ b/Nomina/Nomina2.aspx.cs @@ -93,6 +93,17 @@ public partial class Nomina_Nomina2 : ClsPaginas set { ViewState["CvePeriodoSeleccionado"] = value; } } + + protected int CcveMovtoPermanente + { + get + { + if (ViewState["CcveMovtoPermanente"] == null) { return 0; } + else { return ViewState["CcveMovtoPermanente"].ToString().ToEntero(); } + } + + set { ViewState["CcveMovtoPermanente"] = value; } + } #endregion protected void Page_Load(object sender, EventArgs e) { @@ -912,6 +923,8 @@ public partial class Nomina_Nomina2 : ClsPaginas LblEmpleado.Text = Nombre; TabPersonal.ActiveTabIndex = 0; mostrarConceptos(); + pnlAddupMovto.Visible = false; + CargaMovtoPermanente(); RegistraScript("$('#ModalConceptos').modal();"); } private void mostrarConceptos() @@ -1461,7 +1474,7 @@ public partial class Nomina_Nomina2 : ClsPaginas string strFechaFin = ""; string strTipo = ""; string strPeriodoNum = ""; - string strUbicacion = string.Format ("{0}, {1}, {2}, {3}",UsuarioActual.Empresa.Direccion, UsuarioActual.Empresa.Colonia, UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado ); + string strUbicacion = string.Format("{0}, {1}, {2}, {3}", UsuarioActual.Empresa.Direccion, UsuarioActual.Empresa.Colonia, UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado); string strRegPatImss = ""; string strRFC = UsuarioActual.Empresa.RFC; string strfecha = DateTime.Now.ToString("dd/MMM/yyyy", System.Globalization.CultureInfo.CreateSpecificCulture("es-MX")); @@ -1472,11 +1485,11 @@ public partial class Nomina_Nomina2 : ClsPaginas DataRow rperiodo = dtPeriodos.FiltroPrimero(string.Format("CvePeriodo = {0}", CvePeriodo)); if (rperiodo != null) { - strFechaInicio =string.Format("{0:dd/MM/yyyy}", rperiodo["FechaInicio"]); + strFechaInicio = string.Format("{0:dd/MM/yyyy}", rperiodo["FechaInicio"]); strFechaFin = string.Format("{0:dd/MM/yyyy}", rperiodo["FechaFin"]); strPeriodoNum = rperiodo["Numero"].ToString(); - strTipo = DdlTipoPeriodo.SelectedItem.Text ; + strTipo = DdlTipoPeriodo.SelectedItem.Text; } listaTags.Add(new TagsDocumentos("[Empresa]", strEmpresa)); listaTags.Add(new TagsDocumentos("[FechaInicio]", strFechaInicio)); @@ -1526,7 +1539,7 @@ public partial class Nomina_Nomina2 : ClsPaginas string SalarioDiariop = ""; string FechaIngreso = "", Nombre = "", DiasLaborados = "";*/ - paragraphh = new GemBox.Document.Paragraph(document,string.Format("{1} : {0}", drow2["Nombre"].ToString(), drow2["Codigo"].ToString())); cell.Blocks.Add(paragraphh); + paragraphh = new GemBox.Document.Paragraph(document, string.Format("{1} : {0}", drow2["Nombre"].ToString(), drow2["Codigo"].ToString())); cell.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Style = styilostrong; paragraphh = new GemBox.Document.Paragraph(document, string.Format("Fecha Ingr:{0:dd/MM/yyyy}, S.D.:{1:N2} ", drow2["FechaIngreso"], drow2["SalarioDiario"])); cell.Blocks.Add(paragraphh); @@ -1625,7 +1638,7 @@ public partial class Nomina_Nomina2 : ClsPaginas CveConcepto = rowconcept["CveConcepto"].ToString().ToEntero(); importe = string.Format("${0:N2}", rowconcept["Importe"]); valor = string.Format("{0:#,###.##}", rowconcept["Valor"]); - + Concepto = ""; rowconcept = dtConceptos.FiltroPrimero(string.Format("CveConcepto={0}", CveConcepto)); @@ -1668,7 +1681,7 @@ public partial class Nomina_Nomina2 : ClsPaginas - CveConcepto = 0; Concepto = ""; importe = ""; Codigo = "";valor = ""; + CveConcepto = 0; Concepto = ""; importe = ""; Codigo = ""; valor = ""; rowconcept = dtempleadosConceptos.FiltroPrimero(string.Format("CvePersonal={0} AND Tipo =2 AND Fila ={1}", CvePersonal, cindex)); @@ -2122,7 +2135,7 @@ public partial class Nomina_Nomina2 : ClsPaginas paragraphh = new GemBox.Document.Paragraph(document, string.Format("{0:N0}", dtempleados.COUNT("CvePersonal", string.Format("CveDepartamento={0}", CveDepartamento)))); cellx.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Alignment = GemBox.Document.HorizontalAlignment.Right; paragraphh.ParagraphFormat.Style = styilo; } - + { cellx = new GemBox.Document.Tables.TableCell(document); rowx.Cells.Add(cellx); cellx.CellFormat.PreferredWidth = new GemBox.Document.Tables.TableWidth(3, GemBox.Document.Tables.TableWidthUnit.Percentage); @@ -2556,7 +2569,7 @@ public partial class Nomina_Nomina2 : ClsPaginas //basura para espacio { rowx = new GemBox.Document.Tables.TableRow(document); - tconeptos.Rows.Add(rowx); + tconeptos.Rows.Add(rowx); { cellx = new GemBox.Document.Tables.TableCell(document); rowx.Cells.Add(cellx); cellx.CellFormat.PreferredWidth = new GemBox.Document.Tables.TableWidth(3, GemBox.Document.Tables.TableWidthUnit.Percentage); @@ -2852,4 +2865,164 @@ public partial class Nomina_Nomina2 : ClsPaginas { ImprimirReporte(); } + #region Movtos Permanentes + + protected void CargaTipoConcepto() + { + //DdlTipo.Items.Insert(0, new ListItem("Percepciones", "P")); + //DdlTipo.Items.Insert(1, new ListItem("Deducciones", "D")); + //DdlTipo.Items.Insert(2, new ListItem("Obligaciones", "O")); + //DdlTipo.SelectedValueExist("-1"); + CargaConcepto(); + } + + protected void CargaConcepto() + { + DdlConcepto.Items.Clear(); + if (DdlTipo.SelectedValue == "-1") + { + DdlConcepto.DataSource = get_GlobalDTNomConceptos(UsuarioActual.CveEmpresa); + } + else + { + DdlConcepto.DataSource = get_GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("Tipo ='{0}'", DdlTipo.SelectedValue)); + } + DdlConcepto.DataBind(); + DdlConcepto.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlConcepto.SelectedValueExist("-1"); + } + private void CargaMovtoPermanente() + { + + using (ClsNominas ObjMovt = new ClsNominas()) + { + ObjMovt.GetMovtoPermanente(UsuarioActual.CveEmpresa, SRCvePersonal); + GVMovtoPermanente.DataSource = ObjMovt.DtResultados; + + } + GVMovtoPermanente.DataBind(); + UpMovtosPermanentes.Update(); + } + protected void DdlTipo_SelectedIndexChanged(object sender, EventArgs e) + { + CargaConcepto(); + } + + protected void LnkAddMovtoPermanente_Click(object sender, EventArgs e) + { + CargaConcepto(); + DdlTipoDescto_SelectedIndexChanged(null, null); + pnlAddupMovto.Visible = true; + LnkAddMovto.Visible = true; + LnkUpMovto.Visible = false; + LtlMovtoPermanenteaddup.Text = "Agregar Movimiento"; + + TxtDescripcion.Text = ""; + TxtValor.Text = ""; + TxtVecesAplicar.Text = ""; + TxtMontoLimite.Text = ""; + TxtFechaAplicacion.Text = ""; + ChkEstatus.Visible = true; + } + + protected void LnkAddMovto_Click(object sender, EventArgs e) + { + int cveConcepto = DdlConcepto.SelectedValue.ToEntero(); + string descripcion = TxtDescripcion.Text; + int tipoDescuento = DdlTipoDescto.SelectedValue.ToEntero(); + double valor = TxtValor.Text.ToDouble(); + int vecesAplicar = TxtVecesAplicar.Text.ToEntero(); + decimal montoLimite = TxtMontoLimite.Text.ToDecimal(); + string fechaInicioAplicacion = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd"); + bool estatus = ChkEstatus.Checked; + bool Continuar; + using (ClsNominas ObjMovt = new ClsNominas()) + { + Continuar = ObjMovt.AddMovtoPermanente(cveConcepto, SRCvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus); + + } + if (Continuar) + { + this.RegistraScript("$('#DModalMovtoPermanente').modal('hide');"); + CargaMovtoPermanente(); + UpMovtosPermanentes.Update(); + this.Alert("El Movto_Permanente Se ha agregado"); + } + + } + + protected void LnkUpMovto_Click(object sender, EventArgs e) + { + int cveConcepto = DdlConcepto.SelectedValue.ToEntero(); + string descripcion = TxtDescripcion.Text; + int tipoDescuento = DdlTipoDescto.SelectedValue.ToEntero(); + double valor = TxtValor.Text.ToDouble(); + int vecesAplicar = TxtVecesAplicar.Text.ToEntero(); + decimal montoLimite = TxtMontoLimite.Text.ToDecimal(); + string fechaInicioAplicacion = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd"); + bool estatus = ChkEstatus.Checked; + bool Continuar; + using (ClsNominas ObjMovt = new ClsNominas()) + { + Continuar = ObjMovt.UpMovtoPermanente(CcveMovtoPermanente, cveConcepto, SRCvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus); + + } + if (Continuar) + { + this.RegistraScript("$('#DModalMovtoPermanente').modal('hide');"); + CargaMovtoPermanente(); + UpMovtosPermanentes.Update(); + this.Alert("El Movto_Permanente Se ha agregado"); + } + + } + + protected void DdlTipoDescto_SelectedIndexChanged(object sender, EventArgs e) + { + pnlMonto.Visible = DdlTipoDescto.SelectedValue.ToEntero() > 2; + pnlVecesAplicar.Visible = DdlTipoDescto.SelectedValue.ToEntero() < 3; + } + + protected void LnkEditarMovtoPermanente_Click(object sender, EventArgs e) + { + + GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + CcveMovtoPermanente = gvRow.DataKey("CveMovtoPermanente").ToEntero(); + int cveConcepto = gvRow.DataKey("CveConcepto").ToEntero(); + int cvePersonal = gvRow.DataKey("CvePersonal").ToEntero(); + string descripcion = gvRow.DataKey("Descripcion"); + int tipoDescuento = gvRow.DataKey("TipoDescuento").ToEntero(); + double valor = gvRow.DataKey("Valor").ToDouble(); + int vecesAplicar = gvRow.DataKey("VecesAplicar").ToEntero(); + decimal montoLimite = gvRow.DataKey("MontoLimite").ToDecimal(); + DateTime fechaInicioAplicacion = gvRow.DataKey("FechaInicioAplicacion").ToDate(); + bool estatus = gvRow.DataKey("Estatus") == "1" || gvRow.DataKey("Estatus").ToUpper() == "TRUE"; + DateTime fechaRegistro = gvRow.DataKey("FechaRegistro").ToDateTime(); + string tipo = "P"; + DataRow drow = get_GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("Tipo ='{0}'", cveConcepto)); + if (drow != null) + { + tipo = drow["Tipo"].ToString(); + DdlTipo.SelectedValueExist(tipo); + DdlTipo_SelectedIndexChanged(null, null); + } + DdlConcepto.SelectedValueExist(cveConcepto); + TxtDescripcion.Text = descripcion.ToString(); + DdlTipoDescto.SelectedValueExist(tipoDescuento.ToString()); + DdlTipoDescto_SelectedIndexChanged(null, null); + + TxtValor.Text = valor.ToString(); + TxtVecesAplicar.Text = vecesAplicar.ToString(); + TxtMontoLimite.Text = montoLimite.ToString(); + TxtFechaAplicacion.Text = $"{fechaInicioAplicacion:dd/MM/yyyy}"; + ChkEstatus.Checked = estatus; + this.RegistraScript("$('#DModalMovtoPermanente').modal();"); + + + pnlAddupMovto.Visible = true; + LnkAddMovto.Visible = false; + LnkUpMovto.Visible = true; + UpMovtosPermanentes.Update(); + } + #endregion } \ No newline at end of file diff --git a/Nomina/ReportePTU.aspx.vb b/Nomina/ReportePTU.aspx.vb index b79a05002..05259ef9d 100644 --- a/Nomina/ReportePTU.aspx.vb +++ b/Nomina/ReportePTU.aspx.vb @@ -59,10 +59,10 @@ Partial Class Nomina_ReportePTU utilimporte = TxtPA_Nimporte.Text.ToDouble() utilimporteAnt = TxtPA_NimporteA.Text.ToDouble() - Dim objnom As New ClsNominas() - objnom.GetCalculoUtilidades(ejercicio, UsuarioActual.CveEmpresa, utilimporte, utilimporteAnt) - DTUtilidades = objnom.DtResultados - objnom.Dispose() + Using objnom As New ClsNominas() + objnom.GetCalculoUtilidades(ejercicio, UsuarioActual.CveEmpresa, utilimporte, utilimporteAnt) + DTUtilidades = objnom.DtResultados + End Using cargaEjercicio(DTUtilidades) LnkAutorizarModal.Visible = True @@ -155,7 +155,7 @@ Partial Class Nomina_ReportePTU If Not IsNothing(rowc) Then CveConcepto = rowc("CveConcepto").ToString().ToEntero() Else - CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0) + CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0, 0) End If If CveConcepto < 1 Then continuar = False diff --git a/RH/CatAsistenciasInasistencias.aspx b/RH/CatAsistenciasInasistencias.aspx index dc78abae3..7f7faabcb 100644 --- a/RH/CatAsistenciasInasistencias.aspx +++ b/RH/CatAsistenciasInasistencias.aspx @@ -11,7 +11,7 @@ Catálogo de Tipos de Asistencias/Inasistencias - +
  • @@ -21,11 +21,9 @@ - + - - @@ -33,7 +31,7 @@ - + @@ -58,9 +56,38 @@ - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + a @@ -80,7 +107,7 @@ - + <%----%> @@ -121,21 +148,48 @@ -
    • -
    -
    -   - - +
    +
    +
    +
    + +
    +
    + +
    +
    + +
    +
    +
    + +
    -
    -
    -   - - +
    +
    +
    + +
    +
    +
    + +
    +
    +
    + +
    - +
    +
    +
    +
    + +
    +

    diff --git a/RH/CatAsistenciasInasistencias.aspx.vb b/RH/CatAsistenciasInasistencias.aspx.vb index 4258cd0e4..80fc4d254 100644 --- a/RH/CatAsistenciasInasistencias.aspx.vb +++ b/RH/CatAsistenciasInasistencias.aspx.vb @@ -6,7 +6,7 @@ Imports System.Linq Imports Extensiones Partial Class RH_CatAsistenciasInasistencias - Inherits ClsPaginas + Inherits ClsPaginas #Region " PROPIEDADES " Public Property PuedeEditar As Boolean @@ -63,7 +63,13 @@ Partial Class RH_CatAsistenciasInasistencias BtnEditarTiposDModal.Visible = False BtnAgregarTiposDModal.Visible = True CheckActiveSection.Visible = False - saltoDeLinea.Visible = False + AplicaNoAplica.Checked = False + AplicaFalta.Checked = False + AplicaVacacion.Checked = False + AplicaIncapacidad.Checked = False + AplicaRetardo.Checked = False + AplicaAguinaldo.Checked = False + AplicaUtilidades.Checked = False TipoTxt.Text = "" UpModalTiposD.Update() RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")) @@ -72,7 +78,16 @@ 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" Dim ObjAsistenciasInasistencias As New ClsRH - If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, Not AplicaNoAplica.Checked, AplicaNoAplica.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + Dim chkAplicaNoAplica As Boolean = Not AplicaNoAplica.Checked + Dim chkAplicaVacacion As Boolean = AplicaVacacion.Checked + Dim chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked + Dim chkAplicaRetardo As Boolean = AplicaRetardo.Checked + Dim chkAplicaAguinaldo As Boolean = AplicaAguinaldo.Checked + Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked + + + If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaNoAplica, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, +chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then TipoTxt.Text = "" Alert("El nuevo Tipo Asistencias/Inasistencias se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() @@ -100,11 +115,18 @@ Partial Class RH_CatAsistenciasInasistencias BtnAgregarTiposDModal.Visible = False BtnEditarTiposDModal.Visible = True CheckActiveSection.Visible = True - saltoDeLinea.Visible = True - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar TipoTxt.Text = GvRow.DataKey("Tipo") AplicaNoAplica.Checked = If(GvRow.DataKey("AplicaAsistencia") = "Aplica", True, False) + + + AplicaFalta.Checked = If(GvRow.DataKey("AplicaFalta") = "Aplica", True, False) + AplicaVacacion.Checked = If(GvRow.DataKey("AplicaVacacion") = "Aplica", True, False) + AplicaIncapacidad.Checked = If(GvRow.DataKey("AplicaIncapacidad") = "Aplica", True, False) + AplicaRetardo.Checked = If(GvRow.DataKey("AplicaRetardo") = "Aplica", True, False) + AplicaAguinaldo.Checked = If(GvRow.DataKey("AplicaAguinaldo") = "Aplica", True, False) + AplicaUtilidades.Checked = If(GvRow.DataKey("AplicaUtilidades") = "Aplica", True, False) + ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) CveTipoAsisAEditar = Convert.ToInt32(GvRow.DataKey("CveAsistenciasInasistencias")) 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating" @@ -124,7 +146,17 @@ Partial Class RH_CatAsistenciasInasistencias 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" - If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, AplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias) Then + + + Dim chkAplicaVacacion As Boolean = AplicaVacacion.Checked + Dim chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked + Dim chkAplicaRetardo As Boolean = AplicaRetardo.Checked + Dim chkAplicaAguinaldo As Boolean = AplicaAguinaldo.Checked + Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked + + + If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, AplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias, + chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then GvDatos.EditIndex = -1 ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTAsistenciasInasistencias = ObjAsistenciasInasistencias.DtResultados