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

- Se agregó código para que descargue los clientes que ya hayan contstado el cuestionario y al iniciar venta, valide si el cliente actual ya tenia o no contestado el cuestionario

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-27 03:10:12 -06:00
parent c5b0278c8d
commit f228fe7567
4 changed files with 27 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
B4A/C_Principal.bas
View File

@@ -893,10 +893,17 @@ Sub cargar_Click
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_promos")
cmd.Initialize
cmd.Name = "select_clientes_cuestionario"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
Log($"${e_ruta.text}, ${ALMACEN}"$)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "clientes_cuestionario")
cmd.Initialize
cmd.Name = "select_hist_cliente_promos_INTMEX"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos")
' cmd.Initialize
' cmd.Name = "select_HIST_MARCAS_CUOTAS_INTMEX"
@@ -1007,7 +1014,7 @@ Sub JobDone(Job As HttpJob)
LogColor(">>>>>> " & B4XPages.MainPage.reqManager.reqsList.Size & " - " & B4XPages.MainPage.reqManager.reqsList, Colors.Blue)
End If
If Job.Success = False Then
LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
LogColor("Error: " & B4XPages.MainPage.reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red)
If Job.ErrorMessage = "STREAM" Then
If CARGA = "SUBIR" Then
PB2.Progress = PB2.Progress + PORCENTAJE
@@ -1022,7 +1029,6 @@ Sub JobDone(Job As HttpJob)
'Verificamos que el usuario guardado en BD sea VALIDO.
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "update_gps" Then
For Each records() As Object In RESULT.Rows
Log("==========================REGISTROS="&RESULT.Rows)
@@ -1722,17 +1728,24 @@ Sub JobDone(Job As HttpJob)
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "ins_cuestionario" Then 'query tag
Subs.logJobDoneResultados(RESULT)
End If
If RESULT.Tag = "test" Then 'query tag
Log(">>>>>>>>>>>>> TEST")
Subs.logJobDoneResultados(RESULT)
End If
If RESULT.Tag = "clientes_cuestionario" Then
Starter.skmt.ExecNonQuery("delete from HIST_CUESTIONARIO")
For Each records() As Object In RESULT.Rows
Dim idCliente As String = records(RESULT.Columns.Get("NOTA"))
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CUESTIONARIO(HC_CLIENTE) VALUES (?)", Array As Object (idCliente))
Next
End If
End If
Job.Release
End Sub
@@ -1780,7 +1793,7 @@ Sub connecta_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_INTMEX_6"
cmd.Name = "select_ruta_INTMEX_7"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
Log($"${ALMACEN},${e_ruta.text},${imei}"$)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")