From 3b1dcdda329fbabfe333f4c0309e6cacccce52a6 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 5 Mar 2025 17:25:24 -0700 Subject: [PATCH] -- logs --- Ashx/SIGFacturacion.ashx | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/SIGFacturacion.ashx index dc63aff2a..f9ff0d3cb 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/Ashx/SIGFacturacion.ashx @@ -60,13 +60,13 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState GuardaLogFacturacion("- Inicio de facturación ") If CveEmpresa > 0 Then - GuardaLogFacturacion($"1.10 - CveE:{CveEmpresa}") + GuardaLogFacturacion($"1.10 - CveE:{CveEmpresa} - ") Dim Usuario = ValidaUsuarioSistema(CveEmpresa) Dim FechaI, FechaF As DateTime 'EnviarCorreoFactura(New Modelos.Factura(Usuario, 844966, 1, context.ModExtensiones.DirectorioBaseEmpresas), Usuario) If String.IsNullOrEmpty(pFechaI) AndAlso String.IsNullOrEmpty(pFechaF) Then - GuardaLogFacturacion("1.200") + GuardaLogFacturacion("1.200 - ") Dim FechaReferencia As Date = ClsPaginas.NowADS() If FechaReferencia.DayOfWeek = DayOfWeek.Sunday Then Dim Sabado = FechaReferencia.AddDays(-1) @@ -81,7 +81,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState GuardaLogFacturacion("Ejecución no permitida, no es el dia permitido para ejecucion o no se espeficaron las fechas") End If Else - GuardaLogFacturacion("1.300") + GuardaLogFacturacion("1.300 - ") FechaI = pFechaI.ToDateTime() FechaF = pFechaF.ToDateTime() @@ -137,7 +137,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState Dim DatosRemisiones As JObject = CargaRemisiones(FechaI, FechaF, CveCliente) Dim CveRemisiones As String = DatosRemisiones("VentasConcatenadas").ToString() - + GuardaLogFacturacion("1.25 -- ClavesRemisiones: " & CveRemisiones) If Not String.IsNullOrEmpty(CveRemisiones) Then Dim ObjClientes As New ClsClientes If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveRemisiones, 1, UsuarioActual.CveEmpresa) Then @@ -228,7 +228,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState Dim UsuarioActual As Usuario = Nothing Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa) Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena) - UsuarioActual = ObjUsuarios.GetUsuarioDetalle(100) + UsuarioActual = ObjUsuarios.GetUsuarioDetalle(100, CveEmpresa) If UsuarioActual IsNot Nothing Then Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()