The "List index out of bounds" error occurs if a field has a single value, and DataVisibility = dvGrandTotalCells

Hi,
I got a "list index out of bounds" error when filling a pivot grid with some data.

It seems to be a bug related to some particular combination of visibility options for data fields and in presence of "unique" columns and with custom aggregation functions.

I know it sounds quite strange so I've prepared a sample application.

Please note that I've built the application with unit cxPivotGrid patched as indicated in issue B200056 (you've sent me a public fix via mail) http://www.devexpress.com/issue=B200056
** I've not enclosed the patched unit in the zip file as you haven't released it already **

Even if you compile the test application with the default cxPivotGrid unit you get the error.

I made some investigation. In TcxPivotGridViewData.ProduceColumns procedure the call to AProducer.Produce leave the FColumnsList empty but it should fill it with at least one column as in procedure TcxPivotGridViewData.SetColumnIndex:
  AIndex := Min(ColumnCount - 1, Max(0, AIndex));
AIndex is set to -1!

Steps to Reproduce:

Run the enclosed test application. Click on the button "Create the pivot grid and got the error".

Actual Results:

List index out of bounds error.

Expected Results:

A new form with a pivot should appear.