OnException
Message:          "General SQL error." 
Exception type:  EDBEngineError
Address:         0x004D8D52
  EDBError # 0 
    Category:    0x33
    ErrorCode:   0x3303
    Message:     General SQL error.
    NativeError: 0x00000000
    SubCode:     0x03
  EDBError # 1 
    Category:    0x33
    ErrorCode:   0x3303
    Message:     
    NativeError: 0x00000000
    SubCode:     0x03

    ErrorCode:   0x3303

    NativeError: 0x00000000

var
  ErrorString: String;
begin
  SetLength(ErrorString, dbiMaxMsgLen +  1 );
  DbiGetErrorString($ 3303 , PChar(ErrorString));
  ShowMessage(ErrorString);
end;

 "General SQL error." 

set @IsExists = - 1 

 -- если справочник есть
 
if @BookID in ( 2 , ...,  150 )
begin
   if @BookID =  2  set @IsExists = dbo.func2(@RecordID)
   ...
   if @BookID =  150  set @IsExists = dbo.func150(@RecordID)
end

if @IsExists = - 1 
begin
	set @IsExists =  0 
	return  1 
end

return case when exists(select * from TableN where FieldID=@RecordID and (@RecordID> 0 )) then  1  else  0  end end