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.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

49
B4A/B4XMainPage.bas
View File

@@ -544,6 +544,35 @@ Sub JobDone(Job As HttpJob)
Next
paso1 = 1
End If
'BYPASS EXTRAS
If result.Tag = "traeBypass" Then 'query tag
If result.Rows.Size = 1 Then ' Si hay contraseña de bypass
For Each records() As Object In result.Rows
Starter.passSupervisor = records(result.Columns.Get("BYPASS"))
Next
Log("CONTRASEÑA VALIDA " & Starter.passSupervisor)
b_importarBD.Visible = True
p_importarBDWA.Visible = True
Starter.passSupervisor = user.Text.Trim
Else
Log("CONTRASEÑA INVALIDA")
b_importarBD.Visible = False
p_importarBDWA.Visible = False
End If
End If
'BYPASS IMPORTAR BD WA
If result.Tag = "bypass" Then 'query tag
If result.Rows.Size = 1 Then ' Si hay contraseña de bypass
Log("CONTRASEÑA VALIDA " & Starter.passSupervisor)
b_importarBD.Visible = True
p_importarBDWA.Visible = True
Starter.passSupervisor = user.Text.Trim
Else
Log("CONTRASEÑA INVALIDA")
b_importarBD.Visible = False
p_importarBDWA.Visible = False
End If
End If
End If
Job.Release
End If
@@ -640,6 +669,7 @@ Sub i_engranes_Click
Label1 = ListView1.SingleLineLayout.Label
Label1.TextSize = 20
Label1.TextColor = Colors.Black
et_geocerca.Text = ""sdsf
If user.Text = "KMTS1" Then ListView1.AddSingleLine("http://10.0.0.205:1781")
ListView1.AddSingleLine("http://keymon.lat:1781")
c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
@@ -651,13 +681,12 @@ Sub i_engranes_Click
Panel1.Top = (Root.Height/2) - (Panel1.Height/2)
Panel1.Elevation = 100
Panel1.BringToFront
If user.Text.Trim = "KMTS1" Then
b_importarBD.Visible = True
p_importarBDWA.Visible = True
Else
b_importarBD.Visible = False
p_importarBDWA.Visible = False
End If
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(user.Text.Trim)
reqManager.ExecuteQuery(cmd , 0, "bypass")
Log($"${Starter.DBReqServer}, ${user.Text}, ${Subs.traeAlmacen}, ${Subs.traeRuta}"$)
End Sub
Private Sub i_engranes_LongClick
@@ -853,10 +882,10 @@ End Sub
Private Sub et_geocerca_TextChanged (Old As String, New As String)
Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'FINDIA_PASS'"$)
Log(New)
Log(New & "|" & Starter.passSupervisor)
If x.RowCount > 0 Then
x.Position = 0
If New = x.GetString("CAT_VA_VALOR") Or New = "KMTS1" Then
If New = x.GetString("CAT_VA_VALOR") Or New = Starter.passSupervisor Then
cb_geocerca.Enabled = True
cb_cartaPorte.Enabled = True
et_maxClientesNuevos.Enabled = True
@@ -873,7 +902,7 @@ Private Sub et_geocerca_TextChanged (Old As String, New As String)
l_maxClientesNuevos.TextColor = Colors.LightGray
et_maxClientesNuevos.TextColor = Colors.LightGray
End If
Else if New = "KMTS1" Then
Else if New = Starter.passSupervisor Then
cb_geocerca.Enabled = True
cb_cartaPorte.Enabled = True
et_maxClientesNuevos.Enabled = True