[vbi]

Вот может будет полезно. Если (в УТП для Украины) не заполняется налоговыми назначениями документ "Корректировка остатков НУ в связи с вступлением в силу 01.04.2011...". В документе делается кнопка "Заполнить пустые" к которой привязывается код:

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

    Для Каждого Строка Из ЗапасыВсе Цикл
        Если Строка.НалоговоеНазначение = Справочники.НалоговыеНазначенияАктивовИЗатрат.ПустаяСсылка() Тогда 
            Строка.НалоговоеНазначение = ЗаполняемоеНН;
        КонецЕсли;
    КонецЦикла;

    Для Каждого Строка Из ТоварыПоПродажнойЦенеАТТ Цикл
        Если Строка.НалоговоеНазначение = Справочники.НалоговыеНазначенияАктивовИЗатрат.ПустаяСсылка() Тогда 
            Строка.НалоговоеНазначение = ЗаполняемоеНН;
        КонецЕсли;
    КонецЦикла;

    Для Каждого Строка Из ТоварыПоПродажнойЦенеНТТ Цикл
        Если Строка.НалоговоеНазначение = Справочники.НалоговыеНазначенияАктивовИЗатрат.ПустаяСсылка() Тогда 
            Строка.НалоговоеНазначение = ЗаполняемоеНН;
        КонецЕсли;
    КонецЦикла;

    Для Каждого Строка Из Затраты Цикл
        Если Строка.НалоговоеНазначение = Справочники.НалоговыеНазначенияАктивовИЗатрат.ПустаяСсылка() Тогда 
            Строка.НалоговоеНазначение = ЗаполняемоеНН;
        КонецЕсли;
    КонецЦикла;

    Для Каждого Строка Из РасходыБудущихПериодов Цикл
        Если Строка.НалоговоеНазначение = Справочники.НалоговыеНазначенияАктивовИЗатрат.ПустаяСсылка() Тогда 
            Строка.НалоговоеНазначение = ЗаполняемоеНН;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

[iat]

!

Не надо один вопрос разносить по всему форуму

Сообщение отредактировал logist - 18.01.13, 18:41