Exit	Previous  Top  Next

Prototype

Exit

Description

It stops the script execution.

Parameters

None.

Returned value

None.

Notes

None.

Example

//It opens a table
UnaTabella:=TableOpen('c:\invoices\index','invoices.db'); 

//It orders the table according to a field
TableSetIndex(UnaTabella,'Company'); 

//it looks for the first field data in the table, if there is no data then 
If not TableFind(UnaTabella, 'Recogniform SpA') then
begin

ApplicationLog(_CurrentAgent,'Error, stopping execution!');

// It closes the table

TableClose(UnaTabella);

//It exit from the script

Exit;

end
else
   AppliactionLog(_CurrentAgent,'Ok, going on');