mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-06 15:16:56 +01:00
16 lines
No EOL
474 B
AL
16 lines
No EOL
474 B
AL
codeunit 50102 "Run Customer Reports"
|
|
{
|
|
procedure RunBlockedAndUnblockedCustomers()
|
|
var
|
|
Customer: Record Customer;
|
|
CustomerList: Report "Customer - List";
|
|
begin
|
|
Customer.SetRange(Blocked, Customer.Blocked::All);
|
|
CustomerList.SetTableView(Customer);
|
|
CustomerList.RunModal();
|
|
|
|
Customer.SetRange(Blocked, Customer.Blocked::" ");
|
|
CustomerList.SetTableView(Customer);
|
|
CustomerList.RunModal();
|
|
end;
|
|
} |