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

Merge branch 'main' of https://github.com/KeymonSoft/Mariana

Browse Source 
# Conflicts:
#	B4A/Mariana.b4a.meta
This commit is contained in:
cvaldes1201
2023-11-08 13:49:50 -06:00
parent ae6bca0c21 5ddfbfceb2
commit 0c7346cce2
2 changed files with 21 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
B4A/C_Principal.bas
View File

@@ -970,13 +970,15 @@ End Sub
Sub JobDone(Job As HttpJob)
Log("JOBDONE PRINCIPAL")
' If Job.JobName = "DBRequest" Then
' Dim RESULT As DBResult = reqManager.HandleJob(Job)
' Log($"Tag: ${RESULT.tag}, success=${Job.Success}"$)
' End If
If Job.Success = False Then
'ToastMessageShow("Error: " & Job.ErrorMessage, True)
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
If CARGA = "SUBIR" Then
PB2.Progress = PB2.Progress + PORCENTAJE