From a996c7381200b45b8cfd9c32ee1a54d54a0e57f3 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Mon, 11 Nov 2019 16:53:43 -0700
Subject: [PATCH] log propio remisiones tsoft

---
 App_Code/ClsTSoft.vb | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/App_Code/ClsTSoft.vb b/App_Code/ClsTSoft.vb
index a32fc01e2..871ca8048 100644
--- a/App_Code/ClsTSoft.vb
+++ b/App_Code/ClsTSoft.vb
@@ -5,6 +5,7 @@ Imports System.Web
 Imports System.Data
 Imports System.Text
 Imports Extensiones
+Imports System.Web.Configuration
 
 Public Class ClsTSoft
     Inherits ClsClaseBase
@@ -181,4 +182,32 @@ Public Class ClsTSoft
         Return retorno
     End Function
 #End Region
+
+    Protected Overloads Function RunQuery(msgOnError As String) As Boolean
+        Dim retorno As Boolean = False
+
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            retorno = False
+
+            setOnError(msgOnError, ex)
+        End Try
+        Return retorno
+    End Function
+
+    Public Overloads Sub setOnError(Mensaje As String, Exeption As Exception)
+        Dim InfoAdicional As String = ""
+        If SqlAdapter IsNot Nothing AndAlso SqlAdapter.SelectCommand IsNot Nothing AndAlso SqlAdapter.SelectCommand.Parameters IsNot Nothing Then
+            InfoAdicional = SqlAdapter.SelectCommand.Parameters.ParametrosInfo()
+        End If
+        MyCurrentError = String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional)
+        OnError(Mensaje, Exeption, InfoAdicional)
+    End Sub
+    Public Sub OnError(Obj As Object, Mensaje As String, Exeption As Exception, Optional InfoAdicional As String = "")
+        GuardaLogAD(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional), "LogClsTsoft")
+        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))
+    End Sub
 End Class