diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 47f8d63..e75527b 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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 diff --git a/B4A/Salma_Venta.b4a.meta b/B4A/Salma_Venta.b4a.meta index 703cc3d..e7dec11 100644 --- a/B4A/Salma_Venta.b4a.meta +++ b/B4A/Salma_Venta.b4a.meta @@ -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 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index b468518..a3da1f8 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -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