cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-17 21:06:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

5/11/23 - Cambios en engrane para modificar el server directamente

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-06 10:03:00 -06:00
parent b929a7dc86
commit dbb98c8f27
7 changed files with 43 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
B4A/C_Principal.bas
View File

@@ -333,6 +333,7 @@ Sub B4XPage_Appear
If c.GetString("CUANTOS") = 0 Then
cmd.Initialize
cmd.Name = "select_fecha"
Log( Starter.DBReqServer)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "fecha")
Msgbox("AJUSTAR FECHA","AVISO") 'ignore
B4XPage_Appear
@@ -953,7 +954,7 @@ Sub JobDone(Job As HttpJob)
End If
End If
Else 'If Job Success then ...
LogColor("JobDone: '" & B4XPages.MainPage.reqManager.HandleJob(Job).tag & "' - Registros: " & B4XPages.MainPage.reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
LogColor("JobDone: '" & B4XPages.MainPage.reqManager.HandleJob(Job).tag & "' - Registros: " & B4XPages.MainPage.reqManager.HandleJob(Job).Rows.Size, Colors.RGB(0,160,0)) 'Mod por CHV - 211027
'Verificamos que el usuario guardado en BD sea VALIDO.
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
@@ -1640,6 +1641,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub
End Sub
Sub connecta_Click
Log( Starter.DBReqServer)
B4XPages.MainPage.reqManager.Initialize(Me, Starter.DBReqServer)
ime.HideKeyboard
connecta1 = connecta1 + 1
@@ -1652,23 +1654,24 @@ Sub connecta_Click
B4XPages.MainPage.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
If c.RowCount > 0 And c.GetString("USUARIO") <> "KMTS1" Then
Private usrT As String = c.GetString("USUARIO")
Private passT As String = c.GetString("PASS")
cmd.Initialize
cmd.Name = "select_usuario_guna_INTMEX_1"
cmd.Parameters = Array As Object(usrT, passT)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA")
End If
c.Close
' c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO, PASS from usuarioa")
' c.Position=0
' If c.RowCount > 0 And c.GetString("USUARIO") <> "KMTS1" Then
' Private usrT As String = c.GetString("USUARIO")
' Private passT As String = c.GetString("PASS")
' cmd.Initialize
' cmd.Name = "select_usuario_guna_INTMEX_1"
' Log(usrT & "|" & passT)
' cmd.Parameters = Array As Object(usrT, passT)
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA")
' End If
' c.Close
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_INTMEX_6"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
Log($"${ALMACEN},${e_ruta.text},${imei}"$)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
If e_ruta.Text = "KMTS1" Then