Новые налоговые 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 Тогда
Копия = "Х";
Оригинал = "";
ТипПричиныПеч = "";
ЕРПН = "";
ОстаетсяПеч = "";
КонецЕсли;
Если публикация оказалась вам полезной - не забудьте вернуться и поставить плюсик.
