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 'Obtenemos el usuario registrado
' CallSubDelayed(FirebaseMessaging, "SubscribeToTopics") ' CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
dameUsuario dameUsuario
If Not(s.CheckNotificationAccess) Then ' 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) ' 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) ' Wait For Msgbox_Result (resultado As Int)
If resultado = DialogResponse.POSITIVE Then ' If resultado = DialogResponse.POSITIVE Then
Dim In As Intent ' Dim In As Intent
In.Initialize("android.settings.ACTION_NOTIFICATION_LISTENER_SETTINGS", "") ' In.Initialize("android.settings.ACTION_NOTIFICATION_LISTENER_SETTINGS", "")
StartActivity(In) ' StartActivity(In)
End If ' End If
' Private cd1 As ColorDrawable '' Private cd1 As ColorDrawable
' cd1.Initialize(Colors.red, 10dip) '' cd1.Initialize(Colors.red, 10dip)
' b_notifAccess.Background = cd1 '' b_notifAccess.Background = cd1
' b_notifAccess.TextColor = Colors.White '' b_notifAccess.TextColor = Colors.White
' b_notifAccess.Text = "Activar Permisos" '' b_notifAccess.Text = "Activar Permisos"
Else ' Else
' Private cd1 As ColorDrawable '' Private cd1 As ColorDrawable
' cd1.Initialize(Colors.RGB(109, 221, 101), 10dip) '' cd1.Initialize(Colors.RGB(109, 221, 101), 10dip)
' b_notifAccess.Background = cd1 '' b_notifAccess.Background = cd1
' b_notifAccess.TextColor = Colors.White '' b_notifAccess.TextColor = Colors.White
' b_notifAccess.Text = "Permisos Activos" '' b_notifAccess.Text = "Permisos Activos"
End If ' End If
End Sub End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. '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 lv_server.Clear
ime.HideKeyboard ime.HideKeyboard
lv_server.AddSingleLine("http://keymon.lat:1781") lv_server.AddSingleLine("http://keymon.lat:1781")
lv_server.AddSingleLine("http://keymon.lat:1782") ' lv_server.AddSingleLine("http://keymon.lat:1781")
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782") If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1781")
' lv_server.AddSingleLine("http://40.123.36.38:1782") ' lv_server.AddSingleLine("http://40.123.36.38:1782")
l_server.Text = Starter.DBReqServer l_server.Text = Starter.DBReqServer
Subs.panelVisible(p_appUpdate,0,0) Subs.panelVisible(p_appUpdate,0,0)

2
B4A/INTMEX_LL.b4a
View File

@@ -161,7 +161,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Intmex v1 #ApplicationLabel: Intmex v1
#VersionCode: 1 #VersionCode: 1
#VersionName: 3.11.05 #VersionName: 3.11.13
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/INTMEX_LL.b4a.meta
View File

@@ -66,7 +66,7 @@ ModuleClosedNodes16=
ModuleClosedNodes17= ModuleClosedNodes17=
ModuleClosedNodes18= ModuleClosedNodes18=
ModuleClosedNodes19= ModuleClosedNodes19=
ModuleClosedNodes2=5 ModuleClosedNodes2=
ModuleClosedNodes20= ModuleClosedNodes20=
ModuleClosedNodes21= ModuleClosedNodes21=
ModuleClosedNodes22=2 ModuleClosedNodes22=2
@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8=1 ModuleClosedNodes8=1
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=2,25,23,12,15,13,4,26,14,8 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 Public FLP As FusedLocationProvider
' Private flpStarted As Boolean ' Private flpStarted As Boolean
Dim reqManager As DBRequestManager 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://187.189.244.154:1783"
' Dim DBReqServer As String = "http://10.0.0.205:1783" ' Dim DBReqServer As String = "http://10.0.0.205:1783"
' Dim DBReqServer As String = "http://11.0.0.15:1782" ' Dim DBReqServer As String = "http://11.0.0.15:1782"