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

activacion geocerca y foto para encuestas

Browse Source
This commit is contained in:
cvaldes1201
2024-08-01 23:47:18 -06:00
parent f1588e47b9
commit 633afc2c2f
8 changed files with 605 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

109
B4A/B4XMainPage.bas
View File

@@ -181,6 +181,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA_AVISO_GIRO (HEAV_CLIENTE TEXT, HEAV_MODULO TEXT, HEAV_AVISO TEXT, HEAV_GIRO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA (HE_CLIE TEXT, HE_RES TEXT, HE_FECHA TEXT, HE_TIPO TEXT, HE_LAT TEXT, HE_LON TEXT)")
Subs.agregaColumna("HIST_ENCUESTA", "HE_LAT", "TEXT")
Subs.agregaColumna("HIST_ENCUESTA", "HE_FOTO", "BLOB")
Subs.agregaColumna("PEDIDO", "PE_RECALCULO", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_RECALCULOTOT", "TEXT")
Subs.agregaColumna("HIST_ENCUESTA", "HE_LON", "TEXT")
@@ -518,6 +519,45 @@ Sub JobDone(Job As HttpJob)
IMEI = ""
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "geopass" Then 'query tag
For Each records() As Object In result.Rows
Dim cuenta As String = records(result.Columns.Get("CUENTA"))
Next
If cuenta = "1" Then
p_validacion.Visible = False
B4XSwitch2.Value = True
skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(1))
et_codigo.Text = ""
Private c2 As Cursor = skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info")
c2.Position = 0
Private rutades As String = c2.GetString("CAT_CL_RUTA")
c2.Close
Private c2 As Cursor = skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
c2.Position = 0
Private almacendes As String = c2.GetString("ID_ALMACEN")
c2.Close
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "delete_geoPass_GUNA"
Log(Subs.traeAlmacen&", "& Subs.traeRuta)
cmd.Parameters = Array As Object( almacendes,rutades)
reqManager.ExecuteCommand(cmd , "traeGeoPass")
Else If cuenta = "0" Then
MsgboxAsync("Codigo incorrecto","Atención")
p_validacion.Visible = False
B4XSwitch2.Value = False
skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
et_codigo.Text = ""
End If
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
@@ -770,6 +810,7 @@ Private Sub B4XSwitch1_ValueChanged (Value As Boolean)
End Sub
Private Sub B4XSwitch2_ValueChanged (Value2 As Boolean)
c = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String("CARGA_DIA"))
If c.RowCount > 0 Then
c.Position = 0
@@ -806,30 +847,58 @@ Private Sub b_cancelarcodigo_Click
End Sub
Private Sub b_aceptar_Click
c = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =? ", Array As String("pasword"))
Log(c.RowCount)
If c.RowCount > 0 Then
c.Position = 0
Log(c.GetString("CAT_VA_VALOR"))
If c.GetString("CAT_VA_VALOR") = et_codigo.Text Then
p_validacion.Visible = False
If et_codigo.Text <> "" Then
B4XSwitch2.Value = True
skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(1))
et_codigo.Text = ""
Else If c.GetString("CAT_VA_VALOR") <> et_codigo.Text Then
MsgboxAsync("Codigo incorrecto","Atención")
p_validacion.Visible = False
B4XSwitch2.Value = False
skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
et_codigo.Text = ""
End If
Else If c.RowCount = 0 Then
MsgboxAsync("Codigo incorrecto","Atención")
Private c2 As Cursor = skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info")
c2.Position = 0
Private rutades As String = c2.GetString("CAT_CL_RUTA")
c2.Close
Private c2 As Cursor = skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
c2.Position = 0
Private almacendes As String = c2.GetString("ID_ALMACEN")
c2.Close
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_geoPass_GUNA"
cmd.Parameters = Array As Object(et_codigo.Text, almacendes, rutades)
reqManager.ExecuteQuery(cmd , 0, "geopass")
Else If et_codigo.Text = "" Then
MsgboxAsync("Ingresa un codigo","Atención")
p_validacion.Visible = False
B4XSwitch2.Value = False
skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
et_codigo.Text = ""
End If
' c = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =? ", Array As String("pasword"))
' Log(c.RowCount)
' If c.RowCount > 0 Then
' c.Position = 0
' Log(c.GetString("CAT_VA_VALOR"))
' If c.GetString("CAT_VA_VALOR") = et_codigo.Text Then
'
' p_validacion.Visible = False
'
' B4XSwitch2.Value = True
' skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(1))
' et_codigo.Text = ""
' Else If c.GetString("CAT_VA_VALOR") <> et_codigo.Text Then
' MsgboxAsync("Codigo incorrecto","Atención")
' p_validacion.Visible = False
' B4XSwitch2.Value = False
' skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
' et_codigo.Text = ""
' End If
' Else If c.RowCount = 0 Then
' MsgboxAsync("Codigo incorrecto","Atención")
' p_validacion.Visible = False
' B4XSwitch2.Value = False
' skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
' End If
End Sub