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

...

Browse Source
This commit is contained in:
cvaldes1201
2024-07-22 16:34:39 -06:00
parent 025a12c594
commit 4f86be6457
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/B4XMainPage.bas
View File

@@ -5,7 +5,7 @@ Type=Class
Version=9.85
@EndOfDesignText@
#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
'###########################################################################################################
'###################### PULL #############################################################
@@ -605,9 +605,9 @@ End Sub
Sub i_engrane_Click
p_appUpdate.Left = (Root.Width/2) - (p_appUpdate.Width/2)
lv_server.Clear
lv_server.AddSingleLine("http://keymon.lat:1782")
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.214:1783")
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.214:1783")
l_server.Text = Starter.server
Subs.panelVisible(p_appUpdate,0,0)
p_appUpdate.Height = Root.Height

2
B4A/Salma_Venta.b4a.meta
View File

@@ -64,6 +64,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Subs,logJobDoneResultados,1082,0,Subs,traeProdIdDeBD,1072,0,C_Principal,B4XPage_Created,299,0,C_Principal,Subir_Click,538,0,C_Principal,B4XPage_Appear,319,3,C_Principal,B4XPage_CloseRequest,1597,0,C_Principal,cargar_Click,819,0,C_Principal,connecta_Click,1654,5,Visual Designer,cliente.bal,-100,5,C_Principal,JobDone,1527,6
NavigationStack=Subs,traeProdIdDeBD,1072,0,C_Principal,B4XPage_Created,299,0,C_Principal,Subir_Click,538,0,C_Principal,B4XPage_Appear,319,3,C_Principal,B4XPage_CloseRequest,1597,0,C_Principal,cargar_Click,819,0,C_Principal,connecta_Click,1654,5,Diseñador Visual,principal.bal,-100,1,C_Principal,JobDone,1527,6,B4XMainPage,i_engrane_Click,602,0,Starter,Process_Globals,14,0
SelectedBuild=0
VisibleModules=19,2,20,12,13,4,21,17

2
B4A/Starter.bas
View File

@@ -18,7 +18,7 @@ Sub Process_Globals
Public FLP As FusedLocationProvider
' Private flpStarted As Boolean
Dim reqManager As DBRequestManager
Dim server As String = "http://187.189.244.154:1782"
Dim server As String = "http://187.189.244.154:1781"
' Dim server As String = "http://10.0.0.205:1782"
Dim skmt As SQL
Dim Timer1 As Timer