cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-17 18:26:11 +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

3
B4A/DBRequestManager.bas
View File

@@ -344,6 +344,7 @@ Sub trackInit 'ignore
inicioJobDoneMap.Initialize
End Sub
Sub trackNext(job As HttpJob)
If reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
Private quitamos As String = ""
@@ -357,6 +358,6 @@ Sub trackNext(job As HttpJob)
quitamos = $"Quitamos ${job.tag} - "$
End If
If logger Then LogColor(">>>>>> Requests: " & reqsList.Size & " - " & quitamos & reqsList, Colors.Blue)
if logger then LogColor(">>>>>> inicioRequestMap:" & inicioRequestMap.Size & " - " & inicioRequestMap, Colors.Magenta)
If logger Then LogColor(">>>>>> inicioRequestMap:" & inicioRequestMap.Size & " - " & inicioRequestMap, Colors.Magenta)
End If
End Sub

2
B4A/KelloggsV4.b4a
View File

@@ -907,7 +907,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Kelloggs Venta
#VersionCode: 3000
#VersionName: 5.03.25
#VersionName: 5.04.08
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#BridgeLogger:true

4
B4A/KelloggsV4.b4a.meta
View File

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=foto,btnTakePicture_Click,166,0,Main,Process_Globals,21,0,C_Cliente,B4XPage_Appear,758,1,Subs,revisaPromoPorMonto,1928,0,Subs,generaGUID_EnExterno,1912,0,Subs,parseHTTPError,1924,0,Subs,revisaHora,1960,0,C_Productos,b_prodMenos_Click,617,0,C_Productos,b_prodMas_Click,639,6,C_Productos,et_pCant_TextChanged,748,6,C_Productos,et_pCant_FocusChanged,846,0
NavigationStack=C_Productos,b_prodMas_Click,639,6,C_Productos,et_pCant_TextChanged,748,6,C_Productos,et_pCant_FocusChanged,846,0,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,757,0,C_Principal,JobDone,2099,0,DBRequestManager,trackNext,342,0,DBRequestManager,trackInit,333,0,C_Cliente,p_pideGeoPass_Click,4106,0,C_Cliente,b_geopass_Click,4129,6
SelectedBuild=0
VisibleModules=1,28,11,3,29,12,7,9
VisibleModules=1,28,11,3,29,12,7,9,17