ТМС:Сводник — различия между версиями
Материал из wiki.standart-n.ru
Lander (обсуждение | вклад) (→Передача параметра в справочник) |
Lander (обсуждение | вклад) (→Передача параметра в справочник) |
||
| Строка 13: | Строка 13: | ||
qParams.sql.text := 'select * from rdb$database where 1=:tek_id'; | qParams.sql.text := 'select * from rdb$database where 1=:tek_id'; | ||
qParams.prepare; | qParams.prepare; | ||
| − | + | // | |
//Определяем параметр | //Определяем параметр | ||
qParams.parambyname(''''Имя параметра'''').asstring := '''Значение параметра'''; | qParams.parambyname(''''Имя параметра'''').asstring := '''Значение параметра'''; | ||
| − | + | // | |
//Вызываем справочник | //Вызываем справочник | ||
| − | ShowWDict('''ID справочника''', | + | ShowWDict('''ID справочника''',''''''', qParams.params); |
finally | finally | ||
qParams.Free; | qParams.Free; | ||
Версия 14:08, 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;
