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

Correciones EdoCuenta

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-11-29 16:36:01 -07:00
parent bd755e09fa
commit 697c1f67b3
1 changed files with 8 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Ashx/TareasProgramadas.ashx
View File

@@ -77,15 +77,6 @@ Public Class TareasProgramadas : Implements IHttpHandler
URLParametros = Parametros(context.Request("var")) URLParametros = Parametros(context.Request("var"))
metodo = URLParametros("metodo") metodo = URLParametros("metodo")
'SI TRAE UN JSON COMO PARAMETRO 'SI TRAE UN JSON COMO PARAMETRO
ElseIf context.Request.Headers("Content-Type") IsNot Nothing AndAlso context.Request.Headers("Content-Type").Contains("json") AndAlso context.Request.InputStream IsNot Nothing AndAlso (context.Request("var") Is Nothing AndAlso context.Request("metodo") IsNot Nothing) Then
context.Response.ContentType = "application/json"
Using reader As New StreamReader(context.Request.InputStream)
Dim json = reader.ReadToEnd()
Dim JsonRequest As JObject = JObject.Parse(json)
If JsonRequest IsNot Nothing Then
metodo = JsonRequest("Metodo").ToString
End If
End Using
ElseIf context.Request("metodo") IsNot Nothing Then ElseIf context.Request("metodo") IsNot Nothing Then
metodo = context.Request("metodo").ToString() metodo = context.Request("metodo").ToString()
If context.Request("FechaEnvio") IsNot Nothing Then If context.Request("FechaEnvio") IsNot Nothing Then
@@ -422,7 +413,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
Dim CveVendedor As Integer = -1 Dim CveVendedor As Integer = -1
Dim Grupo As Integer = 5 Dim Grupo As Integer = 5
Dim TipoCambio As Integer = 1 Dim TipoCambio As Integer = 1
Dim TipoDocto As String = "-1" Dim TipoDocto As String = "Ing"
Dim FechaCorte As DateTime = New DateTime(Now.Year, 12, 31) Dim FechaCorte As DateTime = New DateTime(Now.Year, 12, 31)
If ObjMov.GetCxC(FechaI, FechaF, CveCliente, CveSubProyecto, CveVendedor, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, -1, TipoCambio, TCEspecifico, TipoDocto, FechaVI, FechaVF, FechaCorte:=FechaCorte, If ObjMov.GetCxC(FechaI, FechaF, CveCliente, CveSubProyecto, CveVendedor, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, -1, TipoCambio, TCEspecifico, TipoDocto, FechaVI, FechaVF, FechaCorte:=FechaCorte,
@@ -436,7 +427,8 @@ Public Class TareasProgramadas : Implements IHttpHandler
If DTClientes IsNot Nothing OrElse EnviarPendientes Then If DTClientes IsNot Nothing OrElse EnviarPendientes Then
'DTClientes = DTClientes.FiltraParametros("CveCliente IN (227289,227429,227733,227838,228181,228544,229176,229481,230029,230432,230860,230911,230918,231197,231576,232173,232185,233055,233295,233357,233588,236379,236460,237161,237635,238285,238530,238622,238724,239033,239099,239865,239895,239903,240202,240235,240236,240238,240303,240340,262404,262517,264765,264806,264825,264848,264930,265063,265180,265213,265214,265236,265344,265492,265555,265669,265797,265952,265963,266156,266182,268346,268396,268488,268535,268539,268558,268562,268706,268726,268787,268868,268889,268910,268925,269023,269081,269089,272066,272070,272657,273080,273084,275627,276259,276587,281115,283110,284664,285392,287653,288711,291374,292444,295578,296375,296598,302728,303936,306897,307183,311007,320060,320685,320800,323520,323772,325237,326996,327801,330630,331741,332118,337105,340502,341796,342807,343858,355862,358123,365794,371524,375391,377122,377948,378267,380167,381210,381878,383098,383250,383339,383650,384472,385321,385585,386630,387114,388987,396341,396405,396541,401995,404175,408306,416386,416819,420275,438732,447566,447636,450284,464150,464376,468051,475172,475932,476984,477997,478426)") DTClientes = DTClientes.FiltraParametros("CveCliente NOT IN (228080,228565,228910,233126,231465,232730,232697,227338)")
Dim DtNotificaciones As DataTable = Nothing Dim DtNotificaciones As DataTable = Nothing
Dim TieneErrorRegistro As Boolean = False Dim TieneErrorRegistro As Boolean = False
@@ -478,7 +470,10 @@ Public Class TareasProgramadas : Implements IHttpHandler
End If End If
End If End If
ObjMovimientos.Dispose() ObjMovimientos.Dispose()
DTClientes.Dispose()
If DTClientes IsNot Nothing Then
DTClientes.Dispose()
End If
Try Try
If DtNotificaciones IsNot Nothing Then If DtNotificaciones IsNot Nothing Then
@@ -557,7 +552,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
Dim ContaAnt As Integer = 0 Dim ContaAnt As Integer = 0
Dim FechaCorte As Date = ("9999/01/01").ToDate Dim FechaCorte As Date = ("9999/01/01").ToDate
Dim TipoDocto2 As String = "'Ing','NC','Dev'" Dim TipoDocto2 As String = "'Ing'"
Dim FechaVencimientoI As String = "-1" Dim FechaVencimientoI As String = "-1"
Dim FechaVencimientoF As String = "-1" Dim FechaVencimientoF As String = "-1"
Dim FI As String = "-1" Dim FI As String = "-1"