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

-- logs

Browse Source
This commit is contained in:
rrene
2025-03-05 17:25:24 -07:00
parent aaf8e90f89
commit 3b1dcdda32
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ashx/SIGFacturacion.ashx
View File

@@ -60,13 +60,13 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
GuardaLogFacturacion("- Inicio de facturación ") GuardaLogFacturacion("- Inicio de facturación ")
If CveEmpresa > 0 Then If CveEmpresa > 0 Then
GuardaLogFacturacion($"1.10 - CveE:{CveEmpresa}") GuardaLogFacturacion($"1.10 - CveE:{CveEmpresa} - ")
Dim Usuario = ValidaUsuarioSistema(CveEmpresa) Dim Usuario = ValidaUsuarioSistema(CveEmpresa)
Dim FechaI, FechaF As DateTime Dim FechaI, FechaF As DateTime
'EnviarCorreoFactura(New Modelos.Factura(Usuario, 844966, 1, context.ModExtensiones.DirectorioBaseEmpresas), Usuario) 'EnviarCorreoFactura(New Modelos.Factura(Usuario, 844966, 1, context.ModExtensiones.DirectorioBaseEmpresas), Usuario)
If String.IsNullOrEmpty(pFechaI) AndAlso String.IsNullOrEmpty(pFechaF) Then If String.IsNullOrEmpty(pFechaI) AndAlso String.IsNullOrEmpty(pFechaF) Then
GuardaLogFacturacion("1.200") GuardaLogFacturacion("1.200 - ")
Dim FechaReferencia As Date = ClsPaginas.NowADS() Dim FechaReferencia As Date = ClsPaginas.NowADS()
If FechaReferencia.DayOfWeek = DayOfWeek.Sunday Then If FechaReferencia.DayOfWeek = DayOfWeek.Sunday Then
Dim Sabado = FechaReferencia.AddDays(-1) 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") GuardaLogFacturacion("Ejecución no permitida, no es el dia permitido para ejecucion o no se espeficaron las fechas")
End If End If
Else Else
GuardaLogFacturacion("1.300") GuardaLogFacturacion("1.300 - ")
FechaI = pFechaI.ToDateTime() FechaI = pFechaI.ToDateTime()
FechaF = pFechaF.ToDateTime() FechaF = pFechaF.ToDateTime()
@@ -137,7 +137,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Dim DatosRemisiones As JObject = CargaRemisiones(FechaI, FechaF, CveCliente) Dim DatosRemisiones As JObject = CargaRemisiones(FechaI, FechaF, CveCliente)
Dim CveRemisiones As String = DatosRemisiones("VentasConcatenadas").ToString() Dim CveRemisiones As String = DatosRemisiones("VentasConcatenadas").ToString()
GuardaLogFacturacion("1.25 -- ClavesRemisiones: " & CveRemisiones)
If Not String.IsNullOrEmpty(CveRemisiones) Then If Not String.IsNullOrEmpty(CveRemisiones) Then
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveRemisiones, 1, UsuarioActual.CveEmpresa) Then 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 UsuarioActual As Usuario = Nothing
Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa) Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)
Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena) Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
UsuarioActual = ObjUsuarios.GetUsuarioDetalle(100) UsuarioActual = ObjUsuarios.GetUsuarioDetalle(100, CveEmpresa)
If UsuarioActual IsNot Nothing Then If UsuarioActual IsNot Nothing Then
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()