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

Cursos tema en uso

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-08-15 15:03:25 -07:00
parent 79ba735aa1
commit 864481ab24
2 changed files with 34 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
App_Code/ClsRH.vb
View File

@@ -4157,12 +4157,22 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch exs As SqlException Catch exs As SqlException
If exs.ErrorCode = -2146232060 Then
If exs.Message.Contains("Número: 547;") Then
OnError("Ocurrió al Eliminar el Tema Existen registros relacionadados.", exs, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió al Eliminar el Tema Existen registros relacionadados.", exs, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
Else Else
OnError("Ocurrió al Eliminar el Tema TemasRemove.", exs, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió al Eliminar el Tema TemasRemove.", exs, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End If End If
'If exs.ErrorCode = -2146232060 Then
' OnError("Ocurrió al Eliminar el Tema Existen registros relacionadados.", exs, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
'Else
' OnError("Ocurrió al Eliminar el Tema TemasRemove.", exs, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
'End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió al Eliminar el Tema TemasRemove.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió al Eliminar el Tema TemasRemove.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
@@ -6859,25 +6869,26 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
OnError("Ocurrió un error al obtener los pagos de factura de personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al obtener los pagos de factura de personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
Public msgsError As New StringBuilder() 'Public msgsError As New StringBuilder()
Public Sub OnError(Mensaje As String, Exeption As Exception, Optional InfoAdicional As String = "") 'Public Sub OnError(Mensaje As String, Exeption As Exception, Optional InfoAdicional As String = "")
GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional)) ' GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional))
msgsError.AppendLine(Mensaje) ' msgsError.AppendLine(Mensaje)
msgsError.Append("<br/>") ' msgsError.Append("<br/>")
'Alert(Obj, Mensaje, TipoMensaje.MsgError) ' 'Alert(Obj, Mensaje, TipoMensaje.MsgError)
'If WebConfigurationManager.AppSettings("SiteName") IsNot Nothing AndAlso WebConfigurationManager.AppSettings("SiteName").ToString = "1" Then MandaCorreoError(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional)) ' 'If WebConfigurationManager.AppSettings("SiteName") IsNot Nothing AndAlso WebConfigurationManager.AppSettings("SiteName").ToString = "1" Then MandaCorreoError(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional))
End Sub 'End Sub
#Region " IDisposable Support " #Region " IDisposable Support "
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If msgsError.ToString().Length > 0 Then 'If msgsError.ToString().Length > 0 Then
Alert(msgsError.ToString(), TipoMensaje.MsgError) ' Alert(msgsError.ToString(), TipoMensaje.MsgError)
End If 'End If
If Not disposedValue Then If Not disposedValue Then
If disposing Then If disposing Then
' TODO: Liberar otro estado (objetos administrados). ' TODO: Liberar otro estado (objetos administrados).

10
RH/CatCursosTemas.aspx.vb
View File

@@ -101,9 +101,8 @@ Partial Class RH_CatCursosTemas
If objRH.TemasRemove(CveTema) Then If objRH.TemasRemove(CveTema) Then
CargadatosGvTemas() CargadatosGvTemas()
LoadComboTemas() LoadComboTemas()
Alert("Tema elimino correctamente ", TipoMensaje.MsgInformacion) Alert("Tema elimino correctamente ", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrio un error al eliminar el tema", TipoMensaje.MsgError)
End If End If
End Sub End Sub
@@ -179,9 +178,8 @@ Partial Class RH_CatCursosTemas
If objRH.SubtemaRemove(CveTema) Then If objRH.SubtemaRemove(CveTema) Then
CargadatosGvTemas() CargadatosGvTemas()
Alert("Subtema Elimino Correctamente.", TipoMensaje.MsgInformacion) Alert("Subtema Elimino Correctamente.", TipoMensaje.MsgInformacion)
Else
Alert("Ocurrio un error al Eliminar el Subtema.", TipoMensaje.MsgError)
End If End If
LoadComboTemas() LoadComboTemas()
CargadatosGvSubtemas() CargadatosGvSubtemas()