VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "CRYSTL32.OCX"
Object = "{69F9D01E-F1DE-11D4-9536-002018603DA2}#7.0#0"; "MICONTROL.OCX"
Object = "{BC0B9235-6BC2-11D5-AB74-002018603DA2}#7.0#0"; "PROYCONTROL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form FfacturacionTienda 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Facturación Directa"
   ClientHeight    =   8625
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   11880
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   8625
   ScaleWidth      =   11880
   StartUpPosition =   2  'CenterScreen
   Begin TabDlg.SSTab SSTab1 
      Height          =   8625
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   15214
      _Version        =   393216
      Tabs            =   2
      TabsPerRow      =   2
      TabHeight       =   520
      ForeColor       =   -2147483630
      TabCaption(0)   =   "Ingresar"
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame8"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Frame7"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "txtnumero"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "txtcodcli"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "cmdbuscli"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).Control(5)=   "txtapecli"
      Tab(0).Control(5).Enabled=   0   'False
      Tab(0).Control(6)=   "txtdireccion"
      Tab(0).Control(6).Enabled=   0   'False
      Tab(0).Control(7)=   "txtruc"
      Tab(0).Control(7).Enabled=   0   'False
      Tab(0).Control(8)=   "txtnumoc"
      Tab(0).Control(8).Enabled=   0   'False
      Tab(0).Control(9)=   "txtcodvend"
      Tab(0).Control(9).Enabled=   0   'False
      Tab(0).Control(10)=   "cmdbuscvend"
      Tab(0).Control(10).Enabled=   0   'False
      Tab(0).Control(11)=   "DTPicker1"
      Tab(0).Control(11).Enabled=   0   'False
      Tab(0).Control(12)=   "Frame2"
      Tab(0).Control(12).Enabled=   0   'False
      Tab(0).Control(13)=   "Frame1"
      Tab(0).Control(13).Enabled=   0   'False
      Tab(0).Control(14)=   "Frame3"
      Tab(0).Control(14).Enabled=   0   'False
      Tab(0).Control(15)=   "cmdnuevo"
      Tab(0).Control(15).Enabled=   0   'False
      Tab(0).Control(16)=   "cmdactualizar"
      Tab(0).Control(16).Enabled=   0   'False
      Tab(0).Control(17)=   "cmdeliminar"
      Tab(0).Control(17).Enabled=   0   'False
      Tab(0).Control(18)=   "cmdcanceldet"
      Tab(0).Control(18).Enabled=   0   'False
      Tab(0).Control(19)=   "Timer1"
      Tab(0).Control(19).Enabled=   0   'False
      Tab(0).Control(20)=   "Txtmensaje"
      Tab(0).Control(20).Enabled=   0   'False
      Tab(0).Control(21)=   "DataGrid1"
      Tab(0).Control(21).Enabled=   0   'False
      Tab(0).Control(22)=   "Timer2"
      Tab(0).Control(22).Enabled=   0   'False
      Tab(0).Control(23)=   "clmoneda"
      Tab(0).Control(23).Enabled=   0   'False
      Tab(0).Control(24)=   "clalmacen"
      Tab(0).Control(24).Enabled=   0   'False
      Tab(0).Control(25)=   "cltippre2"
      Tab(0).Control(25).Enabled=   0   'False
      Tab(0).Control(26)=   "cltippre1"
      Tab(0).Control(26).Enabled=   0   'False
      Tab(0).ControlCount=   27
      TabCaption(1)   =   "Cons&ulta / Anular"
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "DataGrid2"
      Tab(1).Control(1)=   "Frame4"
      Tab(1).Control(2)=   "Frame5"
      Tab(1).Control(3)=   "Frame6"
      Tab(1).Control(4)=   "CrystalReport1"
      Tab(1).ControlCount=   5
      Begin Controles.ControlList cltippre1 
         Height          =   375
         Left            =   1200
         TabIndex        =   10
         Top             =   2160
         Width           =   5535
         _ExtentX        =   9763
         _ExtentY        =   661
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin Controles.ControlList cltippre2 
         Height          =   375
         Left            =   1200
         TabIndex        =   11
         Top             =   2520
         Width           =   5655
         _ExtentX        =   9975
         _ExtentY        =   661
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin Controles.ControlList clalmacen 
         Height          =   375
         Left            =   1200
         TabIndex        =   12
         Top             =   2880
         Width           =   5535
         _ExtentX        =   9763
         _ExtentY        =   661
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin Controles.ControlList clmoneda 
         Height          =   375
         Left            =   1200
         TabIndex        =   13
         Top             =   3240
         Width           =   5655
         _ExtentX        =   9975
         _ExtentY        =   661
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Timer Timer2 
         Interval        =   1000
         Left            =   9720
         Top             =   600
      End
      Begin MSDataGridLib.DataGrid DataGrid1 
         Height          =   3000
         Left            =   240
         TabIndex        =   14
         Top             =   3600
         Width           =   9615
         _ExtentX        =   16960
         _ExtentY        =   5292
         _Version        =   393216
         AllowUpdate     =   -1  'True
         ColumnHeaders   =   -1  'True
         HeadLines       =   1
         RowHeight       =   17
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   2
         BeginProperty Column00 
            DataField       =   ""
            Caption         =   ""
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   10250
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   ""
            Caption         =   ""
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   10250
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
            EndProperty
            BeginProperty Column01 
            EndProperty
         EndProperty
      End
      Begin Crystal.CrystalReport CrystalReport1 
         Left            =   -64560
         Top             =   3600
         _ExtentX        =   741
         _ExtentY        =   741
         _Version        =   348160
         WindowTitle     =   "Facturacion Directa"
         DiscardSavedData=   -1  'True
         WindowState     =   2
         PrintFileLinesPerPage=   60
      End
      Begin VB.TextBox Txtmensaje 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   615
         Left            =   7320
         TabIndex        =   96
         TabStop         =   0   'False
         Top             =   5760
         Visible         =   0   'False
         Width           =   2295
      End
      Begin VB.Frame Frame6 
         Appearance      =   0  'Flat
         BackColor       =   &H80000004&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   2535
         Left            =   -74880
         TabIndex        =   72
         Top             =   360
         Width           =   11655
         Begin VB.ComboBox Combo1 
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   360
            Left            =   1080
            Style           =   2  'Dropdown List
            TabIndex        =   35
            Top             =   320
            Width           =   1575
         End
         Begin VB.TextBox txttipo 
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   360
            Left            =   2760
            TabIndex        =   36
            Top             =   320
            Width           =   1455
         End
         Begin VB.CommandButton cmdbusctip 
            Height          =   375
            Left            =   4320
            Style           =   1  'Graphical
            TabIndex        =   73
            TabStop         =   0   'False
            Top             =   320
            Width           =   375
         End
         Begin VB.Label lblfecha 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   6840
            TabIndex        =   81
            Top             =   720
            Width           =   1455
         End
         Begin VB.Label lblnumoc 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   6840
            TabIndex        =   130
            Top             =   1080
            Width           =   1455
         End
         Begin VB.Label lblmonedaconsult 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   6840
            TabIndex        =   129
            Top             =   2160
            Width           =   1455
         End
         Begin VB.Label lblcdalm 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   6840
            TabIndex        =   128
            Top             =   1800
            Width           =   1455
         End
         Begin VB.Label lblcodvend 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   6840
            TabIndex        =   127
            Top             =   1440
            Width           =   1455
         End
         Begin VB.Label lbldireccion 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   1080
            TabIndex        =   126
            Top             =   1440
            Width           =   4575
         End
         Begin VB.Label lblapell 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   1080
            TabIndex        =   125
            Top             =   1080
            Width           =   4575
         End
         Begin VB.Label lblhora 
            Height          =   255
            Left            =   8040
            TabIndex        =   98
            Top             =   240
            Visible         =   0   'False
            Width           =   1455
         End
         Begin VB.Label Label6 
            Caption         =   "Tipo"
            Height          =   255
            Left            =   120
            TabIndex        =   95
            Top             =   360
            Width           =   1095
         End
         Begin VB.Label Label7 
            Caption         =   "Cód. Cliente"
            Height          =   255
            Left            =   120
            TabIndex        =   94
            Top             =   720
            Width           =   855
         End
         Begin VB.Label lblcodigo 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   1080
            TabIndex        =   93
            Top             =   720
            Width           =   1935
         End
         Begin VB.Label lblruc 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   4080
            TabIndex        =   92
            Top             =   720
            Width           =   1575
         End
         Begin VB.Label Label9 
            Caption         =   "Apell. ó  R.S."
            Height          =   255
            Left            =   120
            TabIndex        =   91
            Top             =   1080
            Width           =   1215
         End
         Begin VB.Label Label13 
            Caption         =   "R.U.C."
            Height          =   255
            Left            =   3480
            TabIndex        =   90
            Top             =   720
            Width           =   615
         End
         Begin VB.Label Label19 
            Caption         =   "Dirección"
            Height          =   255
            Left            =   120
            TabIndex        =   89
            Top             =   1440
            Width           =   975
         End
         Begin VB.Label Label23 
            Caption         =   "Precio 1"
            Height          =   375
            Left            =   120
            TabIndex        =   88
            Top             =   1800
            Width           =   855
         End
         Begin VB.Label lblpre1 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   1080
            TabIndex        =   87
            Top             =   1800
            Width           =   975
         End
         Begin VB.Label Lbldespre1 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   2160
            TabIndex        =   86
            Top             =   1800
            Width           =   3495
         End
         Begin VB.Label Label24 
            Caption         =   "Precio 2"
            Height          =   255
            Left            =   120
            TabIndex        =   85
            Top             =   2160
            Width           =   735
         End
         Begin VB.Label lblpre2 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   1080
            TabIndex        =   84
            Top             =   2160
            Width           =   975
         End
         Begin VB.Label Lbldespre2 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   2160
            TabIndex        =   83
            Top             =   2160
            Width           =   3495
         End
         Begin VB.Label Label30 
            Caption         =   "Fecha"
            Height          =   255
            Left            =   5760
            TabIndex        =   82
            Top             =   720
            Width           =   1095
         End
         Begin VB.Label Label31 
            Caption         =   "Número O/C"
            Height          =   255
            Left            =   5760
            TabIndex        =   80
            Top             =   1080
            Width           =   1095
         End
         Begin VB.Label Label32 
            Caption         =   "Vendedor"
            Height          =   255
            Left            =   5760
            TabIndex        =   79
            Top             =   1440
            Width           =   1095
         End
         Begin VB.Label lbldesvend 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   8400
            TabIndex        =   78
            Top             =   1440
            Width           =   3135
         End
         Begin VB.Label Label33 
            Caption         =   "Almacén"
            Height          =   255
            Left            =   5760
            TabIndex        =   77
            Top             =   1800
            Width           =   975
         End
         Begin VB.Label Label34 
            Caption         =   "Moneda"
            Height          =   255
            Left            =   5760
            TabIndex        =   76
            Top             =   2160
            Width           =   975
         End
         Begin VB.Label lbldsalm 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   8400
            TabIndex        =   75
            Top             =   1800
            Width           =   3135
         End
         Begin VB.Label lblmon 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   8400
            TabIndex        =   74
            Top             =   2160
            Width           =   3135
         End
      End
      Begin VB.Frame Frame5 
         Appearance      =   0  'Flat
         BackColor       =   &H80000004&
         Caption         =   "Documento"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   2775
         Left            =   -65040
         TabIndex        =   69
         Top             =   5640
         Width           =   1695
         Begin VB.CommandButton cmdgendoc 
            Caption         =   "Generar &Nuevo"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   41
            Top             =   1440
            Width           =   1455
         End
         Begin VB.CommandButton cmdanular 
            Caption         =   "&Anular"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   40
            Top             =   1080
            Width           =   1455
         End
         Begin VB.CommandButton cmdimprime 
            Caption         =   "Imp&rimir"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   39
            Top             =   720
            Width           =   1455
         End
         Begin VB.CommandButton cmdconsult 
            Caption         =   "Consultar"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   38
            Top             =   360
            Width           =   1455
         End
         Begin VB.Label lblnumarticul 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   120
            TabIndex        =   71
            Top             =   2280
            Width           =   1455
         End
         Begin VB.Label Label42 
            Alignment       =   2  'Center
            Caption         =   "Nro. Artículos"
            Height          =   255
            Left            =   120
            TabIndex        =   70
            Top             =   2040
            Width           =   1455
         End
      End
      Begin VB.Frame Frame4 
         Appearance      =   0  'Flat
         BackColor       =   &H80000004&
         ForeColor       =   &H80000008&
         Height          =   735
         Left            =   -74760
         TabIndex        =   61
         Top             =   7680
         Width           =   9615
         Begin VB.Label Label21 
            Alignment       =   1  'Right Justify
            Appearance      =   0  'Flat
            BackColor       =   &H80000004&
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   5520
            TabIndex        =   123
            Top             =   240
            Width           =   975
         End
         Begin VB.Label Label27 
            Caption         =   "%Serv."
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4680
            TabIndex        =   122
            Top             =   240
            Width           =   855
         End
         Begin VB.Label lblsimbolcons 
            Appearance      =   0  'Flat
            BackColor       =   &H80000004&
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   7320
            TabIndex        =   68
            Top             =   240
            Width           =   495
         End
         Begin VB.Label lbltotalcons 
            Alignment       =   1  'Right Justify
            Appearance      =   0  'Flat
            BackColor       =   &H80000004&
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   7920
            TabIndex        =   67
            Top             =   240
            Width           =   1575
         End
         Begin VB.Label Label39 
            Caption         =   "Total"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   6600
            TabIndex        =   66
            Top             =   240
            Width           =   735
         End
         Begin VB.Label lbligvcons 
            Alignment       =   1  'Right Justify
            Appearance      =   0  'Flat
            BackColor       =   &H80000004&
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   3480
            TabIndex        =   65
            Top             =   240
            Width           =   975
         End
         Begin VB.Label Label37 
            Caption         =   "I.G.V."
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   2760
            TabIndex        =   64
            Top             =   240
            Width           =   735
         End
         Begin VB.Label lblsubtcons 
            Alignment       =   1  'Right Justify
            Appearance      =   0  'Flat
            BackColor       =   &H80000004&
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   1320
            TabIndex        =   63
            Top             =   240
            Width           =   1335
         End
         Begin VB.Label Label36 
            Caption         =   "SubTotal"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   120
            TabIndex        =   62
            Top             =   240
            Width           =   1095
         End
      End
      Begin MSDataGridLib.DataGrid DataGrid2 
         Height          =   4665
         Left            =   -74760
         TabIndex        =   37
         Top             =   3000
         Width           =   9615
         _ExtentX        =   16960
         _ExtentY        =   8229
         _Version        =   393216
         HeadLines       =   1
         RowHeight       =   19
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   2
         BeginProperty Column00 
            DataField       =   ""
            Caption         =   ""
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   10250
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   ""
            Caption         =   ""
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   10250
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
            EndProperty
            BeginProperty Column01 
            EndProperty
         EndProperty
      End
      Begin VB.Timer Timer1 
         Enabled         =   0   'False
         Interval        =   2000
         Left            =   9240
         Top             =   5880
      End
      Begin VB.CommandButton cmdcanceldet 
         Caption         =   "Cancelar"
         Enabled         =   0   'False
         Height          =   220
         Left            =   9840
         TabIndex        =   21
         TabStop         =   0   'False
         Top             =   7320
         Visible         =   0   'False
         Width           =   200
      End
      Begin VB.CommandButton cmdeliminar 
         Caption         =   "Eliminar [F3]"
         Enabled         =   0   'False
         Height          =   225
         Left            =   9840
         TabIndex        =   20
         TabStop         =   0   'False
         Top             =   7080
         Visible         =   0   'False
         Width           =   200
      End
      Begin VB.CommandButton cmdactualizar 
         Caption         =   "Actualizar"
         Enabled         =   0   'False
         Height          =   345
         Left            =   9840
         TabIndex        =   19
         TabStop         =   0   'False
         Top             =   6840
         Visible         =   0   'False
         Width           =   200
      End
      Begin VB.CommandButton cmdnuevo 
         Caption         =   "Insertar"
         Height          =   220
         Left            =   9840
         TabIndex        =   18
         TabStop         =   0   'False
         Top             =   6600
         Visible         =   0   'False
         Width           =   200
      End
      Begin VB.Frame Frame3 
         Appearance      =   0  'Flat
         BackColor       =   &H80000004&
         Caption         =   "Documento"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   6135
         Left            =   9960
         TabIndex        =   58
         Top             =   2280
         Width           =   1695
         Begin VB.CommandButton cmddescitem 
            Caption         =   "Dcto. Item[F10]"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   29
            Top             =   2880
            Width           =   1455
         End
         Begin VB.CommandButton cmddsctoadi 
            Caption         =   "Dcto. Adic[F6]"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   28
            Top             =   2520
            Width           =   1455
         End
         Begin VB.CommandButton Command3 
            Caption         =   "Paid Out[Ctrl+P]"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   32
            Top             =   4080
            Width           =   1455
         End
         Begin VB.CommandButton Command2 
            Caption         =   "Cash Drop[Ctrl+C]"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   31
            Top             =   3720
            Width           =   1455
         End
         Begin VB.CommandButton Command1 
            Caption         =   "Fondo Caja[Ctrl+F]"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   30
            Top             =   3360
            Width           =   1455
         End
         Begin VB.CommandButton cmdsalir 
            Caption         =   "Sa&lir"
            Height          =   375
            Left            =   120
            TabIndex        =   34
            Top             =   4920
            Width           =   1455
         End
         Begin Crystal.CrystalReport CrystalReport2 
            Left            =   600
            Top             =   5280
            _ExtentX        =   741
            _ExtentY        =   741
            _Version        =   348160
            WindowTitle     =   "Facturación Directa"
            DiscardSavedData=   -1  'True
            WindowState     =   2
            PrintFileLinesPerPage=   60
         End
         Begin VB.CommandButton CMDRESTAURA 
            Caption         =   "Rest.Trans[F5]"
            Height          =   375
            Left            =   120
            TabIndex        =   27
            Top             =   2160
            Width           =   1455
         End
         Begin VB.CommandButton CMDSALVA 
            Caption         =   "Salva Trans.[F4]"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   26
            Top             =   1800
            Width           =   1455
         End
         Begin VB.CommandButton cmdcancelar 
            Caption         =   "&Cancelar"
            Height          =   375
            Left            =   120
            TabIndex        =   33
            Top             =   4560
            Width           =   1455
         End
         Begin VB.CommandButton cmdcredito 
            Caption         =   "Vale[F12]"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   25
            Top             =   1440
            Width           =   1455
         End
         Begin VB.CommandButton cmdcheque 
            Caption         =   "Cheque[F9]"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   24
            Top             =   1080
            Width           =   1455
         End
         Begin VB.CommandButton cmdtarjeta 
            Caption         =   "Tarjeta[F8]"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   23
            Top             =   720
            Width           =   1455
         End
         Begin VB.CommandButton cmdefectivo 
            Caption         =   "Efectivo[F7]"
            Enabled         =   0   'False
            Height          =   375
            Left            =   120
            TabIndex        =   22
            Top             =   360
            Width           =   1455
         End
         Begin VB.Label Label26 
            Alignment       =   2  'Center
            Caption         =   "Nro. Artículos"
            Height          =   255
            Left            =   120
            TabIndex        =   60
            Top             =   5385
            Width           =   1455
         End
         Begin VB.Label lblnumarti 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   120
            TabIndex        =   59
            Top             =   5640
            Width           =   1455
         End
      End
      Begin VB.Frame Frame1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000004&
         ForeColor       =   &H80000008&
         Height          =   1080
         Left            =   240
         TabIndex        =   52
         Top             =   6600
         Width           =   9615
         Begin MiControl.CtrlNumber Ctrlprecio 
            Height          =   420
            Left            =   5400
            TabIndex        =   17
            Top             =   600
            Width           =   1455
            _ExtentX        =   2566
            _ExtentY        =   741
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
         Begin MiControl.CtrlNumber Ctrlunid 
            Height          =   420
            Left            =   1920
            TabIndex        =   16
            Top             =   600
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   741
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
         Begin VB.CommandButton cmdbusarti 
            Height          =   375
            Left            =   4035
            Style           =   1  'Graphical
            TabIndex        =   54
            TabStop         =   0   'False
            Top             =   240
            Width           =   375
         End
         Begin VB.TextBox txtcodarti 
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   360
            Left            =   1920
            MaxLength       =   20
            TabIndex        =   15
            Top             =   240
            Width           =   2055
         End
         Begin VB.Label lblunimed 
            Height          =   375
            Left            =   7200
            TabIndex        =   97
            Top             =   600
            Visible         =   0   'False
            Width           =   495
         End
         Begin VB.Label Label25 
            Caption         =   "Precio"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4440
            TabIndex        =   57
            Top             =   600
            Width           =   1095
         End
         Begin VB.Label Label14 
            Caption         =   "Cantidad a Anular"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   240
            TabIndex        =   56
            Top             =   600
            Width           =   1695
         End
         Begin VB.Label lbldescripcion 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   4440
            TabIndex        =   55
            Top             =   240
            Width           =   4455
         End
         Begin VB.Label Label4 
            Caption         =   "Artículo"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   53
            Top             =   240
            Width           =   1215
         End
      End
      Begin VB.Frame Frame2 
         Appearance      =   0  'Flat
         BackColor       =   &H80000004&
         ForeColor       =   &H80000008&
         Height          =   735
         Left            =   240
         TabIndex        =   44
         Top             =   7680
         Width           =   9615
         Begin VB.Label lblporcservx 
            Alignment       =   1  'Right Justify
            Appearance      =   0  'Flat
            BackColor       =   &H80000004&
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   5520
            TabIndex        =   121
            Top             =   240
            Visible         =   0   'False
            Width           =   980
         End
         Begin VB.Label lblporcserv 
            Caption         =   "%Serv."
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4680
            TabIndex        =   120
            Top             =   240
            Visible         =   0   'False
            Width           =   855
         End
         Begin VB.Label lbltotal 
            Alignment       =   1  'Right Justify
            Appearance      =   0  'Flat
            BackColor       =   &H80000004&
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   7800
            TabIndex        =   51
            Top             =   240
            Width           =   1695
         End
         Begin VB.Label lblmoneda 
            Alignment       =   2  'Center
            Appearance      =   0  'Flat
            BackColor       =   &H80000004&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "US$"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   7200
            TabIndex        =   50
            Top             =   240
            Width           =   495
         End
         Begin VB.Label Label22 
            Alignment       =   1  'Right Justify
            Caption         =   "Total"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   6520
            TabIndex        =   49
            Top             =   240
            Width           =   615
         End
         Begin VB.Label lbligv 
            Alignment       =   1  'Right Justify
            Appearance      =   0  'Flat
            BackColor       =   &H80000004&
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   3600
            TabIndex        =   48
            Top             =   240
            Visible         =   0   'False
            Width           =   980
         End
         Begin VB.Label Label20 
            Caption         =   "I.G.V."
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   2880
            TabIndex        =   47
            Top             =   240
            Visible         =   0   'False
            Width           =   735
         End
         Begin VB.Label lblsubtotal 
            Alignment       =   1  'Right Justify
            Appearance      =   0  'Flat
            BackColor       =   &H80000004&
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   1320
            TabIndex        =   46
            Top             =   240
            Visible         =   0   'False
            Width           =   1455
         End
         Begin VB.Label Label18 
            Caption         =   "SubTotal "
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   120
            TabIndex        =   45
            Top             =   240
            Visible         =   0   'False
            Width           =   1335
         End
      End
      Begin MSComCtl2.DTPicker DTPicker1 
         Height          =   315
         Left            =   6960
         TabIndex        =   4
         Top             =   1080
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   556
         _Version        =   393216
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         CalendarBackColor=   16777215
         CalendarForeColor=   0
         Format          =   24576001
         CurrentDate     =   36673
      End
      Begin VB.CommandButton cmdbuscvend 
         Height          =   375
         Left            =   8460
         Style           =   1  'Graphical
         TabIndex        =   43
         TabStop         =   0   'False
         Top             =   1800
         Width           =   375
      End
      Begin VB.TextBox txtcodvend 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   6960
         MaxLength       =   20
         TabIndex        =   9
         Top             =   1800
         Width           =   1455
      End
      Begin VB.TextBox txtnumoc 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   6960
         TabIndex        =   7
         Top             =   1440
         Width           =   1455
      End
      Begin VB.TextBox txtruc 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   4200
         MaxLength       =   11
         TabIndex        =   3
         Top             =   1080
         Width           =   1575
      End
      Begin VB.TextBox txtdireccion 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   1200
         MaxLength       =   45
         TabIndex        =   6
         Top             =   1800
         Width           =   4575
      End
      Begin VB.TextBox txtapecli 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   1200
         MaxLength       =   45
         TabIndex        =   5
         Top             =   1440
         Width           =   4575
      End
      Begin VB.CommandButton cmdbuscli 
         Height          =   375
         Left            =   3160
         Style           =   1  'Graphical
         TabIndex        =   42
         TabStop         =   0   'False
         Top             =   1040
         Width           =   375
      End
      Begin VB.TextBox txtcodcli 
         BackColor       =   &H00FFFFFF&
         CausesValidation=   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   1200
         MaxLength       =   11
         TabIndex        =   2
         Top             =   1080
         Width           =   1935
      End
      Begin VB.TextBox txtnumero 
         CausesValidation=   0   'False
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   1200
         TabIndex        =   1
         Top             =   720
         Width           =   1335
      End
      Begin VB.Frame Frame7 
         BorderStyle     =   0  'None
         Caption         =   "Frame7"
         Height          =   6015
         Left            =   120
         TabIndex        =   99
         Top             =   360
         Width           =   11655
         Begin VB.Frame Frame9 
            Height          =   615
            Left            =   8760
            TabIndex        =   124
            Top             =   720
            Width           =   2775
            Begin VB.CheckBox Check1 
               Caption         =   "Incluir Porcentaje de Servicios"
               Height          =   255
               Left            =   120
               TabIndex        =   8
               Top             =   240
               Width           =   2535
            End
         End
         Begin VB.Label Label16 
            Caption         =   "Precio 1"
            Height          =   255
            Left            =   120
            TabIndex        =   119
            Top             =   1800
            Width           =   855
         End
         Begin VB.Label Label17 
            Caption         =   "Precio 2"
            Height          =   255
            Left            =   120
            TabIndex        =   118
            Top             =   2160
            Width           =   855
         End
         Begin VB.Label Label28 
            Caption         =   "Almacén"
            Height          =   255
            Left            =   120
            TabIndex        =   117
            Top             =   2520
            Width           =   855
         End
         Begin VB.Label Label29 
            Caption         =   "Moneda"
            Height          =   255
            Left            =   120
            TabIndex        =   116
            Top             =   2880
            Width           =   855
         End
         Begin VB.Label lblLicenseTo 
            Alignment       =   2  'Center
            Appearance      =   0  'Flat
            BackColor       =   &H00C00000&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "ZIGMA S.A."
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   20.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000005&
            Height          =   495
            Left            =   120
            TabIndex        =   113
            Top             =   -240
            Width           =   2295
         End
         Begin VB.Label LBLNOMBRE 
            Caption         =   "Nro. Doc."
            Height          =   255
            Left            =   120
            TabIndex        =   112
            Top             =   360
            Width           =   1215
         End
         Begin VB.Label Label2 
            Caption         =   "Cód. Cliente"
            Height          =   255
            Left            =   120
            TabIndex        =   111
            Top             =   720
            Width           =   975
         End
         Begin VB.Label Label3 
            Caption         =   "Apell. ó  R.S."
            Height          =   255
            Left            =   120
            TabIndex        =   110
            Top             =   1080
            Width           =   1335
         End
         Begin VB.Label Label5 
            Caption         =   "Dirección"
            Height          =   255
            Left            =   120
            TabIndex        =   109
            Top             =   1440
            Width           =   1095
         End
         Begin VB.Label LBLTIPDOCU 
            Alignment       =   2  'Center
            Appearance      =   0  'Flat
            BackColor       =   &H00C0C0C0&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "BOLETA"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   18
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   435
            Left            =   4440
            TabIndex        =   108
            Top             =   120
            Width           =   3135
         End
         Begin VB.Label Label8 
            Caption         =   "T.C."
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   14.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   315
            Left            =   2640
            TabIndex        =   107
            Top             =   120
            Width           =   615
         End
         Begin VB.Label lblcambio 
            Alignment       =   1  'Right Justify
            Appearance      =   0  'Flat
            BackColor       =   &H80000004&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "3.45"
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   15.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   435
            Left            =   3360
            TabIndex        =   106
            Top             =   120
            Width           =   975
         End
         Begin VB.Label Label10 
            Caption         =   "R.U.C."
            Height          =   255
            Left            =   3480
            TabIndex        =   105
            Top             =   720
            Width           =   615
         End
         Begin VB.Label Label11 
            Caption         =   "Nro de Mesa"
            Height          =   255
            Left            =   5760
            TabIndex        =   104
            Top             =   1080
            Width           =   1095
         End
         Begin VB.Label Label12 
            Caption         =   "Vendedor"
            Height          =   255
            Left            =   5760
            TabIndex        =   103
            Top             =   1440
            Width           =   1095
         End
         Begin VB.Label lbldescripvend 
            BorderStyle     =   1  'Fixed Single
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Left            =   8760
            TabIndex        =   102
            Top             =   1440
            Width           =   2775
         End
         Begin VB.Label Label15 
            Caption         =   "Fecha"
            Height          =   255
            Left            =   5760
            TabIndex        =   101
            Top             =   720
            Width           =   1095
         End
         Begin VB.Label lblreloj 
            Alignment       =   2  'Center
            Appearance      =   0  'Flat
            BackColor       =   &H80000000&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "11:34:59 PM"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000008&
            Height          =   375
            Left            =   10080
            TabIndex        =   100
            Top             =   240
            Width           =   1455
         End
      End
      Begin VB.Frame Frame8 
         BorderStyle     =   0  'None
         Caption         =   "Frame8"
         Height          =   855
         Left            =   120
         TabIndex        =   114
         Top             =   120
         Width           =   2415
         Begin VB.Label Label1 
            Alignment       =   2  'Center
            Appearance      =   0  'Flat
            BackColor       =   &H00C00000&
            BorderStyle     =   1  'Fixed Single
            Caption         =   "ZIGMA S.A."
            BeginProperty Font 
               Name            =   "Times New Roman"
               Size            =   20.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H80000005&
            Height          =   495
            Left            =   120
            TabIndex        =   115
            Top             =   0
            Width           =   2295
         End
      End
   End
End
Attribute VB_Name = "FfacturacionTienda"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
