ItemAvailbleTable.Reset();
ItemAvailbleTable.SetRange("Item No.", MOItem."Item No.");
IF ItemAvailbleTable.FindFirst() THEN;
ItemAvailblePage.LookupMode(true);
ItemAvailblePage.SetTableView(ItemAvailbleTable);
if ItemAvailblePage.RunModal() = Action::LookupOK then begin
ItemAvailbleTableTemp.Reset();
ItemAvailbleTableTemp.SetRange("Item No.", ItemAvailbleTable."Item No.");
IF ItemAvailbleTableTemp.FindFirst() THEN;
MOItem.Reset();
MOItem.SetRange("MOCode", Rec."MOCode");
if MOItem.FindFirst() then
ItemAvailbleTableTemp.Reset();
ItemAvailblePage.SetSelectionFilter(ItemAvailbleTableTemp);
ItemAvailbleTableTemp.SetCurrentKey("Item No.", "Location Code");
if ItemAvailbleTableTemp.FindSet() then begin
repeat
MOItem.Quantity := ItemAvailbleTable."Qty to Allocate";
MOItem."Location Code" := ItemAvailbleTable."Location Code";
MOItem."Unit Price excl. VAT" := ItemAvailbleTable."Last Unit Price";
MOItem."Line Amount excl. VAT" := MOItem.Quantity * MOItem."Unit Price excl. VAT";
MOItem.Modify(true);
LineNo += 1000;
until ItemAvailbleTable.Next() = 0;
end;
end;