From cd9cc2a4c79a2ec5b89bc42433a4fb41e47b7b79 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Wed, 22 Nov 2023 14:24:15 -0600 Subject: [PATCH] ... --- B4A/B4XMainPage.bas | 44 +++++++++++++++++++++--------------------- B4A/INTMEX_LL.b4a | 2 +- B4A/INTMEX_LL.b4a.meta | 4 ++-- B4A/Starter.bas | 2 +- 4 files changed, 26 insertions(+), 26 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index a9acbde..416d2fa 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -298,26 +298,26 @@ Sub B4XPage_Appear 'Obtenemos el usuario registrado ' CallSubDelayed(FirebaseMessaging, "SubscribeToTopics") dameUsuario - If Not(s.CheckNotificationAccess) Then - Msgbox2Async($"Se necesita acceso a las notificaciones, haga clic en "Aceptar" y en la siguiente pantalla permita el acceso a la aplicación "${Application.LabelName}"."$, "Permisos necesarios", "Aceptar", "Cancelar", "", Null, True) - Wait For Msgbox_Result (resultado As Int) - If resultado = DialogResponse.POSITIVE Then - Dim In As Intent - In.Initialize("android.settings.ACTION_NOTIFICATION_LISTENER_SETTINGS", "") - StartActivity(In) - End If -' Private cd1 As ColorDrawable -' cd1.Initialize(Colors.red, 10dip) -' b_notifAccess.Background = cd1 -' b_notifAccess.TextColor = Colors.White -' b_notifAccess.Text = "Activar Permisos" - Else -' Private cd1 As ColorDrawable -' cd1.Initialize(Colors.RGB(109, 221, 101), 10dip) -' b_notifAccess.Background = cd1 -' b_notifAccess.TextColor = Colors.White -' b_notifAccess.Text = "Permisos Activos" - End If +' If Not(s.CheckNotificationAccess) Then +' Msgbox2Async($"Se necesita acceso a las notificaciones, haga clic en "Aceptar" y en la siguiente pantalla permita el acceso a la aplicación "${Application.LabelName}"."$, "Permisos necesarios", "Aceptar", "Cancelar", "", Null, True) +' Wait For Msgbox_Result (resultado As Int) +' If resultado = DialogResponse.POSITIVE Then +' Dim In As Intent +' In.Initialize("android.settings.ACTION_NOTIFICATION_LISTENER_SETTINGS", "") +' StartActivity(In) +' End If +'' Private cd1 As ColorDrawable +'' cd1.Initialize(Colors.red, 10dip) +'' b_notifAccess.Background = cd1 +'' b_notifAccess.TextColor = Colors.White +'' b_notifAccess.Text = "Activar Permisos" +' Else +'' Private cd1 As ColorDrawable +'' cd1.Initialize(Colors.RGB(109, 221, 101), 10dip) +'' b_notifAccess.Background = cd1 +'' b_notifAccess.TextColor = Colors.White +'' b_notifAccess.Text = "Permisos Activos" +' End If End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. @@ -673,8 +673,8 @@ Sub i_engrane_Click lv_server.Clear ime.HideKeyboard lv_server.AddSingleLine("http://keymon.lat:1781") - lv_server.AddSingleLine("http://keymon.lat:1782") - If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782") +' lv_server.AddSingleLine("http://keymon.lat:1781") + If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1781") ' lv_server.AddSingleLine("http://40.123.36.38:1782") l_server.Text = Starter.DBReqServer Subs.panelVisible(p_appUpdate,0,0) diff --git a/B4A/INTMEX_LL.b4a b/B4A/INTMEX_LL.b4a index c7bf9fa..0b89edd 100644 --- a/B4A/INTMEX_LL.b4a +++ b/B4A/INTMEX_LL.b4a @@ -161,7 +161,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Intmex v1 #VersionCode: 1 - #VersionName: 3.11.05 + #VersionName: 3.11.13 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/INTMEX_LL.b4a.meta b/B4A/INTMEX_LL.b4a.meta index e5c98ae..740807c 100644 --- a/B4A/INTMEX_LL.b4a.meta +++ b/B4A/INTMEX_LL.b4a.meta @@ -66,7 +66,7 @@ ModuleClosedNodes16= ModuleClosedNodes17= ModuleClosedNodes18= ModuleClosedNodes19= -ModuleClosedNodes2=5 +ModuleClosedNodes2= ModuleClosedNodes20= ModuleClosedNodes21= ModuleClosedNodes22=2 @@ -82,6 +82,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=1 ModuleClosedNodes9= -NavigationStack=C_Principal,cargar_Click,689,0,B4XMainPage,b_importarBD_Click,708,0,B4XMainPage,b_enviarbd_Click,707,0,C_Principal,connecta_Click,1651,6,B4XMainPage,JobDone,428,0,Starter,reinicializaReqManager,119,0,B4XMainPage,lv_server_ItemClick,688,0,B4XMainPage,B4XPage_Appear,247,3,B4XMainPage,Entrar_Click,378,3,C_Principal,JobDone,1458,1,C_Principal,Subir_Click,542,0 +NavigationStack=B4XMainPage,lv_server_ItemClick,688,0,B4XMainPage,Entrar_Click,378,3,C_Principal,JobDone,1458,1,C_Principal,Subir_Click,542,0,B4XMainPage,B4XPage_Created,174,0,Starter,Process_Globals,16,0,B4XMainPage,i_engrane_Click,670,0,B4XMainPage,muestraProgreso,660,0,B4XMainPage,B4XPage_Appear,283,3,C_Productos,B4XPage_Appear,192,0,C_Productos,clv_prods_ll_VisibleRangeChanged,843,0 SelectedBuild=0 VisibleModules=2,25,23,12,15,13,4,26,14,8 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index 0422fe4..714260f 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -20,7 +20,7 @@ Sub Process_Globals Public FLP As FusedLocationProvider ' Private flpStarted As Boolean Dim reqManager As DBRequestManager - Dim DBReqServer As String = "http://187.189.244.154:1782" + Dim DBReqServer As String = "http://187.189.244.154:1781" ' Dim DBReqServer As String = "http://187.189.244.154:1783" ' Dim DBReqServer As String = "http://10.0.0.205:1783" ' Dim DBReqServer As String = "http://11.0.0.15:1782"