From 62dd15a6e4f77ab2e908997a786d7d19d59d5e65 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 4 Aug 2022 06:24:14 -0700 Subject: [PATCH] --- App_Code/ClsRH.vb | 41 +++++++++++++ Nomina/Finiquito.aspx | 6 +- Nomina/Finiquito.aspx.cs | 5 ++ Nomina/Nomina.aspx | 1 + Nomina/Nomina.aspx.cs | 121 +++++++++++++++++++++++++++++---------- RH/Personal.aspx | 2 +- RH/Personal.aspx.vb | 4 +- 7 files changed, 144 insertions(+), 36 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index aa784c42c..d7d2ecae0 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -7324,6 +7324,47 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo + Public Function NomBitacoraCorreoGet(CvePeriodo As Integer, CvePersonal As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + Data = New DataTable + SqlDataAdapter("PA_NomBitacoraCorreoGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + 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 + SqlDataAdapter("PA_NomBitacoraCorreoAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@Correos", SqlDbType.VarChar).Value = Correos + .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 UpPersonalAsistenciasMasiva(CveEmpresa As Integer, CveUsuario As Integer, xmlProductos As String) As Boolean Dim Retorno As Boolean = False Data = New DataTable diff --git a/Nomina/Finiquito.aspx b/Nomina/Finiquito.aspx index 8d616fa36..44d0cea2a 100644 --- a/Nomina/Finiquito.aspx +++ b/Nomina/Finiquito.aspx @@ -77,6 +77,8 @@ + +
  • Generar otro finiquito
  • done_allAutorizar
  • @@ -84,7 +86,7 @@ Timbrar
  • - Formato Finiquito + Formato Finiquito
  • @@ -490,7 +492,7 @@
    - --%> -
    +

    diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 20f9e0493..a84bde5a3 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1560,7 +1560,7 @@ Partial Class RH_Personal CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1" 'ChkPensionado.Checked = drow("Pensionado").ToString().ToUpper().Contiene("1", "TRUE") ChkSindicalizado.Checked = drow("Sindicalizado").ToString().ToUpper().Contiene("1", "TRUE") - 'TxtMailrecibonomina.Text = drow("MaiReciboNomina").ToString() + 'TxtMailrecibonomina.Text = drow("Correo").ToString() 'Carga Datos Personales LtlPersonal.Text = ObjPersonal.NombreCompleto NombreCompleto = ObjPersonal.NombreCompleto @@ -2033,7 +2033,7 @@ Partial Class RH_Personal If TieneError Then ObjPersonal.RollBack() - 'Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.MsgError) + Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.ToastAdventencia) Else ObjPersonal.Commit() Alert(Mensaje, TipoMensaje.MsgInformacion, Accion)