Имя: Пароль:
1C
1С v8
Колонтитулы с картинками
0 Emiliya_Emili
 
25.06.20
15:49
Как добавить в каждый колонтитул картинку?
В договоре на каждой странице надо проставлять подпись человека, но кодом ни как не получается (выводит различный текст).
1 Emiliya_Emili
 
25.06.20
15:50
Код колонтитула


    ТабДок.НижнийКолонтитул.Выводить = Истина;
    ТабДок.НижнийКолонтитул.НачальнаяСтраница = 1;
    ТабДок.НижнийКолонтитул.ВертикальноеПоложение = ВертикальноеПоложение.Центр;    
    ТабДок.НижнийКолонтитул.ТекстВЦентре= "[&НомерСтраницы]" + Символы.ПС + "КОНТРАКТ № " +  Объект.ДоговорКонтрагента.Номер + Символы.ПС + "От " + Формат(Объект.ДоговорКонтрагента.Дата,"ДЛФ=Д")+ "г.";
    ТабДок.НижнийКолонтитул.ТекстСлева=" «ПОСТАВЩИК» "+ Символы.ПС + Символы.ПС + Объект.Организация.ФайлПодписьРуководителя.ФайлХранилище.Получить() + "/"+ПечатнаяИнфа.СведенияОбОрганизации.РуководительФИО.Представление+"/";
    ТабДок.НижнийКолонтитул.ТекстСправа="«ПОКУПАТЕЛЬ»                         "+ Символы.ПС + Символы.ПС +"____________/"+?(ПечатнаяИнфа.СведенияОДоговоре.РуководительКонтрагента = "", "______________________" ,ФизическиеЛицаКлиентСервер.ФамилияИнициалы(ПечатнаяИнфа.СведенияОДоговоре.РуководительКонтрагента))+"/";
    ТабДок.РазмерКолонтитулаСнизу=30;
    ТабДок.ПолеСнизу=20;
2 Homer
 
25.06.20
16:29
я думаю тут надо через ворд делать, это более правильный вариант с точке зрения сложного текста.
3 Emiliya_Emili
 
25.06.20
16:40
Ворд не подходит так как на компьютере нет офисных программ
4 Homer
 
25.06.20
16:45
тогда считать вхождение текста на листке, и далее добавлять подвал на каждую страницу. Я тока такой способ знаю)
5 Emiliya_Emili
 
25.06.20
16:53
(4) этот способ сработает если у меня области могут растягиваться на 2-3 листа?
6 Вафель
 
25.06.20
16:53
делать не колонтитулом а обычной секцией
для этотго выводить пустые секции если нужно
7 Вафель
 
25.06.20
16:54
(5) придется переделать чтоб не было такого
8 Emiliya_Emili
 
25.06.20
16:58
то есть если у меня в макете 150 строк надо делать 150 областей?
9 Вафель
 
25.06.20
16:58
у тебя нет простого пути
10 KAO111
 
25.06.20
17:41
С 8.3.15 колонтитул может содержать форматированную строку. А ее можно создать на основании картинки.
11 Emiliya_Emili
 
26.06.20
07:33
(10)это позволит мне использовать и картинку и параметры, которые будут меняться от документа к документу?
12 Emiliya_Emili
 
26.06.20
08:32
в такой подстановке пока ничего не выводит
    КартинкаФорматированная= Новый ФорматированнаяСтрока(НСтр("ru = '<img src='ПодписьРуководителя'>'"));
13 Вафель
 
26.06.20
08:34
нужен адрес картинки, а не имя
14 Emiliya_Emili
 
26.06.20
08:53
КартинкаФорматированная= Новый ФорматированнаяСтрока(НСтр("ru = '<img src='БиблиотекаКартинок.ПодписьРуководителя'>'"));
        ТабДок.НижнийКолонтитул.ТекстСлева=" «ПОСТАВЩИК» "+ Символы.ПС + Символы.ПС + КартинкаФорматированная + "/";

КАРТИНКИ В КОЛОНТИТУЛЕ НЕТ
что не так делаю?
15 Emiliya_Emili
 
26.06.20
13:32
(10) как это сделать есть примеры?
16 Emiliya_Emili
 
26.06.20
13:33
Пробовала форматировать текст в колонтитуле, ничего не применилось
17 Мимохожий Однако
 
26.06.20
13:43
(16) Показывай как обгоняла, подрезала на асфальтовом катке
18 Emiliya_Emili
 
26.06.20
13:48
ЧастиСтроки = Новый Массив;
ЧастиСтроки.Добавить(Новый ФорматированнаяСтрока("сделай что-нибудь", Новый Шрифт("Consolas"),, Новый Цвет(234, 245, 255)));
    ЧастиСтроки.Добавить(Новый ФорматированнаяСтрока(НСтр("ru = 'Задача <span style=""background-color: #eaf5ff; font-family: consolas"">сделай что-нибудь</span> назначена исполнителю <span style=""font-family: consolas; color: ЛососьСветлый"">[email protected]</span>'")));
ТабДок.НижнийКолонтитул.ТекстСлева=Новый ФорматированнаяСтрока(ЧастиСтроки);
19 Мимохожий Однако
 
26.06.20
13:49
(18) А если сделать отдельную область вне колонтитула, эта область показывается как надо?
20 Emiliya_Emili
 
26.06.20
14:06
(19) проверила и оформление и там не применяется
21 Мимохожий Однако
 
26.06.20
14:18
Может быть, вставить объект Текст на табличном документе и в этом объекте вставить форматированную строку?
22 Emiliya_Emili
 
26.06.20
14:19
(21) то есть в сам макет применить?
23 Emiliya_Emili
 
26.06.20
14:22
(21) к макету точно не применяется
24 KAO111
 
26.06.20
14:23
В демо базе 1С пример такой:

    ФорматированнаяСтрокаМассив = Новый Массив;
    ФорматированнаяСтрокаМассив.Добавить(Новый ФорматированнаяСтрока(Документ.Организация.Наименование, Новый Шрифт("Courier", 20, Истина)));
    ФорматированнаяСтрокаМассив.Добавить(Символы.ПС);
    ФорматированнаяСтрокаМассив.Добавить(Формат(Год(ТекущаяДата()), "ЧГ=") + " год");
    
    ТабличныйДокумент.ВерхнийКолонтитул.ТекстВЦентре = Новый ФорматированнаяСтрока(ФорматированнаяСтрокаМассив);
    ТабличныйДокумент.ВерхнийКолонтитул.ТекстСлева = Новый ФорматированнаяСтрока(БиблиотекаКартинок.КОЛ_Логотип);
    ТабличныйДокумент.ВерхнийКолонтитул.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
    ТабличныйДокумент.ВерхнийКолонтитул.Выводить = Истина;
25 Emiliya_Emili
 
26.06.20
14:30
(24) колонтитул вывел, а вот оформление и картинку проигнорировал https://ibb.co/KD18Qxf
    ФорматированнаяСтрокаМассив = Новый Массив;
    ФорматированнаяСтрокаМассив.Добавить(Новый ФорматированнаяСтрока(Объект.ДоговорКонтрагента.Номер, Новый Шрифт("Courier", 20, Истина)));
    ФорматированнаяСтрокаМассив.Добавить(Символы.ПС);
    ФорматированнаяСтрокаМассив.Добавить(Формат(Год(ТекущаяДата()), "ЧГ=") + " год");
    
    ТабДок.ВерхнийКолонтитул.ТекстВЦентре = Новый ФорматированнаяСтрока(ФорматированнаяСтрокаМассив);
    ТабДок.ВерхнийКолонтитул.ТекстСлева = Новый ФорматированнаяСтрока(БиблиотекаКартинок.ПодписьРуководителя);
    ТабДок.ВерхнийКолонтитул.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
    ТабДок.ВерхнийКолонтитул.Выводить = Истина;
26 KAO111
 
26.06.20
14:34
Смотрю описание ФорматированнаяСтрока: Картинка должна содержаться в объекте БиблиотекаКартинок.
Нужно расширение делать, чтобы сработало.
27 Emiliya_Emili
 
26.06.20
14:35
(26) можно поподробнее?
28 KAO111
 
26.06.20
14:35
>   ТабДок.ВерхнийКолонтитул.ТекстСлева = Новый ФорматированнаяСтрока(БиблиотекаКартинок.ПодписьРуководителя);
Уже вставлено в конфигурацию?
29 Emiliya_Emili
 
26.06.20
14:37
картинка ПодписьРуководителя загружена в общие картинки
30 KAO111
 
26.06.20
14:48
Из демобазы картинка распечаталась
31 KAO111
 
26.06.20
14:49
С 8.3.15 работает
32 Emiliya_Emili
 
26.06.20
15:00
у меня платформа 8.3.16
33 KAO111
 
26.06.20
15:04
Может совместимость конфигурации важна. Я только из демо распечатал, все вывелось.
34 Emiliya_Emili
 
26.06.20
15:13
а режим совместимости в свойствах конфигурации какой?
35 KAO111
 
26.06.20
15:25
8.3.16
36 Emiliya_Emili
 
29.06.20
07:43
(35) а какая демо база у вас? и какая версия платформы и конфигурации?
37 KAO111
 
29.06.20
08:54
Я тупо скачал демо с releases.1c.ru для 16 платформы. Там есть расширение "колонтитулы".
38 Emiliya_Emili
 
29.06.20
09:08
(37) зашла на сайта и нашла только web-расширение, расширение для карманных пк, колонтитулов нету
39 KAO111
 
29.06.20
09:41
Вот зашел на https://releases.1c.ru/version_files?nick=Platform83&ver=8.3.16.1502

Внизу есть "Демонстрационная информационная база (файл DT)", если ее установить, в ней есть расширение.
40 KAO111
 
29.06.20
09:45
Конечно, расширений сейчас развелось много.
41 Emiliya_Emili
 
29.06.20
14:09
(39) расширение нашла, сделала в своей базе также через расширение, но все так же текст выводит, а оформления нету и картинки тоже, в чем еще может быть ошибка?
42 KAO111
 
29.06.20
15:22
А у конфигурации какой режим совместимости?
43 Emiliya_Emili
 
29.06.20
16:22
8.3.14
44 KAO111
 
30.06.20
07:47
Я боюсь, что из-за этого
45 Emiliya_Emili
 
30.06.20
07:58
(44) проверила и правда из-за этого, это можно как то обойти? если я отключаю режим совместимости в рабочей базе, то вся база летит
46 KAO111
 
30.06.20
09:35
В порядке бреда только:
Поднимаем http или web сервис с небольшой конфой на последней платформе.
Передам туда табличный документ
Добавляем колонтитулы
Возвращаем pdf или xlsx файл, или используем новую возможность встраивания веб-клиента в сторонние сайты
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс