mirror of
https://github.com/KeymonSoft/Guna_Preventa_BAT.git
synced 2026-04-21 14:49:15 +00:00
VERSION PARA PACHUCA Y GUADALAJARA BAT
This commit is contained in:
cvaldes1201
@@ -1347,6 +1347,11 @@ Sub cargar_Click
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "traeFechaFotosGuna")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_HIST_ENCUESTA_BAT"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "HIST_ENCUESTABAT")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "traecodigosGUNA"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
@@ -1617,6 +1622,138 @@ End Sub
|
||||
|
||||
|
||||
|
||||
Sub JobDone2(Job As HttpJob)
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "carga_encuesta" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_EP_ID As String = records(RESULT.COLUMNS.GET("CAT_EP_ID"))
|
||||
Dim CAT_EP_IDTIPOPREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_IDTIPOPREGUNTA"))
|
||||
Dim CAT_CE_DESCRIPCION As String = records(RESULT.COLUMNS.GET("CAT_CE_DESCRIPCION"))
|
||||
Dim CAT_EP_PREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_PREGUNTA"))
|
||||
Dim CAT_EP_RES1_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES1_PRED"))
|
||||
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"))
|
||||
B4XPages.MainPage.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 ) 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))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "valida_pedido" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP"))
|
||||
If cuantos_pedido < = CUANTOSP Then
|
||||
datos_iguales = "ok"
|
||||
S_CP.Text = "INFO OK"
|
||||
B_OK_PAS.Text = "OK"
|
||||
Else
|
||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
|
||||
S_CP.Text = "ENVIAR DATOS (K-2)"
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "valida_pedidoc" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC"))
|
||||
If cuantos_pedidosc = CUANTOSC Then
|
||||
datos_iguales = "ok"
|
||||
Else
|
||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "valida_noventa" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CUANTOSN As Int = records(RESULT.Columns.Get("CUANTOSN"))
|
||||
If cuantos_noventa = CUANTOSN Then
|
||||
datos_iguales = "ok"
|
||||
Else
|
||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "ins_pedido" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
PB2.Progress = PB2.Progress + 5
|
||||
S_CP.Text = "SUBIENDO"
|
||||
Next
|
||||
PB2.Progress = 100
|
||||
S_CP.Text = "ENVIANDO"
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "version" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from VERSION")
|
||||
Dim CAT_VE_VERSION As String = records(RESULT.Columns.Get("CAT_VE_VERSION"))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "count_cli" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
COUNT_CLIE = records(RESULT.Columns.Get("COUNT_CLIE"))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "ruta" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim VALIDO As String = records(RESULT.Columns.Get("VALIDO"))
|
||||
If VALIDO = "OK" Then
|
||||
cargar.Visible = True
|
||||
Subir.Visible = True
|
||||
inv.Visible = True
|
||||
connecta.Visible = False
|
||||
If conn = "1" Then
|
||||
ToastMessageShow("Existe Conexión con el Servidor." , True)
|
||||
End If
|
||||
Else
|
||||
cargar.Visible = False
|
||||
Subir.Visible = False
|
||||
inv.Visible = False
|
||||
connecta.Visible = False
|
||||
ToastMessageShow("Ruta invalida." , True)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "usuario" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim name2 As String = records(RESULT.Columns.Get("VALIDO"))
|
||||
Next
|
||||
If name2 = "OK" Then
|
||||
PASO = 1
|
||||
End If
|
||||
P1.Visible = False
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Sub JobDone(Job As HttpJob)
|
||||
B4XPages.MainPage.reqManager.trackNext(Job)
|
||||
Log("JOBDONE PRINCIPAL")
|
||||
@@ -1651,7 +1788,7 @@ Sub JobDone(Job As HttpJob)
|
||||
If n = "OKActivo" Then
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ruta_GV2_70_19"
|
||||
cmd.Name = "select_ruta_GV2_70_21"
|
||||
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text, usuario)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
|
||||
'Log("Usuario guardado en BD es 'Valido'")
|
||||
@@ -1716,6 +1853,17 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "HIST_ENCUESTABAT" Then 'query tag
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_ENCUESTA_BAT")
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim HIST_EB_CLIENTE As String = records(RESULT.Columns.Get("HIST_EB_CLIENTE"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA_BAT(CLIENTE) VALUES (?)", Array As Object (HIST_EB_CLIENTE))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "select_abonosp_todos" Then 'query tag
|
||||
@@ -1750,6 +1898,8 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
JobDone2(Job)
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
@@ -2213,18 +2363,6 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
' If Job.JobName = "DBRequest" Then
|
||||
' Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
' If RESULT.Tag = "CAT_VERIFICACION" Then 'query tag
|
||||
' For Each records() As Object In RESULT.Rows
|
||||
' Dim CAT_VE_IDPROD As String = records(RESULT.Columns.Get("CAT_VE_IDPROD"))
|
||||
' Dim CAT_VE_NOMBRE As String = records(RESULT.Columns.Get("CAT_VE_NOMBRE"))
|
||||
' Dim CAT_VE_ORDEN As String = records(RESULT.Columns.Get("CAT_VE_ORDEN"))
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VERIFICACION(CAT_VE_IDPROD, CAT_VE_NOMBRE, CAT_VE_ORDEN) VALUES (?,?,?)", Array As Object (CAT_VE_IDPROD, CAT_VE_NOMBRE, CAT_VE_ORDEN))
|
||||
' Next
|
||||
' End If
|
||||
' End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "marcas_rutas" Then 'query tag
|
||||
@@ -2235,31 +2373,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
' 'CUOTAS
|
||||
' If Job.JobName = "DBRequest" Then
|
||||
' Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
' If RESULT.Tag = "CUOTAS" Then 'query tag
|
||||
' For Each records() As Object In RESULT.Rows
|
||||
' Dim HC_RUTA As String = records(RESULT.Columns.Get("HC_RUTA"))
|
||||
' Dim HC_CUOTA1 As String = records(RESULT.Columns.Get("HC_CUOTA1"))
|
||||
' Dim HC_CUOTA2 As String = records(RESULT.Columns.Get("HC_CUOTA2"))
|
||||
' Dim HC_CUOTA3 As String = records(RESULT.Columns.Get("HC_CUOTA3"))
|
||||
' Dim HC_CUOTA4 As String = records(RESULT.Columns.Get("HC_CUOTA4"))
|
||||
' Dim HC_CUOTA5 As String = records(RESULT.Columns.Get("HC_CUOTA5"))
|
||||
' Dim HC_CUOTA6 As String = records(RESULT.Columns.Get("HC_CUOTA6"))
|
||||
' Dim HC_META1 As String = records(RESULT.Columns.Get("HC_META1"))
|
||||
' Dim HC_META2 As String = records(RESULT.Columns.Get("HC_META2"))
|
||||
' Dim HC_META3 As String = records(RESULT.Columns.Get("HC_META3"))
|
||||
' Dim HC_META4 As String = records(RESULT.Columns.Get("HC_META4"))
|
||||
' Dim HC_META5 As String = records(RESULT.Columns.Get("HC_META5"))
|
||||
' Dim HC_META6 As String = records(RESULT.Columns.Get("HC_META6"))
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_CUOTAS(HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6))
|
||||
' Next
|
||||
' End If
|
||||
' End If
|
||||
'COMISIONES
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "COMISIONES" Then 'query tag
|
||||
@@ -2391,7 +2505,6 @@ Sub JobDone(Job As HttpJob)
|
||||
PB2.Progress = 100
|
||||
S_CP.Text = "LISTO"
|
||||
End If
|
||||
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Productos Actualizados." , True)
|
||||
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
|
||||
' B4XPage_Appear
|
||||
img2.Visible=False
|
||||
@@ -2423,11 +2536,7 @@ Sub JobDone(Job As HttpJob)
|
||||
CAT_GP_ALMACEN = 60
|
||||
End If
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_PA_BSEGMENTA,CAT_PA_SEGMENTAV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_PA_BSEGMENTA,CAT_PA_SEGMENTAV))
|
||||
' If CAT_GP_ID.StartsWith("PRO") Then LogColor($"Metemos promo a gunaprod - ${CAT_GP_ID}, |${CAT_GP_TIPO}|"$, Colors.red)
|
||||
' If CAT_GP_TIPO = "PROMOS" Then
|
||||
' LogColor($"Agregamos Promo a gunaprod2 - ${CAT_GP_ID}, ${CAT_GP_NOMBRE}"$, Colors.Red)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_PA_BSEGMENTA,CAT_PA_SEGMENTAV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_PA_BSEGMENTA,CAT_PA_SEGMENTAV))
|
||||
' End If
|
||||
Next
|
||||
If PB2.Progress = 0 Then
|
||||
PB2.Progress = 30
|
||||
@@ -2438,7 +2547,6 @@ Sub JobDone(Job As HttpJob)
|
||||
PB2.Progress = 100
|
||||
S_CP.Text = "LISTO"
|
||||
End If
|
||||
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones Actualizados." , True)
|
||||
Listo4=1
|
||||
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
|
||||
' B4XPage_Appear
|
||||
@@ -2481,14 +2589,11 @@ Sub JobDone(Job As HttpJob)
|
||||
S_CP.Text = "LISTO"
|
||||
'Log("3")
|
||||
End If
|
||||
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones especiales Actualizados." , True)
|
||||
Listo4=1
|
||||
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
|
||||
' B4XPage_Appear
|
||||
img2.Visible=False
|
||||
EJECUTANDO=0
|
||||
Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then
|
||||
' B4XPage_Appear
|
||||
img2.Visible=False
|
||||
EJECUTANDO=0
|
||||
End If
|
||||
@@ -2523,11 +2628,9 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
Listo3 =1
|
||||
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
|
||||
' B4XPage_Appear
|
||||
img2.Visible=False
|
||||
EJECUTANDO=0
|
||||
Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then
|
||||
' B4XPage_Appear
|
||||
img2.Visible=False
|
||||
EJECUTANDO=0
|
||||
End If
|
||||
@@ -2558,9 +2661,7 @@ Sub JobDone(Job As HttpJob)
|
||||
PB1.Progress = 100
|
||||
S_CH.Text = "LISTO"
|
||||
End If
|
||||
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Venta historico Actualizado." , True)
|
||||
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
|
||||
' B4XPage_Appear
|
||||
img2.Visible=False
|
||||
EJECUTANDO=0
|
||||
End If
|
||||
@@ -2580,7 +2681,6 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA"))
|
||||
Dim HVD_NUM_TICKET As String = records(RESULT.Columns.Get("HVD_NUM_TICKET"))
|
||||
Dim HVD_CODPROMO As String = records(RESULT.Columns.Get("HVD_CODPROMO"))
|
||||
' Log(HVD_CLIENTE&"--"&HVD_PRONOMBRE&"--"&HVD_CANT&"--"&HVD_COSTO_TOT)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO hist_ventastodos(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_NUM_TICKET,HVD_CODPROMO) VALUES (?,?,?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_NUM_TICKET,HVD_CODPROMO))
|
||||
Next
|
||||
|
||||
@@ -2609,142 +2709,7 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "carga_encuesta" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_EP_ID As String = records(RESULT.COLUMNS.GET("CAT_EP_ID"))
|
||||
Dim CAT_EP_IDTIPOPREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_IDTIPOPREGUNTA"))
|
||||
Dim CAT_CE_DESCRIPCION As String = records(RESULT.COLUMNS.GET("CAT_CE_DESCRIPCION"))
|
||||
Dim CAT_EP_PREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_PREGUNTA"))
|
||||
Dim CAT_EP_RES1_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES1_PRED"))
|
||||
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"))
|
||||
B4XPages.MainPage.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 ) 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))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "valida_pedido" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP"))
|
||||
' Log(cuantos_pedido)
|
||||
' Log(CUANTOSP)
|
||||
If cuantos_pedido < = CUANTOSP Then
|
||||
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
|
||||
datos_iguales = "ok"
|
||||
S_CP.Text = "INFO OK"
|
||||
B_OK_PAS.Text = "OK"
|
||||
Else
|
||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
|
||||
S_CP.Text = "ENVIAR DATOS (K-2)"
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "valida_pedidoc" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC"))
|
||||
If cuantos_pedidosc = CUANTOSC Then
|
||||
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
|
||||
datos_iguales = "ok"
|
||||
Else
|
||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "valida_noventa" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CUANTOSN As Int = records(RESULT.Columns.Get("CUANTOSN"))
|
||||
If cuantos_noventa = CUANTOSN Then
|
||||
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
|
||||
datos_iguales = "ok"
|
||||
Else
|
||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "ins_pedido" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
PB2.Progress = PB2.Progress + 5
|
||||
S_CP.Text = "SUBIENDO"
|
||||
Next
|
||||
PB2.Progress = 100
|
||||
S_CP.Text = "ENVIANDO"
|
||||
'Log("5")
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "version" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from VERSION")
|
||||
Dim CAT_VE_VERSION As String = records(RESULT.Columns.Get("CAT_VE_VERSION"))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "count_cli" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
COUNT_CLIE = records(RESULT.Columns.Get("COUNT_CLIE"))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "ruta" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim VALIDO As String = records(RESULT.Columns.Get("VALIDO"))
|
||||
If VALIDO = "OK" Then
|
||||
cargar.Visible = True
|
||||
Subir.Visible = True
|
||||
inv.Visible = True
|
||||
connecta.Visible = False
|
||||
If conn = "1" Then
|
||||
ToastMessageShow("Existe Conexión con el Servidor." , True)
|
||||
End If
|
||||
Else
|
||||
cargar.Visible = False
|
||||
Subir.Visible = False
|
||||
inv.Visible = False
|
||||
connecta.Visible = False
|
||||
ToastMessageShow("Ruta invalida." , True)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "usuario" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim name2 As String = records(RESULT.Columns.Get("VALIDO"))
|
||||
Next
|
||||
If name2 = "OK" Then
|
||||
PASO = 1
|
||||
End If
|
||||
P1.Visible = False
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
@@ -2758,15 +2723,7 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
' If RESULT.Tag = "folio" Then 'query tag
|
||||
' For Each records() As Object In RESULT.Rows
|
||||
' Dim FOLIO As String = records(RESULT.Columns.Get("FOLIO"))
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FOLIO"))
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FOLIO",FOLIO))
|
||||
' Next
|
||||
' End If
|
||||
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "hist_pro2265" Then 'query tag
|
||||
Starter.skmt.ExecNonQuery("delete from HIST_PRO2265")
|
||||
For Each records() As Object In RESULT.Rows
|
||||
@@ -2838,11 +2795,9 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
If B4XPages.MainPage.reqManager.reqsList.IsInitialized Then
|
||||
LogColor($"REQUESTS: ${B4XPages.MainPage.reqManager.reqsList.Size}"$, Colors.red)
|
||||
' Log($"CARGA=${CARGA}"$)
|
||||
If B4XPages.MainPage.reqManager.reqsList.Size = 0 And CARGA = "SUBIR" Then
|
||||
t1.Enabled = False
|
||||
t1.Initialize("T1", 3000) ' 1000 = 1 second
|
||||
' Log(999)
|
||||
If contadorSubir < 3 Then ' Si no hacen click en el boton de OK despues de "Enviar", se puede quedar en loop el timer T1.
|
||||
t1.Enabled = True
|
||||
Log("TIMER ENABLED")
|
||||
@@ -2993,6 +2948,10 @@ Log("--------> BORRAMOS")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from noventa")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from COMENTARIOS")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_PROMOS_DESCUENTOS")
|
||||
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_ENCUESTA_BAT")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from ENCUESTAS_BAT")
|
||||
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from TELEFONO")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from ATIENDE")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from PLAN_LEALTAD")
|
||||
|
||||
Reference in New Issue
Block a user