2022-07-18 03:16:38 -07:00
parent f1424fd35d
commit 8dd989efde
2 changed files with 49 additions and 9 deletions
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -2735,9 +2735,13 @@ Public Class ClsNominas
            End With
            SqlAdapter.Fill(Data)
            retorno = True
-        Catch sqEx As SqlException
-            retorno = False
-            OnError("Ocurrió un error al agregar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        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
            retorno = False
            OnError("Ocurrió un error al agregar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
@@ -2764,9 +2768,13 @@ Public Class ClsNominas
            End With
            SqlAdapter.Fill(Data)
            retorno = True
-        Catch sqEx As SqlException
-            retorno = False
-            OnError("Ocurrió un error al actualizar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        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
            retorno = False
            OnError("Ocurrió un error al actualizar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
@@ -2783,9 +2791,13 @@ Public Class ClsNominas
            End With
            SqlAdapter.Fill(Data)
            retorno = True
-        Catch sqEx As SqlException
-            retorno = False
-            OnError("Ocurrió un error al eliminar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        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
            retorno = False
            OnError("Ocurrió un error al eliminar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -5899,6 +5899,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
        Try
            SqlAdapter.Fill(Data)
            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
            OnError("Ocurrió un error al  consultar  las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
        End Try
@@ -5920,6 +5927,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
        Try
            SqlAdapter.Fill(Data)
            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
            OnError("Ocurrió un error al  consultar  las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
        End Try
@@ -5935,6 +5949,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
        Try
            SqlAdapter.Fill(Data)
            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
            OnError("Ocurrió un error al Eliminar vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
        End Try
@@ -5958,6 +5979,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
        Try
            SqlAdapter.Fill(Data)
            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
            OnError("Ocurrió un error al  consultar  las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
        End Try