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

- Se agregó en la pantalla de ordenes un botón para reimprimir las ordenes.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-06-15 21:56:08 -06:00
parent 346dfbf548
commit 66550abbbf
4 changed files with 20 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Files/principal.bal
View File

Binary file not shown.

5
Lanterna2.b4a
View File

@@ -140,6 +140,7 @@ Sub Globals
Private CheckBox1 As CheckBox
Private b_leyendaDescuento As Button
Private p_leyendaDescuento As Panel
Private b_reimprimirTicket As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
@@ -401,3 +402,7 @@ End Sub
Private Sub b_leyendaDescuento_Click
End Sub
Private Sub b_reimprimirTicket_Click
End Sub

4
Lanterna2.b4a.meta
View File

@@ -14,7 +14,7 @@ ModuleBreakpoints4=
ModuleBreakpoints5=
ModuleBreakpoints6=
ModuleBreakpoints7=
ModuleClosedNodes0=4,5,6
ModuleClosedNodes0=5,6
ModuleClosedNodes1=
ModuleClosedNodes2=
ModuleClosedNodes3=
@@ -22,6 +22,6 @@ ModuleClosedNodes4=
ModuleClosedNodes5=
ModuleClosedNodes6=
ModuleClosedNodes7=
NavigationStack=Principal,Globals,189,0,Principal,Activity_Create,212,0,Principal,LlenaOrden,3222,0,Principal,Activity_KeyPress,493,0,Principal,LlenaMesas,1093,0,Principal,p_mesasItem_LongClick,1204,0,Principal,p_mesasItem_Click,1134,0,Principal,b_envioInfo_Click,2478,5,Visual Designer,principal.bal,-100,6,Principal,b_resumen_Click,3480,6
NavigationStack=Main,cb_impresionActiva_CheckedChange,315,0,Principal,p_resItem_Click,3557,3,Principal,llenaHistorial,996,0,Principal,b_imprimirTicket_Click,2536,0,Principal,b_leyendaDescuento_Click,2908,0,Principal,b_pagoCerrar_Click,1473,0,Principal,p_mesasItem_Click,1189,0,Principal,lv_historial_ItemClick,2774,6,Visual Designer,principal.bal,-100,6,Principal,b_reimprimirTicket_Click,3562,6,Main,b_leyendaDescuento_Click,317,0
SelectedBuild=0
VisibleModules=6,5,7

13
Principal.bas
View File

@@ -2773,9 +2773,12 @@ Private Sub cb_opcionEfectivo_CheckedChange(Checked As Boolean)
End Sub
Private Sub lv_historial_ItemClick (Position As Int, Value As Object)
' Log(Value)
Log(Value)
Private d() As String = Regex.Split("\|", Value)
l_verOrden.Text = $"Orden ${d(1)}"$
Starter.mesaActual = d(0)
Starter.ticketActual = d(1)
Starter.tipov = d(2)
lv_verOrden.Clear
Private c As Cursor = Starter.skmt.ExecQuery($"select * from PEDIDO where PE_MESA = '${d(0)}' and PE_TICKET = '${d(1)}' and PE_TIPO = '${d(2)}'"$)
' Log($"select * from PEDIDO where PE_MESA = '${d(0)}' and PE_TICKET = '${d(1)}' and PE_TIPO = '${d(2)}'"$)
@@ -3562,3 +3565,11 @@ Private Sub p_resItem_Click
End Sub
Private Sub b_reimprimirTicket_Click
Log(Starter.mesaActual)
' b_leyendaDescuento_Click
Private tm As Map = CreateMap("ticket":Starter.ticketActual, "pago":Starter.tipov)
listaTickets.Initialize
listaTickets.Add(tm) 'Agregamos el ticket y pago a la lista para imprimir el ticket con estos datos al llamar b_imprimirTicket_Click
b_leyendaDescuento_Click
End Sub