Имя: Пароль:
1C
1С v8
Печать Штрих-Кода (управляемое приложение)
0 poskotinov_av
 
17.08.17
17:18
Здравствуйте, подскажите как вывести на печать штрих-код в макете на клиенте, если шрифт, которым формируем изображение - только на сервере?
1 Heckfy
 
17.08.17
17:19
Формируй весь табличный документ на сервере и потом передавай на клиента.
2 poskotinov_av
 
17.08.17
17:32
Можно пример?
3 poskotinov_av
 
17.08.17
17:36
сейчас это выглядит так:

на клиенте:

    ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
    Рисунок = ОбластьДетальныхЗаписей.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Текст);
    Рисунок.Верх = 10;
    Рисунок.Лево = 10;
    Рисунок.Ширина = 300;
    Рисунок.Высота = 20;
    Рисунок.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
    Рисунок.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
    
    ОбщийМодульСервер.СгенеритьШК(Рисунок, "6546546846");

&НаСервере
Функция СгенеритьШК(Рисунок, ТекстШК) экспорт
    Рисунок.Шрифт = Новый Шрифт ("Code39",20,Истина);                 Рисунок.Текст = ТекстШК;
КонецФункции


так вот на клиенте не отображается шрифт...
4 poskotinov_av
 
17.08.17
17:37
видимо надо сгенерить картинку на сервере, передать ее клиенту, чтобы тот сам ее в макет вставил... как это сделать?
5 Heckfy
 
17.08.17
17:41
Каша малаша какая то......
6 poskotinov_av
 
17.08.17
18:01
(5) ну мне это особо не помогло в решении поставленной задачи, есть еще варианты?
7 Heckfy
 
17.08.17
18:06
Не понятно, как вы макет на клиенте получили.... Ну да ладно...

"
видимо надо сгенерить картинку на сервере, передать ее клиенту, чтобы тот сам ее в макет вставил... как это сделать?
"
Подозреваю, что как то так:


    ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
    Рисунок = ОбластьДетальныхЗаписей.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Текст);
    Рисунок.Верх = 10;
    Рисунок.Лево = 10;
    Рисунок.Ширина = 300;
    Рисунок.Высота = 20;
    Рисунок.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
    Рисунок.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
    
    Рисунок=ОбщийМодульСервер.СгенеритьШК(Рисунок, "6546546846");

&НаСервере
Функция СгенеритьШК(Рисунок, ТекстШК) экспорт
    Рисунок.Шрифт = Новый Шрифт ("Code39",20,Истина);                 Рисунок.Текст = ТекстШК;
Возврат Рисунок;
КонецФункции
8 poskotinov_av
 
17.08.17
19:40
(7) таким образом клиент его рисует своим (отсутствующим) шрифтом
Программист всегда исправляет последнюю ошибку.