Hi, please try the following.
tableextension 50133 PurchaseHeaderExt extends "Purchase Header"
{
fields
{
field(50100; ZYTest; Text[100])
{
Caption = 'ZY Test';
DataClassification = CustomerContent;
}
}
}
pageextension 50133 PurchaseOrderExt extends "Purchase Order"
{
layout
{
addafter(Status)
{
field(ZYTest; Rec.ZYTest)
{
ApplicationArea = All;
}
}
}
}
tableextension 50134 ItemJournalLineExt extends "Item Journal Line"
{
fields
{
field(50100; ZYTest; Text[100])
{
Caption = 'ZY Test';
DataClassification = CustomerContent;
}
}
}
tableextension 50135 ValueEntry extends "Value Entry"
{
fields
{
field(50100; ZYTest; Text[100])
{
Caption = 'ZY Test';
DataClassification = CustomerContent;
}
}
}
pageextension 50135 ValueEntries extends "Value Entries"
{
layout
{
addafter("Document No.")
{
field(ZYTest; Rec.ZYTest)
{
ApplicationArea = All;
}
}
}
}
codeunit 50134 FlowDatatoValueEntry
{
[EventSubscriber(ObjectType::Table, Database::"Item Journal Line", 'OnAfterCopyItemJnlLineFromPurchHeader', '', false, false)]
local procedure OnAfterCopyItemJnlLineFromPurchHeader(var ItemJnlLine: Record "Item Journal Line"; PurchHeader: Record "Purchase Header");
begin
ItemJnlLine.ZYTest := PurchHeader.ZYTest;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Item Jnl.-Post Line", 'OnBeforeInsertValueEntry', '', false, false)]
local procedure OnBeforeInsertValueEntry(var ValueEntry: Record "Value Entry"; ItemJournalLine: Record "Item Journal Line"; var ItemLedgerEntry: Record "Item Ledger Entry"; var ValueEntryNo: Integer; var InventoryPostingToGL: Codeunit "Inventory Posting To G/L"; CalledFromAdjustment: Boolean; var OldItemLedgEntry: Record "Item Ledger Entry"; var Item: Record Item; TransferItem: Boolean; var GlobalValueEntry: Record "Value Entry");
begin
ValueEntry.ZYTest := ItemJournalLine.ZYTest;
end;
}
Thanks.
ZHU
