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

21-09-23 TECLADO Y PERMISOS

Browse Source
This commit is contained in:
cvaldes1201
2023-09-21 12:09:26 -06:00
parent 03ad185af9
commit 9059bda2f4
4 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/C_Cliente.bas
View File

@@ -191,10 +191,10 @@ End Sub
Sub B4XPage_Appear Sub B4XPage_Appear
reqManager.Initialize(Me, Starter.server) reqManager.Initialize(Me, Starter.server)
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA) ' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean) ' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
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, resultC As Boolean) ' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean)
LA_GPS.TextColor = Colors.Red LA_GPS.TextColor = Colors.Red
LA_GPS.Text = "SIN UBICACION GPS" LA_GPS.Text = "SIN UBICACION GPS"
cercavalor = 0 cercavalor = 0

4
B4A/C_Nota.bas
View File

@@ -111,10 +111,6 @@ Sub B4XPage_Appear
If Subs.pedidoGuardado Then borra.Enabled = False Else borra.Enabled = True If Subs.pedidoGuardado Then borra.Enabled = False Else borra.Enabled = True
End Sub End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub GPS_LocationChanged (Location1 As Location) Sub GPS_LocationChanged (Location1 As Location)
'lat_gps=Location1.ConvertToSeconds(Location1.Latitude) 'lat_gps=Location1.ConvertToSeconds(Location1.Latitude)
'lon_gps=Location1.ConvertToSeconds(Location1.Longitude) 'lon_gps=Location1.ConvertToSeconds(Location1.Longitude)

2
B4A/C_Principal.bas
View File

@@ -16,6 +16,7 @@ Sub Class_Globals
Dim sb As StringBuilder Dim sb As StringBuilder
Dim PHONE As Phone Dim PHONE As Phone
Dim g As GPS Dim g As GPS
Dim IME as IME
Dim trabajar As Button Dim trabajar As Button
' Dim lat_gps, lon_gps As String ' Dim lat_gps, lon_gps As String
Dim c As Cursor Dim c As Cursor
@@ -728,6 +729,7 @@ Sub Subir_Click
End Sub End Sub
Sub cargar_Click Sub cargar_Click
IME.HideKeyboard
Dim pedidodiaanterior As Boolean = False Dim pedidodiaanterior As Boolean = False
Dim cp As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * from PEDIDO") Dim cp As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * from PEDIDO")
If cp.RowCount > 0 Then If cp.RowCount > 0 Then

4
B4A/Mariana.b4a.meta
View File

@@ -76,6 +76,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 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