function TdmIDK.frxDesSaveReport(Report: TfrxReport; SaveAs: Boolean): Boolean;
var
  vBlob1, vblob2: TStream;
  fname: string;
begin
  vBlob1 := nil;
  vBlob2 := nil;
  Result := false;
  fname := ExtractFileName(Report.FileName);
  if SaveAs then
    with sdlgRep do begin
      sdlgRep.FileName := fname;
      if Execute then begin
        Report.FileName := ExtractFileName(sdlgRep.FileName);
        fname := ExtractFileName(Report.FileName);
        Report.SaveToFile(sdlgRep.FileName);
      end;
    end;
  try
    if not fdsReports.Active then
      fdsReports.Open;
    if fdsReports.Locate('Rep_FName',fName,[loCaseInsensitive]) then
    begin
      if MessageDlg('В БД уже имеется такой отчет. Переписать?', mtConfirmation, [mbYes, mbCancel], 0) = mrYes then
        fdsReports.Edit
      else begin
        fdsReports.Close;
        exit;
      end;
    end
    else
    begin
      fdsReports.Append;
      fdsReports.FieldByName('Rep_FName').AsString := fName;
    end;
    fdsReports.FieldByName('Rep_Name').AsString             := Report.ReportOptions.Name;
    //fdsReports.FieldByName('Rep_Author').AsString         := Report.ReportOptions.Author;
    //fdsReports.FieldByName('Rep_CreateDate').AsDateTime   := Report.ReportOptions.CreateDate;
    //fdsReports.FieldByName('Rep_LastChange').AsDateTime   := Report.ReportOptions.LastChange;
    //vBlob1:= fdsReports.CreateBlobStream(fdsReports.FieldByName('Rep_Description'), bmReadWrite);
    //Report.ReportOptions.Description.SaveToStream(vBlob1);
    //vBlob1.Free;

    vBlob2:= fdsReports.CreateBlobStream(fdsReports.FieldByName('Rep_Blob'), bmReadWrite);
    Report.SaveToStream(vBlob2, true, true, true);
    fdsReports.Post;
    //fdsReports.CloseOpen(false);
    Result := True;
  finally
    vBlob2.Free;
  end;
end;

UPDATE REPORTS
SET
    REP_NAME =           :REP_NAME,
    REP_AUTHOR =         :REP_AUTHOR,
    REP_CREATEDATE =     :REP_CREATEDATE,
    REP_LASTCHANGE =     :REP_LASTCHANGE,
    REP_PICTURE =        :REP_PICTURE,
    REP_DESCRIPTION =    :REP_DESCRIPTION,
    REP_VERSIONBUILD =   :REP_VERSIONBUILD,
    REP_VERSIONMAJOR =   :REP_VERSIONMAJOR,
    REP_VERSIONMINOR =   :REP_VERSIONMINOR,
    REP_VERSIONRELEASE = :REP_VERSIONRELEASE,
    REP_CONNECTIONNAME = :REP_CONNECTIONNAME,
    REP_FNAME = :REP_FNAME,
    REP_BLOB = :REP_BLOB,
    COMMENT = :COMMENT
WHERE
    REP_ID = :OLD_REP_ID

function TIBCustomDataSet.CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream;
var
  pb: PBlobDataArray;
  fs: TIBBlobStream;
  Buff: PChar;
  bTr, bDB: Boolean;
  ABlobID: TISC_QUAD;
begin
  Buff := GetActiveBuf;
  if Buff = nil then
  begin
    fs := TIBBlobStream.Create;
    fs.Mode := bmReadWrite;
    FBlobStreamList.Add(Pointer(fs));
    result := TIBDSBlobStream.Create(Field, fs, Mode);
    exit;
  end;
  pb := PBlobDataArray(Buff + FBlobCacheOffset);
  if pb^[Field.Offset] = nil then
  begin
    AdjustRecordOnInsert(Buff);
    pb^[Field.Offset] := TIBBlobStream.Create;
    fs := pb^[Field.Offset];
    FBlobStreamList.Add(Pointer(fs));
    fs.Mode := bmReadWrite;
    fs.Database := Database;
    fs.Transaction := Transaction;
    fs.UpdateTransaction := UpdateTransaction;
    fs.AutoStartTransaction := AutoStartTransaction;
    {if (Mode = bmWrite) and (not fs.UpdateTransaction.InTransaction)
       and AutoStartTransaction then
        fs.UpdateTransaction.StartTransaction;}

    ABlobID :=
      PISC_QUAD(@Buff[PRecordData(Buff)^.rdFields[FMappedFieldPosition[Field.FieldNo - 1]].fdDataOfs])^;
    fs.BlobID := ABlobID;
    if (CachedUpdates) then
    begin
      bTr := not UpdateTransaction.InTransaction;
      bDB := not Database.Connected;
      if bDB then
        Database.Open;
      if bTr then
        UpdateTransaction.StartTransaction;
      fs.Seek(0, soFromBeginning);
      if bTr then
        UpdateTransaction.Commit;
      if bDB then
        Database.Close;
    end;
    WriteRecordCache(PRecordData(Buff)^.rdRecordNumber, Pointer(Buff));
  end else
    fs := pb^[Field.Offset];
  result := TIBDSBlobStream.Create(Field, fs, Mode);
end;

  object fdsRep2Db: TIBDataSet
    Database = dbIDK
    Transaction = trWrite
    AutoStartTransaction = True
    AutoCommit = True
    AutoTrim = True
    AutoParamToField = True
    RetFields = False
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    REPORTS'
      'WHERE'
      '        REP_ID = :OLD_REP_ID'
    )
    InsertSQL.Strings = (
      'INSERT INTO REPORTS('
      '    REP_ID,'
      '    REP_NAME,'
      '    REP_FNAME,'
      '    REP_BLOB'
      ')'
      'VALUES('
      '    :REP_ID,'
      '    :REP_NAME,'
      '    :REP_FNAME,'
      '    :REP_BLOB'
      ')'
    )
    RefreshSQL.Strings = (
      'SELECT'
      '    REP_ID,'
      '    REP_NAME,'
      '    REP_FNAME,'
      '    REP_BLOB'
      'FROM'
      '    REPORTS'
      ' WHERE'
      '        REPORTS.REP_ID = :OLD_REP_ID'
    )
    SelectSQL.Strings = (
      'SELECT'
      '    REP_ID,'
      '    REP_NAME,'
      '    REP_FNAME,'
      '    REP_BLOB'
      'FROM'
      '    REPORTS'
    )
    ModifySQL.Strings = (
      'UPDATE REPORTS'
      'SET'
      '    REP_NAME = :REP_NAME,'
      '    REP_FNAME = :REP_FNAME,'
      '    REP_BLOB = :REP_BLOB'
      'WHERE'
      '    REP_ID = :OLD_REP_ID'
    )
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    ParamCheck = False
    DefValueFromServer = False
    DetailConditoins = []
    Left = 440
    Top = 544
  end 

    if fdsRep2DB.Locate('Rep_FName',fName,[loCaseInsensitive]) then
    begin
        fdsRep2DB.Edit
	fdsRep2DB.FieldByName('Rep_Name').AsString           := Report.ReportOptions.Name;
	vBlob2:= fdsRep2DB.CreateBlobStream(fdsRep2DB.FieldByName('Rep_Blob'), bmWrite);
	Report.SaveToStream(vBlob2, true, true, true);
	vBlob2.Free;
	fdsRep2Db.Post;
    end;