const sqldel='delete code n '+
             ' where n.reason = :reason   '+
             '   and n.codeid in (:codeid)';
var
  Query : TOraQuery;
  TransMgrE : TTransMgr;
  id: string;
  i: integer;
begin
  inherited;

  for i:=0 to dspcode.Grid.SelCount - 1 do //dbgrdh1.SelectedField
  begin
    dspcode.DataSource.DataSet.GotoBookmark(Pointer(dspcode.Grid.SelectedRows.items[i]));
    id:=id + VarToStr(dspcode.DataSource.DataSet.FieldByName('codeid').Value) + ', ';
  end;

  id:= Copy(id, 1, Length(id)- 2);

  if scrReasonsId.IsEmpty then
    exit;
  if GetConfirmation('Удалить связку?') then begin
    TransMgrE := FApp.QI.GetTransMgr;
    Query:=FQI.CreateQuery;
    Query.SQL.Text:=sqldel;
    Query.ParamByName('reason').Text:=scrReasonsId.FieldByName('reason').Text;
    Query.ParamByName('codeid').Text:=id; //'11025220,11025314';
    TransMgrE[FApp.QI.DataBase].StartTransaction;
    try
      Query.ExecSQL;
    except
      raise;
      TransMgrE[FApp.QI.DataBase].RollBack;
      exit;
    end;
    TransMgrE[FApp.QI.DataBase].Commit;
    Refresh;
    FQI.FreeQuery(Query);
  end;