Вопрос № 81696: Здравствуйте! У меня небольшая проблема. Есть бухглатерия 7.7 план счетов полностью свой. Нужно сделать как бы закрытием месяца по 29 счету (операцию), чтобы он разбивался по субсчетам и брались субконто. Субсчетов 29 у нас около 150 поэтому отдельно...
Вопрос № 81.696
Здравствуйте! У меня небольшая проблема. Есть бухглатерия 7.7 план счетов полностью свой. Нужно сделать как бы закрытием месяца по 29 счету (операцию), чтобы он разбивался по субсчетам и брались субконто. Субсчетов 29 у нас около 150 поэтому отдельно выбирать не годится и 5 субконто. Надеюсь, что понятно выразилась. Заранее спасибо.
Отправлен: 09.04.2007, 11:11
Вопрос задала: MaShI (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Elric
Здравствуйте, MaShI!
Создайте документ ЗакрытиеПериода (к примеру) и в модуле пропишите обработку проведения такую, как в Приложении. Счет "091" замените на тот, на который должен закрываться "29" (по Вашему плану счетов). Соответственно, если субконто у 29 больше чем одно, подкорректируйте процедуру.
Приложение:
--------- Мирный атом в КАЖДЫЙ дом!
Ответ отправил: Elric (статус: Специалист)
Ответ отправлен: 09.04.2007, 14:26 Оценка за ответ: 5 Комментарий оценки: Спасибо большое. Ваш код очень мне помог
Отвечает: Arkadiy Karanskiy
Здравствуйте, MaShI!
Вот посмотрите этот код...
Сч = СоздатьОбъект("Счет.Основной");
Сч.ВыбратьСчета();
Пока Сч.ПринадлечитГруппе(СчетПоКоду("29"))=1 Цикл
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Если (Метаданные.РазделительУчета.Выбран() = 1) Тогда
Ит.ИспользоватьРазделительУчета(Фирма);
КонецЕсли;
Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиДоходовРасходов);
Ит.ВыполнитьЗапрос(ТекущийДокумент(), ,Спис_Сч);