From f203a09e0d206e95e67453a4f3ed819c6e3a4cf3 Mon Sep 17 00:00:00 2001 From: 6Cript Date: Wed, 25 Feb 2026 14:37:58 +0100 Subject: [PATCH 1/5] Now the quality inspection card shows the status in bold + green if open --- .../app/src/Document/QltyInspection.Page.al | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al b/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al index 891316b610..afd08a84c2 100644 --- a/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al +++ b/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al @@ -102,6 +102,7 @@ page 20406 "Qlty. Inspection" field(Status; Rec.Status) { Editable = false; + StyleExpr = StatusStyleExpr; } field("Finished Date"; Rec."Finished Date") { @@ -841,6 +842,7 @@ page 20406 "Qlty. Inspection" VisibleSourceSubType: Boolean; VisibleSourceType: Boolean; CanChangeQuantity: Boolean; + StatusStyleExpr: Text; trigger OnOpenPage() begin @@ -862,6 +864,10 @@ page 20406 "Qlty. Inspection" TempItemTrackingSetup: Record "Item Tracking Setup" temporary; begin IsOpen := Rec.Status = Rec.Status::Open; + if IsOpen then + StatusStyleExpr := 'Favorable' + else + StatusStyleExpr := 'None'; CanReopen := not Rec.HasMoreRecentReinspection(); CanFinish := Rec.Status <> Rec.Status::Finished; if Rec.Status = Rec.Status::Open then From a2dfab0b784f1a227406b3a08d61fddf630da9fd Mon Sep 17 00:00:00 2001 From: 6Cript Date: Wed, 25 Feb 2026 15:00:24 +0100 Subject: [PATCH 2/5] If removed and IsOpen used below as well. --- .../app/src/Document/QltyInspection.Page.al | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al b/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al index afd08a84c2..8c527c55e1 100644 --- a/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al +++ b/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al @@ -864,13 +864,11 @@ page 20406 "Qlty. Inspection" TempItemTrackingSetup: Record "Item Tracking Setup" temporary; begin IsOpen := Rec.Status = Rec.Status::Open; - if IsOpen then - StatusStyleExpr := 'Favorable' - else - StatusStyleExpr := 'None'; + StatusStyleExpr := IsOpen ? 'Favorable' : 'None'; + CanReopen := not Rec.HasMoreRecentReinspection(); CanFinish := Rec.Status <> Rec.Status::Finished; - if Rec.Status = Rec.Status::Open then + if IsOpen then if QltyPermissionMgmt.CanChangeItemTracking() then begin TempItemTrackingSetup."Lot No. Required" := true; TempItemTrackingSetup."Serial No. Required" := true; From c20aea8048de95790a8ae02101205365ba9d01e2 Mon Sep 17 00:00:00 2001 From: 6Cript Date: Fri, 27 Feb 2026 09:29:45 +0100 Subject: [PATCH 3/5] Bold style for "Finished" status --- .../app/src/Document/QltyInspection.Page.al | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al b/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al index 8c527c55e1..5b204fb81f 100644 --- a/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al +++ b/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al @@ -864,8 +864,12 @@ page 20406 "Qlty. Inspection" TempItemTrackingSetup: Record "Item Tracking Setup" temporary; begin IsOpen := Rec.Status = Rec.Status::Open; - StatusStyleExpr := IsOpen ? 'Favorable' : 'None'; + StatusStyleExpr := + IsOpen ? 'Favorable' : + (Rec.Status = Rec.Status::Finished) ? 'Strong' : + 'None'; + CanReopen := not Rec.HasMoreRecentReinspection(); CanFinish := Rec.Status <> Rec.Status::Finished; if IsOpen then From c7ac3761e9addc37f3cbf743b562c83eca5b41a2 Mon Sep 17 00:00:00 2001 From: 6Cript Date: Fri, 27 Feb 2026 09:35:30 +0100 Subject: [PATCH 4/5] Now the quality inspection list have the same style as the card and sales order list. --- .../src/Document/QltyInspectionList.Page.al | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionList.Page.al b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionList.Page.al index c1ba04cbcc..c29d4362bd 100644 --- a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionList.Page.al +++ b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionList.Page.al @@ -62,6 +62,7 @@ page 20408 "Qlty. Inspection List" { AboutTitle = 'Inspection status at a glance'; AboutText = '**Status** shows whether the inspection is still in progress or finished. Finished inspections are locked and can''t be changed.'; + StyleExpr = StatusStyleExpr; } field("Result Code"; Rec."Result Code") { @@ -695,6 +696,7 @@ page 20408 "Qlty. Inspection List" CanFinish: Boolean; CanReopen: Boolean; RowActionsAreEnabled: Boolean; + StatusStyleExpr: Text; trigger OnOpenPage() begin @@ -702,6 +704,18 @@ page 20408 "Qlty. Inspection List" CanReopen := RowActionsAreEnabled and not Rec.HasMoreRecentReinspection(); CanFinish := RowActionsAreEnabled and (Rec.Status <> Rec.Status::Finished); CanCreateReinspection := RowActionsAreEnabled; + StatusStyleExpr := + Rec.Status = Rec.Status::Open ? 'Favorable' : + (Rec.Status = Rec.Status::Finished) ? 'Strong' : + 'None'; + end; + + trigger OnAfterGetRecord() + begin + StatusStyleExpr := + Rec.Status = Rec.Status::Open ? 'Favorable' : + (Rec.Status = Rec.Status::Finished) ? 'Strong' : + 'None'; end; trigger OnAfterGetCurrRecord() @@ -711,6 +725,10 @@ page 20408 "Qlty. Inspection List" RowActionsAreEnabled := not IsNullGuid(Rec.SystemId); CanReopen := RowActionsAreEnabled and not Rec.HasMoreRecentReinspection(); CanFinish := RowActionsAreEnabled and (Rec.Status <> Rec.Status::Finished); + StatusStyleExpr := + Rec.Status = Rec.Status::Open ? 'Favorable' : + (Rec.Status = Rec.Status::Finished) ? 'Strong' : + 'None'; if (Rec."Assigned User ID" = '') or ((Rec."Assigned User ID" <> UserId()) and QltyPermissionMgmt.CanChangeOtherInspections()) then CanAssignToSelf := RowActionsAreEnabled; From 65fce0ffbdbeb14ccf2d9d28bcc0ec5d8cba0d9d Mon Sep 17 00:00:00 2001 From: 6Cript Date: Fri, 6 Mar 2026 10:56:29 +0100 Subject: [PATCH 5/5] Refactor status style expression handling for quality inspections --- .../app/src/Document/QltyInspection.Page.al | 6 +----- .../src/Document/QltyInspectionHeader.Table.al | 12 ++++++++++++ .../app/src/Document/QltyInspectionList.Page.al | 17 +---------------- 3 files changed, 14 insertions(+), 21 deletions(-) diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al b/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al index 5b204fb81f..7b55fabb5f 100644 --- a/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al +++ b/src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al @@ -864,11 +864,7 @@ page 20406 "Qlty. Inspection" TempItemTrackingSetup: Record "Item Tracking Setup" temporary; begin IsOpen := Rec.Status = Rec.Status::Open; - - StatusStyleExpr := - IsOpen ? 'Favorable' : - (Rec.Status = Rec.Status::Finished) ? 'Strong' : - 'None'; + StatusStyleExpr := Rec.GetStatusStyleExpression(); CanReopen := not Rec.HasMoreRecentReinspection(); CanFinish := Rec.Status <> Rec.Status::Finished; diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al index d6449af594..3f08150503 100644 --- a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al +++ b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al @@ -1574,6 +1574,18 @@ table 20405 "Qlty. Inspection Header" exit((Rec."Re-inspection No." = 0) ? Rec."No." : StrSubstNo(InspectionLbl, Rec."No.", Rec."Re-inspection No.")); end; + procedure GetStatusStyleExpression(): Text + begin + case Rec.Status of + Rec.Status::Open: + exit('Favorable'); + Rec.Status::Finished: + exit('Strong'); + else + exit('None'); + end; + end; + local procedure VerifyPassAndFailQuantities() var DifferenceInPassFailQuantity: Decimal; diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionList.Page.al b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionList.Page.al index c29d4362bd..4b56597049 100644 --- a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionList.Page.al +++ b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionList.Page.al @@ -704,18 +704,6 @@ page 20408 "Qlty. Inspection List" CanReopen := RowActionsAreEnabled and not Rec.HasMoreRecentReinspection(); CanFinish := RowActionsAreEnabled and (Rec.Status <> Rec.Status::Finished); CanCreateReinspection := RowActionsAreEnabled; - StatusStyleExpr := - Rec.Status = Rec.Status::Open ? 'Favorable' : - (Rec.Status = Rec.Status::Finished) ? 'Strong' : - 'None'; - end; - - trigger OnAfterGetRecord() - begin - StatusStyleExpr := - Rec.Status = Rec.Status::Open ? 'Favorable' : - (Rec.Status = Rec.Status::Finished) ? 'Strong' : - 'None'; end; trigger OnAfterGetCurrRecord() @@ -725,10 +713,7 @@ page 20408 "Qlty. Inspection List" RowActionsAreEnabled := not IsNullGuid(Rec.SystemId); CanReopen := RowActionsAreEnabled and not Rec.HasMoreRecentReinspection(); CanFinish := RowActionsAreEnabled and (Rec.Status <> Rec.Status::Finished); - StatusStyleExpr := - Rec.Status = Rec.Status::Open ? 'Favorable' : - (Rec.Status = Rec.Status::Finished) ? 'Strong' : - 'None'; + StatusStyleExpr := Rec.GetStatusStyleExpression(); if (Rec."Assigned User ID" = '') or ((Rec."Assigned User ID" <> UserId()) and QltyPermissionMgmt.CanChangeOtherInspections()) then CanAssignToSelf := RowActionsAreEnabled;