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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2022-07-20 07:04:00 -07:00
parent 8dd989efde
commit a7f0f922ba
5 changed files with 23 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/ClsNominas.vb
View File

@@ -353,6 +353,14 @@ Public Class ClsNominas
Try
SqlAdapter.Fill(DTSet)
retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("x50102;") Then
Alert("No se puede eliminar el finiquito ya que se encuentra vinculado a un periodo autorizado.", TipoMensaje.MsgAdvertencia)
GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al eliminar finiquito ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
Else
Me.OnError("Ocurrió un error al consultar las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception
OnError("Ocurrió un error al eliminar el finiquito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try

11
App_Code/ClsRH.vb
View File

@@ -2063,7 +2063,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1,
Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1) As Boolean
Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -2155,9 +2155,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
.Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado
.Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte
.Add("@EsReserva", SqlDbType.Int).Value = EsReserva
.Add("@Fiscalizable", SqlDbType.Int).Value = Fiscalizable
End With
@@ -2583,7 +2581,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("Ya se registró la Asistencia del día " & Fecha & " para el empleado.", TipoMensaje.MsgAdvertencia)
Alert("Ya se registró la Asistencia del día " & Fecha & " para el empleado.", TipoMensaje.MsgAdvertencia)
ElseIf Ex1.Message.Contains("x50102;") Then
Alert("No se puede editar o agregar la asistencia ya que se encuentra vinculada a un periodo autorizado.", TipoMensaje.MsgAdvertencia)
GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al editar o agregar la asistencia ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
Else
Me.OnError("Ocurrió un error al guardar la Asistencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If

4
RH/Personal.aspx
View File

@@ -627,6 +627,10 @@
<asp:Label AssociatedControlID="chkEsReserva" CssClass="lblforchk" runat="server" Text="Es reserva:"></asp:Label>
<asp:CheckBox ID="chkEsReserva" CssClass="chksino " Text=" " runat="server" />
</div>
<div class="col-md-6">
<asp:Label AssociatedControlID="chkNoFiscalizar" CssClass="lblforchk" runat="server" Text="No Fiscalizar:"></asp:Label>
<asp:CheckBox ID="chkNoFiscalizar" CssClass="chksino " Text=" " runat="server" />
</div>
</div>
<div class="row" style="display: none;">
<div class="col-md-6">

5
RH/Personal.aspx.vb
View File

@@ -1686,7 +1686,8 @@ Partial Class RH_Personal
DdlSubProyectoAsignado.SelectedValue = ObjPersonal.CveSubProyecto.ToString()
DdlSubProyectoAsignado_SelectedIndexChanged1(Nothing, Nothing)
DdlMedioTransporte.SelectedValueExist(drow("CveMedioTransporte").ToString())
chkEsReserva.Checked = (drow("CharolaForanea").ToString().ToUpper().Contiene("1", "TRUE"))
chkEsReserva.Checked = (drow("EsReserva").ToString().ToUpper().Contiene("1", "TRUE"))
chkNoFiscalizar.Checked = Not (drow("Fiscalizable").ToString().ToUpper().Contiene("1", "TRUE"))
cargatipoTrabajador()
DdlTipoTrabajador.SelectedValueExist(drow("CveTipoTrabajador").ToString())
cargaagrodeptos()
@@ -1980,7 +1981,7 @@ Partial Class RH_Personal
DdlPrestamos.SelectedValue.ToEntero(), DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(),
CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero) Then
CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1)) Then
'Funsion usa RH Familiares
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then

2
vwd.webinfo
View File

@@ -518,6 +518,8 @@