mirror of
https://github.com/KeymonSoft/Lanterna.git
synced 2026-04-17 21:06:32 +00:00
- Se agregó la busqueda de productos.
- Se agregó el IVA al ticket de cierre de mesa. - Se agregó alimentos varios y bebidas varias.
This commit is contained in:
@@ -45,7 +45,11 @@ Sub Class_Globals
|
||||
Private p_botones As Panel
|
||||
Private Label3 As Label
|
||||
Private p_server As Panel
|
||||
Dim atrasPresionado As Boolean = False
|
||||
Dim atrasPresionado As Boolean = False
|
||||
Private cb_impresionActiva As CheckBox
|
||||
Private CheckBox1 As CheckBox
|
||||
Private b_leyendaDescuento As Button
|
||||
Private p_leyendaDescuento As Panel
|
||||
End Sub
|
||||
|
||||
Public Sub Initialize
|
||||
@@ -88,6 +92,17 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub B4XPage_Appear
|
||||
Private z As ResultSet = Starter.skmt.ExecQuery2("select * from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As String ("IMPRESION_ACTIVA"))
|
||||
Do While z.NextRow
|
||||
Private ia As Boolean = False
|
||||
If z.GetString("CAT_VA_VALOR") = 1 Then ia = True
|
||||
Loop
|
||||
cb_impresionActiva.Checked = ia
|
||||
Starter.imprimirTicket = ia
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
' BACK key pressed
|
||||
'Return True to close, False to cancel
|
||||
@@ -204,7 +219,8 @@ Sub JobDone(Job As HttpJob)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_PRECIO,CAT_GP_ALMACEN,CAT_GP_IMG,CAT_GP_FECHA,CAT_GP_FECHA_MOD, CAT_GP_CLASIF, CAT_GP_TIPO) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_PRECIO,CAT_GP_ALMACEN,CAT_GP_IMG,CAT_GP_FECHA,CAT_GP_FECHA_MOD,CAT_GP_CLASIF,CAT_GP_TIPO))
|
||||
Next
|
||||
For v = 1 To 20 'Agregamos productos varios (editables)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_PRECIO,CAT_GP_ALMACEN,CAT_GP_IMG,CAT_GP_FECHA,CAT_GP_FECHA_MOD, CAT_GP_CLASIF, CAT_GP_TIPO) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object ($"VAR${NumberFormat2(v, 2, 0, 0, False)}"$,$"Alimentos Varios ${NumberFormat2(v, 2, 0, 0, False)}"$,"1","10000",Null,"2024-02-04 17:00:00","2024-02-04 17:00:00","VARIOS","VARIOS"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_PRECIO,CAT_GP_ALMACEN,CAT_GP_IMG,CAT_GP_FECHA,CAT_GP_FECHA_MOD, CAT_GP_CLASIF, CAT_GP_TIPO) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object ($"AVAR${NumberFormat2(v, 2, 0, 0, False)}"$,$"Alimentos Varios ${NumberFormat2(v, 2, 0, 0, False)}"$,"1","10000",Null,"2024-02-04 17:00:00","2024-02-04 17:00:00","VARIOS","ALIMENTOS"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_PRECIO,CAT_GP_ALMACEN,CAT_GP_IMG,CAT_GP_FECHA,CAT_GP_FECHA_MOD, CAT_GP_CLASIF, CAT_GP_TIPO) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object ($"VVAR${NumberFormat2(v, 2, 0, 0, False)}"$,$"Bebidas Varias ${NumberFormat2(v, 2, 0, 0, False)}"$,"1","10000",Null,"2024-02-04 17:00:00","2024-02-04 17:00:00","VARIOS","VINOS Y LICORES"))
|
||||
Next
|
||||
Starter.skmt.TransactionSuccessful 'Si no se pone TransactionSuccessful no se escribe NADA!!
|
||||
Starter.skmt.EndTransaction
|
||||
@@ -253,5 +269,14 @@ Private Sub b_entrar_LongClick
|
||||
End Sub
|
||||
|
||||
Private Sub user_TextChanged (Old As String, New As String)
|
||||
If New = "KMTS1" Then i_conf.Visible = True Else i_conf.Visible = False
|
||||
If New.Trim = "KMTS1" Then i_conf.Visible = True Else i_conf.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub cb_impresionActiva_CheckedChange(Checked As Boolean)
|
||||
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("IMPRESION_ACTIVA"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("IMPRESION_ACTIVA", Checked))
|
||||
End Sub
|
||||
|
||||
Private Sub b_leyendaDescuento_Click
|
||||
|
||||
End Sub
|
||||
@@ -131,6 +131,14 @@ Sub Class_Globals
|
||||
Private b_reabrirMesaMulti As Button
|
||||
Private b_imp2 As Button
|
||||
Private p_wobble As Panel
|
||||
Private p_botonesCerrar As Panel
|
||||
Private b_imprimirCerrar As Button
|
||||
Private p_leyendaDescuento As Panel
|
||||
Private b_leyendaDescuento As Button
|
||||
Private cb_leyendaDescuento As CheckBox
|
||||
Dim n As Int
|
||||
Private et_buscar As EditText
|
||||
Private p_buscar As Panel
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -159,7 +167,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
|
||||
p_principal.Width = Root.Width
|
||||
p_principal.Height = Root.Height
|
||||
clv_prods_ll.GetBase.SetLayoutAnimated(0, 5dip, (l_meseroAbierta2.Top + l_meseroAbierta2.Height + 5), Root.Width - 20, Root.Height * 0.55) 'Cambiamos el tamaño y posición de la lista de productos.
|
||||
clv_prods_ll.GetBase.SetLayoutAnimated(0, 5dip, (p_buscar.Top + p_buscar.Height + 5), Root.Width - 20, Root.Height * 0.55) 'Cambiamos el tamaño y posición de la lista de productos.
|
||||
clv_prods_ll.Base_Resize(clv_prods_ll.GetBase.Width, clv_prods_ll.GetBase.Height) 'Cambiamos el tamaño del panel interno de la lista para que se ajuste al nuevo tamaño.
|
||||
clv_mesas.GetBase.SetLayoutAnimated(0, 5dip, 80dip, Root.Width - 20, Root.Height * 0.80) 'Cambiamos el tamaño y posición de la lista de mesas.
|
||||
clv_mesas.Base_Resize(clv_mesas.GetBase.Width, clv_mesas.GetBase.Height) 'Cambiamos el tamaño del panel interno de las mesas para que se ajuste al nuevo tamaño.
|
||||
@@ -183,7 +191,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
sv_resumen.Panel.LoadLayout("resumenCont")
|
||||
Subs.centraEtiqueta(l_pago, p_pago.Width)
|
||||
Subs.centraPanel(p_propina, p_pago.Width)
|
||||
Subs.centraBoton(b_pagoCerrar, p_pago.Width)
|
||||
' Subs.centraBoton(b_pagoCerrar, p_pago.Width)
|
||||
Subs.centraPanel(p_botonesCerrar, p_pago.Width)
|
||||
Dim cs As CSBuilder
|
||||
cs.Initialize
|
||||
l_inicioDia.Text = cs.append("Para iniciar día, ingrese el texto ").bold.Append("INICIO DIA").Pop.Append(" y la tecla ").Bold.Append("Retorno").Pop.Append(" del teclado.").Color(Colors.red).Append(" Los datos del día anterior se borraran.").Popall
|
||||
@@ -211,7 +220,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
Starter.nivelActual = "Cats"
|
||||
lv_categorias.Color = Colors.White
|
||||
lv_categorias.Top = l_meseroAbierta2.Top + l_meseroAbierta2.Height + 5
|
||||
lv_categorias.Height = Root.Height * 0.55
|
||||
lv_categorias.Height = Root.Height * 0.60
|
||||
Private Label1 As Label = lv_categorias.SingleLineLayout.Label
|
||||
Label1.TextSize = 9dip
|
||||
Label1.TextColor = Colors.Black
|
||||
@@ -232,7 +241,7 @@ Sub B4XPage_Appear
|
||||
' p_wobble.Top = Root.Height - p_wobble.Height - 50
|
||||
' p_wobble.Elevation = 10
|
||||
' p_wobble.BringToFront
|
||||
Starter.imprimirTicket = False
|
||||
Starter.imprimirTicket = True
|
||||
reqManager.Initialize(Me, Starter.DBReqServer)
|
||||
B4XPages.MainPage.atrasPresionado = False
|
||||
' Log(Starter.DBReqServer)
|
||||
@@ -293,37 +302,60 @@ Sub B4XPage_Appear
|
||||
' Log(NumberFormat2(x&".52", 1,2,2,True) & " -> " & n2t.NumberToWords(x&".52"))
|
||||
' Next
|
||||
WobbleMenu1.mBase.As(Panel).Elevation = 10dip 'Ponemos la elevacion en 10 para que quede enfrente de los paneles semitransparentes.
|
||||
|
||||
Private z As ResultSet = Starter.skmt.ExecQuery2("select * from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As String ("IMPRESION_ACTIVA"))
|
||||
Do While z.NextRow
|
||||
Private ia As Boolean = False
|
||||
If z.GetString("CAT_VA_VALOR") = 1 Then ia = True
|
||||
Loop
|
||||
Starter.imprimirTicket = ia
|
||||
Log(Starter.imprimirTicket)
|
||||
End Sub
|
||||
|
||||
Sub B4XPage_CloseRequest As ResumableSub
|
||||
' BACK key pressed
|
||||
'Return True to close, False to cancel
|
||||
Log($"${lv_categorias.Visible} And ${Starter.nivelActual}, ${Starter.catActual}"$)
|
||||
If (lv_categorias.Visible Or Starter.catActual = "VARIOS") And Starter.nivelActual = "SubCats" Then
|
||||
Log(1)
|
||||
' Log($"${lv_categorias.Visible} And ${Starter.nivelActual}, ${Starter.catActual}"$)
|
||||
|
||||
If lv_categorias.Visible And n = 0 Then 'Or Starter.catActual = "VARIOS") And Starter.nivelActual = "SubCats"
|
||||
clv_prods_ll.AsView.Visible = False
|
||||
p_buscar.Visible = False
|
||||
lv_categorias.Visible = True
|
||||
' Starter.nivelActual = "Cats"
|
||||
muestraCats
|
||||
else If p_reabrirMesaMulti.Visible Then
|
||||
n = 1
|
||||
Log(Starter.nivelActual & ", " & n)
|
||||
' Log(0)
|
||||
Else If p_reabrirMesaMulti.Visible Then
|
||||
' Log(1)
|
||||
p_reabrirMesaMulti.Visible = False
|
||||
Else If p_transparenteVerOrden.Visible Then
|
||||
' Log(2)
|
||||
p_transparenteVerOrden.Visible = False
|
||||
else If p_renombraVarios.Visible Then
|
||||
' Log(3)
|
||||
p_renombraVarios.Visible = False
|
||||
Else If p_transparenteCambioMesa.Visible Then
|
||||
' Log(4)
|
||||
p_transparenteCambioMesa.Visible = False
|
||||
Else If p_transparentePago.visible Then 'Si se esta mostrando el popup de pago, lo cerramos.
|
||||
' Log(5)
|
||||
' p_pago.Visible = False
|
||||
p_transparentePago.Visible = False
|
||||
Else If clv_prods_ll.AsView.Visible Then 'SI se muestran los
|
||||
' Log(6)
|
||||
clv_prods_ll.AsView.Visible = False
|
||||
p_buscar.Visible = False
|
||||
lv_categorias.Visible = True
|
||||
n = 0
|
||||
' Log(Starter.nivelActual & ", " & n)
|
||||
else If p_mesa.Visible Then
|
||||
' Log(7)
|
||||
If Subs.revisaCierreAdmin Then
|
||||
p_transparenteCierreAdmin.BringToFront
|
||||
p_transparenteCierreAdmin.Visible = True
|
||||
Log(8)
|
||||
' Log(8)
|
||||
Else
|
||||
' Log(9)
|
||||
p_transparenteCierreAdmin.Visible = False
|
||||
End If
|
||||
p_mesa.Visible = False
|
||||
@@ -702,6 +734,7 @@ End Sub
|
||||
Private Sub WobbleMenu1_Tab1Click
|
||||
' Log("TAB 1")
|
||||
If Subs.revisaCierreAdmin Then
|
||||
p_transparenteCierreAdmin.BringToFront
|
||||
p_transparenteCierreAdmin.Visible = True
|
||||
Else
|
||||
p_transparenteCierreAdmin.Visible = False
|
||||
@@ -948,6 +981,7 @@ Private Sub p_mesasItem_Click
|
||||
tipoPago = "VENTA"
|
||||
muestraCats
|
||||
clv_prods_ll.AsView.Visible = False
|
||||
p_buscar.Visible = False
|
||||
lv_categorias.Visible = True
|
||||
' Log(Sender.As(Panel).tag)
|
||||
b_abrirMesa.Text = "Abrir Mesa"
|
||||
@@ -1079,7 +1113,7 @@ Private Sub b_mesaCerrar_Click
|
||||
cb_opcionEfectivo.Checked = False
|
||||
p_formasDePago.Height = 40dip
|
||||
p_propina.Top = 133dip
|
||||
b_pagoCerrar.Top = 263dip
|
||||
p_botonesCerrar.Top = 257dip
|
||||
p_pago.Height = 320dip
|
||||
p_formasDePago.RemoveAllViews
|
||||
Private c As Cursor = Starter.skmt.ExecQuery($"select PE_MESA from PEDIDO where PE_MESA = '${Starter.mesaActual}' and PE_TIPO = 'VENTA'"$)
|
||||
@@ -1115,14 +1149,20 @@ End Sub
|
||||
|
||||
Private Sub lv_categorias_ItemClick (Position As Int, Value As Object)
|
||||
' Log("ITEM CLICKED")
|
||||
Starter.catActual = value
|
||||
Log(Starter.nivelActual)
|
||||
If Starter.nivelActual = "Cats" And Value = "VARIOS" Then
|
||||
Log(6)
|
||||
Starter.nivelActual = "SubCats"
|
||||
lv_categorias_ItemClick (1, "VARIOS")
|
||||
Starter.nivelActual = "SubCats"
|
||||
' Starter.catActual = Value
|
||||
If Starter.nivelActual = "Cats" Then
|
||||
Starter.catActual = Value
|
||||
Else if Starter.nivelActual = "SubCats" Then
|
||||
Starter.subcatActual = Value
|
||||
End If
|
||||
' Log(Starter.nivelActual)
|
||||
' Log($"${Starter.catActual}, ${Starter.subcatActual}"$)
|
||||
' If Starter.nivelActual = "Cats" And Value = "VARIOS" Then
|
||||
' Log(6)
|
||||
' Starter.nivelActual = "SubCats"
|
||||
' lv_categorias_ItemClick (1, "VARIOS")
|
||||
' Starter.nivelActual = "SubCats"
|
||||
' End If
|
||||
|
||||
If Starter.nivelActual = "Cats" Then
|
||||
Private lasCats As List = Subs.traeSubCategorias(Value)
|
||||
@@ -1134,7 +1174,8 @@ Private Sub lv_categorias_ItemClick (Position As Int, Value As Object)
|
||||
Else
|
||||
lv_categorias.Visible = False
|
||||
clv_prods_ll.AsView.Visible = True
|
||||
Private c As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_CLASIF = '${Value}' order by CAT_GP_NOMBRE"$)
|
||||
p_buscar.Visible = True
|
||||
Private c As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_CLASIF = '${Value}' and CAT_GP_TIPO = '${Starter.catActual}' order by CAT_GP_NOMBRE"$)
|
||||
LlenaProdsLL(c, Null)
|
||||
End If
|
||||
End Sub
|
||||
@@ -1196,7 +1237,7 @@ Private Sub b_pagoCerrar_Click
|
||||
Private tm As Map = CreateMap("ticket":sigTicket, "pago":tipoPago)
|
||||
listaTickets.Add(tm) 'Agregamos el ticket y pago a la lista para imprimir el ticket con estos datos al llamar b_imprimirTicket_Click
|
||||
End If
|
||||
b_imprimirTicket_Click
|
||||
b_leyendaDescuento_Click
|
||||
Sleep(1000)
|
||||
WobbleMenu1_Tab1Click
|
||||
End Sub
|
||||
@@ -2064,198 +2105,9 @@ Sub imprimeTicket (ticket As String, pago As String) As ResumableSub
|
||||
End Sub
|
||||
|
||||
Private Sub b_imprimirTicket_Click
|
||||
Private imprimirEste As Boolean = Starter.imprimirTicket
|
||||
Private logger As Boolean = True
|
||||
Private TAMANO As Int
|
||||
Private ESPACIO As Int
|
||||
Private BLANCO As String
|
||||
Private c, s As Cursor
|
||||
Private l_total, la_cuenta As Label
|
||||
l_total.Initialize("l")
|
||||
la_cuenta.Initialize("2")
|
||||
b_imprimirTicket.Enabled = False
|
||||
' If l_total.Text <> Null And l_total.Text <> "null" Then Subs.ponImpreso(la_cuenta.Text) 'Solo lo marcamos como impreso si tiene venta (total > 0).
|
||||
ProgressDialogShow("Imprimiendo, un momento ...")
|
||||
For k = 0 To listaTickets.Size - 1 'Por cada ticket y pago de la lista imprimimos un ticket.
|
||||
If imprimirEste Then
|
||||
Printer1.DisConnect
|
||||
If Not(Printer1.IsConnected) Then
|
||||
If Starter.logger Then Log("conectando 1")
|
||||
Printer1.Connect
|
||||
Private cont As Int = 0
|
||||
Do While Not(impresoraConectada)
|
||||
Sleep(1000)
|
||||
cont = cont + 1
|
||||
If cont = 7 Then Printer1.Connect 'Tratamos de reconectar
|
||||
If cont > 15 Then impresoraConectada = True
|
||||
Loop
|
||||
Sleep(500)
|
||||
impresoraConectada = False
|
||||
Else
|
||||
If Starter.logger Then Log("conectando 2")
|
||||
Printer1.Connect
|
||||
Private cont As Int = 0
|
||||
Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
|
||||
Sleep(1000)
|
||||
cont = cont + 1
|
||||
If cont = 2 Then Printer1.Connect
|
||||
If cont > 4 Then impresoraConectada = True
|
||||
Loop
|
||||
Sleep(500)
|
||||
impresoraConectada = False
|
||||
End If
|
||||
End If
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
Private sDate,sTime As String
|
||||
sDate = DateTime.Date(DateTime.Now)
|
||||
sTime = DateTime.Time(DateTime.Now)
|
||||
' c.Close
|
||||
' c=Starter.skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As String ("SUCURSAL"))
|
||||
' c.Position = 0
|
||||
Private sucursal As String = "SUCURSAL"
|
||||
' c.Close
|
||||
TAMANO = 0
|
||||
ESPACIO = 14
|
||||
BLANCO = " " 'esto para las impresoras nuevas
|
||||
'printer.Initialize(cmp20.OutputStream)
|
||||
If imprimirEste Then Printer1.Reset
|
||||
Dim bmp As Bitmap
|
||||
bmp.InitializeResize(File.DirAssets, "logoLanter2.bmp", 376, 129, True) 'ignore
|
||||
Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
|
||||
myimage = Printer1.DitherImage2D(myimage, 128)
|
||||
myimage= Printer1.PackImage(myimage)
|
||||
' LogColor(listaTickets, Colors.red)
|
||||
If logger Then LogColor($">>>>>> INICIA IMPRESION DE TICKET ${listaTickets.Get(k).As(Map).Get("ticket")} <<<<<<<<<<<<"$, Colors.Red)
|
||||
Starter.ticketActual = listaTickets.Get(k).As(Map).Get("ticket")
|
||||
tipoPago = listaTickets.Get(k).As(Map).Get("pago")
|
||||
Try
|
||||
If imprimirEste Then Printer1.WriteString(CRLF) ' nudge the printer to show the user something is happening
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.REVERSE)
|
||||
If imprimirEste Then Printer1.PrintImage(myimage)
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.UNREVERSE)
|
||||
If tipoPago <> "VENTA" Then 'Solo imprimimos los datos fiscales si es para b_pagoCerrar.
|
||||
If imprimirEste Then Printer1.WriteString("RESTAURANTE Y COCINA ITALIANA PEVEL" & CRLF)
|
||||
If logger Then Log("RESTAURANTE Y COCINA ITALIANA PEVEL" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("RFC: RCI230918DAA " & CRLF)
|
||||
If logger Then Log("RFC: RCI230918DAA" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("REG FSC: GENERAL DE LEY DE PERSONAS MORALES" & CRLF)
|
||||
If logger Then Log("REG FSC: GENERAL DE LEY DE PERSONAS MORALES" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("DOM FSC: PASEO DE LAS PALMAS NO. 275, LOCAL B" & CRLF)
|
||||
If logger Then Log("DOM FSC: PASEO DE LAS PALMAS NO. 275, LOCAL B" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("EXPEDIDO EN: PASEO DE LAS PALMAS NO. 275, LOCAL B" & CRLF)
|
||||
If logger Then Log("EXPEDIDO EN: PASEO DE LAS PALMAS NO. 275, LOCAL B" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("TEL: 55 5207 9969" & CRLF)
|
||||
If logger Then Log("TEL: 55 5207 9969" & CRLF)
|
||||
End If
|
||||
If imprimirEste Then Printer1.WriteString("CDMX " & sDate &" " & sTime & CRLF)
|
||||
If logger Then Log("CDMX " & sDate &" " & sTime & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.BOLD)
|
||||
If imprimirEste Then Printer1.WriteString("No. Ticket: " & Starter.ticketActual & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.NOBOLD)
|
||||
If logger Then Log("No. Ticket: " & Starter.ticketActual & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString($"Mesero: ${Starter.meseroActual}${Subs.rellenaHasta(15 - Starter.meseroActual.Length)}${Printer1.BOLD} # Mesa${CRLF}"$)
|
||||
If logger Then Log($"Mesero: ${Starter.meseroActual}${Subs.rellenaHasta(15 - Starter.meseroActual.Length)} # Mesa${CRLF}"$)
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.NOBOLD)
|
||||
If imprimirEste Then Printer1.WriteString($"Comensales: ${Starter.comensalesActuales}${Subs.rellenaHasta(14 - Starter.mesaActual.Length)}${Printer1.BOLD} ${Starter.mesaActual}${CRLF}"$)
|
||||
If logger Then Log($"Comensales: ${Starter.comensalesActuales}${Subs.rellenaHasta(14 - Starter.mesaActual.Length)}${Starter.mesaActual}${CRLF}"$)
|
||||
' If imprimirEste Then Printer1.WriteString($"${Printer1.BOLD}${Subs.alineaDerecha(Starter.mesaActual, 28, " ")}"$)
|
||||
' If logger Then Log($"${Subs.alineaDerecha(Starter.mesaActual, 28, " ")}"$)
|
||||
' If imprimirEste Then Printer1.WriteString("ID.Cliente: " & la_cuenta.Text & CRLF)
|
||||
' If logger Then Log("ID.Cliente: " & la_cuenta.Text & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString(" " & CRLF)
|
||||
c = Starter.skmt.ExecQuery($"select *, ifnull(PE_DESC, 0) as DESC from PEDIDO where PE_MESA = '${Starter.mesaActual}' and PE_TIPO = '${tipoPago}' and PE_TICKET = '${Starter.ticketActual}'"$)
|
||||
' Log($"select * from PEDIDO where PE_MESA = '${Starter.mesaActual}' and PE_TIPO = '${tipoPago}' and PE_TICKET = '${Starter.ticketActual}'"$)
|
||||
' Log(c.RowCount)
|
||||
If c.RowCount > 0 Then
|
||||
Private elSubTotal As String = 0
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.NOBOLD)
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Private elNombre As String = c.GetString("PE_PRONOMBRE")
|
||||
If elNombre.Length > 30 Then elNombre.SubString2(0, 30)
|
||||
elSubTotal = c.GetString("PE_COSTO_TOT") - (c.GetString("PE_COSTO_TOT") * (c.GetString("DESC") / 100))
|
||||
Private cantXpu As String = $"${c.GetString("PE_CANT")} x ${c.GetString("PE_COSTOU")}"$
|
||||
If imprimirEste Then Printer1.WriteString($"${c.GetString("PE_CANT")} ${elNombre}${CRLF}${cantXpu}${Subs.alineaDerecha("$"&NumberFormat2(elSubTotal, 1, 2, 2, True), (30 - cantXpu.Length), ".")}${CRLF}"$)
|
||||
Log($"${c.GetString("PE_CANT")} ${elNombre}${CRLF}${cantXpu}${Subs.alineaDerecha("$"&NumberFormat2(elSubTotal, 1, 2, 2, True), (30 - cantXpu.Length), ".")}${CRLF}"$)
|
||||
Next
|
||||
End If
|
||||
c = Starter.skmt.ExecQuery($"select *, ifnull(PT_PROPINA, "0") as propina, ifnull(PT_ALMACEN, "") as ALM from PEDIDO_TICKET where PT_MESA = '${Starter.mesaActual}' and PT_PAGO = '${tipoPago}' and PT_TICKET = '${Starter.ticketActual}'"$)
|
||||
' Log($"Rowcount: ${c.RowCount}"$)
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
' Log(c.GetString("propina"))
|
||||
|
||||
' Private z As Cursor = Starter.skmt.ExecQuery($"select *, ifnull(PE_DESC, 0) as DESC from PEDIDO where PE_MESA = '${Starter.mesaActual}' and PE_TIPO = '${tipoPago}' and PE_TICKET = '${Starter.ticketActual}'"$)
|
||||
' Log(z.RowCount)
|
||||
' Private y As Cursor = Starter.skmt.ExecQuery($"select PE_COSTO_TOT, ifnull(PE_DESC, 0) as DESC from PEDIDO where PE_TICKET = '${Starter.ticketActual}' and PE_MESA = '${Starter.mesaActual}' and PE_TIPO = 'VENTA'"$)
|
||||
' Log(y.RowCount)
|
||||
' Private x As Cursor = Starter.skmt.ExecQuery($"select PE_COSTO_TOT, ifnull(PE_DESC, 0) as DESC, CAT_GP_TIPO from PEDIDO join CAT_GUNAPROD on CAT_GP_ID = PE_PROID where PE_TICKET = '${Starter.ticketActual}' and PE_MESA = '${Starter.mesaActual}' and PE_TIPO = 'VENTA'"$)
|
||||
' Log(x.RowCount)
|
||||
|
||||
Private elTotal As String = Subs.traeTotalTicketActual_P(tipoPago)
|
||||
If c.GetString("ALM") = "MULTI-TICKET" Then elTotal = c.GetString("PT_MONTO")
|
||||
' Log(">>>>>>>> " & Subs.traeTotalTicketActual_P(tipoPago))
|
||||
' If c.GetString("propina") <> 0 And c.GetString("PT_PAGO_PROPINA") = "Tarjeta" Then 'Se comento porque lo propina no se debe de sumar al ticket.
|
||||
' If imprimirEste Then Printer1.WriteString($"${CRLF}Propina: $${NumberFormat2(c.GetString("PT_PROPINA"), 1, 2, 2, True)}"$)
|
||||
' If logger Then Log($"${CRLF}Propina: $${NumberFormat2(c.GetString("PT_PROPINA"), 1, 2, 2, True)}"$)
|
||||
' elTotal = elTotal + c.GetString("PT_PROPINA")
|
||||
' End If
|
||||
If imprimirEste Then Printer1.WriteString($"${CRLF}Total: $${NumberFormat2(elTotal, 1, 2, 2, True)}"$)
|
||||
If logger Then Log($"${CRLF}Total: $${NumberFormat2(elTotal, 1, 2, 2, True)}"$)
|
||||
If imprimirEste Then Printer1.WriteString($"${CRLF}${n2t.NumberToWords(NumberFormat2(elTotal, 1, 2, 2, False))}"$)
|
||||
If logger Then Log($"${CRLF}${n2t.NumberToWords(NumberFormat2(elTotal, 1, 2, 2, False))}"$)
|
||||
If tipoPago <> "VENTA" Then
|
||||
Private fPago As String = c.GetString("PT_PAGO")
|
||||
If fPago = "EFECTIVO" Then fPago = "EFEPUNTOS"
|
||||
If imprimirEste Then Printer1.WriteString($"${CRLF}Forma de pago: ${fPago}"$)
|
||||
If logger Then Log($"${CRLF}Forma de pago: ${fPago}"$)
|
||||
End If
|
||||
End If
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.UNREVERSE)
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.NOBOLD)
|
||||
If imprimirEste Then Printer1.WriteString(CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("------------------------------" & CRLF)
|
||||
If logger Then Log("------------------------------" & CRLF)
|
||||
If tipoPago <> "VENTA" Then
|
||||
If imprimirEste Then Printer1.WriteString("----------- PAGADO -----------" & CRLF)
|
||||
If logger Then Log("------------ PAGADO ----------" & CRLF)
|
||||
Else
|
||||
If imprimirEste Then Printer1.WriteString("---------- NO PAGADO ---------" & CRLF)
|
||||
If logger Then Log("---------- NO PAGADO ---------" & CRLF)
|
||||
End If
|
||||
If imprimirEste Then Printer1.WriteString("------------------------------" & CRLF)
|
||||
If logger Then Log("------------------------------" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("----ESTE TICKET NO ES UN -----" & CRLF)
|
||||
If logger Then Log("----ESTE TICKET NO ES UN -----" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
|
||||
If logger Then Log("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("--------INFORMATIVO-----------" & CRLF)
|
||||
If logger Then Log("--------INFORMATIVO-----------" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("------------------------------" & CRLF)
|
||||
If logger Then Log("------------------------------" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString(CRLF)
|
||||
If tipoPago = "VENTA" Then
|
||||
If imprimirEste Then Printer1.WriteString("------ 10% DE DESCUENTO ------" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("----- PAGANDO EN EFECTIVO ----" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("-- >> SOLO EN ALIMENTOS << ---" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString(CRLF)
|
||||
If logger Then Log("------ 10% DE DESCUENTO ------" & CRLF)
|
||||
If logger Then Log("----- PAGANDO EN EFECTIVO ----" & CRLF)
|
||||
If logger Then Log("-- >> SOLO EN ALIMENTOS << ---" & CRLF)
|
||||
End If
|
||||
If imprimirEste Then Printer1.WriteString(CRLF)
|
||||
If imprimirEste Then Printer1.WriteString(CRLF)
|
||||
Sleep(1000)
|
||||
Printer1.DisConnect
|
||||
Catch
|
||||
Log(LastException)
|
||||
End Try
|
||||
Sleep(1000)
|
||||
Next
|
||||
Sleep(1000)
|
||||
b_imprimirTicket.Enabled = True
|
||||
ProgressDialogHide
|
||||
' B4XPage_CloseRequest
|
||||
p_leyendaDescuento.Visible = True
|
||||
p_leyendaDescuento.BringToFront
|
||||
cb_leyendaDescuento.Checked = True
|
||||
End Sub
|
||||
|
||||
Private Sub cb_pagoPropina_SelectedIndexChanged (Index As Int)
|
||||
@@ -2269,7 +2121,7 @@ End Sub
|
||||
Private Sub l_prodX_LongClick
|
||||
Log(Sender.As(Label).tag)
|
||||
Private m As Map = Sender.As(Label).tag.As(Map)
|
||||
If m.Get("prod").As(String).Contains("Alimentos Varios") Then
|
||||
If m.Get("prod").As(String).Contains("Alimentos Varios") Or m.Get("prod").As(String).Contains("Bebidas Varias") Then
|
||||
p_renombraVarios.BringToFront
|
||||
et_nombreVariable.Text = m.Get("prod")
|
||||
et_nombreVariable.tag = m
|
||||
@@ -2317,7 +2169,7 @@ Sub agregaFormaDePago(left0 As Int, top0 As Int, tag0 As Int)
|
||||
p_propina.Top = p_propina.Top + 70
|
||||
p_formasDePago.Height = p_formasDePago.Height + 70
|
||||
p_pago.Height = p_pago.Height + 70
|
||||
b_pagoCerrar.Top = b_pagoCerrar.Top + 70
|
||||
p_botonesCerrar.Top = p_botonesCerrar.Top + 70
|
||||
End If
|
||||
l_tipoPago2.Text = $"${Starter.formasDePago}:"$
|
||||
cb_pago2.Tag = tag0
|
||||
@@ -2444,10 +2296,10 @@ Private Sub lv_historial_ItemLongClick (Position As Int, Value As Object)
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Private n As String = c.GetString("PE_PRONOMBRE")
|
||||
Private n1 As String = c.GetString("PE_PRONOMBRE")
|
||||
' Log(n.Length & " - " & n)
|
||||
If n.Length > 25 Then n = n.SubString2(0, 25)
|
||||
lv_verOrden.AddTwoLines($"${c.GetString("PE_CANT")} - ${n}"$, $"Precio: $${c.GetString("PE_COSTOU")}"$)
|
||||
If n1.Length > 25 Then n1 = n1.SubString2(0, 25)
|
||||
lv_verOrden.AddTwoLines($"${c.GetString("PE_CANT")} - ${n1}"$, $"Precio: $${c.GetString("PE_COSTOU")}"$)
|
||||
Next
|
||||
End If
|
||||
p_transparenteVerOrden.Visible = True
|
||||
@@ -2503,3 +2355,221 @@ Private Sub b_reabrirMesaMulti_Click
|
||||
p_transparenteVerOrden.Visible = False
|
||||
WobbleMenu1_Tab1Click
|
||||
End Sub
|
||||
|
||||
Private Sub b_imprimirCerrar_Click
|
||||
' b_imprimirTicket_Click
|
||||
End Sub
|
||||
|
||||
Private Sub b_leyendaDescuento_Click
|
||||
Private imprimirEste As Boolean = Starter.imprimirTicket
|
||||
Private logger As Boolean = True
|
||||
Private TAMANO As Int
|
||||
Private ESPACIO As Int
|
||||
Private BLANCO As String
|
||||
Private c, s As Cursor
|
||||
Private l_total, la_cuenta As Label
|
||||
l_total.Initialize("l")
|
||||
la_cuenta.Initialize("2")
|
||||
b_imprimirTicket.Enabled = False
|
||||
' If l_total.Text <> Null And l_total.Text <> "null" Then Subs.ponImpreso(la_cuenta.Text) 'Solo lo marcamos como impreso si tiene venta (total > 0).
|
||||
ProgressDialogShow("Imprimiendo, un momento ...")
|
||||
For k = 0 To listaTickets.Size - 1 'Por cada ticket y pago de la lista imprimimos un ticket.
|
||||
If imprimirEste Then
|
||||
Printer1.DisConnect
|
||||
If Not(Printer1.IsConnected) Then
|
||||
If Starter.logger Then Log("conectando 1")
|
||||
Printer1.Connect
|
||||
Private cont As Int = 0
|
||||
Do While Not(impresoraConectada)
|
||||
Sleep(1000)
|
||||
cont = cont + 1
|
||||
If cont = 7 Then Printer1.Connect 'Tratamos de reconectar
|
||||
If cont > 15 Then impresoraConectada = True
|
||||
Loop
|
||||
Sleep(500)
|
||||
impresoraConectada = False
|
||||
Else
|
||||
If Starter.logger Then Log("conectando 2")
|
||||
Printer1.Connect
|
||||
Private cont As Int = 0
|
||||
Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
|
||||
Sleep(1000)
|
||||
cont = cont + 1
|
||||
If cont = 2 Then Printer1.Connect
|
||||
If cont > 4 Then impresoraConectada = True
|
||||
Loop
|
||||
Sleep(500)
|
||||
impresoraConectada = False
|
||||
End If
|
||||
End If
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
Private sDate,sTime As String
|
||||
sDate = DateTime.Date(DateTime.Now)
|
||||
sTime = DateTime.Time(DateTime.Now)
|
||||
' c.Close
|
||||
' c=Starter.skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As String ("SUCURSAL"))
|
||||
' c.Position = 0
|
||||
Private sucursal As String = "SUCURSAL"
|
||||
' c.Close
|
||||
TAMANO = 0
|
||||
ESPACIO = 14
|
||||
BLANCO = " " 'esto para las impresoras nuevas
|
||||
'printer.Initialize(cmp20.OutputStream)
|
||||
If imprimirEste Then Printer1.Reset
|
||||
Dim bmp As Bitmap
|
||||
bmp.InitializeResize(File.DirAssets, "logoLanter2.bmp", 376, 129, True) 'ignore
|
||||
Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
|
||||
myimage = Printer1.DitherImage2D(myimage, 128)
|
||||
myimage= Printer1.PackImage(myimage)
|
||||
' LogColor(listaTickets, Colors.red)
|
||||
If logger Then LogColor($">>>>>> INICIA IMPRESION DE TICKET ${listaTickets.Get(k).As(Map).Get("ticket")} <<<<<<<<<<<<"$, Colors.Red)
|
||||
Starter.ticketActual = listaTickets.Get(k).As(Map).Get("ticket")
|
||||
tipoPago = listaTickets.Get(k).As(Map).Get("pago")
|
||||
Try
|
||||
If imprimirEste Then Printer1.WriteString(CRLF) ' nudge the printer to show the user something is happening
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.REVERSE)
|
||||
If imprimirEste Then Printer1.PrintImage(myimage)
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.UNREVERSE)
|
||||
If tipoPago <> "VENTA" Then 'Solo imprimimos los datos fiscales si es para b_pagoCerrar.
|
||||
If imprimirEste Then Printer1.WriteString("RESTAURANTE Y COCINA ITALIANA PEVEL" & CRLF)
|
||||
If logger Then Log("RESTAURANTE Y COCINA ITALIANA PEVEL" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("RFC: RCI230918DAA " & CRLF)
|
||||
If logger Then Log("RFC: RCI230918DAA" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("REG FSC: GENERAL DE LEY DE PERSONAS MORALES" & CRLF)
|
||||
If logger Then Log("REG FSC: GENERAL DE LEY DE PERSONAS MORALES" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("DOM FSC: PASEO DE LAS PALMAS NO. 275, LOCAL B" & CRLF)
|
||||
If logger Then Log("DOM FSC: PASEO DE LAS PALMAS NO. 275, LOCAL B" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("EXPEDIDO EN: PASEO DE LAS PALMAS NO. 275, LOCAL B" & CRLF)
|
||||
If logger Then Log("EXPEDIDO EN: PASEO DE LAS PALMAS NO. 275, LOCAL B" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("TEL: 55 5207 9969" & CRLF)
|
||||
If logger Then Log("TEL: 55 5207 9969" & CRLF)
|
||||
End If
|
||||
If imprimirEste Then Printer1.WriteString("CDMX " & sDate &" " & sTime & CRLF)
|
||||
If logger Then Log("CDMX " & sDate &" " & sTime & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.BOLD)
|
||||
If imprimirEste Then Printer1.WriteString("No. Ticket: " & Starter.ticketActual & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.NOBOLD)
|
||||
If logger Then Log("No. Ticket: " & Starter.ticketActual & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString($"Mesero: ${Starter.meseroActual}${Subs.rellenaHasta(15 - Starter.meseroActual.Length)}${Printer1.BOLD} # Mesa${CRLF}"$)
|
||||
If logger Then Log($"Mesero: ${Starter.meseroActual}${Subs.rellenaHasta(15 - Starter.meseroActual.Length)} # Mesa${CRLF}"$)
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.NOBOLD)
|
||||
If imprimirEste Then Printer1.WriteString($"Comensales: ${Starter.comensalesActuales}${Subs.rellenaHasta(14 - Starter.mesaActual.Length)}${Printer1.BOLD} ${Starter.mesaActual}${CRLF}"$)
|
||||
If logger Then Log($"Comensales: ${Starter.comensalesActuales}${Subs.rellenaHasta(14 - Starter.mesaActual.Length)}${Starter.mesaActual}${CRLF}"$)
|
||||
' If imprimirEste Then Printer1.WriteString($"${Printer1.BOLD}${Subs.alineaDerecha(Starter.mesaActual, 28, " ")}"$)
|
||||
' If logger Then Log($"${Subs.alineaDerecha(Starter.mesaActual, 28, " ")}"$)
|
||||
' If imprimirEste Then Printer1.WriteString("ID.Cliente: " & la_cuenta.Text & CRLF)
|
||||
' If logger Then Log("ID.Cliente: " & la_cuenta.Text & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString(" " & CRLF)
|
||||
c = Starter.skmt.ExecQuery($"select *, ifnull(PE_DESC, 0) as DESC from PEDIDO join cat_gunaprod on PE_PROID = CAT_GP_ID where PE_MESA = '${Starter.mesaActual}' and PE_TIPO = '${tipoPago}' and PE_TICKET = '${Starter.ticketActual}'"$)
|
||||
' Log($"select * from PEDIDO where PE_MESA = '${Starter.mesaActual}' and PE_TIPO = '${tipoPago}' and PE_TICKET = '${Starter.ticketActual}'"$)
|
||||
' Log(c.RowCount)
|
||||
If c.RowCount > 0 Then
|
||||
Private elSubTotal As String = 0
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.NOBOLD)
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Private elNombre As String = c.GetString("PE_PRONOMBRE")
|
||||
If elNombre.Length > 30 Then elNombre.SubString2(0, 30)
|
||||
If c.GetString("CAT_GP_TIPO") = "ALIMENTOS" Then
|
||||
elSubTotal = c.GetString("PE_COSTO_TOT") - (c.GetString("PE_COSTO_TOT") * (c.GetString("DESC") / 100))
|
||||
Else
|
||||
elSubTotal = c.GetString("PE_COSTO_TOT")
|
||||
End If
|
||||
' Log($"${c.GetString("PE_PRONOMBRE")}, ${c.GetString("DESC")}${elSubTotal}"$)
|
||||
Private cantXpu As String = $"${c.GetString("PE_CANT")} x ${elSubTotal}"$
|
||||
If imprimirEste Then Printer1.WriteString($"${c.GetString("PE_CANT")} ${elNombre}${CRLF}${cantXpu}${Subs.alineaDerecha("$"&NumberFormat2(elSubTotal, 1, 2, 2, True), (30 - cantXpu.Length), ".")}${CRLF}"$)
|
||||
Log($"${c.GetString("PE_CANT")} ${elNombre}${CRLF}${cantXpu}${Subs.alineaDerecha("$"&NumberFormat2(elSubTotal, 1, 2, 2, True), (30 - cantXpu.Length), ".")}${CRLF}"$)
|
||||
Next
|
||||
End If
|
||||
c = Starter.skmt.ExecQuery($"select *, ifnull(PT_PROPINA, "0") as propina, ifnull(PT_ALMACEN, "") as ALM from PEDIDO_TICKET where PT_MESA = '${Starter.mesaActual}' and PT_PAGO = '${tipoPago}' and PT_TICKET = '${Starter.ticketActual}'"$)
|
||||
' Log($"Rowcount: ${c.RowCount}"$)
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
' Log(c.GetString("propina"))
|
||||
|
||||
' Private z As Cursor = Starter.skmt.ExecQuery($"select *, ifnull(PE_DESC, 0) as DESC from PEDIDO where PE_MESA = '${Starter.mesaActual}' and PE_TIPO = '${tipoPago}' and PE_TICKET = '${Starter.ticketActual}'"$)
|
||||
' Log(z.RowCount)
|
||||
' Private y As Cursor = Starter.skmt.ExecQuery($"select PE_COSTO_TOT, ifnull(PE_DESC, 0) as DESC from PEDIDO where PE_TICKET = '${Starter.ticketActual}' and PE_MESA = '${Starter.mesaActual}' and PE_TIPO = 'VENTA'"$)
|
||||
' Log(y.RowCount)
|
||||
' Private x As Cursor = Starter.skmt.ExecQuery($"select PE_COSTO_TOT, ifnull(PE_DESC, 0) as DESC, CAT_GP_TIPO from PEDIDO join CAT_GUNAPROD on CAT_GP_ID = PE_PROID where PE_TICKET = '${Starter.ticketActual}' and PE_MESA = '${Starter.mesaActual}' and PE_TIPO = 'VENTA'"$)
|
||||
' Log(x.RowCount)
|
||||
|
||||
Private elTotal As String = Subs.traeTotalTicketActual_P(tipoPago)
|
||||
If c.GetString("ALM") = "MULTI-TICKET" Then elTotal = c.GetString("PT_MONTO")
|
||||
' Log(">>>>>>>> " & Subs.traeTotalTicketActual_P(tipoPago))
|
||||
' If c.GetString("propina") <> 0 And c.GetString("PT_PAGO_PROPINA") = "Tarjeta" Then 'Se comento porque lo propina no se debe de sumar al ticket.
|
||||
' If imprimirEste Then Printer1.WriteString($"${CRLF}Propina: $${NumberFormat2(c.GetString("PT_PROPINA"), 1, 2, 2, True)}"$)
|
||||
' If logger Then Log($"${CRLF}Propina: $${NumberFormat2(c.GetString("PT_PROPINA"), 1, 2, 2, True)}"$)
|
||||
' elTotal = elTotal + c.GetString("PT_PROPINA")
|
||||
' End If
|
||||
If tipoPago <> "VENTA" Then
|
||||
If imprimirEste Then Printer1.WriteString($"${CRLF}IVA: $${NumberFormat2(((elTotal * 0.16)), 1, 2, 2, True)}"$)
|
||||
If logger Then Log($"${CRLF}IVA: $${NumberFormat2(((elTotal * 0.16)), 1, 2, 2, True)}"$)
|
||||
End If
|
||||
|
||||
If imprimirEste Then Printer1.WriteString($"${CRLF}Total: $${NumberFormat2(elTotal, 1, 2, 2, True)}"$)
|
||||
If logger Then Log($"${CRLF}Total: $${NumberFormat2(elTotal, 1, 2, 2, True)}"$)
|
||||
If imprimirEste Then Printer1.WriteString($"${CRLF}${n2t.NumberToWords(NumberFormat2(elTotal, 1, 2, 2, False))}"$)
|
||||
If logger Then Log($"${CRLF}${n2t.NumberToWords(NumberFormat2(elTotal, 1, 2, 2, False))}"$)
|
||||
If tipoPago <> "VENTA" Then
|
||||
Private fPago As String = c.GetString("PT_PAGO")
|
||||
If fPago = "EFECTIVO" Then fPago = "EFEPUNTOS"
|
||||
If imprimirEste Then Printer1.WriteString($"${CRLF}Forma de pago: ${fPago}"$)
|
||||
If logger Then Log($"${CRLF}Forma de pago: ${fPago}"$)
|
||||
End If
|
||||
End If
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.UNREVERSE)
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.NOBOLD)
|
||||
If imprimirEste Then Printer1.WriteString(CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("------------------------------" & CRLF)
|
||||
If logger Then Log("------------------------------" & CRLF)
|
||||
If tipoPago <> "VENTA" Then
|
||||
If imprimirEste Then Printer1.WriteString("----------- PAGADO -----------" & CRLF)
|
||||
If logger Then Log("------------ PAGADO ----------" & CRLF)
|
||||
Else
|
||||
If imprimirEste Then Printer1.WriteString("---------- NO PAGADO ---------" & CRLF)
|
||||
If logger Then Log("---------- NO PAGADO ---------" & CRLF)
|
||||
End If
|
||||
If imprimirEste Then Printer1.WriteString("------------------------------" & CRLF)
|
||||
If logger Then Log("------------------------------" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("----ESTE TICKET NO ES UN -----" & CRLF)
|
||||
If logger Then Log("----ESTE TICKET NO ES UN -----" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
|
||||
If logger Then Log("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("--------INFORMATIVO-----------" & CRLF)
|
||||
If logger Then Log("--------INFORMATIVO-----------" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("------------------------------" & CRLF)
|
||||
If logger Then Log("------------------------------" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString(CRLF)
|
||||
If tipoPago = "VENTA" And cb_leyendaDescuento.Checked Then
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.REVERSE)
|
||||
If imprimirEste Then Printer1.WriteString("------ 10% DE DESCUENTO ------" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("----- PAGANDO EN EFECTIVO ----" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString("-- >> SOLO EN ALIMENTOS << ---" & CRLF)
|
||||
If imprimirEste Then Printer1.WriteString(Printer1.UNREVERSE)
|
||||
If imprimirEste Then Printer1.WriteString(CRLF)
|
||||
If logger Then Log("------ 10% DE DESCUENTO ------" & CRLF)
|
||||
If logger Then Log("----- PAGANDO EN EFECTIVO ----" & CRLF)
|
||||
If logger Then Log("-- >> SOLO EN ALIMENTOS << ---" & CRLF)
|
||||
End If
|
||||
If imprimirEste Then Printer1.WriteString(CRLF)
|
||||
If imprimirEste Then Printer1.WriteString(CRLF)
|
||||
Sleep(1000)
|
||||
Printer1.DisConnect
|
||||
Catch
|
||||
Log(LastException)
|
||||
End Try
|
||||
Sleep(1000)
|
||||
Next
|
||||
Sleep(1000)
|
||||
b_imprimirTicket.Enabled = True
|
||||
ProgressDialogHide
|
||||
p_leyendaDescuento.Visible = False
|
||||
' B4XPage_CloseRequest
|
||||
End Sub
|
||||
|
||||
Private Sub et_buscar_TextChanged (Old As String, New As String)
|
||||
Private c As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_TIPO = '${Starter.catActual}' and CAT_GP_NOMBRE like '%${New}%' order by CAT_GP_NOMBRE"$)
|
||||
LlenaProdsLL(c, Null)
|
||||
Log(c.RowCount)
|
||||
End Sub
|
||||
Binary file not shown.
Binary file not shown.
@@ -82,7 +82,7 @@ Version=12.8
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: Lanterna
|
||||
#VersionCode: 1
|
||||
#VersionName: 4.03.20
|
||||
#VersionName: 4.03.23
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
|
||||
@@ -25,6 +25,6 @@ ModuleClosedNodes5=
|
||||
ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=47,48
|
||||
NavigationStack=C_Principal,B4XPage_Appear,286,0,C_Principal,p_mesasItem_Click,937,0,C_Principal,B4XPage_Created,211,0,B4XMainPage,JobDone,205,2,C_Principal,b_mesaEditar_Click,1096,0,Subs,traeSubCategorias,1411,3,C_Principal,p_mesaAbierta_Click,1106,0,C_Principal,lv_categorias_ItemClick,1111,3,C_Principal,B4XPage_CloseRequest,298,6,C_Principal,muestraCats,337,6
|
||||
NavigationStack=Subs,traeSubCategorias,1410,0,Subs,traeTotalTicketActual_P,1169,0,C_Principal,et_buscar_TextChanged,2565,6,C_Principal,b_leyendaDescuento_Click,2485,6,C_Principal,p_mesasItem_Click,975,0,Visual Designer,principal.bal,-100,6,C_Principal,lv_categorias_ItemClick,1168,1,C_Principal,B4XPage_Created,209,0,C_Principal,B4XPage_Appear,276,0,C_Principal,B4XPage_CloseRequest,347,6,C_Principal,WobbleMenu1_Tab1Click,730,0
|
||||
SelectedBuild=0
|
||||
VisibleModules=1,7,8,2,3,6,4,5
|
||||
|
||||
@@ -28,7 +28,7 @@ Sub Process_Globals
|
||||
Dim formasDePago As Int = 1
|
||||
Dim imprimirTicket As Boolean = False
|
||||
Dim nivelActual As String
|
||||
dim catActual as string
|
||||
Dim catActual, subcatActual As String
|
||||
End Sub
|
||||
|
||||
Sub Service_Create
|
||||
|
||||
11
B4A/Subs.bas
11
B4A/Subs.bas
@@ -1165,12 +1165,17 @@ End Sub
|
||||
Sub traeTotalTicketActual_P(tipoPago As String) As String
|
||||
Private st As String = 0
|
||||
Private desc As String = 0
|
||||
Private p As Cursor = Starter.skmt.ExecQuery($"select PE_COSTO_TOT, ifnull(PE_DESC, 0) as DESC, CAT_GP_TIPO from PEDIDO join CAT_GUNAPROD on CAT_GP_ID = PE_PROID where PE_TICKET = '${Starter.ticketActual}' and PE_MESA = '${Starter.mesaActual}' and PE_TIPO = '${tipoPago}'"$)
|
||||
Private p As Cursor = Starter.skmt.ExecQuery($"select PE_COSTO_TOT, ifnull(PE_DESC, 0) as DESC, CAT_GP_NOMBRE, CAT_GP_TIPO from PEDIDO join CAT_GUNAPROD on CAT_GP_ID = PE_PROID where PE_TICKET = '${Starter.ticketActual}' and PE_MESA = '${Starter.mesaActual}' and PE_TIPO = '${tipoPago}'"$)
|
||||
' Log($"${p.RowCount} - select PE_COSTO_TOT, ifnull(PE_DESC, 0) as DESC, CAT_GP_TIPO from PEDIDO join CAT_GUNAPROD on CAT_GP_ID = PE_PROID where PE_TICKET = '${Starter.ticketActual}' and PE_MESA = '${Starter.mesaActual}' and PE_TIPO = '${tipoPago}'"$)
|
||||
If p.RowCount > 0 Then
|
||||
For j = 0 To p.RowCount - 1
|
||||
p.Position = j
|
||||
desc = p.GetString("DESC") / 100
|
||||
If p.GetString("CAT_GP_TIPO") = "ALIMENTOS" Then
|
||||
desc = p.GetString("DESC") / 100
|
||||
Else
|
||||
desc = 0
|
||||
End If
|
||||
' Log(">>>>>>> " & p.GetString("CAT_GP_NOMBRE") & " - " & (p.GetString("PE_COSTO_TOT") * desc))
|
||||
st = st + (p.GetString("PE_COSTO_TOT") - (p.GetString("PE_COSTO_TOT") * desc))
|
||||
Next
|
||||
End If
|
||||
@@ -1409,7 +1414,7 @@ End Sub
|
||||
Sub traeSubCategorias(cat As String) As List
|
||||
Private c As Cursor = Starter.skmt.ExecQuery($"select distinct CAT_GP_CLASIF from CAT_GUNAPROD where CAT_GP_TIPO = '${cat}' order by CAT_GP_CLASIF"$)
|
||||
Private l As List
|
||||
Log(c.RowCount)
|
||||
' Log(c.RowCount)
|
||||
If c.RowCount > 0 Then
|
||||
l.Initialize
|
||||
For i = 0 To c.RowCount - 1
|
||||
|
||||
Reference in New Issue
Block a user