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

- 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

1
B4A/B4XMainPage.bas
View File

@@ -172,6 +172,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CODIGO_BARRAS(CODIGOKMTS TEXT, CODIGOB TEXT, LAT TEXT, LON TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ABONOS (a_usuario TEXT, a_ruta TEXT, a_cliente TEXT, a_abono TEXT, a_fecha TEXT, a_enviado TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS COORDENADAS_GPS (tienda_id TEXT, ruta TEXT, almacen TEXT, latitud TEXT, longitud TEXT, fecha TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUESTIONARIO (HC_CLIENTE TEXT)")
Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "INT")
c=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
C.Position = 0

10
B4A/C_Cliente.bas
View File

@@ -415,8 +415,11 @@ End Sub
Sub gest_Click
B4XPages.MainPage.tipo_venta = "PREVENTA"
Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
'Buscamos en el historial de cuestionarios si el cliente ya tiene cuestionario contestado.
Private hc As Cursor = Starter.skmt.ExecQuery($"select count(HC_CLIENTE) as cuantos from HIST_CUESTIONARIO where HC_CLIENTE = '${Subs.traeCliente}'"$)
hc.Position = 0
Log($"${cuest.encuestaIniciada} - ${hc.GetString("cuantos")} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
If Not(cuest.encuestaIniciada) And hc.GetString("cuantos") = 0 And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
Return False
End If
@@ -931,9 +934,6 @@ Sub mandaPendientes
Next
End If
c.Close
End If
End Sub

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")

4
B4A/INTMEX_LL.b4a.meta
View File

@@ -85,6 +85,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=1
NavigationStack=C_Cuestionario,Class_Globals,10,5,C_Cuestionario,Initialize,22,6,C_Cliente,B4XPage_Created,159,0,C_Cliente,cuest_preguntaContestada,1134,2,C_Cliente,CreateListItem,1122,0,C_Cliente,b_cxc_Click,1108,0,C_Principal,Initialize,209,0,C_Principal,Class_Globals,204,0,C_Principal,B4XPage_Created,287,0,C_Principal,Subir_Click,740,0,C_Principal,cargar_Click,823,0
NavigationStack=C_Cliente,CreateListItem,1119,0,C_Principal,Class_Globals,0,0,C_Principal,connecta_Click,1790,0,C_Principal,cargar_Click,866,6,C_Principal,JobDone,1738,0,C_Cliente,B4XPage_Created,159,0,C_Cliente,Class_Globals,145,0,C_Cliente,cuest_preguntaContestada,1135,2,C_Cliente,ListView1_ItemLongClick,408,0,C_Cliente,gest_Click,411,6
SelectedBuild=0
VisibleModules=2,26,24,13,16,14,4,27,15,9,6,17
VisibleModules=2,26,13,16,14,4,27,15,9,6