Add Quoted/Ordered price aggregates to PVS Case List

Prototyping/PVSCase.TableExt.al

@@ -0,0 +1,24 @@
+tableextension 50100 "PVS Case Ext. Pricing" extends "PVS Case"
+{
+    fields
+    {
+        field(50100; "Quoted Price"; Decimal)
+        {
+            Caption = 'Quoted Price';
+            Editable = false;
+            FieldClass = FlowField;
+            CalcFormula = sum("PVS Job"."Price" where("Case ID" = field("Case ID"),
+                                                      Active = const(true),
+                                                      Status = const(Quote)));
+        }
+        field(50101; "Ordered Price"; Decimal)
+        {
+            Caption = 'Ordered Price';
+            Editable = false;
+            FieldClass = FlowField;
+            CalcFormula = sum("PVS Job"."Price" where("Case ID" = field("Case ID"),
+                                                      Active = const(true),
+                                                      Status = const(Order)));
+        }
+    }
+}

Prototyping/PVSCaseList.PageExt.al

@@ -0,0 +1,19 @@
+pageextension 50101 "PVS Case List Ext. Pricing" extends "PVS Case List"
+{
+    layout
+    {
+        addlast(Content)
+        {
+            field("Quoted Price"; Rec."Quoted Price")
+            {
+                ApplicationArea = All;
+                ToolTip = 'Specifies the sum of active PVS Job prices for this case where the status is Quote.';
+            }
+            field("Ordered Price"; Rec."Ordered Price")
+            {
+                ApplicationArea = All;
+                ToolTip = 'Specifies the sum of active PVS Job prices for this case where the status is Order.';
+            }
+        }
+    }
+}