Штрих-код

[MasterLi]

Как вставить в форму или в отчёт штрих-код ?
Созданный, естественно, автоматически из определенных данных.

[mikekaganski]

На данный момент нет API для вставки встроенного объекта.

Есть расширение LibreOffice Barcode Extension, у которого есть ограниченный API.

[JBrown]

Есть вариант для Microsoft Office. (http://www.code128.narod.ru/). Статья от 2003 года. Давненько использовал макрос, описанный в ней, в OpenOffice.

Суть его в том, что заданная строка преобразуется в другую строку. Эту другую строку выводят специальным шрифтом. В итоге строка выглядит как настоящий штрих код. Такое решение вполне рабочее и возможно поможет Вам решить поставленную задачу.

[economist]

Расширение для OpenOffice|LibreOffice qrcodejs.oxt на JavaScript, работает в LO4-7, в т.ч. с кириллицей.
Вставка кода из выделенного текста легко записывается макрорекордером.

Другой путь - макрос на Python, к которому есть десятки библиотек по штрих-кодам.

[MasterLi]

В Calc работает.

К Base не могу никак ничего прикрутить ...

[MasterLi]

Другой путь - макрос на Python, к которому есть десятки библиотек по штрих-кодам.

Видимо, единственный путь ... только я в этом на шарю совсем.
Ещё, наверно, на JavaScript можно.

Только где их писать и как запустить ?

[economist]

Нужно больше инфы. Куда нужны коды в Base? "Формы" в Base - это не что иное как документы Writer с контролами (эл-ми управления) плавающими поверх его, связанные с полями БД. Расширение qrcodejs.oxt вставляет код и во Writer (Вставка - QRCodeJS...), значит будет доступно макросам в Base. Библиотека QRCodeJS видна по Alt+F11. Макросов для вставки изображений в позицию курсора, в закладку. в яч. таблицы - тут на Форуме пробегал десяток. На английском Форуме быть ODB-примеры с QR-кодом для карточек складского учета. 

[MasterLi]

Нужно больше инфы.

Label в виде штрих-кода. Принимает значение из текстового поля.

[economist]

Передайте значение из текстового поля в процедуру QRCodeJS/Main или напрямую присвойте его переменной sContent (я про расширение qrcodejs.oxt). Полученное изображение нужно разместить, но не как Label, а как Image.   

[MasterLi]

Передайте значение из текстового поля в процедуру QRCodeJS/Main или напрямую присвойте его переменной sContent (я про расширение qrcodejs.oxt). Полученное изображение нужно разместить, но не как Label, а как Image.

Можете наглядно показать ?

[economist]

Код ниже вставит QR код расширением.

Код Выделить Развернуть


If (Not GlobalScope.BasicLibraries.isLibraryLoaded("QRcodeJS")) Then
   GlobalScope.BasicLibraries.LoadLibrary("QRcodeJS")
End If
Call QRcodeJS.QRcodeJS.Main


Строку текста можно передать в глобальную переменную, а в тексте расширения, процедура Sub Main добавить ее здесь, вместо выделенной строки:

Код Выделить Развернуть


oSelect = GetSelection(oDoc) ' <-сюда


[MasterLi]

Всё равно не понял.

У меня есть текстовое поле, в нём несколько цифр.

Как выдернуть из поля эти цифры, погрузить их в переменную, а потом из это переменной сделать QR ?

[economist]

Для BASE я скорее всего напишу что-то несуразное (есть штатная мега-либа Acces2BASE в которой есть почти все что есть в Access VBA).

С "формами" в Base есть путаница, одно из объяснений тут: https://habr.com/ru/post/445304/ (полезны все 3 статейки)

А для Writer (Формы в BASE - это те же текстовые документы), это будет так:  

1. Вставляем текстовое поле и пишем макрос

Код Выделить Развернуть


Sub InsertQR
oForm =  ThisComponent.Drawpage.Forms.getByName("Форма")
qr_txt = oForm.getByName("Текстовое поле 1").Text
If (Not GlobalScope.BasicLibraries.isLibraryLoaded("QRcodeJS")) Then
   GlobalScope.BasicLibraries.LoadLibrary("QRcodeJS")
End If
Call QRcodeJS.QRcodeJS.Main(qr_txt)
End Sub


2. Правим начало модуля Main в расширении QRcodeJS

Код Выделить Развернуть


Sub Main(qr_txt) ' добавил параметр в ()
Dim oDoc as object
Dim sContent$, sPath$, sColor$, nSize
GlobalScope.BasicLibraries.LoadLibrary("Tools")

oDoc = ThisComponent

oSelect = qr_txt ' а было = GetSelection(oDoc)
       
       ' ниже без изменений



Получаем при запуске InsertQR, см. рис.