Счет на оплату для Бухгалтерии со сменными логотипами
Учетные задачи - Печатные формы
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Счет с логотипом организации (внешняя печатная форма)
Описание: Счет на оплату (Внешняя печатная форма для документа Счет) 1С Бухгалтерия 8.2 релиз 2.0.27.10 на платформе 8.2.14.524. При выставлении счета для каждой организации выбирается свой логотип.
_______________________________________________________________________________________________________________________
ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокСчета");
НашРис = ОбластьМакета.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
НашРис.Имя = "НашаЭмблема";
НашРис.Верх = 6;
НашРис.Лево = 103;
НашРис.Ширина = 78;
НашРис.Высота = 27;
НашРис.ГраницаСлева = Ложь;
НашРис.ГраницаСправа = Ложь;;
НашРис.ГраницаСверху = Ложь;
НашРис.ГраницаСнизу = Ложь;
НашРис.ЦветФона = Новый Цвет;
НашРис.Защита = Истина;
НашРис.ВыводитьНаПечать=Истина;
НомерЛогоТипа = УдалитьПовторяющиесяСимволы(СокрЛП(СсылкаНаОбъект.Организация.Код), "0");
Если Число(НомерЛогоТипа) < 10 Тогда
ИмяЛоготипа = "Лого0"+ НомерЛогоТипа;
НашРис.Картинка = Новый Картинка(ПолучитьМакет(ИмяЛоготипа));
Макет.рисунки.D2.Картинка = НашРис.Картинка;
КонецЕсли;
ОбластьМакета.Параметры.Заполнить(Шапка);
Вступайте в нашу телеграмм-группу Инфостарт
