forum.clarionlife.net

Ну так круто. Осталось понять еще, зачем это может быть нужно в практических задачах. Ну, например, лет 15 назад делал шифрование и ЭЦП передаваемых файлов в ЦБ РФ. Банку был нужен именно КриптоАрм. OK ! Сделал за час, через запуск внешних VBS скриптов по примерам. До сих пор работает. :) И таких г...

Надо было убрать возможность для ОС управлять принтерами. Статья очень правильная и наверно полезная. Но это ведь лайфхак по Windows 10 для домохозяек. ;) Как программист, Вы можете легко в программе устанавливать и переключать печать на нужный принтер, не зависимо от версии Windows и того является...

RaFaeL писал(а): ↑

14 Январь 2020, 14:20

Версия 1.3.0 от 14.01.2019 на основе библиотеки 0.9.3

С Новым годом !

Дед Пахом писал(а): ↑

13 Январь 2020, 23:46

SetInt PROCEDURE(LONG pHandle, LONG pValue)
thisGrp &TGroup
CODE
thisGrp &= (pHandle)
thisGrp.i = pValue

Спасибо ! Это очень красивое решение вопроса.
Всё работает, теперь пошла рутина - наполнение класса методами и т.д.

Дед Пахом писал(а): ↑

13 Январь 2020, 23:09

my_symbol->input_mode = UNICODE_MODE

Так вот и я о том же …

Полностью согласен, возможно я чего-то изначально не понимаю … :( Потрошу библиотеку ZINT: https://sourceforge.net/projects/zint/ Да, есть внутренняя структура и я получаю её адрес из DLL и есть методы в DLL, которые выполняют операции и в них передаётся адрес структуры. Но перед вызовом методов, ну...

Еще как вариант можно попробовать декларировать группу внутри clw без type Можно. Но по сути это получится просто объявление в Global … со всеми вытекающими последствиями. ;) А ещё можно пойти на изврат и обмануть компилятор там, где он этого меньше всего ожидал … ;) TGroup Group,Type Number Long P...

А что такое "скрипта" ? Кто его запустил, где и зачем ?
В первом вопросе о нём ничего не было сказано ...

и кто мешает в DLL передать ADDRESS(Self.MyGroup) Именно так далее работа и идёт с группой по адресу … но ! Сначала ведь надо инициализировать эту структуру данных получив её адрес ИЗ DLL … Self.MyGroup &= ZBarcode_Create() ! Вот здесь проблемка-с ... If ~(Self.MyGroupl &= NULL) ZBarcode_Encode(Add...

Объявите LIKE(TGroup) в классе, и проблем не будет: Уже пробовал - не работает. :( Мне нужен именно адрес структуры данных, потому что работа с ней идёт через функции в DLL на VC6: Self.MyGroup &= ZBarcode_Create() If ~(Self.MyGroupl &= NULL) then Self.FlagLoad = True. Если без класса, то всё прекр...

Всё было хорошо, пока не появились классы … :( Нужно, что бы в классе была ссылка на GROUP заданной структуры. TGroup Group,Type Number Long Phone CString(121) end TClass Class, Type, Module('XXX.clw'), Link('XXX.clw') MyGroup &TGroup ! <--- ОШИБКА: НЕВЕРНЫЙ ТИП ДАННЫХ FlagLoad Byte(False) end Это м...

Admin писал(а): ↑

13 Январь 2020, 10:30

Мы не производим товар

Производство (импорт) товаров, закупка маркеров и их нанесение на продукцию - это отдельная тема.
В файле сведения о требовании ФНС РФ при реализации маркированных товаров с использованием фискальной техники …

В "Честном Знаке" - это как бы описание концепта процесса маркировки товаров.
А конкретные требования ФНС РФ по её реализации - в присоединённом файле (см. последние 5 страниц).

Ну уже на полном серьёзе, наши занятые работой депутаты предлагали ввести обязательную маркировку домашних животных. Поймал Шарика или Барсика на улице, считал Data Matrix с уха и сразу тебе в смартфоне: кличка, прививки, кто хозяин, где живёт, заплатил ли он НДФЛ, коммуналку и алименты и т.д. Красо...

Если у Вас уже есть отчёт и Вы хотите его сразу распечатать на текущий принтер -
просто отключите предварительный просмотр в окне настройки отчёта (см. рисунок)