Customer Top N - Aging

teckpoh wrote:

Dear All,
I wish to sort "Age account receivable" report by top N list of customer who has the highest aging will show at top and second higher will show on second row...so and so...

i ever tried to use "Net Change" field as a key in customer table to sort the customer but i can't because it's flowfield..

Any idea how to implement this by modify the existing "age accnt receivable" report?? thank in advance~~!!!

NextTopLineNo := 1;
Window.OPEN(Text000 + ' #1########');

Window.UPDATE(1,"No.");
IF TopType = TopType::"Balance ($)" THEN BEGIN
  CALCFIELDS("Balance ($)");
  TempAmount := "Balance ($)";
END ELSE BEGIN
  CALCFIELDS("Sales ($)");
  TempAmount := "Sales ($)";
END;
GrandTotal := GrandTotal + TempAmount;
TopNo[NextTopLineNo] := "No.";
TopAmount[NextTopLineNo] := TempAmount;
TopName[NextTopLineNo] := Name;
i := NextTopLineNo;
IF NextTopLineNo < (CustomersToRank + 1) THEN
  NextTopLineNo := NextTopLineNo + 1;
WHILE (i > 1) DO BEGIN
  i := i - 1;
  IF (TopAmount[i + 1] > TopAmount[i]) THEN BEGIN

  // Sort the Customers by amount, largest should be first, smallest last. Put
  // values from position i into save variables, move values from position
  // i+1 to position i then put save values back in array in position i+1.
    TempNo := TopNo[i];
    TempAmount := TopAmount[i];
    TempName := TopName[i];
    TopNo[i] := TopNo[i + 1];
    TopAmount[i] := TopAmount[i + 1];
    TopName[i] := TopName[i + 1];
    TopNo[i + 1] := TempNo;
    TopAmount[i + 1] := TempAmount;
    TopName[i + 1] := TempName;
  END;
END;