Типовая внешняя форма СФ 1137 от 1С не работает на старых релизах ТиС - возникают синтаксические ошибки.
Небольшой тюнинг позволил решить эту проблему. Скопируйте оба файла в PrnForms.
Что собственно сделано: Макет оставлен без изменения, в модуле правим:
1. Ошибка
Если Докум.ДатаДок >= глДатаПостановления451 <>Тогда
{C:\PROGRAM FILES\1CV77\АСК\EXTFORMS\PRNFORMS\SF1137.ERT(81)}: Переменная не определена (глДатаПостановления451)
Эта переменная отсутствует в старых релизах, по умолчанию, её значение 9 июня 2009, поэтому
Если Докум.ДатаДок >= '09.06.2009' Тогда
2. Ошибка
БратьСуммыИзУчета = глБратьСуммыИзУчета<>(Докум.ДатаДок, Докум.ДокОснование.КодОперации); {C:\PROGRAM FILES\1CV77\АСК\EXTFORMS\PRNFORMS\SF1137.ERT(336)}: Функция не обнаружена (глБратьСуммыИзУчета) БратьСуммыИзУчета = глБратьСуммыИзУчета<>(Докум.ДатаДок); {C:\PROGRAM FILES\1CV77\АСК\EXTFORMS\PRNFORMS\SF1137.ERT(338)}: Функция не обнаружена (глБратьСуммыИзУчета)
В строй конфе нет этой функции, соответственно можем закомментировать весь блок
//Если глЕстьРеквизитШапки("КодОперации", ВидОсн) = 1 Тогда
// БратьСуммыИзУчета = глБратьСуммыИзУчета(Докум.ДатаДок, Докум.ДокОснование.КодОперации);
//Иначе
// БратьСуммыИзУчета = глБратьСуммыИзУчета(Докум.ДатаДок);
//КонецЕсли;
//
//Если БратьСуммыИзУчета = 1 Тогда
// СкорректироватьТаблицуОснования(Докум, ТаблицаОснования, ВидОсн);
//КонецЕсли;
Или по Вашему желанию оставьте (в прилагаемом файле закомментировано
СкорректироватьТаблицуОснования(Докум, ТаблицаОснования, ВидОсн);
После этого у меня вышла ещё одна ошибка, связанная с отсутствием поля Предприниматель у СвоегоЮрЛица
Если Докум.Фирма.ЮрЛицо.ИндивидуальныйПредприниматель = 1 Тогда
{D:\BASE\CL\УХС_СКЛАД\EXTFORMS\PRNFORMS\1137_000_СЧЕТ-ФАКТУРА_ТИПОВАЯ.ERT(122)}: Поле агрегатного объекта не обнаружено (ИндивидуальныйПредприниматель)
Правим
// Индивидуальный предприниматель
//Если Докум.Фирма.ЮрЛицо.ИндивидуальныйПредприниматель = 1 Тогда
// Рекв.ДобавитьЗначение("", "РуководительРасшифровка");
// Рекв.ДобавитьЗначение("", "ГлБухгалтерРасшифровка");
// Рекв.ДобавитьЗначение(Шаблон("№ [Докум.Фирма.ЮрЛицо.СвидетельствоСерияНомер] от [Докум.Фирма.ЮрЛицо.СвидетельствоДатаВыдачи] г."), "ПредпринимательРеквизитыСвидетельства");
// Рекв.ДобавитьЗначение(Шаблон("/[Докум.Фирма.ЮрЛицо.Руководитель.Получить(Докум.ДатаДок)]/"),"ПредпринимательРасшифровка");
//Иначе
Рекв.ДобавитьЗначение(Шаблон("/[Докум.Фирма.ЮрЛицо.Руководитель.Получить(Докум.ДатаДок)]/"), "РуководительРасшифровка");
Рекв.ДобавитьЗначение(Шаблон("/[Докум.Фирма.ЮрЛицо.ГлБухгалтер.Получить(Докум.ДатаДок)]/"), "ГлБухгалтерРасшифровка");
Рекв.ДобавитьЗначение("","ПредпринимательРеквизитыСвидетельства");
Рекв.ДобавитьЗначение("","ПредпринимательРасшифровка");
//КонецЕсли;
Вступайте в нашу телеграмм-группу Инфостарт
