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

v4.07.03

Browse Source
This commit is contained in:
cvaldes1201
2024-07-10 10:42:23 -06:00
parent 60b3f76301
commit 1160c2603b
6 changed files with 74 additions and 382 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
B4A/C_Principal.bas
View File

@@ -530,7 +530,7 @@ Sub B4XPage_Appear
' If l_ruta.Text = "0" Then
' b_abordo.Visible = False
' Else
' Else
' b_abordo.Visible = True
' End If
@@ -1076,50 +1076,25 @@ Sub JobDone(Job As HttpJob)
Next
Next
End If
' If RESULT.Tag = "usuarioA" Then 'query tag
' Private n As String = "Sin Usuario"
' For Each records() As Object In RESULT.Rows
' n = records(RESULT.Columns.Get("USUARIO"))
' Next
' LogColor("**************************"&n, Colors.Green)
' If n = "OKActivo" Then
' Log("Usuario guardado en BD es 'Valido'")
' Else If n = "OKExpirado" Then
' Msgbox("Usuario Expirado llamar al administrador","") 'ignore
' B4XPages.ShowPage("B4XMainPage")
' Else If n = "OKCancelado" Then
' Msgbox("Usuario Cancelado llamar al administrador","") 'ignore
' B4XPages.ShowPage("B4XMainPage")
' Else
' Msgbox("Usuario o password No validos","") 'ignore
' B4XPages.ShowPage("B4XMainPage")
' End If
' Log("***************** "&n)
' End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "usuarioA" Then 'query tag
Private n As String = "Sin Usuario"
For Each records() As Object In RESULT.Rows
n = records(RESULT.Columns.Get("USUARIO"))
Next
Log(n)
'Logcolor("**************************"&n, Colors.Green)
LogColor("**************************"&n, Colors.Green)
If n = "OKActivo" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_DUR3" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores.
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")
Log("Usuario guardado en BD es 'Valido'")
Else If n = "OKExpirado" Then
Msgbox("Usuario Expirado llamar al administrador","") 'ignore
B4XPages.ShowPage("B4XMainPage")
Else If n = "OKCancelado" Then
Msgbox("Usuario Cancelado llamar al administrador","") 'ignore
B4XPages.ShowPage("B4XMainPage")
Else
Msgbox("Usuario o password No validos","") 'ignore
B4XPages.MainPage.skmt.ExecNonQuery("delete from USUARIOA")
ExitApplication
B4XPages.ShowPage("B4XMainPage")
End If
'Log("***************** "&n)
Log("***************** "&n)
End If
End If
@@ -1151,7 +1126,7 @@ Sub JobDone(Job As HttpJob)
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
Next
' Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("0",e_ruta.TEXT, "VENTA ABORDO","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL"))
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("0",e_ruta.TEXT, "VENTA ABORDO","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL"))
Listo1 = 1
S_CC.Text = "LISTO"
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)
@@ -1895,7 +1870,6 @@ Sub JobDone(Job As HttpJob)
Next
End If
End If
End If
Job.Release
End Sub
@@ -1941,26 +1915,12 @@ Sub connecta_Click
' End If
' c.Close
c=Starter.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")
Log(usrT)
Log(passT)
cmd.Initialize
cmd.Name = "select_usuario_INTMEX_10"
cmd.Parameters = Array As Object(usrT, passT)
reqManager.ExecuteQuery(cmd , 0, "usuarioA")
End If
c.Close
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "select_ruta_INTMEX_7"
' cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
'' Log($"${ALMACEN},${e_ruta.text},${imei}"$)
' reqManager.ExecuteQuery(cmd , 0, "ruta")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_INTMEX_7"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
' Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")
If e_ruta.Text = "KMTS1" Then
cargar.Visible = True