Check for GuiAllowed / ClientType ODataV4 / API/ OData on Standard Pages

[pri-kise]

The standard checks on some page in the OnAfterGetCurrRecord for the ClientType to suppress code for Open in Excel or for Pages that are suppresed as Web Services.
page 39 "General Journal"

    trigger OnAfterGetCurrRecord()
    begin
        GenJnlManagement.GetAccounts(Rec, AccName, BalAccName);
        if ClientTypeManagement.GetCurrentClientType() <> CLIENTTYPE::ODataV4 then
            UpdateBalance();
        EnableApplyEntriesAction();
        SetControlAppearance();
        HasIncomingDocument := "Incoming Document Entry No." <> 0;
        CurrPage.IncomingDocAttachFactBox.PAGE.SetCurrentRecordID(RecordId);
        // PostedFromSimplePage is set to TRUE when 'POST' / 'POST+PRINT' action is executed in simple page mode.
        // It gets set to FALSE when OnNewRecord is called in the simple mode.
        // After posting we try to find the first record and filter on its document number
        // Executing LoaddataFromRecord for incomingDocAttachFactbox is also forcing this (PAG39) page to update
        // and for some reason after posting this page doesn't refresh with the filter set by POST / POST-PRINT action in simple mode.
        // To resolve this only call LoaddataFromRecord if PostedFromSimplePage is FALSE.
        if not PostedFromSimplePage then
            CurrPage.IncomingDocAttachFactBox.PAGE.LoadDataFromRecord(Rec);
        SetJobQueueVisibility();
    end;

page page 42 "Sales Order"

trigger OnAfterGetCurrRecord()
var
    SalesHeader: Record "Sales Header";
    CRMCouplingManagement: Codeunit "CRM Coupling Management";
    CustCheckCrLimit: Codeunit "Cust-Check Cr. Limit";
    IsHandled: Boolean;
begin
    if GuiAllowed() then begin
        IsSalesLinesEditable := Rec.SalesLinesEditable();
        CurrPage.IncomingDocAttachFactBox.PAGE.LoadDataFromRecord(Rec);
        CurrPage.ApprovalFactBox.PAGE.UpdateApprovalEntriesFromSourceRecord(RecordId);
    end;
    CRMIsCoupledToRecord := CRMIntegrationEnabled;
    if CRMIsCoupledToRecord then
        CRMIsCoupledToRecord := CRMCouplingManagement.IsRecordCoupledToCRM(RecordId);
    if GuiAllowed() then begin
        ShowWorkflowStatus := CurrPage.WorkflowStatus.PAGE.SetFilterOnWorkflowRecord(RecordId);
        UpdatePaymentService();
        if CallNotificationCheck then begin
            SalesHeader := Rec;
            SalesHeader.CalcFields("Amount Including VAT");
            OnOnAfterGetCurrRecordOnBeforeSalesHeaderCheck(SalesHeader);
            CustCheckCrLimit.SalesHeaderCheck(SalesHeader);
            IsHandled := false;
            OnAfterGetCurrRecordOnBeforeCheckItemAvailabilityInLines(Rec, IsHandled);
            if not IsHandled then
                CheckItemAvailabilityInLines();
            CallNotificationCheck := false;
        end;
        StatusStyleTxt := GetStatusStyleText();
        SetControlVisibility();
    end;
end;