|
06.02.2004, 22:17 | #1 |
Участник
|
на форуме также присутствуют теги [ 1Cv7 ] и [ 1Cv8 ]
<div class='v7top'>1Cv7</div><div class='v7'>//******************************************* // Процедура генерации запроса Сформировать. // Процедура Сформировать() Перем Запрос, ТекстЗапроса, Таб; //Создание объекта типа Запрос Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |ТекущийСчет = Счет.Основной.ТекущийСчет; |Валютный = Счет.Основной.Валютный; |Код = Счет.Основной.Код; |Функция ВалютныйСумма = Сумма(Валютный); |Группировка ТекущийСчет; |"//}}ЗАПРОС ; // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли; // Подготовка к заполнению выходных форм данными запроса Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); // Заполнение полей "Заголовок" Таб.ВывестиСекцию("Заголовок"); Состояние("Заполнение выходной таблицы..."); Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); Пока Запрос.Группировка(1) = 1 Цикл // Заполнение полей ТекущийСчет Таб.ВывестиСекцию("ТекущийСчет"); КонецЦикла; // Заполнение полей "Итого" Таб.ВывестиСекцию("Итого"); // Вывод заполненной формы Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать", ""); КонецПроцедуры</div> <div class='v7top'>1Cv7</div><div class='v7'>//******************************************* // Процедура генерации запроса Сформировать. // Procedure Сформировать() Var Запрос, ТекстЗапроса, Таб; //Создание объекта типа Запрос Запрос = CreateObject("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |ТекущийСчет = Счет.Основной.ТекущийСчет; |Валютный = Счет.Основной.Валютный; |Код = Счет.Основной.Код; |Функция ВалютныйСумма = Сумма(Валютный); |Группировка ТекущийСчет; |"//}}ЗАПРОС ; // Если ошибка в запросе, то выход из процедуры if Запрос.Выполнить(ТекстЗапроса) = 0 Then return; EndIf;</div> <div class='v8top'>1Cv8</div><div class='v8'>#Если Сервер Тогда // Устанавливает или снимает пометку на удаление с // документов заданного типа за заданный период Процедура ПометитьДокументыНаУдаление(ИмяТипа, ДатаС, ДатаПо, Пометка) Экспорт Выборка = Документы[ИмяТипа].Выбрать(ДатаС, ДатаПо); Пока Выборка.Следующий() Цикл Выборка.ПолучитьОбъект().УстановитьПометкуУдаления(Пометка); КонецЦикла; КонецПроцедуры // Удаляет документы заданного типа за заданный период Процедура УдалитьДокументы(ИмяТипа, ДатаС, ДатаПо) Экспорт Выборка = Документы[ИмяТипа].Выбрать(ДатаС, ДатаПо); Пока Выборка.Следующий() Цикл Выборка.ПолучитьОбъект().Удалить(); КонецЦикла КонецПроцедуры // Перезаписывает документы заданного типа за заданный период Процедура ЗаписатьДокументы(ИмяТипа, ДатаС, ДатаПо, РежимЗаписи) Экспорт Выборка = Документы[ИмяТипа].Выбрать(ДатаС, ДатаПо); Пока Выборка.Следующий() Цикл Выборка.ПолучитьОбъект().Записать(РежимЗаписи); КонецЦикла; КонецПроцедуры #КонецЕсли</div> Замечания и предложения направляйте администратору |
|