Ошибка при создании кросс-отчёта
Работаю с версией 2.52.
При создании кросс-отчёта (TfrCross.Build) выполняется ряд операций, в том числе следующая процедура:
Допустим я создаю следующий отчёт : слева клиенты, сверху год, в середине число покупок за год. Если в имени клиента пресудствует символ ";", то программа вылетает с ошибкой, т.к. функция frSetCommaText() возвращает неправильный список. Как побороть проблему ??
При создании кросс-отчёта (TfrCross.Build) выполняется ряд операций, в том числе следующая процедура:
procedure FormGroup(NewGroup, OldGroup: String; Direction: Boolean);
...
procedure FormGroup1(Index: Integer);
...
begin
...
if Direction then
begin
if HasTotal(FColFields[Index]) then
Cell[Rows[0], s, 0] := 0
end
else
if HasTotal(FRowFields[Index]) then
Cell[s, Columns[0], 0] := 0;
end;
begin
...
frSetCommaText(OldGroup, sl1);
frSetCommaText(NewGroup, sl2);
for i := 0 to sl1.Count - 1 do
if (NewGroup = '') or (sl1[i] <> sl2[i]) then
begin
for j := sl1.Count - 1 downto i do
FormGroup1(j);
break;
end;
...
end;
Допустим я создаю следующий отчёт : слева клиенты, сверху год, в середине число покупок за год. Если в имени клиента пресудствует символ ";", то программа вылетает с ошибкой, т.к. функция frSetCommaText() возвращает неправильный список. Как побороть проблему ??