0
lunatik33
14.03.13
✎
15:34
|
Есть функция общего модуля
Функция ВернутьВыборкуДокументов(ИмяДокумента,НачДата,КонДата) Экспорт
Запрос = Новый Запрос;
ТекстЗапроса =
"ВЫБРАТЬ
| Док.Ссылка КАК Ссылка,
| Док.Номер КАК Номер,
| Док.РаботникиОрганизации.(
| Сотрудник,
| ПРЕДСТАВЛЕНИЕ(Док.РаботникиОрганизации.Сотрудник),
| ДатаОкончания,
| ДатаНачала,
| КоличествоДней
| )
|ИЗ
| Документ.{ИмяДокумента} КАК Док
|ГДЕ
| Док.Дата МЕЖДУ &НачДата И &КонДата";
ТекстЗапроса = СтрЗаменить(ТекстЗапроса,"{ИмяДокумента}",ИмяДокумента);
Запрос.Текст = ТекстЗапроса;
Запрос.УстановитьПараметр("НачДата",НачДата);
Запрос.УстановитьПараметр("КонДата",КонДата);
Выборка = Запрос.Выполнить().Выбрать();
ТЗ = Новый ТаблицаЗначений;
// Создать нужные колонки.
ТЗ.Колонки.Добавить("Организация");
ТЗ.Колонки.Добавить("Сотрудник");
ТЗ.Колонки.Добавить("ДатаДок");
ТЗ.Колонки.Добавить("НомерДок");
ТЗ.Колонки.Добавить("Дата1");
ТЗ.Колонки.Добавить("Дата2");
ТЗ.Колонки.Добавить("Дней");
Пока выборка.Следующий() цикл
РаботникиОрганизацииВыборкаДетальныеЗаписи = Выборка.РаботникиОрганизации.Выбрать();
Пока РаботникиОрганизацииВыборкаДетальныеЗаписи.Следующий() Цикл
// Добавить новую строку и задать значения в колонках таблицы.
НоваяСтрока = ТЗ.Добавить();
НоваяСтрока.Организация = Выборка.Ссылка.Организация;
НоваяСтрока.Сотрудник = РаботникиОрганизацииВыборкаДетальныеЗаписи.Сотрудник;
НоваяСтрока.ДатаДок = Выборка.Ссылка.Дата;
НоваяСтрока.НомерДок = Выборка.Ссылка.Номер;
НоваяСтрока.Дата1 = РаботникиОрганизацииВыборкаДетальныеЗаписи.ДатаНачала;
НоваяСтрока.Дата2 = РаботникиОрганизацииВыборкаДетальныеЗаписи.ДатаОкончания;
НоваяСтрока.Дней = РаботникиОрганизацииВыборкаДетальныеЗаписи.КоличествоДней;
КонецЦикла;
КонецЦикла;
Возврат ТЗ;
КонецФункции
есть обработка на 7.7
Процедура ПодключитьИБ()
НовоеПодключение = СоздатьОбъект("V82.COMConnector");
СтрокаПодключения = "*********";
Попытка
Подключение = НовоеПодключение.Connect(СтрокаПодключения);
Сообщить("Соединение успешно!");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Выборка = Подключение.ВернутьВыборкуДокументов("ОтпускаОрганизаций", НачДата, КонДата);
Сообщить(Выборка.КоличествоСтрок());
КонецПроцедуры
не работает, какая то проблема при передачи ТЗ
|
|