cheveguerra/Guna_Preventa_BAT
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa_BAT.git synced 2026-04-17 12:56:32 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
6cbcd3e59253575ccaf6a0a8f0b045ef8db4a0f3
Guna_Preventa_BAT/B4A/C_Principal.bas
cvaldes1201 6cbcd3e592 6.03.01 
se agrega la parte de las encuestas y se corrige los indicadores
2026-04-13 11:29:39 -06:00

4082 lines
182 KiB
QBasic
Raw Blame History

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
Private l_futura As Label
Private l_preventa As Label
Private l_preacordada As Label
Private l_prevtotal As Label
Private Label13 As Label
Private Label19 As Label
Private Label21 As Label
Private Label33 As Label
Private Label35 As Label
Private Label43 As Label
Private Label51 As Label
Private l_faltan As Label
Private l_visitas As Label
Private l_visitartotal As Label
Private de As Label
Private B_traec 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
' recalculoXcant
' 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
l_visitas.Text = 0
l_faltan.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
Dim totalcisitas As Cursor = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUENTA FROM KMT_INFO3 where cat_cl_codigo <> 0")
totalcisitas.Position = 0
l_visitas.Text = totalcisitas.GetInt("CUENTA")
Dim visitasfaltantes As Cursor = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUENTA FROM KMT_INFO3 WHERE gestion = 0 and cat_cl_codigo <> 0")
visitasfaltantes.Position = 0
l_faltan.Text = visitasfaltantes.GetInt("CUENTA")
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
Private s3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s3.RowCount > 0 Then
Private total7 As String = 0
For i = 0 To s3.RowCount - 1
s3.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total7 = total7 + Subs.calculaTotalConPromoXRango(s3.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s3.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
' NumberFormat2( total1,0,2,2,False)
B4XPages.MainPage.montoActual = NumberFormat2(total7,0,2,2,False)
Else
B4XPages.MainPage.montoActual = 0
' L_REAL.Text = 0
End If
B4XPages.MainPage.skmt.ExecNonQuery("delete from PEDIDO where PE_CANT <= 0")
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 recalculoXcant
' Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT* FROM PEDIDO JOIN CAT_PROMOS_DESCUENTOS ON CAT_PD_PRODUCTO = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA) AND PE_CEDIS = ? AND PE_CANT >= CAT_PD_RANGO AND CAT_PD_RANGO2 <= PE_CANT", Array As String(Subs.traeAlmacen))
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_CEDIS = ? and PE_RECCEDIS IS NOT NULL AND PE_RECALCULADO IS NULL AND PE_DESC = '0'", Array As String(Subs.traeAlmacen))
If c.RowCount > 0 Then
For promespdes = 0 To c.RowCount -1
c.Position = promespdes
Dim rangosel As Cursor= B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM CAT_PROMOS_DESCUENTOS WHERE CAT_PD_PRODUCTO = ? AND CAT_PD_RANGO <= ? AND CAT_PD_RANGO2 >= ?",Array As String(c.GetString("PE_PROID"),c.GetInt("PE_CANT"),c.GetInt("PE_CANT")))
If rangosel.RowCount > 0 Then
For hjh = 0 To rangosel.RowCount-1
rangosel.Position = hjh
If rangosel.GetString("CAT_PD_TIER").Contains(Subs.traeTipoCliente) Then
Log(c.GetString("PE_COSTOU"))
Log(rangosel.GetString("CAT_PD_DESCUENTO"))
Private recalculo As Float = c.GetString("PE_COSTOU") - NumberFormat2(((c.GetString("PE_COSTOU") * rangosel.GetString("CAT_PD_DESCUENTO"))/100),0,2,2,False)
LogColor(recalculo,Colors.Blue)
Log(c.GetString("PE_COSTOU"))
Log(NumberFormat2(((c.GetString("PE_COSTOU") * rangosel.GetString("CAT_PD_DESCUENTO"))/100),0,2,2,False))
Log(rangosel.GetString("CAT_PD_DESCUENTO"))
Private recalculototal As Float =c.GetString("PE_CANT") * recalculo
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ?, PE_RECCEDIS = ?, PE_RECCANT = PE_CANT, PE_RECALCULADO = 1 WHERE PE_PROID = ? AND PE_CLIENTE = ? AND PE_CEDIS = ? and PE_FOLIO = ? ",Array As String(NumberFormat2(recalculo,0,2,2,False) ,NumberFormat2(recalculototal,0,2,2,False), rangosel.GetString("CAT_PD_COD_PROMO"),c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"), Subs.traeAlmacen, c.GetString("PE_FOLIO")))
End If
Next
Else ' No cumple el rango ...
Dim rangosel2 As Cursor= B4XPages.MainPage.skmt.ExecQuery2("SELECT * FROM CAT_PROMOS_DESCUENTOS WHERE CAT_PD_PRODUCTO = ? and ? > cat_pd_rango2",Array As String(c.GetString("PE_PROID"),c.GetInt("PE_CANT")))
' definir rango sup y cantidad
If rangosel2.RowCount > 0 Then
' rangosel2.Position = 0
For hjh = 0 To rangosel2.RowCount-1
rangosel2.Position = hjh
If rangosel2.GetString("CAT_PD_TIER").Contains(Subs.traeTipoCliente) Then
Log(c.GetString("PE_COSTOU"))
Log(rangosel2.GetString("CAT_PD_DESCUENTO"))
Private recalculo As Float = c.GetString("PE_COSTOU") - NumberFormat2(((c.GetString("PE_COSTOU") * rangosel2.GetString("CAT_PD_DESCUENTO"))/100),0,2,2,False)
LogColor(recalculo,Colors.Blue)
Log(c.GetString("PE_COSTOU"))
Log(NumberFormat2(((c.GetString("PE_COSTOU") * rangosel2.GetString("CAT_PD_DESCUENTO"))/100),0,2,2,False))
Log(rangosel2.GetString("CAT_PD_DESCUENTO"))
Private recalculototal As Float = rangosel2.GetString("CAT_PD_RANGO2") * recalculo
' Restar total cantidad menos rango mayor para obtener la diferencia y saber cuanto hay de mas
' INSERT de producto (diferencia entre el rango sup y cantidad de pedido
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = ?, PE_RECALCULOTOT = ?, PE_RECCEDIS = ?, PE_RECCANT = ? , PE_RECALCULADO = 1 WHERE PE_PROID = ? AND PE_CLIENTE = ? AND PE_CEDIS = ? AND PE_FOLIO = ?",Array As String(NumberFormat2(recalculo,0,2,2,False),NumberFormat2(recalculototal,0,2,2,False),rangosel2.GetString("CAT_PD_COD_PROMO"), rangosel2.GetString("CAT_PD_RANGO2"),c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"),Subs.traeAlmacen, c.GetString("PE_FOLIO")))
End If
Next
Else
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = NULL, PE_RECALCULOTOT = NULL, PE_RECCEDIS = NULL, PE_RECCANT = NULL, PE_RECALCULADO = 1 WHERE PE_PROID = ? AND PE_CLIENTE = ? AND PE_CEDIS = ? AND PE_FOLIO = ?",Array As String(c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"), Subs.traeAlmacen, c.GetString("PE_FOLIO")))
End If
rangosel2.Close
End If
rangosel.Close
Next
End If
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PEDIDO set PE_RECALCULO = NULL, PE_RECALCULOTOT = NULL, PE_RECCEDIS = NULL, PE_RECCANT = NULL, PE_RECALCULADO = 1 WHERE PE_CEDIS <> ? AND PE_RECALCULADO IS NULL ",Array As String(Subs.traeAlmacen))
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
l_visitartotal.Visible = False
de.Visible = False
l_faltan.Visible = False
l_visitas.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(NumberFormat2(B4XPages.MainPage.montoActual,0,2,2,False), 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
' ENCUESTAS BAT
c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM ENCUESTAS_BAT")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_encuestas_bat_guna"
cmd.Parameters = Array As Object(c.GetString("CLIENTE"),c.GetString("RUTA"),c.GetString("ALMACEN"),c.GetString("FECHA"),c.GetString("P1"),c.GetString("P2"),c.GetString("P3"),c.GetString("P4"),c.GetString("P5"),c.GetString("P6"),c.GetString("P7"),c.GetString("P8"),c.GetString("P9"),c.GetString("P10"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "INSENCUESTAS")
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_GUNA2"
cmd.Parameters = Array As Object(C.GetString("COMENTARTIO"),C.GetString("CLIENTE"),Subs.traeAlmacen,Subs.traeRuta,c.GetInt("comentario_tmp"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "INS_coment")
Next
End If
c.Close
c=Starter.skmt.ExecQuery("SELECT * FROM CLIENTES_NUEVOS")
If c.RowCount>0 Then
For i = 0 To c.RowCount - 1
c.Position = i
Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
If dia = 2 Then
Dim dialetra As String = "LUNES"
Else If dia = 3 Then
Dim dialetra As String = "MARTES"
Else If dia = 4 Then
Dim dialetra As String = "MIERCOLES"
Else If dia = 5 Then
Dim dialetra As String = "JUEVES"
Else If dia = 6 Then
Dim dialetra As String = "VIERNES"
Else If dia = 7 Then
Dim dialetra As String = "SABADO"
End If
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_clientesnuevos_GUNA2"
Log(c.GetString("CN_ID")&" ,"& c.GetString("CN_FECHA")&" ,"& c.GetString("CN_USER")&" ,"& c.GetString("CN_LAT")&" ,"& c.GetString("CN_LON")&" ,"& c.GetString("CN_NOMBRE")&" ,"& c.GetString("CN_DIRECCION")&" ,"&ALMACEN& c.GetString("CN_RUTA")&" ,"& "En espera"&c.GetString("CN_GIRO")&" ,"&dialetra& c.GetString("CN_SOLICITA")&" ,"& c.GetString("CN_COLONIA")&" ,"& c.GetString("CN_TELEFONO")&" ,"& c.GetString("CN_CALLE1")&" ,"& c.GetString("CN_CALLE2"))
cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_TELEFONO"), c.GetString("CN_CP"), c.GetString("CN_CALLE1"), c.GetString("CN_CALLE2"),c.GetString("CN_NUMEROINT"),c.GetString("CN_NUMEROEXT"),c.GetString("CN_REFERENCIA"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_clientesn")
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
' Cambio atiende
c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_CL_ATIENDE1, CAT_CL_CODIGO from kmt_info3 where CAT_CL_CODIGO IN (SELECT CLIENTE FROM ATIENDE)")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "update_atiende_guna"
cmd.Parameters = Array As Object(C.GetString("CAT_CL_ATIENDE1"),C.GetString("CAT_CL_CODIGO"),ALMACEN,Subs.traeRuta2(C.GetString("CAT_CL_CODIGO")))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "up_coordenadas")
Next
End If
c.Close
' UPDATE VENTA CREDITO
'' UPDATE GUNA.CAT_CLIENTES SET CAT_CL_CTA = (?) WHERE cat_cl_codigo = (?) AND CAT_CL_IDALMACEN = (?) AND CAT_CL_RUTA = (?)
c=B4XPages.MainPage.skmt.ExecQuery("Select * from CODIGOS_CREDITO where BANDERA = 1")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "update_ventacredito_guna"
cmd.Parameters = Array As Object(C.GetString("BANDERA"),C.GetString("CLIENTE"),ALMACEN,Subs.traeRuta2(C.GetString("CLIENTE")))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "up_coordenadas")
Next
End If
c.Close
' Cambio TELEFONO
c=B4XPages.MainPage.skmt.ExecQuery("Select CAT_CL_TELEFONO, CAT_CL_CODIGO from kmt_info3 where CAT_CL_CODIGO IN (SELECT CLIENTE FROM ATIENDE)")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "update_telefono_guna"
cmd.Parameters = Array As Object(C.GetString("CAT_CL_TELEFONO"),C.GetString("CAT_CL_CODIGO"),ALMACEN,Subs.traeRuta2(C.GetString("CAT_CL_CODIGO")))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "up_coordenadas")
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
' PEDIDO
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
' If ALMACEN = "88" Or ALMACEN = "6" Then
c=B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_RECALCULO,PE_RECALCULOTOT,ifnull(PE_RECCEDIS,'') as PE_RECCEDIS,PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,ifnull(PE_CANT,0) as PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO, IFNULL(PE_RECCANT,0) AS PE_RECCANT 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
If c.GetString("PE_RECCEDIS") = "" Then
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")
Else
If c.GetString("PE_RECCANT") = c.GetString("PE_CANT") Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_pedido_GV2"
cmd.Parameters = Array As Object(C.GetString("PE_RECCEDIS"), 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")
Else
'Con descuento
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_pedido_GV2"
cmd.Parameters = Array As Object(C.GetString("PE_RECCEDIS"), ALMACEN, C.GetString("PE_RECALCULOTOT"), C.GetString("PE_RECALCULO"), C.GetString("PE_RECCANT"), 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")
'Sin descuento
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_pedido_GV2"
cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"), ALMACEN, NumberFormat2((C.GetString("PE_CANT")-C.GetString("PE_RECCANT"))*C.GetString("PE_COSTOU"),1,2,2,False), C.GetString("PE_COSTOU"), (C.GetString("PE_CANT")-C.GetString("PE_RECCANT")), 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")
End If
End If
Next
End If
c.Close
d.Position=0
cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
d.Close
' Else
' 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
' End If
' '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, NumberFormat2(B4XPages.MainPage.montoActual,0,2,2,False),"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
Dim pedidodiaanterior As Boolean = False
Dim cp As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * from PEDIDO")
If cp.RowCount > 0 Then
cp.Position = 0
Private fecha As String = cp.GetString("PE_FECHA")
Dim fecha2() As String = Regex.Split("/",fecha)
Dim fecha5() As String = Regex.Split("\:",fecha2(2))
Dim dia As String = fecha5(0).SubString2(0,4)&fecha2(0)&fecha2(1)
Log(fecha5(0))
Log(dia)
Dim mescom As String = DateTime.GetMonth(DateTime.Now)
Dim mescom2 As String
If mescom.Length = 1 Then
mescom2 = "0"&DateTime.GetMonth(DateTime.Now)
Else
mescom2 = DateTime.GetMonth(DateTime.Now)
End If
Dim diacom As String = DateTime.GetDayOfMonth(DateTime.Now)
Log(DateTime.GetMonth(DateTime.Now))
Dim diacom2 As String
If diacom.Length = 1 Then
diacom2 = "0"&DateTime.GetDayOfMonth(DateTime.Now)
Else
diacom2 = DateTime.GetDayOfMonth(DateTime.Now)
End If
Dim dia2 As String = DateTime.GetYear(DateTime.Now)&mescom2&diacom2
Log(dia & " , " & dia2)
Log("SI PASO")
If dia < dia2 Then
pedidodiaanterior = True
End If
End If
If Not (pedidodiaanterior) Then
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("VENTAFUTURA"))
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
l_visitartotal.Visible = False
de.Visible = False
l_faltan.Visible = False
l_visitas.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 ABONOSPTOD")
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 CAT_PROMOS_DESCUENTOS")
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")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CAT_CATCLIENTESTODOS")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM hist_ventastodos")
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_cat_GIRO_GUNA"
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "giro")
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_fotos_guna"
' cmd.Parameters = Array As Object(e_ruta.text,ALMACEN)
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "FOTO")
cmd.Initialize
cmd.Name = "traeFechaFotosGuna"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "traeFechaFotosGuna")
cmd.Initialize
cmd.Name = "traecodigosGUNA"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "traecodigos")
cmd.Initialize
cmd.Name = "select_objetivosbat_GUNA_VN"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "objetivos")
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_promo_descuento_guna"
cmd.Parameters = Array As Object(ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "promodesp")
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_abonosp_GUNA_pre_tod"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "select_abonosp_todos")
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_preventa_futura"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "KMT_VENTAFUTURA")
cmd.Initialize
cmd.Name = "select_hist_datos_GV2_3"
cmd.Parameters = Array As Object(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_cat_clientes_guna_todos"
cmd.Parameters = Array As Object( e_ruta.text,ALMACEN )
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_CAT_CATCLIENTESTODOS")
cmd.Initialize
cmd.Name = "select_hist_ventastodos_guna"
cmd.Parameters = Array As Object( e_ruta.text,ALMACEN,e_ruta.text,ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_ventastodos")
' 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_3"
cmd.Parameters = Array As Object(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)
Else
Log("XXXX")
MsgboxAsync("Para poder cargar día no puedes tener venta del día anterior. Por favor haz FIN DIA e intenta nuevamente.","Atención")
End If
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_19"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text, usuario)
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 = "FOTO" Then 'query tag
' B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSP")
For Each records() As Object In RESULT.Rows
Dim CODIGO As String = records(RESULT.Columns.Get("CAT_CL_FOTO"))
Dim FOTOS As String = records(RESULT.Columns.Get("CAT_CL_CLIENTE"))
Dim BANDERA As String = records(RESULT.Columns.Get("CAT_CL_BFOTO"))
Dim fot As Cursor = Starter.skmt.ExecQuery($"SELECT * FROM FOTOS WHERE CLIENTE = '${CODIGO}'"$)
If fot.RowCount = 0 Then
Starter.skmt.ExecNonQuery2("INSERT INTO FOTOS(CLIENTE,FOTO,MOVIMIENTO) VALUES (?,?,?)", Array As Object (CODIGO, FOTOS,BANDERA))
Else
fot.Position = 0
If fot.GetString("MOVIMIENTO") > BANDERA Then
Starter.skmt.ExecNonQuery2("UPDATE FOTOS SET FOTO = ?, MOVIMIENTO = ? IN (SELECT CUENTA FROM CUENTAA)",Array As Object(FOTOS, BANDERA))
End If
End If
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "giro" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim giro As String = records(RESULT.Columns.Get("CAT_GR_DESCRIPCION"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GIRO(GIRO) VALUES (?)", Array As Object (giro))
Next
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 RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "select_abonosp_todos" Then 'query tag
B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSPTOD")
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 ABONOSPTOD(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 = "traeFechaFotosGuna" Then 'query tag
Subs.logJobDoneResultados(RESULT)
' B4XPages.MainPage.skmt.ExecNonQuery("delete from ABONOSP")
For Each records() As Object In RESULT.Rows
Private fecha As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
Private CLIENTE As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
Private f As Cursor = Starter.skmt.ExecQuery($"select * from fotos where cliente = '${CLIENTE}' and fecha = '${fecha}'"$)
' Log("==> EXISTE LA FOTO:" & f.RowCount)
If f.RowCount = 0 Then
cmd.Initialize
cmd.Name = "traeFotoGuna"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, CLIENTE)
Log("BUSCAMOS FOTO: " & ALMACEN &"|" & e_ruta.text & "|" & CLIENTE)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, $"traeFotoGuna_${CLIENTE}"$)
Log($"==>> traeFotoGuna_${CLIENTE}"$)
End If
Next
End If
End If
' CLIENTES NUEVOS
' Dim fotocn() As Byte
' Dim Dirp As String = File.DirInternal
' Dim Dir As String
' Dim Dir2 As String
' Dir = "/promotoriakmts"
' c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA, CN_COLONIA, CN_TELEFONO, CN_CP FROM CLIENTES_NUEVOS")
' If c.RowCount>0 Then
' For i = 0 To c.RowCount - 1
' c.Position = i
' Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
' If dia = 2 Then
' Dim dialetra As String = "LUNES"
' Else If dia = 3 Then
' Dim dialetra As String = "MARTES"
' Else If dia = 4 Then
' Dim dialetra As String = "MIERCOLES"
' Else If dia = 5 Then
' Dim dialetra As String = "JUEVES"
' Else If dia = 6 Then
' Dim dialetra As String = "VIERNES"
' Else If dia = 7 Then
' Dim dialetra As String = "SABADO"
' End If
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "insert_clientesnuevos_GUNA"
' Log(c.GetString("CN_ID")&" ,"& c.GetString("CN_FECHA")&" ,"& c.GetString("CN_USER")&" ,"& c.GetString("CN_LAT")&" ,"& c.GetString("CN_LON")&" ,"& c.GetString("CN_NOMBRE")&" ,"& c.GetString("CN_DIRECCION")&" ,"&ALMACEN& c.GetString("CN_RUTA")&" ,"& "En espera"&c.GetString("CN_GIRO")&" ,"&dialetra& c.GetString("CN_SOLICITA")&" ,"& c.GetString("CN_COLONIA")&" ,"& c.GetString("CN_TELEFONO"))
' cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_TELEFONO"), c.GetString("CN_CP"))
' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_clientesn")
' Next
' End If
' c.Close
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag.As(String).Contains("traeFotoGuna_") Then 'query tag
For Each records() As Object In RESULT.Rows
Private FOTO() As Byte = records(RESULT.Columns.get("CAT_CL_FOTO"))
Private CLIENTE As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
Private fecha As String = records(RESULT.Columns.Get("CAT_CL_FOTO_FECHA"))
Starter.skmt.ExecNonQuery($"DELETE from FOTOS where CLIENTE = '${CLIENTE}'"$)
Starter.skmt.ExecNonQuery2("INSERT INTO FOTOS(CLIENTE,FOTO,FECHA) VALUES (?,?,?)", Array As Object (CLIENTE,FOTO,fecha))
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag.As(String).Contains("traecodigos") Then 'query tag
For Each records() As Object In RESULT.Rows
Private CODIGOCREDITO As String = records(RESULT.Columns.get("CAT_CL_CLABE"))
Private BANDERACREDITO As String = records(RESULT.Columns.Get("CAT_CL_CTA"))
Private CLIENTECREDITO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
If l_ruta.Text = "0" Then
Starter.skmt.ExecNonQuery2("INSERT INTO CODIGOS_CREDITO(CODIGO,BANDERA,CLIENTE) VALUES (?,?,?)", Array As Object (CODIGOCREDITO,BANDERACREDITO,CLIENTECREDITO))
Else
Private hdsgf As Cursor = Starter.skmt.ExecQuery($"SELECT * FROM CODIGOS_CREDITO where CODIGO = '${CODIGOCREDITO}' and BANDERA = '${BANDERACREDITO}' and CLIENTE = '${CLIENTECREDITO}' "$$)
If hdsgf.RowCount = 0 Then
Starter.skmt.ExecNonQuery2("INSERT INTO CODIGOS_CREDITO(CODIGO,BANDERA,CLIENTE) VALUES (?,?,?)", Array As Object (CODIGOCREDITO,BANDERACREDITO,CLIENTECREDITO))
Else
' Log("NO ENTRO")
End If
End If
Next
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"))
Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO"))
Dim CAT_CL_DIASCREDITO As String = records(RESULT.Columns.Get("CAT_CL_DIASCREDITO"))
Dim CAT_CL_CLASIFICADOR4 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR4"))
Dim CAT_CL_CLASIFICADOR3 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR3"))
Dim CAT_CL_CLASIFICADOR2 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR2"))
Dim CAT_CL_CLASIFICADOR2 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR2"))
Dim CAT_CL_CLASIFICADOR5 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR5"))
Dim CAT_CL_ORDENVISITA As String = records(RESULT.Columns.Get("CAT_CL_ORDENVISITA"))
'########################## 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,CAT_CL_LIMITECREDITO,CAT_CL_DIASCREDITO,CAT_CL_CLASIFICADOR3,CAT_CL_CLASIFICADOR2,CAT_CL_CLASIFICADOR4,CAT_CL_ORDENVISITA,CAT_CL_CLASIFICADOR5) 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,CAT_CL_LIMITECREDITO,CAT_CL_DIASCREDITO,CAT_CL_CLASIFICADOR3,CAT_CL_CLASIFICADOR2,CAT_CL_CLASIFICADOR4,CAT_CL_ORDENVISITA,CAT_CL_CLASIFICADOR5))
'########################## 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_CAT_CATCLIENTESTODOS" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim CAT_CL_TIPO_RUTA As String = records(RESULT.Columns.Get("CAT_CL_TIPO_RUTA"))
Dim CAT_CL_DIAS_VISITA As String = records(RESULT.Columns.Get("CAT_CL_DIAS_VISITA"))
Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
' Dim CAT_CL_FOTO As String = records(RESULT.Columns.Get("CAT_CL_FOTO"))
Dim CAT_CL_CLASIFICADOR3 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR3"))
Dim CAT_CL_CLASIFICADOR4 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR4"))
Dim CAT_CL_CLASIFICADOR2 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR2"))
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_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
Dim CAT_CL_DIASCREDITO As String = records(RESULT.Columns.Get("CAT_CL_DIASCREDITO"))
Dim CAT_CL_TIPOCLIENTE As String = records(RESULT.Columns.Get("CAT_CL_TIPOCLIENTE"))
Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO"))
'########################## INICIA CODIGO PARA CREDITOS ####################
Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_CATCLIENTESTODOS(CAT_CL_TIPO_RUTA,CAT_CL_DIAS_VISITA,CAT_CL_CODIGO,CAT_CL_FOTO,CAT_CL_CLASIFICADOR3,CAT_CL_CLASIFICADOR4,CAT_CL_CLASIFICADOR2,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_DIASCREDITO,CAT_CL_TIPOCLIENTE,CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_CL_TIPO_RUTA, CAT_CL_DIAS_VISITA, CAT_CL_CODIGO, CAT_CL_FOTO, CAT_CL_CLASIFICADOR3, CAT_CL_CLASIFICADOR4, CAT_CL_CLASIFICADOR2, 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_DIASCREDITO, CAT_CL_TIPOCLIENTE, CAT_CL_LIMITECREDITO))
'########################## 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_cat_clientestodos(CAT_CL_TIPO_RUTA,CAT_CL_DIAS_VISITA,CAT_CL_CODIGO,CAT_CL_FOTO,CAT_CL_CLASIFICADOR3,CAT_CL_CLASIFICADOR4,CAT_CL_CLASIFICADOR2,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_DIASCREDITO,CAT_CL_TIPOCLIENTE,CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_CL_TIPO_RUTA, CAT_CL_DIAS_VISITA, CAT_CL_CODIGO, CAT_CL_FOTO, CAT_CL_CLASIFICADOR3, CAT_CL_CLASIFICADOR4, CAT_CL_CLASIFICADOR2, 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_DIASCREDITO, CAT_CL_TIPOCLIENTE, CAT_CL_LIMITECREDITO))
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 = "promodesp" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim CAT_PD_ALMACEN As String = records(RESULT.Columns.Get("CAT_PD_ALMACEN"))
Dim CAT_PD_COD_PROMO As String = records(RESULT.Columns.Get("CAT_PD_COD_PROMO"))
Dim CAT_PD_RANGO As String = records(RESULT.Columns.Get("CAT_PD_RANGO"))
Dim CAT_PD_RANGO2 As String = records(RESULT.Columns.Get("CAT_PD_RANGO2"))
Dim CAT_PD_VIGENCIA As String = records(RESULT.Columns.Get("CAT_PD_VIGENCIA"))
Dim CAT_PD_DESCUENTO As String = records(RESULT.Columns.Get("CAT_PD_DESCUENTO"))
Dim CAT_PD_PRODUCTO As String = records(RESULT.Columns.Get("CAT_PD_PRODUCTO"))
Dim CAT_PD_TIER As String = records(RESULT.Columns.Get("CAT_PD_TIER"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_PROMOS_DESCUENTOS(CAT_PD_ALMACEN, CAT_PD_COD_PROMO, CAT_PD_RANGO, CAT_PD_VIGENCIA, CAT_PD_DESCUENTO, CAT_PD_PRODUCTO, CAT_PD_TIER,CAT_PD_RANGO2) VALUES (?,?,?,?,?,?,?,?)", Array As Object (CAT_PD_ALMACEN, CAT_PD_COD_PROMO, CAT_PD_RANGO, CAT_PD_VIGENCIA, CAT_PD_DESCUENTO, CAT_PD_PRODUCTO, CAT_PD_TIER,CAT_PD_RANGO2))
Next
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 = "KMT_VENTAFUTURA" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim CAT_RU_VENTAF As String = records(RESULT.Columns.Get("CAT_RU_VENTAF"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("VENTAFUTURA",CAT_RU_VENTAF))
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"))
Dim CAT_LISTAPRECIO As String = records(RESULT.Columns.Get("CAT_LISTAPRECIO"))
Dim CAT_GP_CONVERSION3 As String = records(RESULT.Columns.Get("CAT_GP_CONVERSION3"))
Dim CAT_GP_CONVERSION2 As String = records(RESULT.Columns.Get("CAT_GP_CONVERSION2"))
' Dim CAT_LISTAPRECIO As Int = 10
' 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,CAT_LISTAPRECIO, CAT_GP_DEV, CAT_GP_CONVERSION3,CAT_GP_CONVERSION2) 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_LISTAPRECIO,CAT_GP_DEV,CAT_GP_CONVERSION3,CAT_GP_CONVERSION2))
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"))
Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA"))
' 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, HVD_FECHA) VALUES (?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA))
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 = "hist_ventastodos" Then 'query tag
For Each records() As Object In RESULT.Rows
' Log ("NO HACE NADA")
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"))
Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA"))
Dim HVD_NUM_TICKET As String = records(RESULT.Columns.Get("HVD_NUM_TICKET"))
Dim HVD_CODPROMO As String = records(RESULT.Columns.Get("HVD_CODPROMO"))
' Log(HVD_CLIENTE&"--"&HVD_PRONOMBRE&"--"&HVD_CANT&"--"&HVD_COSTO_TOT)
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO hist_ventastodos(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_NUM_TICKET,HVD_CODPROMO) VALUES (?,?,?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_NUM_TICKET,HVD_CODPROMO))
Next
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
If RESULT.Tag = "objetivos" Then 'query tag
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CAT_OBJETIVO_BAT")
For Each records() As Object In RESULT.Rows
Dim COB_VOLUMEN As String = records(RESULT.Columns.Get("COB_VOLUMEN"))
Dim COB_MARCAE As String = records(RESULT.Columns.Get("COB_MARCAE"))
Dim COB_PORTAFOLIO As String = records(RESULT.Columns.Get("COB_PORTAFOLIO"))
Dim COB_OBJPP As String = records(RESULT.Columns.Get("COB_OBJPP"))
Dim COB_GEV As String = records(RESULT.Columns.Get("COB_GEV"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_OBJETIVO_BAT(COB_VOLUMEN, COB_MARCAE, COB_PORTAFOLIO, COB_OBJPP, COB_GEV) VALUES (?,?,?,?,?)", Array As Object (COB_VOLUMEN, COB_MARCAE, COB_PORTAFOLIO, COB_OBJPP, COB_GEV))
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 connecta_LongClick
' ENCUESTAS BAT
c=B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM ENCUESTAS_BAT")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_encuestas_bat_guna"
cmd.Parameters = Array As Object(c.GetString("CLIENTE"),c.GetString("RUTA"),c.GetString("ALMACEN"),c.GetString("FECHA"),c.GetString("P1"),c.GetString("P2"),c.GetString("P3"),c.GetString("P4"),c.GetString("P5"),c.GetString("P6"),c.GetString("P7"),c.GetString("P8"),c.GetString("P9"),c.GetString("P10"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "INSENCUESTAS")
Next
End If
c.Close
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.net/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 CAT_PROMOS_DESCUENTOS")
B4XPages.MainPage.skmt.ExecNonQuery("delete from TELEFONO")
B4XPages.MainPage.skmt.ExecNonQuery("delete from ATIENDE")
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 CLIENTES_NUEVOS")
Starter.skmt.ExecNonQuery("delete from CAT_GIRO")
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 CODIGOS_CREDITO")
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("VENTAFUTURA"))
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
l_visitartotal.Visible = True
de.Visible = True
l_faltan.Visible = True
l_visitas.Visible = True
' 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
l_visitartotal.Visible = True
de.Visible = True
l_faltan.Visible = True
l_visitas.Visible = True
B4XPage_Appear
' Subs.panelVisible(p_principal, 0, 0)
Dim cn As Cursor = Starter.skmt.ExecQuery("SELECT * FROM CLIENTES_NUEVOS")
If cn.RowCount > 0 Then
For gh = 0 To cn.RowCount -1
cn.Position = gh
Starter.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_GIRO,CAT_CL_NUMEROINT,CAT_CL_NUMEROEXT,CAT_CL_REFERENCIA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?,?,?,?) ", Array As Object (cn.GetString("CN_ID"),cn.GetString("CN_RUTA"), cn.GetString("CN_NOMBRE"),"null","null","null","null","null","null","null",cn.GetString("CN_CALLE1"),cn.GetString("CN_CALLE2"),"null","null","null","null",cn.GetString("CN_LON"),cn.GetString("CN_LAT"), cn.GetString("CN_GIRO"), cn.GetString("CN_NUMEROINT"), cn.GetString("CN_NUMEROEXT"), cn.GetString("CN_REFERENCIA")))
Next
End If
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.Panel.RemoveAllViews
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
' s3.Position = 0
' 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)
'' L_REAL.Text = Subs.calculaTotalConPromoXRango(s3.GetString("PE_CLIENTE"))
' 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, pe_cliente 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)
'' L_REAL.Text = Subs.calculaTotalConPromoXRango(s.GetString("PE_CLIENTE"))
' s.Close
' End If
' s3.Close
Private s3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s3.RowCount > 0 Then
Private total1 As String = 0
For i = 0 To s3.RowCount - 1
s3.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total1 = total1 + Subs.calculaTotalConPromoXRango(s3.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s3.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
L_REAL.Text = NumberFormat2( total1,0,2,2,False)
Else
L_REAL.Text = 0
End If
Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s5.RowCount > 0 Then
Private total4 As String = 0
For i = 0 To s5.RowCount - 1
s5.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total4 = total4 + Subs.calculaTotalConPromoXRango1(s5.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s5.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
l_preacordada.Text = NumberFormat2(total4,0,2,2,False)
Else
l_preacordada.Text = 0
End If
Private s6 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s6.RowCount > 0 Then
Private total3 As String = 0
For i = 0 To s6.RowCount - 1
s6.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total3 = total3 + Subs.calculaTotalConPromoXRango2(s6.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s6.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
l_prevtotal.Text = NumberFormat2(total3,0,2,2,False)
Else
l_prevtotal.Text = 0
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, pe_cliente 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)
' l_ru_pri.Text = Subs.calculaTotalConPromoXRango(ru_o.GetString("PE_CLIENTE"))
' End If
' ru_o.Close
Private ru_o As Cursor = B4XPages.MainPage.skmt.ExecQuery2("SELECT distinct pe_cliente, pe_ruta FROM PEDIDO LEFT JOIN RUTA_SUPLENCIA ON PE_RUTA = RS_RUTA WHERE RS_RUTA IS NULL", Null)
' Label2.Text = "N/A"
' Log("##### " & ru_o.RowCount)
Private total2 As String = 0
If ru_o.RowCount > 0 Then
For i2 = 0 To ru_o.RowCount - 1
ru_o.Position = i2
' LogColor($"${ru_o.GetString("PE_RUTA")}|${ru_o.GetString("PE_CLIENTE")}"$, Colors.Red)
Private rutOr As String = ru_o.GetString("PE_RUTA")
' Label2.Text = "Ruta " & rutOr
total2 = total2 + Subs.calculaTotalConPromoXRango(ru_o.GetString("PE_CLIENTE"))
Next
End If
l_ru_pri.Text = NumberFormat2(total2,0,2,2,False)
'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
Log(L_NES.Text)
Log(L_REAL.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_preventa.Text = Subs.calculaTotalConPromoXRango2(Subs.traeCliente)
l_futura.Text = Subs.calculaTotalConPromoXRango1(Subs.traeCliente)
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
''INICIO NUEVO RES DIA
Private s3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s3.RowCount > 0 Then
Private total1 As String = 0
For i = 0 To s3.RowCount - 1
s3.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total1 = total1 + Subs.calculaTotalConPromoXRango(s3.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s3.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
L_REAL.Text = NumberFormat2( total1,0,2,2,False)
Else
L_REAL.Text = 0
End If
Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s5.RowCount > 0 Then
Private total4 As String = 0
For i = 0 To s5.RowCount - 1
s5.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total4 = total4 + Subs.calculaTotalConPromoXRango1(s5.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s5.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
l_preacordada.Text = NumberFormat2(total4,0,2,2,False)
Else
l_preacordada.Text = 0
End If
Private s6 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s6.RowCount > 0 Then
Private total3 As String = 0
For i = 0 To s6.RowCount - 1
s6.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total3 = total3 + Subs.calculaTotalConPromoXRango2(s6.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s6.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
l_prevtotal.Text = NumberFormat2(total3,0,2,2,False)
Else
l_prevtotal.Text = 0
End If
Private s7 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select Ifnull(PE_CANT,0) AS PE_CANT, PE_PROID FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'CIGARRO')")
If s7.RowCount > 0 Then
Dim totalstick As Double = 0
For sfsdf = 0 To s7.RowCount -1
s7.Position= sfsdf
Log("ENTRE AQUI")
Dim s8 As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT CAT_GP_CONVERSION3 FROM CAT_GUNAPROD WHERE CAT_GP_ID = '${s7.GetString("PE_PROID")}'"$)
s8.Position = 0
totalstick = totalstick + (s7.GetString("PE_CANT")* s8.GetString("CAT_GP_CONVERSION3"))
Log(totalstick)
Next
Dim totaltotaltot As Int = totalstick/200
l_ru_pri.Text = totaltotaltot
Else
l_ru_pri.Text = 0
End If
Private s0 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select Ifnull(PE_CANT,0) AS PE_CANT, PE_PROID FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'PARTNERSHIP')")
If s0.RowCount > 0 Then
' Log(s0.RowCount)
Dim pp As Double = 0
For lksahdjgsad = 0 To s0.RowCount -1
s0.Position = lksahdjgsad
Dim s9 As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT CAT_GP_CONVERSION3 FROM CAT_GUNAPROD WHERE CAT_GP_ID = '${s0.GetString("PE_PROID")}'"$)
s9.Position = 0
' Log(s9.GetString("CAT_GP_CONVERSION3"))
pp = pp + (s0.GetString("PE_CANT")* s9.GetString("CAT_GP_CONVERSION3"))
Next
' s0.Position = 0
' Log(s0.GetString("PE_CANT"))
L_REAL.Text = NumberFormat2(pp,0,2,2,False)
Else
L_REAL.Text = 0
End If
L_NES.Text = 0
l_ru_sup.Text = 0
L_ALCANCE.Text = 0
L_VPLAN.Text = 0
L_VREAL.Text = 0
L_EFEC_VIS.Text = 0
L_VISITCC.Text = 0
L_EFEC_PV.Text = 0
L_EFEC_PURA.Text = 0
l_preventa.Text = 0
l_futura.Text = 0
Label13.Text = 0
Label19.Text = 0
Label21.Text = 0
Private s0 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(distinct(PE_CLIENTE)) AS PE_CANT FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'CIGARRO')")
If s0.RowCount > 0 Then
s0.Position = 0
' Log(s0.GetString("PE_CANT"))
Label33.Text = s0.GetString("PE_CANT")
Else
Label33.Text = 0
End If
Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s5.RowCount > 0 Then
Private total4 As String = 0
For i = 0 To s5.RowCount - 1
s5.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total4 = total4 + Subs.calculaTotalConPromoXRango5(s5.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s5.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
Label35.Text = NumberFormat2(total4,0,2,2,False)
Else
Label35.Text = 0
End If
Private s0 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select count(distinct(PE_CLIENTE)) AS PE_CANT FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'PARTNERSHIP')")
If s0.RowCount > 0 Then
s0.Position = 0
' Log(s0.GetString("PE_CANT"))
Label43.Text = s0.GetString("PE_CANT")
Else
Label43.Text = 0
End If
Private s5 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select distinct(pe_cliente) FROM PEDIDO")
If s5.RowCount > 0 Then
Private total4 As String = 0
For i = 0 To s5.RowCount - 1
s5.Position = i
' LogColor($"Total antes ${total1}"$, Colors.blue)
total4 = total4 + Subs.calculaTotalConPromoXRango6(s5.GetString("PE_CLIENTE"))
' LogColor(Subs.calculaTotalConPromoXRango(s5.GetString("PE_CLIENTE")), Colors.Magenta)
' LogColor($"Total despues ${total1}"$, Colors.blue)
Next
Label51.Text = NumberFormat2(total4,0,2,2,False)
Else
Label51.Text = 0
End If
Private s6 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select IFNULL(COB_VOLUMEN,0) AS COB_VOLUMEN, IFNULL(COB_MARCAE,0) AS COB_MARCAE, IFNULL(COB_PORTAFOLIO,0) AS COB_PORTAFOLIO, IFNULL(COB_OBJPP,0) AS COB_OBJPP, IFNULL(COB_GEV,0) as COB_GEV FROM CAT_OBJETIVO_BAT")
If s6.RowCount > 0 Then
s6.Position = 0
L_NES.Text = NumberFormat2(s6.GetString("COB_VOLUMEN"),0,0,0,False)
L_EFEC_PURA.Text = NumberFormat2(s6.GetString("COB_MARCAE"),0,0,0,False)
L_VISITCC.Text = NumberFormat2(s6.GetString("COB_PORTAFOLIO"),0,0,0,False)
l_ru_sup.Text = NumberFormat2(s6.GetString("COB_OBJPP"),0,0,0,False)
l_futura.Text = NumberFormat2(s6.GetString("COB_GEV"),0,0,0,False)
Else
L_NES.Text = 0
L_EFEC_PURA.Text = 0
L_VISITCC.Text = 0
l_ru_sup.Text = 0
l_futura.Text = 0
End If
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
Private Sub B_traec_click
B4XPages.ShowPage("Clientes_Completos")
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
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_ID IN (SELECT CAT_PD_PRODUCTO FROM CAT_PROMOS_DESCUENTOS) ",Array As Object("PRIORITARIO"))
Private coord As Cursor = Starter.skmt.ExecQuery("SELECT * FROM ATIENDE")
If coord.RowCount > 0 Then
For cor = 0 To coord.RowCount -1
coord.Position = cor
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info3 set CAT_CL_ATIENDE1 = ? where CAT_CL_CODIGO = ?", Array As Object(coord.GetString("ATIENDE"),coord.GetString("CLIENTE")))
Next
End If
Private coord As Cursor = Starter.skmt.ExecQuery("SELECT * FROM TELEFONO")
If coord.RowCount > 0 Then
For cor = 0 To coord.RowCount -1
coord.Position = cor
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE kmt_info3 set CAT_CL_TELEFONO = ? where CAT_CL_CODIGO = ?", Array As Object(coord.GetString("TELEFONO"),coord.GetString("CLIENTE")))
Next
End If
End Sub
'Private Sub connecta_LongClick
' ' UPDATE VENTA CREDITO
' '' UPDATE GUNA.CAT_CLIENTES SET CAT_CL_CTA = (?) WHERE cat_cl_codigo = (?) AND CAT_CL_IDALMACEN = (?) AND CAT_CL_RUTA = (?)
' c=B4XPages.MainPage.skmt.ExecQuery("Select * from CODIGOS_CREDITO where BANDERA = 1")
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
' c.Position=i
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "update_ventacredito_guna"
' cmd.Parameters = Array As Object(C.GetString("BANDERA"),C.GetString("CLIENTE"),ALMACEN,Subs.traeRuta2(C.GetString("CLIENTE")))
' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "up_CREDITO")
' Next
' End If
' c.Close
'End Sub
Reference in New Issue View Git Blame Copy Permalink