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

VERSION 5.10.14

Browse Source 
- Se agrego que mande la bandera de "reprogramado"
- Se agrego que mande al tmp_drop fin dia, carga y envio.
This commit is contained in:
Jose Alberto Guerra Ugalde
2026-03-06 17:04:46 -06:00
parent 477d61dad3
commit aff1e8bdc3
12 changed files with 355 additions and 1239 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
B4A/Starter.bas
View File

@@ -138,11 +138,6 @@ Sub ENVIA_ULTIMA_GPS
End If
End Sub
Sub IsConnectedToInternet As Boolean 'ignore
Dim r As Reflector
r.Target = r.GetContext
@@ -155,7 +150,7 @@ Sub IsConnectedToInternet As Boolean 'ignore
End Sub
Sub JobDone(Job As HttpJob)
' LogColor("starter jobdone", Colors.Red)
LogColor("starter jobdone", Colors.Red)
' Log(Job.ErrorMessage)
' Private r As DBResult = reqManager.HandleJob(Job)
If Job.Success = False Then
@@ -165,6 +160,6 @@ Sub JobDone(Job As HttpJob)
End If
'ToastMessageShow("Error: " & Job.ErrorMessage, True)
Else
' LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211023
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211023
End If
End Sub