SET TERM ^ ;

CREATE PROCEDURE GET_MAX_KODSP 
RETURNS (
    MAX_KODSP DOUBLE PRECISION)
AS
DECLARE VARIABLE MAX_KODE DOUBLE PRECISION;
begin
     MAX_KODSP =  0 ;
    for
    select KOD_SP from ires_spectr_table
    into :MAX_KODE
    do
    begin
        if(MAX_KODE > MAX_KODSP) then
        begin
            MAX_KODSP = MAX_KODE;
        end
    end
suspend;
end
^

SET TERM ; ^

	
             long double fVal;
	CString szSQLStatement;
	szSQLStatement=_T("SELECT * FROM GET_MAX_KODSP()");
		
	CRecordset Rec(&m_Database);
	Rec.Open(CRecordset::forwardOnly, szSQLStatement);
	if(!Rec.IsEOF()) Rec.GetFieldValue((SHORT) 0 , (CDBVariant&)fVal, SQL_C_DOUBLE);
	Rec.Close();