Hi:
Below is AL code for a query and page that I created in Visual Studio Code.
Upon publishing, I receive no error. But, the list page does not appear in my Sandbox.
Does anyone have any ideas, as to why not?
Thanks!
John
query 50100 "Lot Avail. by Bin"
{
QueryType = Normal;
elements
{
dataitem(Item_Ledger_Entry; "Item Ledger Entry")
{
column(Item_No_; "Item No.") { }
column(Lot_No_; "Lot No.") { }
dataitem(Warehouse_Entry; "Warehouse Entry")
{
DataItemLink = "Location Code" = Item_Ledger_Entry."Location Code",
"Item No." = Item_Ledger_Entry."Item No.",
"Lot No." = Item_Ledger_Entry."Lot No.";
column(Entry_No_; "Entry No.") { }
column(Location_Code; "Location Code") { }
column(Zone_Code; "Zone Code") { }
column(Bin_Code; "Bin Code") { }
column(Sum_Quantity; Quantity) { Method = Sum; }
dataitem(Bin; Bin)
{
DataItemLink = Code = Warehouse_Entry."Bin Code";
dataitem(Bin_Type; "Bin Type")
{
DataItemLink = Code = Bin.Code;
DataItemTableFilter = Pick = CONST(true);
}
}
}
}
}
}
page 50141 "Lot Avail. by Bin"
{
PageType = List;
SourceTable = "Warehouse Entry";
SourceTableTemporary = true;
UsageCategory = Lists;
layout
{
area(Content)
{
repeater(Group)
{
field("Item No."; "Item No.") { ApplicationArea = Basic; }
field("Location Code"; "Location Code") { ApplicationArea = Basic; }
field("Bin Code"; "Bin Code") { ApplicationArea = Basic; }
field("Serial No."; "Serial No.") { ApplicationArea = Basic; }
field(Quantity; Quantity) { ApplicationArea = Basic; }
}
}
}
trigger OnOpenPage()
var
LotAvail: Query "Lot Avail. by Bin";
begin
LotAvail.Open;
while LotAvail.Read do begin
Init;
"Item No." := LotAvail.Item_No_;
"Bin Code" := LotAvail.Bin_Code;
Quantity := LotAvail.Sum_Quantity;
end;
end;
}
