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