search

microsoft / ALAppExtensions

Repository for collaboration on Microsoft AL application add-on and localization extensions for Microsoft Dynamics 365 Business Central.
MIT License
748 stars 600 forks source link

[Event Request] Page 700 Page Management - Procedure GetSalesHeaderPageID - OnBeforeGetSalesHeaderPageID #26749

Open MH1612 opened 1 week ago

MH1612 commented 1 week ago

Describe the request

Please add the following Event/-s OnBeforeGetSalesHeaderPageID to procedure GetSalesHeaderPageID in Page 700 Page Management

[Event Request] Page 700 Page Management - Procedure GetSalesHeaderPageID
    local procedure GetSalesHeaderPageID(RecRef: RecordRef): Integer
    var
        SalesHeader: Record "Sales Header";
        IsHandled : Boolean:
    begin
        // NEW
        IsHandled := FALSE;
        OnBeforeGetSalesHeaderPageID(RecRef,IsHandled);
        IF IsHandled  THEN
          EXIT;
        // NEW

        RecRef.SetTable(SalesHeader);
        case SalesHeader."Document Type" of
            SalesHeader."Document Type"::Quote:
                exit(PAGE::"Sales Quote");
            SalesHeader."Document Type"::Order:
                exit(PAGE::"Sales Order");
            SalesHeader."Document Type"::Invoice:
                exit(PAGE::"Sales Invoice");
            SalesHeader."Document Type"::"Credit Memo":
                exit(PAGE::"Sales Credit Memo");
            SalesHeader."Document Type"::"Blanket Order":
                exit(PAGE::"Blanket Sales Order");
            SalesHeader."Document Type"::"Return Order":
                exit(PAGE::"Sales Return Order");
        end;
    end;

 [IntegrationEvent(false, false)]
 local procedure OnBeforeGetSalesHeaderPageID(RecRef: RecordRef,var IsHandled : Boolean)
    begin
    end;

Additional context

Preparation for use of rebooking orders Internal work item: AB#539823