VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Panel 
   BorderStyle     =   0  'None
   Caption         =   "Pizza"
   ClientHeight    =   9000
   ClientLeft      =   1815
   ClientTop       =   2640
   ClientWidth     =   12000
   Icon            =   "pizza.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   Picture         =   "pizza.frx":0E42
   ScaleHeight     =   600
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   800
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   62
      Left            =   5880
      Style           =   1  'Graphical
      TabIndex        =   121
      Top             =   6000
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   61
      Left            =   4920
      Style           =   1  'Graphical
      TabIndex        =   120
      Top             =   6000
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   60
      Left            =   3960
      Style           =   1  'Graphical
      TabIndex        =   119
      Top             =   6000
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   59
      Left            =   3000
      Style           =   1  'Graphical
      TabIndex        =   118
      Top             =   6000
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   58
      Left            =   2040
      Style           =   1  'Graphical
      TabIndex        =   117
      Top             =   6000
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   57
      Left            =   1080
      Style           =   1  'Graphical
      TabIndex        =   116
      Top             =   6000
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   56
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   115
      Top             =   6000
      Width           =   975
   End
   Begin VB.PictureBox picGrupo 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   975
      Index           =   11
      Left            =   5880
      Picture         =   "pizza.frx":3EF8C
      ScaleHeight     =   945
      ScaleWidth      =   945
      TabIndex        =   114
      Top             =   7800
      Width           =   975
   End
   Begin VB.PictureBox picGrupo 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   975
      Index           =   10
      Left            =   4920
      Picture         =   "pizza.frx":40595
      ScaleHeight     =   945
      ScaleWidth      =   945
      TabIndex        =   113
      Top             =   7800
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   55
      Left            =   5880
      Style           =   1  'Graphical
      TabIndex        =   112
      Top             =   5280
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   54
      Left            =   4920
      Style           =   1  'Graphical
      TabIndex        =   111
      Top             =   5280
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   53
      Left            =   3960
      Style           =   1  'Graphical
      TabIndex        =   110
      Top             =   5280
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   52
      Left            =   3000
      Style           =   1  'Graphical
      TabIndex        =   109
      Top             =   5280
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   51
      Left            =   2040
      Style           =   1  'Graphical
      TabIndex        =   108
      Top             =   5280
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   50
      Left            =   1080
      Style           =   1  'Graphical
      TabIndex        =   107
      Top             =   5280
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   49
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   106
      Top             =   5280
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   48
      Left            =   5880
      Style           =   1  'Graphical
      TabIndex        =   105
      Top             =   4560
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   47
      Left            =   4920
      Style           =   1  'Graphical
      TabIndex        =   104
      Top             =   4560
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   46
      Left            =   3960
      Style           =   1  'Graphical
      TabIndex        =   103
      Top             =   4560
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   45
      Left            =   3000
      Style           =   1  'Graphical
      TabIndex        =   102
      Top             =   4560
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   44
      Left            =   2040
      Style           =   1  'Graphical
      TabIndex        =   101
      Top             =   4560
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   43
      Left            =   1080
      Style           =   1  'Graphical
      TabIndex        =   100
      Top             =   4560
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   42
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   99
      Top             =   4560
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H8000000E&
      Caption         =   "ABRIR CAJON"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   675
      Left            =   10800
      TabIndex        =   98
      Top             =   5880
      Width           =   1095
   End
   Begin VB.CommandButton btnCocina 
      Caption         =   "TICKET COCINA"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   10800
      TabIndex        =   97
      Top             =   5160
      Width           =   1095
   End
   Begin VB.CommandButton btnBarra 
      Height          =   975
      Left            =   120
      Picture         =   "pizza.frx":41B3D
      Style           =   1  'Graphical
      TabIndex        =   96
      Top             =   6840
      Width           =   975
   End
   Begin VB.PictureBox picGrupo 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   975
      Index           =   9
      Left            =   3960
      Picture         =   "pizza.frx":43237
      ScaleHeight     =   945
      ScaleWidth      =   945
      TabIndex        =   95
      Top             =   7800
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   41
      Left            =   5880
      Style           =   1  'Graphical
      TabIndex        =   94
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   40
      Left            =   4920
      Style           =   1  'Graphical
      TabIndex        =   93
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   39
      Left            =   3960
      Style           =   1  'Graphical
      TabIndex        =   92
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   38
      Left            =   3000
      Style           =   1  'Graphical
      TabIndex        =   91
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   37
      Left            =   2040
      Style           =   1  'Graphical
      TabIndex        =   90
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   36
      Left            =   1080
      Style           =   1  'Graphical
      TabIndex        =   89
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   35
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   88
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   34
      Left            =   5880
      Style           =   1  'Graphical
      TabIndex        =   87
      Top             =   3120
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   33
      Left            =   4920
      Style           =   1  'Graphical
      TabIndex        =   86
      Top             =   3120
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   32
      Left            =   3960
      Style           =   1  'Graphical
      TabIndex        =   85
      Top             =   3120
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   31
      Left            =   3000
      Style           =   1  'Graphical
      TabIndex        =   84
      Top             =   3120
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   30
      Left            =   2040
      Style           =   1  'Graphical
      TabIndex        =   83
      Top             =   3120
      Width           =   975
   End
   Begin VB.CommandButton btnMesa 
      Height          =   975
      Left            =   120
      Picture         =   "pizza.frx":44B4E
      Style           =   1  'Graphical
      TabIndex        =   54
      Top             =   7800
      Width           =   975
   End
   Begin VB.PictureBox picGrupo 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   975
      Index           =   8
      Left            =   3000
      Picture         =   "pizza.frx":4602C
      ScaleHeight     =   945
      ScaleWidth      =   945
      TabIndex        =   53
      Top             =   7800
      Width           =   975
   End
   Begin VB.PictureBox picGrupo 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   975
      Index           =   7
      Left            =   2040
      Picture         =   "pizza.frx":4790A
      ScaleHeight     =   945
      ScaleWidth      =   945
      TabIndex        =   52
      Top             =   7800
      Width           =   975
   End
   Begin VB.PictureBox picGrupo 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   975
      Index           =   6
      Left            =   1080
      Picture         =   "pizza.frx":48F82
      ScaleHeight     =   945
      ScaleWidth      =   945
      TabIndex        =   51
      Top             =   7800
      Width           =   975
   End
   Begin VB.PictureBox picGrupo 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   975
      Index           =   5
      Left            =   5880
      Picture         =   "pizza.frx":4A5B2
      ScaleHeight     =   945
      ScaleWidth      =   945
      TabIndex        =   50
      Top             =   6840
      Width           =   975
   End
   Begin VB.PictureBox picGrupo 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   975
      Index           =   4
      Left            =   4920
      Picture         =   "pizza.frx":4BBBB
      ScaleHeight     =   945
      ScaleWidth      =   945
      TabIndex        =   49
      Top             =   6840
      Width           =   975
   End
   Begin VB.PictureBox picGrupo 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   975
      Index           =   3
      Left            =   3960
      Picture         =   "pizza.frx":4D163
      ScaleHeight     =   945
      ScaleWidth      =   945
      TabIndex        =   44
      Top             =   6840
      Width           =   975
   End
   Begin VB.PictureBox picGrupo 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   975
      Index           =   2
      Left            =   3000
      Picture         =   "pizza.frx":4EA7A
      ScaleHeight     =   945
      ScaleWidth      =   945
      TabIndex        =   43
      Top             =   6840
      Width           =   975
   End
   Begin VB.PictureBox picGrupo 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   975
      Index           =   1
      Left            =   2040
      Picture         =   "pizza.frx":50137
      ScaleHeight     =   945
      ScaleWidth      =   945
      TabIndex        =   42
      Top             =   6840
      Width           =   975
   End
   Begin VB.PictureBox picGrupo 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BeginProperty DataFormat 
         Type            =   0
         Format          =   ""
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   3082
         SubFormatType   =   0
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   975
      Index           =   0
      Left            =   1080
      Picture         =   "pizza.frx":5157F
      ScaleHeight     =   945
      ScaleWidth      =   945
      TabIndex        =   41
      Top             =   6840
      Width           =   975
   End
   Begin VB.Data Data3 
      Caption         =   "Data3"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   300
      Left            =   12360
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   6240
      Width           =   2820
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00FFFFFF&
      Height          =   1095
      Left            =   10800
      MaskColor       =   &H00FFFFFF&
      Picture         =   "pizza.frx":52A9F
      Style           =   1  'Graphical
      TabIndex        =   37
      Top             =   7560
      UseMaskColor    =   -1  'True
      Width           =   1095
   End
   Begin VB.CommandButton Command40 
      Height          =   855
      Left            =   10800
      Picture         =   "pizza.frx":533A6
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   6720
      Width           =   1095
   End
   Begin VB.CommandButton Command39 
      Caption         =   "PRECIO LIBRE"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   10800
      TabIndex        =   5
      Top             =   4440
      Width           =   1095
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   12840
      Top             =   6960
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
   Begin VB.Data Data2 
      Caption         =   "Data2"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   13440
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "TicketPrecio"
      Top             =   7320
      Width           =   2700
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   5055
      Left            =   6960
      TabIndex        =   38
      Top             =   1680
      Width           =   3735
      _ExtentX        =   6588
      _ExtentY        =   8916
      _Version        =   393216
      Rows            =   1
      Cols            =   7
      FixedRows       =   0
      FixedCols       =   0
      BackColorBkg    =   16777215
      GridColor       =   14737632
      GridColorFixed  =   16777215
      AllowBigSelection=   0   'False
      ScrollTrack     =   -1  'True
      FocusRect       =   0
      GridLines       =   0
      GridLinesFixed  =   0
      ScrollBars      =   2
      SelectionMode   =   1
      Appearance      =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   12720
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "TicketPrecio"
      Top             =   7800
      Width           =   2535
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   29
      Left            =   1080
      Style           =   1  'Graphical
      TabIndex        =   36
      Top             =   3120
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   28
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   35
      Top             =   3120
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   27
      Left            =   5880
      Style           =   1  'Graphical
      TabIndex        =   34
      Top             =   2400
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   26
      Left            =   4920
      Style           =   1  'Graphical
      TabIndex        =   33
      Top             =   2400
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   25
      Left            =   3960
      Style           =   1  'Graphical
      TabIndex        =   32
      Top             =   2400
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   24
      Left            =   3000
      Style           =   1  'Graphical
      TabIndex        =   31
      Top             =   2400
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   23
      Left            =   2040
      Style           =   1  'Graphical
      TabIndex        =   30
      Top             =   2400
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   22
      Left            =   1080
      Style           =   1  'Graphical
      TabIndex        =   29
      Top             =   2400
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   21
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   28
      Top             =   2400
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   20
      Left            =   5880
      Style           =   1  'Graphical
      TabIndex        =   27
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   19
      Left            =   4920
      Style           =   1  'Graphical
      TabIndex        =   26
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   18
      Left            =   3960
      Style           =   1  'Graphical
      TabIndex        =   25
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   17
      Left            =   3000
      Style           =   1  'Graphical
      TabIndex        =   24
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   16
      Left            =   2040
      Style           =   1  'Graphical
      TabIndex        =   23
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   15
      Left            =   1080
      Style           =   1  'Graphical
      TabIndex        =   22
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   14
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   21
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   13
      Left            =   5880
      Style           =   1  'Graphical
      TabIndex        =   20
      Top             =   960
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   12
      Left            =   4920
      Style           =   1  'Graphical
      TabIndex        =   19
      Top             =   960
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   11
      Left            =   3960
      Style           =   1  'Graphical
      TabIndex        =   18
      Top             =   960
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   10
      Left            =   3000
      Style           =   1  'Graphical
      TabIndex        =   17
      Top             =   960
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   9
      Left            =   2040
      Style           =   1  'Graphical
      TabIndex        =   16
      Top             =   960
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   8
      Left            =   1080
      Style           =   1  'Graphical
      TabIndex        =   15
      Top             =   960
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   7
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   14
      Top             =   960
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   6
      Left            =   5880
      Style           =   1  'Graphical
      TabIndex        =   13
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   5
      Left            =   4920
      Style           =   1  'Graphical
      TabIndex        =   12
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   4
      Left            =   3960
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   3
      Left            =   3000
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   2
      Left            =   2040
      Style           =   1  'Graphical
      TabIndex        =   9
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   1
      Left            =   1080
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton btnSeleccion 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      Caption         =   "ESTO ES UNA PRUEBA"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   0
      Left            =   120
      MaskColor       =   &H00FFFFFF&
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton bBajar 
      Height          =   855
      Left            =   10800
      Picture         =   "pizza.frx":53BF6
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   3360
      Width           =   1095
   End
   Begin VB.CommandButton bSubir 
      Height          =   855
      Left            =   10800
      Picture         =   "pizza.frx":57838
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   2520
      Width           =   1095
   End
   Begin VB.CommandButton Command36 
      Height          =   1095
      Left            =   10800
      Picture         =   "pizza.frx":5B47A
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   1440
      Width           =   1095
   End
   Begin VB.CommandButton Command35 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   10800
      Picture         =   "pizza.frx":5FFBC
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   240
      Width           =   1095
   End
   Begin VB.CommandButton btnCobrar 
      Height          =   1695
      Left            =   7080
      Picture         =   "pizza.frx":63EBA
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   6960
      UseMaskColor    =   -1  'True
      Width           =   3495
   End
   Begin VB.Line Line1 
      X1              =   8
      X2              =   448
      Y1              =   520
      Y2              =   520
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   29
      Left            =   11520
      TabIndex        =   82
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   28
      Left            =   11280
      TabIndex        =   81
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   27
      Left            =   11040
      TabIndex        =   80
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   26
      Left            =   10800
      TabIndex        =   79
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   25
      Left            =   9360
      TabIndex        =   78
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   24
      Left            =   9120
      TabIndex        =   77
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   23
      Left            =   8880
      TabIndex        =   76
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   22
      Left            =   8520
      TabIndex        =   75
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   21
      Left            =   8160
      TabIndex        =   74
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   20
      Left            =   7800
      TabIndex        =   73
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   19
      Left            =   7440
      TabIndex        =   72
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   18
      Left            =   7080
      TabIndex        =   71
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   17
      Left            =   6720
      TabIndex        =   70
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   16
      Left            =   6360
      TabIndex        =   69
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   15
      Left            =   6000
      TabIndex        =   68
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   14
      Left            =   5640
      TabIndex        =   67
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   13
      Left            =   5280
      TabIndex        =   66
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   12
      Left            =   4920
      TabIndex        =   65
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   11
      Left            =   4560
      TabIndex        =   64
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   10
      Left            =   4200
      TabIndex        =   63
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   9
      Left            =   3840
      TabIndex        =   62
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   8
      Left            =   3480
      TabIndex        =   61
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   7
      Left            =   3120
      TabIndex        =   60
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   6
      Left            =   2760
      TabIndex        =   59
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   5
      Left            =   2400
      TabIndex        =   58
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   4
      Left            =   2040
      TabIndex        =   57
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   3
      Left            =   1680
      TabIndex        =   56
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   2
      Left            =   1320
      TabIndex        =   55
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   1
      Left            =   960
      TabIndex        =   48
      Top             =   0
      Width           =   375
   End
   Begin VB.Label lblMesa 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "30"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   255
      Index           =   0
      Left            =   600
      TabIndex        =   47
      Top             =   0
      Width           =   375
   End
   Begin VB.Label Mesa2 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "99"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   20.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   735
      Left            =   6960
      TabIndex        =   46
      Top             =   720
      Width           =   615
   End
   Begin VB.Label Mesa1 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Mesa"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   375
      Left            =   6960
      TabIndex        =   45
      Top             =   360
      Width           =   615
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   10920
      TabIndex        =   40
      Top             =   4200
      Width           =   855
   End
   Begin VB.Label LTotal 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   48
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   1095
      Left            =   7560
      TabIndex        =   39
      Top             =   360
      Width           =   3135
   End
End
Attribute VB_Name = "Panel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub bBajar_Click()
    If Panel.MSFlexGrid1.Rows <> 0 And MSFlexGrid1.Row <> (MSFlexGrid1.Rows - 1) Then
        MSFlexGrid1.Row = MSFlexGrid1.Row + 1
        MSFlexGrid1.RowSel = MSFlexGrid1.Row
        MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
        TEST = MSFlexGrid1.Row
    End If
    If Panel.MSFlexGrid1.Rows <> 0 And MSFlexGrid1.Row = (MSFlexGrid1.Rows - 1) Then
        MSFlexGrid1.RowSel = MSFlexGrid1.Row
        MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
    End If
End Sub

Private Sub bSubir_Click()
    If Panel.MSFlexGrid1.Rows <> 0 And MSFlexGrid1.Row <> 0 Then
        MSFlexGrid1.Row = MSFlexGrid1.Row - 1
        MSFlexGrid1.RowSel = MSFlexGrid1.Row
        MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
    End If
    If Panel.MSFlexGrid1.Rows = 1 Then
        MSFlexGrid1.RowSel = 0
        MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
    End If
End Sub

Private Sub btnBarra_Click()
    cambiamesa (60)
    picGrupo_Click (seleccion / 60)
    
    'para evitar errores al pulsar
    picGrupo(0).Enabled = True
    picGrupo(1).Enabled = True
    picGrupo(2).Enabled = True
    picGrupo(3).Enabled = True
    picGrupo(4).Enabled = True
    picGrupo(5).Enabled = True
    
    picGrupo(6).Enabled = False
    picGrupo(7).Enabled = False
    picGrupo(8).Enabled = False
    picGrupo(9).Enabled = False
    picGrupo(10).Enabled = False
    picGrupo(11).Enabled = False
    
    picGrupo_Click (0)
    
End Sub

Private Sub btnCobrar_Click()



    frmTotal.Show
    
   ' frmTotal.Total.Text = Total.Text
    frmTotal.LTotal = LTotal
    frmTotal.LCambio = LTotal
    frmTotal.LRecibido = LTotal

End Sub

Private Sub btnCocina_Click()
 Open "COM3" For Output As #1
       

        Print #1, Chr(27) & Chr$(33) & Chr$(32) 'Imprime negrita
        Print #1, "COCINA"
        Print #1, Chr(27) & Chr$(33) & Chr$(0) 'Imprime normal
        
        
        Print #1, "======================================" '38 (antes 24)
        
        For I = 0 To Panel.MSFlexGrid1.Rows - 1
            texto = Panel.MSFlexGrid1.TextMatrix(I, 3)
            
    
        strtexto = texto
        strtexto = Replace(strtexto, "á", "a")
        strtexto = Replace(strtexto, "é", "e")
        strtexto = Replace(strtexto, "í", "i")
        strtexto = Replace(strtexto, "ó", "o")
        strtexto = Replace(strtexto, "ú", "u")
        strtexto = Replace(strtexto, "Á", "A")
        strtexto = Replace(strtexto, "É", "E")
        strtexto = Replace(strtexto, "Í", "I")
        strtexto = Replace(strtexto, "Ó", "O")
        strtexto = Replace(strtexto, "Ú", "U")
        strtexto = Replace(strtexto, "Ñ", "N")
        strtexto = Replace(strtexto, "ñ", "n")
        texto = strtexto
            
            
            
            cantidad = Panel.MSFlexGrid1.TextMatrix(I, 0)
            dinero = Panel.MSFlexGrid1.TextMatrix(I, 5)
            unidad = Panel.MSFlexGrid1.TextMatrix(I, 4)

            imprimir = Space(3 - Len(cantidad)) & cantidad & " "
            
            
            imprimir = imprimir & texto & Space(20 - Len(texto))
            imprimir = imprimir & Space(7 - Len(unidad)) & unidad
            imprimir = imprimir & Space(7 - Len(dinero)) & dinero
            
            Print #1, imprimir
            imprimir = ""
        Next I
        
   
        Print #1, "======================================" '38 (antes 24)
        
        pie = "TICKET:       " & ticket & "             Mesa: " & Format(Panel.Mesa2.Caption, "00") & vbCrLf & _
        Date & "                 " & Time & vbCrLf & _
        "    "
        
        Print #1, pie
        
        Print #1, Chr(27) & "d" & Chr$(3) '11 lineas
        Print #1, Chr(27) + Chr(105)
        Close #1
End Sub

Private Sub btnMesa_Click()



'Para poner las mesas, hay que poner algo(variable) para saber que se estan eligiendo mesas en lugar de productos.


    seleccionarmesas = True
    If Mesa2 = "B" Then
    Mesa2 = 56
    End If
    
    
        'para evitar errores al pulsar
    picGrupo(0).Enabled = False
    picGrupo(1).Enabled = False
    picGrupo(2).Enabled = False
    picGrupo(3).Enabled = False
    picGrupo(4).Enabled = False
    picGrupo(5).Enabled = False
    
    picGrupo(6).Enabled = False
    picGrupo(7).Enabled = False
    picGrupo(8).Enabled = False
    picGrupo(9).Enabled = False
    picGrupo(10).Enabled = False
    picGrupo(11).Enabled = False
    
    cambiamesa (Mesa2 - 1)
    Call mesabotones
End Sub

Private Sub Command1_Click()
        Open "COM3" For Output As #1
       
       ' Open Printer.Port For Output As #1
        
        Print #1, Chr(27) + Chr(112) + Chr(0) + Chr(40) + Chr(40) 'Abrir cajon
        
        Close #1
End Sub

Private Sub Command2_Click()
    If modificar Then
        modificar = False
        Command2.BackColor = &H8000000F
    '    Command2.Style = 0
    Else
        modificar = True
        Command2.BackColor = &HFF&
    End If
End Sub

Private Sub btnSeleccion_Click(Index As Integer)


    

If seleccionarmesas Then
    cambiamesa (Index)
 '   picGrupo_Click (seleccion / 63)
    
        'para evitar errores al pulsar
    picGrupo(0).Enabled = False
    picGrupo(1).Enabled = False
    picGrupo(2).Enabled = False
    picGrupo(3).Enabled = False
    picGrupo(4).Enabled = False
    picGrupo(5).Enabled = False
    
    picGrupo(6).Enabled = True
    picGrupo(7).Enabled = True
    picGrupo(8).Enabled = True
    picGrupo(9).Enabled = True
    picGrupo(10).Enabled = True
    picGrupo(11).Enabled = True

    picGrupo_Click (6)
    
    If mesa(MesaActual, 0, 2) = 1 Then
        'frmTotal.btnImprimir.Caption = "FINALIZAR"
        
        frmTotal.btnImprimir.Visible = True
       ' frmTotal.btnTarjeta.Visible = True
      '  frmTotal.btnImprimirTicket.Visible = False
        
        
        
            frmTotal.Show
    
   ' frmTotal.Total.Text = Total.Text
    frmTotal.LTotal = LTotal
    frmTotal.LCambio = LTotal
    frmTotal.LRecibido = LTotal
    
    
    End If
Else
    If modificar Then
        modificarProducto (Index)
    Else
        agregaProducto (Index + seleccion)
    End If

End If
End Sub

Private Sub Command36_Click()
    Dim I As Integer
    Dim mover As Integer
    Dim fila As Integer
    fila = MSFlexGrid1.Row

    If Panel.MSFlexGrid1.Rows = 1 Then
    
    
    If (MSFlexGrid1.TextMatrix(fila, 0)) = 1 Then  'prueba
   ' MsgBox (1)
          Panel.MSFlexGrid1.Rows = 0
        actualizarprecio
    Else
     '   MSFlexGrid1.TextMatrix(fila, 0) = MSFlexGrid1.TextMatrix(fila, 0) - 1
      '  MSFlexGrid1.TextMatrix(fila, 5) = CDbl(MSFlexGrid1.TextMatrix(fila, 4)) * CDbl(MSFlexGrid1.TextMatrix(fila, 0))
        
    End If
    
    
    

    End If
    
    If Panel.MSFlexGrid1.Rows <> 0 Then
    
    
    If (MSFlexGrid1.TextMatrix(fila, 0)) = 1 Then  'prueba
  
        MSFlexGrid1.RemoveItem (fila)
    Else
        MSFlexGrid1.TextMatrix(fila, 0) = MSFlexGrid1.TextMatrix(fila, 0) - 1
        MSFlexGrid1.TextMatrix(fila, 5) = CDbl(MSFlexGrid1.TextMatrix(fila, 4)) * CDbl(MSFlexGrid1.TextMatrix(fila, 0))
        
    End If
    
        Panel.Data2.Refresh
        Panel.Data1.Refresh
        Panel.MSFlexGrid1.Refresh
        
        Dim X As Long
        With Panel.MSFlexGrid1
            For X = .FixedRows To .Rows - 1
                .TextMatrix(X, 5) = Format(.TextMatrix(X, 5), "###0.00")
            Next X
        End With
       
        
       
        If fila <= (MSFlexGrid1.Rows - 1) And fila > 0 Then
            MSFlexGrid1.Row = fila
            MSFlexGrid1.RowSel = MSFlexGrid1.Row
            MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
        End If
        If fila = MSFlexGrid1.Rows And fila > 0 Then
            MSFlexGrid1.Row = fila - 1
            MSFlexGrid1.RowSel = MSFlexGrid1.Row
            MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
            
        End If
        
        
        
        
        actualizarprecio
        If Panel.MSFlexGrid1.Rows <> 0 Then
            Panel.MSFlexGrid1.TopRow = Panel.MSFlexGrid1.Rows - 1
        End If
    End If
End Sub

Private Sub Command39_Click()
    frmLibre.Show
End Sub

Private Sub Command40_Click()
    frmPass.Show
End Sub

Private Sub Form_Load()


'leer contraseña
Ruta = "" & App.Path & "\datos.mdb"
On Error Resume Next
Open Ruta For Input As #1
Line Input #1, pass
Close #1


Rem S = Cadena a desencriptar
Rem P = Password

S = pass
P = "kiskaskis"
Dim I As Integer, R As String
Dim C1 As Integer, C2 As Integer
R = ""
If Len(P) > 0 Then
For I = 1 To Len(S)
C1 = Asc(Mid(S, I, 1))
If I > Len(P) Then
C2 = Asc(Mid(P, I Mod Len(P) + 1, 1))
Else
C2 = Asc(Mid(P, I, 1))
End If
C1 = C1 - C2 - 64
If Sgn(C1) = -1 Then C1 = 256 + C1
R = R + Chr(C1)
Next I
Else
R = S
End If
pass = R


Ruta = "" & App.Path & "\precios.mdb"
'copia de seguridad

'Dim dia As String
'dia = Day(Date)
'dia = Mid(dia, Len(dia), 1)

'If dia = 5 Then

On Error Resume Next
'MsgBox ("" & App.Path & "\backup\precios" & CStr(Replace(Date, "/", "")) & CStr(Replace(Time, ":", "")) & ".mdb")

FileCopy Ruta, ("" & App.Path & "\backup\precios" & CStr(Replace(Date, "/", "")) & CStr(Replace(Time, ":", "")) & ".mdb")

'End If

seleccion = 0
modificar = False
Call EnlazarBase
Call nombrebotones(seleccion)
Call actualizalista
Call ponerticket

MesaActual = 60
Mesa2.Caption = "B"
 
For I = 0 To 29
    lblMesa(I).Visible = False
Next I

    picGrupo(0).Enabled = True
    picGrupo(1).Enabled = True
    picGrupo(2).Enabled = True
    picGrupo(3).Enabled = True
    picGrupo(4).Enabled = True
    picGrupo(5).Enabled = True
    
    picGrupo(6).Enabled = False
    picGrupo(7).Enabled = False
    picGrupo(8).Enabled = False
    picGrupo(9).Enabled = False
    picGrupo(10).Enabled = False
    picGrupo(11).Enabled = False
    

On Error Resume Next

End Sub


Private Sub Command35_Click()
If MsgBox("¿Esta seguro de que desea salir?", vbYesNo, "SALIR") = 6 Then


'Dim i As Integer

   ' For i = 0 To Panel.MSFlexGrid1.Rows - 1
    '    TablaTicket.MoveLast
   '     TablaTicket.Delete
  '      Panel.Data2.Refresh
            
 '   Next i
    
  '  MSComm1.PortOpen = False

End

Else
Cancel = 1
End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("¿Esta seguro de que desea salir?", vbYesNo, "SALIR") = 6 Then

'End If

'Dim i As Integer

'    For i = 0 To Panel.MSFlexGrid1.Rows - 1
    '    TablaTicket.MoveLast
   '     TablaTicket.Delete
  '      Panel.Data2.Refresh
 '
'    Next i
    
  '  MSComm1.PortOpen = False
    

End

Else
Cancel = 1
End If
End Sub


Private Sub Label1_Click()
    hora.Show
End Sub

Private Sub LTotal_Change()
    LTotal = Format(LTotal, "###0.00") '"###0.00")
End Sub




Private Sub MSFlexGrid1_Click()
Panel.MSFlexGrid1.ColWidth(0) = 320 ' cantidad
Panel.MSFlexGrid1.ColWidth(1) = 0 ' numero de ticket
Panel.MSFlexGrid1.ColWidth(2) = 0 ' numero de producto
Panel.MSFlexGrid1.ColWidth(3) = 2600 '2600 nombre
Panel.MSFlexGrid1.ColWidth(4) = 0 ' precio unidad
Panel.MSFlexGrid1.ColWidth(5) = 800 ' precio  total
Panel.MSFlexGrid1.ColWidth(6) = 0 ' fecha
Panel.MSFlexGrid1.ColAlignment(4) = 7
Panel.MSFlexGrid1.ColAlignment(5) = 7
Panel.MSFlexGrid1.ColAlignment(3) = 1
End Sub

Private Sub MSFlexGrid1_DblClick()


Panel.MSFlexGrid1.Visible = True
Panel.MSFlexGrid1.ColWidth(0) = 320 ' cantidad
Panel.MSFlexGrid1.ColWidth(1) = 0 ' numero de ticket
Panel.MSFlexGrid1.ColWidth(2) = 0 ' numero de producto
Panel.MSFlexGrid1.ColWidth(3) = 1800 '2600 nombre
Panel.MSFlexGrid1.ColWidth(4) = 800 ' precio unidad
Panel.MSFlexGrid1.ColWidth(5) = 800 ' precio  total
Panel.MSFlexGrid1.ColWidth(6) = 0 ' fecha
Panel.MSFlexGrid1.ColAlignment(4) = 7
Panel.MSFlexGrid1.ColAlignment(5) = 7
Panel.MSFlexGrid1.ColAlignment(3) = 1




End Sub

'Boton para cambiar el nombre de los botones
'cada boton tiene un indice
'al pulsar pondra en appareance 0 todos los demas
'          Breakfast Bar, Bebidas,postre
'Entradas, Pizza, , Pasta, 2Plato,varios,
Private Sub picGrupo_Click(Index As Integer)
    seleccionarmesas = False
    Dim I As Integer
    seleccion = Index * 63
    nombrebotones (seleccion)
    For I = 0 To picGrupo.Count - 1
        picGrupo(I).Appearance = 0
    Next I
    picGrupo(Index).Appearance = 1
End Sub

'Para poner las mesas, hay que poner algo(variable) para saber que se estan eligiendo mesas en lugar de productos.
Private Sub picMesa_Click()
    seleccionarmesas = True
    cambiamesa (Mesa2 - 1)
    Call mesabotones
End Sub


