cheveguerra/Profina_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Profina_Preventa.git synced 2026-04-19 21:59:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se modifico el codigo para que los usuarios no puedan aceder si ya no estan activos.

Browse Source
This commit is contained in:
IsR0d
2024-07-24 12:28:38 -06:00
parent 5027129b4a
commit 62ecc80337
4 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Cliente.bas
View File

@@ -388,7 +388,8 @@ Sub GPS_LocationChanged (Location1 As Location)
distance = l1.DistanceTo(l2) 'the result is in meter distance = l1.DistanceTo(l2) 'the result is in meter
gest.Visible = True gest.Visible = True
' Log(distance) ' Log(distance)
If distance < 3000000000000000000000000000000000000000000000000000 Then ' If distance < 3000000000000000000000000000000000000 Then
If distance < 30 Then
Tels.Visible = True Tels.Visible = True
gest.Visible = True gest.Visible = True
LA_GEO.TextColor = Colors.Blue LA_GEO.TextColor = Colors.Blue
@@ -426,6 +427,7 @@ Sub gest_Click
End Sub End Sub
Sub Tels_Click Sub Tels_Click
et_Solicita.Text = ""
B4XPages.ShowPage("NoVenta") B4XPages.ShowPage("NoVenta")
End Sub End Sub

2
B4A/C_Principal.bas
View File

@@ -1029,7 +1029,7 @@ Sub JobDone(Job As HttpJob)
If n = "OKActivo" Then If n = "OKActivo" Then
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "select_ruta_PRO2_224_2" cmd.Name = "select_ruta_PRO2_224_3"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text) cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "ruta") reqManager.ExecuteQuery(cmd , 0, "ruta")
Log("Usuario guardado en BD es 'Valido'") Log("Usuario guardado en BD es 'Valido'")

2
B4A/Profina.b4a
View File

@@ -1069,7 +1069,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Profina #ApplicationLabel: Profina
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.04.21 #VersionName: 4.07.20
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/Profina.b4a.meta
View File

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Productos,clv_prods_ll_VisibleRangeChanged,862,0,C_Principal,e_ruta_TextChanged,2247,0,C_Productos,Busca_TextChanged,863,0,C_Cliente,et_Solicita_TextChanged,551,3,C_Productos,et_pCant_TextChanged,524,0,C_Cliente,Class_Globals,140,0,C_Cliente,B4XPage_Appear,358,6,C_Cliente,b_mapa_Click,629,0,C_Cliente,B_IMP_Click,635,0,appUpdater,Service_Create,102,0,B4XMainPage,Class_Globals,22,0 NavigationStack=C_Cliente,B4XPage_CloseRequest,426,0,DBRequestManager,Class_Globals,9,0,DBRequestManager,ExecuteQuery,36,0,appUpdater,CreateNotification,220,0,appUpdater,CreateNotification2,218,0,appUpdater,download_newApk,158,0,B4XMainPage,B4XPage_Created,172,0,C_Cliente,GPS_LocationChanged,385,0,C_Principal,Class_Globals,0,0,C_Principal,B4XPage_Created,247,0,C_Principal,JobDone,1025,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,2,3,12,4,5,6,7,8,9,13 VisibleModules=1,2,3,12,4,5,6,7,8,9