cheveguerra/Salma_Viejo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Salma_Viejo.git synced 2026-04-20 14:19:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.12.31

Browse Source 
- Se quito el mensaje de "NUEVO APK"
- Se cambio el puerto del servidor DBReq de 1782 a 1781
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-01-02 09:50:44 -06:00
parent f825f4c7aa
commit 577248d83f
2 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
salma.b4a
View File

@@ -127,7 +127,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Salma-Preventa #ApplicationLabel: Salma-Preventa
#VersionCode: 1 #VersionCode: 1
#VersionName: 1.11.02 #VersionName:4.12.31
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
@@ -208,7 +208,7 @@ Sub Activity_Create(FirstTime As Boolean)
'c.Position =0 'c.Position =0
'server = c.GetString("CAT_CO_CONFIGURACION") 'server = c.GetString("CAT_CO_CONFIGURACION")
'c.Close 'c.Close
server = "http://keymon.lat:1782" server = "http://keymon.lat:1781"
'server = "http://10.0.0.205:1782" 'server = "http://10.0.0.205:1782"
'server = "http://177.244.63.54:1782" 'server = "http://177.244.63.54:1782"
'server = "http://keymon.com.mx:1782" 'server = "http://keymon.com.mx:1782"
@@ -236,7 +236,7 @@ End Sub
Sub Activity_Resume Sub Activity_Resume
'server = "http://177.244.63.54:1782" 'server = "http://177.244.63.54:1782"
'server = "http://keymon.com.mx:1782" 'server = "http://keymon.com.mx:1782"
server = "http://keymon.lat:1782" server = "http://keymon.lat:1781"
'server = "http://10.0.0.205:1782" 'server = "http://10.0.0.205:1782"
reqManager.Initialize(Me, server) reqManager.Initialize(Me, server)
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION) Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
@@ -268,10 +268,10 @@ Sub Activity_Resume
DateTime.DateFormat = "yyyyMMdd" DateTime.DateFormat = "yyyyMMdd"
sDate=DateTime.Date(DateTime.Now) sDate=DateTime.Date(DateTime.Now)
If sDate > "20230430" Then ' If sDate > "20230430" Then
Msgbox("INSTALAR NUEVO APK" ,"AVISO") ' Msgbox("INSTALAR NUEVO APK" ,"AVISO")
Activity_Resume ' Activity_Resume
End If ' End If
DateTime.DateFormat = "yyyyMMdd" DateTime.DateFormat = "yyyyMMdd"
sDate=DateTime.Date(DateTime.Now) sDate=DateTime.Date(DateTime.Now)

8
seleccion.bas
View File

@@ -108,7 +108,7 @@ End Sub
Sub Activity_Create(FirstTime As Boolean) Sub Activity_Create(FirstTime As Boolean)
EJECUTANDO=1 EJECUTANDO=1
'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://keymon.com.mx:1782"
SERVER = "http://177.244.63.54:1782" SERVER = "http://177.244.63.54:1781"
If FirstTime Then If FirstTime Then
reqManager.Initialize(Me, SERVER) reqManager.Initialize(Me, SERVER)
@@ -188,7 +188,7 @@ Sub Activity_Resume
'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://keymon.com.mx:1782"
'SERVER = "http://201.99.139.28:1782" 'SERVER = "http://201.99.139.28:1782"
'SERVER = "http://177.244.63.54:1782" 'SERVER = "http://177.244.63.54:1782"
SERVER = "http://keymon.lat:1782" SERVER = "http://keymon.lat:1781"
' SERVER = "http://10.0.0.205:1782" ' SERVER = "http://10.0.0.205:1782"
reqManager.Initialize(Me, SERVER) reqManager.Initialize(Me, SERVER)
@@ -1447,13 +1447,13 @@ Sub connecta_Click
If connecta1 / 2 = 1 Then If connecta1 / 2 = 1 Then
SERVER = "http://keymon.lat:1782" SERVER = "http://keymon.lat:1781"
' SERVER = "http://10.0.0.205:1782" ' SERVER = "http://10.0.0.205:1782"
'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://keymon.com.mx:1782"
'SERVER = "http://177.244.63.54:1782" 'SERVER = "http://177.244.63.54:1782"
reqManager.Initialize(Me, SERVER) reqManager.Initialize(Me, SERVER)
Else Else
SERVER = "http://keymon.lat:1782" SERVER = "http://keymon.lat:1781"
' SERVER = "http://10.0.0.205:1782" ' SERVER = "http://10.0.0.205:1782"
'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://keymon.com.mx:1782"
' SERVER = "http://177.244.63.54:1782" ' SERVER = "http://177.244.63.54:1782"