VERSION 5.00
Begin VB.Form frmCajaRegistradora 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Caja Registradora"
   ClientHeight    =   8430
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   10905
   Icon            =   "frmCajaRegistradora.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8430
   ScaleWidth      =   10905
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.CommandButton cmdTecla 
      Caption         =   "PAGO"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1005
      Index           =   46
      Left            =   9585
      TabIndex        =   53
      Top             =   5515
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Anula TRANS"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1005
      Index           =   45
      Left            =   9585
      TabIndex        =   52
      Top             =   4175
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Tipo Venta"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1005
      Index           =   44
      Left            =   8370
      TabIndex        =   51
      Top             =   4175
      Width           =   975
   End
   Begin VB.TextBox txtTarjeta 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   270
      Left            =   1575
      MaxLength       =   8
      TabIndex        =   2
      Top             =   2160
      Width           =   1305
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "BorraAC/TC"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1005
      Index           =   41
      Left            =   8370
      TabIndex        =   47
      Top             =   5515
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto40"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   40
      Left            =   7050
      TabIndex        =   46
      Top             =   6855
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto39"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   39
      Left            =   6075
      TabIndex        =   45
      Top             =   6855
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto38"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   38
      Left            =   5100
      TabIndex        =   44
      Top             =   6855
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto37"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   37
      Left            =   4125
      TabIndex        =   43
      Top             =   6855
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto36"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   36
      Left            =   3150
      TabIndex        =   42
      Top             =   6855
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto35"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   35
      Left            =   2175
      TabIndex        =   41
      Top             =   6855
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto34"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   34
      Left            =   1200
      TabIndex        =   40
      Top             =   6855
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto33"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   33
      Left            =   225
      TabIndex        =   39
      Top             =   6855
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto32"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   32
      Left            =   7050
      TabIndex        =   38
      Top             =   5850
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto31"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   31
      Left            =   6075
      TabIndex        =   37
      Top             =   5850
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto30"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   30
      Left            =   5100
      TabIndex        =   36
      Top             =   5850
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto29"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   29
      Left            =   4125
      TabIndex        =   35
      Top             =   5850
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto28"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   28
      Left            =   3150
      TabIndex        =   34
      Top             =   5850
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto27"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   27
      Left            =   2175
      TabIndex        =   33
      Top             =   5850
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto26"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   26
      Left            =   1200
      TabIndex        =   32
      Top             =   5850
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto25"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   25
      Left            =   225
      TabIndex        =   31
      Top             =   5850
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto24"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   24
      Left            =   7050
      TabIndex        =   30
      Top             =   4845
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto23"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   23
      Left            =   6075
      TabIndex        =   29
      Top             =   4845
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto22"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   22
      Left            =   5100
      TabIndex        =   28
      Top             =   4845
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto21"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   21
      Left            =   4125
      TabIndex        =   27
      Top             =   4845
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto20"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   20
      Left            =   3150
      TabIndex        =   26
      Top             =   4845
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto19"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   19
      Left            =   2175
      TabIndex        =   25
      Top             =   4845
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto18"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   18
      Left            =   1200
      TabIndex        =   24
      Top             =   4845
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto17"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   17
      Left            =   225
      TabIndex        =   23
      Top             =   4845
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto16"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   16
      Left            =   7050
      TabIndex        =   22
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto15"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   15
      Left            =   6075
      TabIndex        =   21
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto14"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   14
      Left            =   5100
      TabIndex        =   20
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto13"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   13
      Left            =   4125
      TabIndex        =   19
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   " Cod. Prod."
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1005
      Index           =   0
      Left            =   8355
      TabIndex        =   18
      Top             =   2835
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   " Ver Orden"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1005
      Index           =   42
      Left            =   9585
      TabIndex        =   17
      Top             =   2835
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "AC/TC"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1005
      Index           =   43
      Left            =   8415
      TabIndex        =   16
      Top             =   6855
      Width           =   1965
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto12"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   12
      Left            =   3150
      TabIndex        =   15
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto11"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   11
      Left            =   2175
      TabIndex        =   14
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto10"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   10
      Left            =   1200
      TabIndex        =   13
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto9"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   9
      Left            =   225
      TabIndex        =   12
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto8"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   8
      Left            =   7050
      TabIndex        =   11
      Top             =   2835
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto7"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   7
      Left            =   6075
      TabIndex        =   10
      Top             =   2835
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto6"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   6
      Left            =   5100
      TabIndex        =   9
      Top             =   2835
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto5"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   5
      Left            =   4125
      TabIndex        =   8
      Top             =   2835
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto4"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   4
      Left            =   3135
      TabIndex        =   7
      Top             =   2835
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto3"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   3
      Left            =   2175
      TabIndex        =   6
      Top             =   2835
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto2"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   2
      Left            =   1200
      TabIndex        =   5
      Top             =   2835
      Width           =   975
   End
   Begin VB.CommandButton cmdTecla 
      Caption         =   "Producto1"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   11.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Index           =   1
      Left            =   225
      TabIndex        =   4
      ToolTipText     =   "F1"
      Top             =   2835
      Width           =   975
   End
   Begin VB.TextBox txtCantidad 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00000000&
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   21.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   570
      Left            =   3315
      MaxLength       =   3
      TabIndex        =   0
      Top             =   585
      Width           =   2415
   End
   Begin VB.Label lblTotal 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   21.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   525
      Left            =   5820
      TabIndex        =   102
      Top             =   1155
      Width           =   4785
   End
   Begin VB.Label lblTipo 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   525
      Left            =   3300
      TabIndex        =   50
      Top             =   1170
      Width           =   2430
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "ALT+F4"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   47
      Left            =   10245
      TabIndex        =   101
      Top             =   15
      Width           =   630
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+HOME"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   46
      Left            =   9585
      TabIndex        =   100
      Top             =   6525
      Width           =   945
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+BACK"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   45
      Left            =   9585
      TabIndex        =   99
      Top             =   5175
      Width           =   945
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+INS"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   44
      Left            =   8460
      TabIndex        =   98
      Top             =   5175
      Width           =   840
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+ENTER"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   43
      Left            =   9315
      TabIndex        =   97
      Top             =   7860
      Width           =   1050
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "F1"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   42
      Left            =   10320
      TabIndex        =   96
      Top             =   3840
      Visible         =   0   'False
      Width           =   210
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+DEL"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   41
      Left            =   8460
      TabIndex        =   95
      Top             =   6525
      Width           =   840
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+4"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   40
      Left            =   7335
      TabIndex        =   94
      Top             =   7545
      Width           =   630
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+3"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   39
      Left            =   6375
      TabIndex        =   93
      Top             =   7545
      Width           =   630
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+2"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   38
      Left            =   5355
      TabIndex        =   92
      Top             =   7545
      Width           =   630
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+1"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   37
      Left            =   4410
      TabIndex        =   91
      Top             =   7545
      Width           =   630
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+F12"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   36
      Left            =   3195
      TabIndex        =   90
      Top             =   7545
      Width           =   840
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+F11"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   35
      Left            =   2250
      TabIndex        =   89
      Top             =   7545
      Width           =   840
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+F10"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   34
      Left            =   1275
      TabIndex        =   88
      Top             =   7545
      Width           =   840
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+F9"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   33
      Left            =   390
      TabIndex        =   87
      Top             =   7545
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+F8"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   32
      Left            =   7230
      TabIndex        =   86
      Top             =   6525
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+F7"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   31
      Left            =   6270
      TabIndex        =   85
      Top             =   6525
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+F6"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   30
      Left            =   5250
      TabIndex        =   84
      Top             =   6525
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+F5"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   29
      Left            =   4305
      TabIndex        =   83
      Top             =   6525
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+F4"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   28
      Left            =   3300
      TabIndex        =   82
      Top             =   6525
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+F3"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   27
      Left            =   2355
      TabIndex        =   81
      Top             =   6525
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+F2"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   26
      Left            =   1380
      TabIndex        =   80
      Top             =   6525
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+F1"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   25
      Left            =   390
      TabIndex        =   79
      Top             =   6525
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "SHFT+F12"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   24
      Left            =   7125
      TabIndex        =   78
      Top             =   5535
      Width           =   840
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "SHFT+F11"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   23
      Left            =   6165
      TabIndex        =   77
      Top             =   5535
      Width           =   840
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "SHFT+F10"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   22
      Left            =   5145
      TabIndex        =   76
      Top             =   5535
      Width           =   840
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "SHFT+F9"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   21
      Left            =   4305
      TabIndex        =   75
      Top             =   5535
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "SHFT+F8"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   20
      Left            =   3300
      TabIndex        =   74
      Top             =   5535
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "SHFT+F7"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   19
      Left            =   2355
      TabIndex        =   73
      Top             =   5535
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "SHFT+F6"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   18
      Left            =   1380
      TabIndex        =   72
      Top             =   5535
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "SHFT+F5"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   17
      Left            =   390
      TabIndex        =   71
      Top             =   5535
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "SHFT+F4"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   16
      Left            =   7230
      TabIndex        =   70
      Top             =   4515
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "SHFT+F3"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   15
      Left            =   6270
      TabIndex        =   69
      Top             =   4515
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "SHFT+F2"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   14
      Left            =   5250
      TabIndex        =   68
      Top             =   4515
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "SHFT+F1"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   13
      Left            =   4290
      TabIndex        =   67
      Top             =   4515
      Width           =   735
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "F12"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   12
      Left            =   3720
      TabIndex        =   66
      Top             =   4515
      Width           =   315
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "F11"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   11
      Left            =   2775
      TabIndex        =   65
      Top             =   4515
      Width           =   315
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "F10"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   10
      Left            =   1800
      TabIndex        =   64
      Top             =   4515
      Width           =   315
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "F9"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   9
      Left            =   915
      TabIndex        =   63
      Top             =   4515
      Width           =   210
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "F8"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   8
      Left            =   7755
      TabIndex        =   62
      Top             =   3510
      Width           =   210
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "F7"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   7
      Left            =   6795
      TabIndex        =   61
      Top             =   3510
      Width           =   210
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "F6"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   6
      Left            =   5775
      TabIndex        =   60
      Top             =   3510
      Width           =   210
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "F5"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   5
      Left            =   4830
      TabIndex        =   59
      Top             =   3510
      Width           =   210
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "F4"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   4
      Left            =   3825
      TabIndex        =   58
      Top             =   3510
      Width           =   210
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "F3"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   3
      Left            =   2880
      TabIndex        =   57
      Top             =   3510
      Width           =   210
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "F2"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   2
      Left            =   1905
      TabIndex        =   56
      Top             =   3510
      Width           =   210
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "F1"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   1
      Left            =   915
      TabIndex        =   55
      Top             =   3510
      Width           =   210
   End
   Begin VB.Label lblTecla 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "CTRL+0"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   240
      Index           =   0
      Left            =   8670
      TabIndex        =   54
      Top             =   3840
      Visible         =   0   'False
      Width           =   630
   End
   Begin VB.Label lblCliente 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   495
      Left            =   2925
      TabIndex        =   48
      Top             =   2175
      Width           =   7605
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "C&liente :"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   435
      TabIndex        =   1
      Top             =   2190
      Width           =   1080
   End
   Begin VB.Label lblProducto 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   21.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   1095
      Left            =   240
      TabIndex        =   3
      Top             =   585
      Width           =   2970
   End
   Begin VB.Label lblSubtotal 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   21.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   570
      Left            =   5820
      TabIndex        =   49
      Top             =   585
      Width           =   4785
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00000000&
      BorderColor     =   &H80000009&
      FillStyle       =   0  'Solid
      Height          =   1410
      Left            =   120
      Top             =   420
      Width           =   10620
   End
End
Attribute VB_Name = "frmCajaRegistradora"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim TeclaRapida(50) As Long
Dim TeclaProducto(50) As Long
Dim iTipoVenta As Integer '1:Normal 2:Voucher 3:Dolares 4:Transaccion Anulada
Dim bProducto As Boolean 'Establece si se estan registrando ventas o no
Dim Producto() As tProducto 'Almacena los datos de cada producto que se va registrando
Dim nProducto As Long 'Cantidad de productos por transaccion
Public iTotalVenta As Double
Public iEfectivo As Double
Public iVuelto As Double
Public bVuelto As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  On Error Resume Next

'SHIFT
'-----
'1, se está pulsando la tecla Shift (mayúsculas)
'2, se está pulsando Control
'4, se está pulsando Alt
'3, se están pulsando Shift y Ctrl,
'5, se están pulsando Shift y Alt,
'6, se están pulsando Ctrl y Alt,
'7, se están pulsando las tres teclas.

  Select Case Shift
  
    Case 0
      Select Case KeyCode
        Case vbKeyF1, vbKeyF2, vbKeyF3, vbKeyF4, vbKeyF5, vbKeyF6, vbKeyF7, vbKeyF8, _
             vbKeyF9, vbKeyF10, vbKeyF11, vbKeyF12 '112 To 123 ---- 01 - 12
          Call cmdTecla_Click(KeyCode - 111)
      End Select
    Case 1
        Select Case KeyCode
          Case vbKeyF1, vbKeyF2, vbKeyF3, vbKeyF4, vbKeyF5, vbKeyF6, vbKeyF7, vbKeyF8, _
             vbKeyF9, vbKeyF10, vbKeyF11, vbKeyF12 '112 To 123 ---- 13 - 24
          Call cmdTecla_Click(KeyCode - 99)
        End Select
    Case 2
      Select Case KeyCode
        Case vbKeyF1, vbKeyF2, vbKeyF3, vbKeyF4, vbKeyF5, vbKeyF6, vbKeyF7, vbKeyF8, _
             vbKeyF9, vbKeyF10, vbKeyF11, vbKeyF12 '112 To 123 ---- 25 - 36
          Call cmdTecla_Click(KeyCode - 87)
        Case vbKey1, vbKey2, vbKey3, vbKey4 '49 To 52 ---- 37 - 40
          Call cmdTecla_Click(KeyCode - 12)
        Case vbKeyDelete
          cmdTecla(41).SetFocus
          Call cmdTecla_Click(41) 'Cancelar Transaccion
        'Case vbKeyReturn
        '  Call cmdTecla_Click(42) 'AC/TC
        Case vbKeyReturn
          cmdTecla(43).SetFocus
          Call cmdTecla_Click(43) 'AC/TC
        Case vbKeyInsert
          cmdTecla(44).SetFocus
          Call cmdTecla_Click(44) 'Tipo Venta
        Case vbKeyBack
          cmdTecla(45).SetFocus
          Call cmdTecla_Click(45) 'Anula TRANS
        Case vbKeyHome
          cmdTecla(46).SetFocus
          Call cmdTecla_Click(46) 'PAGO
        Case vbKeyL
          txtTarjeta.SetFocus
        Case vbKeyC
          txtCantidad.SetFocus
          txtCantidad.SelStart = 0
          txtCantidad.SelLength = Len(txtCantidad.Text)
      End Select
  End Select
  Exit Sub
End Sub

Private Sub Form_Load()
    
  On Error GoTo LineaError

  Screen.MousePointer = vbHourglass
  
  Dim sSQL As String
  Dim adors As ADODB.Recordset
  Dim i As Long, j As Long
  Dim iInicio As Long, iFin As Long
  Dim sTecla1 As String, sTecla2 As String, sTecla3 As String
  
  sSQL = " SELECT C.cTeclCode, C.sTeclDesc, C.sTeclRapd, C.cTeclFlagAsig, C.cProdCode," & _
         " P.sProdDescCrta" & _
         " FROM ConfiguracionTeclado AS C LEFT JOIN Producto AS P ON C.cProdCode = P.cProdCode"

  If Not oDBAdmin.EjecutarConsulta(ADOCnn, sSQL, adors) Then GoTo salir
  
  i = 0 ' Controla el indice del control Tecla
  
  Do While Not adors.EOF
  
    'Captura el texto de la BD o la descripcion del producto asociado
    If LeerCampo(adors("cProdCode")) = "" Then
      cmdTecla(i).Caption = LeerCampo(adors("sTeclDesc"))
      TeclaProducto(i) = 0
    Else
      cmdTecla(i).Caption = LeerCampo(adors("sProdDescCrta"))
      TeclaProducto(i) = LeerCampo(adors("cProdCode"))
    End If
    
    i = i + 1
    adors.MoveNext
  Loop
  
  'Valores por default
  bProducto = False
  iTipoVenta = 1
  
  Screen.MousePointer = vbDefault
  
  GoTo salir
  
LineaError:
  MsgBox Err.Description, vbOKOnly + vbInformation
  Screen.MousePointer = vbDefault

salir:
  Set adors = Nothing
  
End Sub

Public Sub cmdTecla_Click(Index As Integer)
  
  cmdTecla(Index).SetFocus
  Select Case Index
    Case 0
      MsgBox "Ingrese el código del producto"
    Case 1 To 40
      CapturaDatosProducto TeclaProducto(Index)
    Case 41 'Setea a cero todo
      Call CancelarACTC
    Case 42
    
    Case 43 'Graba Transaccion
      If bProducto Then
        Call RegistraVenta
      End If
    Case 44
      If bProducto Then
        Call TipoVenta
      End If
    Case 45 'Anula Transaccion
      Call AnularTransaccion
    Case 46 'Pago
      Call Pago
  End Select
   
End Sub

Sub CapturaDatosProducto(iProducto As Long)
  On Error GoTo LineaError
  
  Dim sSQL As String
  Dim adors As ADODB.Recordset
  
  If iProducto = 0 Then
    MsgBox "Este botón no tiene un producto asignado"
    GoTo salir
  End If
  
  sSQL = " SELECT sProdDescCrta, nProdPrecUnit" & _
         " FROM Producto" & _
         " WHERE cProdCode =" & iProducto

  If Not oDBAdmin.EjecutarConsulta(ADOCnn, sSQL, adors) Then GoTo salir
  
  If adors.RecordCount = 1 Then
    lblProducto.Caption = Left(LeerCampo(adors("sProdDescCrta")) + "          ", 11) + _
                          Right("           " + Format(CStr(LeerCampo(adors("nProdPrecUnit"))), "###,###,##0.00"), 11)
    txtCantidad.Enabled = True
    txtCantidad.SetFocus
    
    If bProducto = False Then
      bProducto = True
      cmdTecla(45).Enabled = False
      cmdTecla(46).Enabled = False
      nProducto = 0
      iTotalVenta = 0
      txtCantidad.Text = 1
      ReDim Producto(1)
      iTipoVenta = 1
      lblTipo.Caption = "CASH"
    Else
      Producto(nProducto).Cant = txtCantidad.Text
      txtCantidad.Text = 1
    End If
    'Registra un producto
    iTotalVenta = iTotalVenta + (Producto(nProducto).Cant * Producto(nProducto).PUnit)
    nProducto = nProducto + 1
    
    ReDim Preserve Producto(nProducto)
    Producto(nProducto).Codigo = iProducto
    Producto(nProducto).Nombre = LeerCampo(adors("sProdDescCrta"))
    Producto(nProducto).PUnit = LeerCampo(adors("nProdPrecUnit"))
    Producto(nProducto).Cant = txtCantidad.Text
    lblSubtotal.Caption = "Sub:" + Right("               " + Format(CStr(Producto(nProducto).PUnit * Producto(nProducto).Cant), "###,###,###,##0.00"), 14)
    Call TotalVenta
    lblTotal.Caption = "TOT:" + Right("               " + Format(CStr(iTotalVenta), "###,###,###,##0.00"), 14)
  Else
    MsgBox "El producto asignado no existe. Actualice la configuración de este botón."
    GoTo salir
  End If
  
  txtCantidad.SetFocus
  txtCantidad.SelStart = 0
  txtCantidad.SelLength = Len(txtCantidad.Text)
  
  GoTo salir
  
LineaError:
  MsgBox Err.Description, vbOKOnly + vbInformation
  Screen.MousePointer = vbDefault

salir:
  Set adors = Nothing
  
End Sub

Private Sub txtCantidad_LostFocus()
   Dim iCantidad As Double
   Dim iPUnitario As Double
   If Trim(txtCantidad.Text) = "" Then txtCantidad.Text = "0"
   
   iCantidad = Val(txtCantidad.Text)
   iPUnitario = Val(Trim(Right(lblProducto.Caption, 10)))
   lblSubtotal.Caption = "Sub:" + Right("               " + Format(CStr(iCantidad * iPUnitario), "###,###,###,##0.00"), 14)
   'Call TotalVenta
   'lblTotal.Caption = "TOT:" + Right("               " + Format(CStr(iTotalVenta + (iCantidad * iPUnitario)), "###,###,###,##0.00"), 14)
End Sub

Private Sub txtCantidad_KeyPress(KeyAscii As Integer)
   On Error GoTo LineaError
   Dim iCantidad As Double
   Dim iPUnitario As Double
   Call ValidKeyPress(KeyAscii, kVKP_NUMERIC_INTEGER_ONLY)
   Exit Sub

LineaError:
   MsgBox Err.Description, vbOKOnly + vbInformation
End Sub

Private Sub txtTarjeta_KeyPress(KeyAscii As Integer)
  
  'Valida q solo se ingresen números (valores enteros)
  
  On Error GoTo LineaError
  
  Call ValidKeyPress(KeyAscii, kVKP_NUMERIC_INTEGER_ONLY)
  
  Exit Sub
  
LineaError:
  MsgBox Err.Description, vbOKOnly + vbInformation
  
End Sub

Private Sub txtTarjeta_LostFocus()
  On Error GoTo LineaError
  
  Dim sSQL As String
  Dim adors As ADODB.Recordset
  Dim i As Long, j As Long
  Dim sTarjeta As String
 
  sTarjeta = Right("00000000" + Trim(txtTarjeta.Text), 8)
  
  txtTarjeta.Text = sTarjeta
  
  sSQL = "SELECT a.cClieCode, sClieApel + ' ' + sClieName AS sName, dNacmDate, " + _
         "nPuntCant, nTickCant, dUltTDate, sTranDesc " + _
         "FROM Cliente a, Transaccion b, Tarjeta c " + _
         "WHERE a.cTranCode = b.cTranCode AND " + _
         "a.cClieCode = c.cClieCode AND " + _
         "nTarjNumb = '$'"
  sSQL = VBsprintf(sSQL, sTarjeta)

  If Not oDBAdmin.EjecutarConsulta(ADOCnn, sSQL, adors) Then GoTo salir
  
  If adors.RecordCount = 1 Then
    lblCliente.Caption = sTarjeta + " - " + LeerCampo(adors("sName"))
  Else
    txtTarjeta.Text = ""
    lblCliente.Caption = ""
  End If
  
  GoTo salir
  
LineaError:
  MsgBox Err.Description, vbOKOnly + vbInformation
  Screen.MousePointer = vbDefault

salir:
  Set adors = Nothing
   
End Sub

Sub RegistraVenta()
  On Error GoTo LineaError
  
  Dim sSQL As String
  Dim adors As ADODB.Recordset
  Dim i As Long, j As Long, iCodOper As Long
  Dim iTotal As Double, iSubTotal As Double, iTotItems As Double
  Dim sFecha As String
  Dim sTexto As String
  Dim iSigno As Integer
  Dim iFlagTipo As Integer
  Dim sTarjeta As String
  Dim iMontoDolares  As Double
  'Registra la cantidad del ultimo producto
  Producto(nProducto).Cant = txtCantidad.Text
  
  sTarjeta = Right("00000000" + Trim(txtTarjeta.Text), 8)
  
  'Calcula el total de las ventas
  Call TotalVenta
  lblTotal.Caption = "TOT:" + Right("               " + Format(CStr(iTotalVenta), "###,###,###,##0.00"), 14)
  If iTipoVenta = 5 Or iTipoVenta = 3 Then
    bVuelto = False
    frmVuelto.iTipoVenta = iTipoVenta
    frmVuelto.Show vbModal
    If Not bVuelto Then GoTo salir
  End If
  'If iTipoVenta=5 Then
  'End If
  '--------------------
  '-- Registra Venta --
  '--------------------
  sSQL = "SELECT MAX(cOperCode) AS maximo FROM Operacion WHERE cOperFlagAbierto=1"
  If Not oDBAdmin.EjecutarConsulta(ADOCnn, sSQL, adors) Then GoTo salir
  
  If adors.RecordCount = 1 Then
    If IsNull(adors("maximo")) Then
      iCodOper = 1
    Else
      iCodOper = LeerCampo(adors("maximo")) + 1
    End If
  End If
  sFecha = Format(Now(), "DD/MM/YYYY hh:mm")
  Set adors = Nothing
  
  iFlagTipo = iTipoVenta
  If iTipoVenta = 4 Then
    iSigno = -1
    iFlagTipo = 1
  Else
    iSigno = 1
    iFlagTipo = iTipoVenta
  End If
  If iTipoVenta = 5 Then
    iFlagTipo = 1
  End If
  
  For i = 1 To nProducto
    sSQL = "INSERT INTO OPERACION (cOperCode, cUserDesc, nTarjNumb, cProdCode, nProdCant, nProdPrecUnit," & _
                                  "nMontoDolares, dOperFech, cOperTipo) " + _
           "VALUES" + _
           "($, '$', '$', $, $, $, $, '$', $)"
    sSQL = VBsprintf(sSQL, CStr(iCodOper), psUsuario_Descripcion, sTarjeta, CStr(Producto(i).Codigo), CStr(Producto(i).Cant * iSigno), _
                           CStr(Producto(i).PUnit), CStr(0), sFecha, CStr(iFlagTipo))
    If Not oDBAdmin.EjecutarSentencia(ADOCnn, sSQL) Then GoTo salir
  Next
  
  If iTipoVenta = 3 Then
        sSQL = "INSERT INTO OPERACION (cOperCode, cUserDesc, nTarjNumb, cProdCode, nProdCant, nProdPrecUnit," & _
                                  "nMontoDolares, dOperFech, cOperTipo) " + _
           "VALUES" + _
           "($, '$', '$', $, $, $, $, '$', $)"
    sSQL = VBsprintf(sSQL, CStr(iCodOper), psUsuario_Descripcion, sTarjeta, CStr(0), CStr(1), _
                           CStr(-1 * iVuelto), CStr(iEfectivo), sFecha, CStr(1))
    If Not oDBAdmin.EjecutarSentencia(ADOCnn, sSQL) Then GoTo salir
  End If
  
  '------------------------
  '-- Captura Parámetros --
  '------------------------
  Call CabeceraImpresion
  
  sTexto = ""
  Printer.FontSize = 11
  Printer.FontName = "Courier New"
  For i = 0 To UBound(sCabecera) - 1
    sTexto = sTexto + Right("              " + sCabecera(i), Int(Len(sCabecera(i)) / 2) + 14) + vbCrLf
  Next
  sTexto = sTexto + vbCrLf + vbCrLf
      
  sTexto = sTexto + "      " + Format(CStr(Now()), "DD/MM/YYYY (DDD)")
  Printer.Print sTexto
  sTexto = ""
  
  'Cabecera segun tipo de venta
  Select Case iTipoVenta
    Case 2 'Voucher
      sTexto = "VOUCHER"
      sTexto = Right("              " + sTexto, Int(Len(sTexto) / 2) + 14)
    Case 3 'Dolares
      sTexto = "U$(TC: " + Format(CStr(nTipoCambio), "###,##0.00") + ")"
      sTexto = Right("              " + sTexto, Int(Len(sTexto) / 2) + 14)
    Case 4 'Anula Productos
      sTexto = "ANULA PROD"
      sTexto = Right("              " + sTexto, Int(Len(sTexto) / 2) + 14)
  End Select
  Printer.Print sTexto
  sTexto = ""
  
  'Ancho de linea = 27
  
  iSubTotal = 0
  iTotal = 0
  iTotItems = 0
  
  
  For i = 1 To nProducto
    iSubTotal = Producto(i).Cant * Producto(i).PUnit
    sTexto = sTexto + Right("000" + CStr(Producto(i).Cant), 3) + " "  'Cant de productos: 3 + 1
    sTexto = sTexto + Left(Producto(i).Nombre + "          ", 10) + " " ' Descripcion corta del producto: 10 + 1
    sTexto = sTexto + Right("          *" + Format(CStr(iSubTotal), "###,##0.00"), 11) + vbCrLf 'SubTotal 1 + 11
    iTotal = iTotal + iSubTotal
    iTotItems = iTotItems + Producto(i).Cant
  Next
    
  sTexto = sTexto + "--------------------------" + vbCrLf
  Printer.Print sTexto
  sTexto = ""
  
  'Total segun tipo de venta
  Select Case iTipoVenta
    Case 1, 2 'Normal, Voucher
      sTexto = "CASH/TL  " + Right("              *" + Format(CStr(iTotal), "###,###,##0.00"), 15)
    Case 3 'Dolares
      sTexto = "SUB/TOTL " + Right("              *" + Format(CStr(iTotal), "###,###,##0.00"), 15) + vbCrLf
      sTexto = sTexto + "EFECT(U$)" + Right("             *" + Format(CStr(iEfectivo), "###,###,##0.00"), 15) + vbCrLf
      sTexto = sTexto + "VUELTO   " + Right("             *" + Format(CStr(iVuelto), "###,###,##0.00"), 15)
    Case 4 'Anula Productos
      sTexto = "CASH/TL  " + Right("              *" + Format(CStr(iTotal), "###,###,##0.00"), 15)
    Case 5 'Efectivo
      sTexto = "SUB/TOTL " + Right("              *" + Format(CStr(iTotal), "###,###,##0.00"), 15) + vbCrLf
      sTexto = sTexto + "EFECTIVO " + Right("             *" + Format(CStr(iEfectivo), "###,###,##0.00"), 15) + vbCrLf
      sTexto = sTexto + "VUELTO   " + Right("             *" + Format(CStr(iVuelto), "###,###,##0.00"), 15)
  End Select
  
  Printer.FontSize = 12
  Printer.FontBold = True
  Printer.Print sTexto
  sTexto = ""
  
  sTexto = "   ITEM  " + Right("              *" + Format(CStr(iTotItems), "###,##0.00"), 15)
  Select Case iTipoVenta
    Case 4 'Anula Productos
      sTexto = sTexto + vbCrLf + "VO-POSTN"
  End Select
  
  Printer.Print sTexto
    
  Printer.Print " "
  
  sTexto = ""
  sTexto = sTexto + " " + Left(psUsuario_Descripcion, 10) + " " 'Usuario: 10 + 1
  sTexto = sTexto + Format(CStr(Now()), "hh:mm") + " " 'Hora: 6 + 1
  sTexto = sTexto + Right("000000" + CStr(iCodOper), 6) 'Codigo Transaccion: 6
  Printer.FontSize = 11
  Printer.FontBold = False
  Printer.Print sTexto
  Printer.Print " "
  Printer.Print " "
  Printer.EndDoc
  'Printer.KillDoc
  
  '----------------------
  '-- Blanquea la Caja --
  '----------------------
  bProducto = False
  iTotalVenta = 0
  cmdTecla(45).Enabled = True
  cmdTecla(46).Enabled = True
  iTipoVenta = 1
  lblTipo.Caption = ""
  txtCantidad.Text = ""
  txtCantidad.Enabled = False
  lblProducto.Caption = ""
  lblSubtotal.Caption = ""
  lblTotal.Caption = ""
  txtTarjeta.Text = ""
  lblCliente.Caption = ""
  
  GoTo salir
  
LineaError:
  MsgBox Err.Description, vbOKOnly + vbInformation
  Screen.MousePointer = vbDefault

salir:
  Set adors = Nothing
   
End Sub

Sub AnularTransaccion()
  frmAnulaTransaccion.Show vbModal
End Sub

Sub CancelarACTC()
  txtCantidad.Text = ""
  lblProducto.Caption = ""
  lblTipo.Caption = ""
  lblSubtotal.Caption = ""
  lblTotal.Caption = ""
  bProducto = False
  cmdTecla(45).Enabled = True
  cmdTecla(46).Enabled = True
  iTipoVenta = 1
End Sub

Sub TipoVenta()
  lblTipo.FontSize = 18
  Select Case iTipoVenta
    Case 1
      iTipoVenta = 2
      lblTipo.Caption = "VOUCHER"
    Case 2
      If nTipoCambio = 0 Then
        MsgBox "Para registrar ventas en dólares debe registrar el tipo de cambio"
        iTipoVenta = 4
        lblTipo.Caption = "ANULA PROD"
        Exit Sub
      End If
      iTipoVenta = 3
      lblTipo.Caption = "U$(TC:" + Format(CStr(nTipoCambio), "###,##0.00") + ")"
    Case 3
      iTipoVenta = 4
      lblTipo.Caption = "ANULA PROD"
    Case 4
      iTipoVenta = 5
      lblTipo.Caption = "C/VUELTO"
    Case 5
      iTipoVenta = 1
      lblTipo.Caption = "CASH"
  End Select
End Sub

Sub Pago()
  frmPago.Show vbModal
End Sub

Sub TotalVenta()
  Dim i As Long
  Dim iSubTotal As Double
  iTotalVenta = 0
  For i = 1 To nProducto
    iSubTotal = Producto(i).Cant * Producto(i).PUnit
    iTotalVenta = iTotalVenta + iSubTotal
  Next
End Sub
