diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index ae82e7b..ff3da34 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -191,10 +191,10 @@ End Sub Sub B4XPage_Appear reqManager.Initialize(Me, Starter.server) - Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA) - Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean) - Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) - Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean) +' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA) +' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean) +' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) +' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean) LA_GPS.TextColor = Colors.Red LA_GPS.Text = "SIN UBICACION GPS" cercavalor = 0 diff --git a/B4A/C_Nota.bas b/B4A/C_Nota.bas index 3e1068e..d7f1988 100644 --- a/B4A/C_Nota.bas +++ b/B4A/C_Nota.bas @@ -111,10 +111,6 @@ Sub B4XPage_Appear If Subs.pedidoGuardado Then borra.Enabled = False Else borra.Enabled = True End Sub -Sub Activity_Pause (UserClosed As Boolean) - -End Sub - Sub GPS_LocationChanged (Location1 As Location) 'lat_gps=Location1.ConvertToSeconds(Location1.Latitude) 'lon_gps=Location1.ConvertToSeconds(Location1.Longitude) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index baa51ef..1c2cac5 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -16,6 +16,7 @@ Sub Class_Globals Dim sb As StringBuilder Dim PHONE As Phone Dim g As GPS + Dim IME as IME Dim trabajar As Button ' Dim lat_gps, lon_gps As String Dim c As Cursor @@ -728,6 +729,7 @@ Sub Subir_Click End Sub Sub cargar_Click + IME.HideKeyboard Dim pedidodiaanterior As Boolean = False Dim cp As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * from PEDIDO") If cp.RowCount > 0 Then diff --git a/B4A/Mariana.b4a.meta b/B4A/Mariana.b4a.meta index 48757ce..be23861 100644 --- a/B4A/Mariana.b4a.meta +++ b/B4A/Mariana.b4a.meta @@ -76,6 +76,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_RespaldoDiario,respaldaPedido,66,1,C_RespaldoDiario,agregaColumna,104,1,C_RespaldoDiario,vacuum,98,0,C_RespaldoDiario,respaldaInventarios,80,0,C_Cliente,b_abono_Click,903,0,C_Subs,Class_Globals,0,0,C_Principal,Class_Globals,0,0,MAPA_RUTAS,Process_Globals,14,0,MAPA_RUTAS,MapFragment1_Ready,228,0,B4XMainPage,Class_Globals,16,0,C_Principal,B4XPage_CloseRequest,1742,0 +NavigationStack=B4XMainPage,Class_Globals,19,0,C_Clientes,Mods,0,0,C_Cliente,MODS,0,0,CameraExClass2,TakePicture,102,0,CameraExClass2,Camera_Ready,91,0,CameraExClass2,SetDisplayOrientation,76,0,C_Cliente,B4XPage_Appear,190,0,C_Nota,B4XPage_Appear,106,0,B4XMainPage,B4XPage_Created,252,0,C_Principal,Class_Globals,12,4,C_Principal,cargar_Click,725,2 SelectedBuild=0 -VisibleModules=2,23,12,16,24,4,5,13,14,25 +VisibleModules=2,23,12,16,24,4,5,13,14,25,19,8