Close Table — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[Close_Table]] - это процедура | [[Close_Table]] - это процедура | ||
| − | + | Без описания | |
| − | Close_Table(ClearFields=True) | + | [[Close_Table]](ClearFields=True) |
= Текст = | = Текст = | ||
Версия 16:24, 26 апреля 2017
Close_Table - это процедура
Без описания
Close_Table(ClearFields=True)
Текст
{ TQREvClose_Table }
type TQREvClose_Table = class(TQREvDbFunction) public function Calculate: TQREvResult; override; end;
function TQREvClose_Table.Calculate: TQREvResult;
var ClearFlds: Boolean;
begin
ClearFlds := True;
if ArgList.Count > 0 then
ClearFlds := Argument(0).BooResult;
CloseTable(GetWorkArea, ClearFlds);
Result := NilValue;
end;
