cheveguerra/Intmex_Reparto_Vieja
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Reparto_Vieja.git synced 2026-04-17 12:56:29 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
89f2d228e05fdab268e703a338ae6d4e9a295ed7
Intmex_Reparto_Vieja/seleccion.bas
cvaldes1201 89f2d228e0 version final reparto intmex
2024-05-29 10:59:57 -06:00

1260 lines
49 KiB
QBasic
Raw Blame History

B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Activity
Version=7.01
@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 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 f3 As Cursor
Dim F4 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 batterystatus(11) As Int
Dim batt As Int
Private bu As BatteryUtilities
Dim RUTA_T As String
Dim reqs As List
'''''' MAPA RUTAS
Private Btn_Ubicar_Ru As Button
Dim cargo As String
Private p_principal As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
EJECUTANDO=1
If FirstTime Then
reqManager.Initialize(Me, Main.server)
'reqManager.Initialize(Me,"http://201.99.139.28:1782")
'reqManager.Initialize(Me,"http://177.244.63.54:1782")
'reqManager.Initialize(Me,"http://keymon.com.mx:1782")
End If
Activity.LoadLayout("seleccion")
' Dim ruta As String
img2.Visible =False
' valido donde escribo el archivo de la base de datos de kmt
' ruta = Starter.ruta
' 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(Starter.ruta, "kmt.db") = False Then
' File.Copy(File.DirAssets, "kmt.db", Starter.ruta, "kmt.db")
' End If
DateTime.DateFormat = "MM/dd/yyyy"
fecha=DateTime.Date(DateTime.Now)
' skmt.Initialize(Starter.ruta,"kmt.db", True)
b=Starter.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
b.Position=0
Cuantos = b.GetString("CUANTOS")
d=Starter.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
D.Position=0
b.Close
e=Starter.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
e.Position=0
f=Starter.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=Starter.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=Starter.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
b=Starter.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")
b.Close
c.Close
End If
b=Starter.skmt.ExecQuery("select id_almacen from CAT_ALMACEN")
If b.RowCount > 0 Then
Log("Traemos almacen ... " & Main.server)
b.Position = 0
' Log(b.GetString("ID_ALMACEN"))
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_coords_almacen_INTMEX"
cmd.Parameters = Array As Object(b.GetString("ID_ALMACEN"))
reqManager.ExecuteQuery(cmd , 0, "coords_almacen")
End If
Main.usuario=Subs.dameUsuarioDeDB
LogColor("SubscribeTopics", Colors.Blue)
' CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
reqs.Initialize
End Sub
Sub Activity_Resume
reqManager.Initialize(Me, Main.server)
Subs.centraPanel(p_principal, Activity.Width)
c=Starter.skmt.ExecQuery("select noversion from version")
c.Position=0
If c.RowCount > 0 And 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
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=Starter.skmt.ExecQuery("Select count(*) as CUANTOS from kmt_info")
b.Position=0
If b.RowCount > 0 Then Cuantos = b.GetString("CUANTOS")
d=Starter.skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
D.Position=0
b.Close
e=Starter.skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
e.Position=0
f=Starter.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info")
f.Position=0
l_ruta.Text = 0
If f.RowCount > 0 Then l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close
f=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
f.Position=0
If f.RowCount > 0 Then l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close
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 = 0
If d.RowCount > 0 Then l_ctast.Text = d.GetString("TOTAL_VISITAR")
l_porvisitar.Text = 0
If e.RowCount > 0 Then l_porvisitar.Text = e.GetString("POR_VISITAR")
d.Close
e.Close
Else
c=Starter.skmt.ExecQuery("select sum(hvd_costo_tot) as MONTO_DIA from hist_ventas where hvd_cliente in (select cat_cl_codigo from kmt_info ) AND HVD_ESTATUS = 1 ")
f1=Starter.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_RECHAZO =0")
f2=Starter.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=Starter.skmt.ExecQuery("select count(*) as CUANTOS from noventa where nv_cliente in (select cat_cl_codigo from kmt_info where gestion = 3)")
L=Starter.skmt.ExecQuery("select count(*) as CLIENTES_DIA from noventa where nv_cliente in (select cat_cl_codigo from kmt_info where gestion = 2)")
f2.Position=0
Private monto_rec_dia As Int = 0
If f2.GetString("MONTO_REC_DIA") <> Null Then monto_rec_dia = f2.GetString("MONTO_REC_DIA")
F4=Starter.skmt.execqUery("select count(*) as CUANTOS FROM PEDIDO")
F4.Position = 0
If F4.GetString("CUANTOS") > 0 Then
f3=Starter.skmt.execqUery("select sum(pe_costo_tot) as MONTO_VENTA FROM PEDIDO")
f3.Position=0
l_efectiva.text = to_number_vb (monto_rec_dia - f3.GetString("MONTO_VENTA"))
f3.Close
Else
l_efectiva.text = to_number_vb (f2.GetString("MONTO_REC_DIA"))
End If
F4.Close
'where pc_fecha = ?", Array As String(fecha)
C.Position=0
b.Position=0
L.Position=0
f1.Position=0
L_MONTOD.Text = 0
If f1.RowCount > 0 Then L_MONTOD.Text = to_number_vb (f1.GetString("MONTO_TOTAL_DIA"))
L_MONTOE.Text = 0
If C.RowCount > 0 Then L_MONTOE.Text = to_number_vb (C.GetString("MONTO_DIA"))
l_cuantosc.Text = 0
If L.RowCount > 0 Then l_cuantosc.Text = L.GetString("CLIENTES_DIA")
l_cuantosn.Text = 0
If b.RowCount > 0 Then 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_ctast.Text = 0
If d.RowCount > 0 Then l_ctast.Text = d.GetString("TOTAL_VISITAR")
l_porvisitar.Text = 0
If e.RowCount > 0 Then l_porvisitar.Text = e.GetString("POR_VISITAR")
c.Close
b.Close
c=Starter.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=Starter.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
Main.clientesVisitados = L_MONTOE.Text
Main.clientesventa = l_cuantosc.Text
Main.clientestotal = l_ctast.Text
Main.montoActual = l_drop.Text
c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
C.Position =0
ALMACEN = 0
If C.RowCount > 0 Then ALMACEN = C.GetString("ID_ALMACEN")
Main.almacen = ALMACEN
C.Close
c=Starter.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_INTMEX"
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
batt = batterystatus(0)
Main.batt = batt
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
c.Close
c=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
c.Position = 0
RUTA_T = 0
If c.RowCount > 0 Then RUTA_T = c.GetString("RUTAA")
Main.rutaPreventa = RUTA_T
c.Close
End Sub
Sub IsConnectedToInternet As Boolean 'ignore
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 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")
StartActivity(colonia)
End Sub
Sub Subir_Click
c=Starter.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_PRO"
'' 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=Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO, NV_REPROGRAMAR FROM NOVENTA")
D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
If c.RowCount>0 Then
Log("Enviamos repartos: " & c.RowCount)
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_REPG_INTMEX"
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, C.GetString("NV_REPROGRAMAR"))
reqManager.ExecuteCommand(cmd , "inst_noventa")
Next
c.Close
End If
d.Position=0
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
d.Close
' se agrega este codigo para la parte de reparto lo que se rechaza en hist_Ventas_detalle
'HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL
c=Starter.skmt.ExecQuery("SELECT HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PARCIAL FROM hist_ventas WHERE HVD_RECHAZO = 1 OR HVD_PARCIAL =1")
If c.RowCount>0 Then
Log("Enviamos repartos hist: " & c.RowCount)
For i=0 To c.RowCount -1
c.Position=i
'sql.insert_rep_hist_ventas_PRO=INSERT INTO PROFINA.RECHAZO_HIST_VENTAS_DETALLE(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PARCIAL, HVD_ALMACEN, hvd_dtesync) VALUES ((?),(?),(?),(?),SYSDATE -1,(?),(?),(?),(?),(?),(?),(?),(?),SYSDATE)
'QUERY QUE TIENE QUE ESSTAR EN EL ARCHIVO DE CONFIGURACION DEL SERVER
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_rep_hist_ventas_REPG_INTMEX"
cmd.Parameters = Array As Object(C.GetString("HVD_CLIENTE"),C.GetString("HVD_PRONOMBRE"),C.GetString("HVD_CANT"),C.GetString("HVD_COSTO_TOT"),C.GetString("HVD_CODPROMO"),C.GetString("HVD_PROID"),C.GetString("HVD_NUM_TICKET"),C.GetString("HVD_NUM_REGISTRO"),C.GetString("HVD_RECHAZO"),C.GetString("HVD_PARCIAL"), ALMACEN)
reqManager.ExecuteCommand(cmd , "inst_noventa")
Next
c.Close
End If
' pedido
c=Starter.skmt.ExecQuery("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, 1 as PE_DESC FROM PEDIDO")
'd=Starter.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
If c.RowCount>0 Then
Log("Enviamos pedidos: " & c.RowCount)
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_pedido_REPG_INTMEX"
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"),"0","VENTA")
reqManager.ExecuteQuery(cmd , 0, "ins_pedido")
Next
c.Close
End If
'Buscamos ordenes a reprogramar.
Dim r As Cursor =Starter.skmt.ExecQuery("select * from noventa where nv_reprogramar = 1")
If r.RowCount > 0 Then
For rx = 0 To r.RowCount - 1
r.Position = rx
Dim o As Cursor = Starter.skmt.ExecQuery2("select HVD_FECHA, CAT_CL_RUTA FROM HIST_VENTAS INNER JOIN kmt_info on HVD_CLIENTE = cat_cl_codigo WHERE HVD_CLIENTE = ?",Array As String(r.GetString("NV_CLIENTE")))
If o.RowCount > 0 Then
o.Position = 0
Log("Enviamos reprogramados: " & r.RowCount)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto_reprogramar3_INTMEX"
cmd.Parameters = Array As Object(r.GetString("NV_CLIENTE"),r.GetString("NV_REPROGRAMAR"),o.GetString("HVD_FECHA"),o.GetString("CAT_CL_RUTA"),ALMACEN)
reqManager.ExecuteCommand(cmd , "ins_reprogramar")
End If
Next
End If
r.Close
'PAGARES.
Dim pa As Cursor =Starter.skmt.ExecQuery("select * from PAGARES")
If pa.RowCount > 0 Then
For pag = 0 To pa.RowCount - 1
pa.Position = pag
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto_PAGARES_INTMEX2"
Dim fechaenvio() As String
fechaenvio = Regex.Split(" ",pa.GetString("PA_FECHA_PREV"))
' Log(fechaenvio(0))
Dim fechaenvio1() As String
fechaenvio1 = Regex.Split("/",fechaenvio(0))
Dim fechaano As String = fechaenvio1(2).SubString(2)
Dim fechareal As String = fechaenvio1(0)&"/"&fechaenvio1(1)&"/"&fechaano
' Log(fechareal)
Dim fechacap() As String
fechacap = Regex.Split("/",pa.GetString("PA_CAPTURA"))
Dim fechacapano As String = fechacap(2).SubString(2)
Dim fechacapreal As String = fechacap(0)&"/"&fechacap(1)&"/"&fechacapano
cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),fechareal,pa.GetString("PA_USUARIO"))
reqManager.ExecuteCommand(cmd , "ins_pagares")
Next
End If
pa.Close
'd.Position=0
'cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
'd.Close
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
End Sub
'Private Sub ImageView1_LongClick
' 'PAGARES.
' Dim pa As Cursor =Starter.skmt.ExecQuery("select * from PAGARES")
' If pa.RowCount > 0 Then
' For pag = 0 To pa.RowCount - 1
' pa.Position = pag
'' Dim cmd As DBCommand
'' cmd.Initialize
'' cmd.Name = "insert_reparto_PAGARES_INTMEX2"
' Dim fechaenvio() As String
' fechaenvio = Regex.Split(" ",pa.GetString("PA_FECHA_PREV"))
' Log(fechaenvio(0))
' Dim fechaenvio1() As String
' fechaenvio1 = Regex.Split("/",fechaenvio(0))
' Dim fechaaño As String = fechaenvio1(2).SubString(2)
' Dim fechareal As String = fechaenvio1(0)&"/"&fechaenvio1(1)&"/"&fechaaño
' Log(fechareal)
'
'' cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),pa.GetString("PA_CAPTURA"),pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),,pa.GetString("PA_USUARIO"))
'' reqManager.ExecuteCommand(cmd , "ins_pagares")
' Next
' End If
'End Sub
Sub cargar_Click
' img2.Visible =True
EJECUTANDO = 1
reqs.Initialize
'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
Starter.skmt.ExecNonQuery("delete from kmt_info")
Starter.skmt.ExecNonQuery("delete from cod_result")
Starter.skmt.ExecNonQuery("delete from hist_gest")
Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
Starter.skmt.ExecNonQuery("delete from telefonos")
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
Starter.skmt.ExecNonQuery("delete from REPARTO")
Starter.skmt.ExecNonQuery("delete from PUNTEO_GPS")
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
cmd.Initialize
cmd.Name = "select_punteo_re_REPG_INTMEX"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN)
Log($"Pasamos: ${e_ruta.text}, ${ALMACEN}, ${ALMACEN}"$)
reqManager.ExecuteQuery(cmd , 0, "punteo")
reqs.Add("punteo")
LogColor("Reqs Agregamos Punteo", Colors.Blue)
cmd.Initialize
cmd.Name = "select_almacen_INTMEX_re_REPG"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
reqs.Add("gunaprod")
LogColor("Reqs Agregamos Gunaprod", Colors.Blue)
'NO LE VEO UTILIDAD A ESTE QUERY
'cmd.Initialize
'cmd.Name = "select_reparto_entrega_PRO2"
'cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
'reqManager.ExecuteQuery(cmd , 0, "rechazo")
cmd.Initialize
cmd.Name = "select_cliente_INTMEX_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
reqs.Add("kmt_datos")
LogColor("Reqs Agregamos kmt_datos", Colors.Blue)
cmd.Initialize
cmd.Name = "select_ventad2_INTMEX_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
reqs.Add("hist_datos")
LogColor("Reqs Agregamos Hist_datos", Colors.Blue)
' reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
If ALMACEN = "32" Then
ALMACEN = "33"
cargo = 2
cmd.Initialize
cmd.Name = "select_punteo_re_REPG_INTMEX"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "punteo")
reqs.Add("punteo")
LogColor("Reqs Agregamos Punteo", Colors.Blue)
cmd.Initialize
cmd.Name = "select_almacen_INTMEX_re_REPG"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
reqs.Add("gunaprod")
LogColor("Reqs Agregamos Gunaprod", Colors.Blue)
'NO LE VEO UTILIDAD A ESTE QUERY
'cmd.Initialize
'cmd.Name = "select_reparto_entrega_PRO2"
'cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
'reqManager.ExecuteQuery(cmd , 0, "rechazo")
cmd.Initialize
cmd.Name = "select_cliente_INTMEX_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
reqs.Add("kmt_datos")
LogColor("Reqs Agregamos kmt_datos", Colors.Blue)
cmd.Initialize
cmd.Name = "select_ventad2_INTMEX_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
reqs.Add("hist_datos")
LogColor("Reqs Agregamos Hist_datos", Colors.Blue)
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
End If
c=Starter.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_REPG_INTMEX"
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.ExecuteCommand(cmd, "inst_noventa")
' reqs.Add("inst_noventa")
' LogColor("Reqs Agregamos Hist_noventa", Colors.Blue)
Next
c.Close
End If
' NOVENTA
c=Starter.skmt.ExecQuery("SELECT NV_CLIENTE, NV_FECHA, NV_USER, NV_MOTIVO, NV_COMM, NV_LAT, NV_LON, NV_FOTO, NV_REPROGRAMAR FROM NOVENTA")
D=Starter.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_REPG_INTMEX"
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, C.GetString("NV_REPROGRAMAR"))
reqManager.ExecuteCommand(cmd , "inst_noventa")
' reqs.Add("inst_noventa")
' LogColor("Reqs Agregamos Hist_noventa", Colors.Blue)
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
ToastMessageShow("Se actualizarán los datos, este proceso podria tardar hasta un minuto, gracias" , True)
ProgressDialogShow2("Descargando ruta, espere un momento.", True)
End Sub
Sub JobDone(Job As HttpJob)
' Private r As DBResult = reqManager.HandleJob(Job)
LogColor("REQS TOTALES="&reqs.Size, Colors.Magenta)
If Job.Success = False Then
LogColor("** " & Job.Tag & " Error: " & Job.ErrorMessage, Colors.Red) ' Mod by CHV - 211023
'ToastMessageShow("Error: " & Job.ErrorMessage, True)
Else
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211023
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "kmt_datos" Then 'query tag
If reqs.IndexOf(result.Tag) > -1 Then
reqs.RemoveAt(reqs.IndexOf(result.Tag))
Log("Quitamos " & result.Tag & ", quedan " & reqs.Size & " - " & reqs)
End If
Starter.skmt.BeginTransaction
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"))
' Log(" ++ insert into kmt_info: "&CAT_CL_RUTA&","&CAT_CL_CODIGO&","&CAT_CL_RUTA&","&CAT_CL_NOMBRE)
Starter.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
Starter.skmt.TransactionSuccessful
Starter.skmt.EndTransaction
Listo1 = 1
If Listo1 = 1 And Listo3 = 1 Then
ToastMessageShow("Datos Actualizados." , True)
Activity_Resume
img2.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
Log("GUNAPROD")
If reqs.IndexOf(result.Tag) > -1 Then
reqs.RemoveAt(reqs.IndexOf(result.Tag))
Log("Quitamos " & result.Tag & ", quedan " & reqs.Size & " - " & reqs)
End If
Starter.skmt.BeginTransaction
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))
' Log(" ++ insert into CAT_GUNAPROD: "&CAT_GP_ID&","&CAT_GP_NOMBRE&","&CAT_GP_IMP1)
Starter.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
Starter.skmt.TransactionSuccessful
Starter.skmt.EndTransaction
Listo2=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
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
If reqs.IndexOf(result.Tag) > -1 Then
reqs.RemoveAt(reqs.IndexOf(result.Tag))
Log("Quitamos " & result.Tag & ", quedan " & reqs.Size & " - " & reqs)
End If
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"))
' Log(" ++ insert into CAT_GUNAPROD: "&CAT_GP_ID&","&CAT_GP_NOMBRE&","&CAT_GP_IMP1)
Starter.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
EJECUTANDO=0
Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then
ToastMessageShow("Datos Actualizados." , True)
Activity_Resume
img2.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
If reqs.IndexOf(result.Tag) > -1 Then
reqs.RemoveAt(reqs.IndexOf(result.Tag))
Log("Quitamos " & result.Tag & ", quedan " & reqs.Size & " - " & reqs)
End If
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"))
' Log(" ++ insert into CAT_DETALLES_PAQ: "&CAT_DP_ALMACEN&","&CAT_DP_ID&","&CAT_DP_IDPROD)
Starter.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
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
If reqs.IndexOf(result.Tag) > -1 Then
reqs.RemoveAt(reqs.IndexOf(result.Tag))
Log("Quitamos " & result.Tag & ", quedan " & reqs.Size & " - " & reqs)
End If
Starter.skmt.BeginTransaction
For Each records() As Object In result.Rows
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"))
' Log(" ++ insert into PUNTEO_GPS: "&HV_CLIENTE&","&HV_LONG)
Starter.skmt.ExecNonQuery2("INSERT INTO PUNTEO_GPS(HV_CLIENTE, HV_LONG, HV_LAT) VALUES (?,?,?)", Array As Object (HV_CLIENTE, HV_LONG, HV_LAT))
Next
Starter.skmt.TransactionSuccessful
Starter.skmt.EndTransaction
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "hist_datos" Then 'query tag
If reqs.IndexOf(result.Tag) > -1 Then
reqs.RemoveAt(reqs.IndexOf(result.Tag))
Log("Quitamos " & result.Tag & ", quedan " & reqs.Size & " - " & reqs)
End If
Starter.skmt.BeginTransaction
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"))
Dim HVD_CODPROMO As String = records(result.Columns.Get("HVD_CODPROMO"))
Dim HVD_PROID As String = records(result.Columns.Get("HVD_PROID"))
Dim HVD_NUM_TICKET As String = records(result.Columns.Get("HVD_NUM_TICKET"))
Dim HVD_NUM_REGISTRO As String = records(result.Columns.Get("HVD_NUM_REGISTRO"))
Dim HVD_RECHAZO As String = records(result.Columns.Get("HVD_RECHAZO"))
' Log(" ++ insert into HIST_VENTAS: "&HVD_CLIENTE&","&HVD_PRONOMBRE&","&HVD_CANT)
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
Next
Starter.skmt.TransactionSuccessful
Starter.skmt.EndTransaction
f2=Starter.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=Starter.skmt.ExecQuery2("select sum(HVD_CANT) as CAMBIOS from hist_ventas where SUBSTR(HVD_PRONOMBRE,1,6) =?", Array As String("CAMBIO"))
f1.Position = 0
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As Object("CAMBIOS"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES VALUES(?,?)", Array As Object("CAMBIOS",f1.GetString("CAMBIOS")))
f1.Close
Else
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As Object("CAMBIOS"))
Starter.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
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"))
' Log(" ++ insert into CAT_VARIABLES: "&Cat_Va_Descripcion&","&Cat_Va_Valor)
Starter.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
Starter.skmt.ExecNonQuery("delete from VERSION")
Dim CAT_VE_VERSION As String = records(result.Columns.Get("CAT_VE_VERSION"))
' Log(" ++ insert into VERSION: "&CAT_VE_VERSION)
Starter.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
If reqs.IndexOf(result.Tag) > -1 Then
reqs.RemoveAt(reqs.IndexOf(result.Tag))
Log("Quitamos " & result.Tag & ", quedan " & reqs.Size & " - " & reqs)
End If
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
Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
' Log(" ++ insert into RUTAA: "&e_ruta.Text)
Starter.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
If Job.JobName = "DBRequest" Then 'Traemos las coordenadas del CEDIS. (Parte de la funcionalidad OSRM)
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "coords_almacen" Then 'query tag
For Each records() As Object In result.Rows
Log("Coordenadas del almacen: " & records(result.Columns.Get("CAT_AL_LATITUD")) & "," & records(result.Columns.Get("CAT_AL_LONGITUD")))
Private lat, lon As Double
lat = 19.432630176740744 'Zocalo CDMX
lon = -99.13320043867338 'Zocalo CDMX
If IsNumber(records(result.Columns.Get("CAT_AL_LATITUD"))) And IsNumber(records(result.Columns.Get("CAT_AL_LONGITUD"))) Then
lat = records(result.Columns.Get("CAT_AL_LATITUD"))
lon = records(result.Columns.Get("CAT_AL_LONGITUD"))
End If
Starter.cedisLocation.Latitude = lat
Starter.cedisLocation.Longitude = lon
'19.48118148992086,-99.15295579261536
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "ins_reprogramar" Then 'query tag
For Each records() As Object In result.Rows
For Each k As String In result.Columns.Keys
LogColor(result.Tag & ": " & k & "=" & records(result.Columns.Get(k)), Colors.blue)
Next
Next
End If
End If
Job.Release
End If
If reqs.Size = 0 Then
ProgressDialogHide
Log(reqs.Size)
Log("Terminamos de cargar día!")
End If
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
imei = p.GetDeviceId
conn = "1"
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_version_INTMEX"
reqManager.ExecuteQuery(cmd , 0, "version")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_re_REPG_INTMEX"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
reqManager.ExecuteQuery(cmd , 0, "ruta")
Log(Main.server)
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")) 'ignore
If RES = DialogResponse.POSITIVE Then
e_ruta.Text = ""
Starter.skmt.ExecNonQuery("delete from pedido_cliente")
Starter.skmt.ExecNonQuery("delete from PAGARES")
Starter.skmt.ExecNonQuery("delete from pedido")
Starter.skmt.ExecNonQuery("delete from noventa")
Starter.skmt.ExecNonQuery("delete from clie_act")
Starter.skmt.ExecNonQuery("delete from kmt_info")
Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
Starter.skmt.ExecNonQuery("delete from REPARTO")
Activity_Resume
End If
' Starter.waypointsOrdered.Clear
Starter.skmt.ExecNonQuery("delete from waypoints")
End If
End Sub
Sub inv_Click
' img2.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_INTMEX"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "valida_pedido")
cmd.Initialize
cmd.Name = "select_cuantos_noventa_INTMEX"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
cmd.Initialize
cmd.Name = "select_cuantos_pedidoc_INTMEX"
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
img2.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
Panel1.BringToFront
Btn_Ubicar_Ru.Visible=False
c=Starter.skmt.ExecQuery("select HVD_PRONOMBRE, SUM(HVD_CANT) AS HVD_CANT , HVD_RECHAZO from HIST_VENTAS GROUP BY HVD_PRONOMBRE, HVD_RECHAZO ORDER BY HVD_PRONOMBRE")
Subs.SetDivider(ListView1, Colors.LightGray, 2)
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_RECHAZO") = "0" Then
ESTATUS = " "
ELSE IF c.GetString("HVD_RECHAZO") = "1" Then
ESTATUS = "RECHAZADO"
Else
ESTATUS = "SIN ESTATUS"
End If
ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE") , c.GetString("HVD_CANT") & " " & ESTATUS )
Next
End If
' 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_Ubicar_Ru.Visible=True
End Sub
''''''''''''''''''''''''''''MAPA RUTAS
Sub Btn_Ubicar_Ru_Click
StartActivity(MAPA_RUTAS)
End Sub
Private Sub Panel1_Click
End Sub
Reference in New Issue View Git Blame Copy Permalink