diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index e688b1a85..f317b2d84 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2733,7 +2733,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function PersonalIncapacidadAdd(CveUsuarioCapturo As Integer, cvePersonal As Int32, folio As String, fechaInicio As DateTime, diasAutorizados As Int32, cveTipodeIncidencia As Int32, cveRamoSeguro As Int32, cveTipoRiesgo As Int32, porcentajedeIncapacidad As Int32, cveSecuelaConsecuencia As Int32, cveControlIncapacidad As Int32, descripcion As String) As Boolean + Public Function PersonalIncapacidadAdd(CveUsuarioCapturo As Integer, cvePersonal As Int32, folio As String, fechaInicio As DateTime, diasAutorizados As Int32, cveTipodeIncidencia As Int32, cveRamoSeguro As Int32, cveTipoRiesgo As Int32, porcentajedeIncapacidad As Int32, cveSecuelaConsecuencia As Int32, cveControlIncapacidad As Int32, descripcion As String, Optional DiasPagoEmpresa As Integer = 0) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Nom_PersonalIncapacidadAdd", CommandType.StoredProcedure) Try @@ -2750,6 +2750,7 @@ Public Class ClsNominas .Add("@CveSecuelaConsecuencia", SqlDbType.Int).Value = cveSecuelaConsecuencia .Add("@CveControlIncapacidad", SqlDbType.Int).Value = cveControlIncapacidad .Add("@Descripcion", SqlDbType.VarChar).Value = descripcion + .Add("@DiasPagoEmpresa", SqlDbType.Int).Value = DiasPagoEmpresa End With SqlAdapter.Fill(Data) retorno = True @@ -2766,7 +2767,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function PersonalIncapacidadUp(CveUsuarioCapturo As Integer, cvePersonalIncapacidad As Int32, folio As String, fechaInicio As DateTime, diasAutorizados As Int32, cveTipodeIncidencia As Int32, cveRamoSeguro As Int32, cveTipoRiesgo As Int32, porcentajedeIncapacidad As Int32, cveSecuelaConsecuencia As Int32, cveControlIncapacidad As Int32, descripcion As String) As Boolean + Public Function PersonalIncapacidadUp(CveUsuarioCapturo As Integer, cvePersonalIncapacidad As Int32, folio As String, fechaInicio As DateTime, diasAutorizados As Int32, cveTipodeIncidencia As Int32, cveRamoSeguro As Int32, cveTipoRiesgo As Int32, porcentajedeIncapacidad As Int32, cveSecuelaConsecuencia As Int32, cveControlIncapacidad As Int32, descripcion As String, Optional DiasPagoEmpresa As Integer = 0) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Nom_PersonalIncapacidadUp", CommandType.StoredProcedure) Try @@ -2783,6 +2784,7 @@ Public Class ClsNominas .Add("@CveSecuelaConsecuencia", SqlDbType.Int).Value = cveSecuelaConsecuencia .Add("@CveControlIncapacidad", SqlDbType.Int).Value = cveControlIncapacidad .Add("@Descripcion", SqlDbType.VarChar).Value = descripcion + .Add("@DiasPagoEmpresa", SqlDbType.Int).Value = DiasPagoEmpresa End With SqlAdapter.Fill(Data) retorno = True diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index d7d2ecae0..96d7cd193 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -7343,6 +7343,27 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno End Function + Public Function estatusPersonalUp(Fecha As DateTime, CvePersonal As Integer, CveEstatusPersonal As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean + Dim Retorno As Boolean = False + Data = New DataTable + SqlDataAdapter("estatusPersonalUp") + With SqlAdapter.SelectCommand.Parameters + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al guardar correos nominas", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al guardar correos nominas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function Public Function NomBitacoraCorreoAdd(CvePeriodo As Integer, CvePersonal As Integer, Correos As String, CveEmpresa As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False Data = New DataTable diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 48bfd0a27..09b82768c 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -4832,7 +4832,7 @@ Public Class Timbrado If ObjCFDITimbre.Conceptos IsNot Nothing AndAlso ObjCFDITimbre.Conceptos.Count > 0 Then For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos - cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("0.00####"), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("0.00####"), concep.Importe, concep.Descuento, concep.ObjetoImpuesto) + cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("0.00####").ToDouble(), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("0.00####").ToDouble(), concep.Importe, concep.Descuento, concep.ObjetoImpuesto) For Each imp As CFDIConceptosImpuestos In concep.Impuestos If imp.TrasladooRetencion = "T" Then cfdi.ConceptoTraslado(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe) diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index 0f0849dc7..25bc63094 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -166,8 +166,8 @@ public partial class Nomina_Finiquito : ClsPaginas chkPrimaantiguedad.Checked = da["ValPrimadeantiguedad"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); } } - - + + DdlTipoPeriodo.SelectedValueExist(da["CveTipoPeriodo"]); DdlMotivoBaja.SelectedValueExist(da["CveMotivoBaja"]); TxtSalarioMinimo.Text = $"{da["SalarioMinimo"]:N2}"; ChkesLiquidacion.Checked = (da["esLiquidacion"].ToString() == "1" || da["esLiquidacion"].ToString().ToUpper() == "TRUE"); diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 543a0c32f..ef037529c 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -1741,7 +1741,7 @@
+ DataKeyNames="CvePersonalIncapacidad,CvePersonal,Folio,FechaInicio,DiasAutorizados,DiasPagoEmpresa,CveTipodeIncidencia,CveRamoSeguro,CveTipoRiesgo,PorcentajedeIncapacidad,CveSecuelaConsecuencia,CveControlIncapacidad,Descripcion"> @@ -1795,7 +1795,7 @@
-
+
@@ -1804,7 +1804,7 @@
-
+
@@ -1816,7 +1816,7 @@
-
+
@@ -1824,6 +1824,12 @@ Dias autorizados
+
+
+ + Dias pagados por empresa +
+
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index b4ad46dc9..840e92404 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -7363,6 +7363,8 @@ public partial class Nomina_Nomina2 : ClsPaginas string folio = gvRow.DataKey("Folio"); DateTime fechaInicio = gvRow.DataKey("FechaInicio").ToDateTime(); int diasAutorizados = gvRow.DataKey("DiasAutorizados").ToEntero(); + int diasPagoEmpresa = gvRow.DataKey("DiasPagoEmpresa").ToEntero(); + int cveTipodeIncidencia = gvRow.DataKey("CveTipodeIncidencia").ToEntero(); int cveRamoSeguro = gvRow.DataKey("CveRamoSeguro").ToEntero(); int cveTipoRiesgo = gvRow.DataKey("CveTipoRiesgo").ToEntero(); @@ -7374,6 +7376,7 @@ public partial class Nomina_Nomina2 : ClsPaginas TxtSRINCfolio.Text = folio.ToString(); TxtSRINCfechaInicio.Text = $"{fechaInicio:dd/MM/yyyy}"; TxtSRINCdiasAutorizados.Text = diasAutorizados.ToString(); + TxtDiasPagoEmpresa.Text = diasPagoEmpresa.ToString(); DdlSRINCcveTipodeIncidencia.SelectedValueExist(cveTipodeIncidencia.ToString()); DdlSRINCcveRamoSeguro.SelectedValueExist(cveRamoSeguro.ToString()); DdlSRINCcveTipoRiesgo.SelectedValueExist(cveTipoRiesgo.ToString()); @@ -7399,6 +7402,7 @@ public partial class Nomina_Nomina2 : ClsPaginas string folio = TxtSRINCfolio.Text; DateTime fechaInicio = TxtSRINCfechaInicio.Text.ToDateTime(); int diasAutorizados = TxtSRINCdiasAutorizados.Text.ToEntero(); + int diasPagoEmpresa = TxtDiasPagoEmpresa.Text.ToEntero(); int cveTipodeIncidencia = DdlSRINCcveTipodeIncidencia.Text.ToEntero(); int cveRamoSeguro = DdlSRINCcveRamoSeguro.Text.ToEntero(); int cveTipoRiesgo = DdlSRINCcveTipoRiesgo.Text.ToEntero(); @@ -7409,7 +7413,7 @@ public partial class Nomina_Nomina2 : ClsPaginas bool Continuar; using (ClsNominas ObjPers = new ClsNominas()) { - Continuar = ObjPers.PersonalIncapacidadAdd(UsuarioActual.CveUsuario, SRCvePersonal, folio, fechaInicio, diasAutorizados, cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion); + Continuar = ObjPers.PersonalIncapacidadAdd(UsuarioActual.CveUsuario, SRCvePersonal, folio, fechaInicio, diasAutorizados, cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion, diasPagoEmpresa); } if (Continuar) { @@ -7425,6 +7429,7 @@ public partial class Nomina_Nomina2 : ClsPaginas string folio = TxtSRINCfolio.Text; DateTime fechaInicio = TxtSRINCfechaInicio.Text.ToDateTime(); int diasAutorizados = TxtSRINCdiasAutorizados.Text.ToEntero(); + int diasPagoEmpresa = TxtDiasPagoEmpresa.Text.ToEntero(); int cveTipodeIncidencia = DdlSRINCcveTipodeIncidencia.Text.ToEntero(); int cveRamoSeguro = DdlSRINCcveRamoSeguro.Text.ToEntero(); int cveTipoRiesgo = DdlSRINCcveTipoRiesgo.Text.ToEntero(); @@ -7436,7 +7441,7 @@ public partial class Nomina_Nomina2 : ClsPaginas using (ClsNominas ObjPers = new ClsNominas()) { Continuar = ObjPers.PersonalIncapacidadUp(UsuarioActual.CveUsuario, CcvePersonalIncapacidad, folio, fechaInicio, diasAutorizados, - cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion); + cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion, diasPagoEmpresa); } if (Continuar) { diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 5b3dec480..0e3d14f19 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -62,6 +62,10 @@
  • Agregar buzón de calidad
  • +
  • + Activar + Desactivar +
  • @@ -588,13 +592,13 @@
    -
    - - - +
    + + +
    - +
    @@ -604,7 +608,7 @@
    -
    +
    @@ -621,7 +625,7 @@
    - +
    @@ -634,7 +638,8 @@
    @@ -712,79 +717,46 @@
    -
    - - - - - - -
    -
    - - - - - -
    - <%--
    - -
    - - - - - +
    +
    + + + + + +
    - - - - - - - - -
    --%> - -
    - -
    - - - - - - +
    + + + + +
    - - - - - + +
    + +
    + + + + + + +
    + + + + + + + +
    - <%--
    - -
    - - - - - - -
    - - - - - - - -
    --%> -
    - -
    @@ -1449,7 +1418,7 @@
    - + @@ -1597,6 +1566,408 @@
    + + + + + +
    +
    +
    + + Movimientos Permanentes +
    +
    + +
    + +
    +
    + Agregar +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    + +
    +
    + + + +
    +
    +
    + + Incapacidades registradas +
    +
    + +
    +
    +
    + Agregar +
    +
    +
    +
    + + + + + + + + + + + + + + + +
    +
    + <%# Eval("DiasAutorizados")%> +
    +
    + +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + + + +
    +
    <%--
    @@ -3093,14 +3464,8 @@ - - + + @@ -5291,6 +5656,52 @@
    + diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 628fc2cc2..4f0d1d4a6 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -16,6 +16,18 @@ Partial Class RH_Personal #Region "P R O P I E D A D E S" + Property CcveMovtoPermanente As Integer + Get + If ViewState("CcveMovtoPermanente") Is Nothing Then + Return -1 + Else + Return DirectCast(ViewState("CcveMovtoPermanente"), Integer) + End If + End Get + Set(value As Integer) + ViewState("CcveMovtoPermanente") = value + End Set + End Property Property CveFonacot As Integer Get If ViewState("CveFonacot") Is Nothing Then @@ -218,6 +230,17 @@ Partial Class RH_Personal End If End Get End Property + + + Private Property dtNomConceptos As Data.DataTable + Get + Return CType(ViewState("dtNomConceptos"), DataTable) + End Get + Set(value As Data.DataTable) + ViewState("dtNomConceptos") = value + End Set + End Property + Private Property DtCuentasContables As Data.DataTable Get Return CType(ViewState("DtCuentasContables"), DataTable) @@ -825,6 +848,10 @@ Partial Class RH_Personal pnlSalarioIMSS.Visible = False End If ' + Using objno = New ClsNominas + objno.GetConceptos() + dtNomConceptos = objno.DtResultados + End Using PnlSalarios.Visible = showsalarios ViewState("Orden") = "" @@ -877,6 +904,8 @@ Partial Class RH_Personal 'CvePersonal = ViewState("CvePersonal").ToString().ToEntero() CargaDatos() CargaDocumentacionFirmaDecontratos() + CargaPersonalIncapacidad() + CargaMovtoPermanente() 'LnkAddLicencias.Visible = True 'TabLicencias.Visible = True 'Configuración de Modalidad Update @@ -1663,6 +1692,8 @@ Partial Class RH_Personal 'End If DdlEstatusPersonal.SelectedValue = ObjPersonal.CveEstatusPersonal.ToString() + LnkActivar.Visible = (ObjPersonal.CveEstatusPersonal = 2) + LnkDesactivar.Visible = Not LnkActivar.Visible CargaEstatusPersonal(DdlEstatusPersonal.SelectedValue.ToEntero()) MostrarOcultarFechasEstatus() @@ -7062,5 +7093,373 @@ Partial Class RH_Personal End Using End Sub +#Region "movtosPermanentes" + Protected Sub CargaTipoConcepto() + CargaConcepto() + End Sub + + Protected Sub CargaConcepto() + Dim dt As DataTable = dtNomConceptos.FiltraParametros(" FormulaTotal = 'FNC.[MovimientosPermanentes]'") + DdlConcepto.Items.Clear() + + If DdlTipo.SelectedValue.Contiene("P", "D", "O") Then + DdlConcepto.DataSource = dt.FiltraParametros(String.Format("Tipo ='{0}'", DdlTipo.SelectedValue)) + End If + + Dim drow As DataRow = dt.NewRow() + drow("CveConcepto") = "-1" + drow("Concepto") = "Seleccione" + dt.Rows.InsertAt(drow, 0) + DdlConcepto.DataSource = dt + DdlConcepto.SelectedValueExist("-1") + DdlConcepto.DataBind() + End Sub + + Private Sub CargaMovtoPermanente() + Using ObjMovt As ClsNominas = New ClsNominas() + ObjMovt.GetMovtoPermanente(UsuarioActual.CveEmpresa, CvePersonal) + GVMovtoPermanente.DataSource = ObjMovt.DtResultados + End Using + + GVMovtoPermanente.DataBind() + UpMovtosPermanentes.Update() + End Sub + + Protected Sub DdlTipo_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) + CargaConcepto() + End Sub + + Protected Sub LnkAddMovtoPermanente_Click(ByVal sender As Object, ByVal e As EventArgs) + CargaConcepto() + DdlTipoDescto_SelectedIndexChanged(Nothing, Nothing) + 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 + ChkEstatus.Checked = True + UpMovtosPermanentesModal.Update() + RegistraScript("$('#ModalMovtoPermanente').modal()") + End Sub + + Protected Sub LnkAddMovto_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim cveConcepto As Integer = DdlConcepto.SelectedValue.ToEntero() + Dim descripcion As String = TxtDescripcion.Text + Dim tipoDescuento As Integer = DdlTipoDescto.SelectedValue.ToEntero() + Dim valor As Double = TxtValor.Text.ToDouble() + Dim vecesAplicar As Integer = TxtVecesAplicar.Text.ToEntero() + Dim montoLimite As Decimal = TxtMontoLimite.Text.ToDecimal() + Dim fechaInicioAplicacion As String = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd") + Dim estatus As Boolean = ChkEstatus.Checked + Dim CveCuenta As Integer = DdlCtaContable.SelectedValue.ToEntero() * (If(DdlCtaContable.DataValueField = "Id", -1, 1)) + Dim Continuar As Boolean + + Using ObjMovt As ClsNominas = New ClsNominas() + Continuar = ObjMovt.AddMovtoPermanente(cveConcepto, CvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta) > 0 + End Using + + If Continuar Then + Me.RegistraScript("$('#DModalMovtoPermanente').modal('hide');") + CargaMovtoPermanente() + UpMovtosPermanentes.Update() + Me.Alert("Se ha agregado el movimiento permanente") + End If + + RegistraScript("$('#ModalMovtoPermanente').modal('hide')") + End Sub + + Protected Sub LnkUpMovto_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim cveConcepto As Integer = DdlConcepto.SelectedValue.ToEntero() + Dim descripcion As String = TxtDescripcion.Text + Dim tipoDescuento As Integer = DdlTipoDescto.SelectedValue.ToEntero() + Dim valor As Double = TxtValor.Text.ToDouble() + Dim vecesAplicar As Integer = TxtVecesAplicar.Text.ToEntero() + Dim montoLimite As Decimal = TxtMontoLimite.Text.ToDecimal() + Dim fechaInicioAplicacion As String = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd") + Dim estatus As Boolean = ChkEstatus.Checked + Dim CveCuenta As Integer = DdlCtaContable.SelectedValue.ToEntero() * (If(DdlCtaContable.DataValueField = "Id", -1, 1)) + Dim Continuar As Boolean + + Using ObjMovt As ClsNominas = New ClsNominas() + Continuar = ObjMovt.UpMovtoPermanente(CcveMovtoPermanente, cveConcepto, CvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus, CveCuenta) + End Using + + If Continuar Then + Me.RegistraScript("$('#ModalMovtoPermanente').modal('hide');") + CargaMovtoPermanente() + UpMovtosPermanentes.Update() + Me.Alert("Se ha actualizado el movimiento permanente") + End If + End Sub + + Protected Sub DdlTipoDescto_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) + pnlMonto.Visible = DdlTipoDescto.SelectedValue.ToEntero() > 2 + pnlVecesAplicar.Visible = DdlTipoDescto.SelectedValue.ToEntero() < 3 + End Sub + + Protected Sub LnkremoveMovtoPermanente_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim gvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + CcveMovtoPermanente = gvRow.DataKey("CveMovtoPermanente").ToEntero() + Dim Continuar As Boolean = False + + Using ObjMovt As ClsNominas = New ClsNominas() + Continuar = ObjMovt.RemoveMovtoPermanente(CcveMovtoPermanente) + End Using + + If Continuar Then + Me.RegistraScript("$('#ModalMovtoPermanente').modal('hide');") + CargaMovtoPermanente() + UpMovtosPermanentes.Update() + Me.Alert("Se ha eliminadó el movimiento permanente") + End If + End Sub + + Protected Sub LnkEditarMovtoPermanente_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim gvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + CcveMovtoPermanente = gvRow.DataKey("CveMovtoPermanente").ToEntero() + Dim cveConcepto As Integer = gvRow.DataKey("CveConcepto").ToEntero() + Dim cvePersonal As Integer = gvRow.DataKey("CvePersonal").ToEntero() + Dim CveCuenta As Integer = gvRow.DataKey("CveCuenta").ToEntero() + Dim IdCtaContable As Integer = gvRow.DataKey("IdCtaContable").ToEntero() + Dim descripcion As String = gvRow.DataKey("Descripcion") + Dim tipoDescuento As Integer = gvRow.DataKey("TipoDescuento").ToEntero() + Dim valor As Double = gvRow.DataKey("Valor").ToDouble() + Dim vecesAplicar As Integer = gvRow.DataKey("VecesAplicar").ToEntero() + Dim montoLimite As Decimal = gvRow.DataKey("MontoLimite").ToDecimal() + Dim fechaInicioAplicacion As DateTime = gvRow.DataKey("FechaInicioAplicacion").ToDate() + Dim estatus As Boolean = gvRow.DataKey("Estatus") = "1" OrElse gvRow.DataKey("Estatus").ToUpper() = "TRUE" + Dim fechaRegistro As DateTime = gvRow.DataKey("FechaRegistro").ToDateTime() + Dim tipo As String = "P" + Dim drow As DataRow = dtNomConceptos.FiltroPrimero(String.Format("CveConcepto ='{0}'", cveConcepto)) + + If drow IsNot Nothing Then + tipo = drow("Tipo").ToString() + DdlTipo.SelectedValueExist(tipo) + DdlTipo_SelectedIndexChanged(Nothing, Nothing) + End If + + CargaConcepto() + DdlConcepto.SelectedValueExist(cveConcepto) + TxtDescripcion.Text = descripcion.ToString() + DdlTipoDescto.SelectedValueExist(tipoDescuento.ToString()) + DdlTipoDescto_SelectedIndexChanged(Nothing, Nothing) + TxtValor.Text = valor.ToString() + TxtVecesAplicar.Text = vecesAplicar.ToString() + TxtMontoLimite.Text = montoLimite.ToString() + TxtFechaAplicacion.Text = $"{fechaInicioAplicacion}" + DdlCtaContable.SelectedValueExist("-1") + + If DdlCtaContable.DataValueField = "Id" Then + DdlCtaContable.SelectedValueExist(IdCtaContable) + Else + DdlCtaContable.SelectedValueExist(CveCuenta) + End If + + ChkEstatus.Checked = estatus + RegistraScript("$('#ModalMovtoPermanente').modal()") + pnlAddupMovto.Visible = True + LnkAddMovto.Visible = False + LnkUpMovto.Visible = True + UpMovtosPermanentesModal.Update() + End Sub +#End Region +#Region "incapacidad" + Private Property CcvePersonalIncapacidad As Integer + Get + Return If((ViewState("CcvePersonalIncapacidad") Is Nothing), 0, Convert.ToInt32(ViewState("CcvePersonalIncapacidad"))) + End Get + Set(ByVal value As Integer) + ViewState("CcvePersonalIncapacidad") = value + End Set + End Property + + Protected Sub CargaPersonalIncapacidad() + LimpiaPersonalIncapacidad() + LnkAgregarIncapacidad.Visible = False + LnkActualizarIncapacidad.Visible = False + CcvePersonalIncapacidad = 0 + + Using ObjPers As ClsNominas = New ClsNominas() + ObjPers.PersonalIncapacidadGet(-1, CvePersonal, UsuarioActual.CveEmpresa) + GVNom_PersonalIncapacidad.DataSource = ObjPers.DtResultados + End Using + + GVNom_PersonalIncapacidad.DataBind() + UpsrIncapacidadpersonal.Update() + End Sub + + Protected Sub LimpiaPersonalIncapacidad() + TxtSRINCfolio.Text = "" + TxtSRINCfechaInicio.Text = "" + TxtSRINCdiasAutorizados.Text = "" + DdlSRINCcveTipodeIncidencia.SelectedValue = "-1" + DdlSRINCcveRamoSeguro.SelectedValue = "-1" + DdlSRINCcveTipoRiesgo.SelectedValue = "-1" + TxtSRINCporcentajedeIncapacidad.Text = "100" + DdlSRINCcveSecuelaConsecuencia.SelectedValue = "-1" + DdlSRINCcveControlIncapacidad.SelectedValue = "-1" + TxtSRINCdescripcion.Text = "" + UpsrIncapacidadpersonal.Update() + End Sub + + Protected Sub LnkPersonalIncapacidad_Click(ByVal sender As Object, ByVal e As EventArgs) + LimpiaPersonalIncapacidad() + Dim gvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + CcvePersonalIncapacidad = gvRow.DataKey("CvePersonalIncapacidad").ToEntero() + Dim cvePersonal As Integer = gvRow.DataKey("CvePersonal").ToEntero() + Dim folio As String = gvRow.DataKey("Folio") + Dim fechaInicio As DateTime = gvRow.DataKey("FechaInicio").ToDateTime() + Dim diasAutorizados As Integer = gvRow.DataKey("DiasAutorizados").ToEntero() + Dim diasPagoEmpresa As Integer = gvRow.DataKey("DiasPagoEmpresa").ToEntero() + Dim cveTipodeIncidencia As Integer = gvRow.DataKey("CveTipodeIncidencia").ToEntero() + Dim cveRamoSeguro As Integer = gvRow.DataKey("CveRamoSeguro").ToEntero() + Dim cveTipoRiesgo As Integer = gvRow.DataKey("CveTipoRiesgo").ToEntero() + Dim porcentajedeIncapacidad As Integer = gvRow.DataKey("PorcentajedeIncapacidad").ToEntero() + Dim cveSecuelaConsecuencia As Integer = gvRow.DataKey("CveSecuelaConsecuencia").ToEntero() + Dim cveControlIncapacidad As Integer = gvRow.DataKey("CveControlIncapacidad").ToEntero() + Dim descripcion As String = gvRow.DataKey("Descripcion") + TxtSRINCfolio.Text = folio.ToString() + TxtSRINCfechaInicio.Text = $"{fechaInicio}" + TxtSRINCdiasAutorizados.Text = diasAutorizados.ToString() + TxtDiasPagoEmpresa.Text = diasPagoEmpresa.ToString() + DdlSRINCcveTipodeIncidencia.SelectedValueExist(cveTipodeIncidencia.ToString()) + DdlSRINCcveRamoSeguro.SelectedValueExist(cveRamoSeguro.ToString()) + DdlSRINCcveTipoRiesgo.SelectedValueExist(cveTipoRiesgo.ToString()) + TxtSRINCporcentajedeIncapacidad.Text = porcentajedeIncapacidad.ToString() + DdlSRINCcveSecuelaConsecuencia.SelectedValueExist(cveSecuelaConsecuencia.ToString()) + DdlSRINCcveControlIncapacidad.SelectedValueExist(cveControlIncapacidad.ToString()) + TxtSRINCdescripcion.Text = descripcion.ToString() + LnkAgregarIncapacidad.Visible = False + LnkActualizarIncapacidad.Visible = True + RegistraScript("$('#ModalSRIncapacidad').modal()") + End Sub + + Protected Sub LnkshowaaddIncapacidad_Click(ByVal sender As Object, ByVal e As EventArgs) + LimpiaPersonalIncapacidad() + LnkAgregarIncapacidad.Visible = True + LnkActualizarIncapacidad.Visible = False + CcvePersonalIncapacidad = 0 + RegistraScript("$('#ModalSRIncapacidad').modal()") + End Sub + + Protected Sub LnkAgregarIncapacidad_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim folio As String = TxtSRINCfolio.Text + Dim fechaInicio As DateTime = TxtSRINCfechaInicio.Text.ToDateTime() + Dim diasAutorizados As Integer = TxtSRINCdiasAutorizados.Text.ToEntero() + Dim DiasPagoEmpresa As Integer = TxtDiasPagoEmpresa.Text.ToEntero() + Dim cveTipodeIncidencia As Integer = DdlSRINCcveTipodeIncidencia.Text.ToEntero() + Dim cveRamoSeguro As Integer = DdlSRINCcveRamoSeguro.Text.ToEntero() + Dim cveTipoRiesgo As Integer = DdlSRINCcveTipoRiesgo.Text.ToEntero() + Dim porcentajedeIncapacidad As Integer = TxtSRINCporcentajedeIncapacidad.Text.ToEntero() + Dim cveSecuelaConsecuencia As Integer = DdlSRINCcveSecuelaConsecuencia.Text.ToEntero() + Dim cveControlIncapacidad As Integer = DdlSRINCcveControlIncapacidad.Text.ToEntero() + Dim descripcion As String = TxtSRINCdescripcion.Text + Dim Continuar As Boolean + + Using ObjPers As ClsNominas = New ClsNominas() + Continuar = ObjPers.PersonalIncapacidadAdd(UsuarioActual.CveUsuario, CvePersonal, folio, fechaInicio, diasAutorizados, cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion, DiasPagoEmpresa) + End Using + + If Continuar Then + CargaPersonalIncapacidad() + UpsrIncapacidadpersonal.Update() + Me.Alert("La incapacidad se ha agregado.", TipoMensaje.ToastInformacion) + RegistraScript("$('#ModalSRIncapacidad').modal('hide')") + End If + End Sub + + Protected Sub LnkActualizarIncapacidad_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim folio As String = TxtSRINCfolio.Text + Dim fechaInicio As DateTime = TxtSRINCfechaInicio.Text.ToDateTime() + Dim diasAutorizados As Integer = TxtSRINCdiasAutorizados.Text.ToEntero() + Dim DiasPagoEmpresa As Integer = TxtDiasPagoEmpresa.Text.ToEntero() + Dim cveTipodeIncidencia As Integer = DdlSRINCcveTipodeIncidencia.Text.ToEntero() + Dim cveRamoSeguro As Integer = DdlSRINCcveRamoSeguro.Text.ToEntero() + Dim cveTipoRiesgo As Integer = DdlSRINCcveTipoRiesgo.Text.ToEntero() + Dim porcentajedeIncapacidad As Integer = TxtSRINCporcentajedeIncapacidad.Text.ToEntero() + Dim cveSecuelaConsecuencia As Integer = DdlSRINCcveSecuelaConsecuencia.Text.ToEntero() + Dim cveControlIncapacidad As Integer = DdlSRINCcveControlIncapacidad.Text.ToEntero() + Dim descripcion As String = TxtSRINCdescripcion.Text + Dim Continuar As Boolean + + Using ObjPers As ClsNominas = New ClsNominas() + Continuar = ObjPers.PersonalIncapacidadUp(UsuarioActual.CveUsuario, CcvePersonalIncapacidad, folio, fechaInicio, diasAutorizados, cveTipodeIncidencia, cveRamoSeguro, cveTipoRiesgo, porcentajedeIncapacidad, cveSecuelaConsecuencia, cveControlIncapacidad, descripcion, DiasPagoEmpresa) + End Using + + If Continuar Then + CargaPersonalIncapacidad() + UpsrIncapacidadpersonal.Update() + Me.Alert("La incapacidad se ha actualizado.", TipoMensaje.ToastInformacion) + RegistraScript("$('#ModalSRIncapacidad').modal('hide')") + End If + End Sub +#End Region + + + Protected Sub LnkActivar_Click(sender As Object, e As EventArgs) + LblEstatus.Text = "Activar personal" + LblFechaEstatus.Text = "Fecha ingreso ó reingreso" + TxtFechaEstatus.Text = "" + RegistraScript("$('#ModalUpEstatus').modal();") + upPersonEstatus.Update() + End Sub + + Protected Sub LnkDesactivar_Click(sender As Object, e As EventArgs) + LblEstatus.Text = "Desactivar personal" + LblFechaEstatus.Text = "Fecha baja" + TxtFechaEstatus.Text = "" + RegistraScript("$('#ModalUpEstatus').modal();") + upPersonEstatus.Update() + End Sub + + Protected Sub LnkUpEstatus_Click(sender As Object, e As EventArgs) + Dim fini As DateTime + Dim ffin As DateTime + Dim fecha As DateTime = TxtFechaEstatus.Text.ToDateTime() + + If GvPersonalAltas.Rows.Count > 0 Then + Dim gvrow As GridViewRow = GvPersonalAltas.Rows(0) + fini = gvrow.DataKey("FechaInicio").ToDateTime() + ffin = gvrow.DataKey("FechaFin").ToDateTime() + + End If + Dim estatus = -1 + Dim continuar = False + + + If (LnkActivar.Visible) Then + estatus = 1 + If ffin >= fecha Then + continuar = False + Alert(String.Format("la '{0}' debe ser mayor a {1:dd/MM/yyyy}", LblFechaEstatus.Text, ffin), TipoMensaje.MsgAdvertencia) + Else + continuar = True + + End If + Else + + estatus = 2 + If fini >= fecha Then + continuar = False + Alert(String.Format("la '{0}' debe ser mayor a {1:dd/MM/yyyy}", LblFechaEstatus.Text, fini), TipoMensaje.MsgAdvertencia) + Else + continuar = True + + End If + End If + + + If continuar Then + + RegistraScript("$('#ModalUpEstatus').modal('hide');") + Alert("Se guardo correctamente", TipoMensaje.MsgInformacion) + CargaDatos() + End If + End Sub End Class diff --git a/SAT/SolicitudesNominaSat.aspx b/SAT/SolicitudesNominaSat.aspx index 92de2442c..d4ec0e936 100644 --- a/SAT/SolicitudesNominaSat.aspx +++ b/SAT/SolicitudesNominaSat.aspx @@ -14,7 +14,7 @@ } .ajax__tab_xp .ajax__tab_body { - font-family: verdana,tahoma,helvetica; + font-family: "Open Sans", sans-serif; font-size: 12px; } @@ -131,12 +131,13 @@ background-color: #3598dc; color: #FFF; } - + .reporte5 .GVSolicitudTimbreNominaGral tr td:nth-child(2), .reporte5 .GVSolicitudTimbreNominaGral tr td:nth-child(3), - .reporte5 .GVSolicitudTimbreNominaGral tr td:nth-child(4){ - text-align:right + .reporte5 .GVSolicitudTimbreNominaGral tr td:nth-child(4) { + text-align: right } + .reporte5 .GVSolicitudTimbreNominaGral tr th:nth-child(2) /*, .reporte5 .ADScroller-body .GVSolicitudTimbreNominaGral tr:nth-child(2) td:nth-child(2)*/ { background-color: #C46B06; @@ -490,121 +491,95 @@ -
    -
    -
    - - -
    -
    - - -
    -
    -
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    -
    -
    - - -
    -
    - - -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +