[CLAUDE] PurchaseEvaluation: endsBeforeCeo theo RUNTIME (Mig 60 EndedByLevelFinalize) — phiếu lên CEO hết báo sai "không qua CEO" (anh Kiệt FDC UAT)
All checks were successful
Deploy SOLUTION_ERP / build-deploy (push) Successful in 5m21s

- Bug: phiếu có cấp AllowApproverFinalize nhưng approver opt-out → lên CEO thật + CEO duyệt, nhưng sơ đồ báo sai "kết thúc tại CCM, không qua CEO" + làm mờ Bước CEO (endsBeforeCeo tính theo CONFIG workflow)
- Fix: +field runtime EndedByLevelFinalize (set true CHỈ ở nhánh level-finalize service) → EndsBeforeCeo cho phiếu DaDuyet đọc runtime thay config; ChoDuyet giữ heads-up config
- BE: entity + EF config + service + 4 projection (detail/List/Inbox/ListApproved) runtime-aware
- Mig 60 AddPeEndedByLevelFinalize + backfill (dò marker "Duyệt KẾT THÚC tại" set phiếu finalize-sớm cũ; ccm-delegation không match → giữ false)
- FE: gate làm-mờ finalizeFlowStep theo endsBeforeCeo (2 app SHA-mirror b7abbc2f)
- Test 440 PASS (repro peFinButWentCeo: config-finalize + EndedByLevelFinalize=false → false) + reviewer PASS 0-issue

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
pqhuy1987
2026-07-01 19:23:03 +07:00
parent 051d0493ae
commit 8037fa01d1
12 changed files with 6423 additions and 28 deletions

View File

@ -190,11 +190,10 @@ public class ListApprovedPurchaseEvaluationsQueryHandler(IApplicationDbContext d
join sup in db.Suppliers on sw.SupplierId equals sup.Id
orderby sup.Name
select sup.Name).ToList(), // [S69] cờ gấp + [Mig 58] winner names
// [S89 Mig 58] "Duyệt là KẾT THÚC (không trình CEO)" — 3 subquery riêng mirror
// winner-names (EF-safe). Cùng DTO PurchaseEvaluationListItemDto. V1 → false/null.
(from lv in db.ApprovalWorkflowLevels
where lv.AllowApproverFinalize && lv.Step!.ApprovalWorkflowId == e.ApprovalWorkflowId
select 1).Any(),
// [S89 Mig 58] "Duyệt là KẾT THÚC (không trình CEO)" — FinalizeStep/LevelName mirror
// winner-names (EF-safe). [S97] EndsBeforeCeo: ListApproved = DaDuyet-only (filter trên)
// → đọc THẲNG runtime flag EndedByLevelFinalize (phiếu opt-out lên CEO → false, hết badge sai).
e.EndedByLevelFinalize,
(from lv in db.ApprovalWorkflowLevels
where lv.AllowApproverFinalize && lv.Step!.ApprovalWorkflowId == e.ApprovalWorkflowId
orderby lv.Step!.Order, lv.Order

View File

@ -642,9 +642,13 @@ public class ListPurchaseEvaluationsQueryHandler(
// (mirror winner-names — EF-safe; record-ctor projection KHÔNG cho biến trung
// gian nên không gộp tuple). lv.Step!.Name = simple navigation chắc translate.
// ApprovalWorkflowId==null → subquery rỗng → false/null (V1 tự đúng).
(from lv in db.ApprovalWorkflowLevels
where lv.AllowApproverFinalize && lv.Step!.ApprovalWorkflowId == x.e.ApprovalWorkflowId
select 1).Any(),
// [S97] runtime: phiếu DaDuyet đọc EndedByLevelFinalize (finalize sớm THẬT);
// chưa xong → config-subquery. Phiếu-đã-lên-CEO KHÔNG hiện badge "Kết thúc" sai.
x.e.Phase == PurchaseEvaluationPhase.DaDuyet
? x.e.EndedByLevelFinalize
: (from lv in db.ApprovalWorkflowLevels
where lv.AllowApproverFinalize && lv.Step!.ApprovalWorkflowId == x.e.ApprovalWorkflowId
select 1).Any(),
(from lv in db.ApprovalWorkflowLevels
where lv.AllowApproverFinalize && lv.Step!.ApprovalWorkflowId == x.e.ApprovalWorkflowId
orderby lv.Step!.Order, lv.Order
@ -758,9 +762,13 @@ public class GetMyPurchaseEvaluationInboxQueryHandler(
// [S89 Mig 58] "Duyệt là KẾT THÚC (không trình CEO)" — 3 subquery riêng mirror
// winner-names (EF-safe). lv.Step!.Name simple navigation. ApprovalWorkflowId
// ==null → subquery rỗng → false/null (V1 tự đúng).
(from lv in db.ApprovalWorkflowLevels
where lv.AllowApproverFinalize && lv.Step!.ApprovalWorkflowId == x.e.ApprovalWorkflowId
select 1).Any(),
// [S97] runtime: phiếu DaDuyet đọc EndedByLevelFinalize (finalize sớm THẬT);
// chưa xong → config-subquery. Phiếu-đã-lên-CEO KHÔNG hiện badge "Kết thúc" sai.
x.e.Phase == PurchaseEvaluationPhase.DaDuyet
? x.e.EndedByLevelFinalize
: (from lv in db.ApprovalWorkflowLevels
where lv.AllowApproverFinalize && lv.Step!.ApprovalWorkflowId == x.e.ApprovalWorkflowId
select 1).Any(),
(from lv in db.ApprovalWorkflowLevels
where lv.AllowApproverFinalize && lv.Step!.ApprovalWorkflowId == x.e.ApprovalWorkflowId
orderby lv.Step!.Order, lv.Order
@ -1139,7 +1147,12 @@ public class GetPurchaseEvaluationQueryHandler(
{
var finalizeLevel = finalizeStep.Levels
.Where(l => l.AllowApproverFinalize).OrderBy(l => l.Order).FirstOrDefault();
endsBeforeCeo = true;
// [S97] endsBeforeCeo theo RUNTIME cho phiếu DaDuyet (đọc EndedByLevelFinalize):
// phiếu đi HẾT lên CEO (approver opt-out finalize) → false, KHÔNG hiện "không qua
// CEO". Phiếu chưa xong (ChoDuyet…) giữ heads-up config (còn cấp finalize phía trước).
endsBeforeCeo = phase == PurchaseEvaluationPhase.DaDuyet
? e.EndedByLevelFinalize
: true;
finalizeStepName = finalizeStep.DepartmentId is Guid fsd
&& stepDeptNames.TryGetValue(fsd, out var fsdn) ? fsdn : finalizeStep.Name;
finalizeLevelName = finalizeLevel?.Name;

View File

@ -97,6 +97,13 @@ public class PurchaseEvaluation : AuditableEntity
public decimal? ApprovedPriceAmount { get; set; }
public string? ApprovedPriceSource { get; set; }
// [S97 2026-07-01 — anh Kiệt FDC] RUNTIME fact: phiếu này ĐÃ kết thúc sớm bằng level-finalize
// ("Duyệt thay CEO", short-circuit TRƯỚC cấp cuối/CEO)? Set true DUY NHẤT ở nhánh finalize của
// ApproveV2Async. Default false = phiếu đi HẾT quy trình (qua CEO). Phân biệt CONFIG "workflow
// CÓ cấp finalize" vs RUNTIME "phiếu NÀY finalize sớm" — EndsBeforeCeo (display) đọc field này
// cho phiếu DaDuyet để phiếu-đã-lên-CEO KHÔNG còn hiện sai "không qua CEO" (bug anh Kiệt S97).
public bool EndedByLevelFinalize { get; set; }
public List<PurchaseEvaluationSupplier> Suppliers { get; set; } = new();
public List<PurchaseEvaluationDetail> Details { get; set; } = new();
public List<PurchaseEvaluationQuote> Quotes { get; set; } = new();

View File

@ -38,6 +38,8 @@ public class PurchaseEvaluationConfiguration : IEntityTypeConfiguration<Purchase
// nullable, KHÔNG index (free-text). Mirror HoSoLink + PeWorkItemBudget.CcmNote.
b.Property(x => x.ProSuggestedPriceNote).HasMaxLength(1000);
b.Property(x => x.CcmSuggestedPriceNote).HasMaxLength(1000);
// [S97 2026-07-01] Runtime finalize-fact — bit NOT NULL default false (mirror IsUrgent* bool).
b.Property(x => x.EndedByLevelFinalize).HasDefaultValue(false);
b.HasIndex(x => x.MaPhieu).IsUnique().HasFilter("[MaPhieu] IS NOT NULL");
b.HasIndex(x => new { x.Phase, x.IsDeleted });

View File

@ -0,0 +1,42 @@
using Microsoft.EntityFrameworkCore.Migrations;
#nullable disable
namespace SolutionErp.Infrastructure.Persistence.Migrations
{
/// <inheritdoc />
public partial class AddPeEndedByLevelFinalize : Migration
{
/// <inheritdoc />
protected override void Up(MigrationBuilder migrationBuilder)
{
migrationBuilder.AddColumn<bool>(
name: "EndedByLevelFinalize",
table: "PurchaseEvaluations",
type: "bit",
nullable: false,
defaultValue: false);
// [S97 anh Kiệt FDC] Backfill: phiếu DaDuyet (Phase=7) đã kết thúc SỚM bằng level-finalize
// để lại marker "[Duyệt KẾT THÚC tại ...]" trong LogTransition comment → set =1. Phiếu đi
// HẾT lên CEO (không marker) giữ default 0 → EndsBeforeCeo hiện đúng "qua CEO". SQL-Server-only
// (Dev/prod migrations); tests dùng EnsureCreated KHÔNG replay migration (gotcha #63).
migrationBuilder.Sql(@"
UPDATE pe SET EndedByLevelFinalize = 1
FROM PurchaseEvaluations pe
WHERE pe.Phase = 7
AND EXISTS (
SELECT 1 FROM PurchaseEvaluationApprovals a
WHERE a.PurchaseEvaluationId = pe.Id
AND a.Comment LIKE N'%Duyệt KẾT THÚC tại%');");
}
/// <inheritdoc />
protected override void Down(MigrationBuilder migrationBuilder)
{
migrationBuilder.DropColumn(
name: "EndedByLevelFinalize",
table: "PurchaseEvaluations");
}
}
}

View File

@ -4653,6 +4653,11 @@ namespace SolutionErp.Infrastructure.Persistence.Migrations
b.Property<Guid?>("DrafterUserId")
.HasColumnType("uniqueidentifier");
b.Property<bool>("EndedByLevelFinalize")
.ValueGeneratedOnAdd()
.HasColumnType("bit")
.HasDefaultValue(false);
b.Property<decimal?>("ExpectedRemainingAmount")
.HasPrecision(18, 2)
.HasColumnType("decimal(18,2)");

View File

@ -866,6 +866,9 @@ public class PurchaseEvaluationWorkflowService(
// auto-finalize im lặng) theo phản hồi UAT "cái này option thôi". Default true = giữ auto cũ.
if (matchingLevel.AllowApproverFinalize && applyLevelFinalize)
{
// [S97 anh Kiệt FDC] Đánh dấu RUNTIME: phiếu kết thúc sớm tại cấp finalize (không lên CEO)
// → EndsBeforeCeo display đọc cờ này thay vì suy từ config (phiếu opt-out lên CEO hiện đúng).
evaluation.EndedByLevelFinalize = true;
ApplyApprovedPriceOnFinalize(evaluation, isSystem, approvedPriceAmount, approvedPriceSource);
evaluation.Phase = PurchaseEvaluationPhase.DaDuyet;
evaluation.CurrentWorkflowStepIndex = null;