Łączenie wierszy w jedno pole tekstowe - cd

W poprzednim poście opublikowałem rozwiązanie problemu połączenia wartości z kilku wierszy w jedno pole tekstowe.

Okazało się, że to rozwiązanie nie działa w przypadku gdy numery zamówień się powtarzają.

Czyli cytując mojego matematyka z podstawówki można powiedzieć: "Prawie dobrze, ale jeszcze niedostatecznie".

W takim razie pochyliłem się raz jeszcze nad tym problemem... i pomyślałem, że najlepiej będzie sprawdzać czy bieżący numer zamówienia jest już w tablicy. Ale w Crystal Reports nie ma takiej funkcji. Ale zaraz zaraz...  tablica elementów to zbiór. Skoro jest to zbiór to mogę zastosować operator in oraz jego negację not in. Bingo!

Czyli za pomocą operatora in sprawdzamy czy element istnieje już w tablicy. Jeśli nie to wstawiamy a w przeciwnym wypadku go pomijamy, a funkcję RecordNumber zastępujemy własnym licznikiem.

Rozwiązanie:

1. Formuła Iinit

// Deklaracja tablicy tekstowej
shared StringVar array items; 

// Deklaracja licznika
shared numbervar counter:=1;

// Ustawiamy wielkość tablicy na podstawie ilości rekordów
Redim items [DistinctCount({SalesOrderHeader.SalesOrderID})];

// Formuła musi coś zwracać zatem wyświetlimy wartość true, którą później możemy ukryć za pomocą opcji Suppress
true

2. Formuła Calculate

/// Ponowna deklaracja zmiennej tablicowej
shared StringVar array items;

// Ponowna deklracja licznika
shared numbervar counter;

// Sprawdzamy czy numer zamówienia jest w tablicy
if not({SalesOrderHeader.SalesOrderNumber} in items)
then
(
    
// Wstawiamy bieżący numer dokumentu do tablicy
items[counter] := {SalesOrderHeader.SalesOrderNumber};

// Inkrementacja licznika
    counter := counter + 1; 
);

// Wyświetlamy wartość
{SalesOrderHeader.SalesOrderNumber}

3. Formuła Display
bez zmian.

// Ponowna deklaracja zmiennej tablicowej
shared stringVar array items; 

// Określamy separator
stringVar separator := ', ';

// Łączymy elementy tablicy w jeden ciąg tekstowy. 
join(items, separator);

Przykład:

Powyższe rozwiązanie zadziała w każdym warunkach i dopiero takie rozwiązanie można uznać za dobre i uniwersalne.

I jeszcze jedno:
Po przeniesieniu formuły Display do stopki raportu należy zaznaczyć opcję Can Grow, aby przy większej ilości zamówień nie obcięło nam pola.