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..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 @@ -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,9 +864,11 @@ page 20406 "Qlty. Inspection" TempItemTrackingSetup: Record "Item Tracking Setup" temporary; begin IsOpen := Rec.Status = Rec.Status::Open; + StatusStyleExpr := Rec.GetStatusStyleExpression(); + 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; 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 c1ba04cbcc..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 @@ -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 @@ -711,6 +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.GetStatusStyleExpression(); if (Rec."Assigned User ID" = '') or ((Rec."Assigned User ID" <> UserId()) and QltyPermissionMgmt.CanChangeOtherInspections()) then CanAssignToSelf := RowActionsAreEnabled;