cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-19 21:59:22 +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
Log("SIN permisos de ubicacion")
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
Dim ph As Phone 'Get Id Device
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 su As StringUtils
Dim clienteAnt As String = ""
dim cuestionarioTexto as string
Dim cuestionarioTexto As String
End Sub
'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.
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
l_cuestionario.Visible = False
l_tituloCuestionaro.Visible = False

2
B4A/Mariana Censos.b4a
View File

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

8
B4A/Mariana Censos.b4a.meta
View File

@@ -41,14 +41,14 @@ ModuleClosedNodes13=3,5
ModuleClosedNodes14=
ModuleClosedNodes15=
ModuleClosedNodes16=4,5,6,10,13,17,18,19
ModuleClosedNodes2=2
ModuleClosedNodes2=
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
ModuleClosedNodes5=
ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=6,9,11,12,13,14,16,17
ModuleClosedNodes8=9,13,14,16,17
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
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
' Private flpStarted As Boolean
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://10.0.0.205:1782"
' Dim server As String = "http://11.0.0.231:1782"