- VERSION 5.02.13

- Se agrego el "total" a la pantalla de la mesa.
- Se agregó el "total de mesas" al reporte A+B

Subs.bas

@@ -1548,6 +1548,12 @@ Sub revisaEfectivoBorrado As Boolean
 	Return efeBorr
 End Sub
 
+'Regresa cuantas mesas tuvieron venta
+Sub traeCuantasMesas As Int
+	Private cm As Cursor = Starter.skmt.ExecQuery($"Select distinct pe_mesa, pe_ticket, PE_TIPO, pe_origen from pedido where pe_origen Is Null order by cast( pe_mesa As integer)"$)
+	Return cm.RowCount
+End Sub
+
 'Change CheckBox colors
 Sub SetButtonTintList(View As View, Disabled As Int, Enabled As Int)
 	Dim States(2,1) As Int