// При старте проверяем наличие компоненты
// “Бухгалтерский Учет” 1С:Предприятия
Попытка
БухИтоги = СоздатьОбъект(“БухгалтерскиеИтоги”);
Исключение
Предупреждение(“Для работы конфигурации необходимо наличие” + РазделительСтрок+ “компоненты Бухгалтерский Учет
1С:Предприятия 7.7!”+ РазделительСтрок+
“Повторите запуск программы после проверки”+ РазделительСтрок+“состава установленных компонент и доступа к ключам защиты.”);
СтатусВозврата(0);
Возврат;
КонецПопытки;
| 
опубликовано: 10 Июль 2007, 20:45
// Анализ счета
// ——————
// использования запроса для работы с бухгалтерскими операциями и проводками.
// Запрос обрабатывает корреспонденции счета Сч
// по счетам КорСч за расчетный период.
// Значение счета для анализа задается в диалоге установкой ВыбСч.
//Создание объекта типа Запрос
Запрос = СоздатьОбъект(“Запрос”);
ТекстЗапроса = “
|Период с Дата1 по Дата2;
|Сч = Операция.Счет;
|КорСч = Операция.КорСчет;
|Сумма = Операция.Сумма;
|Группировка Сч упорядочить по Сч.Код;
|Группировка КорСч упорядочить по КорСч.Код;
|Функция КорДо = КорДО(Сумма);
|Функция КорКо = КорКО(Сумма);
|Условие(Сч = ВыбСч);”;
//Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Предупреждение(“Запрос по бухгалтерскими операциями и проводками не выполнился!”);
Возврат;
КонецЕсли;
//Подготовка к заполнению выходных форм данными запроса
Пока Запрос.Группировка(“Сч”) = 1 Цикл
// Заполнение полей Сч
Сч = Запрос.Сч;
Пока Запрос.Группировка(“КорСч”) = 1 Цикл
// Заполнение полей КорСч
КорСч = Запрос.КорСч;
// Дальнейшая обработка...
КонецЦикла;
КонецЦикла;
| опубликовано: 7 Июль 2007, 21:25
// Анализ счета по субконто
Дата1 = НачалоПериодаБИ();
Дата2 = КонецПериодаБИ();
Ит = СоздатьОбъект(“БухгалтерскиеИтоги”);
Ит.ИспользоватьСубконто(ВидыСубконто.ВидСубконтоДляОтбора);
Если Ит.ВыполнитьЗапрос(Дата1, Дата2, СчетПоКоду(“КодСчета”),,, 3) = 0 Тогда
Возврат;
КонецЕсли;
Ит.ВыбратьСубконто();
Пока Ит.ПолучитьСубконто() = 1 Цикл
Если ПустоеЗначение(Ит.Субконто()) = 1 Тогда
Продолжить;
КонецЕсли;
ПредставлениеСубконто = Ит.ПредставлениеСубконто();
Ит.ВыбратьСчета();
Пока Ит.ПолучитьСчет() = 1 Цикл
Ит.ВыбратьКорСчета();
Если Ит.ПолучитьКорСчет(,СчетПоКоду(КодСчета”)) = 1 Тогда
// Возвращает кредитовый оборот между корреспонденциями
КорКО = Ит.КорКО();
// Возвращает дебетовый оборот между корреспонденциями
КорДО = Ит.КорДО();
КонецЕсли;
КонецЦикла;
КонецЦикла;
| опубликовано: 6 Июль 2007, 20:44