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

....

Browse Source
This commit is contained in:
cvaldes1201
2025-07-01 11:33:47 -06:00
parent 8e5d084e2d
commit 1a3a6d5ed9
40 changed files with 4753 additions and 1002 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/C_NoVenta.bas
View File

@@ -33,6 +33,7 @@ Sub Class_Globals
Private p_NoVenta As Panel
Dim tipo_venta = Subs.traeTipoVentaDeBD
Dim bitacora As C_Bitacora
Private Panel1 As Panel
End Sub
'You can add more parameters here.
@@ -58,13 +59,20 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub B4XPage_Appear
Panel1.Height = Root.Height
Panel1.Width = Root.Width
Subs.centraPanel(Panel1, Root.Width)
Subs.centraPanelV(Panel1, Root.Height)
e_comm.Text=""
tgl.Initialize
If Not(Starter.gps.GPSEnabled) Then
ToastMessageShow("Es necesario tener el GPS encendido", True)
StartActivity(Starter.gps.LocationSettingsIntent)
End If
r_1.Checked = True
r_1.Checked = False
r_2.Checked = False
r_3.Checked = False
r_4.Checked = False
End Sub
Sub GPS_LocationChanged (Location1 As Location)