ocal procedure ReturnSortedExpiration(recSalesLine: Record "Sales Line"; Var sortedarr: array[100] of Integer) var rec_itemLedgerEntry: Record "Item Ledger Entry"; i: Integer; begin Clear(i); Clear(sortedarr); i := 1; rec_itemLedgerEntry.Reset(); rec_itemLedgerEntry.SetCurrentKey("Item No.", "Expiration Date"); rec_itemLedgerEntry.SetAscending("Expiration Date", false); rec_itemLedgerEntry.SetRange("Entry Type", rec_itemLedgerEntry."Entry Type"::Purchase); rec_itemLedgerEntry.SetRange("Item No.", recSalesLine."No."); rec_itemledgerentry.SetRange("Location Code", recSalesLine."Location Code"); if rec_itemLedgerEntry.FindSet() then begin repeat sortedarr[i] := rec_itemLedgerEntry."Entry No."; i := i + 1; until rec_itemLedgerEntry.Next() = 0; end; end;