» Использование DevExpress (часть 4)

блин..откатился на 2011.2.6, на новых девках приложение валится просто пипец((
у кого то есть проблемы с новой версией?

mdid

У меня в новой версии бажил cxTreeView (в design time) периодически выдавая Out of memory, а потом слетали девы, после нескольких переустановок дев, решил от него отказаться, вроде пока всё нормально. Возможно есть и другие глючненькие компонентики.

Использую cxPivotGrid для отображения аналитики по продажам. Есть столбцы: выручка, кол-во продаж, средний чек (выручка/продажи). Например:
1 день - выручка 100, продаж 8, чек 12.5
2 день - выручка 10, продаж 1, чек 10
Проблема из-за того, что чек подается уже посчитанным как результат запроса в БД. В результате чего при перегруппировке пивота чек за два дня получается равным 11.25 (SummaryType = stAverage), а должен быть (100+10)/9 = 12.22.

Возможно ли реализовать подсчет чека "налету"? Т.е. в поле "Чек" должен отображаться результат от деления выручки на число продаж для текущей строки, а не группироваться по правилам пивота.

Цитата:

Возможно ли реализовать подсчет чека "налету"?

SummaryType = stCustom
обработка события CalcFieldCalculateCustomSummary

версия девок последняя из копилки, проблем особых не наблюдаю

LadyOfWood
Спасибо, получилось. Сделал так:

Код: vFact := ASummary.Owner.GetSummaryByField(pi_fact, stSum);
vCount := ASummary.Owner.GetSummaryByField(pi_op_count, stSum);
ASummary.Custom := Null;
if vCount = 0 then exit;
ASummary.Custom := vFact / vCount;

DevExpress OLD Packages for XE3

To rebuild old projects, with outdated components DevExpress:

http://forum.ru-board.com/topic.cgi?forum=35&topic=47325&start=4740#lt

ps:
В архиве поправленные:
- cxCustomData.pas с возможностью событийного поиска в DataController (вперёд и назад).
- cxXLSExport.pas

нужен был компонент, который отображает только цифры, взял currencyedit. Но он, даже при UseThousandSeparator=false, все равно отделяет тысячи. Как вылечить?

mdid
SpinEdit?

Цитата:

нужен был компонент, который отображает только цифры, взял currencyedit. Но он, даже при UseThousandSeparator=false, все равно отделяет тысячи. Как вылечить?

Свойство DisplayFormat в Properties (просто убери запятые)

makz
та не хотелось перенагружать интерфейс лишними кнопками, форма и так большая
dimm78
спасибо, помогло. Вжизнь бы не догадался

Народ помогите с GridViewRepository & ExtLookupComboBox - если в свойствах ExtLookupComboBox -KeyField
указать имя поля - выбирается только первая запись таблицы и курсор по таблице в попапе не перемещается, если его убрать - курсор перемещается но значение не выбирается?????
Наскольно я помню для девок критичен запрос
SELECT kur,bd_name,bd_reg FROM [master].[dbo].[nbd] order by kur,bd_reg

Отображать надо bd_reg, а ключевое kur

MagistrAnatol
Девкам наплевать какой запрос. Они работают не с запросом, а с DataSet-ом. KeyField должен быть уникальным.

marser
спасибо, уже сам допер что поле не уникально, хотя иногда в запросе в группировке надо первым выставлять ключевое поле

mdid
Уже не важно конечно, но кнопки в спинэдите убираются.

Так, с экспортом из cxGrid в Excel всё понятно. А что насчёт импорта xls/xlsx в cxGrid? Через cxSpreadSheet, или уже есть варианты загрузки файлов минуя посредника?

Цитата:

А что насчёт импорта xls/xlsx в cxGrid? Через cxSpreadSheet, или уже есть варианты загрузки файлов минуя посредника?

XLSX не поддерживается cxSpreadSheet и вряд ли будет, ибо не развивается.

Ок, понял. Сузим запрос до кошерного "xls".

Подскажите, плиз. cxGrid с несколькими столбцами. В одном из столбцов имеется длинный текст, не умеющающийся в размер столбца. Можно ли сделать чтобы при наведении на данный столбец появлялось всплывающее окошко с полным текстом поля? Спасибо.

SevereK20
у bandView или tableView надо выбрать OptionBehavior.CellHints = true

Cryogen2003
Нашел этот пункт в TableView. По отдельности для каждого столбца разным это свойство сделать нельзя?

SevereK20
Гляньте у столбцов событие OnGetCellHint. В нем можно управлять хинтами.

exteris
Cryogen2003
благодарю, разобрался. все получилось.

Использую cxGrid, заполняю грид таким макаром:

for i:= 0 to 30 do begin
Rec := cxGrid1BandedTableView1.DataController.AppendRecord;
cxGrid1BandedTableView1.DataController.SetValue(Rec, cxColumn1.Index, 'Value' );
cxGrid1BandedTableView1.DataController.SetValue(Rec, cxColumn2.Index, 'Value' );
Ну и ещё + 7 колонок.
end;

Очень медленный это спосооб может есть вариант канить пошустрее ?

cxGrid1BandedTableView1.BeginUpdate;
for i:= 0 to 30 do begin
Rec := cxGrid1BandedTableView1.DataController.AppendRecord;
cxGrid1BandedTableView1.DataController.SetValue(Rec, cxColumn1.Index, 'Value' );
cxGrid1BandedTableView1.DataController.SetValue(Rec, cxColumn2.Index, 'Value' );
end;
cxGrid1BandedTableView1.EndUpdate;

Хотя не понятно, что там на 30 записях может тормозить.

exteris

Цитата:

Хотя не понятно, что там на 30 записях может тормозить.

Даже при отсутствии записей может лагать ощутимо, если не пользоваться спасительной begindate-endapdate beginupdate-endupdate. Я такое наблюдал, когда в цикле перерисовывал TitleButton - сам удивился

ps. надо же, в 2 словах наделал столько ошибок

Спасибо, буду пробовать бегин-энд

Еще раз спасибо, помогло, теперь все делается мгновенно

как в TdxTabbedMDIManager при нажатии на кнопку закрытия таба скрыть форму? вариант с Action=caFree не подходит.

Кто-нибудь озадачивался переводом сабжа на XE4?

Проблема в том, что в XE3 (и ранее) было: function ActiveBuffer: TRecordBuffer; inline;
type TRecordBuffer = ^Byte;

В XE4 стало: function ActiveBuffer: TRecBuf; inline;
type TRecBuf = Integer;

Из-за этого получаем сообщения о несовместимости типов. Насколько корректно будет приведение TRecordBuffer(ActiveBuffer)? Тоже и для CalcBuffer.

Добавлено:
Пока копался, в справке наткнулся вот на что
Код: procedure GetCalcFields(Buffer: TRecBuf); overload; virtual;
procedure GetCalcFields(Buffer: TRecordBuffer); overload; virtual; deprecated 'Use overloaded method instead';

AlexCoRu

{$IFDEF DELPHI18}PByte(ActiveBuffer){$ELSE}ActiveBuffer{$ENDIF};
Это для 2012.1.06

А еще так:
function GetFieldData(Field: TField; {$IFDEF DELPHI18}var {$ENDIF}Buffer: TValueBuffer): Boolean; override;
function GetFieldData(Field: TField; {$IFDEF DELPHI18}var {$ENDIF}Buffer: TValueBuffer; NativeFormat: Boolean): Boolean; override;