|
|
|
|
@@ -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)
|
|
|
|
|
@@ -313,7 +314,7 @@ Sub Activity_Create(FirstTime As Boolean)
|
|
|
|
|
Subs.panelVisible(p_mesas, 0, 0)
|
|
|
|
|
cb_comensales.SetItems(Array As String(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20))
|
|
|
|
|
' cb_pago.SetItems(Array As String("American Express", "Visa/Mastercard", "Efectivo"))
|
|
|
|
|
cb_pagoPropina.SetItems(Array As String("Amex", "Mifel", "Efectivo"))
|
|
|
|
|
cb_pagoPropina.SetItems(Array As String("Amex", "Banorte", "Efectivo"))
|
|
|
|
|
cb_mesero.SetItems(Subs.traeMeserosLista)
|
|
|
|
|
' Private lasCats As List = Subs.traeCategorias
|
|
|
|
|
Starter.nivelActual = "Cats"
|
|
|
|
|
@@ -324,8 +325,8 @@ Sub Activity_Create(FirstTime As Boolean)
|
|
|
|
|
Private Label1 As Label = lv_categorias.SingleLineLayout.Label
|
|
|
|
|
Label1.TextSize = 9dip
|
|
|
|
|
Label1.TextColor = Colors.Black
|
|
|
|
|
cb_nuevoPago.SetItems(Array As String("Amex", "Mifel", "Efectivo"))
|
|
|
|
|
cb_nuevoPagoPropina.SetItems(Array As String("Amex", "Mifel", "Efectivo"))
|
|
|
|
|
cb_nuevoPago.SetItems(Array As String("Amex", "Banorte", "Efectivo"))
|
|
|
|
|
cb_nuevoPagoPropina.SetItems(Array As String("Amex", "Banorte", "Efectivo"))
|
|
|
|
|
muestraCats
|
|
|
|
|
Log("################# PERMISOS BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
|
|
|
|
|
' Log("Permisos BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
|
|
|
|
|
@@ -334,10 +335,10 @@ Sub Activity_Create(FirstTime As Boolean)
|
|
|
|
|
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
|
|
|
|
|
' If Result Then Log("Tenemos permisos de bluetooth.")
|
|
|
|
|
' Log($"Resultado del CheckAndRequest: ${Result}"$)
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_TARJETA = 'Mifel' where PT_TARJETA like '%Visa%'"$)
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_PAGO_PROPINA = 'Mifel' where PT_TARJETA like '%Visa%'"$)
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_PAGO2 = 'Mifel' where PT_TARJETA like '%Visa%'"$)
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_PAGO2 = 'Mifel' where PT_PAGO2 like '%Visa%'"$)
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_TARJETA = 'Banorte' where PT_TARJETA like '%Visa%'"$)
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_PAGO_PROPINA = 'Banorte' where PT_TARJETA like '%Visa%'"$)
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_PAGO2 = 'Banorte' where PT_TARJETA like '%Visa%'"$)
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_PAGO2 = 'Banorte' where PT_PAGO2 like '%Visa%'"$)
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_TARJETA = 'Amex' where PT_TARJETA like '%American%'"$)
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_PAGO_PROPINA = 'Amex' where PT_TARJETA like '%American%'"$)
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update pedido_ticket set PT_PAGO2 = 'Amex' where PT_TARJETA like '%American%'"$)
|
|
|
|
|
@@ -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)
|
|
|
|
|
@@ -1050,8 +1054,8 @@ Sub llenaHistorial
|
|
|
|
|
fecha = fecha.SubString2(1,10)
|
|
|
|
|
Private pt As String = ""
|
|
|
|
|
|
|
|
|
|
If rs_hist.GetString("pt") = "Mifel" Or rs_hist.GetString("pt") = "Visa/Mastercard Debito" Then
|
|
|
|
|
pt = "Mifel"
|
|
|
|
|
If rs_hist.GetString("pt") = "Banorte" Or rs_hist.GetString("pt") = "Visa/Mastercard Debito" Then
|
|
|
|
|
pt = "Banorte"
|
|
|
|
|
Else if rs_hist.GetString("pt") = "Amex" Then
|
|
|
|
|
pt = "Amex"
|
|
|
|
|
else if rs_hist.GetString("pt") = "Efectivo" Then
|
|
|
|
|
@@ -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
|
|
|
|
|
@@ -2864,7 +2872,7 @@ Sub b_impAB_Click
|
|
|
|
|
Private prop As ResultSet = Starter.skmt.ExecQuery($"Select PT_PAGO_PROPINA, sum(PT_PROPINA) As PROPINA from PEDIDO_TICKET where pt_pago <> 'MULTI-TICKET' group by PT_PAGO_PROPINA
|
|
|
|
|
order by CASE PT_PAGO_PROPINA
|
|
|
|
|
WHEN 'Amex' THEN 0
|
|
|
|
|
WHEN 'Mifel' THEN 1
|
|
|
|
|
WHEN 'Banorte' THEN 1
|
|
|
|
|
WHEN 'Efectivo' THEN 2
|
|
|
|
|
END"$)
|
|
|
|
|
If imprimirAqui Then Printer1.WriteString(CRLF)
|
|
|
|
|
@@ -2901,7 +2909,7 @@ Sub b_impAB_Click
|
|
|
|
|
group by PT_PAGO2
|
|
|
|
|
order by CASE PT_PAGO_PROPINA
|
|
|
|
|
WHEN 'Amex' THEN 0
|
|
|
|
|
WHEN 'Mifel' THEN 1
|
|
|
|
|
WHEN 'Banorte' THEN 1
|
|
|
|
|
WHEN 'Efectivo' THEN 2
|
|
|
|
|
END"$) ' and (CASE WHEN PT_PAGO = 'EFECTIVO' and PT_ALMACEN = 'MULTI-TICKET' THEN false ELSE true END) - El primer "case" es para que en el efectivo NO cuente los tickets multi-tickets, porque esos son "Consumo de alimentos".
|
|
|
|
|
Private totalComensales As Int = 0
|
|
|
|
|
@@ -2935,7 +2943,7 @@ Sub b_impAB_Click
|
|
|
|
|
Do While rtpa.NextRow
|
|
|
|
|
propAmex = rtpa.GetString("ptPropina")
|
|
|
|
|
Loop
|
|
|
|
|
Private rtpmc As ResultSet = Starter.skmt.ExecQuery($"Select ifnull(sum(pt_propina),0) as ptPropina, * from pedido_ticket where pt_pago_propina = 'Mifel' group by pt_pago_propina"$)
|
|
|
|
|
Private rtpmc As ResultSet = Starter.skmt.ExecQuery($"Select ifnull(sum(pt_propina),0) as ptPropina, * from pedido_ticket where pt_pago_propina = 'Banorte' group by pt_pago_propina"$)
|
|
|
|
|
Do While rtpmc.NextRow
|
|
|
|
|
propMifel = rtpmc.GetString("ptPropina")
|
|
|
|
|
Loop
|
|
|
|
|
@@ -2952,8 +2960,8 @@ Sub b_impAB_Click
|
|
|
|
|
' Log("ES AMEX")
|
|
|
|
|
montoAmex = monto
|
|
|
|
|
monto = monto + propAmex
|
|
|
|
|
else If elPago = "Mifel" Then
|
|
|
|
|
' Log("ES MIFEL")
|
|
|
|
|
else If elPago = "Banorte" Then
|
|
|
|
|
' Log("ES Banorte")
|
|
|
|
|
montoMifel = monto
|
|
|
|
|
monto = monto + propMifel
|
|
|
|
|
else If elPago = "Efectivo" Then
|
|
|
|
|
@@ -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)
|
|
|
|
|
@@ -3499,8 +3524,8 @@ Sub agregaFormaDePago(left0 As Int, top0 As Int, tag0 As Int, brinco As Int)
|
|
|
|
|
cb_pago2.Tag = tag0
|
|
|
|
|
' cb_pago2.mBase.SetTextSizeAnimated(0, 14dip)
|
|
|
|
|
et_montoPago2.Tag = tag0
|
|
|
|
|
cb_pago2.SetItems(Array As String("Amex", "Mifel", "Efectivo"))
|
|
|
|
|
If Starter.ticketFactura Then cb_pago2.SetItems(Array As String("Amex", "Mifel"))
|
|
|
|
|
cb_pago2.SetItems(Array As String("Amex", "Banorte", "Efectivo"))
|
|
|
|
|
If Starter.ticketFactura Then cb_pago2.SetItems(Array As String("Amex", "Banorte"))
|
|
|
|
|
p_num.Tag = tag0
|
|
|
|
|
listaFormasDePagoCB.Add(cb_pago2)
|
|
|
|
|
listaFormaDePago.Add(cb_pago2.SelectedItem)
|
|
|
|
|
@@ -3526,7 +3551,7 @@ Private Sub cb_pago2_SelectedIndexChanged (Index As Int)
|
|
|
|
|
listaFormaDePago.Set(Sender.As(B4XComboBox).tag - 1, Sender.As(B4XComboBox).SelectedItem)
|
|
|
|
|
If Sender.As(B4XComboBox).SelectedItem = "Amex" Then
|
|
|
|
|
cb_pagoPropina.SelectedIndex = 0
|
|
|
|
|
Else If Sender.As(B4XComboBox).SelectedItem = "Mifel" Then
|
|
|
|
|
Else If Sender.As(B4XComboBox).SelectedItem = "Banorte" Then
|
|
|
|
|
cb_pagoPropina.SelectedIndex = 1
|
|
|
|
|
else If Sender.As(B4XComboBox).SelectedItem = "Efectivo" Then
|
|
|
|
|
cb_pagoPropina.SelectedIndex = 2
|
|
|
|
|
@@ -4451,10 +4476,10 @@ Private Sub b_resumen_Click
|
|
|
|
|
If o.GetString("PT_FACTURAR") = "true" Then l_comprobante.Text = "FACTURA"
|
|
|
|
|
l_formaPago.Text = o.GetString("PT_PAGO2")
|
|
|
|
|
Select o.GetString("PT_PAGO_PROPINA")
|
|
|
|
|
Case "Mifel"
|
|
|
|
|
l_propinaPago.Text = "Mifel"
|
|
|
|
|
Case "Banorte"
|
|
|
|
|
l_propinaPago.Text = "Banorte"
|
|
|
|
|
Case "Visa/Mastercard Debito"
|
|
|
|
|
l_propinaPago.Text = "Mifel Debito"
|
|
|
|
|
l_propinaPago.Text = "Banorte Debito"
|
|
|
|
|
Case "Amex"
|
|
|
|
|
l_propinaPago.Text = "Amex"
|
|
|
|
|
Case "Efectivo"
|
|
|
|
|
@@ -4471,7 +4496,7 @@ Private Sub b_resumen_Click
|
|
|
|
|
Do While rtpa.NextRow
|
|
|
|
|
propAmex = rtpa.GetString("ptPropina")
|
|
|
|
|
Loop
|
|
|
|
|
Private rtpmc As ResultSet = Starter.skmt.ExecQuery($"Select ifnull(sum(pt_propina),0) as ptPropina, * from pedido_ticket where pt_pago_propina = 'Mifel' group by pt_pago_propina"$)
|
|
|
|
|
Private rtpmc As ResultSet = Starter.skmt.ExecQuery($"Select ifnull(sum(pt_propina),0) as ptPropina, * from pedido_ticket where pt_pago_propina = 'Banorte' group by pt_pago_propina"$)
|
|
|
|
|
Do While rtpmc.NextRow
|
|
|
|
|
propMifel = rtpmc.GetString("ptPropina")
|
|
|
|
|
Loop
|
|
|
|
|
@@ -4500,7 +4525,7 @@ Private Sub b_resumen_Click
|
|
|
|
|
l_consumoAmex.Text = $"$${NumberFormat2(rt.GetString("ptMonto"), 1, 2, 2, True)}"$
|
|
|
|
|
' l_propinaAmex.Text = $"$${NumberFormat2(rt.GetString("ptPropina"), 1, 2, 2, True)}"$
|
|
|
|
|
l_totalAmex.Text = $"$${NumberFormat2((rt.GetString("ptMonto") + propAmex), 1, 2, 2, True)}"$
|
|
|
|
|
else if rt.GetString("PT_PAGO2") = "Mifel" Then
|
|
|
|
|
else if rt.GetString("PT_PAGO2") = "Banorte" Then
|
|
|
|
|
l_consumoTDC.Text = $"$${NumberFormat2(rt.GetString("ptMonto"), 1, 2, 2, True)}"$
|
|
|
|
|
' l_propinaTDC.Text = $"$${NumberFormat2(rt.GetString("ptPropina"), 1, 2, 2, True)}"$
|
|
|
|
|
l_totalTDC.Text = $"$${NumberFormat2((rt.GetString("ptMonto") + propMifel), 1, 2, 2, True)}"$
|
|
|
|
|
@@ -4584,6 +4609,8 @@ Private Sub p_resItem_LongClick
|
|
|
|
|
p_transparenteCambioPagos.Visible = True
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
'update PEDIDO_TICKET set PT_PAGO_PROPINA = 'Amex', PT_PAGO2 = 'Amex', PT_TARJETA = 'Amex' where PT_MESA = '1' and PT_TICKET = '00001'
|
|
|
|
|
|
|
|
|
|
Private Sub b_cambioPagos_Click
|
|
|
|
|
p_transparenteCambioPagos.Visible = False
|
|
|
|
|
Log(Sender.As(Button).tag)
|
|
|
|
|
@@ -4592,11 +4619,11 @@ Private Sub b_cambioPagos_Click
|
|
|
|
|
If alm = "null" Then alm = ""
|
|
|
|
|
Log("|" & alm & "|")
|
|
|
|
|
If alm = "MULTI-TICKET" Then
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update PEDIDO_TICKET set PT_MONTO = '${et_nuevoPago.text}', PT_PROPINA = '${et_nuevoPagoPropina.text}', PT_PAGO_PROPINA = '${cambioPagoPropina}', PT_PAGO2 = '${cambioPago}' where PT_MESA = '${m.Get("mesa")}' and PT_TICKET = '${m.Get("ticket")}'"$)
|
|
|
|
|
Log($"update PEDIDO_TICKET set PT_PAGO_PROPINA = '${cambioPagoPropina}', PT_PAGO2 = '${cambioPago}' where PT_MESA = '${m.Get("mesa")}' and PT_TICKET = '${m.Get("ticket")}''"$)
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update PEDIDO_TICKET set PT_MONTO = '${et_nuevoPago.text}', PT_PROPINA = '${et_nuevoPagoPropina.text}', PT_PAGO_PROPINA = '${cambioPagoPropina}', PT_PAGO2 = '${cambioPago}' where PT_MESA = '${m.Get("mesa")}' and PT_TICKET = '${m.Get("ticket")}'"$)
|
|
|
|
|
Log($"update PEDIDO_TICKET set PT_MONTO = '${et_nuevoPago.text}', PT_PROPINA = '${et_nuevoPagoPropina.text}', PT_PAGO_PROPINA = '${cambioPagoPropina}', PT_PAGO2 = '${cambioPago}' where PT_MESA = '${m.Get("mesa")}' and PT_TICKET = '${m.Get("ticket")}'"$)
|
|
|
|
|
Else
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update PEDIDO_TICKET set PT_PAGO_PROPINA = '${cambioPagoPropina}', PT_PAGO2 = '${cambioPago}', PT_TARJETA = '${cambioPago}' where PT_MESA = '${m.Get("mesa")}' and PT_TICKET = '${m.Get("ticket")}'"$)
|
|
|
|
|
Log($"update PEDIDO_TICKET set PT_PAGO_PROPINA = '${cambioPagoPropina}', PT_PAGO2 = '${cambioPago}', PT_TARJETA = '${cambioPago}' where PT_MESA = '${m.Get("mesa")}' and PT_TICKET = '${m.Get("ticket")}'"$)
|
|
|
|
|
Starter.skmt.ExecNonQuery($"update PEDIDO_TICKET set PT_MONTO = '${et_nuevoPago.text}', PT_PROPINA = '${et_nuevoPagoPropina.text}', PT_PAGO_PROPINA = '${cambioPagoPropina}', PT_PAGO2 = '${cambioPago}', PT_TARJETA = '${cambioPago}' where PT_MESA = '${m.Get("mesa")}' and PT_TICKET = '${m.Get("ticket")}'"$)
|
|
|
|
|
Log($"update PEDIDO_TICKET set PT_MONTO = '${et_nuevoPago.text}', PT_PROPINA = '${et_nuevoPagoPropina.text}', PT_PAGO_PROPINA = '${cambioPagoPropina}', PT_PAGO2 = '${cambioPago}', PT_TARJETA = '${cambioPago}' where PT_MESA = '${m.Get("mesa")}' and PT_TICKET = '${m.Get("ticket")}'"$)
|
|
|
|
|
End If
|
|
|
|
|
b_resumen_Click
|
|
|
|
|
End Sub
|
|
|
|
|
|
