Привет, всем!
В Reporte созданом без шаблонов, нужно всавить штрих-код, есть библиотека Taboga! Если Report сождаётся мастером то проблем нет, а как достучатся до неё из Source.
Как Source-процедуре использовать Template
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- Олег
- Ветеран движения
- Сообщения: 122
- Зарегистрирован: 16 Июль 2005, 2:35
- Откуда: Москва
- Контактная информация:
Код: Выделить всё
INCLUDE('BARCODE.INC')
...
Report REPORT('Накладная'),...
Header DETAIL,AT(...),USE(?Header)
STRING('Barcode'),AT(...),USE(?TBarcode),CENTER
END
END
TBarcode BarcodeClass
RPT:BarCodeType BYTE
RPT:BarCodeValue STRING(50)
Code
...
RPT:BarCodeValue = Docs::GetBarCode(...)
RPT:BarCodeType = BARCODE:CODE128C
...
Open(Report)
...
TBarcode.Init(Report,?TBarcode,?Header)
TBarcode.DrawText = 0
TBarcode.Draw(RPT:BarCodeValue,RPT:BarCodeType)
...
TBarcode.Kill
...
Close(Report)
Если необходимы дополнительные настройки - они задаются ПОСЛЕ строки TBarcode.Init.
RPT:BarCodeValue содержит значение штрих-кода. В переменной RPT:BarCodeType задается тип штрих-кода, мнемонические имена которых заданы в начале файла BARCODE.INC (BARCODE:CODE39, BARCODE:CODE128C и пр.)