procedure ExportGridToCSV(ATableView: TcxGridDBTableView;
  ASession: TOracleSession; AParam: TParamList);
const
  cBuffSize = 50000;
var
  I, LType, J: Integer;
  LSQLText: string;
  LPkMop: TPkMop;
  LLob: TLOBLocator;
  LSaveDialog: TSaveDialog;
  LTableName, LWhereText, LOrderText, LVal: string;
  LHandle: THandle;
  LChar: char;
  LText, LFormat, LLobStr: string;
  LLength: DWORD;
  LBuff: array[1..cBuffSize] of AnsiChar; //для Byte таже песня
  LIsFooter: Boolean;
  LCount, LStartRow, LRowCount, LEndRow, LLenClob: Integer;
  LReadCount: Integer;
  LStream: TFileStream;
  function TimeToName(ADate: TDateTime): string;
  begin
    Result := FormatDateTime('_YYYYMMDDHHNNSS', ADate);
  end;
begin
  LCount := StrToInt(AParam.GetParam('COUNT'));
  LTableName := AParam.GetParam('TABLE_NAME');
  LWhereText := AParam.GetParam('WHERE');
  LOrderText := AParam.GetParam('ORDER');
  LSaveDialog := TSaveDialog.Create(nil);
  try
    LSaveDialog.InitialDir := AppContext.AppDir.ExportDir;
    LSaveDialog.FileName := ATableView.Name + TimeToName(Now) + '.csv';
    LSaveDialog.Filter := 'CSV|*.csv';
    try
      if LSaveDialog.Execute then
      begin
          LPkMop := TPkMop.Create(nil);
          LPkMop.Session := ASession;
          LLob := TLOBLocator.Create(ASession, otBLOB);
          for I := 0 to ATableView.ColumnCount - 1 do
          begin
            if ATableView.Columns[I].Visible then
            begin
              case ATableView.Columns[I].DataBinding.Field.DataType of
                ftInteger:
                  LType := 1;
                ftFloat:
                  if (Assigned(ATableView.Columns[I].Properties) and
                    (ATableView.Columns[I].Properties is TcxCurrencyEditProperties)) then
                    LType := 4
                  else
                    LType := 1;
                ftDate, ftDateTime:
                  LType := 3;
                ftString:
                  LType := 2;
              end;
              if I = 0 then
              begin
                if LType = 4 then
                  LSQLText := #39 + '"' + #39 + ' || nvl(t.' +
                    ATableView.Columns[I].DataBinding.FieldName + ', 0) || ' +
                    #39 + '"' + #39
                else
                  LSQLText := #39 + '"' + #39 + ' || t.' + ATableView.Columns[I]
                    .DataBinding.FieldName + ' || ' + #39 + '"' + #39;
              end
              else
              begin
                if LType = 4 then
                  LSQLText := LSQLText + ' || chr(9) || ' + #39 + '"' + #39 +
                    ' || nvl(t.' + ATableView.Columns[I].DataBinding.FieldName +
                    ', 0) || ' + #39 + '"' + #39
                else
                  LSQLText := LSQLText + ' || chr(9) || ' + #39 + '"' + #39 +
                    ' || t.' + ATableView.Columns[I].DataBinding.FieldName +
                    ' || ' + #39 + '"' + #39;
              end;
            end;
          end;
          try
            LStream := TFileStream.Create(LSaveDialog.FileName, fmCreate);

            // добавляем признак что это Unicode
            LChar := chr(65279);
            LStream.WriteBuffer(LChar, 2);
            // добавляем заголовки столбцов
            LInfoPanel.SetCaption('Формуємо шапку...');
            for I := 0 to ATableView.ColumnCount - 1 do
            begin
              if ATableView.Columns[I].Visible then
                LText := LText + chr(9) + '"' + ATableView.Columns[I]
                  .Caption + '"';
            end;
            Delete(LText, 1, 1);
            LText := LText + #13#10;
            LStream.WriteBuffer(LText[1], Length(LText) * 2);

            LSQLText := 'select ' + LSQLText +
              ' || chr(13) || chr(10) as val from ' + LTableName + ' t';
            if Length(Trim(LWhereText)) > 0 then
              LSQLText := LSQLText + ' where ' + LWhereText;
            if Length(Trim(LOrderText)) > 0 then
              LSQLText := LSQLText + ' order by ' + LOrderText;

            LLob := LPkMop.ExportGridToCSVFull_0(LSQLText);
            SetLength(LBuff, cBuffSize*2);
            LInfoPanel.SetCaption('Зберігаємо дані...');
            if not LLob.IsNull then
            begin
              repeat
                LReadCount := LLob.Read(LBuff[1], cBuffSize);
                LStream.WriteBuffer(LBuff[1], LReadCount);
              until LReadCount < cBuffSize;
            end;
            LText := '';
            for I := 0 to ATableView.ColumnCount - 1 do
            begin
              if ATableView.Columns[I].Visible then
              begin
                LText := LText + chr(9) + '"';
                with ATableView.DataController.Summary do
                begin
                  for J := 0 to FooterSummaryItems.Count - 1 do
                  begin
                    if ((FooterSummaryItems[J] as TcxGridDBTableSummaryItem)
                      .Column = ATableView.Columns[I]) then
                    begin
                      LText := LText + VarToStr(FooterSummaryValues[J]);
                      Break;
                    end;
                  end;
                  LText := LText + '"';
                end;
              end;
            end;
            Delete(LText, 1, 1);
            LText := LText + #13#10;
            LStream.WriteBuffer(LText[1], Length(LText) * 2);
          finally
            LStream.Free;
          end;
        if MessageDlg('Відкрити збережений файл?', mtConfirmation,
          [mbYes, mbNo], 0, mbYes) = mrYes then
          ShellExecute(Application.MainForm.Handle, nil,
            PChar(LSaveDialog.FileName), nil, nil, SW_RESTORE)
        else
          Application.MainForm.Handle;
      end;
    except
      on E: Exception do
        Application.ShowException(E);
    end;
  finally
    if Assigned(LLob) then
      FreeAndNil(LLob);
    if Assigned(LPkMop) then
      FreeAndNil(LPkMop);
    if Assigned(LSaveDialog) then
      FreeAndNil(LSaveDialog);
  end;
end;