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

promocion

Browse Source
This commit is contained in:
cvaldes1201
2024-06-21 12:22:12 -06:00
parent 38c779d01d
commit 202e565bea
8 changed files with 202 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
B4A/C_Principal.bas
View File

@@ -835,16 +835,30 @@ Sub cargar_Click
cmd.Parameters = Array As Object(ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod")
cmd.Initialize
cmd.Name = "select_HIST_ESPECIAL_GUNA"
' cmd.Parameters = Array As Object(ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "histespecial")
cmd.Initialize
cmd.Name = "select_resum_apk_guna" ''' va el nombre de archivo de config
cmd.Parameters = Array As Object(ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "resum_apk") ''' donde regresa la info ver job_done
cmd.Initialize
cmd.Name = "select_cat_paquetes_GV3"
cmd.Name = "select_cat_paquetes_GV4"
cmd.Parameters = Array As Object(ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
If ALMACEN = 32 Or ALMACEN = 6 Then
cmd.Initialize
cmd.Name = "select_cat_promoesp_GUNA"
cmd.Parameters = Array As Object(ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "promoesp")
End If
cmd.Initialize
cmd.Name = "select_cat_paquetess_GV2"
cmd.Parameters = Array As Object(ALMACEN)
@@ -1089,6 +1103,8 @@ Sub JobDone(Job As HttpJob)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
@@ -1169,6 +1185,27 @@ Sub JobDone(Job As HttpJob)
End If
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "histespecial" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim CLIENTE As String = records(RESULT.Columns.Get("CLIENTE"))
Dim PROMOCION As String = records(RESULT.Columns.Get("PRMOCION"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_PROMOS(HP_CLIENTE, HP_CODIGO_PROMOCION) VALUES (?,?)", Array As Object (CLIENTE, PROMOCION))
Next
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Historico Promociones Actualizado." , True)
If PB1.Progress = 0 Then
PB1.Progress = 30
S_CH.Text = "CARGANDO"
ELSE If PB1.Progress = 30 Then
PB1.Progress = 60
ELSE IF PB1.Progress = 60 Then
PB1.Progress = 100
S_CH.Text = "LISTO"
End If
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
@@ -1312,6 +1349,19 @@ Sub JobDone(Job As HttpJob)
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "promoesp" Then 'query tag
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_PROMO_ESP")
For Each records() As Object In RESULT.Rows
Dim CAT_PE_ID As String = records(RESULT.Columns.Get("CAT_PE_ID"))
Dim CAT_PE_IDPROMO As String = records(RESULT.Columns.Get("CAT_PE_IDPROMO"))
Dim CAT_PE_MONTO As String = records(RESULT.Columns.Get("CAT_PE_MONTO"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_PROMO_ESP(CAT_PE_ID, CAT_PE_IDPROMO, CAT_PE_MONTO) VALUES (?,?,?)", Array As Object (CAT_PE_ID , CAT_PE_IDPROMO,CAT_PE_MONTO))
Next
End If
End If
'HIST_ENCUESTA2
If Job.JobName = "DBRequest" Then