diff --git a/Lanterna2.b4a b/Lanterna2.b4a index ccca91c..f1c8e5a 100644 --- a/Lanterna2.b4a +++ b/Lanterna2.b4a @@ -90,7 +90,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Lanterna #VersionCode: 1 - #VersionName: 5.05.12 + #VersionName: 5.05.27 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: landscape #CanInstallToExternalStorage: False @@ -299,7 +299,8 @@ Private Sub i_conf_Click Label1.TextSize = 20 Label1.TextColor = Colors.Black ' If user.Text = "KMTS1" Then ListView1.AddSingleLine("http://10.0.0.205:1781") - ListView1.AddSingleLine("http://keymon.lat:1782") +' ListView1.AddSingleLine("http://keymon.lat:1782") + ListView1.AddSingleLine("http://192.99.93.204:1783") ListView1.AddSingleLine("http://keymon.lat:9000") p_configuracion.Width = Activity.Width p_configuracion.Height = Activity.Height @@ -318,7 +319,7 @@ Private Sub i_conf_Click p_botones.BringToFront p_botones.Top = p_server.Top + p_server.Height - 10dip End If - If user.text.Trim = "KMTS7" Then b_borraEfectivo.Visible = true else b_borraEfectivo.Visible = False + If user.text.Trim = "KMTS7" Then b_borraEfectivo.Visible = True Else b_borraEfectivo.Visible = False End Sub Private Sub b_cargaProductos_Click diff --git a/Lanterna2.b4a.meta b/Lanterna2.b4a.meta index 7954057..44f37f9 100644 --- a/Lanterna2.b4a.meta +++ b/Lanterna2.b4a.meta @@ -28,6 +28,6 @@ ModuleClosedNodes6=6 ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Principal,b_cambioPagos_Click,4613,0,Principal,p_resItem_LongClick,4604,0,Principal,Activity_Create,331,1,Principal,llenaHistorial,1051,0,Principal,agregaFormaDePago,3521,0,Principal,cb_pago2_SelectedIndexChanged,3547,0,Principal,b_impAB_Click,2994,0,Diseñador Visual,mainpage.bal,-100,1,Diseñador Visual,principal.bal,-100,2,Principal,b_resumen_Click,4517,0 +NavigationStack=Principal,agregaFormaDePago,3521,0,Principal,cb_pago2_SelectedIndexChanged,3547,0,Principal,b_impAB_Click,2994,0,Diseñador Visual,mainpage.bal,-100,1,Diseñador Visual,principal.bal,-100,2,Principal,b_resumen_Click,4517,0,Main,b_cargaProductos_Click,244,0,Starter,Process_Globals,13,0,Starter,Service_Create,50,0,Main,i_conf_Click,213,0 SelectedBuild=0 VisibleModules=7,6,8,1 diff --git a/Starter.bas b/Starter.bas index c5123ab..48a17ae 100644 --- a/Starter.bas +++ b/Starter.bas @@ -16,7 +16,8 @@ Sub Process_Globals Dim reqManager As DBRequestManager Dim skmt As SQL Dim Logger As Boolean = False - Dim DBReqServer As String = "http://keymon.lat:1782" +' Dim DBReqServer As String = "http://keymon.lat:1782" + Dim DBReqServer As String = "http://192.99.93.204:1783" ' Dim DBReqServer As String = "http://keymon.lat:9000" Dim server, ruta As String 'Para los Logs @@ -52,7 +53,8 @@ Sub Service_Create logcat.LogCatStart(Array As String("-v","raw","*:F","B4A:v"), "logcat") #end if logs.Initialize - DBReqServer = "http://keymon.lat:1782" +' DBReqServer = "http://keymon.lat:1782" + DBReqServer = "http://192.99.93.204:1783" ' DBReqServer = "http://keymon.lat:9000" If Logger Then Log($"Starter reqManager server: ${DBReqServer}"$) Logger = False