AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-05-18 11:19:17 -07:00
parent 60b9622a39
commit 3715693e6f
3 changed files with 28 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
RH/Personal.aspx.vb
View File

@@ -7486,25 +7486,20 @@ Partial Class RH_Personal
End If
End If
If continuar Then
Using onom As ClsNominas = New ClsNominas()
onom.ValidaFechaFinPersonal(CvePersonal, UsuarioActual.CveEmpresa, fecha.ToString("yyyy/MM/dd"))
If onom.DtResultados.Rows.Count > 0 Then
continuar = False
Dim strbuild As StringBuilder = New StringBuilder()
strbuild.Append("No es posible desactivar con esta fecha ya que existen asistencias posteriores a la fecha fin con nominas autorizadas, es necesario desautorizar la siguientes nominas para reintentar el proceso.")
For Each drow As DataRow In onom.DtResultados.Rows
strbuild.AppendFormat("<br/> {0}", drow("PeriodoTexto"))
Next
Alert(strbuild.ToString(), TipoMensaje.MsgAdvertencia)
End If
End Using
End If
'If continuar Then
' Using onom As ClsNominas = New ClsNominas()
' onom.ValidaFechaFinPersonal(CvePersonal, UsuarioActual.CveEmpresa, fecha.ToString("yyyy/MM/dd"))
' If onom.DtResultados.Rows.Count > 0 Then
' continuar = False
' Dim strbuild As StringBuilder = New StringBuilder()
' strbuild.Append("No es posible desactivar con esta fecha ya que existen asistencias posteriores a la fecha fin con nominas autorizadas, es necesario desautorizar la siguientes nominas para reintentar el proceso.")
' For Each drow As DataRow In onom.DtResultados.Rows
' strbuild.AppendFormat("<br/> {0}", drow("PeriodoTexto"))
' Next
' Alert(strbuild.ToString(), TipoMensaje.MsgAdvertencia)
' End If
' End Using
'End If
If continuar Then
Using objrh As New ClsRH
continuar = objrh.estatusPersonalUp(fecha, CvePersonal, estatus, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlMotivoBaja.SelectedValue.ToEntero(), Txobservacionesbaja.Text)