#1978 HasDatabaseUpgradeTag (#2061)

#### Summary <!-- Provide a general summary of your changes -->
Adds HasDatabaseUpgradeTag() procedure to make the setters and getters
the same.

#### Work Item(s) <!-- Add the issue number here after the #. The issue
needs to be open and approved. Submitting PRs with no linked issues or
unapproved issues is highly discouraged. -->
Fixes #1978

---------

Co-authored-by: Jesper Schulz-Wedde <[email protected]>
Co-authored-by: Natalie Karolak, MVP <[email protected]>

src/System Application/App/Upgrade Tags/src/UpgradeTag.Codeunit.al

@@ -43,6 +43,16 @@ codeunit 9999 "Upgrade Tag"
         exit(UpgradeTagImpl.HasUpgradeTag(Tag, TagCompanyName));
     end;
 
+    /// <summary>
+    /// Verifies if the database upgrade tag exists.
+    /// </summary>
+    /// <param name="Tag">Tag code to check</param>
+    /// <returns>True if the Tag with the given code exists.</returns>
+    procedure HasDatabaseUpgradeTag(Tag: Code[250]): Boolean
+    begin
+        exit(UpgradeTagImpl.HasDatabaseUpgradeTag(Tag));
+    end;
+
     /// <summary>
     /// Sets the upgrade tag for database upgrades.
     /// </summary>

src/System Application/App/Upgrade Tags/src/UpgradeTagImpl.Codeunit.al

@@ -25,6 +25,11 @@ codeunit 9996 "Upgrade Tag Impl."
         exit(HasUpgradeTag(Tag, CopyStr(CompanyName(), 1, MaxStrLen(ConstUpgradeTags.Company))));
     end;
 
+    procedure HasDatabaseUpgradeTag(Tag: Code[250]): Boolean
+    begin
+        exit(HasUpgradeTag(Tag, ''));
+    end;
+
     procedure HasUpgradeTag(Tag: Code[250]; TagCompanyName: Code[30]): Boolean
     var
         UpgradeTags: Record "Upgrade Tags";