Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| РаботникиОрганизацийСрезПоследних.Период,
| РаботникиОрганизацийСрезПоследних.Регистратор,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Ссылка,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Ссылка,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Код,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.ДатаРождения КАК ДатаРождения,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.КодПоДРФО КАК ИНН,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Пол КАК Пол,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Код КАК ТабНом,
| РаботникиОрганизацийСрезПоследних.Должность.Ссылка,
| РаботникиОрганизацийСрезПоследних.Должность.Код,
| РаботникиОрганизацийСрезПоследних.Должность.Категория.Ссылка,
| РаботникиОрганизацийСрезПоследних.Должность.Грейд,
| РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.ВнешнийКод,
| РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.НомерЦеха,
| РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.Наименование,
| РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.Родитель.НомерЦеха,
| РаботникиОрганизацийСрезПоследних.Сотрудник.ВидЗанятости,
| РаботникиОрганизацийСрезПоследних.Сотрудник.ВидДоговора,
| РаботникиОрганизацийСрезПоследних.Сотрудник.ДатаПриемаНаРаботу КАК ДатаПриемаНаРаботу,
| РаботникиОрганизацийСрезПоследних.Сотрудник.ДатаУвольнения КАК ДатаУвольнения,
| ФИОФизЛицСрезПоследних.Фамилия КАК Фамилия,
| ФИОФизЛицСрезПоследних.Имя Как Имя,
| ФИОФизЛицСрезПоследних.Отчество КАК Отчество
|ИЗ
| РегистрСведений.РаботникиОрганизаций.СрезПоследних КАК РаботникиОрганизацийСрезПоследних
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних КАК ФИОФизЛицСрезПоследних
| ПО РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо = ФИОФизЛицСрезПоследних.ФизЛицо";
Результат = Запрос.Выполнить().Выбрать();
КоличествоСтрок=Результат.Количество();
Попытка
Соединение = Новый COMОбъект("ADODB.Connection");
ДатаЛ = Новый COMОбъект("DataLinks");
Соединение.ConnectionString = "Provider=SQLNCLI10.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=;Data Source=";
ConnectionString = Соединение.ConnectionString;
Сообщить(ConnectionString);
Соединение.Open(ConnectionString);
Команда = Новый COMОбъект("ADODB.Command");
Команда.ActiveConnection = Соединение;
Команда.CommandType = 4;
Команда.CommandText="UPP_1C.insert_PersonalAll";
Результат.Следующий();
ПАРАМ=ЧИСЛО(Результат.ТабНом);
Параметр1=Команда.CreateParameter("@persid", 3, 1, 4, ПАРАМ);
Команда.Parameters.Append(Параметр1);
Команда.Execute();
Исключение
Предупреждение("Не удалось создать подключение!");
КонецПопытки;Вот там выполняет
А нужно в цикле
Пока Результат.Следующий() Цикл
ПАРАМ=ЧИСЛО(Результат.ТабНом);
Команда.Execute();
КонецЦикла;Там не выполняется. Где ошибка?