tcDataBase = 'sls_new'
tcServer='192.168.1.1'
lcPassword='111'

lcDriver = 'Sql server'
*lcDriver = 'Sql server native client 11.0'

hConn = SQLSTRINGCONNECT('UID=sa;PWD='+lcPassword+';DRIVER='+lcDriver+';SERVER='+tcServer+';APP=Microsoft Visual FoxPro;DATABASE='+tcDataBase+';LANGUAGE=русский')

lnRes=0
lcsql = "select * "+;
  " FROM  [sls_new].[dbo].contragent"
  
lnRes=SQLEXEC(hConn,lcsql ,"curCurrentID") 

SQLDISCONNECT(hConn)

CREATE TABLE [dbo].[contragent](
    [id] [int] IDENTITY(0,1) NOT NULL,
    [Name] [nvarchar](50) NULL,
    [Id_org] [int] NULL,
    [id_worker] [int] NULL,
    [id_user] [int] NULL,
    [categoriya] [int] NOT NULL,
    [city] [int] NOT NULL,
    [region] [int] NOT NULL,
    [addr] [int] NOT NULL,
    [house] [nchar](10) NULL,
    [mikrodep] [int] NULL,
    [direct] [int] NOT NULL,
    [n_org_gob] [numeric](10, 2) NULL,
    [n_user_gob] [int] NULL,
    [n_worker_gob] [int] NULL,
    [cod] [nchar](10) NULL,
    [lat] [nvarchar](20) NULL,
    [lot] [nvarchar](20) NULL,
    [KOATUU] [varchar](10) NULL,
    [id_corporation] [int] NULL,
    [id_TRT] [int] NULL,
 CONSTRAINT [PK_contragent] PRIMARY KEY CLUSTERED 
(
    [id] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]

select TOP 10 *  FROM  [sls_new].[dbo].contragent

SELECT * FROM [rlarhiv] WHERE [datar]=@1

CREATE INDEX datar ON rlarhiv (datar) INCLUDE ( id_key, tn, mo, vo, dni, tim, tim, sm, prizn, id_doc, ddata, koduser, id_sr )