-- logs

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()