//입력 상태에서는 항상 일련번호를 생성한다.
   with DataMd.SQLmedia do begin
      close;
      sql.clear;
      sql.add('select cast(max(ilno) as integer)+1 Tilno       ');
      sql.add(' from Mtable                                                   ');
      sql.add('where   조건                                                   ');
      Open;
      if Fieldbyname('Tilno').asstring <> '' then begin
         ilno := inttostr(Fieldbyname('Tilno').asinteger);
         ilno := formatfloat('0000',strtofloat(ilno));
      end else
      begin
         //해당월의 건수가 하나도 없으면
         ilno := '0001';
      end;
   end;

스토어드프로시져  이거 편하긴 한데...AS가 걸리면 아주 힘들어요...
온 거래처마다 직접 찾아가서  수정 해 주어야합니다.
그래서 저는 사용했던  스토어드프로시져  모두 없앴습니다...
뭐...인식의 차이 입니다...