mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 17:36:53 +01:00
Pure git-mv relocation of the SECURITY domain from the community layer to the Microsoft layer. No content changes. Co-authored-by: Copilot <223556219+Copilot@users.noreply.github.com>
32 lines
946 B
AL
32 lines
946 B
AL
codeunit 50100 "Customer Temp Processor"
|
|
{
|
|
procedure BuildScopedCustomerBuffer(CustomerNoFilter: Text): Boolean
|
|
var
|
|
Customer: Record Customer;
|
|
TempCustomer: Record Customer temporary;
|
|
begin
|
|
// Validate the caller's permission before copying sensitive rows.
|
|
if not Customer.ReadPermission() then
|
|
exit(false);
|
|
|
|
Customer.SetFilter("No.", CustomerNoFilter);
|
|
if not Customer.FindSet() then
|
|
exit(true);
|
|
|
|
repeat
|
|
TempCustomer := Customer;
|
|
TempCustomer.Insert();
|
|
until Customer.Next() = 0;
|
|
|
|
ProcessCustomerBuffer(TempCustomer);
|
|
|
|
// Explicit cleanup on the normal exit path.
|
|
TempCustomer.DeleteAll();
|
|
exit(true);
|
|
end;
|
|
|
|
local procedure ProcessCustomerBuffer(var TempCustomer: Record Customer temporary)
|
|
begin
|
|
// Use the buffer in-place; do not persist values elsewhere.
|
|
end;
|
|
}
|