pageextension 50600 "IWX Released Prod. Order" extends "Released Production Order"
{
    layout
    {
        addfirst(factboxes)
        {
            part("IWX Attached Documents"; "Document Attachment Factbox")
            {
                ApplicationArea = All;
                Caption = 'Attachments';
                SubPageLink = "Table ID" = const(5405),
                              "No." = field("No.");
            }
        }
    }
}

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"IWX DocXtender", 'OnGetCustomRecRefFromDocAttachment'
    , '', false, false)]
    local procedure OnGetCustomRecRefFromDocAttachmentDocXtender(precDocumentAttachment: Record "Document 
    Attachment"; var prrRecordRef: RecordRef; var lbRecordRefHandled: Boolean);
    var
        lrecProductionOrder: Record "Production Order";
    begin
        // Set the table for the custom record, when attached documents using drag-and-drop with DocXtender
        if not lbRecordRefHandled then begin
            case precDocumentAttachment."Table ID" of
                Database::"Production Order":
                    begin
                        prrRecordRef.Open(Database::"Production Order");
                        if lrecProductionOrder.Get(lrecProductionOrder.Status::Released, 
                        precDocumentAttachment."No.") then begin
                            prrRecordRef.GetTable(lrecProductionOrder);
                            lbRecordRefHandled := true;
                        end;
                    end;
            end;
        end;
    end;

[EventSubscriber(ObjectType::Codeunit, Codeunit::”IWX DocXtender”, ‘OnAfterOpenForRecRef’, ”, false, false)]

local procedure OnAfterOpenForRecRefDocXtender(var precDocumentAttachment: Record “Document Attachment”; var prrRecordRef: RecordRef);

var

lfrFieldRef: FieldRef;
lcodRecNo: Code[20];

begin

    // Set filter for custom record when opening document attachment details

case prrRecordRef.Number of

Database::”Production Order”:

begin

lfrFieldRef := prrRecordRef.Field(2);

lcodRecNo := lfrFieldRef.Value;

precDocumentAttachment.SetRange(“No.”, lcodRecNo);

precDocumentAttachment.SetRange(“Line No.”, 0);

end;

end;

end;

[EventSubscriber(ObjectType::Page, Page::”Document Attachment Details”, ‘OnAfterOpenForRecRef’, ”, false, false)]

local procedure OnAfterOpenForRecRef(var DocumentAttachment: Record “Document Attachment”; var RecRef: RecordRef);

var

lfrFieldRef: FieldRef;

lcodRecNo: Code[20];

begin

    // Set filter for custom record when opening document attachment details

case RecRef.Number of

Database::”Production Order”:

begin

lfrFieldRef := RecRef.Field(2);

lcodRecNo := lfrFieldRef.Value;

DocumentAttachment.SetRange(“No.”, lcodRecNo);

DocumentAttachment.SetRange(“Line No.”, 0);

end;

end;

end;

[EventSubscriber(ObjectType::Page, Page::”Document Attachment Factbox”, ‘OnBeforeDrillDown’, ”, false, false)]

local procedure OnBeforeDrillDown(DocumentAttachment: Record “Document Attachment”; var RecRef: RecordRef);

var

lrecProductionOrder: Record “Production Order”;

begin

    // Set the table for the custom record, when attaching documents manually

case DocumentAttachment.”Table ID” of

Database::”Production Order”:

begin

RecRef.Open(Database::”Production Order”);

if lrecProductionOrder.Get(lrecProductionOrder.Status::Released, DocumentAttachment.”No.”) then

RecRef.GetTable(lrecProductionOrder);

end;

end;

end;