procedure TransferDimensionSetID(var PurchaseLine: Record "Purchase Line", var AllocationLine: Record "Allocation Line" temporary, ModifiedByUser: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeCreatePurchaseLine(var PurchaseLine: Record "Purchase Line", var AllocationLine: Record "Allocation Line" temporary, var AllocationPurchaseLine: Record "Purchase Line")