mirror of
https://github.com/KeymonSoft/Guna_Preventa.git
synced 2026-04-17 12:56:17 +00:00
3147 lines
134 KiB
QBasic
3147 lines
134 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Class
|
|
Version=11.5
|
|
@EndOfDesignText@
|
|
Sub Class_Globals
|
|
Private Root As B4XView 'ignore
|
|
Private xui As XUI 'ignore
|
|
Dim conectado As String
|
|
Dim t1, t2 As Timer
|
|
Dim sb As StringBuilder
|
|
Dim PHONE As Phone
|
|
Dim g As GPS
|
|
Dim trabajar As Button
|
|
' Dim lat_gps, lon_gps As String
|
|
Dim c As Cursor
|
|
Dim d As Cursor
|
|
Dim b As Cursor
|
|
Dim e As Cursor
|
|
Dim f As Cursor
|
|
Dim ro As Cursor
|
|
Dim D2 As Cursor
|
|
Dim lv As ListView
|
|
Dim cargar As Button
|
|
Dim pendiente As Button
|
|
Dim foto1() As Byte
|
|
Dim usuario As String
|
|
Dim connecta As Button
|
|
Dim conn As String
|
|
Dim Subir As Button
|
|
Dim cmd As DBCommand
|
|
Dim TOPE As Int
|
|
Dim COUNT_CLIE As Int
|
|
Dim fecha As String
|
|
Dim drop As Double
|
|
Dim efectiva As Double
|
|
|
|
Dim L_MONTOD As Label
|
|
Dim l_cuantosc As Label
|
|
Dim l_drop As Label
|
|
Dim l_efectiva As Label
|
|
Dim l_ctast As Label
|
|
Dim BUSCA As Button
|
|
Dim Cuantos As String
|
|
Dim l_cuantosn As Label
|
|
Dim e_ruta As EditText
|
|
Dim Rut_Rep As String
|
|
Dim l_porvisitar As Label
|
|
Dim b_mapa As Button
|
|
Dim l_ruta As Label
|
|
Dim ALMACEN As String
|
|
Private img2 As ImageView
|
|
Dim Listo1 As String
|
|
Dim Listo2 As String
|
|
Dim Listo3 As String
|
|
Dim Listo4 As String
|
|
Dim Listo5 As String
|
|
Dim EJECUTANDO As String
|
|
Dim RES As String
|
|
Dim inve As String
|
|
Dim cuantos_pedidosc As String
|
|
Dim cuantos_pedido As String
|
|
Dim cuantos_noventa As String
|
|
Dim datos_iguales As String
|
|
Dim p As PhoneId
|
|
Dim imei As String
|
|
' Dim SERVER As String
|
|
|
|
|
|
Private inv As Button
|
|
Private P1 As Panel
|
|
Private CLAVE As EditText
|
|
Private B_OK_PAS As Button
|
|
Dim PASO As String
|
|
Private USUARIO1 As EditText
|
|
Dim connecta1 As Double
|
|
Dim armafolio As String
|
|
Private NUEVO As Button
|
|
Private S_CC As Label
|
|
Private S_CP As Label
|
|
Private S_CH As Label
|
|
Private PB2 As ProgressBar
|
|
Private PB1 As ProgressBar
|
|
Private L_P_1 As Label
|
|
Private L_P_2 As Label
|
|
Private L_P_3 As Label
|
|
Private CARGA As String
|
|
Private PORCENTAJE As String
|
|
Private P_RESUMEN As Panel
|
|
Private B_OK_RES As Button
|
|
Private Resumen As Button
|
|
Private L_CUANTOST As Label
|
|
Private img3 As ImageView
|
|
|
|
Private ImageView3 As ImageView
|
|
Private ImageView5 As ImageView
|
|
Private L_TICKPROM As Label
|
|
Private L_MARCAS As ListView
|
|
Private p_ruta2 As Panel
|
|
Private E_RUTA2 As EditText
|
|
Private resdia As ImageView
|
|
Private hacer_ped As ImageView
|
|
Private nvo_cliente As ImageView
|
|
Private tickets_dia As ImageView
|
|
|
|
Private l_monto_ks As Label
|
|
Private l_monto_kp As Label
|
|
Private l_monto_k As Label
|
|
|
|
Private l_monto_c1 As Label
|
|
Private l_monto_c2 As Label
|
|
Private l_monto_c3 As Label
|
|
|
|
Private l_encuesta As Label
|
|
|
|
|
|
Private bpv1 As BatteryProgressView
|
|
Dim batterystatus(11) As Int
|
|
Private bu As BatteryUtilities
|
|
|
|
|
|
Private Panel4 As Panel
|
|
Private L_NES As Label
|
|
Private L_REAL As Label
|
|
Private L_ALCANCE As Label
|
|
Private L_VPLAN As Label
|
|
Private L_VREAL As Label
|
|
Private L_EFEC_VIS As Label
|
|
Private L_VISITCC As Label
|
|
Private L_EFEC_PV As Label
|
|
Private L_EFEC_PURA As Label
|
|
Private L_CTE_PROMO As Label
|
|
Private L_REDEN_PROMO As Label
|
|
Private L_LIN_TICK As Label
|
|
Private SCROLL_RESDIA As ScrollView
|
|
Private L_ACUMULADO As Label
|
|
Private L_UNILEVER As Label
|
|
Private L_RECHAZOP As Label
|
|
Private L_RECHAZOM As Label
|
|
Private L_VTA_3MES As Label
|
|
Private L_VTA_2MES As Label
|
|
Private L_VTA_1MES As Label
|
|
Private L_MES_PY As Label
|
|
Private L_FREC_DE_CREAL As Label
|
|
Private L_FREC_DE_COBJ As Label
|
|
Private L_COB_VISIT As Label
|
|
Private L_VISIT_REAL As Label
|
|
Private L_VISIT_PLAN As Label
|
|
Private L_ECO As Label
|
|
Private L_COB_CCC As Label
|
|
Private L_CTES As Label
|
|
Private L_VPO_VTA As Label
|
|
Private L_VPO_OBJ As Label
|
|
Private L_DS_VTA As Label
|
|
Private L_DS_OBJ As Label
|
|
Private L_DRA_VTA As Label
|
|
Private L_DRA_OBJ As Label
|
|
Private L_ALCANCEM As Label
|
|
Private L_TENDENCIA As Label
|
|
Private L_VTA_ACUM As Label
|
|
Private L_OBJ_MES As Label
|
|
Private L_DS_OBJD As Label
|
|
Private L_DS_VTAD As Label
|
|
Private LPT As String
|
|
Private STEYIN As String
|
|
Private STEYOUT As String
|
|
|
|
Private L_PRIO As Label
|
|
Private L_SECUND As Label
|
|
Private L_COMP As Label
|
|
|
|
|
|
Private stay_hh As String
|
|
Private stay_mi As String
|
|
Private stay_ss As String
|
|
|
|
Dim sDate,sTime As String
|
|
Dim HORAINGRESO As String
|
|
|
|
Private L_QUALA As Label
|
|
Private L_FERRERO As Label
|
|
Private L_SANMARCOS As Label
|
|
Private L_CAMPARI As Label
|
|
Private L_IBERIA As Label
|
|
Private L_BEPENSA As Label
|
|
Private L_SCJ As Label
|
|
Private L_MEDJ As Label
|
|
Private L_DURACELL As Label
|
|
Private L_GUNA As Label
|
|
Private L_KIMB As Label
|
|
Private L_TRESM As Label
|
|
Private L_REDB As Label
|
|
Private Btn_Ubicar As Button
|
|
Private B_COMM As Button
|
|
Private L_TOTAL_MM As Label
|
|
Private L_TOTAL_VIVE As Label
|
|
Private L_TOTAL_GUNA As Label
|
|
Private L_TOTAL_BA As Label
|
|
Private L_TOTAL_COMIS As Label
|
|
Private L_TOTAL_MM_1 As Label
|
|
Private L_TOTAL_VIVE_1 As Label
|
|
Private L_TOTAL_GUNA_1 As Label
|
|
Private L_TOTAL_BA_1 As Label
|
|
Private L_TOTAL_COMIS_1 As Label
|
|
Private B_OK_COMISS As Button
|
|
Private Panel_C As Panel
|
|
|
|
Private TitleHeight As Int = 50dip
|
|
Private Title2Height As Int = 100dip
|
|
|
|
Private DividerHeight As Int = 5dip
|
|
Private CLV1 As CustomListView
|
|
Private pnlTitle As B4XView
|
|
Private xui As XUI
|
|
Type TitleData (Title As String)
|
|
|
|
Private B_MARCAS As Button
|
|
Private lblTitle As Label
|
|
Private B_OK_PANEL5 As Button
|
|
Private p_principal As Panel
|
|
|
|
Private teclado As IME
|
|
Private panel5 As Panel
|
|
Private panel_5 As Panel
|
|
Private p_marcasRes As Panel
|
|
Private p_sombra As Panel
|
|
|
|
Private Label22 As Label
|
|
Private l_rutasuplencia As Label
|
|
Dim l_ru_pri As Label
|
|
Private l_ru_sup As Label
|
|
Private Label4 As Label
|
|
Private Label2 As Label
|
|
Private Label25 As Label
|
|
Dim p_transparenteActualizacion As Panel
|
|
Private p_forzarActualizacion As Panel
|
|
Dim l_forzarActualizacion As Label
|
|
Dim tipo_venta As String = Subs.traeTipoVentaDeBD
|
|
Private b_abordo As Button
|
|
Dim bitacora As C_Bitacora
|
|
Private l_version As Label
|
|
Dim contadorSubir As Int = 0
|
|
|
|
Private p_somvra_2 As Panel
|
|
Private b_resdia As Button
|
|
Private b_hacerpedido As Button
|
|
Private b_nuevocliente As Button
|
|
Private b_clientesvisitados As Button
|
|
End Sub
|
|
|
|
'You can add more parameters here.
|
|
Public Sub Initialize As Object
|
|
Return Me
|
|
End Sub
|
|
|
|
'This event will be called once, before the page becomes visible.
|
|
Private Sub B4XPage_Created (Root1 As B4XView)
|
|
Root = Root1
|
|
bitacora.Initialize("bitacora", "bitacora", Root, B4XPages.MainPage.skmt, Starter.reqManager)
|
|
'load the layout to Root
|
|
Root.LoadLayout("principal")
|
|
SCROLL_RESDIA.Width = Root.Width
|
|
SCROLL_RESDIA.Height = Root.Height
|
|
B_OK_RES.color = Colors.Red
|
|
B_OK_RES.TextColor = Colors.White
|
|
l_version.Left = Root.Width - l_version.Width
|
|
l_version.Text = Application.VersionName
|
|
EJECUTANDO=1
|
|
Dim ruta As String
|
|
img2.Visible =False
|
|
ruta = File.DirInternal
|
|
If File.Exists(ruta, "kmt.db") = False Then
|
|
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
|
|
End If
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
fecha=DateTime.Date(DateTime.Now)
|
|
B4XPages.MainPage.skmt.Initialize(ruta,"kmt.db", True)
|
|
b=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
|
|
b.Position=0
|
|
Cuantos = b.GetString("CUANTOS")
|
|
b.Close
|
|
d=B4XPages.MainPage.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info3 where gestion = 0")
|
|
d.Position=0
|
|
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info3")
|
|
e.Position=0
|
|
f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info3")
|
|
f.Position=0
|
|
l_ruta.Text = f.GetString("CAT_CL_RUTA")
|
|
f.Close
|
|
b_abordo.Left = (Root.Width / 2) - (b_abordo.Width / 2)
|
|
p_principal.Width = Root.Width : p_principal.Height = Root.Height
|
|
' ro = B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info3")
|
|
' ro.Position = 0
|
|
' l_ru_pri.Text = ro.GetString("CAT_CL_RUTA")
|
|
' ro.Close
|
|
' If l_ru_pri.Text = 0 Then
|
|
' l_ru_pri.Text = 0
|
|
' End If
|
|
If l_ruta.Text = 0 Then
|
|
l_ruta.Text = 0
|
|
Else If l_ruta.Text > 0 Then
|
|
f=B4XPages.MainPage.skmt.ExecQuery("select distinct CAT_CL_RUTA from kmt_info3 where CAT_CL_RUTA not in (select * from ruta_suplencia)")
|
|
f.Position=0
|
|
l_ruta.Text = f.GetString("CAT_CL_RUTA")
|
|
f.Close
|
|
End If
|
|
' Log($"|${Subs.traeTipoVentaDeBD}|"$)
|
|
If Subs.traeTipoVentaDeBD = "VENTA" Or Subs.traeTipoVentaDeBD = "ABORDO" Then
|
|
If l_ruta.Text <> "0" Then
|
|
Log(999 & "|" & l_ruta.Text & "|")
|
|
b_abordo.Visible = False
|
|
End If
|
|
Else
|
|
b_abordo.Visible = False
|
|
End If
|
|
' If l_ruta.Text <> "0" Then
|
|
' b_abordo.Visible = True
|
|
' Else
|
|
' b_abordo.Visible = False
|
|
' End If
|
|
If Cuantos = 0 Then
|
|
L_MONTOD.Text =0
|
|
l_cuantosc.Text = 0
|
|
l_cuantosn.Text = 0
|
|
drop = 0
|
|
l_drop.Text = 0
|
|
efectiva = 0
|
|
l_efectiva.text =0
|
|
l_ctast.Text = d.GetString("TOTAL_VISITAR")
|
|
l_porvisitar.Text = e.GetString("POR_VISITAR")
|
|
Else
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
|
|
b=B4XPages.MainPage.skmt.ExecQuery("select count(distinct NV_CLIENTE) as CUANTOS from noventa")
|
|
'where pc_fecha = ?", Array As String(fecha)
|
|
c.Position=0
|
|
b.Position=0
|
|
L_MONTOD.Text = NumberFormat2(c.GetDouble("MONTO_DIA"), 0, 2, 2, False)
|
|
l_cuantosc.Text = c.GetString("CLIENTES_DIA")
|
|
l_cuantosn.Text = b.GetString("CUANTOS")
|
|
drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")
|
|
l_drop.Text = Round2(drop,2)
|
|
efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
|
|
l_efectiva.text = Round2(efectiva*100,2)
|
|
l_ctast.Text = d.GetString("TOTAL_VISITAR")
|
|
l_porvisitar.Text = e.GetString("POR_VISITAR")
|
|
b.Close
|
|
c.Close
|
|
End If
|
|
d.Close
|
|
e.Close
|
|
CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
|
|
|
|
Private s As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(RS_RUTA) as cuenta, RS_RUTA FROM RUTA_SUPLENCIA")
|
|
s.Position = 0
|
|
If s.GetString("cuenta") = 0 Then
|
|
Label22.Visible = False
|
|
l_rutasuplencia.Visible = False
|
|
Else If s.GetString("cuenta") > 0 Then
|
|
Label22.Visible = True
|
|
l_rutasuplencia.Visible = True
|
|
l_rutasuplencia.Text = s.GetString("RS_RUTA")
|
|
End If
|
|
p_transparenteActualizacion.Width = Root.Width
|
|
p_transparenteActualizacion.Height = Root.Height
|
|
Subs.centraPanel(p_forzarActualizacion, p_transparenteActualizacion.Width)
|
|
' Subs.centraPanel(Panel4, Root.Width)
|
|
End Sub
|
|
|
|
'Descargar: GP_https://keymon.lat/movil/guna/GP_4.10.10.EP_d.apk
|
|
|
|
Sub B4XPage_Appear
|
|
' LogColor($"########## ${Subs.traeRuta} ##########"$, Colors.red)
|
|
p_principal.Visible = True
|
|
E_RUTA2.Text = ""
|
|
p_ruta2.Visible = False
|
|
E_RUTA2.Visible = False
|
|
p_somvra_2.Visible = False
|
|
Subs.validaPromoProcterPRO3009
|
|
HORAINGRESO ="000000"
|
|
Btn_Ubicar.Left = (Panel4.Width/2) - (Btn_Ubicar.Width/2)
|
|
' B4XPages.MainPage.reqManager.Initialize(Me, B4XPages.MainPage.SERVER)
|
|
PASO = 0
|
|
If Not(Starter.gps.GPSEnabled) Then
|
|
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Es necesario tener el GPS encendido", True)
|
|
StartActivity(Starter.gps.LocationSettingsIntent)
|
|
End If
|
|
c=B4XPages.MainPage.skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
|
c.Position = 0
|
|
If c.GetString("CUANTOS") = 0 Then
|
|
cmd.Initialize
|
|
cmd.Name = "select_fecha"
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "fecha")
|
|
Msgbox("AJUSTAR FECHA","AVISO") 'ignore
|
|
B4XPage_Appear
|
|
Else
|
|
c = B4XPages.MainPage.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
|
|
c.Position = 0
|
|
Dim sDate, sTime As String
|
|
DateTime.DateFormat = "yyyyMMdd"
|
|
sDate = DateTime.Date(DateTime.Now)
|
|
If c.GetString("CAT_VA_VALOR") > sDate Then
|
|
Msgbox("AJUSTAR LA FECHA YA QUE ES MENOR AL SISTEMA" ,"AVISO") 'ignore
|
|
c.Close
|
|
B4XPage_Appear
|
|
End If
|
|
c.Close
|
|
End If
|
|
c.Close
|
|
If EJECUTANDO = 0 Then
|
|
Listo1 = 0
|
|
Listo2 = 0
|
|
Listo3 = 0
|
|
Listo4 = 0
|
|
Listo5 = 0
|
|
inve = 0
|
|
img2.Visible =False
|
|
End If
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
fecha=DateTime.Date(DateTime.Now)
|
|
b=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
|
|
b.Position = 0
|
|
Cuantos = b.GetString("CUANTOS")
|
|
b.Close
|
|
If Starter.marcaCel <> "Sony" Then ToastMessageShow(Cuantos , True)
|
|
d=B4XPages.MainPage.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info3 where gestion = 0")
|
|
d.Position=0
|
|
e=B4XPages.MainPage.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info3")
|
|
e.Position=0
|
|
f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info3")
|
|
f.Position=0
|
|
l_ruta.Text = f.GetString("CAT_CL_RUTA")
|
|
f.Close
|
|
If l_ruta.Text = 0 Then
|
|
l_ruta.Text =0
|
|
Else
|
|
f=B4XPages.MainPage.skmt.ExecQuery("select distinct CAT_CL_RUTA from kmt_info3 where CAT_CL_RUTA not in (select * from ruta_suplencia)")
|
|
f.Position=0
|
|
l_ruta.Text = f.GetString("CAT_CL_RUTA")
|
|
f.Close
|
|
End If
|
|
If Cuantos = 0 Then
|
|
L_MONTOD.Text =0
|
|
l_cuantosc.Text = 0
|
|
l_cuantosn.Text = 0
|
|
L_CUANTOST.Text = 0
|
|
drop = 0
|
|
l_drop.Text = 0
|
|
efectiva = 0
|
|
l_efectiva.text =0
|
|
l_ctast.Text = d.GetString("TOTAL_VISITAR")
|
|
l_porvisitar.Text = e.GetString("POR_VISITAR")
|
|
d.Close
|
|
e.Close
|
|
b=B4XPages.MainPage.skmt.ExecQuery("select count( distinct NV_CLIENTE) as CUANTOS from noventa")
|
|
b.Position=0
|
|
l_cuantosn.Text = b.GetString("CUANTOS")
|
|
b.close
|
|
Else
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO")
|
|
b=B4XPages.MainPage.skmt.ExecQuery("select count( distinct NV_CLIENTE) as CUANTOS from noventa")
|
|
c.Position=0
|
|
b.Position=0
|
|
L_MONTOD.Text = NumberFormat2(c.GetDouble("MONTO_DIA"), 0, 2, 2, False)
|
|
l_cuantosc.Text = c.GetString("CLIENTES_DIA")
|
|
D2=B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CUANTOS from PEDIDO ")
|
|
D2.Position = 0
|
|
LPT = D2.GetString("CUANTOS") / l_cuantosc.Text
|
|
D2.Close
|
|
l_cuantosn.Text = b.GetString("CUANTOS")
|
|
efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
|
|
l_efectiva.text = Round2(efectiva*100,2)
|
|
l_ctast.Text = d.GetString("TOTAL_VISITAR")
|
|
d.Close
|
|
l_porvisitar.Text = e.GetString("POR_VISITAR")
|
|
L_CUANTOST.Text = l_cuantosc.Text + l_cuantosn.Text
|
|
drop = L_CUANTOST.Text / l_porvisitar.Text
|
|
l_drop.Text = Round(drop * 100)
|
|
If L_CUANTOST.Text < 40 Then
|
|
ImageView3.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png")
|
|
Else If L_CUANTOST.Text > = 40 And L_CUANTOST.Text < 50 Then
|
|
ImageView3.bitmap = LoadBitmap(File.DirAssets, "alerta_amarilla.png")
|
|
Else
|
|
ImageView3.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png")
|
|
End If
|
|
Log("|" & c.GetString("MONTO_DIA") & "|")
|
|
Log("|" & c.GetString("CLIENTES_DIA") & "|")
|
|
' L_TICKPROM.Text = Round2((c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")), 2)
|
|
' If c.GetString("MONTO_DIA") < 4000 Then
|
|
' ImageView5.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png")
|
|
' Else if c.GetString("MONTO_DIA") > = 4000 And c.GetString("MONTO_DIA") < 6250 Then
|
|
' ImageView5.bitmap = LoadBitmap(File.DirAssets, "alerta_amarilla.png")
|
|
' Else
|
|
' ImageView5.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png")
|
|
' End If
|
|
b.Close
|
|
c.Close
|
|
End If
|
|
c.Close
|
|
b.Close
|
|
e.Close
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
|
C.Position =0
|
|
ALMACEN = C.GetString("ID_ALMACEN")
|
|
c.Close
|
|
bu.Initialize
|
|
batterystatus = bu.BatteryInformation
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
|
|
c.Position = 0
|
|
usuario = c.GetString("USUARIO")
|
|
c.Close
|
|
B4XPages.MainPage.montoActual = L_MONTOD.Text
|
|
B4XPages.MainPage.clientestotal = L_CUANTOST.Text
|
|
B4XPages.MainPage.clientesventa = l_cuantosc.Text
|
|
B4XPages.MainPage.clientesvisitados = l_porvisitar.TEXT
|
|
B4XPages.MainPage.ALMACEN = ALMACEN
|
|
B4XPages.MainPage.rutapreventa = l_ruta.text
|
|
|
|
'////// Para el usuario global - Chv
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
|
|
c.Position = 0
|
|
usuario = c.GetString("USUARIO")
|
|
B4XPages.MainPage.usuario = usuario
|
|
c.Close
|
|
'///////
|
|
CallSub(Starter, "ENVIA_ULTIMA_GPS")
|
|
' panel_5.Visible = False
|
|
' 'Log("panel5 visible FALSE")
|
|
|
|
Private s As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(RS_RUTA) as cuenta, RS_RUTA FROM RUTA_SUPLENCIA")
|
|
s.Position = 0
|
|
If s.GetString("cuenta") = 0 Then
|
|
Label22.Visible = False
|
|
l_rutasuplencia.Visible = False
|
|
l_rutasuplencia.Text = ""
|
|
Else If s.GetString("cuenta") > 0 Then
|
|
Label22.Visible = True
|
|
l_rutasuplencia.Visible = True
|
|
l_rutasuplencia.Text = s.GetString("RS_RUTA")
|
|
End If
|
|
End Sub
|
|
|
|
Sub Subir_Click
|
|
checaPedido
|
|
CARGA = "SUBIR"
|
|
P1.Visible = True
|
|
P1.BringToFront
|
|
'trabajar.Visible = False
|
|
NUEVO.Visible =False
|
|
BUSCA.Visible=False
|
|
connecta.Visible=False
|
|
Subir.Visible=False
|
|
cargar.Visible=False
|
|
L_P_1.Visible = False
|
|
S_CC.Visible = False
|
|
L_P_3.Visible = False
|
|
S_CH.Visible = False
|
|
PB1.Visible = False
|
|
Resumen.Visible= False
|
|
|
|
p_principal.Visible = False
|
|
Subs.panelVisible(P1, 0, 0)
|
|
Subs.centraPanel(P1, Root.Width)
|
|
Subs.centraPanelV(P1, Root.Height)
|
|
B4XPages.MainPage.reqManager.trackInit
|
|
|
|
L_P_2.Text = "Envio de Pedidos"
|
|
L_P_3.Text = "Envio de Pedidos"
|
|
S_CH.Text = "EN PROCESO"
|
|
S_CP.Text = "EN PROCESO"
|
|
B_OK_PAS.Text = "ENVIANDO"
|
|
PB1.Progress = 0
|
|
PB2.Progress = 0
|
|
'c=skmt.ExecQuery("SELECT sum(IFNULL(PE_DESC,0)) as DESCUENTO FROM PEDIDO")
|
|
'c.Position =0
|
|
'If c.GetString("DESCUENTO") > 0 And PASO = 0 Then
|
|
'P1.Visible = True
|
|
'ELSE IF c.GetString("DESCUENTO") = 0 Then
|
|
PASO = 1
|
|
'End If
|
|
If PASO =1 Then
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
|
|
c.Position = 0
|
|
usuario = c.GetString("USUARIO")
|
|
c.Close
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "UPDATE_GUNA_ACTUAL2_GPS"
|
|
cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),LPT, STEYIN, STEYOUT,ALMACEN,l_ruta.Text )
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_visitas")
|
|
Next
|
|
End If
|
|
c.Close
|
|
|
|
' PEDIO_CLIENTE
|
|
c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE ")
|
|
d=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_pedidos_GV3"
|
|
cmd.Parameters = Array As Object(C.GetString("PC_CLIENTE"),C.GetString("PC_FECHA"),C.GetString("PC_USER"),C.GetString("PC_NOART"),C.GetString("PC_MONTO"),C.GetString("PC_LON"),C.GetString("PC_LAT"),ALMACEN,l_ruta.text,C.GetString("PC_COSTO_SIN"),C.GetString("PC_FACTURA") )
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedidos")
|
|
Next
|
|
End If
|
|
c.Close
|
|
d.Position=0
|
|
cuantos_pedidosc = D.GetString("CUANTOS_PEDIDOSC")
|
|
d.Close
|
|
|
|
' ENVIO DE LOS CODIGOS QR
|
|
'c=skmt.ExecQuery2("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info3 where CAT_CL_NUM_SERIEFISICO = ?", Array As String("OK"))
|
|
c=B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" )
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_QR_2_GV2"
|
|
cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),ALMACEN,l_ruta.text )
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR2")
|
|
Next
|
|
End If
|
|
c.Close
|
|
|
|
' Plan Lealtad
|
|
c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PLAN_LEALTAD WHERE DESCARGADO IS NULL")
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_plan_lealtad_GUNA"
|
|
cmd.Parameters = Array As Object(C.GetString("PL_BANDERA"),C.GetString("PL_CLIENTE"),Subs.traeAlmacen,Subs.traeRuta)
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insPlanLealtad")
|
|
Next
|
|
End If
|
|
c.Close
|
|
|
|
' Plan Lealtad
|
|
c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM COMENTARIOS WHERE DESCARGADO IS NULL")
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_coments_GUNA"
|
|
cmd.Parameters = Array As Object(C.GetString("COMENTARTIO"),C.GetString("CLIENTE"),Subs.traeAlmacen,Subs.traeRuta)
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "INS_coment")
|
|
Next
|
|
End If
|
|
c.Close
|
|
|
|
|
|
Dim fotomostrar1 As Cursor = Starter.skmt.ExecQuery("SELECT * FROM kmt_info3 where foto is not NULL")
|
|
If fotomostrar1.RowCount>0 Then
|
|
For i=0 To fotomostrar1.RowCount -1
|
|
fotomostrar1.Position=i
|
|
Dim fotoenvio() As Byte = fotomostrar1.GetBlob("foto")
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "UPDATE_FOTO_GUNA"
|
|
cmd.Parameters = Array As Object(fotoenvio,fotomostrar1.GetString("CAT_CL_CODIGO"),Subs.traeAlmacen,Subs.traeRuta)
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "INS_coment")
|
|
Next
|
|
End If
|
|
fotomostrar1.Close
|
|
|
|
c=B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info3 where CAT_CL_NUM_SERIEFISICO IS NOT NULL and gestion <> '0'")
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
's=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO")))
|
|
's.Position =0
|
|
foto1 = c.GetBlob("CAT_CL_FOTO")
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_QR_GV2"
|
|
cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"),C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_LONG"),C.GetString("CAT_CL_LAT"),ALMACEN,l_ruta.text, foto1 )
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR")
|
|
Next
|
|
End If
|
|
c.Close
|
|
|
|
'BITACORA (PROYECTO GPS)
|
|
Private h As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select * from bitacoraGPS"$)
|
|
Do While h.nextrow
|
|
cmd.Initialize
|
|
Private eventob As String = h.GetString("eventob")
|
|
cmd.Name = "mandaBitacora3_GUNA"
|
|
' Log("BITACORA3")
|
|
Private clienteb As String = h.GetString("clienteb")
|
|
Private finb As String = h.GetString("finb")
|
|
Private nombreCliente As String =Subs. traeNombreCliente(h.GetString("clienteb"))
|
|
If eventob = "Llega a almacen" Then
|
|
nombreCliente = "BOLETA"
|
|
clienteb = ""
|
|
finb = h.GetString("iniciob")
|
|
End If
|
|
' Private VarXRu As String = ("R:"&e_ruta.Text & " R:" & E_RUTA2.Text)
|
|
' LogColor("----------->" & VarXRu, Colors.Red)
|
|
If eventob = "Salida almacen" Then nombreCliente = "CHECKLIST"
|
|
If eventob = "Fin Día" Then nombreCliente = "FIN DIA"
|
|
If eventob = "Carga día" Then nombreCliente = "CARGA DIA"
|
|
If eventob = "Carga día suplencia" Then nombreCliente = Subs.traeRutasSup
|
|
' If eventob = "Suplencia" Then nombreCliente = VarXRu
|
|
' Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${nombreCliente}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$)
|
|
' TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC, TMP_FECHA_MOVIL
|
|
cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), eventob, clienteb, nombreCliente, h.GetString("iniciob"), finb, h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab"),h.GetString("BAN_GEOB"))
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "mandaBitacora")
|
|
Loop
|
|
Log("MANDAMOS BITACORA")
|
|
|
|
c=B4XPages.MainPage.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON, HE_FOTO FROM HIST_ENCUESTA")
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_encuesta2_GUNA"
|
|
'TMP_HE_CLIE, TMP_HE_RES, TMP_HE_FECHA, TMP_HE_TIPO, TMP_HE_IDALMACEN, TMP_HE_RUTA, TMP_HE_LONGITUD, TMP_HE_LATITUD, TMP_HE_EXISTE
|
|
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"), C.GetString("HE_RES"), C.GetString("HE_FECHA"), c.GetString("HE_TIPO"), Subs.traeAlmacen, Subs.traeRuta, c.GetString("HE_LAT"), c.GetString("HE_LON"), "", c.GetBlob("HE_FOTO"))
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_encuesta")
|
|
Next
|
|
End If
|
|
c.Close
|
|
c=B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM PEDIDO WHERE (PE_RECALCULO = ? or PE_RECALCULO = ? or PE_RECALCULO IS NULL)",Array As String("","null"))
|
|
d=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_pedido_GV2"
|
|
cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"), ALMACEN, C.GetString("PE_COSTO_TOT"), C.GetString("PE_COSTOU"), C.GetString("PE_CANT"), C.GetString("PE_PRONOMBRE"), C.GetString("PE_PROID"), C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"))
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedido")
|
|
Next
|
|
End If
|
|
c.Close
|
|
d.Position=0
|
|
cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
|
|
d.Close
|
|
|
|
c=B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_RECALCULO,PE_RECALCULOTOT,PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM PEDIDO WHERE PE_RECALCULO <> ? or PE_RECALCULO <> ? or PE_RECALCULO IS NOT NULL",Array As String("","null"))
|
|
d=B4XPages.MainPage.skmt.ExecQuery($"SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO where PE_RUTA = '${Subs.traeRuta}'"$)
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_pedido_GV2"
|
|
cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"), ALMACEN, C.GetString("PE_RECALCULOTOT"), C.GetString("PE_RECALCULO"), C.GetString("PE_CANT"), C.GetString("PE_PRONOMBRE"), C.GetString("PE_PROID"), C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"))
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedido")
|
|
Next
|
|
End If
|
|
c.Close
|
|
d.Position=0
|
|
cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
|
|
d.Close
|
|
|
|
' 'CUESTIONARIO
|
|
c = B4XPages.MainPage.skmt.ExecQuery($"select * from cuestionario"$)
|
|
Private rutaActual As String = Subs.traeRuta
|
|
If c.RowCount > 0 Then
|
|
For i = 0 To c.RowCount - 1
|
|
c.Position = i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_CUESTIONARIO_GUNA"
|
|
cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, ALMACEN, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA"))
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_cuestionario")
|
|
Next
|
|
End If
|
|
c.Close
|
|
|
|
' NOVENTA
|
|
c=B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA")
|
|
D=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_noventa_GV2"
|
|
cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text)
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa")
|
|
Next
|
|
End If
|
|
c.Close
|
|
d.Position=0
|
|
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
|
|
d.Close
|
|
|
|
' DATOS DE KMTS PARA EL TIPO DE ABARROTE.
|
|
'''CAT_CL_GIRO = ? WHERE CAT_CL_CODIGO = ? And CAT_CL_NOMBRE = ? kmt_info3
|
|
' c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_CL_GIRO, CAT_CL_CODIGO from kmt_info3")
|
|
' If c.RowCount>0 Then
|
|
' For i=0 To c.RowCount -1
|
|
' c.Position=i
|
|
' Dim cmd As DBCommand
|
|
' cmd.Initialize
|
|
' cmd.Name = "insert_GIROS_ENC"
|
|
' cmd.Parameters = Array As Object(C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_GIRO"))
|
|
' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_abarrote")
|
|
' Next
|
|
' End If
|
|
' c.Close
|
|
|
|
' GEO CERCA
|
|
c=B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA")
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_geocerca_GV2"
|
|
cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON"))
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_hist_geo")
|
|
Next
|
|
End If
|
|
c.Close
|
|
|
|
' LO DEL LIKE
|
|
c=B4XPages.MainPage.skmt.ExecQuery("Select HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN from HIST_FACE")
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount -1
|
|
c.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_face_like_GV2"
|
|
cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN"))
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_hist_face")
|
|
Next
|
|
End If
|
|
c.Close
|
|
|
|
' DROP
|
|
t1.Initialize("T1", 30000) ' 1000 = 1 second
|
|
t1.Enabled = True
|
|
Dim sDate,sTime As String
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name ="insert_drop_GV2_3"
|
|
cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",ALMACEN,Application.VersionName)
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_drop")
|
|
img2.Visible =False
|
|
PORCENTAJE = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1))
|
|
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
|
|
End If
|
|
|
|
Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9 from ENCUESTA_MODULO1")
|
|
If x.RowCount>0 Then
|
|
For i=0 To x.RowCount -1
|
|
x.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_ENCUESTA_MODULO1"
|
|
cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8"), x.GetString("P9"))
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO1")
|
|
Next
|
|
End If
|
|
x.Close
|
|
|
|
Private x1 As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6 from ENCUESTA_MODULO2")
|
|
If x1.RowCount>0 Then
|
|
For i=0 To x1.RowCount -1
|
|
x1.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_ENCUESTA_MODULO2"
|
|
cmd.Parameters = Array As Object(x1.GetString("CLIENTE"), x1.GetString("ALMACEN"),x1.GetString("P1"), x1.GetString("P2"), x1.GetString("P3"), x1.GetString("P4"), x1.GetString("P5"), x1.GetString("P6"))
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO2")
|
|
Next
|
|
End If
|
|
x1.Close
|
|
Private x2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11 from ENCUESTA_MODULO3")
|
|
If x2.RowCount>0 Then
|
|
For i=0 To x2.RowCount -1
|
|
x2.Position=i
|
|
'Logcolor(x2.GetString("CLIENTE"),Colors.Red)
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_ENCUESTA_MODULO3"
|
|
cmd.Parameters = Array As Object(x2.GetString("CLIENTE"), x2.GetString("ALMACEN"),x2.GetString("P1"), x2.GetString("P2"), x2.GetString("P3"), x2.GetString("P4"), x2.GetString("P5"), x2.GetString("P6"), x2.GetString("P7"), x2.GetString("P8"), x2.GetString("P9"), x2.GetString("P10"), x2.GetString("P11"))
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO3")
|
|
Next
|
|
End If
|
|
x2.Close
|
|
Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8 from ENCUESTA_MODULO4")
|
|
If x.RowCount>0 Then
|
|
For i=0 To x.RowCount -1
|
|
x.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_ENCUESTA_MODULO4"
|
|
cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8"))
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO4")
|
|
Next
|
|
End If
|
|
x.Close
|
|
Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9 from ENCUESTA_MODULO5")
|
|
If x.RowCount>0 Then
|
|
For i=0 To x.RowCount -1
|
|
x.Position=i
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "insert_ENCUESTA_MODULO5"
|
|
cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8"), x.GetString("P9"))
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO5")
|
|
Next
|
|
End If
|
|
x.Close
|
|
End Sub
|
|
|
|
Sub cargar_Click
|
|
Private i As Int = Regex.Replace("[^0-9.]", e_ruta.text,"") 'Quitamos alfanumericos y convertimos en entero.
|
|
e_ruta.text = i
|
|
|
|
Private sup As Cursor = Starter.skmt.ExecQuery("SELECT RS_RUTA FROM RUTA_SUPLENCIA")
|
|
If E_RUTA2.Visible = False And E_RUTA2.text = "" And sup.RowCount > 0 Then 'Si hay ruta de suplencia, LA USAMOS.
|
|
sup.Position = 0
|
|
E_RUTA2.text = sup.GetString("RS_RUTA")
|
|
E_RUTA2.Visible = True
|
|
End If
|
|
|
|
If E_RUTA2.Visible = True Then
|
|
Private i2 As Int = Regex.Replace("[^0-9.]", E_RUTA2.text,"") 'Quitamos alfanumericos y convertimos en entero.
|
|
E_RUTA2.text = i2
|
|
Rut_Rep = e_ruta.Text & " " & E_RUTA2.Text
|
|
Else
|
|
Rut_Rep = e_ruta.Text
|
|
End If
|
|
Log(Rut_Rep)
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("GEOCERCA"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
|
|
CARGA = "CARGAR"
|
|
' img2.Visible =True
|
|
L_P_1.Visible = True
|
|
S_CC.Visible = True
|
|
Btn_Ubicar.Visible=False
|
|
' P1.Visible = True
|
|
p_principal.Visible = False
|
|
Subs.panelVisible(P1, 0, 0)
|
|
Subs.centraPanel(P1, Root.Width)
|
|
Subs.centraPanelV(P1, Root.Height)
|
|
Label4.Visible = False
|
|
l_ruta.Visible = False
|
|
Label22.Visible = False
|
|
l_rutasuplencia.Visible = False
|
|
|
|
' trabajar.Visible = False
|
|
NUEVO.Visible =False
|
|
BUSCA.Visible=False
|
|
connecta.Visible=False
|
|
L_P_3.Visible = True
|
|
S_CH.Visible = True
|
|
PB1.Visible = True
|
|
Resumen.Visible= False
|
|
|
|
L_P_1.Text = "Catalogo de Clientes"
|
|
L_P_2.Text = "Catalogos de Productos"
|
|
L_P_3.Text = "Catalogos Historicos"
|
|
S_CC.Text = "EN PROCESO"
|
|
S_CH.Text = "EN PROCESO"
|
|
S_CP.Text = "EN PROCESO"
|
|
PB1.Progress = 0
|
|
PB2.Progress = 0
|
|
EJECUTANDO = 1
|
|
|
|
'c=skmt.ExecQuery("CREATE TABLE kmt_info3 (pr_cd_credito NUMERIC,pr_cd_nombre TEXT,pr_cd_calle TEXT,pr_cd_numero TEXT,pr_cd_num_int TEXT,pr_cd_entrecalle1 TEXT,pr_cd_entrecalle2 TEXT,pr_cd_colonia TEXT,pr_cd_poblacion TEXT,pr_cd_edo TEXT,pr_cd_cp TEXT,pr_cd_zona TEXT,pr_cf_credito NUMERIC,pr_cf_saldotot NUMERIC,pr_cf_saldooper NUMERIC,pr_cf_saldof1 NUMERIC, pr_cf_penalizacion NUMERIC)")
|
|
TOPE = 0
|
|
' NUEVOS CLIENTE
|
|
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info3")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from PROMO_ESP")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSP")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod2")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from telefonos")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_PROMOS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from PROMOS_COMP")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_VERIFICACION")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM MARCAS_RUTAS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_STAY_STORE")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GEOCERCA")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_MARCAS_CUOTAS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA_CLIENTE")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CAT_ENCUESTA_PREGUNTA")
|
|
|
|
c = B4XPages.MainPage.skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
|
|
c.Position = 0
|
|
DateTime.TimeFormat = "HHmmss"
|
|
'Valida si ya se cuenta con hora actualiza el valor si no lo inserta-----------
|
|
If c.GetString("HoraIngreso") > 0 Then
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
|
|
Else
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_VALOR,CAT_VA_DESCRIPCION) VALUES (?,?)" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
|
|
End If
|
|
c.Close
|
|
DateTime.TimeFormat = "HH:mm:ss"
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
|
|
c.Position = 0
|
|
usuario = c.GetString("USUARIO")
|
|
c.Close
|
|
'
|
|
Dim sDate,sTime As String
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
cmd.Initialize
|
|
cmd.Name = "select_planLealtad_GUNA"
|
|
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "planLealtad")
|
|
|
|
Subs.guardaVariable("RUTA", e_ruta.text)
|
|
|
|
Dim P As PhoneId
|
|
imei = ""
|
|
cmd.Initialize
|
|
cmd.Name ="insert_drop_GV2_3"
|
|
cmd.Parameters = Array As Object(usuario,e_ruta.text,sDate,imei,sTime,"","","","","CARGA",ALMACEN,Application.VersionName)
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_drop")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_TipoVenta"
|
|
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "tipoVenta")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_coments_GUNA"
|
|
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "coments")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_cat_gunaprod_GV2"
|
|
cmd.Parameters = Array As Object(ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_cat_gunaprod2_GV2"
|
|
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod2")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_abonosp_GUNA_pre"
|
|
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, e_ruta.Text,ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "select_abonosp")
|
|
|
|
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_GV6"
|
|
cmd.Parameters = Array As Object(ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
|
|
|
|
If ALMACEN = 32 Then 'Or ALMACEN = 6
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_cat_promoesp_GUNA"
|
|
cmd.Parameters = Array As Object(ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "promoesp")
|
|
|
|
End If
|
|
|
|
If ALMACEN = 87 Or ALMACEN = 6 Then
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_cat_promoesp_GUNA2"
|
|
cmd.Parameters = Array As Object(ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "promoesp")
|
|
|
|
End If
|
|
|
|
If ALMACEN = 88 Or ALMACEN = 6 Then
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_cat_promoesp_GUNA3"
|
|
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)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_cat_detallepa_GV2"
|
|
cmd.Parameters = Array As Object(ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "detallepaq")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_cat_clientes2_guna_GV2" '########################## CODIGO PARA CREDITOS ####################
|
|
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
|
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_hist_datos_GV2_2"
|
|
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.text, ALMACEN,e_ruta.text, ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_hist_promos_GV2"
|
|
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_promos")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_hist_cliente_promos_GV2"
|
|
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"
|
|
cmd.Parameters = Array As Object( ALMACEN, e_ruta.text)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "HIST_MARCAS_CUOTAS")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_cat_encuesta_p_GUNA"
|
|
cmd.Parameters = Array As Object( ALMACEN,e_ruta.text )
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "carga_encuesta")
|
|
|
|
' cmd.Initialize
|
|
' cmd.Name = "SELECT_HIST_ENCUESTA_GUNA"
|
|
' 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")
|
|
|
|
'Promo PRO3015 - 2 AXE AEROSOL 150 ML + 1 REXONA AEROSOL 150 ML $104.00
|
|
' Solo aplica para los que hayan comprado la PRO2265 durante Jul-Ago, el siguiente query trae esos clientes.
|
|
cmd.Initialize
|
|
cmd.Name = "selectPromo2265JulAgo_Guna"
|
|
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_pro2265")
|
|
|
|
' Dim reqManager9000 As DBRequestManager
|
|
' reqManager9000.Initialize(Me, "http://keymon.lat:9000/")
|
|
|
|
'Promo PRO3054 - Plan promocional Act II Cajitas (Conagra)
|
|
' Solo aplica para los que hayan comprado la PRO3054 durante Jul-Sep, el siguiente query trae esos clientes.
|
|
cmd.Initialize
|
|
cmd.Name = "selectPromo3054Jul-Sep_Guna"
|
|
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_pro3054")
|
|
|
|
'Promo PRO3055 - Plan promocional Act II Cajitas (Conagra)
|
|
' Solo aplica para los que hayan comprado la PRO3055 durante Jul-Sep, el siguiente query trae esos clientes.
|
|
cmd.Initialize
|
|
cmd.Name = "selectPromo3055Jul-Sep_Guna"
|
|
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_pro3055")
|
|
|
|
'SUPLENCIA
|
|
If E_RUTA2.text <> "" Then
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_SUPLENCIA(RS_RUTA) VALUES(?)",Array As String(E_RUTA2.Text))
|
|
E_RUTA2.Visible = False
|
|
p_ruta2.Visible = False
|
|
p_somvra_2.Visible = False
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_cat_clientes2_guna_GV2" '########################## CODIGO PARA CREDITOS ####################
|
|
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos2")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_hist_datos_GV2_2"
|
|
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN,E_RUTA2.text, ALMACEN,E_RUTA2.text, ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_hist_promos_GV2"
|
|
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_promos")
|
|
|
|
cmd.Initialize
|
|
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
|
|
cmd.Name = "select_promo_comp_GV2"
|
|
cmd.Parameters = Array As Object(ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_comp_promos")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_coordenadas_GUNA"
|
|
cmd.Parameters = Array As Object(ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "coordenadas")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_PASS_GUNA"
|
|
cmd.Parameters = Array As Object(ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "password")
|
|
|
|
' cmd.Initialize
|
|
' cmd.Name = "select_verificacion_GV2"
|
|
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
|
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "cat_verificacion")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_fecha"
|
|
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "fecha")
|
|
|
|
' cmd.Initialize
|
|
' cmd.Name = "select_folio_GV2"
|
|
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
|
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "folio")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_marcas_rutas"
|
|
cmd.Parameters = Array As Object( ALMACEN, e_ruta.text)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "marcas_rutas")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_CUEST2_GV2"
|
|
cmd.Parameters = Array As Object(ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CUESTIONARIO")
|
|
|
|
' cmd.Initialize
|
|
' cmd.Name = "select_CLIENTE_ENCUESTA"
|
|
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
|
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ENCUESTA_CLIENTE")
|
|
|
|
|
|
' cmd.Initialize
|
|
' cmd.Name = "select_HIST_CUOTAS"
|
|
' cmd.Parameters = Array As Object( ALMACEN,e_ruta.text )
|
|
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CUOTAS")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_comis_cedex"
|
|
cmd.Parameters = Array As Object( ALMACEN,e_ruta.text )
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "COMISIONES")
|
|
|
|
cargar.Visible = False
|
|
Subir.Visible = False
|
|
inv.Visible = False
|
|
E_RUTA2.Visible = False
|
|
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True)
|
|
End Sub
|
|
|
|
|
|
|
|
Sub JobDone(Job As HttpJob)
|
|
B4XPages.MainPage.reqManager.trackNext(Job)
|
|
Log("JOBDONE PRINCIPAL")
|
|
' If Job.JobName = "DBRequest" Then
|
|
' Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
' 'Log($"Tag: ${RESULT.tag}, success=${Job.Success}"$)
|
|
' End If
|
|
'Log(Job.Tag)
|
|
If Job.Success = False Then
|
|
If Job.ErrorMessage <> "STREAM" Then LogColor("Error: " & Job.tag & " : " & Subs.parseHTTPError(Job.ErrorMessage), Colors.red)
|
|
'ToastMessageShow("Error: " & Job.ErrorMessage, True)
|
|
If Job.ErrorMessage = "STREAM" Then
|
|
If CARGA = "SUBIR" Then
|
|
PB2.Progress = PB2.Progress + PORCENTAJE
|
|
S_CP.Text = "SUBIENDO"
|
|
If PB2.Progress > 99 Then
|
|
S_CP.Text = "VALIDANDO"
|
|
End If
|
|
End If
|
|
End If
|
|
Else 'If Job Success then ...
|
|
LogColor("JobDone: '" & B4XPages.MainPage.reqManager.HandleJob(Job).tag & "' - Registros: " & B4XPages.MainPage.reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
|
|
'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 = "usuarioA" Then 'query tag
|
|
Private n As String = "Sin Usuario"
|
|
For Each records() As Object In RESULT.Rows
|
|
n = records(RESULT.Columns.Get("USUARIO"))
|
|
Next
|
|
LogColor("************************** " & n, Colors.Green)
|
|
If n = "OKActivo" Then
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "select_ruta_GV2_70_10"
|
|
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
|
|
'Log("Usuario guardado en BD es 'Valido'")
|
|
Else
|
|
Msgbox("Usuario o password No validos","") 'ignore
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from usuarioa")
|
|
ExitApplication
|
|
End If
|
|
'Log("***************** "&n)
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "select_abonosp" Then 'query tag
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSP")
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim NOTA As String = records(RESULT.Columns.Get("NOTA"))
|
|
Dim CLIENTE As String = records(RESULT.Columns.Get("CLIENTE"))
|
|
Dim SALDO_PENDIENTE As String = records(RESULT.Columns.Get("SALDO_PENDIENTE"))
|
|
' Dim NOMBRE As String = records(RESULT.Columns.Get("NOMBRE"))
|
|
Dim FECHA_PAGARE As String = records(RESULT.Columns.Get("FECHA_PREVENTA"))
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO ABONOSP(NOTA,CLIENTE,SALDO_PENDIENTE,FECHA) VALUES (?,?,?,?)", Array As Object (NOTA, CLIENTE,SALDO_PENDIENTE,FECHA_PAGARE))
|
|
Next
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim result1 As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If result1.Tag = "CHECAENCUESTA" Then 'query tag
|
|
For Each records() As Object In result1.Rows
|
|
Dim CUANTOSENCUESTA As String = records(result1.Columns.Get("CUANTOS"))
|
|
Log(CUANTOSENCUESTA)
|
|
Next
|
|
Dim sDate,sTime As String
|
|
DateTime.DateFormat = "MM/dd/yyyy"
|
|
sDate=DateTime.Date(DateTime.Now)
|
|
sTime=DateTime.Time(DateTime.Now)
|
|
If CUANTOSENCUESTA = "0" Then
|
|
cmd.Initialize
|
|
cmd.Name ="insert_drop_GV2_4"
|
|
cmd.Parameters = Array As Object(usuario,B4XPages.MainPage.principal.e_ruta.text,sDate,"",sTime,"","","","","ENCUESTA",ALMACEN,Application.VersionName,Starter.encuesta)
|
|
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_drop")
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "kmt_datos" Then 'query tag
|
|
S_CC.TEXT = "CARGANDO"
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
|
|
Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA"))
|
|
Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE"))
|
|
Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1"))
|
|
Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2"))
|
|
Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("CAT_CL_TELEFONO"))
|
|
Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("CAT_CL_EMAIL"))
|
|
Dim CAT_CL_CALLE As String = records(RESULT.Columns.Get("CAT_CL_CALLE"))
|
|
Dim CAT_CL_NOEXT As String = records(RESULT.Columns.Get("CAT_CL_NOEXT"))
|
|
Dim CAT_CL_NOINT As String = records(RESULT.Columns.Get("CAT_CL_NOINT"))
|
|
Dim CAT_CL_CALLE1 As String = records(RESULT.Columns.Get("CAT_CL_CALLE1"))
|
|
Dim CAT_CL_CALLE2 As String = records(RESULT.Columns.Get("CAT_CL_CALLE2"))
|
|
Dim CAT_CL_COLONIA As String = records(RESULT.Columns.Get("CAT_CL_COLONIA"))
|
|
Dim CAT_CL_MUNI As String = records(RESULT.Columns.Get("CAT_CL_MUNI"))
|
|
Dim CAT_CL_EDO As String = records(RESULT.Columns.Get("CAT_CL_EDO"))
|
|
Dim CAT_CL_CP As String = records(RESULT.Columns.Get("CAT_CL_CP"))
|
|
Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_CL_LONG"))
|
|
Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT"))
|
|
Dim CAT_CL_FOTO() As Byte = records(RESULT.Columns.Get("CAT_CL_FOTO"))
|
|
Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA"))
|
|
Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO"))
|
|
Dim CAT_CL_TIPOCLIENTE As String = records(RESULT.Columns.Get("CAT_CL_TIPOCLIENTE"))
|
|
|
|
'########################## INICIA CODIGO PARA CREDITOS ####################
|
|
Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion,CAT_CL_BCREDITO,CAT_CL_TIPOCLIENTE,FOTO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BCREDITO,CAT_CL_TIPOCLIENTE,CAT_CL_FOTO))
|
|
'########################## TERMINA CODIGO PARA CREDITOS ####################
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
|
|
Next
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO, CAT_CL_RUTA, CAT_CL_NOMBRE, CAT_CL_LONG, CAT_CL_LAT, CAT_CL_NUM_SERIEFISICO) VALUES (?,?,?,0,0,0)", Array As Object ("0", e_ruta.Text, "ABORDO"))
|
|
Listo1 = 1
|
|
S_CC.Text = "LISTO"
|
|
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)
|
|
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
|
|
' B4XPage_Appear
|
|
img2.Visible=False
|
|
EJECUTANDO=0
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "kmt_datos2" Then 'query tag
|
|
S_CC.TEXT = "CARGANDO"
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
|
|
Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA"))
|
|
Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE"))
|
|
Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1"))
|
|
Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2"))
|
|
Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("CAT_CL_TELEFONO"))
|
|
Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("CAT_CL_EMAIL"))
|
|
Dim CAT_CL_CALLE As String = records(RESULT.Columns.Get("CAT_CL_CALLE"))
|
|
Dim CAT_CL_NOEXT As String = records(RESULT.Columns.Get("CAT_CL_NOEXT"))
|
|
Dim CAT_CL_NOINT As String = records(RESULT.Columns.Get("CAT_CL_NOINT"))
|
|
Dim CAT_CL_CALLE1 As String = records(RESULT.Columns.Get("CAT_CL_CALLE1"))
|
|
Dim CAT_CL_CALLE2 As String = records(RESULT.Columns.Get("CAT_CL_CALLE2"))
|
|
Dim CAT_CL_COLONIA As String = records(RESULT.Columns.Get("CAT_CL_COLONIA"))
|
|
Dim CAT_CL_MUNI As String = records(RESULT.Columns.Get("CAT_CL_MUNI"))
|
|
Dim CAT_CL_EDO As String = records(RESULT.Columns.Get("CAT_CL_EDO"))
|
|
Dim CAT_CL_CP As String = records(RESULT.Columns.Get("CAT_CL_CP"))
|
|
Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_CL_LONG"))
|
|
Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT"))
|
|
Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA"))
|
|
Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO"))
|
|
Dim CAT_CL_TIPOCLIENTE As String = records(RESULT.Columns.Get("CAT_CL_TIPOCLIENTE"))
|
|
Dim CAT_CL_FOTO() As Byte = records(RESULT.Columns.Get("CAT_CL_FOTO"))
|
|
'########################## INICIA CODIGO PARA CREDITOS ####################
|
|
Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info3(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion,CAT_CL_BCREDITO,CAT_CL_TIPOCLIENTE,FOTO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_BCREDITO,CAT_CL_TIPOCLIENTE,CAT_CL_FOTO))
|
|
'########################## TERMINA CODIGO PARA CREDITOS ####################
|
|
' Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, e_ruta.Text, "Suplencia", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","")
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
|
|
Next
|
|
Listo1 = 1
|
|
S_CC.Text = "LISTO"
|
|
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)
|
|
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
|
|
' B4XPage_Appear
|
|
img2.Visible=False
|
|
EJECUTANDO=0
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
' If Job.JobName = "DBRequest" Then
|
|
' Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
' If RESULT.Tag = "resum_apk" Then 'query tag
|
|
' For Each records() As Object In RESULT.Rows
|
|
' Dim HIST_RA_OBJMES As String = records(RESULT.Columns.Get("HIST_RA_OBJMES"))
|
|
' Dim HIST_RA_VENTA As String = records(RESULT.Columns.Get("HIST_RA_VENTA"))
|
|
' Dim HIST_RA_TENDENCIA As String = records(RESULT.Columns.Get("HIST_RA_TENDENCIA"))
|
|
' Dim HIST_RA_ALCANCE As String = records(RESULT.Columns.Get("HIST_RA_ALCANCE"))
|
|
' Dim HISR_RA_DRAOBJ As String = records(RESULT.Columns.Get("HISR_RA_DRAOBJ"))
|
|
' Dim HIST_RA_DRAVTA As String = records(RESULT.Columns.Get("HIST_RA_DRAVTA"))
|
|
' Dim HIST_RA_DSOBJ As String = records(RESULT.Columns.Get("HIST_RA_DSOBJ"))
|
|
' Dim HIST_RA_DSVTA As String = records(RESULT.Columns.Get("HIST_RA_DSVTA"))
|
|
' Dim HIST_RA_VPOOBJ As String = records(RESULT.Columns.Get("HIST_RA_VPOOBJ"))
|
|
' Dim HIST_RA_VPOVTA As String = records(RESULT.Columns.Get("HIST_RA_VPOVTA"))
|
|
' Dim HIST_RA_CTES As String = records(RESULT.Columns.Get("HIST_RA_CTES"))
|
|
' Dim HIST_RA_COBCCC As String = records(RESULT.Columns.Get("HIST_RA_COBCCC"))
|
|
' Dim HIST_RA_ECO As String = records(RESULT.Columns.Get("HIST_RA_ECO"))
|
|
' Dim HIST_RA_VISITPLAN As String = records(RESULT.Columns.Get("HIST_RA_VISITPLAN"))
|
|
' Dim HIST_RA_VISIREAL As String = records(RESULT.Columns.Get("HIST_RA_VISIREAL"))
|
|
' Dim HIST_RA_COBVISIT As String = records(RESULT.Columns.Get("HIST_RA_COBVISIT"))
|
|
' Dim HIST_RA_FRECCOMPOBJ As String = records(RESULT.Columns.Get("HIST_RA_FRECCOMPOBJ"))
|
|
' Dim HIST_RA_FRECCOMREAL As String = records(RESULT.Columns.Get("HIST_RA_FRECCOMREAL"))
|
|
' Dim HIST_RA_VENTAMES1 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES1"))
|
|
' Dim HIST_RA_VENTAMES2 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES2"))
|
|
' Dim HIST_RA_VENTAMES3 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES3"))
|
|
' Dim HIST_RA_VENTAMES4 As String = records(RESULT.Columns.Get("HIST_RA_VENTAMES4"))
|
|
' Dim HIST_RA_RECHAZO As String = records(RESULT.Columns.Get("HIST_RA_RECHAZO"))
|
|
' Dim HIST_RA_RECHAZOPORCEN As String = records(RESULT.Columns.Get("HIST_RA_RECHAZOPORCEN"))
|
|
' Dim HIST_RA_SEMANA1 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1"))
|
|
' Dim HIST_RA_SEMANA1_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1_DIAS"))
|
|
' Dim HIST_RA_SEMANA1_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1_DRA"))
|
|
' Dim HIST_RA_SEMANA2 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2"))
|
|
' Dim HIST_RA_SEMANA2_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2_DIAS"))
|
|
' Dim HIST_RA_SEMANA2_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2_DRA"))
|
|
' Dim HIST_RA_SEMANA3 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3"))
|
|
' Dim HIST_RA_SEMANA3_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3_DIAS"))
|
|
' Dim HIST_RA_SEMANA3_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3_DRA"))
|
|
' Dim HIST_RA_SEMANA4 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4"))
|
|
' Dim HIST_RA_SEMANA4_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4_DIAS"))
|
|
' Dim HIST_RA_SEMANA4_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4_DRA"))
|
|
' Dim HIST_RA_SEMANA5 As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5"))
|
|
' Dim HIST_RA_SEMANA5_DIAS As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5_DIAS"))
|
|
' Dim HIST_RA_SEMANA5_DRA As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5_DRA"))
|
|
' Dim HIST_RA_SEMANA1_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA1_LPT"))
|
|
' Dim HIST_RA_SEMANA2_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA2_LPT"))
|
|
' Dim HIST_RA_SEMANA3_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA3_LPT"))
|
|
' Dim HIST_RA_SEMANA4_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA4_LPT"))
|
|
' Dim HIST_RA_SEMANA5_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5_LPT"))
|
|
' Dim HIST_RA_RUTA As String = records(RESULT.Columns.Get("HIST_RA_RUTA"))
|
|
' Dim HIST_RA_IDALMACEN As String = records(RESULT.Columns.Get("HIST_RA_IDALMACEN"))
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_RESUM_APK(HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN))
|
|
' ' Msgbox("pasa","alo")
|
|
' Next
|
|
' Listo1 = 1
|
|
' S_CC.Text = "LISTO"
|
|
'' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Resumen Actualizado." , True)
|
|
' End If
|
|
' End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "hist_promos" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim HP_CLIENTE As String = records(RESULT.Columns.Get("HP_CLIENTE"))
|
|
Dim HP_CODIGO_PROMOCION As String = records(RESULT.Columns.Get("HP_CODIGO_PROMOCION"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_PROMOS(HP_CLIENTE, HP_CODIGO_PROMOCION) VALUES (?,?)", Array As Object (HP_CLIENTE, HP_CODIGO_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)
|
|
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)
|
|
If RESULT.Tag = "hist_cliente_promos" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim HCCP_CLIENTE As String = records(RESULT.Columns.Get("HCCP_CLIENTE"))
|
|
Dim HCCP_PROMO As String = records(RESULT.Columns.Get("HCCP_PROMO"))
|
|
Dim HCCP_CANT As String = records(RESULT.Columns.Get("HCCP_CANT"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_CLIENTE_CANT_PROMOS(HCCP_CLIENTE, HCCP_PROMO, HCCP_CANT) VALUES (?,?,?)", Array As Object (HCCP_CLIENTE, HCCP_PROMO,HCCP_CANT))
|
|
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)
|
|
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)
|
|
If RESULT.Tag = "HIST_MARCAS_CUOTAS" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim HMC_MARCA As String = records(RESULT.Columns.Get("HMC_MARCA"))
|
|
Dim HMC_TOTAL As String = records(RESULT.Columns.Get("HMC_TOTAL"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_MARCAS_CUOTAS(HMC_MARCA, HMC_TOTAL) VALUES (?,?)", Array As Object (HMC_MARCA, HMC_TOTAL))
|
|
Next
|
|
' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True)
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "coordenadas" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim latitud As String = records(RESULT.Columns.Get("CAT_AL_LATITUD"))
|
|
Dim longitud As String = records(RESULT.Columns.Get("CAT_AL_LONGITUD"))
|
|
Dim GEOCERCA As String = records(RESULT.Columns.Get("CAT_AL_GEOCERCA"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("LATITUD",latitud))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("LONGITUD",longitud))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("GEOCERCA",GEOCERCA))
|
|
Next
|
|
' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True)
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "password" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim password As String = records(RESULT.Columns.Get("CAT_VA_VALOR"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("pasword",password))
|
|
Next
|
|
' If Starter.marcaCel <> "Sony" Then ToastMessageShow(" Historico Marcas" , True)
|
|
End If
|
|
End If
|
|
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "hist_comp_promos" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim CAT_PA_ID As String = records(RESULT.Columns.Get("CAT_PA_ID"))
|
|
Dim CAT_PA_MAXPROM As String = records(RESULT.Columns.Get("CAT_PA_MAXPROM"))
|
|
Dim CAT_PA_MAXPROMREC As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMREC"))
|
|
Dim CAT_PA_MAXPROMCLIE As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMCLIE"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PROMOS_COMP(CAT_PA_ID, CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE) VALUES (?,?,?,?)", Array As Object (CAT_PA_ID, CAT_PA_MAXPROM,CAT_PA_MAXPROMREC,CAT_PA_MAXPROMCLIE))
|
|
Next
|
|
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)
|
|
' 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
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim HVD_MARCA As String = records(RESULT.Columns.Get("HVD_MARCA"))
|
|
Dim CLIENTES As String = records(RESULT.Columns.Get("CLIENTES"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO MARCAS_RUTAS(HVD_MARCA, CLIENTES) VALUES (?,?)", Array As Object (HVD_MARCA, CLIENTES))
|
|
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
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim HCM_TOTAL_V As String = records(RESULT.Columns.Get("HCM_TOTAL_V"))
|
|
Dim HCM_TOTAL_VIVE As String = records(RESULT.Columns.Get("HCM_TOTAL_VIVE"))
|
|
Dim HCM_TOTAL_GUNA As String = records(RESULT.Columns.Get("HCM_TOTAL_GUNA"))
|
|
Dim HCM_TOTAL_BEB As String = records(RESULT.Columns.Get("HCM_TOTAL_BEB"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_COMISIONES_MOVIL (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB) VALUES (?,?,?,?)", Array As Object (HCM_TOTAL_V , HCM_TOTAL_VIVE , HCM_TOTAL_GUNA , HCM_TOTAL_BEB))
|
|
Next
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "ENCUESTA_CLIENTE" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim HEC_CLIENTE As String = records(RESULT.Columns.Get("HEC_CLIENTE"))
|
|
Dim HEC_MODULO As String = records(RESULT.Columns.Get("HEC_MODULO"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA_CLIENTE (HEC_CLIENTE , HEC_MODULO) VALUES (?,?)", Array As Object (HEC_CLIENTE , HEC_MODULO ))
|
|
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
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "HIST_ENCUESTA2" Then 'query tag
|
|
B4XPages.MainPage.skmt.BeginTransaction
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim HE_CLIENTE As String = records(RESULT.Columns.Get("HE_CLIENTE"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA2(HE_CLIENTE) VALUES (?)", Array As Object (HE_CLIENTE))
|
|
Next
|
|
B4XPages.MainPage.skmt.TransactionSuccessful
|
|
B4XPages.MainPage.skmt.EndTransaction
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "gunaprod" Then 'query tag
|
|
If PB2.Progress < 30 Then S_CP.Text = "CARGANDO" 'Mod por CHV - 20211028 Agregue el "If PB2.Progress < 30 then"
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
|
|
Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
|
|
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
|
|
Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
|
|
Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
|
|
Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
|
|
Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
|
|
Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
|
|
Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO"))
|
|
Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
|
|
Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
|
|
' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV"))
|
|
Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
|
|
Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA"))
|
|
' CAT_GP_INICIATIVA = 5
|
|
' 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_DEV) 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_DEV))
|
|
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_GP_INICIATIVA) 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_GP_INICIATIVA))
|
|
Next
|
|
Listo2=1
|
|
If PB2.Progress = 0 Then
|
|
PB2.Progress = 30
|
|
S_CP.Text = "CARGANDO"
|
|
ELSE If PB2.Progress = 30 Then
|
|
PB2.Progress = 60
|
|
ELSE IF PB2.Progress = 60 Then
|
|
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
|
|
EJECUTANDO=0
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "gunaprod2" Then 'query tag
|
|
If PB2.Progress < 30 Then S_CP.Text = "CARGANDO" 'Mod por CHV - 20211028 Agregue el "If PB2.Progress < 30 then"
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
|
|
Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
|
|
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
|
|
Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
|
|
Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
|
|
Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
|
|
Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
|
|
Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
|
|
Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO"))
|
|
Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
|
|
Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
|
|
' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV"))
|
|
Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
|
|
Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA"))
|
|
Dim CAT_GP_CODPROMO As String = records(RESULT.Columns.Get("CAT_GP_CODPROMO"))
|
|
' CAT_GP_INICIATIVA = 5
|
|
' 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_DEV) 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_DEV))
|
|
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_GP_INICIATIVA,CAT_GP_CODPROMO) 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_GP_INICIATIVA, CAT_GP_CODPROMO))
|
|
Next
|
|
Listo2=1
|
|
If PB2.Progress = 0 Then
|
|
PB2.Progress = 30
|
|
S_CP.Text = "CARGANDO"
|
|
ELSE If PB2.Progress = 30 Then
|
|
PB2.Progress = 60
|
|
ELSE IF PB2.Progress = 60 Then
|
|
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
|
|
EJECUTANDO=0
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "gunaprodp" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
|
|
Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
|
|
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
|
|
Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
|
|
Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
|
|
Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
|
|
Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
|
|
Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
|
|
Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO"))
|
|
Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
|
|
Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
|
|
Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
|
|
Dim CAT_PA_BSEGMENTA As String = records(RESULT.Columns.Get("CAT_PA_BSEGMENTA"))
|
|
Dim CAT_PA_SEGMENTAV As String = records(RESULT.Columns.Get("CAT_PA_SEGMENTAV"))
|
|
CAT_GP_TIPOPROD = "5"
|
|
If CAT_GP_ID = "PAQUNI003" Then
|
|
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
|
|
S_CP.Text = "CARGANDO"
|
|
ELSE If PB2.Progress = 30 Then
|
|
PB2.Progress = 60
|
|
ELSE IF PB2.Progress = 60 Then
|
|
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
|
|
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
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "gunaprodps" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
|
|
Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
|
|
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
|
|
Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
|
|
Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
|
|
Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
|
|
Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
|
|
Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
|
|
Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO"))
|
|
Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
|
|
Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
|
|
Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
|
|
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) 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))
|
|
Next
|
|
If PB2.Progress = 0 Then
|
|
PB2.Progress = 30
|
|
S_CP.Text = "CARGANDO"
|
|
'Log("C4")
|
|
ELSE If PB2.Progress = 30 Then
|
|
PB2.Progress = 60
|
|
ELSE IF PB2.Progress = 60 Then
|
|
PB2.Progress = 100
|
|
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
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "detallepaq" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim CAT_DP_ALMACEN As String = records(RESULT.Columns.Get("CAT_DP_ALMACEN"))
|
|
Dim CAT_DP_ID As String = records(RESULT.Columns.Get("CAT_DP_ID"))
|
|
Dim CAT_DP_IDPROD As String = records(RESULT.Columns.Get("CAT_DP_IDPROD"))
|
|
Dim CAT_DP_TIPO As String = records(RESULT.Columns.Get("CAT_DP_TIPO"))
|
|
Dim CAT_DP_PZAS As String = records(RESULT.Columns.Get("CAT_DP_PZAS"))
|
|
Dim CAT_DP_USUARIO As String = records(RESULT.Columns.Get("CAT_DP_USUARIO"))
|
|
Dim CAT_DP_FECHA As String = records(RESULT.Columns.Get("CAT_DP_FECHA"))
|
|
Dim CAT_DP_REGALO As String = records(RESULT.Columns.Get("CAT_DP_REGALO"))
|
|
Dim CAT_DP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF"))
|
|
Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
|
|
Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_DP_PRECIO_SIMPTOS"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_DETALLES_PAQ(CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS))
|
|
Next
|
|
If PB2.Progress = 0 Then
|
|
PB2.Progress = 30
|
|
S_CP.Text = "CARGANDO"
|
|
ELSE If PB2.Progress = 30 Then
|
|
PB2.Progress = 60
|
|
ELSE IF PB2.Progress = 60 Then
|
|
PB2.Progress = 100
|
|
S_CP.Text = "LISTO"
|
|
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
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "hist_datos" Then 'query tag
|
|
Dim cont As Int = 0
|
|
For Each records() As Object In RESULT.Rows
|
|
cont = cont +1
|
|
Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE"))
|
|
Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE"))
|
|
Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT"))
|
|
Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
|
|
' Log(cont &" " &HVD_CLIENTE&"--"&HVD_PRONOMBRE&"--"&HVD_CANT&"--"&HVD_COSTO_TOT)
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT) VALUES (?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT))
|
|
Next
|
|
Listo3 =1
|
|
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
|
|
' 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
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "variables" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim Cat_Va_Descripcion As String = records(RESULT.Columns.Get("CAT_VA_DESCRIPCION"))
|
|
Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VA_VALOR"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object (Cat_Va_Descripcion, Cat_Va_Valor))
|
|
Next
|
|
End If
|
|
End If
|
|
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
|
If RESULT.Tag = "CUESTIONARIO" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VALOR"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As Object ("CUESTIONARIO"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CUESTIONARIO", Cat_Va_Valor))
|
|
Next
|
|
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)
|
|
If RESULT.Tag = "fecha" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim FECHA_HOY As String = records(RESULT.Columns.Get("FECHA"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FECHA"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FECHA",FECHA_HOY))
|
|
Next
|
|
End If
|
|
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
|
|
|
|
If RESULT.Tag = "hist_pro2265" Then 'query tag
|
|
Starter.skmt.ExecNonQuery("delete from HIST_PRO2265")
|
|
For Each records() As Object In RESULT.Rows
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_PRO2265(H_IDCLIENTE) VALUES (?)", Array As Object (records(RESULT.Columns.Get("HVD_CLIENTE"))))
|
|
Next
|
|
End If
|
|
If RESULT.Tag = "hist_pro3054" Then 'query tag
|
|
Starter.skmt.ExecNonQuery("delete from HIST_PRO3054")
|
|
For Each records() As Object In RESULT.Rows
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_PRO3054(H_IDCLIENTE) VALUES (?)", Array As Object (records(RESULT.Columns.Get("HVD_CLIENTE"))))
|
|
Next
|
|
End If
|
|
If RESULT.Tag = "hist_pro3055" Then 'query tag
|
|
Starter.skmt.ExecNonQuery("delete from HIST_PRO3055")
|
|
For Each records() As Object In RESULT.Rows
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_PRO3055(H_IDCLIENTE) VALUES (?)", Array As Object (records(RESULT.Columns.Get("HVD_CLIENTE"))))
|
|
Next
|
|
End If
|
|
If RESULT.Tag = "traeVersion" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Private version As String = records(RESULT.Columns.Get("CAT_AL_VERSION"))
|
|
Private actualizarAplicacion As String = records(RESULT.Columns.Get("CAT_AL_ACTUALIZACION"))
|
|
Next
|
|
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("VERSION_NUEVA"))
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("VERSION_NUEVA", version))
|
|
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FORZAR_ACTUALIZACION"))
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FORZAR_ACTUALIZACION", actualizarAplicacion))
|
|
Log($">>>> GUARDAMOS NUEVA VERSION: ${version}, ${actualizarAplicacion}"$)
|
|
End If
|
|
If RESULT.Tag = "tipoVenta" Then 'query tag
|
|
For Each records() As Object In RESULT.Rows
|
|
Private tipoVenta As String = records(RESULT.Columns.Get("CAT_RU_CATEGORIA"))
|
|
Next
|
|
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("TIPO_VENTA"))
|
|
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("TIPO_VENTA", tipoVenta))
|
|
Log($">>>> GUARDAMOS TIPO_VENTA: ${tipoVenta}"$)
|
|
End If
|
|
If RESULT.Tag = "planLealtad" Then 'query tag
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM PLAN_LEALTAD WHERE DESCARGADO = 1")
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim PL_CLIENTE As String = records(RESULT.Columns.Get("TMP_PL_CLIENTE"))
|
|
Dim PL_BANDERA As String = records(RESULT.Columns.Get("TMP_PL_BANDERA"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PLAN_LEALTAD(PL_CLIENTE, PL_BANDERA, DESCARGADO) VALUES (?,?,?)", Array As Object (PL_CLIENTE, PL_BANDERA,1))
|
|
Next
|
|
End If
|
|
|
|
If RESULT.Tag = "coments" Then 'query tag
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM COMENTARIOS WHERE DESCARGADO = 1")
|
|
For Each records() As Object In RESULT.Rows
|
|
Dim COMENTARIO As String = records(RESULT.Columns.Get("TMP_COM_COMENTARIO"))
|
|
Dim CLIENTECOM As String = records(RESULT.Columns.Get("TMP_COM_CLIENTE"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO COMENTARIOS(COMENTARTIO, CLIENTE, DESCARGADO) VALUES (?,?,?)", Array As Object (COMENTARIO, CLIENTECOM,1))
|
|
Next
|
|
End If
|
|
|
|
End If
|
|
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")
|
|
End If
|
|
contadorSubir = contadorSubir + 1
|
|
End If
|
|
End If
|
|
Job.Release
|
|
End Sub
|
|
|
|
Private Sub B4XPage_CloseRequest As ResumableSub
|
|
'Return True to close, False to cancel
|
|
If SCROLL_RESDIA.Visible Then
|
|
SCROLL_RESDIA.Visible = False
|
|
B_OK_RES_Click
|
|
Return False
|
|
Else
|
|
B4XPages.ShowPage("login")
|
|
End If
|
|
Return False
|
|
End Sub
|
|
|
|
Sub connecta_Click
|
|
Log(">>> REVISAMOS ACTUALIZACION")
|
|
Private revisaActualizacion As Map = Subs.revisaForzarActualizacion
|
|
Log(revisaActualizacion)
|
|
If E_RUTA2.Text = e_ruta.Text And e_ruta.Text <> "" Then
|
|
Msgbox("La ruta principal y la de suplencia NO pueden ser la misma.","ERROR")
|
|
Else
|
|
If e_ruta.Text = "KMTS1" Then
|
|
cargar.Visible = True
|
|
Subir.Visible = True
|
|
e_ruta.Text = ""
|
|
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
|
|
Else
|
|
If revisaActualizacion.Get("forzar") = 1 Then ' Hay actualización, la forzamos.
|
|
' Starter.newApp.appLink = $"https://keymon.lat/movil/guna/GP_${revisaActualizacion.Get("nuevaVersion")}.apk"$ 'Liga a nuevo apk
|
|
' Starter.newApp.newMsg = "Nueva version" 'Texto de que hay actualizacion
|
|
' Starter.newApp.okMsg = "Aceptar" 'Texto de app al corriente
|
|
' Starter.newApp.version = revisaActualizacion.Get("nuevaVersion") 'Version actual
|
|
l_forzarActualizacion.TextColor = Colors.black
|
|
l_forzarActualizacion.Text = "Hay una nueva actualización para la aplicación, por favor revise que tenga DATOS y espere mientras se descarga."
|
|
p_transparenteActualizacion.Visible = True
|
|
p_transparenteActualizacion.BringToFront
|
|
Starter.nuevoLink = $"https://keymon.lat/movil/guna/GP_${revisaActualizacion.Get("nuevaVersion")}.apk"$
|
|
Log("Descargar: GP_" & Starter.newApp.appLink)
|
|
CallSubDelayed(appUpdater, "download_newApk")
|
|
else if revisaActualizacion.Get("forzar") = 2 Then ' No hay datos, regresamos al login y borramos usuario par que traiga los datos.
|
|
l_forzarActualizacion.TextColor = Colors.red
|
|
l_forzarActualizacion.Text = "Es necesaria una conexión a internet, por favor revise su conexión y vuelva a intentar."
|
|
p_transparenteActualizacion.Visible = True
|
|
p_transparenteActualizacion.BringToFront
|
|
Sleep(4500)
|
|
Starter.skmt.ExecNonQuery("delete from usuarioa")
|
|
p_transparenteActualizacion.Visible = False
|
|
B4XPages.ShowPage("Login")
|
|
Else ' No hay actualización, continuamos con la carga.
|
|
Try
|
|
Private i As Int = Regex.Replace("[^0-9.]", e_ruta.text,"") 'Quitamos alfanumericos y convertimos en entero.
|
|
Log($"|${i}|"$)
|
|
e_ruta.text = i
|
|
p_transparenteActualizacion.Visible = False
|
|
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
|
|
teclado.HideKeyboard
|
|
connecta1 = connecta1 + 1
|
|
'imei = p.GetDeviceId
|
|
conn = "1"
|
|
Dim cmd As DBCommand
|
|
cmd.Initialize
|
|
cmd.Name = "select_version_GV2"
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "version")
|
|
' Cuando nos conectamos verificamos que el usuario guardado en BD sea VALIDO.
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO, PASS from usuarioa")
|
|
c.Position=0
|
|
If c.RowCount > 0 And c.GetString("USUARIO") <> "KMTS1" Then
|
|
Private usrT As String = c.GetString("USUARIO")
|
|
Private passT As String = c.GetString("PASS")
|
|
cmd.Initialize
|
|
cmd.Name = "select_usuario_guna_GV2_10"
|
|
cmd.Parameters = Array As Object(usrT, passT)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA")
|
|
End If
|
|
c.Close
|
|
If e_ruta.Text = "BERNA1" Then
|
|
cargar.Visible = True
|
|
Subir.Visible = True
|
|
e_ruta.Text = ""
|
|
End If
|
|
ToastMessageShow("Validando Conexión." , True)
|
|
If connecta1 / 2 = 1 Then
|
|
'SERVER = "http://177.244.63.54:1782"
|
|
'SERVER = "http://keymon.com.mx:1782"
|
|
'SERVER = "http://201.99.139.28:1782"
|
|
' B4XPages.MainPage.SERVER = "http://187.189.244.154:1782"
|
|
' SERVER = "http://10.0.0.205:1782"
|
|
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
|
|
Else
|
|
'SERVER = "http://keymon.com.mx:1782"
|
|
'SERVER = "http://201.99.139.28:1782"
|
|
'SERVER = "http://177.244.63.54:1782"
|
|
' B4XPages.MainPage.SERVER = "http://187.189.244.154:1782"
|
|
' SERVER = "http://10.0.0.205:1782"
|
|
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
|
|
End If
|
|
Catch
|
|
Log(LastException)
|
|
End Try
|
|
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub BUSCA_Click
|
|
B4XPages.ShowPage("TicketsDia")
|
|
End Sub
|
|
|
|
Sub b_mapa_Click
|
|
'Log("mapClic")
|
|
B4XPages.GetPage("Mapas")
|
|
End Sub
|
|
|
|
Sub t2_tick
|
|
' e_ruta.Text = ""
|
|
Log("--------> BORRAMOS")
|
|
If B4XPages.MainPage.productos.lv_catalogos.IsInitialized Then B4XPages.MainPage.productos.lv_catalogos.Clear
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from noventa")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from COMENTARIOS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from PLAN_LEALTAD")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from clie_act")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info3")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod2")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VERIFICACION")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA2")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_STAY_OUT")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GPS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_FACE")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("INSERT INTO HIST_STAY_OUT(HSO_INI, HSO_FIN) VALUES (0,0)")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_CODIGO_BARRAS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO1")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO2")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO3")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO4")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENCUESTA_MODULO5")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM BITACORAGPS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTA_SUPLENCIA")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM TICKET_IMPRESO")
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("CARGA_DIA"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("RUTA"))
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("FORZAR_ACTUALIZACION"))
|
|
' B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("VERSION_NUEVA"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
|
|
Subs.deleteFolder(Starter.fFileProvider.SharedFolder)
|
|
' B4XPage_Appear
|
|
E_RUTA2.Visible = False
|
|
' E_RUTA2.Text = ""
|
|
b_abordo.Visible = False
|
|
cargar.Visible = False
|
|
Subir.Visible = False
|
|
connecta.Visible = True
|
|
' B4XPages.ShowPage("Login")
|
|
' If PB2.Progress = 0 Then
|
|
' S_CP.Text = "ENVIAR DATOS (K-1)"
|
|
' End If
|
|
' img2.Visible=False
|
|
t2.Enabled = False
|
|
e_ruta.Text = ""
|
|
B4XPage_Appear
|
|
End Sub
|
|
|
|
Sub e_ruta_EnterPressed
|
|
If e_ruta.Text = "FIN DIA" Then
|
|
RES = Msgbox2("Seguro que desea hacer el cierre? Todos los datos se borrarán.", "Cierre", "Si", "", "No", LoadBitmap(File.DirAssets, "alert2.png")) 'ignore
|
|
If RES = DialogResponse.POSITIVE Then
|
|
bitacora.mandaBitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "Fin Día", "", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, "2", "", "", "")
|
|
Label22.Visible = False
|
|
l_rutasuplencia.Visible = False
|
|
l_rutasuplencia.Text = ""
|
|
b_abordo.Visible = False
|
|
t2.Initialize("t2", 1000) ' 1000 ms = 1 segundo
|
|
t2.Enabled = True
|
|
End If
|
|
End If
|
|
|
|
If e_ruta.Text = "IWL" Then
|
|
' trabajar.Visible = False
|
|
NUEVO.Visible =False
|
|
BUSCA.Visible=False
|
|
connecta.Visible=False
|
|
img3.Visible =True
|
|
Resumen.Visible= False
|
|
End If
|
|
|
|
If e_ruta.Text = "SUPLENCIA" Then
|
|
e_ruta.Text = ""
|
|
E_RUTA2.Visible = True
|
|
p_ruta2.Visible = True
|
|
p_somvra_2.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Sub inv_Click
|
|
img2.Visible =True
|
|
EJECUTANDO = 1
|
|
inve = 1
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod2")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
|
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
|
|
c.Position = 0
|
|
usuario = c.GetString("USUARIO")
|
|
c.Close
|
|
cmd.Initialize
|
|
cmd.Name = "select_cat_gunaprod_GV2"
|
|
cmd.Parameters = Array As Object(ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
|
cmd.Initialize
|
|
cmd.Name = "select_cat_gunaprod2_GV2"
|
|
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod2")
|
|
cmd.Initialize
|
|
cmd.Name = "select_cat_paquetes_GV2"
|
|
cmd.Parameters = Array As Object(ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_cat_detallepa_GV2"
|
|
cmd.Parameters = Array As Object(ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "detallepaq")
|
|
|
|
cargar.Visible = False
|
|
Subir.Visible = False
|
|
connecta.Visible = True
|
|
inv.Visible = False
|
|
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True)
|
|
End Sub
|
|
|
|
Sub t1_tick
|
|
' If CARGA = "SUBIR" Then
|
|
cmd.Initialize
|
|
cmd.Name = "select_cuantos_pedido_GV2"
|
|
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedido")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_cuantos_noventa_GV2"
|
|
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
|
|
|
|
cmd.Initialize
|
|
cmd.Name = "select_cuantos_pedidoc_GV2"
|
|
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
|
|
|
|
If PB2.Progress = 0 Then
|
|
S_CP.Text = "ENVIAR DATOS (K-1)"
|
|
End If
|
|
Log("TIMER DISABLED")
|
|
img2.Visible=False
|
|
t1.Enabled = False
|
|
' CARGA = ""
|
|
' End If
|
|
End Sub
|
|
|
|
Sub B_OK_PAS_Click
|
|
If CARGA = "SUBIR" And S_CP.Text = "INFO OK" Then
|
|
P1.Visible = False
|
|
Btn_Ubicar.Visible=True
|
|
'trabajar.Visible = True
|
|
NUEVO.Visible =True
|
|
BUSCA.Visible=True
|
|
connecta.Visible=True
|
|
Resumen.Visible= True
|
|
img2.Visible=False
|
|
CARGA = ""
|
|
' Subs.panelVisible(p_principal, 0, 0)
|
|
E_RUTA2.Text = ""
|
|
e_ruta.Text = ""
|
|
Label4.Visible = True
|
|
l_ruta.Visible = True
|
|
B4XPage_Appear
|
|
Else If CARGA = "SUBIR" And S_CP.Text = "ERROR" Then
|
|
Msgbox("Tiene que subir de nuevo la información","Atención") 'ignore
|
|
P1.Visible = False
|
|
' trabajar.Visible = True
|
|
NUEVO.Visible =True
|
|
BUSCA.Visible=True
|
|
connecta.Visible=True
|
|
Resumen.Visible= True
|
|
img2.Visible=False
|
|
' Subs.panelVisible(p_principal, 0, 0)
|
|
Else if CARGA = "SUBIR" And S_CP.Text <> "INFO OK" Then
|
|
RES = Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
|
If RES = DialogResponse.POSITIVE Then
|
|
P1.Visible = False
|
|
' trabajar.Visible = True
|
|
NUEVO.Visible =True
|
|
BUSCA.Visible=True
|
|
connecta.Visible=True
|
|
Resumen.Visible= True
|
|
img2.Visible=False
|
|
' Subs.panelVisible(p_principal, 0, 0)
|
|
ExitApplication
|
|
End If
|
|
End If
|
|
If CARGA = "CARGAR" And S_CP.Text = "LISTO" And S_CC.Text = "LISTO" And S_CH.Text = "LISTO" Then
|
|
P1.Visible = False
|
|
Btn_Ubicar.Visible=True
|
|
'trabajar.Visible = True
|
|
NUEVO.Visible =True
|
|
BUSCA.Visible=True
|
|
connecta.Visible=True
|
|
Resumen.Visible= True
|
|
img2.Visible=False
|
|
|
|
Label4.Visible = True
|
|
l_ruta.Visible = True
|
|
B4XPage_Appear
|
|
' Subs.panelVisible(p_principal, 0, 0)
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String("CARGA_DIA"))
|
|
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("CARGA_DIA",1))
|
|
If E_RUTA2.Visible = True Then
|
|
bitacora.mandaBitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Carga día suplencia", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","", "")
|
|
Else
|
|
bitacora.mandaBitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Subs.traeRuta,"Carga día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","", "")
|
|
End If
|
|
Dim c11 As Cursor = Starter.skmt.ExecQuery("Select PE_PRONOMBRE, PE_PROID, PE_CANT FROM PEDIDO WHERE PE_FOLIO = 'PREVENTA'")
|
|
If c11.RowCount > 0 Then
|
|
For i = 0 To c11.RowCount - 1
|
|
c11.Position = i
|
|
Starter.skmt.ExecNonQuery($"UPDATE CAT_GUNAPROD SET CAT_GP_ALMACEN = CAT_GP_ALMACEN - ${c11.GetString("PE_CANT")} WHERE CAT_GP_ID = '${c11.GetString("PE_PROID")}'"$)
|
|
Next
|
|
End If
|
|
c11.Close
|
|
|
|
Dim c12 As Cursor = Starter.skmt.ExecQuery("Select PE_PRONOMBRE, PE_PROID, PE_CANT FROM PEDIDO WHERE PE_FOLIO = 'ABORDO'")
|
|
If c12.RowCount > 0 Then
|
|
For i = 0 To c12.RowCount - 1
|
|
c12.Position = i
|
|
Starter.skmt.ExecNonQuery($"UPDATE CAT_GUNAPROD SET CAT_GP_ALMACEN = CAT_GP_ALMACEN - ${c12.GetString("PE_CANT")} WHERE CAT_GP_ID = '${c12.GetString("PE_PROID")}'"$)
|
|
Next
|
|
End If
|
|
c12.Close
|
|
|
|
Dim c13 As Cursor = Starter.skmt.ExecQuery("Select PE_PRONOMBRE, PE_PROID, PE_CANT FROM PEDIDO WHERE PE_FOLIO = 'VENTA'")
|
|
If c13.RowCount > 0 Then
|
|
For i = 0 To c13.RowCount - 1
|
|
c13.Position = i
|
|
Starter.skmt.ExecNonQuery($"UPDATE CAT_GUNAPROD2 SET CAT_GP_ALMACEN = CAT_GP_ALMACEN - ${c13.GetString("PE_CANT")} WHERE CAT_GP_ID = '${c13.GetString("PE_PROID")}'"$)
|
|
Next
|
|
End If
|
|
c13.Close
|
|
checaPedido
|
|
Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then
|
|
RES = Msgbox2("Seguro que desa abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
|
If RES = DialogResponse.POSITIVE Then
|
|
P1.Visible = False
|
|
' trabajar.Visible = True
|
|
NUEVO.Visible =True
|
|
BUSCA.Visible=True
|
|
connecta.Visible=True
|
|
Resumen.Visible= True
|
|
img2.Visible=False
|
|
' Subs.panelVisible(p_principal, 0, 0)
|
|
B4XPage_Appear
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from kmt_info3")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from cod_result")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from hist_gest")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from cat_gunaprod")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from telefonos")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_PROMOS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from PROMOS_COMP")
|
|
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_VERIFICACION")
|
|
ExitApplication
|
|
End If
|
|
End If
|
|
If Subs.traeTipoVentaDeBD = "VENTA" Or Subs.traeTipoVentaDeBD = "ABORDO" Then
|
|
If l_ruta.Text <> "0" Then
|
|
Log(888 & "|" & l_ruta.Text & "|")
|
|
b_abordo.Visible = False
|
|
End If
|
|
Else
|
|
b_abordo.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Sub NUEVO_Click
|
|
B4XPages.ShowPage("NuevoCliente")
|
|
End Sub
|
|
|
|
Sub B_OK_RES_Click
|
|
' trabajar.Visible = True
|
|
NUEVO.Visible =True
|
|
BUSCA.Visible=True
|
|
connecta.Visible=True
|
|
Resumen.Visible= True
|
|
P_RESUMEN.Visible=False
|
|
Panel4.Visible = False
|
|
SCROLL_RESDIA.Visible = False
|
|
Btn_Ubicar.Visible=True
|
|
p_principal.Visible = True
|
|
End Sub
|
|
|
|
Sub Resumen_Click
|
|
P_RESUMEN.Visible = True
|
|
|
|
' NUEVO.Visible =False
|
|
' BUSCA.Visible=False
|
|
' connecta.Visible=False
|
|
' Subir.Visible=False
|
|
' cargar.Visible=False
|
|
' Resumen.Visible= False
|
|
End Sub
|
|
|
|
Sub P_RESUMEN_click
|
|
|
|
End Sub
|
|
|
|
Sub CARGA_Click
|
|
B4XPages.ShowPage("Productos")
|
|
End Sub
|
|
|
|
Sub resdia_Click
|
|
' p_principal.Visible = False
|
|
Btn_Ubicar.Visible=False
|
|
SCROLL_RESDIA.Visible = True
|
|
SCROLL_RESDIA.Panel.LoadLayout("RESDIA")
|
|
SCROLL_RESDIA.Panel.Height = Panel4.Height
|
|
Panel4.Visible = True
|
|
|
|
NUEVO.Visible =False
|
|
BUSCA.Visible=False
|
|
connecta.Visible=False
|
|
Subir.Visible=False
|
|
cargar.Visible=False
|
|
Resumen.Visible= False
|
|
|
|
d=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO"))
|
|
d.Position = 0
|
|
l_encuesta.Text = d.GetString("CUANTOS")
|
|
d.Close
|
|
|
|
L_MARCAS.CLEAR
|
|
d=B4XPages.MainPage.skmt.ExecQuery2("select distinct HE_CLIE AS CLIENTE FROM HIST_ENCUESTA WHERE HE_TIPO = ?", Array As String("TELEFONO"))
|
|
If D.RowCount>0 Then
|
|
For i=0 To D.RowCount -1
|
|
D.Position=i
|
|
c=B4XPages.MainPage.skmt.ExecQuery2("Select HE_RES from HIST_ENCUESTA where HE_CLIE = ? AND HE_TIPO = ?", Array As String(d.GetString("CLIENTE"), "TELEFONO"))
|
|
c.Position = 0
|
|
Dim label1 As Label
|
|
label1 = L_MARCAS.TwoLinesLayout.Label
|
|
label1.TextSize = 13
|
|
label1.TextColor = Colors.Black
|
|
Dim Label2 As Label
|
|
Label2 = L_MARCAS.TwoLinesLayout.SecondLabel
|
|
Label2.TextSize = 13
|
|
Label2.TextColor = Colors.Black
|
|
L_MARCAS.AddTwoLines(d.GetString("CLIENTE"),"TELEFONO :" & c.GetString("HE_RES") )
|
|
c.Close
|
|
Next
|
|
End If
|
|
d.Close
|
|
|
|
c=B4XPages.MainPage.skmt.ExecQuery2($"Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_TIPO = ? )"$, Array As String("RTEC"))
|
|
c.Position = 0
|
|
l_monto_k.Text = c.GetString("MONTO_DIA")
|
|
If l_monto_k.Text = "null" Then
|
|
l_monto_k.Text = "0"
|
|
End If
|
|
c.Close
|
|
|
|
c=B4XPages.MainPage.skmt.ExecQuery2($"Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_TIPO = ? )"$, Array As String("PING"))
|
|
c.Position = 0
|
|
l_monto_kp.Text = c.GetString("MONTO_DIA")
|
|
If l_monto_kp.Text = "null" Then
|
|
l_monto_kp.Text = "0"
|
|
End If
|
|
c.Close
|
|
|
|
' c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 and pe_proid in (Select CAT_GP_ID from cat_gunaprod where CAT_GP_TIPO = ? )", Array As String("SALTY SNACKS"))
|
|
' c.Position = 0
|
|
' l_monto_ks.Text = c.GetString("MONTO_DIA")
|
|
' If l_monto_ks.Text = "null" Then
|
|
' l_monto_ks.Text = "0"
|
|
' End If
|
|
'
|
|
' c.Close
|
|
c=B4XPages.MainPage.skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 ")
|
|
c.Position = 0
|
|
l_monto_ks.Text = c.GetString("MONTO_DIA")
|
|
If l_monto_ks.Text = "null" Then
|
|
l_monto_ks.Text = "0"
|
|
End If
|
|
c.Close
|
|
|
|
'AQUI CAMBIAR
|
|
Private s3 As Cursor=B4XPages.MainPage.skmt.ExecQuery2("select * FROM PEDIDO WHERE PE_RECALCULO <> ? OR PE_RECALCULO <> ? OR PE_RECALCULO IS NOT NULL",Array As String("","null"))
|
|
LogColor(s3.RowCount,Colors.Yellow)
|
|
If s3.RowCount > 0 Then
|
|
|
|
Private s As Cursor=B4XPages.MainPage.skmt.ExecQuery2("select iFNULL(sum(pe_costo_tot),0) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE (PE_RECALCULO = ? or PE_RECALCULO = ? or PE_RECALCULO IS NULL)",Array As String("","null"))
|
|
s.Position=0
|
|
Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery2("select iFNULL(sum(PE_RECALCULOTOT),0) as TOTAL_CLIE FROM PEDIDO WHERE (PE_RECALCULO <> ? or PE_RECALCULO <> ? OR PE_RECALCULO IS NOT NULL)",Array As String("","null"))
|
|
s5.Position = 0
|
|
|
|
' l_ru_pri.Text = NumberFormat2(s.GetString("TOTAL_CLIE") + s5.GetString("TOTAL_CLIE"),0,2,2,False)
|
|
|
|
L_REAL.Text =NumberFormat2(s.GetString("TOTAL_CLIE") + s5.GetString("TOTAL_CLIE"),0,2,2,False)
|
|
s.Close
|
|
|
|
Else If s3.RowCount = 0 Then
|
|
Private s As Cursor=B4XPages.MainPage.skmt.ExecQuery("select iFNULL(sum(pe_costo_tot),0) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO ")
|
|
s.Position=0
|
|
|
|
' l_ru_pri.Text =NumberFormat2(s.GetString("TOTAL_CLIE"),0,2,2,False)
|
|
|
|
L_REAL.Text =NumberFormat2(s.GetString("TOTAL_CLIE"),0,2,2,False)
|
|
|
|
s.Close
|
|
End If
|
|
|
|
'Prueba0
|
|
Private ru_o As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT IFNULL(PE_RUTA, 0) AS PE_RUTA, IFNULL(SUM(PE_COSTO_TOT), 0) AS TOTAL_CLIE FROM PEDIDO LEFT JOIN RUTA_SUPLENCIA ON PE_RUTA = RS_RUTA WHERE RS_RUTA IS NULL", Null)
|
|
ru_o.Position=0
|
|
Log("------------->RutaOriginal "&ru_o)
|
|
If ru_o.GetString("PE_RUTA") = 0 Then
|
|
Label2.Text = "N/A"
|
|
Else if ru_o.RowCount >=1 Then
|
|
Private rutOr As String = ru_o.GetString("PE_RUTA")
|
|
Label2.Text = "Ruta " & rutOr
|
|
l_ru_pri.Text = NumberFormat2(ru_o.GetDouble("TOTAL_CLIE"), 0, 2, 2, False)
|
|
End If
|
|
ru_o.Close
|
|
|
|
'Prueba1
|
|
Private ru_s As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT IFNULL(PE_RUTA, 0) As PE_RUTA, IFNULL(SUM(PE_COSTO_TOT), 0) As TOTAL_CLIE FROM PEDIDO LEFT JOIN RUTA_SUPLENCIA ON PE_RUTA = RS_RUTA WHERE RS_RUTA Is Not Null", Null)
|
|
ru_s.Position = 0
|
|
If ru_s.GetString("PE_RUTA") = 0 Then
|
|
Label4.Text = "N/A"
|
|
Else
|
|
Private RuSu As String = ru_s.GetString("PE_RUTA")
|
|
Label4.Text = "Ruta " & RuSu
|
|
ru_s.Position = 0
|
|
l_ru_sup.Text = NumberFormat2(ru_s.GetDouble("TOTAL_CLIE"), 0, 2, 2, False)
|
|
End If
|
|
ru_s.Close
|
|
|
|
Dim cuantos_obj As String
|
|
c=B4XPages.MainPage.skmt.ExecQuery("Select count(*) AS TOTAL from HIST_MARCAS_CUOTAS ")
|
|
c.Position = 0
|
|
cuantos_obj = c.GetString("TOTAL")
|
|
c.Close
|
|
|
|
If cuantos_obj > 0 Then
|
|
c=B4XPages.MainPage.skmt.ExecQuery("Select SUM(HMC_TOTAL) AS TOTAL from HIST_MARCAS_CUOTAS ")
|
|
c.Position = 0
|
|
If c.GetString("TOTAL") > 0 Then
|
|
L_NES.Text = Round(c.GetString("TOTAL") / 25)
|
|
Else
|
|
L_NES.Text = c.GetString("TOTAL")
|
|
End If
|
|
c.Close
|
|
End If
|
|
' L_REAL.Text = l_monto_ks.Text
|
|
L_ALCANCE.Text = Round2((L_NES.Text / L_REAL.Text + 1),2)
|
|
L_VPLAN.Text = l_porvisitar.Text
|
|
L_VREAL.Text = L_CUANTOST.text
|
|
L_EFEC_VIS.Text = Round2(L_VREAL.text / L_VPLAN.Text,2)
|
|
L_VISITCC.Text = l_cuantosc.text
|
|
L_EFEC_PV.Text = Round2(L_VISITCC.Text / L_VREAL.Text,2)
|
|
L_EFEC_PURA.Text = Round2(L_VISITCC.Text / L_VPLAN.Text,2)
|
|
L_LIN_TICK.Text = LPT
|
|
If l_monto_ks.Text <> "0" Then
|
|
c=B4XPages.MainPage.skmt.ExecQuery2("Select COUNT(DISTINCT(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = ? ", Array As String(ALMACEN))
|
|
c.Position = 0
|
|
L_CTE_PROMO.Text = c.GetString("CUANTOS")
|
|
c.Close
|
|
d=B4XPages.MainPage.skmt.ExecQuery2($"Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_TIPOPROD = ?) "$, Array As String("PRIORITARIO"))
|
|
d.Position = 0
|
|
'///////////////////////////////////////////////////////////////////////////////
|
|
'//////////////////////////// ULTIMA LINEA ANTES DEL ERROR //////////////////
|
|
'////////// java.lang.NullPointerException: Attempt to invoke virtual method 'int java.lang.String.length()' on a null object reference
|
|
'
|
|
'/// Al parecer d.GetString("MONTO_DIA") regresa null y la funcion numberFormat truena
|
|
'/////////////////////////////////////////////////////////////////////////////////
|
|
'Log("|"&d.GetString("MONTO_DIA")&"|")
|
|
'L_PRIO.Text = NumberFormat(d.GetString("MONTO_DIA"),0,2)
|
|
L_PRIO.Text = d.GetString("MONTO_DIA")
|
|
d.Close
|
|
|
|
d=B4XPages.MainPage.skmt.ExecQuery2($"Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_TIPOPROD = ?) "$, Array As String("ESTRATEGICO"))
|
|
d.Position = 0
|
|
L_SECUND.Text =d.GetString("MONTO_DIA")
|
|
d.Close
|
|
|
|
d=B4XPages.MainPage.skmt.ExecQuery2($"Select sum(PE_COSTO_TOT) AS MONTO_DIA FROM PEDIDO WHERE PE_PROID IN (select CAT_GP_ID from ${Subs.traeTablaProds(tipo_venta)} where CAT_GP_TIPOPROD = ?) "$, Array As String("COMPLEMENTARIO"))
|
|
d.Position = 0
|
|
L_COMP.Text =d.GetString("MONTO_DIA")
|
|
d.Close
|
|
Else
|
|
L_PRIO.Text = "0"
|
|
L_SECUND.Text = "0"
|
|
L_COMP.Text = "0"
|
|
End If
|
|
|
|
c=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
|
|
c.Position = 0
|
|
If c.GetString("CUANTOS") > 0 Then
|
|
d=B4XPages.MainPage.skmt.ExecQuery("Select sum(pe_cant) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID ")
|
|
d.Position = 0
|
|
L_CTE_PROMO.Text = d.GetString("CUANTOS")
|
|
d.Close
|
|
L_REDEN_PROMO.TEXT = Round2(L_VISITCC.Text / L_CTE_PROMO.Text,2)
|
|
Else
|
|
L_CTE_PROMO.Text = 0
|
|
L_REDEN_PROMO.Text = 0
|
|
End If
|
|
c.Close
|
|
d=B4XPages.MainPage.skmt.ExecQuery("Select COUNT(*) AS CUANTOS FROM PEDIDO ")
|
|
d.Position = 0
|
|
L_LIN_TICK.Text = Round2(d.GetString("CUANTOS") / L_VISITCC.Text,2)
|
|
d.Close
|
|
|
|
d=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from HIST_CUOTAS ")
|
|
d.Position = 0
|
|
If d.GetString("CUANTOS") > 0 Then
|
|
' c=skmt.ExecQuery("Select HC_CUOTA1,HC_CUOTA2,HC_CUOTA3 from HIST_CUOTAS ")
|
|
' c.Position = 0
|
|
' l_monto_c1.Text = Round( c.GetString("HC_CUOTA1") / 6)
|
|
' l_monto_c2.Text = Round(c.GetString("HC_CUOTA2") / 6)
|
|
' l_monto_c3.Text = Round(c.GetString("HC_CUOTA3") / 6)
|
|
' c.Close
|
|
Else
|
|
l_monto_c1.Text = 4000
|
|
l_monto_c2.Text = 2000
|
|
l_monto_c3.Text = 1000
|
|
End If
|
|
d.Close
|
|
End Sub
|
|
|
|
Sub hacer_ped_Click
|
|
B4XPages.ShowPage("Clientes")
|
|
End Sub
|
|
|
|
Sub nvo_cliente_Click
|
|
B4XPages.ShowPage("NuevoCliente")
|
|
End Sub
|
|
|
|
Sub tickets_dia_Click
|
|
B4XPages.ShowPage("TicketsDia")
|
|
End Sub
|
|
|
|
Sub GPS_LocationChanged (Location1 As Location)
|
|
|
|
End Sub
|
|
|
|
Sub Btn_Ubicar_Click
|
|
StartActivity(MAPA_RUTAS)
|
|
End Sub
|
|
|
|
'''''''''''''''''''''''''''''''''''' VALIDAR CARACTERES
|
|
Sub e_ruta_TextChanged (Old As String, New As String)
|
|
Dim validChars As String ="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 "
|
|
' 'Log("Antes: " & Old & " | " & New)
|
|
If Old <> "KMTS1" Then
|
|
' 'Log("Desp: " & Old & " | " & New)
|
|
Try
|
|
If validChars.Contains(New.SubString(New.Length-1)) = False Then
|
|
e_ruta.Text = New.SubString2(0, New.Length-1)
|
|
e_ruta.SelectionStart = e_ruta.Text.Length
|
|
End If
|
|
Catch
|
|
'Log(LastException)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Sub e_ruta2_TextChanged (Old As String, New As String)
|
|
' Dim validChars As String ="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 "
|
|
' 'Log("Antes: " & Old & " | " & New)
|
|
If New = e_ruta.text And New <> "" Then
|
|
cargar.Enabled = False
|
|
ToastMessageShow("Las rutas NO PUEDEN ser iguales!!", False)
|
|
Else
|
|
cargar.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Sub B_COMM_Click
|
|
Btn_Ubicar.Visible=False
|
|
SCROLL_RESDIA.Visible = True
|
|
SCROLL_RESDIA.Panel.LoadLayout("COMIS")
|
|
SCROLL_RESDIA.Panel.Height = Panel_C.Height
|
|
Panel4.Visible = False
|
|
Panel_C.Visible = True
|
|
Panel_C.Width = Root.Width * 0.90
|
|
|
|
|
|
' trabajar.Visible = False
|
|
NUEVO.Visible =False
|
|
BUSCA.Visible=False
|
|
connecta.Visible=False
|
|
Subir.Visible=False
|
|
cargar.Visible=False
|
|
Resumen.Visible= False
|
|
|
|
If l_ruta.Text <> 0 Then
|
|
c=B4XPages.MainPage.skmt.ExecQuery("Select HCM_TOTAL_V, HCM_TOTAL_VIVE, HCM_TOTAL_GUNA, HCM_TOTAL_BEB from HIST_COMISIONES_MOVIL")
|
|
If c.RowCount > 0 Then
|
|
c.Position = 0
|
|
L_TOTAL_BA.Text = c.GetString("HCM_TOTAL_BEB")
|
|
L_TOTAL_GUNA.Text = c.GetString("HCM_TOTAL_GUNA")
|
|
L_TOTAL_MM.Text = c.GetString("HCM_TOTAL_V")
|
|
L_TOTAL_VIVE.Text = c.GetString("HCM_TOTAL_VIVE")
|
|
c.Close
|
|
L_TOTAL_COMIS.Text = 0
|
|
End If
|
|
Else
|
|
L_TOTAL_BA.Text = 0
|
|
L_TOTAL_GUNA.Text = 0
|
|
L_TOTAL_MM.Text = 0
|
|
L_TOTAL_VIVE.Text = 0
|
|
L_TOTAL_COMIS.Text = 0
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub B_OK_COMISS_Click
|
|
NUEVO.Visible =True
|
|
BUSCA.Visible=True
|
|
connecta.Visible=True
|
|
Resumen.Visible= True
|
|
P_RESUMEN.Visible=False
|
|
Panel_C.Visible = False
|
|
SCROLL_RESDIA.Visible = False
|
|
Btn_Ubicar.Visible=True
|
|
p_principal.Visible = True
|
|
SCROLL_RESDIA.Panel.RemoveAllViews
|
|
End Sub
|
|
|
|
Sub B_MARCAS_Click
|
|
SCROLL_RESDIA.Visible = True
|
|
p_sombra.Width = Root.Width
|
|
p_sombra.Height = Root.Height
|
|
Subs.panelVisible(p_sombra, 0, 0)
|
|
p_marcasRes.Visible = True
|
|
p_marcasRes.Height = Root.Height * 0.8
|
|
p_marcasRes.BringToFront
|
|
' Subs.panelVisible(p_marcasRes,0,0)
|
|
pnlTitle.Visible = False
|
|
' pnlTitle.SetLayoutAnimated(0, 5, 10, CLV1.AsView.Width-12, TitleHeight + DividerHeight - 15)
|
|
' pnlTitle.LoadLayout("CellTitle")
|
|
' pnlTitle.Height = 20dip
|
|
B_OK_PANEL5.Top = p_marcasRes.Height - (B_OK_PANEL5.Height + 20)
|
|
c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_GP_CLASIF, SUM(TOTAL) AS TOTAL FROM TOTAL_MARCAS GROUP BY CAT_GP_CLASIF")
|
|
CLV1.Clear
|
|
If c.RowCount>0 Then
|
|
For i=0 To c.RowCount - 1
|
|
c.Position=i
|
|
AddTitle(c.GetString("CAT_GP_CLASIF"))
|
|
If c.GetString("CAT_GP_CLASIF") = "PROMOS" Then
|
|
d=B4XPages.MainPage.skmt.ExecQuery("SELECT SUM(PE_CANT) AS CUANTOS FROM PEDIDO WHERE PE_CEDIS = PE_PROID")
|
|
d.Position=0
|
|
CLV1.AddTextItem("CANTIDAD DE PROMOS = " & d.GetString("CUANTOS"),"1")
|
|
d.Close
|
|
Else
|
|
f=B4XPages.MainPage.skmt.ExecQuery2("select COUNT(*) AS CUANTOS from HIST_MARCAS_CUOTAS where HMC_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
|
|
f.Position=0
|
|
If f.GetString("CUANTOS") > 0 Then
|
|
e=B4XPages.MainPage.skmt.ExecQuery2("select HMC_MARCA, HMC_TOTAL from HIST_MARCAS_CUOTAS where HMC_MARCA = ?", Array As String(c.GetString("CAT_GP_CLASIF")))
|
|
e.Position=0
|
|
d=B4XPages.MainPage.skmt.ExecQuery2($"SELECT count(distinct(PE_CLIENTE)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from ${Subs.traeTablaProds(tipo_venta)} WHERE CAT_GP_CLASIF =?)"$, Array As String (c.GetString("CAT_GP_CLASIF")))
|
|
d.Position=0
|
|
CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1")
|
|
CLV1.AddTextItem("META MES= $" & e.GetString("HMC_TOTAL"),"1")
|
|
CLV1.AddTextItem("META DIA= $" & Round(e.GetString("HMC_TOTAL") / 25),"1")
|
|
CLV1.AddTextItem("FALTA DIA= $" & Round((e.GetString("HMC_TOTAL") / 25) - c.GetString("TOTAL")) ,"1")
|
|
CLV1.AddTextItem("CLIENTES = " & d.GetString("CUANTOS"),"1")
|
|
d.Close
|
|
e.Close
|
|
Else
|
|
d=B4XPages.MainPage.skmt.ExecQuery2($"SELECT count(distinct(pe_cliente)) AS CUANTOS FROM PEDIDO WHERE PE_PROID in (select CAT_GP_ID from ${Subs.traeTablaProds(tipo_venta)} WHERE CAT_GP_CLASIF =?)"$, Array As String (c.GetString("CAT_GP_CLASIF")))
|
|
d.Position=0
|
|
CLV1.AddTextItem("TOTAL PREVENTA = $" & c.GetString("TOTAL"),"1")
|
|
CLV1.AddTextItem("M E T A = $" & "1000","1")
|
|
CLV1.AddTextItem("FALTA = $" & (1000 - c.GetString("TOTAL")) ,"1")
|
|
CLV1.AddTextItem("CLIENTES = " & d.GetString("CUANTOS"),"1")
|
|
d.Close
|
|
End If
|
|
f.Close
|
|
End If
|
|
Next
|
|
End If
|
|
c.Close
|
|
' c=B4XPages.MainPage.skmt.ExecQuery("Select HMC_MARCA, HMC_TOTAL from HIST_MARCAS_CUOTAS where HMC_MARCA in (SELECT CAT_GP_CLASIF FROM TOTAL_MARCAS )")
|
|
' If c.RowCount>0 Then
|
|
' For i=0 To c.RowCount -1
|
|
' c.Position=i
|
|
' AddTitle(c.GetString("HMC_MARCA"))
|
|
' CLV1.AddTextItem("TOTAL PREVENTA = $ 0.00","1")
|
|
' CLV1.AddTextItem("M E T A = $" & C.GetString("HMC_TOTAL"),"1")
|
|
' CLV1.AddTextItem("CLIENTES = 0","1")
|
|
' Next
|
|
' End If
|
|
' c.Close
|
|
End Sub
|
|
|
|
Sub AddTitle (Title As String)
|
|
Dim p_marcas As B4XView = xui.CreatePanel("")
|
|
p_marcas.SetLayoutAnimated(0, 0, 0, CLV1.AsView.Width, TitleHeight)
|
|
p_marcas.LoadLayout("CellTitle")
|
|
lblTitle.Text = Title
|
|
Dim td As TitleData
|
|
td.Title = Title
|
|
CLV1.Add(p_marcas, td)
|
|
End Sub
|
|
|
|
Sub B_OK_PANEL5_Click
|
|
NUEVO.Visible =True
|
|
BUSCA.Visible=True
|
|
connecta.Visible=True
|
|
Resumen.Visible= True
|
|
P_RESUMEN.Visible=False
|
|
Panel4.Visible = False
|
|
SCROLL_RESDIA.Visible = False
|
|
p_marcasRes.Visible = False
|
|
p_sombra.Visible = False
|
|
Btn_Ubicar.Visible=True
|
|
p_principal.Visible = True
|
|
End Sub
|
|
|
|
Sub e_ruta_Click
|
|
Private revisaActualizacion As Map = Subs.revisaForzarActualizacion
|
|
Log("revisaActualizacion = " & revisaActualizacion)
|
|
If revisaActualizacion.Get("forzar") = 2 Then
|
|
LogColor("No hay info de versión para actualizar en CAT_VARIABLES, traemos la información!", Colors.red)
|
|
cmd.Initialize
|
|
cmd.Name = "selectVersionAppGuna"
|
|
cmd.Parameters = Array As Object(ALMACEN)
|
|
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "traeVersion")
|
|
End If
|
|
End Sub
|
|
|
|
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
|
|
|
Private Sub p_marcasRes_Click
|
|
|
|
End Sub
|
|
|
|
Private Sub p_sombra_Click
|
|
|
|
End Sub
|
|
|
|
Private Sub p_transparenteActualizacion_Click
|
|
|
|
End Sub
|
|
|
|
Private Sub b_abordo_Click
|
|
Starter.skmt.ExecNonQuery($"delete from cuentaa"$)
|
|
Starter.skmt.ExecNonQuery($"insert into cuentaa (cuenta) values ('0')"$)
|
|
B4XPages.ShowPage("Cliente")
|
|
End Sub
|
|
|
|
Private Sub P1_Click
|
|
|
|
End Sub
|
|
|
|
Private Sub b_clientesvisitados_Click
|
|
tickets_dia_Click
|
|
End Sub
|
|
|
|
Private Sub b_ubicar_Click
|
|
Btn_Ubicar_Click
|
|
End Sub
|
|
|
|
Private Sub b_nuevocliente_Click
|
|
nvo_cliente_Click
|
|
End Sub
|
|
|
|
Private Sub b_hacerpedido_Click
|
|
hacer_ped_Click
|
|
End Sub
|
|
|
|
Private Sub b_resdia_Click
|
|
resdia_Click
|
|
End Sub
|
|
|
|
Sub checaPedido
|
|
Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
|
|
If c.RowCount > 0 Then
|
|
Starter.skmt.ExecNonQuery("Update kmt_info3 set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
|
|
End If
|
|
Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA")
|
|
If c.RowCount > 0 Then
|
|
Starter.skmt.ExecNonQuery("Update kmt_info3 set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)")
|
|
End If
|
|
End Sub |