[EventSubscriber(ObjectType::Report, Report::/Get Source Documents/, 'OnAfterPostDataItemPurchaseHeader', '', false, false)]
local procedure OnAfterPostDataItemPurchaseHeader(var PurchaseHeader: Record /Purchase Header/; var PurchaseLine: Record /Purchase Line/; var WarehouseRequest: Record /Warehouse Request/; var WhseReceiptHeader: Record /Warehouse Receipt Header/)
begin
WhseReceiptHeader.Port of Discharge:= PurchaseHeader.Port of Discharge;
WhseReceiptHeader. Port of Landing := PurchaseHeader.Port of Landing;
end;
Thanks & Regards
Satish.