cheveguerra/Durakelo_Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo_Reparto.git synced 2026-04-17 19:37:04 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
master
Durakelo_Reparto/seleccion.bas

1130 lines
41 KiB
QBasic
Raw Permalink Blame History

B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Activity
Version=6.8
@EndOfDesignText@
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim reqManager As DBRequestManager
Dim conectado As String
Dim skmt As SQL
Dim t1 As Timer
Dim sb As StringBuilder
Dim PHONE As Phone
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim trabajar As Button
Dim ime As IME
Dim c As Cursor
Dim d As Cursor
Dim b As Cursor
Dim e As Cursor
Dim f As Cursor
Dim f1 As Cursor
Dim f2 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 As Cursor
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 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
Private inv As Button
Private cambios As Label
Private L_MONTOE As Label
Private B_CLIEPROD As Button
Private ListView1 As ListView
Private B_REGRESA As Button
Private Panel1 As Panel
Dim ESTATUS As String
Dim Btn_UbicarR As Button
Dim batterystatus(11) As Int
Private bu As BatteryUtilities
Dim RUTA_T As String
Dim HORAINGRESO As String
Private p_cargando As Panel
Private p_cargando2 As Panel
Private l_cargando As Label
Private l_version As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
EJECUTANDO=1
If FirstTime Then
'reqManager.Initialize(Me,"http://201.99.139.28:1782")
'reqManager.Initialize(Me,"http://177.244.63.54:1782")
reqManager.Initialize(Me,Main.server)
End If
Activity.LoadLayout("seleccion")
Dim ruta As String
img2.Visible =False
ruta = File.DirInternal
' se crea o no el archivo de la base de ddatos de kmt
'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE
'TOME LA NUEVA ESTRUCTURA ES MUY IMPORTANTE TENER EL IF DE LO CONTRARIO SOLO LO ESCRIBE UNA VEZ Y LO BORRA
'SI SE REGRESA A ESTE ACTIVIDAD.
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)
skmt.Initialize(ruta,"kmt.db", True)
b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
b.Position=0
Cuantos = b.GetString("CUANTOS")
d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
D.Position=0
b.Close
e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
e.Position=0
f=skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info")
f.Position=0
l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close
If l_ruta.Text = 0 Then
l_ruta.Text =0
Else
f=skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
f.Position=0
l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close
End If
If Cuantos = 0 Then
L_MONTOD.Text =0
l_cuantosc.Text = 0
l_cuantosn.Text = 0
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=skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
b=skmt.ExecQuery("select count(*) as CUANTOS from noventa")
'where pc_fecha = ?", Array As String(fecha)
C.Position=0
b.Position=0
L_MONTOD.Text = c.GetString("MONTO_DIA")
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")
End If
c = 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
skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
Else
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_VALOR,CAT_VA_DESCRIPCION) VALUES (?,?)" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
End If
DateTime.TimeFormat = "HH:mm:ss"
p_cargando2.Left = (Activity.Width / 2) - (p_cargando2.Width / 2)
l_version.Text = Application.VersionName
l_version.Left = Activity.Width - l_version.Width - 10
End Sub
Sub IsConnectedToInternet As Boolean
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")
r.Target = r.RunMethod("getActiveNetworkInfo")
If r.Target <> Null Then
Return r.RunMethod("isConnectedOrConnecting")
End If
Return False
End Sub
Sub Activity_Resume
Log("eresume")
c=skmt.ExecQuery("select noversion from version")
c.Position=0
HORAINGRESO ="000000"
If c.RowCount > 0 Then
If c.GetString("NOVERSION") <> "2.1" Then
ToastMessageShow("EXISTE UNA NUEVA VERSION ACTUALIZA POR FAVOR." , True)
cargar.Visible = False
Subir.Visible = False
connecta.Visible = False
trabajar.Visible = False
BUSCA.Visible = False
inv.Visible = False
End If
End If
c.Close
If EJECUTANDO =0 Then
Listo1 = 0
Listo2 = 0
Listo3 = 0
Listo4 = 0
Listo5 = 0
inve = 0
img2.Visible =False
p_cargando.Visible = False
End If
DateTime.DateFormat = "MM/dd/yyyy"
fecha=DateTime.Date(DateTime.Now)
b=skmt.ExecQuery("Select count(*) as CUANTOS from kmt_info")
b.Position=0
Cuantos = b.GetString("CUANTOS")
d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
D.Position=0
b.Close
e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
e.Position=0
f=skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info")
f.Position=0
l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close
If l_ruta.Text = 0 Then
l_ruta.Text =0
Else
f=skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
f.Position=0
l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close
End If
If Cuantos = 0 Then
L_MONTOD.Text =0
l_cuantosc.Text = 0
l_cuantosn.Text = 0
drop = 0
l_drop.Text = 0
efectiva = 0
l_efectiva.text =0
cambios.Text = 0
L_MONTOE.Text = 0
l_ctast.Text = d.GetString("TOTAL_VISITAR")
l_porvisitar.Text = e.GetString("POR_VISITAR")
d.Close
e.Close
Else
c=skmt.ExecQuery("select sum(hvd_costo_tot) as MONTO_DIA from hist_ventas where hvd_cliente in (select cat_cl_codigo from kmt_info where gestion = 2) ")
f1=skmt.ExecQuery("select sum(hvd_costo_tot) as MONTO_TOTAL_DIA from hist_ventas where hvd_cliente in (select cat_cl_codigo from kmt_info ) AND HVD_ESTATUS <> 2")
f2=skmt.ExecQuery("select sum(REP_COSTO_TOT) as MONTO_REC_DIA FROM REPARTO where REP_cliente in (Select cat_cl_codigo from kmt_info) ")
b=skmt.ExecQuery("select count(*) as CUANTOS from noventa where nv_cliente in (select cat_cl_codigo from kmt_info where gestion = 3)")
L=skmt.ExecQuery("select count(*) as CLIENTES_DIA from noventa where nv_cliente in (select cat_cl_codigo from kmt_info where gestion = 2)")
'where pc_fecha = ?", Array As String(fecha)
C.Position=0
b.Position=0
L.Position=0
f1.Position=0
f2.Position=0
L_MONTOD.Text = to_number_vb (f1.GetString("MONTO_TOTAL_DIA"))
L_MONTOE.Text = to_number_vb (C.GetString("MONTO_DIA"))
l_cuantosc.Text = L.GetString("CLIENTES_DIA")
l_cuantosn.Text = b.GetString("CUANTOS")
'drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")
l_drop.Text = to_number_vb (f1.GetString("MONTO_TOTAL_DIA")) + to_number_vb (f2.GetString("MONTO_REC_DIA"))
'efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
l_efectiva.text = to_number_vb (f2.GetString("MONTO_REC_DIA"))
l_ctast.Text = d.GetString("TOTAL_VISITAR")
l_porvisitar.Text = e.GetString("POR_VISITAR")
c.Close
b.Close
c=skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES where CAT_VA_DESCRIPCION = ? ", Array As String("CAMBIOS"))
c.Position=0
If c.GetString("CUANTOS") = 0 Then
cambios.Text =0
Else
B=skmt.ExecQuery("select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'CAMBIOS'")
B.Position=0
cambios.Text = b.GetString("CAT_VA_VALOR")
b.Close
End If
c.Close
End If
c=skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
C.Position =0
ALMACEN = C.GetString("ID_ALMACEN")
C.Close
c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
'' HACER ESTO PARA EL FORANEO
'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
'
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "insert_gps_actual_REP"
' cmd.Parameters = Array As Object(c.GetString("hgdate"),c.GetString("hglat"),c.GetString("hglon"),usuario )
' 'cmd.Parameters = Array As Object(C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON") )
'
' reqManager.ExecuteQuery(cmd , 0, "inst_visitas")
'
'
'Next
'End If
'
bu.Initialize
batterystatus = bu.BatteryInformation
' Main.batt = bu.BatteryInformation
c=skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
c.Close
c=skmt.ExecQuery("select RUTAA from RUTAA")
c.Position = 0
If c.RowCount > 0 Then
RUTA_T = c.GetString("RUTAA")
Else
RUTA_T = 0
End If
c.Close
'sb.Initialize
' PHONE.Shell("ping -c1 keymon.com.mx",Null, sb,Null)
'
' c = skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
' c.Position = 0
'
' 'Valida si ya se cuenta con hora para enviar cada 5 min-----------
' If c.GetString("HoraIngreso") > 0 Then
' d2 = skmt.ExecQuery2("select CAT_VA_VALOR as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
' d2.Position = 0
' HORAINGRESO = d2.GetString("HoraIngreso")
' d2.Close
' End If
' DateTime.TimeFormat = "HHmmss"
'
' If HORAINGRESO + 500 < DateTime.Time(DateTime.Now) Then
'
'
'If sb.Length > 2 Then
' c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
'
' 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
'
'' Dim cmd As DBCommand
'' cmd.Initialize
'' cmd.Name = "insert_gps_actual_GUNA"
'' cmd.Parameters = Array As Object(c.GetString("hglat"),c.GetString("hglon"),usuario,ALMACEN,l_ruta.Text )
'' 'cmd.Parameters = Array As Object(C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON") )
''
' ' reqManager.ExecuteQuery(cmd , 0, "inst_visitas")
'
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "UPDATE_DUR_ACTUALR2_GPS"
' cmd.Parameters = Array As Object(L_MONTOE.Text, l_efectiva.Text, l_cuantosc.Text,l_cuantosn.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0), l_porvisitar.Text,l_drop.TEXT ,ALMACEN,RUTA_T)
' 'cmd.Parameters = Array As Object(C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON") )
'
' reqManager.ExecuteQuery(cmd , 0, "inst_visitas")
'
'
' ' Dim cmd As DBCommand
' ' cmd.Initialize
' ' cmd.Name = "update_gps_actual_TKM"
' ' cmd.Parameters = Array As Object(C.GetString("HGLAT"),C.GetString("HGLON"),usuario )
' ' reqManager.ExecuteQuery(cmd , 0, "inst_visitas")
' 'lv.AddTwoLines(c.GetString("HIST_VI_CREDITO"),c.GetString("HIST_VI_RESULTADO"))
' Next
' End If
'
' End If
' End If
' DateTime.TimeFormat = "HH:mm:ss"
Main.montoActual = L_MONTOE.Text
Main.montorechazo = l_efectiva.text
Main.Montosalida = L_MONTOD.Text
Main.ALMACEN = ALMACEN
Main.rutapreventa = RUTA_T
Main.clientestotal = l_cuantosc.Text + l_cuantosn.Text
Main.clientesventa = l_cuantosn.Text
Main.clientesvisitados = l_porvisitar.TEXT
'l_cuantosc.Text
End Sub
Sub to_number_vb (valor As Object) As String
Dim valstring As Int
Dim valstring2 As String = valor
valstring2.Replace(":","")
Try
valstring =valstring2.Replace(":","")
Return valstring
Catch
Return 0
End Try
End Sub
Sub Activity_Pause (UserClosed As Boolean)
cargar.Visible = False
Subir.Visible = False
connecta.Visible = True
inv.Visible = False
End Sub
Sub trabajar_Click
'CallSubDelayed(gestion,"gestion")
skmt.ExecNonQuery("UPDATE PUNTEO_GPS SET HV_LONG= (select CAT_CL_LONG from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) , HV_LAT= (select CAT_CL_LAT from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) WHERE HV_LONG ='null' and HV_LAT='null' ")
StartActivity(colonia)
End Sub
Sub Subir_Click
c=skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
c.Close
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
c=skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto_rechazo_dur"
' cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"),C.GetString("REP_FECHA"), ALMACEN)
cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"), ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
Next
c.Close
End If
' NOVENTA
c=skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA")
D=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
foto1 = c.GetBlob("NV_FOTO")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto_dur"
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, foto1)
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
Next
c.Close
End If
d.Position=0
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
d.Close
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
End Sub
Sub cargar_Click
' img2.Visible =True
p_cargando.Visible = True
p_cargando.Elevation = 100
p_cargando.BringToFront
EJECUTANDO = 1
'c=skmt.ExecQuery("CREATE TABLE kmt_info (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
skmt.ExecNonQuery("delete from kmt_info")
skmt.ExecNonQuery("delete from cod_result")
skmt.ExecNonQuery("delete from hist_gest")
skmt.ExecNonQuery("delete from cat_gunaprod")
skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
skmt.ExecNonQuery("delete from telefonos")
skmt.ExecNonQuery("delete from HIST_VENTAS")
skmt.ExecNonQuery("delete from REPARTO")
skmt.ExecNonQuery("delete from PUNTEO_GPS")
c=skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
'' para el drop --- Se comenta hasta tener los campos
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name ="insert_drop2_DUR"
' cmd.Parameters = Array As Object(usuario,l_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT)
' reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
''- ---------
'cmd.Initialize
'cmd.Name = "Select_count_clie"
'reqManager.ExecuteQuery(cmd,0,"count_cli")
Log(ALMACEN)
If ALMACEN = "1" Then
Log("aqui")
cmd.Initialize
cmd.Name = "select_punteo_re_DUR"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "punteo")
' cmd.Initialize
' cmd.Name = "select_almacen_guna_re_dur"
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
' reqManager.ExecuteQuery(cmd , 0, "gunaprod")
cmd.Initialize
cmd.Name = "select_almacen_guna_re_dur"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
cmd.Initialize
cmd.Name = "select_reparto_entrega_DUR"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "rechazo")
cmd.Initialize
cmd.Name = "select_cliente_guna_re_dur"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
cmd.Initialize
cmd.Name = "select_ventad_guna_re_dur"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TO
Else
cmd.Initialize
cmd.Name = "select_punteo_re_DUR2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "punteo")
cmd.Initialize
cmd.Name = "select_almacen_guna_re_dur2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
cmd.Initialize
cmd.Name = "select_almacen_guna_re_dur2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
cmd.Initialize
cmd.Name = "select_reparto_entrega_DUR2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "rechazo")
cmd.Initialize
cmd.Name = "select_cliente_guna_re_dur2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
cmd.Initialize
cmd.Name = "select_ventad_guna_re_dur2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
End If
c=skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto_rechazo"
cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"),C.GetString("REP_FECHA"), ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
Next
c.Close
End If
' NOVENTA
c=skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA")
D=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
foto1 = c.GetBlob("NV_FOTO")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto"
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, foto1)
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
Next
c.Close
End If
d.Position=0
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
d.Close
cargar.Visible = False
Subir.Visible = False
connecta.Visible = True
inv.Visible = False
'Dim cmd As DBCommand
'cmd.Initialize
'cmd.Name = "select_telefonos_riva"
'cmd.Parameters = Array As Object(usuario)
'reqManager.ExecuteQuery(cmd , 0, "telefonos")
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True)
l_cargando.Text = $"Procesos pendientes: ${reqManager.reqsList.Size}"$
End Sub
Sub JobDone(Job As HttpJob)
If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
End If
LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
End If
If Not(Job.Success) Then
LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
Else
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "kmt_datos" Then 'query tag
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_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
skmt.ExecNonQuery2("INSERT INTO kmt_info(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_BCREDITO, gestion) 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_BCREDITO))
Next
Listo1 = 1
If Listo1 =1 And Listo3 = 1 Then
ToastMessageShow("Datos Actualizados." , True)
Activity_Resume
img2.Visible=False
p_cargando.Visible = False
EJECUTANDO=0
End If
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "gunaprod" 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_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV"))
' 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))
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) 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, 0))
Next
Listo2=1
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
ToastMessageShow("Datos Actualizados." , True)
Activity_Resume
img2.Visible=False
p_cargando.Visible = False
EJECUTANDO=0
End If
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = 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"))
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) 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, 0))
Next
Listo4=1
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
ToastMessageShow("Datos Actualizados." , True)
Activity_Resume
img2.Visible=False
p_cargando.Visible = False
EJECUTANDO=0
Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then
ToastMessageShow("Datos Actualizados." , True)
Activity_Resume
img2.Visible=False
p_cargando.Visible = False
EJECUTANDO=0
End If
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = 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"))
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
Listo3 =1
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
ToastMessageShow("Datos Actualizados." , True)
Activity_Resume
img2.Visible=False
EJECUTANDO=0
Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then
ToastMessageShow("Datos Actualizados." , True)
Activity_Resume
img2.Visible=False
p_cargando.Visible = False
EJECUTANDO=0
End If
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "punteo" Then 'query tag
Log("punteo")
For Each records() As Object In RESULT.Rows
' Log("punteo2")
Dim HV_CLIENTE As String = records(RESULT.Columns.Get("HV_CLIENTE"))
Dim HV_LONG As String = records(RESULT.Columns.Get("HV_LONG"))
Dim HV_LAT As String = records(RESULT.Columns.Get("HV_LAT"))
skmt.ExecNonQuery2("INSERT INTO PUNTEO_GPS(HV_CLIENTE, HV_LONG, HV_LAT) VALUES (?,?,?)", Array As Object (HV_CLIENTE, HV_LONG, HV_LAT))
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "hist_datos" Then 'query tag
For Each records() As Object In RESULT.Rows
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"))
skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_ESTATUS) VALUES (?,?,?,?,?,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA))
Next
f2=skmt.ExecQuery2("select COUNT(*) as CAMBIOS from hist_ventas where SUBSTR(HVD_PRONOMBRE,1,6) =?", Array As String("CAMBIO"))
f2.Position = 0
If f2.GetString("CAMBIOS") > 0 Then
f1=skmt.ExecQuery2("select sum(HVD_CANT) as CAMBIOS from hist_ventas where SUBSTR(HVD_PRONOMBRE,1,6) =?", Array As String("CAMBIO"))
f1.Position = 0
skmt.ExecNonQuery2("delete from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As Object("CAMBIOS"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES VALUES(?,?)", Array As Object("CAMBIOS",f1.GetString("CAMBIOS")))
f1.Close
Else
skmt.ExecNonQuery2("delete from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As Object("CAMBIOS"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES VALUES(?,?)", Array As Object("CAMBIOS","0"))
End If
f2.Close
Listo3 =1
If Listo1 =1 And Listo3 = 1 Then
ToastMessageShow("Datos Actualizados." , True)
Activity_Resume
img2.Visible=False
p_cargando.Visible = False
EJECUTANDO=0
End If
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = 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"))
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 = reqManager.HandleJob(Job)
If RESULT.Tag = "valida_pedido" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP"))
If cuantos_pedido = CUANTOSP Then
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
datos_iguales = "ok"
Else
ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
End If
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = 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
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 = 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
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 = reqManager.HandleJob(Job)
If RESULT.Tag = "insert_pedido" Then 'query tag
ToastMessageShow("Datos Actualizados." , True)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "version" Then 'query tag
For Each records() As Object In RESULT.Rows
skmt.ExecNonQuery("delete from VERSION")
Dim CAT_VE_VERSION As String = records(RESULT.Columns.Get("CAT_VE_VERSION"))
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 = 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 = 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
If l_ctast.Text = "0" Then
Subir.Visible = True
End If
cargar.Visible = True
' inv.Visible = True
connecta.Visible = False
skmt.ExecNonQuery("DELETE FROM RUTAA")
skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
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
End If
Next
End If
End If
Job.Release
End If
LogColor($"${reqManager.reqsList.Size}${CRLF}${list2text(reqManager.reqsList)}"$, Colors.Red)
l_cargando.Text = $"Procesos pendientes: ${reqManager.reqsList.Size}${CRLF}${CRLF}${list2text(reqManager.reqsList)}"$
End Sub
Sub Activity_KeyPress (key As Int) As Boolean
' BACK key pressed
If key=KeyCodes.KEYCODE_BACK Then
' I want to capture the key here so I return True
StartActivity(Main)
'Return True
End If
' Returning False signals the system to handle the key
Return False
End Sub
Sub connecta_Click
ime.HideKeyboard
imei = "" 'p.GetDeviceId
conn = "1"
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_version"
reqManager.ExecuteQuery(cmd , 0, "version")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_re"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
reqManager.ExecuteQuery(cmd , 0, "ruta")
ToastMessageShow("Validando Conexión." , True)
End Sub
Sub BUSCA_Click
StartActivity(BUSCAR)
End Sub
Sub b_mapa_Click
StartActivity(mapas)
End Sub
Sub e_ruta_EnterPressed
If e_ruta.Text = "FIN DIA" Then
RES = Msgbox2("Seguro que desa hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
If RES = DialogResponse.POSITIVE Then
e_ruta.Text = ""
skmt.ExecNonQuery("delete from pedido_cliente")
skmt.ExecNonQuery("delete from pedido")
skmt.ExecNonQuery("delete from noventa")
skmt.ExecNonQuery("delete from clie_act")
skmt.ExecNonQuery("delete from kmt_info")
skmt.ExecNonQuery("delete from cat_gunaprod")
skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
skmt.ExecNonQuery("delete from HIST_VENTAS")
skmt.ExecNonQuery("delete from REPARTO")
Activity_Resume
End If
End If
End Sub
Sub inv_Click
img2.Visible =True
p_cargando.Visible = True
EJECUTANDO = 1
inve = 1
skmt.ExecNonQuery("delete from cat_gunaprod")
skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
c=skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
cmd.Initialize
cmd.Name = "select_cat_gunaprod"
cmd.Parameters = Array As Object(ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
cmd.Initialize
cmd.Name = "select_cat_paquetes"
cmd.Parameters = Array As Object(ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
cmd.Initialize
cmd.Name = "select_cat_detallepa"
cmd.Parameters = Array As Object(ALMACEN)
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
cmd.Initialize
cmd.Name = "select_cuantos_pedido"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "valida_pedido")
cmd.Initialize
cmd.Name = "select_cuantos_noventa"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
cmd.Initialize
cmd.Name = "select_cuantos_pedidoc"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
img2.Visible=False
p_cargando.Visible = False
t1.Enabled = False
End Sub
Sub B_CLIEPROD_Click
BUSCA.Visible = False
connecta.Visible = False
trabajar.Visible = False
B_CLIEPROD.Visible = False
Panel1.Visible = True
Btn_UbicarR.Visible=False
c=skmt.ExecQuery("select HVD_CLIENTE, HVD_PRONOMBRE, HVD_CANT, HVD_ESTATUS from HIST_VENTAS ORDER BY HVD_PRONOMBRE")
ListView1.Clear
Dim label1 As Label
label1 = ListView1.TwoLinesLayout.Label
label1.TextSize = 10
label1.TextColor = Colors.Black
Dim label2 As Label
label2 = ListView1.TwoLinesLayout.SecondLabel
label2.TextSize = 10
label2.TextColor = Colors.Black
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
If c.GetString("HVD_ESTATUS") = "0" Then
ESTATUS = "SIN ENTREGAR"
ELSE IF c.GetString("HVD_ESTATUS") = "1" Then
ESTATUS = "ENTREGADO"
ELSE IF c.GetString("HVD_ESTATUS") = "2" Then
ESTATUS = "RECHAZADO"
Else
ESTATUS = "SIN ESTATUS"
End If
ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE") & " " & c.GetString("HVD_CLIENTE") , c.GetString("HVD_CANT") & " " & ESTATUS )
Next
End If
End Sub
Sub B_REGRESA_Click
BUSCA.Visible = True
connecta.Visible = True
trabajar.Visible = True
B_CLIEPROD.Visible = True
Panel1.Visible = False
Btn_UbicarR.Visible=True
End Sub
Sub Btn_UbicarR_Click
skmt.ExecNonQuery("UPDATE PUNTEO_GPS SET HV_LONG= (select CAT_CL_LONG from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) , HV_LAT= (select CAT_CL_LAT from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) WHERE HV_LONG ='null' and HV_LAT='null' ")
StartActivity(MAPA_RUTAS)
End Sub
'''''''''''''''''''''''''''''''''''' VALIDAR CARACTERES
Sub e_ruta_TextChanged (Old As String, New As String)
Dim validChars As String ="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 "
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 Sub
Private Sub p_cargando_Click
End Sub
Sub list2text(a As List)
Private elTexto As String = ""
For i = 0 To a.Size - 1
If i > 0 Then
elTexto = elTexto & ", " & a.Get(i)
Else
elTexto = elTexto & a.Get(i)
End If
Next
Return elTexto
End Sub
Reference in New Issue View Git Blame Copy Permalink