From 62ecc803375b58bee7a80c0ad3af4a994645f83a Mon Sep 17 00:00:00 2001 From: IsR0d Date: Wed, 24 Jul 2024 12:28:38 -0600 Subject: [PATCH] Se modifico el codigo para que los usuarios no puedan aceder si ya no estan activos. --- B4A/C_Cliente.bas | 4 +++- B4A/C_Principal.bas | 2 +- B4A/Profina.b4a | 2 +- B4A/Profina.b4a.meta | 4 ++-- 4 files changed, 7 insertions(+), 5 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 8685dad..224a9f6 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -388,7 +388,8 @@ Sub GPS_LocationChanged (Location1 As Location) distance = l1.DistanceTo(l2) 'the result is in meter gest.Visible = True ' Log(distance) - If distance < 3000000000000000000000000000000000000000000000000000 Then +' If distance < 3000000000000000000000000000000000000 Then + If distance < 30 Then Tels.Visible = True gest.Visible = True LA_GEO.TextColor = Colors.Blue @@ -426,6 +427,7 @@ Sub gest_Click End Sub Sub Tels_Click + et_Solicita.Text = "" B4XPages.ShowPage("NoVenta") End Sub diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 4b28cb6..af3b13c 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1029,7 +1029,7 @@ Sub JobDone(Job As HttpJob) If n = "OKActivo" Then Dim cmd As DBCommand 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) reqManager.ExecuteQuery(cmd , 0, "ruta") Log("Usuario guardado en BD es 'Valido'") diff --git a/B4A/Profina.b4a b/B4A/Profina.b4a index bba8314..e04a88f 100644 --- a/B4A/Profina.b4a +++ b/B4A/Profina.b4a @@ -1069,7 +1069,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Profina #VersionCode: 1 - #VersionName: 4.04.21 + #VersionName: 4.07.20 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Profina.b4a.meta b/B4A/Profina.b4a.meta index ef9e8b7..eb62e69 100644 --- a/B4A/Profina.b4a.meta +++ b/B4A/Profina.b4a.meta @@ -82,6 +82,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= 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 -VisibleModules=1,2,3,12,4,5,6,7,8,9,13 +VisibleModules=1,2,3,12,4,5,6,7,8,9