mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 06:36:55 +01:00
27 lines
692 B
AL
27 lines
692 B
AL
table 50242 "Perf Import Staging Entry"
|
|
{
|
|
fields
|
|
{
|
|
field(1; "Entry No."; Integer) { }
|
|
field(2; "Batch ID"; Guid) { }
|
|
field(3; Processed; Boolean) { }
|
|
}
|
|
|
|
keys
|
|
{
|
|
key(PK; "Entry No.") { Clustered = true; }
|
|
}
|
|
}
|
|
|
|
codeunit 50242 "Perf Sample ModifyAll Good"
|
|
{
|
|
procedure MarkBatchProcessed(BatchId: Guid)
|
|
var
|
|
StagingEntry: Record "Perf Import Staging Entry";
|
|
begin
|
|
StagingEntry.SetRange("Batch ID", BatchId);
|
|
StagingEntry.SetRange(Processed, false);
|
|
// Processed has no OnValidate logic, and the equivalent loop uses Modify(false).
|
|
StagingEntry.ModifyAll(Processed, true, false);
|
|
end;
|
|
}
|