Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: 1С для программиста

  Все выпуски  

RusFAQ.ru: 1С для программиста


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 469
от 14.04.2007, 11:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 375, Экспертов: 56
В номере:Вопросов: 1, Ответов: 2


Вопрос № 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) Тогда
Ит.ИспользоватьРазделительУчета(Фирма);
КонецЕсли;
Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиДоходовРасходов);
Ит.ВыполнитьЗапрос(ТекущийДокумент(), ,Спис_Сч);

Ит.ВыбратьСубконто();
Пока Ит.ПолучитьСубконто() = 1 Цикл
СуммаЗатрат = Ит.СКД();
Операция.НоваяПроводка();
Операция.СодержаниеПроводки = " закртие счета";
Операция.ФирмаП = Фирма;
Операция.Дебет.Счет = ;

Операция.Кредит.Счет = ;
Операция.Кредит.СтатьиДоходовРасходов = Ит.Субконто(ВидыСубконто.СтатьиДоходовРасходов);
Операция.Сумма;
КонецЦикла;
КонецЦикла;

Проводки я не делал, т.к. вы не написали ни активности счета ни субконто и тд.

Успехов...
Ответ отправил: Arkadiy Karanskiy (статус: 8-ой класс)
Ответ отправлен: 09.04.2007, 14:28


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.48 от 12.04.2007
Яндекс Rambler's Top100

В избранное