page 50151 /CE Purchase Order Simple/
{
Caption = 'Purchase Order Simple';
PageType = List;
InsertAllowed = false;
DeleteAllowed = false;
SourceTable = /Purchase Header/;
SourceTableView = WHERE(/Document Type/ = CONST(/Order/));
ApplicationArea = All;
UsageCategory = Lists;
layout
{
area(content)
{
repeater(Control1)
{
field(/Order Number/; Rec./No./)
{
ApplicationArea = All;
Caption = 'Order Number';
ToolTip = 'Purchase Order Number';
Editable = false;
Width = 7;
}
field(Status; Rec.Status)
{
ApplicationArea = Suite;
ToolTip = 'Specifies whether the record is open, waiting to be approved, invoiced for prepayment, or released to the next stage of processing.';
StyleExpr = StatusStyleTxt;
Editable = false;
}
field(/Vendor/; Rec./Buy-from Vendor No./)
{
ApplicationArea = All;
Caption = 'Vendor';
ToolTip = 'Specifies the number of the vendor who delivers the products.';
Editable = false;
Width = 6;
}
field(/Vendor Name/; Rec./Buy-from Vendor Name/)
{
ApplicationArea = All;
Caption = 'Vendor Name';
ToolTip = 'Specifies the name of the vendor who delivers the products.';
Editable = false;
Width = 30;
}
field(/Location/; Rec./Location Code/)
{
ApplicationArea = All;
Caption = 'Location';
ToolTip = 'Specifies a code for the location where you want the items to be placed when they are received.';
Editable = false;
Width = 4;
}
field(/Requested Receipt Date/; Rec./Requested Receipt Date/)
{
ApplicationArea = All;
ToolTip = 'Specifies the date that you want the vendor to deliver to the ship-to address.';
Width = 12;
}
field(/Promised Receipt Date/; Rec./Promised Receipt Date/)
{
ApplicationArea = All;
ToolTip = 'Specifies the date that the vendor has promised to deliver the order.';
Width = 12;
trigger OnValidate()
begin
Rec.SuspendStatusCheck(true);
end;
}
}
}
}
trigger OnAfterGetRecord()
begin
StatusStyleTxt := Rec.GetStatusStyleText();
Rec.SuspendStatusCheck(true);
end;
trigger OnOpenPage()
begin
BindSubscription(CePurchaseSuspendCheck);
end;
trigger OnClosePage()
begin
UnbindSubscription(CePurchaseSuspendCheck);
end;
var
CePurchaseSuspendCheck: Codeunit /CE Purchase Suspend Check/;
StatusStyleTxt: Text;
}