6/11/23 - Se cambio el puerto y se cambiaron algunas cosas para que corra en nuevos equipos.

BUSCAR.bas

@@ -25,11 +25,7 @@ Sub Globals
 	End Sub
 
 Sub Activity_Create(FirstTime As Boolean)
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	End If
 	Activity.LoadLayout("buscar")
 
 	' se crea o no el archivo de la base de ddatos de kmt

Durakelo_reparto.b4a

@@ -1,35 +1,36 @@
 Build1=Default,dreparto.keymon.com.mx
-File1=alert2.png
+File1=1.bal
-File10=guna_viejo.png
+File10=guardagestion.bal
-File11=info_gral.bal
+File11=guna_viejo.png
-File12=infonavit1.jpg
+File12=info_gral.bal
-File13=itembuttonblue.png
+File13=infonavit1.jpg
-File14=keymon_logo.png
+File14=itembuttonblue.png
-File15=kmt.db
+File15=keymon_logo.png
-File16=login.bal
+File16=kmt.db
-File17=LOGO SANFER.jpg
+File17=login.bal
-File18=logo_exitus1.jpg
+File18=LOGO SANFER.jpg
-File19=Malo.jpg
+File19=logo_exitus1.jpg
-File2=alerta.jpg
+File2=alert2.png
-File20=mapa.bal
+File20=Malo.jpg
-File21=mapa_rutas.bal
+File21=mapa.bal
-File22=nopago.bal
+File22=mapa_rutas.bal
-File23=nuevocliente.bal
+File23=nopago.bal
-File24=pedido.bal
+File24=nuevocliente.bal
-File25=planfia_logo.png
+File25=pedido.bal
-File26=planfia_logo_old.png
+File26=planfia_logo.png
-File27=planfia_logo_old2.png
+File27=planfia_logo_old.png
-File28=seleccion.bal
+File28=planfia_logo_old2.png
-File29=sync.png
+File29=seleccion.bal
-File3=buscar.bal
+File3=alerta.jpg
-File30=tarjeta.bal
+File30=sync.png
-File31=telefonos.bal
+File31=tarjeta.bal
-File4=detalle_promo.bal
+File32=telefonos.bal
-File5=durakelo1.png
+File4=buscar.bal
-File6=fila.bal
+File5=detalle_promo.bal
-File7=fondo_kmt.jpg
+File6=durakelo1.png
-File8=foto.bal
+File7=fila.bal
-File9=guardagestion.bal
+File8=fondo_kmt.jpg
+File9=foto.bal
 FileGroup1=Default Group
 FileGroup10=Default Group
 FileGroup11=Default Group
@@ -55,6 +56,7 @@ FileGroup29=Default Group
 FileGroup3=Default Group
 FileGroup30=Default Group
 FileGroup31=Default Group
+FileGroup32=Default Group
 FileGroup4=Default Group
 FileGroup5=Default Group
 FileGroup6=Default Group
@@ -82,7 +84,7 @@ Library6=core
 Library7=fusedlocationprovider
 Library8=googlemaps
 Library9=googlemapsextras
-ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="28"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~AddApplicationText(<activity android:name="com.google.zxing.client.android.CaptureActivity"~\n~android:screenOrientation="landscape" ~\n~android:configChanges="orientation|keyboardHidden"~\n~android:theme="@android:style/Theme.NoTitleBar.Fullscreen"~\n~android:windowSoftInputMode="stateAlwaysHidden">~\n~</activity>)~\n~AddManifestText(~\n~<uses-permission~\n~  android:name="android.permission.READ_PHONE_STATE"~\n~  android:maxSdkVersion="19" />~\n~)~\n~AddApplicationText(~\n~<meta-data~\n~  android:name="com.google.android.geo.API_KEY"~\n~  android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>~\n~  <meta-data android:name="com.google.android.gms.version"~\n~   android:value="@integer/google_play_services_version" />~\n~)~\n~AddManifestText(~\n~<uses-permission~\n~  android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~  android:maxSdkVersion="19" />~\n~)~\n~'''' para el teclado~\n~	SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~~\n~~\n~~\n~
+ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="28"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~AddApplicationText(<activity android:name="com.google.zxing.client.android.CaptureActivity"~\n~android:screenOrientation="landscape" ~\n~android:configChanges="orientation|keyboardHidden"~\n~android:theme="@android:style/Theme.NoTitleBar.Fullscreen"~\n~android:windowSoftInputMode="stateAlwaysHidden">~\n~</activity>)~\n~AddManifestText(~\n~<uses-permission~\n~  android:name="android.permission.READ_PHONE_STATE"~\n~  android:maxSdkVersion="19" />~\n~)~\n~AddApplicationText(~\n~<meta-data~\n~  android:name="com.google.android.geo.API_KEY"~\n~  android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>~\n~  <meta-data android:name="com.google.android.gms.version"~\n~   android:value="@integer/google_play_services_version" />~\n~)~\n~AddManifestText(~\n~<uses-permission~\n~  android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~  android:maxSdkVersion="19" />~\n~)~\n~'''' para el teclado~\n~	SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~~\n~
 Module1=BatteryUtilities
 Module10=gestion
 Module11=Historico
@@ -104,7 +106,7 @@ Module6=DBRequestManager
 Module7=detalle_promo
 Module8=fila
 Module9=foto
-NumberOfFiles=31
+NumberOfFiles=32
 NumberOfLibraries=20
 NumberOfModules=21
 Version=12.5
@@ -112,7 +114,7 @@ Version=12.5
 #Region  Project Attributes 
 	#ApplicationLabel: Durakelo-Reparto
 	#VersionCode: 1
-	#VersionName: 
+	#VersionName: 3.11.06
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
@@ -167,11 +169,7 @@ Sub Globals
 End Sub
 
 Sub Activity_Create(FirstTime As Boolean)
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	End If
 	logger = True
 	' 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 
@@ -193,8 +191,8 @@ Sub Activity_Create(FirstTime As Boolean)
 	End If
 	Activity.LoadLayout("login")
 	Dim P As PhoneId
-	IMEN.Text = P.GetDeviceId
+	IMEN.Text = "" 'P.GetDeviceId
-	IMEI = P.GetDeviceId
+	IMEI = "" 'P.GetDeviceId
 	
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
 	

Durakelo_reparto.b4a.meta

@@ -51,7 +51,7 @@ ModuleClosedNodes13=
 ModuleClosedNodes14=
 ModuleClosedNodes15=
 ModuleClosedNodes16=9
-ModuleClosedNodes17=2,3,4,5,7,8,9,10,13,14,15,16,17,18,19,20,21
+ModuleClosedNodes17=13,14,15,16,17,18,19,20,21,22,23
 ModuleClosedNodes18=
 ModuleClosedNodes19=
 ModuleClosedNodes2=
@@ -64,6 +64,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=3,6,8,17,18,19
 ModuleClosedNodes9=
-NavigationStack=seleccion,Subir_Click,485,0,seleccion,to_number_vb,417,0,seleccion,Activity_Resume,399,0,nopago,Globals,30,0,fila,Activity_Create,149,0,Visual Designer,info_gral.bal,-100,1,fila,Activity_Pause,222,0,fila,Activity_Resume,217,0,fila,GPS_LocationChanged,233,0,Main,Activity_Create,60,0,Main,Process_Globals,21,0
+NavigationStack=seleccion,inv_Click,1071,0,seleccion,e_ruta_EnterPressed,1042,0,seleccion,JobDone,679,0,seleccion,cargar_Click,484,0,seleccion,Subir_Click,436,0,seleccion,trabajar_Click,422,0,seleccion,Activity_Pause,418,0,seleccion,to_number_vb,410,0,seleccion,Activity_Resume,287,0,colonia,Activity_Create,33,0,Main,Activity_Create,81,0
 SelectedBuild=0
-VisibleModules=18,21,10,9,12,8,4,14,11,2
+VisibleModules=18,21,10,9,12,8,4,14,11,2,5,7,15,16,17,20,19

Historico.bas

@@ -49,12 +49,7 @@ Sub Activity_Create(FirstTime As Boolean)
 	If(FirstTime) Then
 	 g.Initialize("GPS")
 	End If
-
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	End If
 	Activity.LoadLayout("tarjeta")
 	borra.Visible = False
 	Titulo.Text = "Pedido"

MAPA_RUTAS.bas

@@ -64,11 +64,7 @@ End Sub
 
 Sub Activity_Create(FirstTime As Boolean)
 	Activity.LoadLayout("MAPA_RUTAS")
-	If File.ExternalWritable Then
-		ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	End If
 	If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 	End If

colonia.bas

@@ -37,11 +37,7 @@ Sub Activity_Create(FirstTime As Boolean)
 	'Dim ruta As String
 	entro ="2"
 	' valido donde escribo el archivo de la base de datos de kmt
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	End If
 	
 	' 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 

colonia2.bas

@@ -40,12 +40,8 @@ Sub Activity_Create(FirstTime As Boolean)
 	'Activity.LoadLayout("Layout1")
     Activity.LoadLayout("fila")
 	'Dim ruta As String
-	' valido donde escribo el archivo de la base de datos de kmt
+
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	End If
 	
 	' 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 

detalle_promo.bas

@@ -33,11 +33,7 @@ Sub Globals
 	End Sub
 
 Sub Activity_Create(FirstTime As Boolean)
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	End If
 	Activity.LoadLayout("detalle_promo")
 
 	' se crea o no el archivo de la base de ddatos de kmt

fila.bas

@@ -94,12 +94,7 @@ Sub Activity_Create(FirstTime As Boolean)
     Activity.LoadLayout("info_gral")
 	
 	' valido donde escribo el archivo de la base de datos de kmt
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	   
-	End If
     If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 	End If

foto.bas

@@ -35,11 +35,7 @@ Sub Activity_Create(FirstTime As Boolean)
 	 g.Initialize("GPS")
 	End If
 	Activity.LoadLayout("foto")
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	End If
 	
 	If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")

gestion.bas

@@ -68,11 +68,7 @@ Sub Activity_Create(FirstTime As Boolean)
 	Dim ruta As String
 	
 	' valido donde escribo el archivo de la base de datos de kmt
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	End If
 	
 	' 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 

nopago.bas

@@ -45,14 +45,7 @@ Sub Activity_Create(FirstTime As Boolean)
 	End If
     
 	Activity.LoadLayout("nopago")
-    
-	' valido donde escribo el archivo de la base de datos de kmt
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	   
-	End If
     If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 	End If

nuevocliente.bas

@@ -43,13 +43,7 @@ Sub Activity_Create(FirstTime As Boolean)
     
 	Activity.LoadLayout("nuevocliente")
 
-	' valido donde escribo el archivo de la base de datos de kmt
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	   
-	End If
     If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 	End If

pedidos.bas

@@ -64,13 +64,7 @@ Sub Activity_Create(FirstTime As Boolean)
 	Activity.LoadLayout("pedido")
 	i_fotol.Visible = False
 
-	' valido donde escribo el archivo de la base de datos de kmt
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	   
-	End If
     If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 	End If

seleccion.bas

@@ -107,12 +107,7 @@ Sub Activity_Create(FirstTime As Boolean)
 	Dim ruta As String
 	img2.Visible =False
 
-	' valido donde escribo el archivo de la base de datos de kmt
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	End If
 	
 	' 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
@@ -302,16 +297,14 @@ Sub Activity_Resume
 	C.Position =0
 	ALMACEN = C.GetString("ID_ALMACEN")
 	C.Close
-c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
+	c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
 
-	
+	'' HACER ESTO PARA EL FORANEO
-	
+	'If c.RowCount>0 Then
-'' HACER ESTO PARA EL FORANEO
+	'For i=0 To c.RowCount -1
-'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=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO")))
-''			s.Position =0
+	''			s.Position =0
 '			 
 '	Dim cmd As DBCommand
 '	cmd.Initialize
@@ -320,31 +313,31 @@ c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
 '	'cmd.Parameters = Array As Object(C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON") )
 '	
 '	reqManager.ExecuteQuery(cmd , 0, "inst_visitas")
+	'
 '		
+	'Next
+	'End If
 '	
-'Next
+	bu.Initialize
-'End If
+	batterystatus = bu.BatteryInformation
-'	
-bu.Initialize
-batterystatus = bu.BatteryInformation
 '	Main.batt = bu.BatteryInformation
-c=skmt.ExecQuery("select usuario from usuarioa")
+	c=skmt.ExecQuery("select usuario from usuarioa")
-c.Position = 0
+	c.Position = 0
-usuario = c.GetString("USUARIO")
+	usuario = c.GetString("USUARIO")
-c.Close
+	c.Close
 
-c=skmt.ExecQuery("select RUTAA from RUTAA")
+	c=skmt.ExecQuery("select RUTAA from RUTAA")
-c.Position = 0
+	c.Position = 0
-If c.RowCount > 0 Then
+	If c.RowCount > 0 Then
 		RUTA_T = c.GetString("RUTAA")
-Else
+	Else
 		RUTA_T = 0
-End If
+	End If
-c.Close
+	c.Close
 
-'sb.Initialize
+	'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
 '	
@@ -356,11 +349,11 @@ c.Close
 '		d2.Close
 '	End If
 '	DateTime.TimeFormat = "HHmmss"
-'
+	'
 '	If 	HORAINGRESO + 500 < DateTime.Time(DateTime.Now) Then
-'
+	'
-'
+	'
-'If sb.Length  > 2 Then
+	'If sb.Length  > 2 Then
 '	c=skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
 '	
 '	If c.RowCount>0 Then
@@ -369,12 +362,12 @@ c.Close
 '			'			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
+	''				Dim cmd As DBCommand
-''				cmd.Initialize
+	''				cmd.Initialize
-''				cmd.Name = "insert_gps_actual_GUNA"
+	''				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("hglat"),c.GetString("hglon"),usuario,ALMACEN,l_ruta.Text )
-''				'cmd.Parameters = Array As Object(C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON") )
+	''				'cmd.Parameters = Array As Object(C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON") )
-''	
+	''
 '		'	reqManager.ExecuteQuery(cmd , 0, "inst_visitas")
 '				
 '			Dim cmd As DBCommand
@@ -404,66 +397,57 @@ c.Close
 	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
 
+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
+	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=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")
@@ -472,24 +456,20 @@ c=skmt.ExecQuery("select usuario from usuarioa")
 		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
 	EJECUTANDO = 1
@@ -513,7 +493,7 @@ Sub cargar_Click
 	usuario = c.GetString("USUARIO")
 	
 	
-'' para el drop ---		 Se comenta hasta tener los campos
+	'' para el drop ---		 Se comenta hasta tener los campos
 '	Dim cmd As DBCommand
 '	cmd.Initialize
 '	cmd.Name ="insert_drop2_DUR"
@@ -528,14 +508,11 @@ Sub cargar_Click
 	'reqManager.ExecuteQuery(cmd,0,"count_cli")
 	
 	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)
@@ -551,8 +528,6 @@ Sub cargar_Click
 		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)
@@ -563,16 +538,12 @@ Sub cargar_Click
 		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
-	
 		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)
@@ -588,8 +559,6 @@ Sub cargar_Click
 		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)
@@ -602,21 +571,16 @@ Sub cargar_Click
 		'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
@@ -630,23 +594,17 @@ Sub cargar_Click
 		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
@@ -657,9 +615,6 @@ Sub cargar_Click
 	'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)
 End Sub
 Sub JobDone(Job As HttpJob)
@@ -689,10 +644,7 @@ Sub JobDone(Job As HttpJob)
 					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
@@ -701,17 +653,13 @@ Sub JobDone(Job As HttpJob)
 					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
 				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"))
@@ -724,11 +672,8 @@ Sub JobDone(Job As HttpJob)
 					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
@@ -736,9 +681,7 @@ Sub JobDone(Job As HttpJob)
 					Activity_Resume
 					img2.Visible=False
 					EJECUTANDO=0
-	   
 				End If
-	      
 			End If
 		End If
 
@@ -760,8 +703,6 @@ Sub JobDone(Job As HttpJob)
 					'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
@@ -775,17 +716,13 @@ Sub JobDone(Job As HttpJob)
 					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
 				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"))
@@ -797,13 +734,7 @@ Sub JobDone(Job As HttpJob)
 					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
@@ -817,7 +748,6 @@ Sub JobDone(Job As HttpJob)
 					img2.Visible=False
 					EJECUTANDO=0
 				End If
-	   
 			End If
 		End If
 
@@ -825,14 +755,10 @@ Sub JobDone(Job As HttpJob)
 			Dim RESULT As DBResult = reqManager.HandleJob(Job)
 			If RESULT.Tag = "punteo" Then 'query tag
 				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"))
-
 					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
@@ -841,31 +767,24 @@ Sub JobDone(Job As HttpJob)
 			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
@@ -874,76 +793,52 @@ Sub JobDone(Job As HttpJob)
 					Activity_Resume
 					img2.Visible=False
 					EJECUTANDO=0
-
-				End If
-	   
 				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
+		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
+		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
+		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
@@ -955,10 +850,7 @@ If Job.JobName = "DBRequest" Then
 						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
@@ -967,7 +859,6 @@ 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
 	 
@@ -977,9 +868,7 @@ If Job.JobName = "DBRequest" Then
 				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
@@ -988,12 +877,7 @@ 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
@@ -1002,22 +886,16 @@ 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
@@ -1026,18 +904,12 @@ If Job.JobName = "DBRequest" Then
 						Subir.Visible = False
 						inv.Visible = False
 						connecta.Visible = False
-			      		   
 					End If
 				Next
 			End If
 		End If
-	
-	
-	 
 		Job.Release
-     
 	End If
-	 
 End Sub
 
 Sub Activity_KeyPress (key As Int) As Boolean
@@ -1050,35 +922,34 @@ Sub Activity_KeyPress (key As Int) As Boolean
 	' Returning False signals the system to handle the key
 	Return False
 End Sub
+
 Sub connecta_Click
-    imei = p.GetDeviceId
+	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")
@@ -1089,55 +960,40 @@ Sub e_ruta_EnterPressed
 			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
 	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 
 
+Sub t1_tick
 	cmd.Initialize
 	cmd.Name = "select_cuantos_pedido"
 	cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
@@ -1164,7 +1020,6 @@ Sub B_CLIEPROD_Click
 	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
@@ -1174,7 +1029,6 @@ Sub B_CLIEPROD_Click
 	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
@@ -1201,23 +1055,19 @@ Sub B_REGRESA_Click
 	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

tarjeta.bas

@@ -45,11 +45,7 @@ Sub Activity_Create(FirstTime As Boolean)
 	 g.Initialize("GPS")
 	End If
 
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	End If
 	    Activity.LoadLayout("tarjeta")
 		borra.Visible = True
 		Titulo.Text = "Pedido Actual"

telefonos.bas

@@ -36,12 +36,8 @@ End Sub
 
 Sub Activity_Create(FirstTime As Boolean)
 	'Do not forget to load the layout file created with the visual designer. For example:
-	'Activity.LoadLayout("Layout1")
+
-	If File.ExternalWritable Then
-	   ruta = File.DirDefaultExternal
-	Else
 	ruta = File.DirInternal
-	End If
 	    Activity.LoadLayout("telefonos")
     If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")