optimized deletion tracking. (#198)

Bertverbeek4PS · Dec 4, 2024 · 0b3a4d4 · 0b3a4d4
2 parents e07a1e0 + fd7cd61
commit 0b3a4d4
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/businessCentral/app/src/Execution.Codeunit.al b/businessCentral/app/src/Execution.Codeunit.al
@@ -207,6 +207,9 @@ codeunit 82569 "ADLSE Execution"
         ADLSEDeletedRecord: Record "ADLSE Deleted Record";
         DeletedTablesNottoSync: Record "Deleted Tables Not to Sync";
     begin
+        if RecRef.Number = Database::"ADLSE Deleted Record" then
+            exit;
+
         if DeletedTablesNottoSync.Get(RecRef.Number) then
             exit;
 

diff --git a/businessCentral/app/src/Util.Codeunit.al b/businessCentral/app/src/Util.Codeunit.al
@@ -382,9 +382,8 @@ codeunit 82564 "ADLSE Util"
     var
         TableMetadata: Record "Table Metadata";
     begin
-        TableMetadata.SetRange(ID, TableID);
-        TableMetadata.FindFirst();
-        exit(TableMetadata.DataPerCompany);
+        if TableMetadata.get(TableID)then
+            exit(TableMetadata.DataPerCompany);
     end;
 
     procedure CreateFakeRecordForDeletedAction(ADLSEDeletedRecord: Record "ADLSE Deleted Record"; var RecordRef: RecordRef)