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
	Private l_version As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	EJECUTANDO=1
	If FirstTime Then
		reqManager.Initialize(Me, Main.server)
		Log(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)
	Log("------->  " & 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
	l_version.Text = Application.VersionName
	l_version.Left = Activity.Width - l_version.Width
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