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

RegPrepolizas correcion moneda , Asistencias y RepAsistencias correciones de controles

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-04-01 10:14:01 -07:00
parent 97c542475a
commit 5ce3c026cd
4 changed files with 91 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
RH/Asistencias.aspx.vb
View File

@@ -67,7 +67,8 @@ Partial Class RH_Asistencias
'DdlProyecto.DataBind()
CargarCentrosDeCosto(DdlProyecto, DdlProyecto, LblProyectoAsignado, LblSubProyectoAsignado)
DivProyectosAsignado.Visible = LblProyectoAsignado.Visible
DivProyectosAsignado1.Visible = LblProyectoAsignado.Visible
DivProyectosAsignado2.Visible = LblProyectoAsignado.Visible
DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
@@ -220,7 +221,9 @@ Partial Class RH_Asistencias
Dim OcurrioError As Boolean = False
For Each Row As GridViewRow In GV.Rows
If Not ObjPersonal.AddAsistencia(Row.DataKey("CvePersonal").ToEntero, DdlCliente.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, TxtFechaAsistencia.Text.Trim.ToDate,
Dim CveCliente As Integer = Row.DataKey("CveCliente").ToEntero
If Not ObjPersonal.AddAsistencia(Row.DataKey("CvePersonal").ToEntero, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, txtFechaAsistencia.Text.Trim.ToDate,
Row.FCDropDownList("DdlTipoAsistencias").SelectedValue.ToEntero, Row.FCTextBox("TxtPorPago").Text.Trim.ToDouble, Row.FCTextBox("TxtHorasDobles").Text.Trim.ToDouble,
Row.FCTextBox("TxtHorasTriples").Text.Trim.ToDouble, Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue.ToEntero, Row.FCTextBox("TxtObservaciones").Text.Trim,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
@@ -291,3 +294,4 @@ Partial Class RH_Asistencias
End Sub
End Class