From 9b0756c96072ebe4d3ce18f387b6a3965c560d78 Mon Sep 17 00:00:00 2001
From: MLopez <Mario.lopez@adssistemas.mx>
Date: Wed, 4 Jan 2023 12:19:30 -0700
Subject: [PATCH] =?UTF-8?q?Extensiones:=20Corregir=20ruta=20de=20algunos?=
 =?UTF-8?q?=20Logs=20Estaban=20fallando=20silenciosamente=20porque=20no=20?=
 =?UTF-8?q?ten=C3=ADa=20permiso=20para=20escribir=20en=20la=20carpeta=20ra?=
 =?UTF-8?q?=C3=ADz=20del=20proyecto,=20ahora=20usa=20la=20carpeta=20Log=20?=
 =?UTF-8?q?que=20si=20tiene=20permisos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/modExtensiones.vb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index d00ade5fd..ae5d47fc5 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -240,7 +240,7 @@ Namespace Extensiones
 
             strLineaTMP = String.Format("{0} {0}{3}{2}:{1}{0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto)
             Try
-                ArchivoW = New StreamWriter(String.Format("{0}\Log.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+                ArchivoW = New StreamWriter(String.Format("{0}\Log\Log.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
             Catch ex As Exception
                 Exit Sub
             End Try
@@ -260,7 +260,7 @@ Namespace Extensiones
             Dim strLineaTMP As String
             strLineaTMP = String.Format("{0}  {1}:{2} {3} {0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto)
             Try
-                ArchivoW = New StreamWriter(String.Format("{0}\LogMail.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+                ArchivoW = New StreamWriter(String.Format("{0}\Log\LogMail.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
             Catch ex As Exception
                 Exit Sub
             End Try
@@ -280,7 +280,7 @@ Namespace Extensiones
             '  strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
             strLineaTMP = String.Format("{0}{1} .. PAC: {2} -  Modulo: {3} ..{4}:{5}", Chr(13), Chr(10), CvePAC, Modulo, Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString)
             Try
-                ArchivoW = New StreamWriter(String.Format("{0}\LogTimbrado.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+                ArchivoW = New StreamWriter(String.Format("{0}\Log\LogTimbrado.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
             Catch ex As UnauthorizedAccessException
                 'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError)
                 Exit Sub
@@ -303,7 +303,7 @@ Namespace Extensiones
             strLineaTMP = String.Format("{0}  {1}:{2} {3} {0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto)
 
             Try
-                ArchivoW = New StreamWriter(String.Format("{0}\LogCancelacionSAT.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+                ArchivoW = New StreamWriter(String.Format("{0}\Log\LogCancelacionSAT.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
             Catch ex As Exception
                 Exit Sub
             End Try