Skip to content

Now the quality inspection card shows the status in bold + green if open #6849

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
6CRIPT wants to merge 5 commits into
base: main
Choose a base branch
from
+20 −1
Open

Now the quality inspection card shows the status in bold + green if open #6849

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
f203a09
Now the quality inspection card shows the status in bold + green if open
6CRIPT Feb 25, 2026
a2dfab0
If removed and IsOpen used below as well.
6CRIPT Feb 25, 2026
c20aea8
Bold style for "Finished" status
6CRIPT Feb 27, 2026
c7ac376
Now the quality inspection list have the same style as the card and s…
6CRIPT Feb 27, 2026
65fce0f
Refactor status style expression handling for quality inspections
6CRIPT Mar 6, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 5 additions & 1 deletion src/Apps/W1/Quality Management/app/src/Document/QltyInspection.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -102,6 +102,7 @@ page 20406 "Qlty. Inspection"
field(Status; Rec.Status)
{
Editable = false;
StyleExpr = StatusStyleExpr;
}
field("Finished Date"; Rec."Finished Date")
{
Expand Down Expand Up @@ -841,6 +842,7 @@ page 20406 "Qlty. Inspection"
VisibleSourceSubType: Boolean;
VisibleSourceType: Boolean;
CanChangeQuantity: Boolean;
StatusStyleExpr: Text;

trigger OnOpenPage()
begin
Expand All @@ -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;
Expand Down
12 changes: 12 additions & 0 deletions src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
3 changes: 3 additions & 0 deletions src/Apps/W1/Quality Management/app/src/Document/QltyInspectionList.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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")
{
Expand Down Expand Up @@ -695,6 +696,7 @@ page 20408 "Qlty. Inspection List"
CanFinish: Boolean;
CanReopen: Boolean;
RowActionsAreEnabled: Boolean;
StatusStyleExpr: Text;

trigger OnOpenPage()
begin
Expand All @@ -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;
Expand Down
Loading