cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-17 21:06:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
cvaldes1201
2023-11-22 14:24:15 -06:00
parent 9d8e8a3cc5
commit cd9cc2a4c7
4 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
B4A/B4XMainPage.bas
View File

@@ -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)

2
B4A/INTMEX_LL.b4a
View File

@@ -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

4
B4A/INTMEX_LL.b4a.meta
View File

@@ -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

2
B4A/Starter.bas
View File

@@ -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"