Счёт-фактура 2012 по форме пост. 1137 для "старой" ТиС 7.7 (делалась под релиз 932) с учетом ИП
Учетные задачи - Печатные формы
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Тестировал на двух разных базах при чем довольно сильно переработанных.
Отличительной особенностью здесь является реакция на счет-фактуры где не указана страна - ошибка не выдается а берется по-умолчанию Россия, так же идет проверка ИП это или нет по анализу того что вписано в реквизиты Главбуха - если там цифры - значит это свидетельство и выводим как ИП берем от туда свидетельство.
сам бланк был подредактирован в плане того, что когда фио предпринимателя длинные они не помещаются на строке - было отменено объединение ячеек - чтоб помещалось (это может не треоваться). свиду - все как в оригинале.
ниже вывод комманды 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совый текст и получить подправленный.
Вступайте в нашу телеграмм-группу Инфостарт
