Fix of assigning field/value ID (Err: Record #ObjectID, #FieldID alre…

…ady exists)
TKapitan · Mar 13, 2021 · aefd2fb · aefd2fb
1 parent 6017ea1
commit aefd2fb
Show file tree

Hide file tree

Showing 4 changed files with 18 additions and 3 deletions.
diff --git a/App/Src/AssignableRanges/AssignableRangeHeader.Table.al b/App/Src/AssignableRanges/AssignableRangeHeader.Table.al
@@ -357,7 +357,8 @@ table 80001 "C4BC Assignable Range Header"
         if Rec."Ranges per BC Instance" and (ForBusinessCentralInstance = '') then
             Error(MissingParameterErr, Rec.FieldCaption("Ranges per BC Instance"));
 
-        C4BCExtensionObjectLine.SetCurrentKey("Object Type", "Object ID");
+        C4BCExtensionObjectLine.SetCurrentKey("Object Type", "ID");
+        C4BCExtensionObjectLine.SetAscending("ID", true);
         C4BCExtensionObjectLine.SetRange("Object Type", ForObjectType);
         C4BCExtensionObjectLine.SetRange("Assignable Range Code", Rec."Code");
         if Rec."Ranges per BC Instance" then begin

diff --git a/App/Src/Extensions/API/ExtensionObjectLAPI.Page.al b/App/Src/Extensions/API/ExtensionObjectLAPI.Page.al
@@ -40,6 +40,10 @@ page 80012 "C4BC Extension Object L. API"
                 {
                     ApplicationArea = All;
                 }
+                field(name; Rec.Name)
+                {
+                    ApplicationArea = All;
+                }
                 field(systemCreatedAt; Rec.SystemCreatedAt)
                 {
                     ApplicationArea = All;

diff --git a/App/Src/Extensions/ExtensionObjectLine.Table.al b/App/Src/Extensions/ExtensionObjectLine.Table.al
@@ -29,10 +29,14 @@ table 80006 "C4BC Extension Object Line"
         field(5; ID; Integer)
         {
             Caption = 'ID';
-            Editable = false;
             DataClassification = CustomerContent;
         }
-        field(6; "Created By"; Text[50])
+        field(6; Name; Text[30])
+        {
+            Caption = 'Name';
+            DataClassification = CustomerContent;
+        }
+        field(7; "Created By"; Text[50])
         {
             Caption = 'Created By';
             DataClassification = SystemMetadata;
@@ -65,6 +69,7 @@ table 80006 "C4BC Extension Object Line"
         {
             Clustered = true;
         }
+        key(Fields; "Object Type", "ID") { }
     }
 
     trigger OnInsert()

diff --git a/App/Src/Extensions/ExtensionObjectLines.Page.al b/App/Src/Extensions/ExtensionObjectLines.Page.al
@@ -20,6 +20,11 @@ page 80010 "C4BC Extension Object Lines"
                     ApplicationArea = All;
                     ToolTip = 'ID of the field or the enum value';
                 }
+                field(Name; Rec.Name)
+                {
+                    ToolTip = 'Specifies name of the field. The evidence of field names is optional.';
+                    ApplicationArea = All;
+                }
                 field("Created By"; Rec."Created By")
                 {
                     ApplicationArea = All;