VERSION 5.00
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   7185
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8505
   LinkTopic       =   "Form1"
   ScaleHeight     =   7185
   ScaleWidth      =   8505
   StartUpPosition =   3  'Windows Default
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
      Bindings        =   "Form1.frx":0000
      Height          =   3855
      Left            =   360
      TabIndex        =   1
      Top             =   2040
      Width           =   7695
      _ExtentX        =   13573
      _ExtentY        =   6800
      _Version        =   393216
      Rows            =   4
      Cols            =   13
      DataMember      =   "Command1"
      BandDisplay     =   1
      _NumberOfBands  =   2
      _Band(0).Cols   =   5
      _Band(0).GridLinesBand=   1
      _Band(0).TextStyleBand=   0
      _Band(0).TextStyleHeader=   0
      _Band(0)._NumMapCols=   4
      _Band(0)._MapCol(0)._Name=   "cClienteCode"
      _Band(0)._MapCol(0)._RSIndex=   0
      _Band(0)._MapCol(0)._Alignment=   7
      _Band(0)._MapCol(1)._Name=   "IdLocal"
      _Band(0)._MapCol(1)._RSIndex=   1
      _Band(0)._MapCol(1)._Alignment=   7
      _Band(0)._MapCol(2)._Name=   "DscCliente"
      _Band(0)._MapCol(2)._RSIndex=   2
      _Band(0)._MapCol(3)._Name=   "Local"
      _Band(0)._MapCol(3)._RSIndex=   3
      _Band(1).BandIndent=   1
      _Band(1).Cols   =   12
      _Band(1).GridLinesBand=   1
      _Band(1).TextStyleBand=   0
      _Band(1).TextStyleHeader=   0
      _Band(1).ColHeader=   1
      _Band(1)._ParentBand=   0
      _Band(1)._NumMapCols=   12
      _Band(1)._MapCol(0)._Name=   "cSerieDoc"
      _Band(1)._MapCol(0)._RSIndex=   0
      _Band(1)._MapCol(1)._Name=   "NroDoc"
      _Band(1)._MapCol(1)._RSIndex=   1
      _Band(1)._MapCol(2)._Name=   "cClienteCode"
      _Band(1)._MapCol(2)._RSIndex=   2
      _Band(1)._MapCol(2)._Alignment=   7
      _Band(1)._MapCol(3)._Name=   "IdLocal"
      _Band(1)._MapCol(3)._RSIndex=   3
      _Band(1)._MapCol(3)._Alignment=   7
      _Band(1)._MapCol(4)._Name=   "Vta Soles"
      _Band(1)._MapCol(4)._RSIndex=   4
      _Band(1)._MapCol(5)._Name=   "Vta USD"
      _Band(1)._MapCol(5)._RSIndex=   5
      _Band(1)._MapCol(6)._Name=   "Moneda"
      _Band(1)._MapCol(6)._RSIndex=   6
      _Band(1)._MapCol(7)._Name=   "Credito"
      _Band(1)._MapCol(7)._RSIndex=   7
      _Band(1)._MapCol(8)._Name=   "Fec Emision"
      _Band(1)._MapCol(8)._RSIndex=   8
      _Band(1)._MapCol(9)._Name=   "Pag Sol"
      _Band(1)._MapCol(9)._RSIndex=   9
      _Band(1)._MapCol(10)._Name=   "Pag USD"
      _Band(1)._MapCol(10)._RSIndex=   10
      _Band(1)._MapCol(11)._Name=   "Estado"
      _Band(1)._MapCol(11)._RSIndex=   11
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   1305
      TabIndex        =   0
      Top             =   615
      Width           =   1725
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim cncnt As Connection
Dim xRUTADBQ As String
xRUTADBQ = "C:\OmniSys\Cliente\"

'cncnt.Open "Driver={Microsoft Visual FoxPro Driver (*.dbf)};Collate=SPANISH;Exclusive=No;Deleted=No;Null=No;BackgroundFetch=No;SetNoCountOn=No;SourceType=DBC;SourceDB=" & xRUTADBQ & ";"

cncnt.Open "Driver={Microsoft dBASE Driver (*.dbf)};Persist Security Info=False;Dbq=" & xRUTADBQ
End Sub
