From 309a494f520b862f69e80080761808f94c7a9081 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 7 Nov 2023 16:27:06 -0700 Subject: [PATCH] =?UTF-8?q?--=20m=C3=B3dulo=20en=20asistencia?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Nomina/Nomina.aspx.cs | 8 ++++---- RH/Asistencias.aspx.vb | 2 +- RH/Personal.aspx.vb | 4 ++-- asmx/WSSIGApp.asmx | 2 +- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index bc0f19982..98c0ec1bf 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -3010,7 +3010,7 @@ public partial class Nomina_Nomina2 : ClsPaginas { if (ObjPersonal.AddAsistencia(SRCvePersonal, -2, -2, TxtFechaAsistencia.Text.Trim().ToDate(), DdlTipoAsistenciasB.SelectedValue.ToEntero(), TxtPorPago.Text.Trim().ToDouble(), TxtHorasDobles.Text.Trim().ToDouble(), - TxtHorasTriples.Text.Trim().ToDouble(), DdlMotivoHoraExtra.SelectedValue.ToEntero(), TxtObservaciones.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + TxtHorasTriples.Text.Trim().ToDouble(), DdlMotivoHoraExtra.SelectedValue.ToEntero(), TxtObservaciones.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,"N")) { Alert("La Asistencia se guardó correctamente.", TipoMensaje.MsgInformacion); continuar = true; @@ -3040,7 +3040,7 @@ public partial class Nomina_Nomina2 : ClsPaginas 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)) + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "O")) { OcurrioError = true; break; @@ -7442,7 +7442,7 @@ public partial class Nomina_Nomina2 : ClsPaginas { if (objpersonal.AddAsistencia(CvePersonal, -1, DdlAsisSubProyecto.SelectedValue.ToEntero(), fecha, DdlTipoAsistencias.SelectedValue.ToEntero(), TxtPorPago.Text.Trim().ToDouble(), TxtHorasDobles.Text.Trim().ToDouble(), - TxtHorasTriples.Text.Trim().ToDouble(), DdlMotivoHoraExtra.SelectedValue.ToEntero(), TxtObservaciones.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + TxtHorasTriples.Text.Trim().ToDouble(), DdlMotivoHoraExtra.SelectedValue.ToEntero(), TxtObservaciones.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "P")) { Alert(string.Format("se ha guardado la asistencia satisfactoriamente
{0}
{1:dd/MM/yyyy}", TxtPersonal.Text, TxtasisFecha.Text.ToDate()), TipoMensaje.ToastInformacion); RegistraScript("$('#DModalModAsistencia').modal('hide');"); @@ -9287,7 +9287,7 @@ public partial class Nomina_Nomina2 : ClsPaginas string tipoasistencia = DTEXcel.Rows[j][i].ToString(); DataRow drasis = dtasis.FiltroPrimero(string.Format("Tipo = '{0}'", tipoasistencia)); if (CvePersonal > 0 && drasis != null && ObjPersonal.AddAsistencia(CvePersonal, -2, -2, FechaAsis, - drasis["CveAsistenciasInasistencias"].ToString().ToEntero(), 100, -2, -2, -2, TxtObservaciones.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) + drasis["CveAsistenciasInasistencias"].ToString().ToEntero(), 100, -2, -2, -2, TxtObservaciones.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "Q")) { continuar = true; } diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index e844708cd..9ac52685b 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -221,7 +221,7 @@ Partial Class RH_Asistencias 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 + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "C") Then OcurrioError = True Exit For End If diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index a1e460140..dd086e1df 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1589,7 +1589,7 @@ Partial Class RH_Personal If ObjPersonal.AddAsistencia(CvePersonal, DdlClienteAsistenciaA.SelectedValue.ToEntero(), DdlSubProyectoAsistenciasA.SelectedValue.ToEntero(), TxtFechaAsistencia.Text.Trim.ToDate, DdlTipoAsistencias.SelectedValue.ToEntero(), TxtPorPago.Text.Trim.ToDouble, TxtHorasDobles.Text.Trim.ToDouble, TxtHorasTriples.Text.Trim.ToDouble, DdlMotivoHoraExtra.SelectedValue.ToEntero(), TxtObservaciones.Text.Trim, - UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "A") Then Alert("Las Asistencias se guardaron correctamente.", TipoMensaje.MsgInformacion) BtnConsultarAsistencia_Click(sender, e) @@ -1649,7 +1649,7 @@ Partial Class RH_Personal If Not ObjPersonal.AddAsistencia(Row.DataKey("CvePersonal").ToEntero(), -2, -2, Row.FCLiteral("LtlFecha").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 + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "B") Then OcurrioError = True Exit For End If diff --git a/asmx/WSSIGApp.asmx b/asmx/WSSIGApp.asmx index c2fa221e3..a26fc9374 100644 --- a/asmx/WSSIGApp.asmx +++ b/asmx/WSSIGApp.asmx @@ -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