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 terminó el código para el resumen del día.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-25 01:30:02 -06:00
parent c211493a82
commit 0b1426e4ec
7 changed files with 247 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Subs.bas
View File

@@ -206,6 +206,7 @@ Sub revisaBD 'ignore
agregaColumna("PEDIDO_TICKET", "PT_TARJETA", "TEXT")
agregaColumna("PEDIDO_TICKET", "PT_PROPINA", "TEXT")
agregaColumna("PEDIDO_TICKET", "PT_PAGO_PROPINA", "TEXT")
agregaColumna("PEDIDO_TICKET", "PT_FACTURAR", "TEXT")
agregaColumna("PEDIDO", "PE_TICKET", "TEXT")
agregaColumna("PEDIDO", "PE_MESA", "TEXT")
agregaColumna("PEDIDO", "PE_MESERO", "TEXT")
@@ -1298,7 +1299,7 @@ Sub actualizaProducto(costoU As String, cant As String, nombre As String, prodId
' Log($"select * from pedido where PE_PROID = '${prodId}' and PE_TICKET = '${ticketId}' and PE_MESA = '${mesa}' and PE_TIPO = '${tipoVenta}'"$)
' Log(c.RowCount)
If c.RowCount > 0 Then
LogColor("ACTUALIZAMOS PROD", Colors.Blue)
' LogColor("ACTUALIZAMOS PROD", Colors.Blue)
c.Position = 0
Private antCant As Int = 0
If IsNumber(c.GetInt("PE_CANT")) Then antCant=c.GetInt("PE_CANT")