FreePascal.ru

Я rx ставил из сетевого диспетчера пакетов, думал, что он имеет всегда самую свежую версию компонента. Удалил сетевой, поставил lazarus-ccr-svn-r7986. И ошибка пропала. Спасибо большое Алексей.

Странно.
Пользовался Lazarus 2.0.10 63526 FPC 3.2.0 - ошибка.
Поставил Lazarus 2.0.12 64642 FPC 3.2.0 - ошибка.
Затем поставил lazarus-2.1.0-62815-fpc-3.2.0rc1-44237-win32 та же ошибка.
Проверял на win10x64, win7x64.
Firebird-2.5.9.27139_0_Win32
Сборки, как у Вас не нашел.

Всем добрый день.
Возникла проблема при использовании Footer с базой на Firebird 2.5 в RxDBGrid при включенном fvtSum. Подключение через IBConnection. При отображении двух и более строк все нормально суммируется, но когда остается одна строка сразу вылетает ошибка. С базой на SQLlite3 суммировалось ...

Спасибо за помощь.
YaroslavSh , а если так:
RxDBGrid1.Canvas.FillRect(0,1,Width,Height-2); - это неверно.

var
P: TSize;
begin
P:=Rect.Size;
P.cy:=P.cy - 1;
P.cx:=P.cx - 1;
Rect.Size:=P;

if RxDBGrid1.DataSource.DataSet.FieldByName('kolvo ...

Я много вариантов пробовал, но либо не рисует совсем, либо просто без изменений
По идеи, должно быть:
fillRect(X1,Y1,X2,Y2: Integer)

RxDBGrid1.Canvas.FillRect(0,0,Width,Height-1);

Спасибо, написал там.

Добрый день.
procedure TForm3.RxDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if RxDBGrid1&#46;DataSource&#46;DataSet&#46;FieldByName('kolvo')&#46;AsFloat<=0 then begin
with RxDBGrid1&#46;Canvas ...

Добрый день. Чтоб не плодить темы, спрошу тут.


procedure TForm3&#46;RxDBGrid1DrawColumnCell(Sender&#58; TObject; const Rect&#58; TRect;
DataCol&#58; Integer; Column&#58; TColumn; State&#58; TGridDrawState);
begin
if RxDBGrid1&#46;DataSource&#46;DataSet&#46;FieldByName('kolvo')&#46;AsFloat<=0 ...

Код рабочий - у меня это в работе с июля (обувь). Сейчас шины и текстиль - тоже полёт нормальный.
Проверяю по честному знаку. Он чеки видит и отображает выведенные КИЗы.

Не могу понять:
S1:=Copy(S22, 3, 14); - 02900000377578 понятно;
S2:=Copy(S22, 18, 13); - 1-tmIXrkglsKf, а должно же быть ...

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

S1:=Copy(S22, 3, 14);
S2:=Copy(S22, 18, 13); тут по идеи с 19 символа нужно читать.
B2:=MakeCRPTCode($444D, S1, S2);

я сейчас работаю с обувью - полёт нормальный
в ближайшее время будут шины и спец одежда

я использую напрямую API - не через json

В приведённом примере
Должна быть команда curl -F ''xml_file=@client.xml'' m
как я понял - передаётся xml файл локальный - а там по путям оно находится?

Да, xml ...

Доработка - добавил поодержку работы с кодами маркировки
Прямое заполнение тэга 1162 через новую структуру - GoodsNomenclatureCode
Добрый день всем участникам и в частности alexs. Я вижу, что Вы продолжаете дописывать кассовое ПО для АТОЛ. Не реализовывали ли Вы работу с ЕГАИС через свое ...

Проблема наблюдается при хитрых условиях:
в опциях включены dgThumbTracking и dgRowSelect - как временное решение можно просто пока выключить эти флаги.

Проблема находится в штатном DBGrid и даже в StringGrid (хотя тут не так ярко выражена).
Напиши в багтрекер лазаря. Что-то там с событиями ...

Добрый день. Подскажите, пожалуйста, где хранится текст поиска по компоненту, который ввел пользователь? Надо чтоб его можно было очистить или изменить програмно.