begin
  select form_id from forms where form_name=:FORM_NAME into :FORM_ID;
  select period_id from periods where period_name=:period_NAME into :PERIOD_ID;
  select kind_id from kinds where kind_name=:KIND_NAME into :KIND_ID;
  select granting_id from grantings where granting_name=:GRANTING_NAME into :GRANTING_ID;
  select user_id from users where user_name=:USER_NAME into :USER_ID; 

  select count(id) from regbankrot
  where rnn_kru=:RNN_KRU and rnn_bankrot=:RNN_BANKROT and
        form_id=:FORM_ID and period_id=:PERIOD_ID and
        date1=:DATE1 and date2=:DATE2 and year_num=:YEAR_NUM and
        kind_id=:KIND_ID and granting_id=:GRANTING_ID and
        user_id=:USER_ID and reception_date=:RECEPTION_DATE
  into :TEMP_KOL;

  if (TEMP_KOL= 0 ) then
     begin
       select max(fill_date) from regbankrot into :MAX_DATE;
       if ((extract(month from :MAX_DATE)=extract(month from current_date)) and
          (extract(year from :MAX_DATE)=extract(year from current_date)))
       then begin
              NUMBER1=cast(gen_id(number, 1 ) as varchar( 6 ));
              ERRORS= 0 ;
              insert into regbankrot(id,nomer,rnn_kru,rnn_bankrot,form_id,granting_id,kind_id,period_id,
                                     year_num,date1,date2,reception_date,status_id,user_id,fill_date)
              values(gen_id(id_regbankrot, 1 ),:NUMBER1,:RNN_KRU,:RNN_BANKROT,:FORM_ID,:GRANTING_ID,
                     :KIND_ID,:PERIOD_ID,:YEAR_NUM,:DATE1,:DATE2,:RECEPTION_DATE, 1 ,:USER_ID,current_date);
            end
       else
         if (((extract(month from :MAX_DATE)<extract(month from current_date)) and
            (extract(year from :MAX_DATE)=extract(year from current_date))) or
            ((extract(month from :MAX_DATE)=extract(month from current_date)) and
            (extract(year from :MAX_DATE)<extract(year from current_date))) or
            ((extract(month from :MAX_DATE)<extract(month from current_date)) and
            (extract(year from :MAX_DATE)<extract(year from current_date))) or
            ((extract(month from :MAX_DATE)>extract(month from current_date)) and
            (extract(year from :MAX_DATE)<extract(year from current_date))))
         then begin
                SELECT GEN_ID(number, -GEN_ID(number,  0 )) FROM RDB$DATABASE into :NUMBER1;
                NUMBER1=cast(gen_id(number, 1 ) as varchar( 6 ));
                ERRORS= 0 ;
                insert into regbankrot(id,nomer,rnn_kru,rnn_bankrot,form_id,granting_id,kind_id,period_id,
                                       year_num,date1,date2,reception_date,status_id,user_id,fill_date)
                values(gen_id(id_regbankrot, 1 ),:number1,:RNN_KRU,:RNN_BANKROT,:FORM_ID,:GRANTING_ID,
                       :KIND_ID,:PERIOD_ID,:YEAR_NUM,:DATE1,:DATE2,:RECEPTION_DATE, 1 ,:USER_ID,current_date);
              end
         else begin
                number1='';
                ERRORS= 2 ;
              end
     end
  else begin
         number1='';
         ERRORS= 1 ;
       end 
 suspend;
END

DataModule2.SQLStoredProc1.Params[ 2 ].AsString:='111111111111';
DataModule2.SQLStoredProc1.Params[ 3 ].AsString:='111111111111';
DataModule2.SQLStoredProc1.Params[ 4 ].AsString:='форма1';
DataModule2.SQLStoredProc1.Params[ 5 ].AsString:='на магнитном';
DataModule2.SQLStoredProc1.Params[ 6 ].AsString:='первоначальная';
if mxFlatRadioButton1.Checked=true
then
    DataModule2.SQLStoredProc1.Params[ 7 ].AsString:='январь'
else
    DataModule2.SQLStoredProc1.Params[ 7 ].AsString:='в диапазоне';
DataModule2.SQLStoredProc1.Params[ 8 ].AsInteger:= 2004 ;
DataModule2.SQLStoredProc1.Params[ 9 ].AsDate:=Date();
DataModule2.SQLStoredProc1.Params[ 10 ].AsDate:=date();
DataModule2.SQLStoredProc1.Params[ 11 ].AsDate:=date();
DataModule2.SQLStoredProc1.Params[ 12 ].AsString:='Нашаров К.Т.';

DataModule2.SQLStoredProc1.ExecProc;

if DataModule2.SQLStoredProc1.Params[ 1 ].AsInteger= 0 
then ShowMessage('Присвоенный новер - '+DataModule2.SQLStoredProc1.Params[ 0 ].AsString)
else
  if DataModule2.SQLStoredProc1.Params[ 1 ].AsInteger= 1 
  then ShowMessage('Данные уже существуют!')
  else
    if DataModule2.SQLStoredProc1.Params[ 1 ].AsInteger= 2 
    then ShowMessage('Дата на узле меньше чем максимальная в базе!');
end;