[хакерок]

Хочу реализовать печать этикеток для товар ...оказалось не всё просто.


Для примера допустим у нас есть товар с штих-кодом 22332232223.

Создал макет "МакетНаклейки" в который в область "Детали" разместил "Элемент управления 1С: Печать штрихкодов".

Для того чтобы код товара выглядил в виде штрих-кода нужно этому Элемнту управления пердеть картинку на которой будет штрих-код.

       
       ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

       ОбластьДетальныхЗаписей.Рисунки.D1.Картинка =  ????ПолучитьКартинкуШтрихкода(?????;

Тоесть вопрос в том как из числа 22332232223 получить Двоичные данные картинки чтобы пердать в макет.

Может кто-то уже сталкивался с задачей?

По этой задаче нашол только вот [необходимо зарегистрироваться для просмотра ссылки]

[Petre]

Для того чтобы код товара выглядил в виде штрих-кода нужно этому Элемнту управления пердеть картинку на которой будет штрих-код.

Впервые слышу...
Может:

ОбластьДетальныхЗаписей.Рисунки.D1.Объект.Сообщение = "22332232223"

[хакерок]

Впервые слышу...
Может:

ОбластьДетальныхЗаписей.Рисунки.D1.Объект.Сообщение = "22332232223"

Так ничего не заработает. В управляемом приложении ОбластьДетальныхЗаписей.Рисунки.D1.Объект вообще не доступен (он доступен в толстом клиенте)

[Ardi]

Есть вроде конфа розница на управляемых формах. Там должно быть.

[logist]

"Элемент управления 1С: Печать штрихкодов".

Данный механизм не работает в управляемом интерфейсе.

Ищите: Внешняя компонента "КомпонентаПечатиШтрихкодов", она встраивается в 1С при помощи общих макетов.

[Petre]

В управляемом приложении...

Семен Семеныч! Не обратил внимание...

Тоесть вопрос в том как из числа 22332232223 получить Двоичные данные картинки чтобы пердать в макет.

Там же, в приведенной Вами ссылке, все расписано.

[ignsv]

делал не давно такое. за основу взял УТ 3.0

1. выполняем подключение компоненты там функция взять от туда код

 
ВнешняяКомпонента = Обработки.ОбработкаГдеХранитсяКомпонента.ПодключитьВнешнююКомпонентуПечатиШтрихк
ода()

( в обработке в макете лежит компонента)

2, Преобразовать Свой уникальный код в ШК
наподобе

ШестнадчатиричноеЧисло = СтрЗаменить(Строка(Ссылка.УникальныйИдентификатор()),"-","");
    Возврат ПреобразоватьИзШестнадцатиричнойСистемыСчисленияВДесятичноеЧисло(ШестнадчатиричноеЧисло);

3. передать ШК в компоненту которая и сформирует картинку
наподобе:

ВнешняяКомпонента.ЗначениеКода = Штрихкод;
    
// Сформируем картинку
ДвоичныеДанныеКартинки = ВнешняяКомпонента.ПолучитьШтрихкод();
    
// Если картинка сформировалась
Если ДвоичныеДанныеКартинки <> Неопределено Тогда
    // Формируем из двоичных данных
    ОбластьМакета.Рисунки.КартинкаШтрихкода.Картинка = Новый Картинка(ДвоичныеДанныеКартинки);
КонецЕсли;

з.ы. компоненты лежат в УТ 3.0 в обработке печать ценников и этикеток

как то так

Сообщение отредактировал ignsv - 15.08.13, 12:37

[хакерок]

Семен Семеныч! Не обратил внимание...


Там же, в приведенной Вами ссылке, все расписано.

В моей ссылке рассматривается пример где человек использует типовое решение.

И самая сложная чать а имено предалка цифр в картинку ложиться на встроенный в типовой механизм кусок софта.

У меня же конфигурация написана с нуля и в ней нужно реализовать печать.

2, Преобразовать Свой уникальный код в ШКнаподобеШестнадчатиричноеЧисло = СтрЗаменить(Строка(Ссылка.УникальныйИдентификатор()),"-","");
    Возврат ПреобразоватьИзШестнадцатиричнойСистемыСчисленияВДесятичноеЧисло(Шестнадчатиричн
оеЧисло);

Для программы на Delphi я эту задачу решил довольно быстро. И у меня на этикетках код товара печатает жирным сверху например 1203 и внизу этому же коду печатает штрих код 1203.

Так вод вопрос Внешней компаненте можно предавать код 1203 ?

Судя по названию функции ПреобразоватьИзШестнадцатиричнойСистемыСчисленияВДесятичноеЧисло(Шестнадчатиричн
оеЧисло)

если у меня есть готовое число которое должно быть внизу штрихкода ничего с этим кодом делать не надо . Логично?

2, Преобразовать Свой уникальный код в ШКнаподобеШестнадчатиричноеЧисло = СтрЗаменить(Строка(Ссылка.УникальныйИдентификатор()),"-","");
    Возврат ПреобразоватьИзШестнадцатиричнойСистемыСчисленияВДесятичноеЧисло(Шестнадчатиричн
оеЧисло);

Заранее спасибо

Для программы на Delphi я эту задачу решил довольно быстро. И у меня на этикетках код товара печатает жирным сверху например 1203 и внизу этому же коду печатает штрих код 1203.

Так вод вопрос Внешней компаненте можно предавать код 1203 ?

Судя по названию функции ПреобразоватьИзШестнадцатиричнойСистемыСчисленияВДесятичноеЧисло(Шестнадчатиричн
оеЧисло)

если у меня есть готовое число которое должно быть внизу штрихкода ничего с этим кодом делать не надо . Логично?

[logist]

Тоесть вопрос в том как из числа 22332232223 получить Двоичные данные картинки чтобы пердать в макет.

По вашей ссылке есть функция которая возвращает картинку

Функция ПолучитьКартинкуШтрихкода(ВнешняяКомпонента, Штрихкод, Ширина, Высота)

Передаете в нее подключенную компоненту, сам штрихкод, ширина, и высота картинки? Что конкретно не понятно?

если у меня есть готовое число которое должно быть внизу штрихкода ничего с этим кодом делать не надо

Не надо. Передается просто число

[asd34]

... пердеть картинку на которой будет штрих-код.

[хакерок]

з.ы. компоненты лежат в УТ 3.0 в обработке печать ценников и этикеток

как то так

Спасибо большое хотя бы уже чтото начинает проясняться

[хакерок]

3. передать ШК в компоненту которая и сформирует картинкунаподобе: ВнешняяКомпонента.ЗначениеКода = Штрихкод;
    
// Сформируем картинку
ДвоичныеДанныеКартинки = ВнешняяКомпонента.ПолучитьШтрихкод();
    
// Если картинка сформировалась
Если ДвоичныеДанныеКартинки <> Неопределено Тогда
    // Формируем из двоичных данных
 ОбластьМакета.Рисунки.КартинкаШтрихкода.Картинка = Новый Картинка(ДвоичныеДанныеКартинки);
КонецЕсли;з.ы. компоненты лежат в УТ 3.0 в обработке печать ценников и этикеток

!

Правила, п.13

Ещё раз благодарю за помошь

Этикетка уже печатаеться на обычном принтере и считываеться сканером ... но на принтере этикеток пока не печатет (чистая этикетка )

Сообщение отредактировал logist - 27.08.13, 9:38

[Ardi]

но на принтере этикеток пока не печатет (чистая этикетка )

Если из блокнота отправить на принтер этикеток пару букв - печатает?

[хакерок]

Если из блокнота отправить на принтер этикеток пару букв - печатает?

Печатает но естествено не так как выглядет на экране.

приятель сказал что УТ3.0 есть кусок кода который прежде чем происходит печать считывает из принтера его праметры печати.
где это закопано вопрос.

[logist]

приятель сказал

А что ж приятель не сказал где этот кусок кода? А если не знает где, откуда он знает, что он есть?

[Vofka]

приятель сказал что УТ3.0 есть кусок кода который прежде чем происходит печать считывает из принтера его праметры печати.

А у приятеля спросить нельзя?