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

VERSION 5.12.11

Browse Source 
- Se agrego coddigo para habilitar la geocerca, se descarga la bandera desde cat_rutas y se guarda en cat_variables (GEOCERCA)
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-12-30 13:50:30 -06:00
parent be8647261e
commit 5f23ece03f
10 changed files with 291 additions and 441 deletions
Download Patch File Download Diff File Expand all files Collapse all files

114
B4A/C_Principal.bas
View File

@@ -871,7 +871,7 @@ Sub cargar_Click
Subs.panelVisible(P1, 0, 0)
Subs.centraPanel(P1, Root.Width)
Subs.centraPanelV(P1, Root.Height)
' trabajar.Visible = False
' trabajar.Visible = False
NUEVO.Visible =False
BUSCA.Visible=False
connecta.Visible=False
@@ -936,7 +936,7 @@ Sub cargar_Click
sTime=DateTime.Time(DateTime.Now)
Dim P As PhoneId
' imei = P.GetDeviceId
' imei = P.GetDeviceId
imei = "xxxx"
cmd.Initialize
cmd.Name ="insert_drop_INTMEX_3"
@@ -953,10 +953,10 @@ Sub cargar_Click
cmd.Parameters = Array As Object(ALMACEN,e_ruta.Text)
reqManager.ExecuteQuery(cmd , 0, "gunaprod2")
' cmd.Initialize
' cmd.Name = "select_resum_apk_INTMEX" ''' va el nombre de archivo de config
' cmd.Parameters = Array As Object(ALMACEN)
' reqManager.ExecuteQuery(cmd , 0, "resum_apk") ''' donde regresa la info ver job_done
' cmd.Initialize
' cmd.Name = "select_resum_apk_INTMEX" ''' va el nombre de archivo de config
' cmd.Parameters = Array As Object(ALMACEN)
' reqManager.ExecuteQuery(cmd , 0, "resum_apk") ''' donde regresa la info ver job_done
cmd.Initialize
cmd.Name = "select_cat_paquetes_INTMEX4"
@@ -1026,41 +1026,43 @@ Sub cargar_Click
cmd.Name = "select_tipoRuta_Intmex"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "tipoRuta")
' cmd.Initialize
' cmd.Name = "select_HIST_MARCAS_CUOTAS_INTMEX"
' cmd.Parameters = Array As Object( ALMACEN, e_ruta.text)
' reqManager.ExecuteQuery(cmd , 0, "HIST_MARCAS_CUOTAS")
' cmd.Initialize
' cmd.Name = "select_HIST_MARCAS_CUOTAS_INTMEX"
' cmd.Parameters = Array As Object( ALMACEN, e_ruta.text)
' reqManager.ExecuteQuery(cmd , 0, "HIST_MARCAS_CUOTAS")
cmd.Name = "select_geocerca_intmex"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
Log($"traeGeocerca: almacen: ${ALMACEN}, ruta: ${e_ruta.text}"$)
reqManager.ExecuteQuery(cmd , 0, "traeGeocerca")
If E_RUTA2.text <> "" Then
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_SUPLENCIA(RS_RUTA) VALUES(?)",Array As String(E_RUTA2.Text))
E_RUTA2.Visible = False
ImageView9.Visible = False
cmd.Initialize
cmd.Name = "select_cat_clientes3_INTMEX"
cmd.Parameters = Array As Object(E_RUTA2.text,E_RUTA2.text, ALMACEN,E_RUTA2.text,E_RUTA2.text)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
cmd.Initialize
cmd.Name = "select_cat_clientes_todos_INTMEX"
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos")
cmd.Initialize
cmd.Name = "select_hist_datos_INTMEX"
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
cmd.Initialize
cmd.Name = "select_hist_promos_INTMEX"
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_promos")
cmd.Initialize
cmd.Name = "select_hist_cliente_promos_INTMEX"
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
@@ -1076,12 +1078,12 @@ Sub cargar_Click
' cmd.Name = "select_verificacion_INTMEX"
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
' reqManager.ExecuteQuery(cmd , 0, "cat_verificacion")
cmd.Initialize
cmd.Name = "select_fecha"
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "fecha")
cmd.Initialize
cmd.Name = "select_folio_INTMEX"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
@@ -1102,19 +1104,19 @@ Sub cargar_Click
cmd.Parameters = Array As Object(usuario)
reqManager.ExecuteQuery(cmd , 0, "marcas")
' cmd.Initialize
' cmd.Name = "select_CUEST_INTMEX"
' cmd.Parameters = Array As Object(ALMACEN)
' reqManager.ExecuteQuery(cmd , 0, "CUESTIONARIO")
' cmd.Initialize
' cmd.Name = "select_HIST_CUOTAS_INTMEX"
' cmd.Parameters = Array As Object( ALMACEN,e_ruta.text )
' reqManager.ExecuteQuery(cmd , 0, "CUOTAS")
' cmd.Initialize
' cmd.Name = "select_CUEST_INTMEX"
' cmd.Parameters = Array As Object(ALMACEN)
' reqManager.ExecuteQuery(cmd , 0, "CUESTIONARIO")
'
' cmd.Initialize
' cmd.Name = "select_HIST_CUOTAS_INTMEX"
' cmd.Parameters = Array As Object( ALMACEN,e_ruta.text )
' reqManager.ExecuteQuery(cmd , 0, "CUOTAS")
cmd.Initialize
cmd.Name = "select_comis_cedex_INTMEX"
cmd.Parameters = Array As Object( ALMACEN, e_ruta.text )
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "COMISIONES")
cmd.Initialize
@@ -2006,7 +2008,7 @@ Sub JobDone(Job As HttpJob)
Dim avance As String = records(RESULT.Columns.Get("HIST_AM_AVANCE"))
Dim objetivo As String = records(RESULT.Columns.Get("HIST_AM_OBJETIVO"))
Dim porcentaje1 As String = records(RESULT.Columns.Get("HIST_AM_PORCENTAJE"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_AVANCE(HA_MARCA, HA_AVANCE, HA_OBJETIVO, HA_PORCENTAJE) VALUES (?,?,?,?)", Array As Object (MARCA2, avance, objetivo, porcentaje1))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_AVANCE(HA_MARCA, HA_AVANCE, HA_OBJETIVO, HA_PORCENTAJE) VALUES (?,?,?,?)", Array As Object (marca2, avance, objetivo, porcentaje1))
Next
End If
End If
@@ -2048,29 +2050,39 @@ Sub JobDone(Job As HttpJob)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "ins_cuestionario" Then 'query tag
Subs.logJobDoneResultados(RESULT)
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "ins_cuestionario" Then 'query tag
Subs.logJobDoneResultados(RESULT)
End If
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "test" Then 'query tag
Log(">>>>>>>>>>>>> TEST")
Subs.logJobDoneResultados(RESULT)
End If
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "test" Then 'query tag
Log(">>>>>>>>>>>>> TEST")
Subs.logJobDoneResultados(RESULT)
End If
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "clientes_cuestionario" Then
Log("Entramos a clientes_cuestionario - Regs:" & RESULT.Rows.Size)
Starter.skmt.ExecNonQuery("delete from HIST_CUESTIONARIO")
For Each records() As Object In RESULT.Rows
Dim idCliente As String = records(RESULT.Columns.Get("HC_CLIENTE"))
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CUESTIONARIO(HC_CLIENTE) VALUES (?)", Array As Object (idCliente))
Next
End If
If RESULT.Tag = "traeGeocerca" Then
For Each records() As Object In RESULT.Rows
Dim geocerca As String = records(RESULT.Columns.Get("CAT_RU_GEOCERCA"))
Log("-- geo: " & geocerca)
B4XPages.MainPage.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("GEOCERCA"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("GEOCERCA", geocerca))
Next
End If
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "clientes_cuestionario" Then
Log("Entramos a clientes_cuestionario - Regs:" & RESULT.Rows.Size)
Starter.skmt.ExecNonQuery("delete from HIST_CUESTIONARIO")
For Each records() As Object In RESULT.Rows
Dim idCliente As String = records(RESULT.Columns.Get("HC_CLIENTE"))
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CUESTIONARIO(HC_CLIENTE) VALUES (?)", Array As Object (idCliente))
Next
End If
End If
End If
Job.Release
End Sub