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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-05-18 11:55:02 -07:00
parent 3795097a6f d01272f31e
commit 746f87cb2d
24 changed files with 578 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
RH/Personal.aspx.vb
View File

@@ -7491,25 +7491,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)