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

PROMO ESPECIAL2

Browse Source
This commit is contained in:
cvaldes1201
2024-07-01 10:00:42 -06:00
parent fd1fc6811d
commit d60f22b871
7 changed files with 73 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
B4A/C_Principal.bas
View File

@@ -785,6 +785,7 @@ Sub cargar_Click
' NUEVOS CLIENTE
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info")
B4XPages.MainPage.skmt.ExecNonQuery("delete from PROMO_ESP")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result")
B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest")
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
@@ -846,7 +847,7 @@ Sub cargar_Click
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "resum_apk") ''' donde regresa la info ver job_done
cmd.Initialize
cmd.Name = "select_cat_paquetes_GV4"
cmd.Name = "select_cat_paquetes_GV6"
cmd.Parameters = Array As Object(ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
@@ -904,6 +905,11 @@ Sub cargar_Click
cmd.Parameters = Array As Object( e_ruta.text, ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "HIST_ENCUESTA2")
cmd.Initialize
cmd.Name = "SELECT_HIST_PRODPROM_GUNA"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "HIST_PROM")
If E_RUTA2.text <> "" Then
cmd.Initialize
cmd.Name = "select_cat_clientes_guna_GV2"
@@ -924,6 +930,11 @@ Sub cargar_Click
cmd.Name = "select_hist_cliente_promos_GV2"
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos")
cmd.Initialize
cmd.Name = "SELECT_HIST_PRODPROM_GUNA"
cmd.Parameters = Array As Object(ALMACEN,E_RUTA2.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "HIST_PROM")
End If
cmd.Initialize
@@ -1219,6 +1230,18 @@ Sub JobDone(Job As HttpJob)
' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "HIST_PROM" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim HVD_CLIENTE2 As String = records(RESULT.Columns.Get("HVD_CLIENTE"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROMO_ESP(HVD_CLIENTE) VALUES (?)", Array As Object (HVD_CLIENTE2))
Next
' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)