-- módulo en asistencia

This commit is contained in:
2023-11-07 16:27:06 -07:00
parent 6fc44b1c98
commit 309a494f52
4 changed files with 8 additions and 8 deletions

View File

@@ -919,7 +919,7 @@ Public Class WSSIGApp
Next
For Each item As WSAsistencia In RH.ListaAsistencia
If Not ObjRH.AddAsistencia(item.CvePersonal, item.CveCliente, item.CveSubProyecto, item.FechaAsistencia, item.CveAsistenciasInasistencias, item.PorcentajePago, item.HorasDobles,
item.HorasTriples, item.CveMotivoHoraExtra, item.Observacion, item.CveUsuario, item.CveEmpresa) Then
item.HorasTriples, item.CveMotivoHoraExtra, item.Observacion, item.CveUsuario, item.CveEmpresa, "W") Then
ErrorTrans = True
Exit For
End If