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

2026-04-17 19:37:04 +00:00 · 2023-11-06 16:56:59 -06:00
parent c9e534fac8
commit fd6d581422
17 changed files with 574 additions and 791 deletions
--- a/BUSCAR.bas
+++ b/BUSCAR.bas
@@ -25,15 +25,11 @@ 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")
+	ruta = File.DirInternal
+	Activity.LoadLayout("buscar")

 	' 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 
+	'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
--- a/Durakelo_reparto.b4a
+++ b/Durakelo_reparto.b4a
@@ -1,35 +1,36 @@
 Build1=Default,dreparto.keymon.com.mx
-File1=alert2.png
-File10=guna_viejo.png
-File11=info_gral.bal
-File12=infonavit1.jpg
-File13=itembuttonblue.png
-File14=keymon_logo.png
-File15=kmt.db
-File16=login.bal
-File17=LOGO SANFER.jpg
-File18=logo_exitus1.jpg
-File19=Malo.jpg
-File2=alerta.jpg
-File20=mapa.bal
-File21=mapa_rutas.bal
-File22=nopago.bal
-File23=nuevocliente.bal
-File24=pedido.bal
-File25=planfia_logo.png
-File26=planfia_logo_old.png
-File27=planfia_logo_old2.png
-File28=seleccion.bal
-File29=sync.png
-File3=buscar.bal
-File30=tarjeta.bal
-File31=telefonos.bal
-File4=detalle_promo.bal
-File5=durakelo1.png
-File6=fila.bal
-File7=fondo_kmt.jpg
-File8=foto.bal
-File9=guardagestion.bal
+File1=1.bal
+File10=guardagestion.bal
+File11=guna_viejo.png
+File12=info_gral.bal
+File13=infonavit1.jpg
+File14=itembuttonblue.png
+File15=keymon_logo.png
+File16=kmt.db
+File17=login.bal
+File18=LOGO SANFER.jpg
+File19=logo_exitus1.jpg
+File2=alert2.png
+File20=Malo.jpg
+File21=mapa.bal
+File22=mapa_rutas.bal
+File23=nopago.bal
+File24=nuevocliente.bal
+File25=pedido.bal
+File26=planfia_logo.png
+File27=planfia_logo_old.png
+File28=planfia_logo_old2.png
+File29=seleccion.bal
+File3=alerta.jpg
+File30=sync.png
+File31=tarjeta.bal
+File32=telefonos.bal
+File4=buscar.bal
+File5=detalle_promo.bal
+File6=durakelo1.png
+File7=fila.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
+	ruta = File.DirInternal
 	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
-	IMEI = P.GetDeviceId
+	IMEN.Text = "" 'P.GetDeviceId
+	IMEI = "" 'P.GetDeviceId
 	
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
 	
--- a/Durakelo_reparto.b4a.meta
+++ b/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
--- a/Historico.bas
+++ b/Historico.bas
@@ -49,19 +49,14 @@ 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"
+	ruta = File.DirInternal
+	Activity.LoadLayout("tarjeta")
+	borra.Visible = False
+	Titulo.Text = "Pedido"
 		

 	' 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 
+	'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
--- a/MAPA_RUTAS.bas
+++ b/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
+	ruta = File.DirInternal
 	If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 	End If
--- a/colonia.bas
+++ b/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
+	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 
--- a/colonia2.bas
+++ b/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
+
+	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 
--- a/detalle_promo.bas
+++ b/detalle_promo.bas
@@ -33,15 +33,11 @@ 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")
+	ruta = File.DirInternal
+	Activity.LoadLayout("detalle_promo")

 	' 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 
+	'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
--- a/fila.bas
+++ b/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
+	ruta = File.DirInternal
    If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 	End If
--- a/foto.bas
+++ b/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
+	ruta = File.DirInternal
 	
 	If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
--- a/gestion.bas
+++ b/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
+	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 
--- a/nopago.bas
+++ b/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
+	ruta = File.DirInternal
    If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 	End If
--- a/nuevocliente.bas
+++ b/nuevocliente.bas
@@ -42,14 +42,8 @@ Sub Activity_Create(FirstTime As Boolean)
 	End If
    
 	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
+
+	ruta = File.DirInternal
    If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 	End If
--- a/pedidos.bas
+++ b/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
+	ruta = File.DirInternal
    If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 	End If
--- a/seleccion.bas
+++ b/seleccion.bas
--- a/tarjeta.bas
+++ b/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
+	ruta = File.DirInternal
 	    Activity.LoadLayout("tarjeta")
 		borra.Visible = True
 		Titulo.Text = "Pedido Actual"
--- a/telefonos.bas
+++ b/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
+
+	ruta = File.DirInternal
 	    Activity.LoadLayout("telefonos")
    If File.Exists(ruta, "kmt.db") = False Then
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")