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

- VERSION 5.02.13

Browse Source 
- Se agrego el "total" a la pantalla de la mesa.
- Se agregó el "total de mesas" al reporte A+B
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-02-13 00:41:09 -06:00
parent c7d51fe082
commit a401776920
6 changed files with 50 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Principal.bas
View File

@@ -211,6 +211,7 @@ Sub Globals
Private et_nuevoPago As EditText
Private et_nuevoPagoPropina As EditText
Private p_botonesCierreTotal As Panel
Private l_montoTotalMesa As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
@@ -402,6 +403,7 @@ Sub l_prods_Click
End Try
et_selBuscar.Text = ""
Log(listaProdsOrden)
l_montoTotalMesa.Text = "$" & NumberFormat2(Subs.traeTotalTicketActual_PT, 1, 0, 0, True)
End Sub
Sub resalta(p As Panel) As ResumableSub
@@ -623,6 +625,7 @@ Sub b_prodMenos_Click
Private elTotal As String = elPrecioU * laCant.text
elNombre.Text = cs.Color(Colors.red).append(elTexto).pop.append(CRLF).Color(0xFF017F01).Append($"Precio $${NumberFormat2(elTotal, 1, 2, 2, True)}"$).Popall
End If
l_montoTotalMesa.Text = "$" & NumberFormat2(Subs.traeTotalTicketActual_PT, 1, 0, 0, True)
' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$)
End Sub
@@ -669,6 +672,7 @@ Sub b_prodMas_Click
Private elTotal As String = elPrecioU * laCant.text
elNombre.Text = cs.Color(Colors.red).append(elTexto).pop.append(CRLF).Color(0xFF017F01).Append($"Precio $${NumberFormat2(elTotal, 1, 2, 2, True)}"$).Popall
End If
l_montoTotalMesa.Text = "$" & NumberFormat2(Subs.traeTotalTicketActual_PT, 1, 0, 0, True)
' Log($"Total Prods: ${totalProds}, Total Compra: $$1.2{totalCompra}"$)
End Sub
@@ -686,7 +690,7 @@ Sub cuentaProds
If c.GetString("total") <> Null And c.GetString("total") <> "null" Then total0 = c.GetString("total")
Private p As Cursor = Starter.skmt.ExecQuery($"select count(PT_TICKET) as ordenes from pedido_TICKET where PT_PAGO <> 'MULTI-TICKET' and PT_PAGO <> 'VENTA' "$)
p.Position = 0
' Log($"Total Prods: ${cant0}, Total Compra: $$1.2{total0}"$)
Log($"Total Prods: ${cant0}, Total Compra: $$1.2{total0}"$)
' l_totalCarrito.text = $"Total: $${NumberFormat2(total0,1,2,2,True)}"$
c.Close
If WobbleMenu1.GetCurrentTab = 2 Then LlenaProdsLL(Null, Null)
@@ -1225,6 +1229,10 @@ Private Sub p_mesasItem_Click
Starter.ticketActual = m.Get("ticket")
Starter.comensalesActuales = m.Get("comensales")
Starter.totalActual = m.Get("subtotal")
Log(Subs.traeTotalesTicketActual)
Log(Subs.traeTotalTicketActual_P("VENTA"))
Log(Subs.traeTotalTicketActual_PT)
l_montoTotalMesa.Text = "$" & NumberFormat2(m.Get("subtotal"), 1, 0, 0, True)
l_mesa0.Text = $"MESA ${Starter.mesaActual}"$
cb_opcionEfectivo.Checked = False
cb_mostrarDescuento.Checked = False
@@ -2993,6 +3001,23 @@ Sub b_impAB_Click
Log($"Tarjetas: ${Subs.alineaDerecha("$"&NumberFormat2(montoAmex+montoMifel, 1, 0, 0, True), (30 - "Tarjetas: ".Length), ".")} "$)
Log($"Efectivo: ${Subs.alineaDerecha("$"&NumberFormat2(montoEfectivo, 1, 0, 0, True), (30 - "Efectivo: ".Length), ".")} "$)
Log($"Total: ${Subs.alineaDerecha("$"&NumberFormat2(montoAmex+montoMifel+montoEfectivo, 1, 0, 0, True), (30 - "Total: ".Length), ".")} "$)
'TOTAL DE MESAS
If imprimirAqui Then Printer1.WriteString(CRLF)
If imprimirAqui Then Printer1.WriteString(Printer1.BOLD)
If imprimirAqui Then Printer1.WriteString($"*** TOTAL DE MESAS *** ${CRLF}"$)
If imprimirAqui Then Printer1.WriteString(Printer1.NOBOLD)
If imprimirAqui Then
Printer1.WriteString($"Total Mesas: ${Subs.alineaDerecha(Subs.traeCuantasMesas, (30 - "Total Mesas: ".Length), ".")} ${CRLF}"$)
End If
cs.Append(CRLF)
cs.Color(Colors.red).Append($"** TOTAL DE MESAS **${CRLF}"$).pop
cs.Color(Colors.DarkGray).Append($"Total Mesas: ${Subs.alineaDerecha(Subs.traeCuantasMesas, (30 - "Total Mesas: ".Length), ".")} ${CRLF}"$).pop
cs.Append(CRLF)
cs.Append(CRLF)
Log("*** TOTAL DE MESAS ***")
Log($"Total Mesas: ${Subs.traeCuantasMesas}"$)
End If
If imprimirAqui Then Printer1.WriteString(CRLF)