-- cambio en globaldtAsistencias, parametro cveempresa

This commit is contained in:
2023-05-13 12:46:37 -07:00
parent 8663069c85
commit 69b2a7af74
7 changed files with 71 additions and 81 deletions

View File

@@ -65,7 +65,7 @@ Partial Class RH_ListaAsistenciaRH
If e.Row.RowType = DataControlRowType.DataRow Then
'CvePersonal,CveAsistencia,CveAsistenciasInasistencias
'DdlAsistenciaInasistencia
Dim DTAsistenciasInasistencias As DataTable = GlobalDTAsistenciasInasistencias().FiltraParametros($"CveEmpresa ={ UsuarioActual.CveEmpresa}")
Dim DTAsistenciasInasistencias As DataTable = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
'If DTAsistenciasInasistencias.Rows.Count = 0 Then
' DTAsistenciasInasistencias = GlobalDTAsistenciasInasistencias().FiltraParametros($"CveEmpresa = 2 ")
@@ -85,7 +85,7 @@ Partial Class RH_ListaAsistenciaRH
Private Sub BtnProcesaLista_Click(sender As Object, e As EventArgs) Handles BtnProcesaLista.Click
Dim TieneError As Boolean = False
Dim DTAsistenciasInasistencias As DataTable = GlobalDTAsistenciasInasistencias().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
Dim DTAsistenciasInasistencias As DataTable = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
If DTAsistenciasInasistencias.Rows.Count > 0 Then