cheveguerra/Nuevo_Torrado_V2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Nuevo_Torrado_V2.git synced 2026-04-20 22:29:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

puerto

Browse Source
This commit is contained in:
cvaldes1201
2023-11-08 13:51:15 -06:00
parent d27ffca72d
commit ff26e0667a
7 changed files with 43 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/NUEVO_TORRADO.b4a
View File

@@ -64,7 +64,7 @@ Library6=bitmapcreator
Library7=byteconverter Library7=byteconverter
Library8=camera Library8=camera
Library9=compressstrings Library9=compressstrings
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: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="33"/>~\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~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'End of default text.~\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~~\n~AddManifestText(~\n~<uses-permission~\n~ android:name="android.permission.ACCESS_FINE_LOCATION"~\n~ android:maxSdkVersion="33" />~\n~)~\n~~\n~AddManifestText(~\n~<uses-permission ~\n~ android:name="android.permission.ACCESS_COARSE_LOCATION"~\n~ android:maxSdkVersion="33" />~\n~ )~\n~~\n~AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~~\n~AddPermission("android.permission.MANAGE_EXTERNAL_STORAGE")~\n~~\n~~\n~AddManifestText(<uses-permission~\n~android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~android:maxSdkVersion="33" />~\n~)~\n~'/////////////////////// App Updating ////////////////~\n~ AddManifestText(<uses-permission~\n~ android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~ android:maxSdkVersion="33" />~\n~ )~\n~ AddApplicationText(~\n~ <provider~\n~ android:name="android.support.v4.content.FileProvider"~\n~ android:authorities="$PACKAGE$.provider"~\n~ android:exported="false"~\n~ android:grantUriPermissions="true">~\n~ <meta-data~\n~ android:name="android.support.FILE_PROVIDER_PATHS"~\n~ android:resource="@xml/provider_paths"/>~\n~ </provider>~\n~ )~\n~ CreateResource(xml, provider_paths,~\n~ <paths>~\n~ <external-files-path name="name" path="" />~\n~ <files-path name="name" path="" />~\n~ <files-path name="name" path="shared" />~\n~ </paths>~\n~ )~\n~AddManifestText(<uses-feature android:name="android.hardware.telephony" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.autofocus" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.flash" android:required="false" />)~\n~~\n~AddPermission(android.permission.REQUEST_INSTALL_PACKAGES)~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.INSTALL_PACKAGES)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.READ_PHONE_STATE)~\n~AddPermission(android.permission.WAKE_LOCK)~\n~CreateResourceFromFile(Macro, JhsIceZxing1.CaturePortrait)~\n~AddPermission("android.permission.MANAGE_EXTERNAL_STORAGE")~\n~SetApplicationAttribute(android:largeHeap, "true")~\n~AddPermission("android.permission.MANAGE_EXTERNAL_STORAGE")~\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: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="33"/>~\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~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'End of default text.~\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~~\n~AddManifestText(~\n~<uses-permission~\n~ android:name="android.permission.ACCESS_FINE_LOCATION"~\n~ android:maxSdkVersion="33" />~\n~)~\n~~\n~AddManifestText(~\n~<uses-permission ~\n~ android:name="android.permission.ACCESS_COARSE_LOCATION"~\n~ android:maxSdkVersion="33" />~\n~ )~\n~~\n~AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~~\n~AddPermission("android.permission.MANAGE_EXTERNAL_STORAGE")~\n~~\n~~\n~'AddManifestText(<uses-permission~\n~'android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~'android:maxSdkVersion="33" />~\n~')~\n~'/////////////////////// App Updating ////////////////~\n~ AddManifestText(<uses-permission~\n~ android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~ android:maxSdkVersion="33" />~\n~ )~\n~ AddApplicationText(~\n~ <provider~\n~ android:name="android.support.v4.content.FileProvider"~\n~ android:authorities="$PACKAGE$.provider"~\n~ android:exported="false"~\n~ android:grantUriPermissions="true">~\n~ <meta-data~\n~ android:name="android.support.FILE_PROVIDER_PATHS"~\n~ android:resource="@xml/provider_paths"/>~\n~ </provider>~\n~ )~\n~ CreateResource(xml, provider_paths,~\n~ <paths>~\n~ <external-files-path name="name" path="" />~\n~ <files-path name="name" path="" />~\n~ <files-path name="name" path="shared" />~\n~ </paths>~\n~ )~\n~AddManifestText(<uses-feature android:name="android.hardware.telephony" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.autofocus" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.flash" android:required="false" />)~\n~~\n~AddPermission(android.permission.REQUEST_INSTALL_PACKAGES)~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.INSTALL_PACKAGES)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~'AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.READ_PHONE_STATE)~\n~AddPermission(android.permission.WAKE_LOCK)~\n~'CreateResourceFromFile(Macro, JhsIceZxing1.CaturePortrait)~\n~'AddPermission("android.permission.MANAGE_EXTERNAL_STORAGE")~\n~SetApplicationAttribute(android:largeHeap, "true")~\n~
Module1=appUpdater Module1=appUpdater
Module10=Subs Module10=Subs
Module11=Tracker Module11=Tracker
@@ -86,7 +86,7 @@ Version=12.5
#AdditionalJar: com.google.android.gms:play-services-location #AdditionalJar: com.google.android.gms:play-services-location
#ApplicationLabel: Nuevo Torrado #ApplicationLabel: Nuevo Torrado
#VersionCode: 1 #VersionCode: 1
#VersionName: 3.10.04 #VersionName: 3.11.07
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

2
B4A/NUEVO_TORRADO.b4a.meta
View File

@@ -34,6 +34,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_principal,Class_Globals,0,0,c_datos,Class_Globals,0,0,c_datos,ImageView1_Click,1437,2,c_datos,B4XPage_Appear,257,0,c_datos,Camera1_PictureTaken,1416,6,c_datos,b_foto_Click,1427,0,c_datos,StopCamera2,1430,0,c_datos,B4XPage_CloseRequest,1743,0,c_datos,InitializeCamera2,1241,0,c_datos,cb_socioeconomico_SelectedIndexChanged,1240,0 NavigationStack=Starter,Service_Start,37,0,Subs,revisaBD,23,4,B4XMainPage,b_enviarbd_Click,210,1,C_UpdateAvailable,Class_Globals,0,0,c_datos,Class_Globals,0,0,c_datos,Camera1_PictureTaken,1338,0,Tracker,flp_LocationChanged,172,0,c_datos,b_guardar_Click,1522,6,Starter,Process_Globals,10,2,B4XMainPage,ImageView5_Click,165,0,B4XMainPage,JobDone,148,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=9,1,2,4,3,5,6,7,8,10 VisibleModules=9,1,2,4,3,5,6,7,8,10

2
B4A/Starter.bas
View File

@@ -14,7 +14,7 @@ Sub Process_Globals
'These variables can be accessed from all modules. 'These variables can be accessed from all modules.
Public rp As RuntimePermissions Public rp As RuntimePermissions
Dim reqManager As DBRequestManager Dim reqManager As DBRequestManager
Dim DBReqServer As String = "http://keymon.lat:1781" '"http://keymon.lat:1781" "http://11.0.0.134:1782" ' CAMBIAR HACIA AFUERA O DENTRO DE LA OFNA Dim DBReqServer As String = "http://keymon.lat:1783" '"http://keymon.lat:1781" "http://11.0.0.134:1782" ' CAMBIAR HACIA AFUERA O DENTRO DE LA OFNA
' Dim server As String = "http://10.0.0.205:1782" ' Dim server As String = "http://10.0.0.205:1782"
Dim rutaBD As String = File.DirInternal Dim rutaBD As String = File.DirInternal
Dim skmt As SQL Dim skmt As SQL

1
B4A/Subs.bas
View File

@@ -13,6 +13,7 @@ End Sub
'Revisa que exista la BD y si es necesario crea algunas tablas dentro de ella 'Revisa que exista la BD y si es necesario crea algunas tablas dentro de ella
Sub revisaBD 'ignore Sub revisaBD 'ignore
Log(Starter.rutaBD)
If Not(File.Exists(Starter.rutaBD, "kmt.db")) Then File.Copy(File.DirAssets, "kmt.db", Starter.rutaBD, "kmt.db") If Not(File.Exists(Starter.rutaBD, "kmt.db")) Then File.Copy(File.DirAssets, "kmt.db", Starter.rutaBD, "kmt.db")
If Not(Starter.skmt.IsInitialized) Then Starter.skmt.Initialize(Starter.rutaBD, "kmt.db", True) If Not(Starter.skmt.IsInitialized) Then Starter.skmt.Initialize(Starter.rutaBD, "kmt.db", True)

4
B4A/appUpdater.bas
View File

@@ -242,8 +242,8 @@ Sub fileProvider_init
Dim p As Phone Dim p As Phone
If p.SdkVersion >= 24 Or File.ExternalWritable = False Then If p.SdkVersion >= 24 Or File.ExternalWritable = False Then
UseFileProvider = True UseFileProvider = True
SharedFolder = File.Combine(File.DirInternal, "shared") SharedFolder = File.Combine(File.DirRootExternal, "shared")
If Not(File.IsDirectory(File.DirInternal,"shared")) Then If Not(File.IsDirectory(File.DirRootExternal,"shared")) Then
File.MakeDir("", SharedFolder) File.MakeDir("", SharedFolder)
End If End If
Else Else

46
B4A/c_datos.bas
View File

@@ -240,6 +240,18 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End If End If
End If End If
Log("------------------------------------- INICIO")
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Log("------------------------------------- AQUI ANDO")
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
Log("------------------------------------- SI PASE")
If Result Then
Log("con permisos para escritura")
Else
Log("------------------------------------- NO PASE")
ToastMessageShow("No permission almacenamiento externo!!!", True)
End If
Log("------------------------------------- terminado")
End Sub End Sub
Private Sub B4XPage_Appear Private Sub B4XPage_Appear
@@ -390,9 +402,17 @@ Private Sub B4XPage_Appear
Else If l.GetString("CUENTA") > 0 Then Else If l.GetString("CUENTA") > 0 Then
m = Starter.skmt.ExecQuery2("SELECT * FROM HIST_VISITA WHERE CREDITO = ? AND ESTATUS = 1 OR ESTATUS = 0",Array As String(cuenta))
m = Starter.skmt.ExecQuery2("SELECT * FROM HIST_VISITA WHERE CREDITO = ? AND (ESTATUS = 1 OR ESTATUS = 0)",Array As String(cuenta))
m.Position = 0 m.Position = 0
Log(m.GetString("FOTOUNO"))
LogColor(nombrefoto, Colors.Red)
nombrefoto = m.GetString("FOTOUNO")
nombrefoto1 = m.GetString("FOTODOS")
nombrefoto2 = m.GetString("FOTOTRES")
nombrefoto3 = m.GetString("FOTOCUATRO")
LogColor(nombrefoto, Colors.Blue)
Log(cuenta) Log(cuenta)
e = Starter.skmt.ExecQuery("SELECT PARENTESCO, NUMERO, NUME FROM CAT_PARENTESCO order by 3") e = Starter.skmt.ExecQuery("SELECT PARENTESCO, NUMERO, NUME FROM CAT_PARENTESCO order by 3")
Dim Items2 As List Dim Items2 As List
@@ -605,9 +625,11 @@ Private Sub B4XPage_Appear
If m.GetString("FOTOUNO") = "0" Then If m.GetString("FOTOUNO") = "0" Then
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png") ImageView1.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
Log("NO CARGUE FOTO")
Else Else
ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,m.GetString("FOTOUNO")) ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,m.GetString("FOTOUNO"))
nombrefoto = m.GetString("FOTOUNO") nombrefoto = m.GetString("FOTOUNO")
Log("CARGUE FOTO "& m.GetString("FOTOUNO"))
End If End If
If m.GetString("FOTODOS") = "0" Then If m.GetString("FOTODOS") = "0" Then
@@ -679,7 +701,7 @@ Sub WobbleMenu1_Tab3Click
' frontCamera = camEx2.Front ' frontCamera = camEx2.Front
' Log("inicializamos Camara") ' Log("inicializamos Camara")
Else Else
ToastMessageShow("No permission!!!", True) ToastMessageShow("No permission camara!!!", True)
End If End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
@@ -687,7 +709,7 @@ Sub WobbleMenu1_Tab3Click
If Result Then If Result Then
Log("con permisos para escritura") Log("con permisos para escritura")
Else Else
ToastMessageShow("No permission!!!", True) ToastMessageShow("No permission almacenamiento externo!!!", True)
End If End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE) Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
@@ -695,7 +717,7 @@ Sub WobbleMenu1_Tab3Click
If Result Then If Result Then
Log("con permisos para escritura") Log("con permisos para escritura")
Else Else
ToastMessageShow("No permission!!!", True) ToastMessageShow("No permission lectura!!!", True)
End If End If
p_w1.Visible = False p_w1.Visible = False
@@ -1253,14 +1275,14 @@ Private Sub InitializeCamera2
frontCamera = camEx2.Front frontCamera = camEx2.Front
Log("inicializamos Camara") Log("inicializamos Camara")
Else Else
ToastMessageShow("No permission!!!", True) ToastMessageShow("No permission camara!!!", True)
End If End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then If Result Then
Log("conpermisos para escritura") Log("conpermisos para escritura")
Else Else
ToastMessageShow("No permission!!!", True) ToastMessageShow("No permission escritura!!!", True)
End If End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE) Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
@@ -1268,7 +1290,7 @@ Private Sub InitializeCamera2
If Result Then If Result Then
Log("conpermisos para escritura") Log("conpermisos para escritura")
Else Else
ToastMessageShow("No permission!!!", True) ToastMessageShow("No permission lectura!!!", True)
End If End If
End Sub End Sub
@@ -1504,7 +1526,7 @@ Private Sub b_guardar_Click
j.Position = 0 j.Position = 0
End If End If
DateTime.DateFormat = "dd/MM/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss" DateTime.TimeFormat = "HH:mm:ss"
Dim fecha_captura As String = DateTime.Date(DateTime.Now) Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Dim hora_captura As String = DateTime.Time(DateTime.Now) Dim hora_captura As String = DateTime.Time(DateTime.Now)
@@ -1560,7 +1582,7 @@ Private Sub b_guardar_Click
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem)) j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0 j.Position = 0
End If End If
DateTime.DateFormat = "dd/MM/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss" DateTime.TimeFormat = "HH:mm:ss"
Dim fecha_captura As String = DateTime.Date(DateTime.Now) Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Dim hora_captura As String = DateTime.Time(DateTime.Now) Dim hora_captura As String = DateTime.Time(DateTime.Now)
@@ -1620,7 +1642,7 @@ Private Sub b_guardar_Click
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem)) j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0 j.Position = 0
End If End If
DateTime.DateFormat = "dd/MM/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss" DateTime.TimeFormat = "HH:mm:ss"
Dim fecha_captura As String = DateTime.Date(DateTime.Now) Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Dim hora_captura As String = DateTime.Time(DateTime.Now) Dim hora_captura As String = DateTime.Time(DateTime.Now)
@@ -1680,7 +1702,7 @@ Private Sub b_guardar_Click
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem)) j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0 j.Position = 0
End If End If
DateTime.DateFormat = "dd/MM/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss" DateTime.TimeFormat = "HH:mm:ss"
Dim fecha_captura As String = DateTime.Date(DateTime.Now) Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Dim hora_captura As String = DateTime.Time(DateTime.Now) Dim hora_captura As String = DateTime.Time(DateTime.Now)

4
B4XMainPage.bas
View File

@@ -169,8 +169,8 @@ End Sub
Private Sub ImageView5_Click Private Sub ImageView5_Click
p_configuracion.Visible = True p_configuracion.Visible = True
lv_server.Clear lv_server.Clear
lv_server.AddSingleLine("http://keymon.lat:1781") lv_server.AddSingleLine("http://keymon.lat:1783")
If Usuario.Text = "KMTS1" Then lv_server.AddSingleLine("http://11.0.0.134:1782") If Usuario.Text = "KMTS1" Then lv_server.AddSingleLine("http://11.0.0.134:1783")
' l_server.Text = Starter.server ' l_server.Text = Starter.server
et_server.Text = Starter.DBReqServer et_server.Text = Starter.DBReqServer
l_version.Visible = False l_version.Visible = False