Search options (Page 5 of 5)

Получилось подключиться к ККТ, вот пример подключения:

procedure Form1_OnShow (Sender: TObject; Action: string);
var
  Drv: Variant;
begin
  Drv:=CreateOleObject('Addin.DrvFR');
  Drv.ConnectionType := 6; // подключение через TCP socket
  Drv.ProtocolType := 0; // Стандартный протокол
  Drv.IPAddress := '192.168.137.111'; // IP адрес ККТ
  Drv.UseIPAddress := True; // Используем свойство IPAddress
  Drv.TCPPort := 7778; // TCP Порт ККТ
  Drv.Timeout := 5000; // Таймаут в мс
  Drv.Password := 30; // Пароль системного администратора
  if Drv.Connect <> 0 then showmessage('Not Connected((( ERR_MSG:'+inttostr(Drv.Connect)) else showmessage('Connected!!!');
  Drv.Beep; //гудок для сигнализации подключения
end;

Если бы в программе можно было провернуть такую штуку: CreateOleObject('Addin.DrvFR') программа заиграла бы совсем другими красками, появилась бы возможность написать полноценную кассовую программу.

А что конкретно интересует?
"Свой драйвер" это я, конечно, сильно сказал, планирую реализовать всего лишь одну функцию протокола ККТ v 2.0, для передачи строки символов для печати на ККТ.

Спасибо, Дмитрий, получилось!
А как можно также в массив получить данные из СОМ порта?

Понятно, спасибо. Буду ковырять СОМ порт...

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

1) Действительно, инструментов импорта в программе нет, придётся руками добавлять таблицы, формы и код в скрипт.
Только проверяйте, чтобы имена переменных не дублировались с Вашим кодом.
2) По второму вопросу, к сожалению, не посоветую ни чего. Я не программист, а такой же любитель...

Добрый день.

Задачу решил, проект прикрепил в первом сообщении, посмотрите, может есть какие-то замечания...

Спасибо!
То, что нужно.

Получилось воспроизвести пример в версии 1.45. Только заменил событие для кнопки "редактировать" (bEdit) на OnClick вместо OnAfterClick
Работает, но при нажатии на кнопку "редактировать" появляется окно с ошибкой.
---------------------------
Cannot make a visible window modal.
---------------------------
После закрытия окна с ошибкой вкладка переключается и запись доступна для редактирования.
https://yadi.sk/d/1ElIRd1MjmyFp

Спасибо за молниеносную поддержку.
Открыл Ваш пример в версии программы 1.52, кнопка "добавление" работает как надо, "сохранение" тоже, но кнопка "редактировать" не работает. При нажатии кнопки "редактировать" на вкладке "search" поля вкладки заполняются значениями выбранной для редактирования записи, переключение на вкладку "Create/Edit record" не происходит. И ещё заметил, что кнопке "bEdit" назначено 2 события - OnClick и OnAfterClick, но процедуры для события OnClick в скрипте нет. Это так задумано, или это из-за версии 1.52?