cheveguerra/Lanterna
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Lanterna.git synced 2026-04-19 05:39:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se agregó´el envio de la información con boton de ciere total y el borrado de las ordenes con efectivo, el codigo para imprimir (incompleto) y logos e icono de la app

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-10 22:55:01 -06:00
parent 83d22bae4f
commit 3fea2efa9e
16 changed files with 1895 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
B4A/B4XMainPage.bas
View File

@@ -31,7 +31,7 @@ Sub Class_Globals
Private b_regresar As Button
Private b_entrar As Button
Private b_envioBD As Button
Private B_SERVER As Button
Private b_server As Button
Private ImageView4 As ImageView
Private ImageView2 As ImageView
Private Panel3 As Panel
@@ -77,6 +77,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.centraEtiqueta(Label3, p_configuracion.Width)
Subs.centraPanel(p_server, p_configuracion.Width)
Subs.centraPanel(p_botones, p_configuracion.Width)
i_logo.Left = (Root.Width / 2) - (i_logo.Width / 2)
Subs.centraPanel(Panel3, p_configuracion.Width)
' subs.panelVisible(p_configuracion, 0, 0)
End Sub
@@ -111,9 +113,18 @@ Private Sub b_entrar_Click
B4XPages.ShowPage("principal")
End Sub
Private Sub B_SERVER_Click
Starter.DBReqServer = E_SERVER.text
p_configuracion.Visible = False
Private Sub b_server_Click
If E_SERVER.Text <> "" Then
Starter.DBReqServer = E_SERVER.text
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER", Starter.DBReqServer))
p_configuracion.Visible = False
reqManager.Initialize(Me, Starter.DBReqServer)
Starter.reqManager.Initialize(Me, Starter.DBReqServer)
' Log(E_SERVER.text)
Else
ToastMessageShow("Por favor ingrese la direccion del servidor", True)
End If
End Sub
Private Sub b_envioBD_Click
@@ -158,7 +169,7 @@ End Sub
Private Sub ListView1_ItemClick (Position As Int, Value As Object)
Starter.DBReqServer = Value
E_SERVER.Text = Value
Log(Starter.DBReqServer)
' Log(Starter.DBReqServer)
End Sub
Sub JobDone(Job As HttpJob)
@@ -227,5 +238,5 @@ Sub JobDone(Job As HttpJob)
End Sub
Private Sub b_entrar_LongClick
Dim a As Int = "a"
' Dim a As Int = "a"
End Sub