[mazzy]

на форуме также присутствуют теги [ 1Cv7 ] и [ 1Cv8 ]
<div class='v7top'>1Cv7</div><div class='v7'>//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать&#40;&#41;
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект&#40;"Запрос"&#41;;
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|ТекущийСчет = Счет.Основной.ТекущийСчет;
|Валютный = Счет.Основной.Валютный;
|Код = Счет.Основной.Код;
|Функция ВалютныйСумма = Сумма(Валютный);
|Группировка ТекущийСчет;
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить&#40;ТекстЗапроса&#41; = 0 Тогда
Возврат;
КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект&#40;"Таблица"&#41;;
Таб.ИсходнаяТаблица&#40;"Сформировать"&#41;;
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию&#40;"Заголовок"&#41;;
Состояние&#40;"Заполнение выходной таблицы..."&#41;;
Таб.Опции&#40;0, 0, Таб.ВысотаТаблицы&#40;&#41;, 0&#41;;
Пока Запрос.Группировка&#40;1&#41; = 1 Цикл
// Заполнение полей ТекущийСчет
Таб.ВывестиСекцию&#40;"ТекущийСчет"&#41;;
КонецЦикла;
// Заполнение полей "Итого"
Таб.ВывестиСекцию&#40;"Итого"&#41;;
// Вывод заполненной формы
Таб.ТолькоПросмотр&#40;1&#41;;
Таб.Показать&#40;"Сформировать", ""&#41;;
КонецПроцедуры</div>

<div class='v7top'>1Cv7</div><div class='v7'>//*******************************************
// Процедура генерации запроса Сформировать.
//
Procedure Сформировать&#40;&#41;
Var Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = CreateObject&#40;"Запрос"&#41;;
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|ТекущийСчет = Счет.Основной.ТекущийСчет;
|Валютный = Счет.Основной.Валютный;
|Код = Счет.Основной.Код;
|Функция ВалютныйСумма = Сумма(Валютный);
|Группировка ТекущийСчет;
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
if Запрос.Выполнить&#40;ТекстЗапроса&#41; = 0 Then
return;
EndIf;</div>

<div class='v8top'>1Cv8</div><div class='v8'>#Если Сервер Тогда
// Устанавливает или снимает пометку на удаление с
// документов заданного типа за заданный период
Процедура ПометитьДокументыНаУдаление&#40;ИмяТипа, ДатаС, ДатаПо, Пометка&#41; Экспорт
Выборка = Документы&#91;ИмяТипа&#93;.Выбрать&#40;ДатаС, ДатаПо&#41;;
Пока Выборка.Следующий&#40;&#41; Цикл
Выборка.ПолучитьОбъект&#40;&#41;.УстановитьПометкуУдаления&#40;Пометка&#41;;
КонецЦикла;
КонецПроцедуры

// Удаляет документы заданного типа за заданный период
Процедура УдалитьДокументы&#40;ИмяТипа, ДатаС, ДатаПо&#41; Экспорт
Выборка = Документы&#91;ИмяТипа&#93;.Выбрать&#40;ДатаС, ДатаПо&#41;;
Пока Выборка.Следующий&#40;&#41; Цикл
Выборка.ПолучитьОбъект&#40;&#41;.Удалить&#40;&#41;;
КонецЦикла
КонецПроцедуры

// Перезаписывает документы заданного типа за заданный период
Процедура ЗаписатьДокументы&#40;ИмяТипа, ДатаС, ДатаПо, РежимЗаписи&#41; Экспорт
Выборка = Документы&#91;ИмяТипа&#93;.Выбрать&#40;ДатаС, ДатаПо&#41;;
Пока Выборка.Следующий&#40;&#41; Цикл
Выборка.ПолучитьОбъект&#40;&#41;.Записать&#40;РежимЗаписи&#41;;
КонецЦикла;
КонецПроцедуры
#КонецЕсли</div>

Замечания и предложения направляйте администратору