Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Заполнение налогового назначения в документе Корректировка остатков НУ
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Тематическое общение
vbi
Вот может будет полезно. Если (в УТП для Украины) не заполняется налоговыми назначениями документ "Корректировка остатков НУ в связи с вступлением в силу 01.04.2011...". В документе делается кнопка "Заполнить пустые" к которой привязывается код:
Процедура ДействияФормыЗаполнитьПустыеНалоговыеНазначения(Кнопка)
    ЗаполняемоеНН = Справочники.НалоговыеНазначенияАктивовИЗатрат.ПустаяСсылка();
    Если НЕ ВвестиЗначение(ЗаполняемоеНН,"Выберите налоговое назначение для заполнения пустых") Тогда
        Возврат;
    КонецЕсли;
    
    Для Каждого Строка Из БухСправка Цикл
        Если Строка.НалоговоеНазначение = Справочники.НалоговыеНазначенияАктивовИЗатрат.ПустаяСсылка() Тогда
            Строка.НалоговоеНазначение = ЗаполняемоеНН;
        КонецЕсли;
    КонецЦикла;
    
    Для Каждого Строка Из ОС Цикл
        Если Строка.НалоговоеНазначение = Справочники.НалоговыеНазначенияАктивовИЗатрат.ПустаяСсылка() Тогда
            Строка.НалоговоеНазначение = ЗаполняемоеНН;
        КонецЕсли;
    КонецЦикла;
    
    Для Каждого Строка Из НМА Цикл
        Если Строка.НалоговоеНазначение = Справочники.НалоговыеНазначенияАктивовИЗатрат.ПустаяСсылка() Тогда
            Строка.НалоговоеНазначение = ЗаполняемоеНН;
        КонецЕсли;
    КонецЦикла;

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

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

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

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

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

 ! 

Не надо один вопрос разносить по всему форуму
 
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.