Table 1400 Service Connection

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Utilities;

table 1400 "Service Connection"
{
    Caption = 'Service Connection';
    ReplicateData = false;
    TableType = Temporary;
    DataClassification = CustomerContent;

    fields
    {
        field(1; "No."; Text[250])
        {
            Caption = 'No.';
        }
        field(2; "Record ID"; RecordID)
        {
            Caption = 'Record ID';
            DataClassification = CustomerContent;
        }
        field(3; Name; Text[250])
        {
            Caption = 'Name';
            ToolTip = 'Specifies the service. The description is based on the name of the setup page that opens when you choose the Setup.';
        }
        field(4; "Host Name"; Text[250])
        {
            Caption = 'Host Name';
            ToolTip = 'Specifies the name of the web service. This is typically a URL.';
        }
        field(8; Status; Option)
        {
            Caption = 'Status';
            ToolTip = 'Specifies if the service is enabled or disabled.';
            OptionCaption = ' ,Enabled,Disabled,Connected,Error';
            OptionMembers = " ",Enabled,Disabled,Connected,Error;
        }
        field(10; "Page ID"; Integer)
        {
            Caption = 'Page ID';
        }
        field(11; "Assisted Setup Page ID"; Integer)
        {
            Caption = 'Assisted Setup Page ID';
        }
    }

    keys
    {
        key(Key1; "No.")
        {
            Clustered = true;
        }
    }

    fieldgroups
    {
    }

    [IntegrationEvent(false, false)]
    procedure OnRegisterServiceConnection(var ServiceConnection: Record "Service Connection")
    begin
    end;

    procedure InsertServiceConnection(var ServiceConnection: Record "Service Connection"; RecordID: RecordID; ServiceName: Text; HostName: Text; PageID: Integer)
    begin
        InsertServiceConnectionExtended(ServiceConnection, RecordID, ServiceName, HostName, PageID, 0);
    end;

    procedure InsertServiceConnectionExtended(var ServiceConnection: Record "Service Connection"; RecordID: RecordID; ServiceName: Text; HostName: Text; PageID: Integer; AssistedSetupPageId: Integer)
    var
        ServiceConnectionOld: Record "Service Connection";
    begin
        if Format(RecordID) = '' then
            exit;
        ServiceConnection."Record ID" := RecordID;
        ServiceConnection."No." := Format(RecordID);
        ServiceConnection.Name := CopyStr(ServiceName, 1, MaxStrLen(ServiceConnection.Name));
        ServiceConnection."Host Name" := CopyStr(HostName, 1, MaxStrLen(ServiceConnection."Host Name"));
        ServiceConnection."Page ID" := PageID;
        ServiceConnection."Assisted Setup Page ID" := AssistedSetupPageId;
        ServiceConnectionOld := ServiceConnection;
        if not ServiceConnection.Get(ServiceConnection."No.") then begin
            ServiceConnection := ServiceConnectionOld;
            ServiceConnection.Insert(true)
        end;
    end;
}