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-18 03:16:38 -07:00
parent f1424fd35d
commit 8dd989efde
2 changed files with 49 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
App_Code/ClsNominas.vb
View File

@@ -2735,9 +2735,13 @@ Public Class ClsNominas
End With End With
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
retorno = True retorno = True
Catch sqEx As SqlException Catch Ex1 As SqlException
retorno = False If Ex1.Message.Contains("x50102;") Then
OnError("Ocurrió un error al agregar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al consultar las vacacionesa ", 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 Catch ex As Exception
retorno = False retorno = False
OnError("Ocurrió un error al agregar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al agregar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
@@ -2764,9 +2768,13 @@ Public Class ClsNominas
End With End With
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
retorno = True retorno = True
Catch sqEx As SqlException Catch Ex1 As SqlException
retorno = False If Ex1.Message.Contains("x50102;") Then
OnError("Ocurrió un error al actualizar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al consultar las vacacionesa ", 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 Catch ex As Exception
retorno = False retorno = False
OnError("Ocurrió un error al actualizar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al actualizar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
@@ -2783,9 +2791,13 @@ Public Class ClsNominas
End With End With
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
retorno = True retorno = True
Catch sqEx As SqlException Catch Ex1 As SqlException
retorno = False If Ex1.Message.Contains("x50102;") Then
OnError("Ocurrió un error al eliminar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al consultar las vacacionesa ", 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 Catch ex As Exception
retorno = False retorno = False
OnError("Ocurrió un error al eliminar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al eliminar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())

28
App_Code/ClsRH.vb
View File

@@ -5899,6 +5899,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("x50102;") Then
Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al consultar las vacacionesa ", 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 Catch ex As Exception
OnError("Ocurrió un error al consultar las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al consultar las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
@@ -5920,6 +5927,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("x50102;") Then
Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al consultar las vacacionesa ", 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 Catch ex As Exception
OnError("Ocurrió un error al consultar las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al consultar las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
@@ -5935,6 +5949,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("x50102;") Then
Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al consultar las vacacionesa ", 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 Catch ex As Exception
OnError("Ocurrió un error al Eliminar vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al Eliminar vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
@@ -5958,6 +5979,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("x50102;") Then
Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al consultar las vacacionesa ", 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 Catch ex As Exception
OnError("Ocurrió un error al consultar las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al consultar las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try