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

- VERSION 5.04.08

Browse Source 
- Sustituye el contraseña "KMTS1" que se usa para brincar contraseña de supervisor por una que se descarga desde web, de la tabla "BYPASS"
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-04-10 12:17:59 -06:00
parent 7211852abf
commit c034fdd518
4 changed files with 27 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
B4A/C_Cliente.bas
View File

@@ -4120,11 +4120,10 @@ Private Sub b_geopass_Click
Else
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_geoPass"
cmd.Parameters = Array As Object(et_geopass.Text.Trim, Subs.traeAlmacen, Subs.traeRuta)
reqManager.ExecuteQuery(cmd , 0, "traeGeoPass")
cmd.Name = "selectBypass" ' Trae la contraseña desde la tabla "BYPASS" en web. (La ultima es KMT2025)
cmd.Parameters = Array As Object(et_geopass.Text.Trim)
reqManager.ExecuteQuery(cmd , 0, "bypass")
Log($"${Starter.DBReqServer}, ${et_geopass.Text}, ${Subs.traeAlmacen}, ${Subs.traeRuta}"$)
et_geopass.Text = ""
End If
p_pideGeoPass.Visible = False
ime.HideKeyboard
@@ -4153,6 +4152,24 @@ Sub JobDone(Job As HttpJob)
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211110
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "bypass" Then 'query tag
Log("SIN REGISTROS " & result.Rows.Size)
Subs.logJobDoneResultados(result)
If result.Rows.Size = 1 Then
m_lat = Starter.lat_gps
m_lon = Starter.lon_gps
GPS_LocationChanged(Starter.ubicacionActual)
Starter.skmt.ExecNonQuery($"update kmt_info set CAT_CL_LAT = '${Starter.lat_gps}', CAT_CL_LONG = '${Starter.lon_gps}' where CAT_CL_CODIGO = '${Subs.traeCliente}'"$)
else if result.Rows.Size = 0 Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_geoPass"
cmd.Parameters = Array As Object(et_geopass.Text.Trim, Subs.traeAlmacen, Subs.traeRuta)
reqManager.ExecuteQuery(cmd , 0, "traeGeoPass")
Log($"${Starter.DBReqServer}, ${et_geopass.Text}, ${Subs.traeAlmacen}, ${Subs.traeRuta}"$)
et_geopass.Text = ""
End If
End If
If result.Tag = "traeGeoPass" Then 'query tag
Log("SIN REGISTROS " & result.Rows.Size)
If result.Rows.Size = 0 Then MsgboxAsync("Contraseña equivocada, por favor intente de nuevo.", "ATENCION")
@@ -4170,7 +4187,7 @@ Sub JobDone(Job As HttpJob)
cmd.Initialize
cmd.Name = "delete_geoPass"
cmd.Parameters = Array As Object( Subs.traeAlmacen, Subs.traeRuta)
reqManager.ExecuteQuery(cmd , 0, "traeGeoPass")
reqManager.ExecuteCommand(cmd , "borraGeoPass")
End If
Next
End If