cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-20 06:09:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

19/10/23 - Corrección en mas y menos cuando mas de 9999

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-10-19 15:05:46 -06:00
parent 57e91d021b
commit 307754013b
5 changed files with 34 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Principal.bas
View File

@@ -8,6 +8,7 @@ Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Dim conectado As String
Dim reqManager As DBRequestManager
Dim t1 As Timer
Dim sb As StringBuilder
Dim PHONE As Phone
@@ -304,6 +305,7 @@ End Sub
Sub B4XPage_Appear
p_principal.Visible = True
reqManager.Initialize(Me, Starter.server)
HORAINGRESO ="000000"
Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2)
' B4XPages.MainPage.reqManager.Initialize(Me, B4XPages.MainPage.SERVER)
@@ -1613,7 +1615,7 @@ Sub connecta_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_version_GV2"
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "version")
reqManager.ExecuteQuery(cmd , 0, "version")
' Cuando nos conectamos verificamos que el usuario guardado en BD sea VALIDO.
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO, PASS from usuarioa")
c.Position=0
@@ -1621,9 +1623,9 @@ Sub connecta_Click
Private usrT As String = c.GetString("USUARIO")
Private passT As String = c.GetString("PASS")
cmd.Initialize
cmd.Name = "select_usuario_guna_GV2_1"
cmd.Name = "select_usuario_guna_GV2_10"
cmd.Parameters = Array As Object(usrT, passT)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA")
reqManager.ExecuteQuery(cmd , 0, "usuarioA")
End If
c.Close
@@ -1631,13 +1633,13 @@ Sub connecta_Click
cmd.Initialize
cmd.Name = "select_ruta_GV2_70"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
reqManager.ExecuteQuery(cmd , 0, "ruta")
Else
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_GV2_70"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
reqManager.ExecuteQuery(cmd , 0, "ruta")
End If
If e_ruta.Text = "KMTS1" Then