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 <br/>{0}<br/>{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