cheveguerra/Android_Danvit
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Android_Danvit.git synced 2026-04-17 19:37:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Se actualizo el servidor a keymon.net

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2026-01-06 17:22:01 -06:00
parent 3a566e6d58
commit e462283bc5
4 changed files with 16 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
danvit.b4a
View File

@@ -143,12 +143,12 @@ Module9=foto
NumberOfFiles=49 NumberOfFiles=49
NumberOfLibraries=20 NumberOfLibraries=20
NumberOfModules=21 NumberOfModules=21
Version=12.5 Version=12.8
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Danvit-V #ApplicationLabel: Danvit-V
#VersionCode: 1 #VersionCode: 1
#VersionName: 1.12.06 #VersionName: 5.12.06
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
@@ -245,7 +245,7 @@ Sub Activity_Create(FirstTime As Boolean)
End If End If
C.Close C.Close
server = "http://keymon.com.mx:1782" server = "http://keymon.net:1782"
'server = "http://201.99.139.28:1783" 'server = "http://201.99.139.28:1783"
If FirstTime Then If FirstTime Then
reqManager.Initialize(Me, server) reqManager.Initialize(Me, server)
@@ -291,9 +291,9 @@ Sub Activity_Resume
Log("Sin permisos de almacenamiento") Log("Sin permisos de almacenamiento")
End If End If
'server = "http://201.99.139.28:1782" 'server = "http://201.99.139.28:1782"
'server = "http://keymon.com.mx:1782" 'server = "http://keymon.net:1782"
'server = "http://177.244.63.54:1782" 'server = "http://177.244.63.54:1782"
server = "http://187.189.244.154:1782" server = "http://keymon.net:1782"
' Log(File.DirInternal) ' Log(File.DirInternal)
' If Not(skmt.IsInitialized) Then skmt.Initialize(ruta,"kmt.db", True) : Log("Reinicializamos skmt") ' If Not(skmt.IsInitialized) Then skmt.Initialize(ruta,"kmt.db", True) : Log("Reinicializamos skmt")
reqManager.Initialize(Me, server) reqManager.Initialize(Me, server)

4
danvit.b4a.meta
View File

@@ -64,6 +64,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=seleccion,connecta_Click,1870,2,Visual Designer,seleccion.bal,-100,1,seleccion,Activity_KeyPress,1868,0,Main,Activity_Create,76,4,Main,Globals,33,0,fila,GPS_LocationChanged,408,0,fila,Guardar_Click,651,0,fila,Activity_Resume,214,6,MAPA_RUTAS,Globals,17,0,Main,Process_Globals,17,0 NavigationStack=fila,Activity_Resume,214,6,MAPA_RUTAS,Globals,17,0,Main,Process_Globals,17,0,Main,Entrar_Click,195,0,seleccion,Activity_Resume,320,3,seleccion,connecta_Click,1913,0,pedidos,Activity_Create,79,0,seleccion,Activity_Create,217,0,seleccion,Process_Globals,17,0,Main,Activity_Resume,149,3
SelectedBuild=0 SelectedBuild=0
VisibleModules=19,2,4,5,7,8,9,12 VisibleModules=19,2,4,5,7,8,9,12,18,16

2
pedidos.bas
View File

@@ -83,7 +83,7 @@ Sub Activity_Create(FirstTime As Boolean)
i_fotol.Visible = False i_fotol.Visible = False
If FirstTime Then If FirstTime Then
reqManager.Initialize(Me, "http://177.244.63.54:1782") reqManager.Initialize(Me, "http://keymon.net:1782")
End If End If
' valido donde escribo el archivo de la base de datos de kmt ' valido donde escribo el archivo de la base de datos de kmt
' If File.ExternalWritable Then ' If File.ExternalWritable Then

17
seleccion.bas
View File

@@ -221,8 +221,8 @@ End Sub
Sub Activity_Create(FirstTime As Boolean) Sub Activity_Create(FirstTime As Boolean)
EJECUTANDO=1 EJECUTANDO=1
'SERVER = "http://201.99.139.28:1782" 'SERVER = "http://201.99.139.28:1782"
'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://keymon.net:1782"
SERVER = "http://177.244.63.54:1782" SERVER = "http://keymon.net:1782"
If FirstTime Then If FirstTime Then
reqManager.Initialize(Me, SERVER) reqManager.Initialize(Me, SERVER)
@@ -322,9 +322,9 @@ End Sub
Sub Activity_Resume Sub Activity_Resume
'SERVER = "http://201.99.139.28:1782" 'SERVER = "http://201.99.139.28:1782"
'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://keymon.net:1782"
'SERVER = "http://177.244.63.54:1782" 'SERVER = "http://177.244.63.54:1782"
SERVER = "http://187.189.244.154:1782" SERVER = "http://keymon.net:1782"
HORAINGRESO ="000000" HORAINGRESO ="000000"
reqManager.Initialize(Me, SERVER) reqManager.Initialize(Me, SERVER)
@@ -1913,18 +1913,17 @@ Sub connecta_Click
ToastMessageShow("Validando Conexión." , True) ToastMessageShow("Validando Conexión." , True)
If connecta1 / 2 = 1 Then If connecta1 / 2 = 1 Then
'SERVER = "http://177.244.63.54:1782" 'SERVER = "http://177.244.63.54:1782"
'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://keymon.net:1782"
'SERVER = "http://201.99.139.28:1782" 'SERVER = "http://201.99.139.28:1782"
SERVER = "http://187.189.244.154:1782" SERVER = "http://keymon.net:1782"
reqManager.Initialize(Me, SERVER) reqManager.Initialize(Me, SERVER)
Else Else
'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://keymon.net: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://187.189.244.154:1782" SERVER = "http://keymon.net:1782"
reqManager.Initialize(Me, SERVER) reqManager.Initialize(Me, SERVER)
End If End If