-- mejora en texto

This commit is contained in:
2024-04-16 11:06:20 -07:00
parent 0ba26ac8fd
commit fbbee09158

View File

@@ -1999,7 +1999,7 @@ Partial Class RH_RepChecadorPreAsistencia
Dim ObjPersonal As New ClsRH Dim ObjPersonal As New ClsRH
If ObjPersonal.AddAsistencia(CvePersonalSeleccionado, -1, DdlSubProyecto.SelectedValue.ToEntero, FechaSeleccionada, If ObjPersonal.AddAsistencia(CvePersonalSeleccionado, -1, DdlSubProyecto.SelectedValue.ToEntero, FechaSeleccionada,
DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "C") Then DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "C") Then
Alert("Registro Actualziado Correctamente.") Alert("Registro Actualizado Correctamente.")
End If End If
ObjPersonal.Dispose() ObjPersonal.Dispose()