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

Se agregaron las categorias de los productos y se configuro el engrane para que solo se vea con KMTS1

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-14 16:34:43 -06:00
parent 3fea2efa9e
commit 4d02d524a4
10 changed files with 579 additions and 392 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
B4A/Subs.bas
View File

@@ -188,7 +188,7 @@ End Sub
'Revisa que exista la BD y si es necesario crea algunans tablas dentro de ella
Sub revisaBD 'ignore
Log("REVISA BD")
' Log("REVISA BD")
If Not(File.Exists(Starter.ruta, "kmt.db")) Then
File.Copy(File.DirAssets, "kmt.db", Starter.ruta, "kmt.db")
LogColor("copiamos kmt.db de "&File.DirAssets & " a " & Starter.ruta,Colors.Green)
@@ -201,6 +201,9 @@ Sub revisaBD 'ignore
kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PEDIDO (PE_PRECIO2 TEXT,PE_TIPO TEXT,PE_FOLIO NUMERIC,PE_DESC NUMERIC,PE_COSTO_SIN TEXT,PE_MESA TEXT,PE_CEDIS TEXT,PE_COSTO_TOT NUMERIC,PE_COSTOU NUMERIC,PE_CANT NUMERIC,PE_PRONOMBRE TEXT,PE_PROID TEXT,PE_TICKET TEXT,PE_FECHA TEXT,PE_MESERO TEXT)")
kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PEDIDO_TICKET (PT_FACT TEXT, PT_COSTO_SIN TEXT, PT_MESA TEXT, PT_PAGO TEXT, PT_ALMACEN TEXT, PT_LON TEXT, PT_LAT TEXT, PT_TICKET TEXT, PT_FECHA TEXT, PT_MESERO TEXT, PT_COMENSALES INTEGER, PT_NOART NUMERIC, PT_MONTO TEXT, PT_ENVIO_OK INTEGER, PT_TIEMPO_TIENDA FLOAT, PT_FACTURA INTEGER)")
agregaColumna("PEDIDO_TICKET", "PT_TICKET", "TEXT")
agregaColumna("PEDIDO_TICKET", "PT_TARJETA", "TEXT")
agregaColumna("PEDIDO_TICKET", "PT_PROPINA", "TEXT")
agregaColumna("PEDIDO_TICKET", "PT_PAGO_PROPINA", "TEXT")
agregaColumna("PEDIDO", "PE_TICKET", "TEXT")
agregaColumna("PEDIDO", "PE_MESA", "TEXT")
agregaColumna("PEDIDO", "PE_MESERO", "TEXT")
@@ -1183,7 +1186,7 @@ Sub hayPedido As Boolean
thisC.Position = 0
Private hay As Boolean = False
If thisC.GetInt("hayPedido") > 0 Then hay = True
' Log($"Cliente actual=${traeTicket}, hayPedido=${hay}"$)
' Log($"Cliente actual=${Starter.ticketActual}, hayPedido=${hay}"$)
Return hay
End Sub
@@ -1271,7 +1274,7 @@ Sub actualizaProducto(costoU As String, cant As String, nombre As String, prodId
End If
Else
'INSERTAMOS
LogColor("INSERTAMOS PROD", Colors.red)
' LogColor("INSERTAMOS PROD", Colors.red)
If cant > 0 Then guardaProductoSinGestion(costoU, cant, nombre, prodId, ticketId, fecha, mesero, mesa, precioSin, tipoVenta, comensales)
End If
c.Close
@@ -1290,12 +1293,12 @@ Sub guardaProductoSinGestion(costoU As String, cant As String, nombre As String,
'Actualizamos el inventario en cat_gunaprod solo si no es RMI
Starter.skmt.ExecNonQuery2($"update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? "$, Array As Object(cant, prodId))
c = Starter.skmt.ExecQuery($"select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_TICKET = '${ticketId}' and PE_TIPO = 'VENTA' and PE_MESA = '${mesa}'"$)
Log($"select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_TICKET = '${ticketId}'"$)
' Log($"select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_TICKET = '${ticketId}'"$)
c.Position = 0
Starter.skmt.ExecNonQuery($"delete from PEDIDO_TICKET where PT_TICKET = '${ticketId}' and PT_MESA = '${mesa}' and PT_PAGO = '${tipoVenta}'"$)
' Log($"delete from PEDIDO_TICKET where PT_TICKET = '${ticketId}' and PT_MESA = '${mesa}' and PT_PAGO = '${tipoVenta}'"$)
Starter.skmt.ExecNonQuery2("insert into PEDIDO_TICKET(PT_TICKET, PT_PAGO, PT_FECHA, PT_MESERO, PT_NOART, PT_MONTO, PT_MESA, PT_COSTO_SIN, PT_COMENSALES) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object(ticketId, tipoVenta, fecha, mesero, c.GetString("CANT_CLIE"), c.GetString("TOTAL_CLIE"), mesa, c.GetString("TOTAL_CLIE_SIN"), comensales))
Log($"insert into PEDIDO_TICKET(PT_TICKET, PT_PAGO, PT_MESERO, PT_NOART, PT_MONTO, PT_MESA, PT_COSTO_SIN, PT_COMENSALES) VALUES (${ticketId}, ${tipoVenta}, ${mesero}, ${c.GetString("CANT_CLIE")}, ${c.GetString("TOTAL_CLIE")}, ${mesa}, ${c.GetString("TOTAL_CLIE_SIN")}, ${comensales})"$)
' Log($"insert into PEDIDO_TICKET(PT_TICKET, PT_PAGO, PT_MESERO, PT_NOART, PT_MONTO, PT_MESA, PT_COSTO_SIN, PT_COMENSALES) VALUES (${ticketId}, ${tipoVenta}, ${mesero}, ${c.GetString("CANT_CLIE")}, ${c.GetString("TOTAL_CLIE")}, ${mesa}, ${c.GetString("TOTAL_CLIE_SIN")}, ${comensales})"$)
End Sub
Sub agrupador()
@@ -1355,6 +1358,20 @@ Sub traeMeserosLista As List 'ignore
Return items
End Sub
'Regresa las categorias de los productos en una lista
Sub traeCategorias As List
Private c As Cursor = Starter.skmt.ExecQuery($"select distinct CAT_GP_CLASIF from CAT_GUNAPROD order by CAT_GP_CLASIF"$)
Private l As List
If c.RowCount > 0 Then
l.Initialize
For i = 0 To c.RowCount - 1
c.Position = i
l.Add(c.GetString("CAT_GP_CLASIF"))
Next
End If
Return l
End Sub
'Regresa una lista con el id de los meseros desde la base de datos.
Sub traeMeserosIdLista As List 'ignore
Private cc As Cursor = Starter.skmt.ExecQuery($"select * from cat_meseros order by ms_nombre"$)
@@ -1373,7 +1390,7 @@ Sub traeMeserosIdLista As List 'ignore
End Sub
'Regresa el mesero de la mesa dada.
Sub traeMesero(mesaId As String) As String
Sub traeMeseroNombre(mesaId As String) As String
Private m As String = "NINGUNO"
Private c As Cursor = Starter.skmt.ExecQuery($"select IFNULL(M_MESERO, "NINGUNO") as MESERO from CAT_MESAS where M_ID = '${mesaId}'"$)
Log($"select IFNULL(M_MESERO, "NINGUNO") as MESERO from CAT_MESAS where M_ID = '${mesaId}'"$)
@@ -1446,6 +1463,25 @@ Sub SetButtonTintList(View As View, Disabled As Int, Enabled As Int)
jo.RunMethod("setButtonTintList", Array(View, CSL))
End Sub
'Regresa el texto dado, rellenado a la cantidad de espacios especificados.
Sub alineaDerecha(texto As String, tamano As Int, relleno As String) As String
Private blanco As String = relleno
tamano = tamano - texto.Length - 1
For E = 0 To tamano - 1
blanco = relleno & blanco
Next
' Log(blanco & texto)
Return blanco & texto
End Sub
'Regresa una cadena de espacios del tamaño especificado
Sub rellenaHasta(tamano As Int) As String
Private relleno As String = ""
For i = 0 To tamano - 1
relleno = relleno & " "
Next
Return relleno
End Sub
'CAT_GUNAPRODS, CAT_MESAS y CAT_MESEROS
'1782