trigger OnBeforeOpen()
var
PurchaseLine_L: Record "Purchase Line";
WTTempPurchaseLine_L: Record "WT Temp Purchase Line";
begin
PurchaseLine_L.Reset();
PurchaseLine_L.SetRange("Location Code", '0110');
PurchaseLine_L.SetRange("Document Type", PurchaseLine_L."Document Type"::Order);
PurchaseLine_L.LoadFields("Document Type", "Location Code", "No.", "Variant Code");
if PurchaseLine_L.FindSet() then
repeat
WTTempPurchaseLine_L.Init();
WTTempPurchaseLine_L.TransferFields(PurchaseLine_L);
if WTTempPurchaseLine_L.Insert() then;
until PurchaseLine_L.Next() = 0;
end;