|
1C 8.2 УПП хранимая процедура SQL в Цикле
#38965154
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
|
Нужно выгрузить данные из 1С в SQL 2008 . Не 1С сервер
Вот одиночная запись работает
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| РаботникиОрганизацийСрезПоследних.Период,
| РаботникиОрганизацийСрезПоследних.Регистратор,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Ссылка,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Ссылка,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Код,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.ДатаРождения КАК ДатаРождения,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.КодПоДРФО КАК ИНН,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо.Пол КАК Пол,
| РаботникиОрганизацийСрезПоследних.Сотрудник.Код КАК ТабНом,
| РаботникиОрганизацийСрезПоследних.Должность.Ссылка,
| РаботникиОрганизацийСрезПоследних.Должность.Код,
| РаботникиОрганизацийСрезПоследних.Должность.Категория.Ссылка,
| РаботникиОрганизацийСрезПоследних.Должность.Грейд,
| РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.ВнешнийКод,
| РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.НомерЦеха,
| РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.Наименование,
| РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации.Родитель.НомерЦеха,
| РаботникиОрганизацийСрезПоследних.Сотрудник.ВидЗанятости,
| РаботникиОрганизацийСрезПоследних.Сотрудник.ВидДоговора,
| РаботникиОрганизацийСрезПоследних.Сотрудник.ДатаПриемаНаРаботу КАК ДатаПриемаНаРаботу,
| РаботникиОрганизацийСрезПоследних.Сотрудник.ДатаУвольнения КАК ДатаУвольнения,
| ФИОФизЛицСрезПоследних.Фамилия КАК Фамилия,
| ФИОФизЛицСрезПоследних.Имя Как Имя,
| ФИОФизЛицСрезПоследних.Отчество КАК Отчество
|ИЗ
| РегистрСведений.РаботникиОрганизаций.СрезПоследних КАК РаботникиОрганизацийСрезПоследних
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ФИОФизЛиц.СрезПоследних КАК ФИОФизЛицСрезПоследних
| ПО РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо = ФИОФизЛицСрезПоследних.ФизЛицо";
Результат = Запрос.Выполнить().Выбрать();
КоличествоСтрок=Результат.Количество();
Попытка
Соединение = Новый 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();
Исключение
Предупреждение("Не удалось создать подключение!");
КонецПопытки;
А в цикле выдает ошибку
1.
2.
3.
4.
5.
6.
Пока Результат.Следующий() Цикл
ПАРАМ=ЧИСЛО(Результат.ТабНом);
Команда.Execute();
КонецЦикла;
Возможно я что не так делаю? |
|
|
