Dynamics Community Forum Thread Details

How to copy attachments from warehouse receipt to posted warehouse receipt and posted purchase receipt and posted purchase invoice

How to copy attachments from warehouse receipt to posted warehouse receipt and posted purchase receipt and posted purchase invoice?

I have created part in warehouse receipt and posted whse receipt and posted purchase receipt as below.

        part("Attached Documents"; "Document Attachment Factbox")
            {
                ApplicationArea = All;
                Caption = 'Attachments';
                Editable = false;
                SubPageLink = "Table ID" = const(Database::"Posted Whse. Receipt Header"), "No." = field("No.");
            }

I have used the below subscriber to copy the attachments from warehouse receipt to posted warehouse receipt but only document count is flowing but the documents are not copied. May I know why they are not inserted?

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Post Receipt", 'OnAfterPostedWhseRcptHeaderInsert', '', false, false)]
    local procedure OnAfterPostedWhseRcptHeaderInsert(var PostedWhseReceiptHeader: Record "Posted Whse. Receipt Header"; WarehouseReceiptHeader: Record "Warehouse Receipt Header");
    var
        DocAttmtMgmt: Codeunit "Document Attachment Mgmt";
        DocExists: Boolean;
        FromRecRef: RecordRef;
        ToRecRef: RecordRef;
        FromDocumentAttachment: Record "Document Attachment";
        ToDocumentAttachment: Record "Document Attachment";
        FromFieldRef: FieldRef;
        ToFieldRef: FieldRef;
        FromNo: Code[20];
        ToNo: Code[20];
        ToDocumentType: Enum "Incoming Document Type";
        ToLineNo: Integer;
    begin
        FromRecRef.Get(WarehouseReceiptHeader.RecordId);
        ToRecRef.Get(PostedWhseReceiptHeader.RecordId);
        DocExists := DocAttmtMgmt.AttachedDocumentsExist(FromRecRef);
        if (DocExists = true) then begin
          
            FromDocumentAttachment.SetRange("Table ID", FromRecRef.Number);
            case FromRecRef.Number() of
                DATABASE::"Warehouse Receipt Header":
                    begin
                        FromFieldRef := FromRecRef.Field(1);
                        FromNo := FromFieldRef.Value();
                        FromDocumentAttachment.SetRange("No.", FromNo);
                    end;
            end;

            if FromDocumentAttachment.FindSet() then
                repeat
                    Clear(ToDocumentAttachment);
                    ToDocumentAttachment.Init();
                    ToDocumentAttachment.TransferFields(FromDocumentAttachment);
                    ToDocumentAttachment.Validate("Table ID", ToRecRef.Number);

                    case ToRecRef.Number() of
                        DATABASE::"Posted Whse. Receipt Header":
                            begin
                                ToFieldRef := ToRecRef.Field(1);
                                ToNo := ToFieldRef.Value();
                                ToDocumentAttachment.Validate("No.", ToNo);
                            end;

                    end;
                    
                   ToDocumentAttachment.Insert(true);

                until FromDocumentAttachment.Next() = 0;
        end;
    end;
}

Categories:

Development / Customization / SDK

Business Central

Quick Links

Leaderboard