cheveguerra/Salma_Viejo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Salma_Viejo.git synced 2026-04-17 12:56:26 +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
#ApplicationLabel: Salma-Preventa
#VersionCode: 1
#VersionName: 1.11.02
#VersionName:4.12.31
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
@@ -208,7 +208,7 @@ Sub Activity_Create(FirstTime As Boolean)
'c.Position =0
'server = c.GetString("CAT_CO_CONFIGURACION")
'c.Close
server = "http://keymon.lat:1782"
server = "http://keymon.lat:1781"
'server = "http://10.0.0.205:1782"
'server = "http://177.244.63.54:1782"
'server = "http://keymon.com.mx:1782"
@@ -236,7 +236,7 @@ End Sub
Sub Activity_Resume
'server = "http://177.244.63.54:1782"
'server = "http://keymon.com.mx:1782"
server = "http://keymon.lat:1782"
server = "http://keymon.lat:1781"
'server = "http://10.0.0.205:1782"
reqManager.Initialize(Me, server)
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
@@ -268,10 +268,10 @@ Sub Activity_Resume
DateTime.DateFormat = "yyyyMMdd"
sDate=DateTime.Date(DateTime.Now)
If sDate > "20230430" Then
Msgbox("INSTALAR NUEVO APK" ,"AVISO")
Activity_Resume
End If
' If sDate > "20230430" Then
' Msgbox("INSTALAR NUEVO APK" ,"AVISO")
' Activity_Resume
' End If
DateTime.DateFormat = "yyyyMMdd"
sDate=DateTime.Date(DateTime.Now)

8
seleccion.bas
View File

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