Close Table — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 2: | Строка 2: | ||
Close_Table(ClearFields=True) | 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; | ||
= Смотрите также = | = Смотрите также = | ||
Версия 14:10, 16 августа 2016
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;
