ТМС:Сводник — различия между версиями
Материал из wiki.standart-n.ru
Lander (обсуждение | вклад) (→Полезные скрипты для работы с ТМС, WDict и Аналитическими отчетами) |
Lander (обсуждение | вклад) (→Передача параметра в справочник) |
||
| Строка 5: | Строка 5: | ||
| − | + | <code delphi> | |
var | var | ||
qParams: TibQuery; | qParams: TibQuery; | ||
| Строка 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 справочника''','', qParams.params); | ShowWDict('''ID справочника''','', qParams.params); | ||
| Строка 21: | Строка 23: | ||
end; | end; | ||
end; | end; | ||
| − | + | </code> | |
Версия 14:00, 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;
