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

cambios en permisos y server aparezca keymon.lat

Browse Source
This commit is contained in:
cvaldes1201
2024-01-31 12:47:05 -06:00
parent 58d00b9a7a
commit 98f0438179
5 changed files with 25 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
B4A/B4XMainPage.bas
View File

@@ -225,6 +225,15 @@ Sub B4XPage_Appear
Else Else
Log("SIN permisos de ubicacion") Log("SIN permisos de ubicacion")
End If End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
' camEx2.Initialize(p_cam, frontCamera, Me, "Camera1")
' frontCamera = camEx2.Front
' If logger Then Log("inicializamos Camara")
Else
ToastMessageShow("Sin permisos de camara!!!", True)
End If
p_Main.Width = Root.Width p_Main.Width = Root.Width
Dim ph As Phone 'Get Id Device Dim ph As Phone 'Get Id Device
Dim DeviceID As String = ph.GetSettings("android_id").ToUpperCase Dim DeviceID As String = ph.GetSettings("android_id").ToUpperCase

11
B4A/C_NuevoCliente.bas
View File

@@ -60,7 +60,7 @@ Sub Class_Globals
Dim q As C_Cuestionario Dim q As C_Cuestionario
Dim su As StringUtils Dim su As StringUtils
Dim clienteAnt As String = "" Dim clienteAnt As String = ""
dim cuestionarioTexto as string Dim cuestionarioTexto As String
End Sub End Sub
'You can add more parameters here. 'You can add more parameters here.
@@ -90,6 +90,15 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub B4XPage_Appear Sub B4XPage_Appear
rp.CheckAndRequest(rp.PERMISSION_CAMERA)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
' camEx2.Initialize(p_cam, frontCamera, Me, "Camera1")
' frontCamera = camEx2.Front
' If logger Then Log("inicializamos Camara")
Else
ToastMessageShow("Sin permisos de camara!!!", True)
End If
camposModificados.Initialize camposModificados.Initialize
l_cuestionario.Visible = False l_cuestionario.Visible = False
l_tituloCuestionaro.Visible = False l_tituloCuestionaro.Visible = False

2
B4A/Mariana Censos.b4a
View File

@@ -753,7 +753,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Mariana Censos #ApplicationLabel: Mariana Censos
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.01.30 #VersionName: 4.01.31
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

8
B4A/Mariana Censos.b4a.meta
View File

@@ -41,14 +41,14 @@ ModuleClosedNodes13=3,5
ModuleClosedNodes14= ModuleClosedNodes14=
ModuleClosedNodes15= ModuleClosedNodes15=
ModuleClosedNodes16=4,5,6,10,13,17,18,19 ModuleClosedNodes16=4,5,6,10,13,17,18,19
ModuleClosedNodes2=2 ModuleClosedNodes2=
ModuleClosedNodes3= ModuleClosedNodes3=
ModuleClosedNodes4=6,7,10,11,14,15,16,17,18,20,21,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44 ModuleClosedNodes4=6,7,10,11,14,15,16,17,18,20,21,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44
ModuleClosedNodes5= ModuleClosedNodes5=
ModuleClosedNodes6= ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8=6,9,11,12,13,14,16,17 ModuleClosedNodes8=9,13,14,16,17
ModuleClosedNodes9=1,5 ModuleClosedNodes9=1,5
NavigationStack=C_Cliente,ajustaTamano,783,0,C_NuevoCliente,B4XPage_Appear,107,6,C_Cliente,B4XPage_Appear,310,0,C_NuevoCliente,ajustaTamano,568,0,B4XMainPage,Initialize,78,0,Visual Designer,clienteDatos.bal,-100,3,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,517,0,C_Principal,JobDone,666,6,C_Cliente,mandaPendientes,418,0,C_NuevoCliente,mandaPendientesNuevosClientes,464,3 NavigationStack=C_NuevoCliente,mandaPendientesNuevosClientes,464,3,Starter,Service_Create,34,0,Starter,Process_Globals,15,3,C_Clientes,clv_clientes_ItemClick,175,0,MAPA_RUTAS,OnInfoWindowClickListener1_click,259,0,C_NuevoCliente,Class_Globals,42,0,C_NuevoCliente,InitializeCamera2,281,0,C_Principal,nvo_cliente_Click,1077,0,B4XMainPage,B4XPage_Appear,226,2,C_NuevoCliente,B4XPage_Appear,91,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,14,6,9,4,8,5,15,7,16 VisibleModules=2,14,6,9,4,8,5,15,7,16,13

2
B4A/Starter.bas
View File

@@ -18,7 +18,7 @@ Sub Process_Globals
Public FLP As FusedLocationProvider Public FLP As FusedLocationProvider
' Private flpStarted As Boolean ' Private flpStarted As Boolean
Dim reqManager As DBRequestManager Dim reqManager As DBRequestManager
Dim server As String = "http://187.189.244.154:1781" Dim server As String = "http://keymon.lat:1781"
' Dim server As String = "http://187.189.244.154:1783" ' Dim server As String = "http://187.189.244.154:1783"
' Dim server As String = "http://10.0.0.205:1782" ' Dim server As String = "http://10.0.0.205:1782"
' Dim server As String = "http://11.0.0.231:1782" ' Dim server As String = "http://11.0.0.231:1782"