obj = Createobject("V82.COMConnector")

conString='Srvr="'+Server+'";Ref="'+basa+'";Usr="'+login+'";Pwd="'+passwd+'"'

obj.Connect(conString)
obj.Visible = .T.
oQue = obj.Newobject("Запрос")
*!*	 obj.Connect([Srvr="cc-srv-1c-03";Ref="upp_salary_sh_test";Usr="Филипов Александр Владимирович";pwd="alex"])
TEXT TO текст NOSHOW
   ВЫБРАТЬ
	РаботникиОрганизацийСрезПоследних.Период,
	РаботникиОрганизацийСрезПоследних.Регистратор,
	РаботникиОрганизацийСрезПоследних.Сотрудник.Ссылка,
	РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Ссылка,
	РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Код,
	РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.ДатаРождения КАК ДатаРождения,
	РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.КодПоДРФО КАК ИНН,
	РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Пол КАК Пол,
	РаботникиОрганизацийСрезПоследних.Сотрудник.Код КАК ТабНом,
	РаботникиОрганизацийСрезПоследних.Должность.Ссылка,
	РаботникиОрганизацийСрезПоследних.Должность.Код,
	РаботникиОрганизацийСрезПоследних.Должность.Категория.Ссылка,
	РаботникиОрганизацийСрезПоследних.Должность.Грейд,
	РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.ВнешнийКод,
	РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.НомерЦеха,
	РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.Наименование,
	РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.Родитель.НомерЦеха,
	РаботникиОрганизацийСрезПоследних.Сотрудник.ВидЗанятости,
	РаботникиОрганизацийСрезПоследних.Сотрудник.ВидДоговора,
	РаботникиОрганизацийСрезПоследних.Сотрудник.ДатаПриемаНаРаботу КАК ДатаПриемаНаРаботу,
	РаботникиОрганизацийСрезПоследних.Сотрудник.ДатаУвольнения КАК ДатаУвольнения

ИЗ
	РегистрСведений.РаботникиОрганизаций.СрезПоследних КАК РаботникиОрганизацийСрезПоследних

ENDTEXT


oQue.Текст=Текст
oResULT = oQue.Выполнить()
oRes = oResULT.Выбрать()

*ВЫБРАННЫЕ  ОБЬЕКТЫ ОСНОВНЫХ СРЕДСТВ ПОМЕЩАЕМ В МАССИВ

RowCount=oRes.Количество()

Do While oRes.Следующий()
    ltabnum= Val(oRes.ТабНом)
    ltabnum=Padl(Alltrim(Str(ltabnum)),4,'0')
    *!*
    Insert Into sprrab (tab_nom) Values(ltabnum)

Enddo

obj.Exit()

Release obj