page 50100 /InvoicesforWarehouseFilePage/
{
Caption = 'Invoices for Warehouse File';
PageType = List;
UsageCategory = Lists;
ApplicationArea = All;
SourceTable = /InvoicesforWarehouseFileTemp/;
Editable = false;
layout
{
area(Content)
{
repeater(Group)
{
field(/Order Number/; Rec./DocumentNo/)
{
ApplicationArea = All;
}
field(/Ship-to-Name/; Rec./Ship-to-Name/)
{
ApplicationArea = All;
}
field(/Customer PO/; Rec./External Document No/)
{
ApplicationArea = All;
}
field(/Address 1/; Rec./Ship-to Address/)
{
ApplicationArea = All;
}
field(/Address 2/; Rec./Ship-to Address 2/)
{
ApplicationArea = All;
}
field(/Address 3/; Rec./Ship-to Address 3/)
{
ApplicationArea = All;
}
field(/Suburb/; Rec./Ship-to City/)
{
ApplicationArea = All;
}
field(/State/; Rec./Ship-to County/)
{
ApplicationArea = All;
}
field(/Postcode/; Rec./Ship-to Post Code/)
{
ApplicationArea = All;
}
field(/Contact/; Rec./Sell-to Contact/)
{
ApplicationArea = All;
}
field(/Phone/; Rec./Sell-to Phone No./)
{
ApplicationArea = All;
}
field(/Contact Email/; Rec./Sell-to E-Mail/)
{
ApplicationArea = All;
}
field(/Instructions/; Rec./Shipping Instructions/)
{
ApplicationArea = All;
}
field(/Carrier/; Rec./Shipment Method Code/)
{
ApplicationArea = All;
}
field(/Product Code/; Rec./Product Code/)
{
ApplicationArea = All;
}
field(/Quantity/; Rec./Quantity/)
{
ApplicationArea = All;
}
}
}
}
trigger OnOpenPage()
var
InvoicesforWarehouseFileQuery: Query InvoicesforWarehouseFileQuery;
begin
CurrPage.Editable(false);
if InvoicesforWarehouseFileQuery.Open() then begin
while InvoicesforWarehouseFileQuery.Read()
do begin
Rec.Init();
Rec.RowNo := Rec.RowNo + 1;
Rec.DocumentNo := InvoicesforWarehouseFileQuery.DocumentNo;
Rec./External Document No/ := InvoicesforWarehouseFileQuery.External_Document_No_;
Rec./Ship-to-Name/ := InvoicesforWarehouseFileQuery.ShiptoName;
Rec./Ship-to Address/ := InvoicesforWarehouseFileQuery.ShiptoAddress;
Rec./Ship-to Address 2/ := InvoicesforWarehouseFileQuery.ShiptoAddress2;
Rec./Ship-to Address 3/ := InvoicesforWarehouseFileQuery.ShiptoAddress3;
Rec./Ship-to City/ := InvoicesforWarehouseFileQuery.ShiptoCity;
Rec./Ship-to County/ := InvoicesforWarehouseFileQuery.ShiptoCounty;
Rec./Ship-to Post Code/ := InvoicesforWarehouseFileQuery.ShiptoPostCode;
Rec./Sell-to Contact/ := InvoicesforWarehouseFileQuery.SelltoContact;
Rec./Sell-to Phone No./ := InvoicesforWarehouseFileQuery.SelltoPhoneNo;
Rec./Sell-to E-Mail/ := InvoicesforWarehouseFileQuery.SelltoEMail;
Rec./Shipping Instructions/ := InvoicesforWarehouseFileQuery.Shipping_Instructions;
Rec./Shipment Method Code/ := InvoicesforWarehouseFileQuery.ShipmentMethodCode;
Rec./Product Code/ := InvoicesforWarehouseFileQuery.No_;
Rec./Quantity/ := InvoicesforWarehouseFileQuery.Quantity;
Rec.Insert()
end;
InvoicesforWarehouseFileQuery.Close();
end;
end;
}
