B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Activity
Version=6.8
@EndOfDesignText@
#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim reqManager As DBRequestManager
	Dim conectado As String
	Dim skmt As SQL
	Dim t1 As Timer
	Dim sb As StringBuilder
	Dim PHONE As Phone
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim trabajar As Button
	dim ime as ime
	Dim c As Cursor
	Dim d As Cursor
	Dim b As Cursor
	Dim e As Cursor
	Dim f As Cursor
	Dim f1 As Cursor
	Dim f2 As Cursor
	Dim d2 As Cursor
	Dim lv As ListView
	Dim cargar As Button
	Dim pendiente As Button
	Dim foto1() As Byte
	Dim usuario As String
	Dim connecta As Button
	Dim conn As String
	Dim Subir As Button
	Dim cmd As DBCommand
	Dim TOPE As Int
	Dim COUNT_CLIE As Int
	Dim fecha As String
	Dim drop As Double
	Dim efectiva As Double
	Dim L As Cursor
	Dim L_MONTOD As Label
	Dim l_cuantosc As Label
	Dim l_drop As Label
	Dim l_efectiva As Label
	Dim l_ctast As Label
	Dim BUSCA As Button
	Dim Cuantos As String
	Dim l_cuantosn As Label
	Dim e_ruta As EditText
	Dim l_porvisitar As Label
	Dim b_mapa As Button
	Dim l_ruta As Label
	Dim ALMACEN As String
	Private img2 As ImageView
	Dim Listo1 As String
	Dim Listo2 As String
	Dim Listo3 As String
	Dim Listo4 As String
	Dim Listo5 As String
	Dim EJECUTANDO As String
	Dim RES As String
	Dim inve As String
	Dim cuantos_pedidosc As String
	Dim cuantos_pedido As String
	Dim cuantos_noventa As String
	Dim datos_iguales As String
	Dim p As PhoneId
	Dim imei As String
	
	
	Private inv As Button
	Private cambios As Label
	Private L_MONTOE As Label
	Private B_CLIEPROD As Button
	Private ListView1 As ListView
	Private B_REGRESA As Button
	Private Panel1 As Panel
	Dim ESTATUS As String
	Dim Btn_UbicarR As Button
	Dim batterystatus(11) As Int
	Private bu As BatteryUtilities
	Dim RUTA_T As String
	Dim HORAINGRESO As String
	
	
	Private p_cargando As Panel
	Private p_cargando2 As Panel
	Private l_cargando As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	EJECUTANDO=1
	If FirstTime Then
		'reqManager.Initialize(Me,"http://201.99.139.28:1782")
		'reqManager.Initialize(Me,"http://177.244.63.54:1782")
		reqManager.Initialize(Me,Main.server)

	End If
	Activity.LoadLayout("seleccion")
	Dim ruta As String
	img2.Visible =False

	ruta = File.DirInternal
	
	' se crea o no el archivo de la base de ddatos de kmt
	'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE
	'TOME LA NUEVA ESTRUCTURA ES MUY IMPORTANTE TENER EL IF DE LO CONTRARIO SOLO LO ESCRIBE UNA VEZ Y LO BORRA
	'SI SE REGRESA A ESTE ACTIVIDAD.
	If File.Exists(ruta, "kmt.db") = False Then
		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
	End If
	DateTime.DateFormat = "MM/dd/yyyy"
	fecha=DateTime.Date(DateTime.Now)
	skmt.Initialize(ruta,"kmt.db", True)
	b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
	b.Position=0
	Cuantos = b.GetString("CUANTOS")
	d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
	D.Position=0
	b.Close
	e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
	e.Position=0
	f=skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info")
	f.Position=0
	l_ruta.Text = f.GetString("CAT_CL_RUTA")
	f.Close
	If l_ruta.Text = 0 Then
		l_ruta.Text =0
	Else
		f=skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
		f.Position=0
		l_ruta.Text = f.GetString("CAT_CL_RUTA")
		f.Close
	End If
	If Cuantos  = 0 Then
		L_MONTOD.Text =0
		l_cuantosc.Text = 0
		l_cuantosn.Text = 0
		drop = 0
		l_drop.Text = 0
		efectiva = 0
		l_efectiva.text =0
		l_ctast.Text = d.GetString("TOTAL_VISITAR")
		l_porvisitar.Text = e.GetString("POR_VISITAR")
	Else
		c=skmt.ExecQuery("select  sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA  from pedido_cliente ")
		b=skmt.ExecQuery("select count(*) as CUANTOS from noventa")
		'where pc_fecha = ?", Array As String(fecha)
		C.Position=0
		b.Position=0
		L_MONTOD.Text = c.GetString("MONTO_DIA")
		l_cuantosc.Text = c.GetString("CLIENTES_DIA")
		l_cuantosn.Text = b.GetString("CUANTOS")
		drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")
		l_drop.Text = Round2(drop,2)
		efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
		l_efectiva.text = Round2(efectiva*100,2)
		l_ctast.Text = d.GetString("TOTAL_VISITAR")
		l_porvisitar.Text = e.GetString("POR_VISITAR")
	End If
	c = skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
	c.Position = 0
	DateTime.TimeFormat = "HHmmss"
	
	'Valida si ya se cuenta con hora actualiza el valor si no lo inserta-----------
	If c.GetString("HoraIngreso") > 0 Then
		skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ?  WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
	Else
		skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_VALOR,CAT_VA_DESCRIPCION)  VALUES (?,?)" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
	End If
	DateTime.TimeFormat = "HH:mm:ss"
	p_cargando2.Left = (Activity.Width / 2) - (p_cargando2.Width / 2)
End Sub

Sub IsConnectedToInternet As Boolean
	Dim r As Reflector
 
	r.Target = r.GetContext
	r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")
	r.Target = r.RunMethod("getActiveNetworkInfo")
 
	If r.Target <> Null Then
		Return r.RunMethod("isConnectedOrConnecting")
	End If
 
	Return False
End Sub


Sub Activity_Resume
	Log("eresume")
	c=skmt.ExecQuery("select noversion from version")
	c.Position=0
	HORAINGRESO ="000000"
	If c.RowCount > 0 Then
		
	If c.GetString("NOVERSION") <> "2.1" Then
		ToastMessageShow("EXISTE UNA NUEVA VERSION ACTUALIZA POR FAVOR." , True)
		cargar.Visible = False
		Subir.Visible = False
		connecta.Visible = False
		trabajar.Visible = False
		BUSCA.Visible = False
		inv.Visible = False
		
	End If
	End If
	c.Close
	
	If EJECUTANDO =0 Then
		Listo1 = 0
		Listo2 = 0
		Listo3 = 0
		Listo4 = 0
		Listo5 = 0
		inve = 0
		img2.Visible =False
		p_cargando.Visible = False
	End If
	DateTime.DateFormat = "MM/dd/yyyy"
	fecha=DateTime.Date(DateTime.Now)
	b=skmt.ExecQuery("Select count(*) as CUANTOS from kmt_info")
	b.Position=0
	Cuantos = b.GetString("CUANTOS")
	d=skmt.ExecQuery("select count(*) as TOTAL_VISITAR from kmt_info where gestion = 0")
	D.Position=0
	b.Close
	e=skmt.ExecQuery("select count(*) as POR_VISITAR from kmt_info")
	e.Position=0
	f=skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info")
	f.Position=0
	l_ruta.Text = f.GetString("CAT_CL_RUTA")
	f.Close
	If l_ruta.Text = 0 Then
		l_ruta.Text =0
	Else
		f=skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
		f.Position=0
		l_ruta.Text = f.GetString("CAT_CL_RUTA")
		f.Close
	End If
	If Cuantos  = 0 Then
		L_MONTOD.Text =0
		l_cuantosc.Text = 0
		l_cuantosn.Text = 0
		drop = 0
		l_drop.Text = 0
		efectiva = 0
		l_efectiva.text =0
		cambios.Text = 0
		L_MONTOE.Text = 0
		l_ctast.Text = d.GetString("TOTAL_VISITAR")
		l_porvisitar.Text = e.GetString("POR_VISITAR")
		d.Close
		e.Close
	Else
		c=skmt.ExecQuery("select  sum(hvd_costo_tot) as MONTO_DIA  from hist_ventas where hvd_cliente in (select cat_cl_codigo from kmt_info where gestion = 2) ")
		f1=skmt.ExecQuery("select  sum(hvd_costo_tot) as MONTO_TOTAL_DIA  from hist_ventas where hvd_cliente in (select cat_cl_codigo from kmt_info ) AND HVD_ESTATUS <> 2")
		f2=skmt.ExecQuery("select  sum(REP_COSTO_TOT) as MONTO_REC_DIA FROM REPARTO where REP_cliente in (Select cat_cl_codigo from kmt_info) ")
		b=skmt.ExecQuery("select count(*) as CUANTOS from noventa where nv_cliente in (select cat_cl_codigo from kmt_info where gestion = 3)")
		L=skmt.ExecQuery("select count(*) as CLIENTES_DIA from noventa where nv_cliente in (select cat_cl_codigo from kmt_info where gestion = 2)")
		'where pc_fecha = ?", Array As String(fecha)
		C.Position=0
		b.Position=0
		L.Position=0
		f1.Position=0
		f2.Position=0
		L_MONTOD.Text = to_number_vb (f1.GetString("MONTO_TOTAL_DIA"))
		L_MONTOE.Text = to_number_vb (C.GetString("MONTO_DIA"))
	
		l_cuantosc.Text = L.GetString("CLIENTES_DIA")
		l_cuantosn.Text = b.GetString("CUANTOS")
		'drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")
		l_drop.Text = to_number_vb (f1.GetString("MONTO_TOTAL_DIA")) + to_number_vb (f2.GetString("MONTO_REC_DIA"))
		'efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
		l_efectiva.text = to_number_vb (f2.GetString("MONTO_REC_DIA"))
		l_ctast.Text = d.GetString("TOTAL_VISITAR")
		l_porvisitar.Text = e.GetString("POR_VISITAR")
		c.Close
		b.Close
		c=skmt.ExecQuery2("select  count(*) as CUANTOS   from CAT_VARIABLES where  CAT_VA_DESCRIPCION = ? ", Array As String("CAMBIOS"))
		c.Position=0
		If c.GetString("CUANTOS") = 0 Then
			cambios.Text =0
		Else
			B=skmt.ExecQuery("select  CAT_VA_VALOR   from CAT_VARIABLES where  CAT_VA_DESCRIPCION = 'CAMBIOS'")
			B.Position=0
			cambios.Text = b.GetString("CAT_VA_VALOR")
			b.Close
		End If
		c.Close

	End If
	c=skmt.ExecQuery("select  ID_ALMACEN from CAT_ALMACEN")
	C.Position =0
	ALMACEN = C.GetString("ID_ALMACEN")
	C.Close
	c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")

	'' HACER ESTO PARA EL FORANEO
	'If c.RowCount>0 Then
	'For i=0 To c.RowCount -1
'	c.Position=i
	''			s=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO")))
	''			s.Position =0
'			 
'	Dim cmd As DBCommand
'	cmd.Initialize
'	cmd.Name = "insert_gps_actual_REP"
'	cmd.Parameters = Array As Object(c.GetString("hgdate"),c.GetString("hglat"),c.GetString("hglon"),usuario )
'	'cmd.Parameters = Array As Object(C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON") )
'	
'	reqManager.ExecuteQuery(cmd , 0, "inst_visitas")
	'
'		
	'Next
	'End If
'	
	bu.Initialize
	batterystatus = bu.BatteryInformation
'	Main.batt = bu.BatteryInformation
	c=skmt.ExecQuery("select usuario from usuarioa")
	c.Position = 0
	usuario = c.GetString("USUARIO")
	c.Close

	c=skmt.ExecQuery("select RUTAA from RUTAA")
	c.Position = 0
	If c.RowCount > 0 Then
		RUTA_T = c.GetString("RUTAA")
	Else
		RUTA_T = 0
	End If
	c.Close

	'sb.Initialize
'	PHONE.Shell("ping -c1 keymon.com.mx",Null, sb,Null)
	'
'	c = skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
'	c.Position = 0
'	
'	'Valida si ya se cuenta con hora para enviar cada 5 min-----------
'	If c.GetString("HoraIngreso") > 0 Then
'		d2 = skmt.ExecQuery2("select CAT_VA_VALOR as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
'		d2.Position = 0
'		HORAINGRESO = d2.GetString("HoraIngreso")
'		d2.Close
'	End If
'	DateTime.TimeFormat = "HHmmss"
	'
'	If 	HORAINGRESO + 500 < DateTime.Time(DateTime.Now) Then
	'
	'
	'If sb.Length  > 2 Then
'	c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
'	
'	If c.RowCount>0 Then
'		For i=0 To c.RowCount -1
'			c.Position=i
'			'			s=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO")))
'			'			s.Position =0
'			 
	''				Dim cmd As DBCommand
	''				cmd.Initialize
	''				cmd.Name = "insert_gps_actual_GUNA"
	''				cmd.Parameters = Array As Object(c.GetString("hglat"),c.GetString("hglon"),usuario,ALMACEN,l_ruta.Text )
	''				'cmd.Parameters = Array As Object(C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON") )
	''
'		'	reqManager.ExecuteQuery(cmd , 0, "inst_visitas")
'				
'			Dim cmd As DBCommand
'			cmd.Initialize
'			cmd.Name = "UPDATE_DUR_ACTUALR2_GPS"
'			cmd.Parameters = Array As Object(L_MONTOE.Text, l_efectiva.Text, l_cuantosc.Text,l_cuantosn.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0), l_porvisitar.Text,l_drop.TEXT ,ALMACEN,RUTA_T)
'			'cmd.Parameters = Array As Object(C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON") )
'	
'			reqManager.ExecuteQuery(cmd , 0, "inst_visitas")
'	
'	
'			'		Dim cmd As DBCommand
'			'		cmd.Initialize
'			'		cmd.Name = "update_gps_actual_TKM"
'			'		cmd.Parameters = Array As Object(C.GetString("HGLAT"),C.GetString("HGLON"),usuario )
'			'		reqManager.ExecuteQuery(cmd , 0, "inst_visitas")
'			'lv.AddTwoLines(c.GetString("HIST_VI_CREDITO"),c.GetString("HIST_VI_RESULTADO"))
'		Next
'	End If
'		
'		End If
'	End If
'	DateTime.TimeFormat = "HH:mm:ss"
	
	Main.montoActual = L_MONTOE.Text
	Main.montorechazo = l_efectiva.text
	Main.Montosalida = L_MONTOD.Text
	Main.ALMACEN = ALMACEN
	Main.rutapreventa =  RUTA_T
	Main.clientestotal = l_cuantosc.Text + l_cuantosn.Text
	Main.clientesventa =   l_cuantosn.Text
	Main.clientesvisitados = l_porvisitar.TEXT
	'l_cuantosc.Text
End Sub

Sub to_number_vb (valor As Object) As String
	Dim valstring As Int
	Dim valstring2 As String = valor
	valstring2.Replace(":","")
	Try
		valstring =valstring2.Replace(":","")
		Return valstring
	Catch
		Return 0
	End Try
End Sub

Sub Activity_Pause (UserClosed As Boolean)
	cargar.Visible = False
	Subir.Visible = False
	connecta.Visible = True
	inv.Visible = False
End Sub

Sub trabajar_Click
	'CallSubDelayed(gestion,"gestion")
	skmt.ExecNonQuery("UPDATE PUNTEO_GPS SET HV_LONG= (select CAT_CL_LONG from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) ,  HV_LAT= (select CAT_CL_LAT from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE)  WHERE HV_LONG ='null' and HV_LAT='null' ")
	StartActivity(colonia)
End Sub

Sub Subir_Click
	c=skmt.ExecQuery("select usuario from usuarioa")
	c.Position = 0
	usuario = c.GetString("USUARIO")
	c.Close
	'reparto rechazo  REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
	c=skmt.ExecQuery("SELECT  REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO")
	If c.RowCount>0 Then
		For i=0 To c.RowCount -1
			c.Position=i
			Dim cmd As DBCommand
			cmd.Initialize
			cmd.Name = "insert_reparto_rechazo_dur"
'			cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"),C.GetString("REP_FECHA"), ALMACEN)
			cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"), ALMACEN)
			reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
		Next
		c.Close
	End If

	' NOVENTA
	c=skmt.ExecQuery("SELECT  NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA")
	D=skmt.ExecQuery("SELECT  COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
	
	If c.RowCount>0 Then
		For i=0 To c.RowCount -1
			c.Position=i
			foto1 = c.GetBlob("NV_FOTO")
			Dim cmd As DBCommand
			cmd.Initialize
			cmd.Name = "insert_reparto_dur"
			cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text, foto1)
			reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
		Next
		c.Close
	End If
	d.Position=0
	cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
	d.Close
	ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
End Sub

Sub cargar_Click
'	img2.Visible =True
	p_cargando.Visible = True
	p_cargando.Elevation = 100
	p_cargando.BringToFront
	EJECUTANDO = 1

	'c=skmt.ExecQuery("CREATE TABLE kmt_info (pr_cd_credito NUMERIC,pr_cd_nombre TEXT,pr_cd_calle TEXT,pr_cd_numero TEXT,pr_cd_num_int TEXT,pr_cd_entrecalle1 TEXT,pr_cd_entrecalle2 TEXT,pr_cd_colonia TEXT,pr_cd_poblacion TEXT,pr_cd_edo TEXT,pr_cd_cp TEXT,pr_cd_zona TEXT,pr_cf_credito NUMERIC,pr_cf_saldotot NUMERIC,pr_cf_saldooper NUMERIC,pr_cf_saldof1 NUMERIC, pr_cf_penalizacion NUMERIC)")
	TOPE = 0
	' NUEVOS CLIENTE

	skmt.ExecNonQuery("delete from kmt_info")
	skmt.ExecNonQuery("delete from cod_result")
	skmt.ExecNonQuery("delete from hist_gest")
	skmt.ExecNonQuery("delete from cat_gunaprod")
	skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
	skmt.ExecNonQuery("delete from telefonos")
	skmt.ExecNonQuery("delete from HIST_VENTAS")
	skmt.ExecNonQuery("delete from REPARTO")
	skmt.ExecNonQuery("delete from PUNTEO_GPS")

	c=skmt.ExecQuery("select usuario from usuarioa")
	c.Position = 0
	usuario = c.GetString("USUARIO")
	
	
	'' para el drop ---		 Se comenta hasta tener los campos
'	Dim cmd As DBCommand
'	cmd.Initialize
'	cmd.Name ="insert_drop2_DUR"
'	cmd.Parameters = Array As Object(usuario,l_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT)
'	reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
			
	''-				---------
				
				
	'cmd.Initialize
	'cmd.Name = "Select_count_clie"
	'reqManager.ExecuteQuery(cmd,0,"count_cli")
	Log(ALMACEN)
	If ALMACEN = "5" Or ALMACEN ="6" Or ALMACEN = "3" Then
		cmd.Initialize
		cmd.Name = "select_punteo_re_DUR2"
		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN)
		reqManager.ExecuteQuery(cmd , 0, "punteo")

		cmd.Initialize
		cmd.Name = "select_almacen_guna_re_dur2"
		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
		reqManager.ExecuteQuery(cmd , 0, "gunaprod")

		cmd.Initialize
		cmd.Name = "select_almacen_guna_re_dur2"
		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
		reqManager.ExecuteQuery(cmd , 0, "gunaprod")

		cmd.Initialize
		cmd.Name = "select_reparto_entrega_DUR2"
		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
		reqManager.ExecuteQuery(cmd , 0, "rechazo")

		cmd.Initialize
		cmd.Name = "select_cliente_guna_re_dur2"
		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN)
		reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
	
		cmd.Initialize
		cmd.Name = "select_ventad_guna_re_dur2"
		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
		reqManager.ExecuteQuery(cmd , 0, "hist_datos")
		'reparto rechazo  REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
	Else
		
		Log("aqui")
		cmd.Initialize
		cmd.Name = "select_punteo_re_DUR"
		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN)
		reqManager.ExecuteQuery(cmd , 0, "punteo")

'		cmd.Initialize
'		cmd.Name = "select_almacen_guna_re_dur"
'		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
'		reqManager.ExecuteQuery(cmd , 0, "gunaprod")

		cmd.Initialize
		cmd.Name = "select_almacen_guna_re_dur"
		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
		reqManager.ExecuteQuery(cmd , 0, "gunaprod")

		cmd.Initialize
		cmd.Name = "select_reparto_entrega_DUR"
		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
		reqManager.ExecuteQuery(cmd , 0, "rechazo")

		cmd.Initialize
		cmd.Name = "select_cliente_guna_re_dur"
		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN)
		reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
	
		cmd.Initialize
		cmd.Name = "select_ventad_guna_re_dur"
		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
		reqManager.ExecuteQuery(cmd , 0, "hist_datos")
		'reparto rechazo  REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TO
	End If

	c=skmt.ExecQuery("SELECT  REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO")

	If c.RowCount>0 Then
		For i=0 To c.RowCount -1
			c.Position=i
			Dim cmd As DBCommand
			cmd.Initialize
			cmd.Name = "insert_reparto_rechazo"
			cmd.Parameters = Array As Object(C.GetString("REP_CLIENTE"),C.GetString("REP_PRONOMBRE"),C.GetString("REP_CANT"),C.GetString("REP_COSTO_TOT"),C.GetString("REP_FECHA"), ALMACEN)
			reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
		Next
		c.Close
	End If
	
	
	' NOVENTA
	c=skmt.ExecQuery("SELECT  NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA")
	D=skmt.ExecQuery("SELECT  COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
	
	If c.RowCount>0 Then
		For i=0 To c.RowCount -1
			c.Position=i
			foto1 = c.GetBlob("NV_FOTO")
			Dim cmd As DBCommand
			cmd.Initialize
			cmd.Name = "insert_reparto"
			cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text, foto1)
			reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
		Next
		c.Close
	End If
	d.Position=0
	cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
	d.Close
	cargar.Visible = False
	Subir.Visible = False
	connecta.Visible = True
	inv.Visible = False
	
	'Dim cmd As DBCommand
	'cmd.Initialize
	'cmd.Name = "select_telefonos_riva"
	'cmd.Parameters = Array As Object(usuario)
	'reqManager.ExecuteQuery(cmd , 0, "telefonos")
	ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True)
	l_cargando.Text = $"Procesos pendientes: ${reqManager.reqsList.Size}"$
End Sub

Sub JobDone(Job As HttpJob)
	If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
		If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
			reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
			LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
		End If
		LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
	End If
	If Not(Job.Success) Then
		LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
	Else
		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)
		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "kmt_datos" Then 'query tag
				For Each records() As Object In RESULT.Rows
					
					Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
					Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA"))
					Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE"))
					Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1"))
					Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2"))
					Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("CAT_CL_TELEFONO"))
					Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("CAT_CL_EMAIL"))
					Dim CAT_CL_CALLE As String = records(RESULT.Columns.Get("CAT_CL_CALLE"))
					Dim CAT_CL_NOEXT As String = records(RESULT.Columns.Get("CAT_CL_NOEXT"))
					Dim CAT_CL_NOINT As String = records(RESULT.Columns.Get("CAT_CL_NOINT"))
					Dim CAT_CL_CALLE1 As String = records(RESULT.Columns.Get("CAT_CL_CALLE1"))
					Dim CAT_CL_CALLE2 As String = records(RESULT.Columns.Get("CAT_CL_CALLE2"))
					Dim CAT_CL_COLONIA As String = records(RESULT.Columns.Get("CAT_CL_COLONIA"))
					Dim CAT_CL_MUNI As String = records(RESULT.Columns.Get("CAT_CL_MUNI"))
					Dim CAT_CL_EDO As String = records(RESULT.Columns.Get("CAT_CL_EDO"))
					Dim CAT_CL_CP As String = records(RESULT.Columns.Get("CAT_CL_CP"))
					Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("CAT_CL_LONG"))
					Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT"))
					Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
					skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO))
				Next
				Listo1 = 1
				If Listo1 =1  And Listo3 = 1  Then
					ToastMessageShow("Datos Actualizados." , True)
					Activity_Resume
					img2.Visible=False
					p_cargando.Visible = False
					EJECUTANDO=0
				End If
			End If
		End If

		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "gunaprod" Then 'query tag
				For Each records() As Object In RESULT.Rows
					Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
					Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
					Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
					Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
					Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
					Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
					Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
					Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
					Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO"))
					Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
					'Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
					'	Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV"))
					'  skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV))
					skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, 0))
				Next
				Listo2=1
				If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
					ToastMessageShow("Datos Actualizados." , True)
					Activity_Resume
					img2.Visible=False
					p_cargando.Visible = False
					EJECUTANDO=0
				End If
			End If
		End If

		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "gunaprodp" Then 'query tag
				For Each records() As Object In RESULT.Rows
           
					Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
					Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
					Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
					Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
					Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
					Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
					Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
					Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
					Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO"))
					Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
					'Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
			
					skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, 0))
				Next
				Listo4=1
				If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
					ToastMessageShow("Datos Actualizados." , True)
					Activity_Resume
					img2.Visible=False
					p_cargando.Visible = False
					EJECUTANDO=0
				Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then
					ToastMessageShow("Datos Actualizados." , True)
					Activity_Resume
					img2.Visible=False
					p_cargando.Visible = False
					EJECUTANDO=0
				End If
			End If
		End If
		
		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "detallepaq" Then 'query tag
				For Each records() As Object In RESULT.Rows
					Dim CAT_DP_ALMACEN  As String = records(RESULT.Columns.Get("CAT_DP_ALMACEN"))
					Dim CAT_DP_ID As String = records(RESULT.Columns.Get("CAT_DP_ID"))
					Dim CAT_DP_IDPROD As String = records(RESULT.Columns.Get("CAT_DP_IDPROD"))
					Dim CAT_DP_TIPO As String = records(RESULT.Columns.Get("CAT_DP_TIPO"))
					Dim CAT_DP_PZAS As String = records(RESULT.Columns.Get("CAT_DP_PZAS"))
					Dim CAT_DP_USUARIO  As String = records(RESULT.Columns.Get("CAT_DP_USUARIO"))
					Dim CAT_DP_FECHA As String = records(RESULT.Columns.Get("CAT_DP_FECHA"))
					Dim CAT_DP_REGALO  As String = records(RESULT.Columns.Get("CAT_DP_REGALO"))
					Dim CAT_DP_CLASIF  As String = records(RESULT.Columns.Get("CAT_DP_CLASIF"))
					Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
					Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_DP_PRECIO_SIMPTOS"))
					skmt.ExecNonQuery2("INSERT INTO CAT_DETALLES_PAQ(CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS))
				Next
				Listo3 =1
				If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
					ToastMessageShow("Datos Actualizados." , True)
					Activity_Resume
					img2.Visible=False
					EJECUTANDO=0
				Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then
					ToastMessageShow("Datos Actualizados." , True)
					Activity_Resume
					img2.Visible=False
					p_cargando.Visible = False
					EJECUTANDO=0
				End If
			End If
		End If

		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "punteo" Then 'query tag
				Log("punteo")
				For Each records() As Object In RESULT.Rows
'					Log("punteo2")
					Dim HV_CLIENTE As String = records(RESULT.Columns.Get("HV_CLIENTE"))
					Dim HV_LONG As String = records(RESULT.Columns.Get("HV_LONG"))
					Dim HV_LAT As String = records(RESULT.Columns.Get("HV_LAT"))
					skmt.ExecNonQuery2("INSERT INTO PUNTEO_GPS(HV_CLIENTE, HV_LONG, HV_LAT) VALUES (?,?,?)", Array As Object (HV_CLIENTE, HV_LONG, HV_LAT))
				Next
			End If
		End If

		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "hist_datos" Then 'query tag
				For Each records() As Object In RESULT.Rows
					Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE"))
					Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE"))
					Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT"))
					Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
					Dim HVD_FECHA As String = records(RESULT.Columns.Get("HVD_FECHA"))
					skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_ESTATUS) VALUES (?,?,?,?,?,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA))
	      		Next
				f2=skmt.ExecQuery2("select  COUNT(*) as CAMBIOS  from hist_ventas where SUBSTR(HVD_PRONOMBRE,1,6) =?", Array As String("CAMBIO"))
				f2.Position = 0
				If f2.GetString("CAMBIOS") > 0 Then
					f1=skmt.ExecQuery2("select  sum(HVD_CANT) as CAMBIOS  from hist_ventas where SUBSTR(HVD_PRONOMBRE,1,6) =?", Array As String("CAMBIO"))
					f1.Position = 0
					skmt.ExecNonQuery2("delete from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As Object("CAMBIOS"))
					skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES VALUES(?,?)", Array As Object("CAMBIOS",f1.GetString("CAMBIOS")))
					f1.Close
				Else
					skmt.ExecNonQuery2("delete from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As Object("CAMBIOS"))
					skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES VALUES(?,?)", Array As Object("CAMBIOS","0"))
				End If
				f2.Close
				Listo3 =1
				If Listo1 =1  And Listo3 = 1  Then
					ToastMessageShow("Datos Actualizados." , True)
					Activity_Resume
					img2.Visible=False
					p_cargando.Visible = False
					EJECUTANDO=0
				End If
			End If
		End If
		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "variables" Then 'query tag
				For Each records() As Object In RESULT.Rows
					Dim Cat_Va_Descripcion As String = records(RESULT.Columns.Get("CAT_VA_DESCRIPCION"))
					Dim Cat_Va_Valor As String = records(RESULT.Columns.Get("CAT_VA_VALOR"))
					skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object (Cat_Va_Descripcion, Cat_Va_Valor))
				Next
			End If
		End If
    
    
		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "valida_pedido" Then 'query tag
				For Each records() As Object In RESULT.Rows
					Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP"))
					If cuantos_pedido = CUANTOSP Then
						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
						datos_iguales = "ok"
					Else
						ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
					End If
				Next
			End If
		End If
    
		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "valida_pedidoc" Then 'query tag
				For Each records() As Object In RESULT.Rows
					Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC"))
					If cuantos_pedidosc = CUANTOSC Then
						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
						datos_iguales = "ok"
					Else
						ToastMessageShow("No se cargo bien la info C. Sync Nuevamente"  & CUANTOSC & " " & cuantos_pedidosc, True)
					End If
				Next
			End If
		End If

		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "valida_noventa" Then 'query tag
				For Each records() As Object In RESULT.Rows
           
					Dim CUANTOSN As Int = records(RESULT.Columns.Get("CUANTOSN"))
           
					If cuantos_noventa = CUANTOSN Then
						' ToastMessageShow("rojo val ok 1 cuantosp." , True)
						datos_iguales = "ok"
					Else
						ToastMessageShow("No se cargo bien la info N. Sync Nuevamente"  & CUANTOSN & " " & cuantos_noventa, True)
					End If
				Next
			End If
		End If

		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "insert_pedido" Then 'query tag
				ToastMessageShow("Datos Actualizados." , True)
			End If
		End If
	 
		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "version" Then 'query tag
				For Each records() As Object In RESULT.Rows
					skmt.ExecNonQuery("delete from VERSION")
					Dim CAT_VE_VERSION As String = records(RESULT.Columns.Get("CAT_VE_VERSION"))
					skmt.ExecNonQuery2("INSERT INTO VERSION(NOVERSION) VALUES (?)", Array As Object (CAT_VE_VERSION))
				Next
			End If
		End If
	 
		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "count_cli" Then 'query tag
				For Each records() As Object In RESULT.Rows
					COUNT_CLIE = records(RESULT.Columns.Get("COUNT_CLIE"))
				Next
			End If
		End If
	
		If Job.JobName = "DBRequest" Then
			Dim RESULT As DBResult = reqManager.HandleJob(Job)
			If RESULT.Tag = "ruta" Then 'query tag
				For Each records() As Object In RESULT.Rows
					Dim VALIDO As String = records(RESULT.Columns.Get("VALIDO"))
					If VALIDO = "OK" Then
						If l_ctast.Text = "0" Then
							Subir.Visible = True
						End If
						cargar.Visible = True
						' inv.Visible = True
						connecta.Visible = False
						skmt.ExecNonQuery("DELETE FROM RUTAA")
						skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
						If conn = "1" Then
							ToastMessageShow("Existe Conexión con el Servidor." , True)
						End If
					Else
						cargar.Visible = False
						Subir.Visible = False
						inv.Visible = False
						connecta.Visible = False
					End If
				Next
			End If
		End If
		Job.Release
	End If
	LogColor($"${reqManager.reqsList.Size}${CRLF}${list2text(reqManager.reqsList)}"$, Colors.Red)
	l_cargando.Text = $"Procesos pendientes: ${reqManager.reqsList.Size}${CRLF}${CRLF}${list2text(reqManager.reqsList)}"$
End Sub

Sub Activity_KeyPress (key As Int) As Boolean
	' BACK key pressed
	If key=KeyCodes.KEYCODE_BACK Then
		' I want to capture the key here so I return True
		StartActivity(Main)
		'Return True
	End If
	' Returning False signals the system to handle the key
	Return False
End Sub

Sub connecta_Click
	ime.HideKeyboard
	imei = "" 'p.GetDeviceId
	conn = "1"
	Dim cmd As DBCommand
	cmd.Initialize
	cmd.Name = "select_version"
	reqManager.ExecuteQuery(cmd , 0, "version")
	Dim cmd As DBCommand
	cmd.Initialize
	cmd.Name = "select_ruta_re"
	cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
	reqManager.ExecuteQuery(cmd , 0, "ruta")
	ToastMessageShow("Validando Conexión." , True)
End Sub

Sub BUSCA_Click
	StartActivity(BUSCAR)
End Sub

Sub b_mapa_Click
	StartActivity(mapas)
End Sub

Sub e_ruta_EnterPressed
	If e_ruta.Text = "FIN DIA" Then
		RES =  Msgbox2("Seguro que desa hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))
		If RES = DialogResponse.POSITIVE Then
			e_ruta.Text = ""
			skmt.ExecNonQuery("delete from pedido_cliente")
			skmt.ExecNonQuery("delete from pedido")
			skmt.ExecNonQuery("delete from noventa")
			skmt.ExecNonQuery("delete from clie_act")
			skmt.ExecNonQuery("delete from kmt_info")
			skmt.ExecNonQuery("delete from cat_gunaprod")
			skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
			skmt.ExecNonQuery("delete from HIST_VENTAS")
			skmt.ExecNonQuery("delete from REPARTO")
			Activity_Resume
		End If
	End If
End Sub

Sub inv_Click
	img2.Visible =True
	p_cargando.Visible = True
	EJECUTANDO = 1
	inve = 1
	skmt.ExecNonQuery("delete from cat_gunaprod")
	skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
	c=skmt.ExecQuery("select usuario from usuarioa")
	c.Position = 0
	usuario = c.GetString("USUARIO")
	cmd.Initialize
	cmd.Name = "select_cat_gunaprod"
	cmd.Parameters = Array As Object(ALMACEN)
	reqManager.ExecuteQuery(cmd , 0, "gunaprod")
	cmd.Initialize
	cmd.Name = "select_cat_paquetes"
	cmd.Parameters = Array As Object(ALMACEN)
	reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
	cmd.Initialize
	cmd.Name = "select_cat_detallepa"
	cmd.Parameters = Array As Object(ALMACEN)
	reqManager.ExecuteQuery(cmd , 0, "detallepaq")
	cargar.Visible = False
	Subir.Visible = False
	connecta.Visible = True
	inv.Visible = False
	ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias" , True)
End Sub

Sub t1_tick
	cmd.Initialize
	cmd.Name = "select_cuantos_pedido"
	cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
	reqManager.ExecuteQuery(cmd , 0, "valida_pedido")
	
	cmd.Initialize
	cmd.Name = "select_cuantos_noventa"
	cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
	reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
	
	cmd.Initialize
	cmd.Name = "select_cuantos_pedidoc"
	cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
	reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
	img2.Visible=False
	p_cargando.Visible = False
	t1.Enabled = False
End Sub

Sub B_CLIEPROD_Click
	BUSCA.Visible = False
	connecta.Visible = False
	trabajar.Visible = False
	B_CLIEPROD.Visible = False
	Panel1.Visible = True
	Btn_UbicarR.Visible=False
	c=skmt.ExecQuery("select HVD_CLIENTE, HVD_PRONOMBRE, HVD_CANT, HVD_ESTATUS  from HIST_VENTAS ORDER BY HVD_PRONOMBRE")
	ListView1.Clear
	Dim label1 As Label
	label1 = ListView1.TwoLinesLayout.Label
	label1.TextSize = 10
	label1.TextColor = Colors.Black
	Dim label2 As Label
	label2 = ListView1.TwoLinesLayout.SecondLabel
	label2.TextSize = 10
	label2.TextColor = Colors.Black
	If c.RowCount>0 Then
		For i=0 To c.RowCount -1
			c.Position=i
			If c.GetString("HVD_ESTATUS") = "0" Then
				ESTATUS = "SIN ENTREGAR"
			ELSE IF c.GetString("HVD_ESTATUS") = "1" Then
				ESTATUS = "ENTREGADO"
			ELSE IF c.GetString("HVD_ESTATUS") = "2" Then
				ESTATUS = "RECHAZADO"
			Else
				ESTATUS = "SIN ESTATUS"
			End If
			ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE") & "   " & c.GetString("HVD_CLIENTE") , c.GetString("HVD_CANT") & "   " & ESTATUS )
		Next
	End If
End Sub

Sub B_REGRESA_Click
	BUSCA.Visible = True
	connecta.Visible = True
	trabajar.Visible = True
	B_CLIEPROD.Visible = True
	Panel1.Visible = False
	Btn_UbicarR.Visible=True
End Sub

Sub Btn_UbicarR_Click
	skmt.ExecNonQuery("UPDATE PUNTEO_GPS SET HV_LONG= (select CAT_CL_LONG from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE) ,  HV_LAT= (select CAT_CL_LAT from KMT_INFO where CAT_CL_CODIGO = PUNTEO_GPS.HV_CLIENTE)  WHERE HV_LONG ='null' and HV_LAT='null' ")
	StartActivity(MAPA_RUTAS)
End Sub

'''''''''''''''''''''''''''''''''''' VALIDAR CARACTERES
Sub e_ruta_TextChanged (Old As String, New As String)
	Dim validChars As String ="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 "
	Try
		If validChars.Contains(New.SubString(New.Length-1)) = False Then
			e_ruta.Text = New.SubString2(0, New.Length-1)
			e_ruta.SelectionStart = e_ruta.Text.Length
		End If
	Catch
		Log(LastException)
	End Try
End Sub

Private Sub p_cargando_Click
	
End Sub

Sub list2text(a As List)
	Private elTexto As String = ""
	For i = 0 To a.Size - 1
		If i > 0 Then
			elTexto = elTexto & ", " & a.Get(i)
		Else
			elTexto = elTexto & a.Get(i)
		End If
	Next
	Return elTexto
End Sub