★ Featured App
NAVAX Document Text
Advanced Extended Texts (beginning/ending/line texts) for sales, purchase and service documents.
More information AppSource
[EventSubscriber(ObjectType::Codeunit, Codeunit::"NVXDD Event Mgt.", 'OnAfterGetRecRefFromDocumentAttachment', '', false, false)]
local procedure NVXDDEventMgt_OnAfterGetRecRefFromDocumentAttachment(DocumentAttachment: Record "Document Attachment"; var RecordRef: RecordRef)
begin
case RecordRef.Number of
Database::Customer:
begin
FieldRef := RecordRef.Field(1);
FieldRef.Value := DocumentAttachment."No.";
end;
Database::"Sales Header":
begin
FieldRef := RecordRef.Field(1);
FieldRef.Value := DocumentAttachment."Document Type";
FieldRef := RecordRef.Field(3);
FieldRef.Value := DocumentAttachment."No.";
end;
Database::"Sales Line":
begin
FieldRef := RecordRef.Field(1);
FieldRef.Value := DocumentAttachment."Document Type";
FieldRef := RecordRef.Field(3);
FieldRef.Value := DocumentAttachment."No.";
FieldRef := RecordRef.Field(4);
FieldRef.Value := DocumentAttachment."Line No.";
end;
end;
end;
![]() | NAVAX Document Text Advanced Extended Texts (beginning/ending/line texts) for sales, purchase and service documents. More information ![]() |