ТМС:Сводник — различия между версиями
Материал из wiki.standart-n.ru
Lander (обсуждение | вклад) (Новая страница: « == Полезные скрипты для работы с ТМС, WDict и Аналитическими отчетами ==») |
Lander (обсуждение | вклад) (→Полезные скрипты для работы с ТМС, WDict и Аналитическими отчетами) |
||
| Строка 1: | Строка 1: | ||
== Полезные скрипты для работы с ТМС, WDict и Аналитическими отчетами == | == Полезные скрипты для работы с ТМС, WDict и Аналитическими отчетами == | ||
| + | |||
| + | === Передача параметра в справочник === | ||
| + | |||
| + | |||
| + | ''' | ||
| + | var | ||
| + | qParams: TibQuery; | ||
| + | begin | ||
| + | qParams := dm.TempQuery(nil); | ||
| + | try | ||
| + | qParams.sql.text := 'select * from rdb$database where 1=:tek_id'; | ||
| + | qParams.prepare; | ||
| + | //Определяем параметр | ||
| + | qParams.parambyname(''''Имя параметра'''').asstring := '''Значение параметра'''; | ||
| + | //Вызываем справочник | ||
| + | ShowWDict('''ID справочника''','', qParams.params); | ||
| + | finally | ||
| + | qParams.Free; | ||
| + | end; | ||
| + | end; | ||
| + | ''' | ||
Версия 13:51, 20 марта 2020
Полезные скрипты для работы с ТМС, WDict и Аналитическими отчетами
Передача параметра в справочник
var
qParams: TibQuery;
begin
qParams := dm.TempQuery(nil);
try
qParams.sql.text := 'select * from rdb$database where 1=:tek_id';
qParams.prepare;
//Определяем параметр
qParams.parambyname('Имя параметра').asstring := Значение параметра;
//Вызываем справочник
ShowWDict(ID справочника,, qParams.params);
finally
qParams.Free;
end;
end;
