Как Source-процедуре использовать Template

vetal

Привет, всем!

В Reporte созданом без шаблонов, нужно всавить штрих-код, есть библиотека Taboga! Если Report сождаётся мастером то проблем нет, а как достучатся до неё из Source.

Олег

Код: Выделить всё

  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)

Отдельно подключать эту либу уже не надо - это будет сделано автоматически при обработке компилятором файла BARCODE.INC
Если необходимы дополнительные настройки - они задаются ПОСЛЕ строки TBarcode.Init.
RPT:BarCodeValue содержит значение штрих-кода. В переменной RPT:BarCodeType задается тип штрих-кода, мнемонические имена которых заданы в начале файла BARCODE.INC (BARCODE:CODE39, BARCODE:CODE128C и пр.)

vetal

Спасибо, за доходчивый ответ!