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

- VERSION 5.04.09

Browse Source 
- Se cambiaron mas lados donde se usaba KMTS1
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-04-10 16:55:44 -06:00
parent c034fdd518
commit 78667e65f1
7 changed files with 50 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
B4A/C_Cliente.bas
View File

@@ -4112,19 +4112,19 @@ Private Sub p_pideGeoPass_Click
End Sub
Private Sub b_geopass_Click
If et_geopass.Text.trim = "KMTS1" 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 et_geopass.Text.trim = "KMTS1" 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
Dim cmd As DBCommand
cmd.Initialize
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}"$)
End If
' End If
p_pideGeoPass.Visible = False
ime.HideKeyboard
' Log("Guardamos coords")
@@ -4155,7 +4155,7 @@ Sub JobDone(Job As HttpJob)
If result.Tag = "bypass" Then 'query tag
Log("SIN REGISTROS " & result.Rows.Size)
Subs.logJobDoneResultados(result)
If result.Rows.Size = 1 Then
If result.Rows.Size = 1 Then ' Si hay contraseña de bypass
m_lat = Starter.lat_gps
m_lon = Starter.lon_gps
GPS_LocationChanged(Starter.ubicacionActual)