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

- VERSION 5.05.27

Browse Source 
- Se cambio el sevidor a keymon.net
- Se cambio el puerto al 1783
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-05-28 13:40:14 -06:00
parent f64757a786
commit 242499326c
3 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Lanterna2.b4a
View File

@@ -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

2
Lanterna2.b4a.meta
View File

@@ -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

6
Starter.bas
View File

@@ -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