Table 9051 Warehouse WMS Cue, source in 29
Source29
src/Layers/W1/BaseApp/Warehouse/RoleCenters/WarehouseWMSCue.Table.al233 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Warehouse.RoleCenters;
using Microsoft.Inventory.Location;
using Microsoft.Purchases.Document;
using Microsoft.Purchases.History;
using Microsoft.Sales.Document;
using Microsoft.Sales.History;
using Microsoft.Warehouse.Activity;
using Microsoft.Warehouse.Activity.History;
using Microsoft.Warehouse.Document;
using Microsoft.Warehouse.History;
using Microsoft.Warehouse.Setup;
using System.Text;
table 9051 "Warehouse WMS Cue"
{
Caption = 'Warehouse WMS Cue';
DataClassification = CustomerContent;
fields
{
field(1; "Primary Key"; Code[10])
{
AllowInCustomizations = Never;
Caption = 'Primary Key';
}
field(2; "Released Sales Orders - Today"; Integer)
{
AccessByPermission = TableData "Sales Shipment Header" = R;
CalcFormula = count("Sales Header" where("Document Type" = filter(Order),
Status = filter(Released),
"Shipment Date" = field("Date Filter"),
"Location Code" = field("Location Filter")));
Caption = 'Released Sales Orders - Today';
ToolTip = 'Specifies the number of released sales orders that are displayed in the Warehouse WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
field(3; "Shipments - Today"; Integer)
{
CalcFormula = count("Warehouse Shipment Header" where("Shipment Date" = field("Date Filter"),
"Location Code" = field("Location Filter")));
Caption = 'Shipments - Today';
ToolTip = 'Specifies the number of shipments that are displayed in the Warehouse WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
field(4; "Posted Shipments - Today"; Integer)
{
CalcFormula = count("Posted Whse. Shipment Header" where("Posting Date" = field("Date Filter2"),
"Location Code" = field("Location Filter")));
Caption = 'Posted Shipments - Today';
ToolTip = 'Specifies the number of posted shipments that are displayed in the Warehouse WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
field(5; "Expected Purchase Orders"; Integer)
{
AccessByPermission = TableData "Purch. Rcpt. Header" = R;
CalcFormula = count("Purchase Header" where("Document Type" = filter(Order),
Status = filter(Released),
"Expected Receipt Date" = field("Date Filter"),
"Location Code" = field("Location Filter")));
Caption = 'Expected Purchase Orders';
ToolTip = 'Specifies the number of expected purchase orders that are displayed in the Warehouse WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
field(6; Arrivals; Integer)
{
CalcFormula = count("Warehouse Receipt Header" where("Location Code" = field("Location Filter")));
Caption = 'Arrivals';
ToolTip = 'Specifies the number of arrivals that are displayed in the Warehouse WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
field(7; "Posted Receipts - Today"; Integer)
{
CalcFormula = count("Posted Whse. Receipt Header" where("Posting Date" = field("Date Filter2"),
"Location Code" = field("Location Filter")));
Caption = 'Posted Receipts - Today';
ToolTip = 'Specifies the number of posted receipts that are displayed in the Warehouse WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
field(8; "Picked Shipments - Today"; Integer)
{
CalcFormula = count("Warehouse Shipment Header" where("Shipment Date" = field("Date Filter"),
"Location Code" = field("Location Filter"),
"Document Status" = filter("Partially Picked" | "Completely Picked")));
Caption = 'Picked Shipments - Today';
ToolTip = 'Specifies the number of picked shipments that are displayed in the Warehouse WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
field(9; "Picks - All"; Integer)
{
CalcFormula = count("Warehouse Activity Header" where(Type = filter(Pick),
"Location Code" = field("Location Filter")));
Caption = 'Picks - All';
ToolTip = 'Specifies the number of picks that are displayed in the Warehouse WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
field(11; "Put-aways - All"; Integer)
{
CalcFormula = count("Warehouse Activity Header" where(Type = filter("Put-away"),
"Location Code" = field("Location Filter")));
Caption = 'Put-aways - All';
ToolTip = 'Specifies the number of put-always that are displayed in the Warehouse WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
field(13; "Movements - All"; Integer)
{
CalcFormula = count("Warehouse Activity Header" where(Type = filter(Movement),
"Location Code" = field("Location Filter")));
Caption = 'Movements - All';
ToolTip = 'Specifies the number of movements that are displayed in the Warehouse WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
field(14; "Registered Picks - Today"; Integer)
{
CalcFormula = count("Registered Whse. Activity Hdr." where(Type = filter(Pick),
"Registering Date" = field("Date Filter2"),
"Location Code" = field("Location Filter")));
Caption = 'Registered Picks - Today';
ToolTip = 'Specifies the number of registered picks that are displayed in the Warehouse WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
field(20; "Date Filter"; Date)
{
Caption = 'Date Filter';
Editable = false;
FieldClass = FlowFilter;
}
field(21; "Date Filter2"; Date)
{
Caption = 'Date Filter2';
Editable = false;
FieldClass = FlowFilter;
}
field(22; "Location Filter"; Code[10])
{
Caption = 'Location Filter';
FieldClass = FlowFilter;
}
field(23; "User ID Filter"; Code[50])
{
Caption = 'User ID Filter';
FieldClass = FlowFilter;
}
field(24; "Unassigned Put-aways"; Integer)
{
CalcFormula = count("Warehouse Activity Header" where(Type = filter("Put-away"),
"Assigned User ID" = filter(''),
"Location Code" = field("Location Filter")));
Caption = 'Unassigned Put-aways';
ToolTip = 'Specifies the number of unassigned put-always that are displayed in the Warehouse Worker WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
field(25; "Unassigned Movements"; Integer)
{
CalcFormula = count("Warehouse Activity Header" where(Type = filter(Movement),
"Assigned User ID" = filter(''),
"Location Code" = field("Location Filter")));
Caption = 'Unassigned Movements';
ToolTip = 'Specifies the number of unassigned movements that are displayed in the Warehouse Worker WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
field(26; "Unassigned Picks"; Integer)
{
CalcFormula = count("Warehouse Activity Header" where(Type = filter(Pick),
"Assigned User ID" = filter(''),
"Location Code" = field("Location Filter")));
Caption = 'Unassigned Picks';
ToolTip = 'Specifies the number of unassigned picks that are displayed in the Warehouse Worker WMS Cue on the Role Center. The documents are filtered by today''s date.';
Editable = false;
FieldClass = FlowField;
}
}
keys
{
key(Key1; "Primary Key")
{
Clustered = true;
}
}
fieldgroups
{
}
procedure GetEmployeeLocation(UserID: Code[50]) LocationString: Text[1024]
var
WhseEmployee: Record "Warehouse Employee";
Location: Record Location;
SelectionFilterManagement: Codeunit SelectionFilterManagement;
begin
LocationString := '';
if UserID <> '' then begin
WhseEmployee.SetRange("User ID", UserID);
if WhseEmployee.FindSet() then
repeat
if WhseEmployee."Location Code" <> '' then begin
Location.Get(WhseEmployee."Location Code");
Location.Mark(true);
end else
LocationString := '''''' + '|';
until WhseEmployee.Next() = 0;
Location.MarkedOnly(true);
LocationString +=
CopyStr(SelectionFilterManagement.GetSelectionFilterForLocation(Location), 1, MaxStrLen(LocationString));
end;
LocationString := DelChr(LocationString, '>', '|');
if LocationString = '' then
LocationString := '''''';
exit(LocationString);
end;
}