я знаю, что вертуальная таблица существует пока есть сеанс .. вот только про записи в таблицу не знаю, удоляется ли запись сеанса при завершении сеанса или остается в базе пока последняя программа не завершит сеанс..
Мне это нужно на случай неожиданного завершения сеанса...
1,626 2018-08-27 08:25:01
Re: временная таблица (8 replies, posted in Russian)
1,627 2018-08-26 17:55:04
Topic: временная таблица (8 replies, posted in Russian)
Дмитрий можно - ли через кнопку SQL запрос создать глобальную временную таблицу
##временная таблица
к чему:
я хочу сделать подобие не большого сервера
временная таблица будет создаваться на стороне (сервера)
когда пользователь авторизуется в приложении то оно создает временную запись в этой таблице о пользователе, когда пользователь завершает сеанс то запись удаляется.
и еще Вопрос про MySQL
если сделать подключение через скрипт, программа сама создаст в базе таблицы или их тоже нужно скриптом создать?
1,628 2018-08-26 17:51:25
Topic: временная таблица (0 replies, posted in Russian)
Дмитрий можно - ли через кнопку SQL создать глобальную временную таблицу
##временная таблица
к чему:
я хочу сделать подобие не большого сервера
временаая таблица будет создаваться на стороне (сервера)
когда ползователь авторизуется в приложении то оно создает временную запись в этой таблице о пользователе, когда пользователь завершает сессию то запись удаляется.
b djghjc ghj
1,629 2018-08-22 18:56:03
Re: цвет по условию (5 replies, posted in Russian)
я не такой привел пример, я хотел, именно в переменной sColor передавать цвет.... Цвет будет выбираться через ChekBoks
тьфу опять не так..... спишу )))) через ComboBox
1,630 2018-08-22 16:54:36
Re: цвет по условию (5 replies, posted in Russian)
я не такой привел пример, я хотел, именно в переменной sColor передавать цвет.... Цвет будет выбираться через ChekBoks
1,631 2018-08-22 12:37:08
Re: Подключение периферийных устройств через драйвер (25 replies, posted in Russian)
Получилось подключиться к ККТ, вот пример подключения:
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;
Вам удалось респечатать чек?
1,632 2018-08-22 11:10:07
Topic: цвет по условию (5 replies, posted in Russian)
procedure Form1_OnShow (Sender: TObject; Action: string);
var
sColor: string = SQLExecute('SELECT yesNo FROM one WHERE id=1');
begin
if (sColor ='0' ) then Begin sColor:= 'clBlack'; end else sColor:= 'clGreen';
Form1.TableGrid1.Color := sColor;
end;
что не так?
такой вариант не нужен
procedure Form1_OnShow (Sender: TObject; Action: string);
var
sColor: string = SQLExecute('SELECT yesNo FROM one WHERE id=1');
begin
if (sColor ='0' ) then Begin Form1.TableGrid1.Color := clBlack; end else Form1.TableGrid1.Color := clGreen;
end;
1,633 2018-08-20 09:47:56
Re: Подключение периферийных устройств через драйвер (25 replies, posted in Russian)
вот примеры для драйвера ШТРИХ-М
1,634 2018-08-20 09:05:03
Re: Подключение периферийных устройств через драйвер (25 replies, posted in Russian)
производители ккм убивают мня! Эмуляторов нет и не предвидется, для отладки поключения отправляют в магазин за кассой
У вас есть ШТРИХ-М?
1,635 2018-08-19 02:19:45
Re: Онлайн кассы (5 replies, posted in Russian)
Пролистав много текста выяснил..
1. кассы те же, только с фискальным накопителем
2. Создавать костыль к оператору фискальных данных потребуется только если касса была выпущенна сразу после Великой Октябрьской Революции
3. Онлайн кассы как правило уже имеют все нужные настройки ибо продают их те же операторы фискальных данных
4. Что бы подключить свое ПО к онлайн кассе нужен ее драйвер (как правило dll) и описание от производителя, в противном случае нужны шаманские танцы с бубном.
Дмитрий, MVD может работать с dll?
1,636 2018-08-17 15:23:03
Re: получить значение chekbox (4 replies, posted in Russian)
В общем дело так ...
sLite: string; перенес в глобальные
но
sLite := SQLExecute('SELECT SETTING.LiteServer.yesNo FROM SETTING.LiteServer WHERE id=1');
как я понимаю придется в каждой процедуре записывать
1,637 2018-08-17 14:24:33
Re: получить значение chekbox (4 replies, posted in Russian)
супер именно то что я хотел.... Спасибо
1,638 2018-08-17 14:00:56
Re: получить значение chekbox (4 replies, posted in Russian)
Все зделал
frmAdmin.CheckBox1.State := SQLExecute('SELECT SETTING.LiteServer.yesNo FROM SETTING.LiteServer WHERE id=1');
1,639 2018-08-17 12:43:10
Topic: получить значение chekbox (4 replies, posted in Russian)
подключаю базу настроек
SQLExecute('ATTACH DATABASE ''setting\sqlite.db'' as ''SETTING''');
хочу поместить в переменную значение chekbox
procedure frmAdmin_OnShow (Sender: TObject; Action: string);
var
sLite: string = IntToStr('SELECT IFNULL(yesNo, 0) SETTING.LiteServer.yesNo FROM SETTING.LiteServer WHERE id=1');
begin
end;
что я опять делаю не так?
или можно зделать так?
frmAdmin.CheckBox1.sqlValue:= SQLExecute('SELECT IF NULL (yesNo, 0) SETTING.LiteServire.yesNo FROM SETTING.LiteServire WHERE id=1');
или может я не правельно понимаю sqlValue
В общем я опять запутался )))
1,640 2018-08-16 17:05:24
Re: TableGrid.dbGetSQLStatemen (17 replies, posted in Russian)
в самом компоненте не обязательно что-то указывать можно edit поставить просто опятже скрытый и ничего в него не писать или chekbox или оной другой компонент просто оставить пустым , получится то же что и dbFilter = '' ;
точно не помню но при каком-то варианте с dbFilter = '' ; вазникает проблема, грид начинает только по этому скрипту работать и другие варианты поиска не отображает, потому я такие кастыли ставлю..
1,642 2018-08-13 17:58:20
Re: Онлайн кассы (5 replies, posted in Russian)
Вот и я призадумался... штука нужная.
В общем дело так.. Нужно подключаться к фискальному оператору
у некоторых есть по этому поводу инфа.
https://ofd.ru/developers
https://ofd-ya.ru/how-to-connect
https://www.1-ofd.ru/razrabotchikam/
......
ну уменя в программе понятно, сама касса в сервисе обычно не применяется можно просто программу попробывать потыкать))
а вот с другими вариантами, что-то не пойму..
что к чему и в каком порядке подключать????
Настройки подключения наверное в txt сделать или pas писать ( типа модуля, для каждого фискального оператора свой pas)
1,643 2018-08-13 15:19:23
Topic: иконки (2 replies, posted in Russian)
Хотел установить иконки на кнопки 20px но прогружаются только 2-е
если загружать иконки 16 px работает
Почему Так?
кнопки на форме frmServiceCen
запускаем и жмем button1
1,644 2018-08-10 15:10:45
Topic: Онлайн кассы (5 replies, posted in Russian)
Дмитрий, не хочу Вас напрягать, но в России начали действовать онлайн кассы
В связи с чем вопрос:
Будет ли в будущем такая вазможность в Вашей программе или это можно уже как-то сделать?
1,645 2018-08-10 14:51:02
Re: Счетчик (18 replies, posted in Russian)
Думал, что у меня что-то в базе не так
но сделал в новом проекте и то же самое
счетчик не отображает значения в базе
если делать скриптом, то поучаю ошибку синтаксиса
если сделать поле свободным к заполнению работает только если ручками писать
если через кнопку сохранить (без скрипта) то работает, но само поле счетчика значение не выводит
1,646 2018-08-09 17:12:07
Re: Счетчик (18 replies, posted in Russian)
не то мне нужно что бы он считал,
а так он работает только если его поле ручками заполнять
1,647 2018-08-09 15:57:15
Topic: Счетчик (18 replies, posted in Russian)
Как мне правельно запсать в базу скриптом?
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
sCount : string = IntToStr(Form1.EditCounter1);
begin
SQLExecute('INSERT INTO q (record_count, yyu) VALUES ("'+sCount+'", "'+Form1.Edit2.Text+'")');
Form1.TableGrid1.dbUpdate;
end;
1,648 2018-08-09 04:57:01
Re: Проект учёта материальных средств учреждения (организации) (51 replies, posted in Russian)
1. клик по гриду должен передовать sqlValue в ComboBox1
2. ComboBox2 связан с ComboBox1
3. в комбобоксе видны только те номера, которые не привязаны к расходным накладным, то есть для ComboBox2 нужен фильт
4. После выбора материала кликом по гриду и записи количества "1" в комбобоксе должны открываться не все инвентарные номера
не понимаю почему именно такой порядок, может просто проверку на заполнение поля перед сохранением?
Дмитрий, скажите можно ли на ComboBox повесить фильтр?
Ну или в место этого сделать еще один ComboBox, что-то вроди этого
ComboBox1 = получает sqlValue от грида
ComboBox2 = переводим в значение 1- пусто
ComboBox3 = выводим номера не привязаны к расходным накладным - пусто
и еще как вариант сделать дополнитульную таблицу и переносить в нее номера привязаные к расходным накладным
1,649 2018-08-08 17:07:27
Re: два взаимосвязанных чек-бокса (12 replies, posted in Russian)
а какая у вас версия программы?
хотя мой вариант у вас работает
Думаю без Дмитрия тут не справиться
1,650 2018-08-08 16:54:14
Re: два взаимосвязанных чек-бокса (12 replies, posted in Russian)
попробуйте удалить базу данных и dll от него, мне тногда помогает