Еще об ошибках в новых налоговых накладных конфигурации "Бухгалтерский учет для Украины" (релиз 280)

Новые налоговые 1С точно сделала тяп-ляп. Просто чтобы отвязались. Похоже, что команды разработчиков даже держали в руках различные постановления. Так, в печатных формах для 8-ки даты сделаны сплошными клетками (т.е. 15012011), а в 7.7 с точками (15.01.2011). И как правильно?.. Правда у меня уже бухгалтера хотели дату без точек.

UPD. Исправленные печатные формы выложил тут.

Налоговая накладная. Почему-то не сделан выбор вида договора. В 8-ке он есть, а в 7.7 будьте добры писать ручками. Бухам это дело не понравилось, и они потребовали прекратить ущемление прав и свобод по платформенному признаку. Чтобы сделать выбор вида договора из списка:

1) на форме налоговой в слое "дополнительный" убираем поле "ВидДоговора" и на его место устанавливаем "Поле со списком" (аналогичное имеющемуся полю "спТипПричины" только покороче : )).

Свойства: идентификатор - 'спВидДоговора'; формула - 'ИзмВидДоговора()' (см. скриншот)

В тексте модуля формы:

1) перед процедурой "ПриОткрытии" вставляем две новых:

// ===============================
Процедура ИзмВидДоговора()
    Инд = спВидДоговора.ТекущаяСтрока();
    Если Инд <> 0 Тогда
        ТекВидДоговора = спВидДоговора.ПолучитьЗначение(Инд);
        Если ТекВидДоговора <> ВидДоговора Тогда
            ВидДоговора = ТекВидДоговора;
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры

// ===============================
Процедура ЗаполнитьВидДоговора()
    спВидДоговора.УдалитьВсе();
    спВидДоговора.ДобавитьЗначение("Договір поставки");
    спВидДоговора.ДобавитьЗначение("Договір купівлі-продажу");
    спВидДоговора.ДобавитьЗначение("Договір комісії");
    спВидДоговора.ДобавитьЗначение("Договір бартерної поставки");
    спВидДоговора.ДобавитьЗначение("Договір консигнації");
    спВидДоговора.ДобавитьЗначение("Договір поруки");
    спВидДоговора.ДобавитьЗначение("Договір доручення");
    спВидДоговора.ДобавитьЗначение("Договір довірчого управління");
    спВидДоговора.ДобавитьЗначение("Договір відповідального зберігання");
    спВидДоговора.ДобавитьЗначение("Договір складського зберігання");
    спВидДоговора.ДобавитьЗначение("Договір про надання посередницьких послуг");
    спВидДоговора.ДобавитьЗначение("Договір про виконання роботи");
    спВидДоговора.ДобавитьЗначение("Договір про надання послуг");
    спВидДоговора.ДобавитьЗначение("Договір про інформаційно-довідкове обслуговування");
    спВидДоговора.ДобавитьЗначение("Договір поставки оптової партії");
    // если ВидДоговора есть в новом списке - спозиционируемся на него
    Инд = спВидДоговора.НайтиЗначение(СокрЛП(ВидДоговора));
    Если Инд = 0 Тогда
        // нет такого в списке
        спВидДоговора.ТекущаяСтрока(1);
        ВидДоговора = спВидДоговора.ПолучитьЗначение(1);
    Иначе
        спВидДоговора.ТекущаяСтрока(Инд);
    КонецЕсли;

КонецПроцедуры

2) в процедуре "ПриОткрытии" добавляем вызов  процедуры 'ЗаполнитьВидДоговора()'.

Например перед или после вызова 'ЗаполнитьТипыПричин()'.

Приложение 2. Даже когда у себя документы не оставляем печатает в шапке причину 02.

Для исправления в модуле формы правим процедуру печати.

Процедура 'Печать2011'. Строку 156 нужно взять в условие. Изначально часть процедуры выглядит так:

Для Страница = 1 По 2 Цикл
        Таб.ВывестиСекцию( "Пустота" );
        Если Страница = 1 Тогда
            Оригинал = ?(НалоговаяНакладная.Оставляем = 1, "","Х");;
            Копия = "";
            ЕРПН = ?(ЕРНН = 1, "Х","");
            ОстаетсяПеч = ?(НалоговаяНакладная.Оставляем = 1, "Х","");
            ТипПричиныПеч = Сред(НалоговаяНакладная.ТипПричины,2,2);
        ИначеЕсли Страница = 2 Тогда
            Копия = "Х";
            Оригинал = "";
            ТипПричиныПеч = "";
            ЕРПН = "";
            ОстаетсяПеч = "";
        КонецЕсли;

После исправления:

Для Страница = 1 По 2 Цикл
        Таб.ВывестиСекцию( "Пустота" );
        Если Страница = 1 Тогда
            Оригинал = ?(НалоговаяНакладная.Оставляем = 1, "","Х");;
            Копия = "";
            ЕРПН = ?(ЕРНН = 1, "Х","");
            ОстаетсяПеч = ?(НалоговаяНакладная.Оставляем = 1, "Х","");
            Если НалоговаяНакладная.Оставляем = 1 Тогда
                ТипПричиныПеч = Сред(НалоговаяНакладная.ТипПричины,2,2);
            КонецЕсли;
        ИначеЕсли Страница = 2 Тогда
            Копия = "Х";
            Оригинал = "";
            ТипПричиныПеч = "";
            ЕРПН = "";
            ОстаетсяПеч = "";
        КонецЕсли;

Если публикация оказалась вам полезной - не забудьте вернуться и поставить плюсик.