cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-20 19:49:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

6/11/23 - Código para activar o desactivar el uso de carta porte y cambio de puertos.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-06 15:15:46 -06:00
parent 5ad7ce20f9
commit db6cf8d7ab
8 changed files with 486 additions and 440 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
B4A/C_Principal.bas
View File

@@ -510,42 +510,47 @@ Sub cargar_Click
DateTime.DateFormat = "yyyyMMdd"
Dim hoy As String = DateTime.Date(DateTime.Now)
' If Logger Then Log(DateTime.Date(File.LastModified(File.DirInternal,"cartaPorte.pdf")) & " - " & hoy )
If Not(File.Exists(File.DirInternal,"cartaPorte.pdf")) Then 'Si no existe la descargamos ...
If logger Then LogColor("No hay carta porte.", Colors.Red)
descargaCartaPorte ' la descargamos.
Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte, esperamos ...
Sleep(1000)
If logger Then Log("Descargando Carta Porte (Loop cargar_Click)")
Loop
Else If (DateTime.Date(File.LastModified(File.DirInternal,"cartaPorte.pdf")) < hoy And Starter.rutaTipo <> "FORANEA") Then ' si la fecha del pdf NO es de hoy y la ruta NO es foranea entonces ...
LogColor("La carta porte es vieja.", Colors.Red)
If logger Then Log(Starter.rutaTipo)
descargaCartaPorte ' la descargamos.
Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte, esperamos ...
Sleep(1000)
If logger Then Log("Descargando Carta Porte (Loop cargar_Click)")
If detenerLoop Then Exit
detenerLoop = False
Loop
Else
cartaPorteLista = True
If logger Then LogColor("Ya hay carta porte con fecha de hoy", Colors.Green)
Private MB As Int
MB = Msgbox2("¿Quiere descargarla nuevamente?", "YA SE DESCARGO LA CARTA PORTE", "Si", "", "No", Null) 'ignore
If MB = DialogResponse.Positive Then
descargaCartaPorte
Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte esperamos ...
If kh.traeUsarCartaPorte Then 'Si necesitamos la carta porte ...
If Not(File.Exists(File.DirInternal,"cartaPorte.pdf")) Then 'Si no existe la descargamos ...
If logger Then LogColor("No hay carta porte.", Colors.Red)
descargaCartaPorte ' la descargamos.
Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte, esperamos ...
Sleep(1000)
If logger Then Log("Descargando Carta Porte (Loop cargar_Click)")
Loop
Else If (DateTime.Date(File.LastModified(File.DirInternal,"cartaPorte.pdf")) < hoy And Starter.rutaTipo <> "FORANEA") Then ' si la fecha del pdf NO es de hoy y la ruta NO es foranea entonces ...
LogColor("La carta porte es vieja.", Colors.Red)
If logger Then Log(Starter.rutaTipo)
descargaCartaPorte ' la descargamos.
Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte, esperamos ...
Sleep(1000)
If logger Then Log("Descargando Carta Porte (Loop cargar_Click)")
If detenerLoop Then Exit
detenerLoop = False
Loop
ELSE IF MB = DialogResponse.NEGATIVE Then
Else
cartaPorteLista = True
If logger Then LogColor("Ya hay carta porte con fecha de hoy", Colors.Green)
Private MB As Int
MB = Msgbox2("¿Quiere descargarla nuevamente?", "YA SE DESCARGO LA CARTA PORTE", "Si", "", "No", Null) 'ignore
If MB = DialogResponse.Positive Then
descargaCartaPorte
Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte esperamos ...
Sleep(1000)
If logger Then Log("Descargando Carta Porte (Loop cargar_Click)")
If detenerLoop Then Exit
detenerLoop = False
Loop
ELSE IF MB = DialogResponse.NEGATIVE Then
' descargaCartaPorte
ELSE IF MB = DialogResponse.CANCEL Then
ELSE IF MB = DialogResponse.CANCEL Then
' VALIDAR_INFO
End If
End If
End If
Else
cartaPorteLista = True
End If
'Termina descargar el PDF de la carta porte ///////////////////////////////////////////////////////////////////////////////
If cartaPorteLista Then
CARGA = "CARGAR"
@@ -851,10 +856,15 @@ End Sub
Sub JobDone(Job As HttpJob)
Log("JOBDONE PRINCIPAL")
' LogColor("JobDone: "&Job.Tag & " Success:" & Job.Success , Colors.Magenta) ' Mod by CHV - 211116
If inicioContador = "" Then inicioContador = 0
If Job.Success = False Then
If logger Then LogColor("** " & Job.Tag & " Error: " & Job.ErrorMessage, Colors.Red) ' Mod by CHV - 211116
If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
' LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
End If
LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
End If
If Not(Job.Success) Then
LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
If Job.ErrorMessage = "STREAM" Then
contador_strem = contador_strem + 1
If CARGA = "SUBIR" Then
@@ -988,8 +998,6 @@ Sub JobDone(Job As HttpJob)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "promo_monto" Then 'query tag