Счёт-фактура 2012 по форме пост. 1137 для "старой" ТиС 7.7 (делалась под релиз 932) с учетом ИП

Тестировал на двух разных базах при чем довольно сильно переработанных.

Отличительной особенностью здесь является реакция на счет-фактуры где не указана страна — ошибка не выдается а берется по-умолчанию Россия, так же идет проверка ИП это или нет по анализу того что вписано в реквизиты Главбуха — если там цифры — значит это свидетельство и выводим как ИП берем от туда свидетельство.

сам бланк был подредактирован в плане того, что когда фио предпринимателя длинные они не помещаются на строке — было отменено объединение ячеек — чтоб помещалось (это может не треоваться). свиду — все как в оригинале.

ниже вывод комманды diff в сравнении с текстом оригинала 1С — думаю тут все должно быть понятно:

80,87c80
<     
<     Если Докум.ДатаДок >= глДатаПостановления451 Тогда
<         Рекв.ДобавитьЗначение(Шаблон(«Продавец [Докум.Фирма.ЮрЛицо.ПолнНаименование]»), «Поставщик»);
<         
<     Иначе
<         Рекв.ДобавитьЗначение(Шаблон(«Продавец [Докум.Фирма.ЮрЛицо.ПолнНаименование]»), «Поставщик»);
<         
<     КонецЕсли;    
—
>     Рекв.ДобавитьЗначение(Шаблон(«Продавец [Докум.Фирма.ЮрЛицо.ПолнНаименование]»), «Поставщик»);
109,112c102,108
<     
<         // Индивидуальный предприниматель
<     Если Докум.Фирма.ЮрЛицо.ИндивидуальныйПредприниматель = 1 Тогда
<         Рекв.ДобавитьЗначение(«», «РуководительРасшифровка»);
—
>
>     ИП=0; //Если в главбухе нет цифр — значит это не перекривленная под ИП старая база
>     Для iИП=0 По 9 Цикл
>      ИП=ИП+Найти(Докум.Фирма.ЮрЛицо.ГлБухгалтер.Получить(Докум.ДатаДок),Формат(iИП,»N»));    
>     КонецЦикла;
>     Если (ИП > 0) Тогда
>         Рекв.ДобавитьЗначение(«», «РуководительРасшифровка»);
114,115c110,111
<         Рекв.ДобавитьЗначение(Шаблон(«№ [Докум.Фирма.ЮрЛицо.СвидетельствоСерияНомер] от [Докум.Фирма.ЮрЛицо.СвидетельствоДатаВыдачи] г.»), «ПредпринимательРеквизитыСвидетельства»);
<         Рекв.ДобавитьЗначение(Шаблон(«/[Докум.Фирма.ЮрЛицо.Руководитель.Получить(Докум.ДатаДок)]/»),»ПредпринимательРасшифровка»);
—
>         Рекв.ДобавитьЗначение(Шаблон(«/[Докум.Фирма.ЮрЛицо.Руководитель.Получить(Докум.ДатаДок)]/»),»ПредпринимательРасшифровка»);
>         Рекв.ДобавитьЗначение(Шаблон(«/[Докум.Фирма.ЮрЛицо.ГлБухгалтер.Получить(Докум.ДатаДок)]/»), «ПредпринимательРеквизитыСвидетельства»);
335,343c331,339
<     Если глЕстьРеквизитШапки(«КодОперации», ВидОсн) = 1 Тогда
<         БратьСуммыИзУчета = глБратьСуммыИзУчета(Докум.ДатаДок, Докум.ДокОснование.КодОперации);
<     Иначе
<         БратьСуммыИзУчета = глБратьСуммыИзУчета(Докум.ДатаДок);
<     КонецЕсли;
<     
<     Если БратьСуммыИзУчета = 1 Тогда
<         СкорректироватьТаблицуОснования(Докум, ТаблицаОснования, ВидОсн);
<     КонецЕсли;
—
> //    Если глЕстьРеквизитШапки(«КодОперации», ВидОсн) = 1 Тогда
> //        БратьСуммыИзУчета = глБратьСуммыИзУчета(Докум.ДатаДок, Докум.ДокОснование.КодОперации);
> //    Иначе
> //        БратьСуммыИзУчета = глБратьСуммыИзУчета(Докум.ДатаДок);
> //    КонецЕсли;
>     
> //    Если БратьСуммыИзУчета = 1 Тогда
> //        СкорректироватьТаблицуОснования(Докум, ТаблицаОснования, ВидОсн);
> //    КонецЕсли;
486c482,492
<             
—
>
>
>             //Добавим реакцию на отсутсвие страны — если нет — Россия (643)
>             Попытка
>                     СтранаН = РаспредГТД.Страна;
>                     СтранаК = РаспредГТД.Страна.Код;
>             Исключение
>                     СтранаН = «Россия»;
>                     СтранаК = «643»;
>             КонецПопытки;
>
497a504,508
>                 
>                 Если (МнЧ.СтранаН = «») И (МнЧ.СтранаК = «»)  Тогда
>                     МнЧ.СтранаН = СтранаН;
>                     МнЧ.СтранаК = СтранаК;
>                 КонецЕсли;
503,504c514,515
<                 МнЧ.СтранаН     = РаспредГТД.Страна;
<                 МнЧ.СтранаК     = РаспредГТД.Страна.Код;
—
>                 МнЧ.СтранаН     = СтранаН;
>                 МнЧ.СтранаК     = СтранаК;
524,525c535,536
<                     МнЧ.СтранаН     = РаспредГТД.Страна;
<                     МнЧ.СтранаК     = РаспредГТД.Страна.Код;
—
>                     МнЧ.СтранаН     = СтранаН;
>                     МнЧ.СтранаК     = СтранаК;

Кстати, порадую людей знакомых с Linux вышеуказанным текстом можно пропатчить оригинальный 1совый текст и получить подправленный.