Перевод имущества с внебюджета на бюджет
83-ФЗ определено, что в казенных учреждениях не должно быть внебюджетной деятельности. Эта обработка переводит имущество с внебюджета на бюджет. Единственно – нужно в коде поменять КБК на ваше, на котором будет учтено имущество на бюджете, не захотел загрязнять форму.
17.12.2011 Неправильно формировались КОСГУ, теперь сделал как указывает Минфин — 241 и 180. Добавил выбор КБК, в конфигуратор лезть не надо.
Спасибо
Скачал данную обработку, перевел с внебюджета, все красиво, спасибо. Но это только перенос, амортизацию начисляет по прежнему на счет который указан в карточке ОС,(попробовал начислить после переноса и амортизация отразилась по внебюджету) придется править карточку, или есть обработка
Да, обработка есть, но она под конкретную организацию — нет времени делать универсальную. Я там делаю комплексно, переношу все с разных КБК, которых нет в смете на те, что обозначены и меняю в карточке ОС сам учетный КБК и начисление амортизации.
Сегодня начал проверять как все перенеслось, по количеству все хорошо, а вот по подотчетным лицам есть суммы с + и —
Хотя есть небольшие ошибки, обработка здорово помогла
Огромное спасибо за обработку! Подскажите только на какое письмо ссылаетесь по КОСГУ? На 25.05.2006 г. №02-14-10а/1354? По базе гаранта письмо не утратило силы, но оно относится к инструкции 25н которая отменена.
Наш ГРБС требует руководствоваться им.
Обнаружил ошибку:
после «Опер.НоваяПроводка();»
добавьте вот это «Опер.Учреждение = ВыбУчреждение;»
Плюс амортизацию лучше отдельно делать, так как остаются остатки по внебюджету.
Принял! Будем работать! Спасибо за подсказки!
Что-то не соображу ,а зачем здесь цикл в коде? У меня с таким условием в цикле просто завис!!!
Пока 1=1 Цикл
Попытка
Опер.Документ.Автор = глПользователь;
Опер.Документ.НомерДок = НовНомер;
Опер.Записать();
Док = СоздатьОбъект(«Документ.Операция»);
Док.НайтиДокумент(Опер.Документ);
Док.ВыбраннаяФирма = ВыбУчреждение;
Док.Комментарий = «Перевод с внебюджета на бюджет»;
Док.Записать();
Прервать;
Исключение
НовНомер=ПрисвоитьНовыйНомер(НовНомер);
КонецПопытки;
КонецЦикла;
А простите.. не заметил «прервать».
Все равно…. что-то как-то все запутано создается операция…
Цикл для присваивания нового (несуществующего) номера. Иначе будет ошибка неуникального кода
Обработка полезная. Спасибо. Немножко подкорректировал, как просили бухгалтера.
А нельзя ли сделать перевод с забалансовых счетов, в частности А21…
Счас попробую отпишу