cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-17 19:36:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

-VERSION 5.01.27

Browse Source 
- Se corrigio que cuando revisaba si el cliente ya haba cntestado la encuesta, en lugar de revisar HIST_ENCUESTA3, estaba revisando HIST_ENCUESTA y por eso siemrpe manbdaba la encuesta.
- Se agregó que se descarguen las rutas para las encuestas (CAT_ENCUESTA_PREGUNTA/CAT_EP_RUTAS), para que solo muestra las encuestas en las rutas especificadas y se modificó el query que trae los datos (antes se traian las preguntas con un like '%x%' y mosraba la encuesta en rutas que no debia)
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-01-28 20:19:46 -06:00
parent a3c014e8ec
commit e72dabb069
9 changed files with 74 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
B4A/C_Principal.bas
View File

@@ -162,7 +162,6 @@ Sub Class_Globals
Private l_montoColgateResumen As Label
Private l_nes_humedos As Label
Private l_nes_secos As Label
Private l_conagra As Label
End Sub
Sub initialize
@@ -873,6 +872,7 @@ Sub cargar_Click
skmt.ExecNonQuery("delete from HIST_EXIBIDORES")
skmt.ExecNonQuery("delete from CAT_EXHIBIDORES")
skmt.ExecNonQuery("delete from CAT_ENCUESTA_PREGUNTA")
skmt.ExecNonQuery("delete from HIST_ENCUESTA3")
c=skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
@@ -1026,8 +1026,8 @@ Sub cargar_Click
reqManager.ExecuteQuery(cmd , 0, "sucursal")
cmd.Initialize
cmd.Name = "select_cat_encuesta_p_DUR"
cmd.Parameters = Array As Object( ALMACEN,e_ruta.text )
cmd.Name = "select_cat_encuesta2_p_DUR"
cmd.Parameters = Array As Object( ALMACEN )
reqManager.ExecuteQuery(cmd , 0, "carga_encuesta")
' c=skmt.ExecQuery("select HIST_VI_CREDITO, HIST_VI_PRODUCTO,HIST_VI_VISITADOR, HIST_VI_RESULTADO, HIST_VI_CODIGO, HIST_VI_PARENTESCO, HIST_VI_COMENTARIO, HIST_VI_DTEVISITA, HIST_VI_LONGITUD, HIST_VI_LATITUD, hist_vi_imagen, hist_vi_dprom, hist_vi_mprom from HIST_VISITAS")
@@ -1091,7 +1091,7 @@ Sub JobDone(Job As HttpJob)
End If
End If
Else
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Magenta) 'Mod por CHV - 211027
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
@@ -1240,7 +1240,7 @@ Sub JobDone(Job As HttpJob)
' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "hist_encuesta" Then 'query tag
@@ -1666,7 +1666,8 @@ Sub JobDone(Job As HttpJob)
Dim CAT_EP_RES2_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES2_PRED"))
Dim CAT_EP_RES3_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES3_PRED"))
Dim CAT_EP_ORDEN_PREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_ORDEN_PREGUNTA"))
skmt.ExecNonQuery2("INSERT INTO CAT_ENCUESTA_PREGUNTA (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA,CAT_EP_IDGRUPO) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object (CAT_EP_ID,CAT_EP_IDTIPOPREGUNTA,CAT_CE_DESCRIPCION,CAT_EP_PREGUNTA,CAT_EP_RES1_PRED,CAT_EP_RES2_PRED,CAT_EP_RES3_PRED,CAT_EP_ORDEN_PREGUNTA,CAT_EP_IDGRUPO))
Dim CAT_EP_RUTAS As String = records(RESULT.COLUMNS.GET("CAT_EP_RUTAS"))
skmt.ExecNonQuery2("INSERT INTO CAT_ENCUESTA_PREGUNTA (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA,CAT_EP_IDGRUPO,CAT_EP_RUTAS) VALUES (?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_EP_ID,CAT_EP_IDTIPOPREGUNTA,CAT_CE_DESCRIPCION,CAT_EP_PREGUNTA,CAT_EP_RES1_PRED,CAT_EP_RES2_PRED,CAT_EP_RES3_PRED,CAT_EP_ORDEN_PREGUNTA,CAT_EP_IDGRUPO,CAT_EP_RUTAS))
Next
End If
End If
@@ -2387,16 +2388,6 @@ Sub Resumen_Click
Loop
l_nes_secos.Text = NumberFormat2(cRes3, 1, 2, 2, True)
Private r9 As ResultSet = Starter.skmt.ExecQuery($"SELECT CAT_GP_CLASIF, PEDIDO.* FROM PEDIDO JOIN CAT_GUNAPROD WHERE CAT_GP_CLASIF LIKE '%CONAGRA%' AND PE_PROID = CAT_GP_ID"$)
Private cRes4 As String = 0
Do While r9.NextRow
cRes4 = cRes4 + r9.GetString("PE_COSTO_TOT")
Loop
l_conagra.Text = NumberFormat2(cRes4, 1, 2, 2, True)
b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0")
b.Position=0
Cuantos = b.GetString("CUANTOS")