using Admin.NET.Plugin.ApprovalFlow;
using Admin.NET.Plugin.ApprovalFlow.Service;
namespace Admin.NET.Plugin.AiDOP.MaterialWarehouse;
///
/// S5 来料检验单流程常量(BizType / 节点码 / 角色码 / 角色固定 Id / 字典)。集中避免散落字符串。
///
public static class IqcInspBillFlowConst
{
/// 流程业务类型编码
public const string BizType = "S5_IQC_INSPBILL";
/// N1 检验员检验节点
public const string NodeInspect = "N1_INSPECT";
/// N2 检验主管审核节点
public const string NodeSupervisor = "N2_SUP_REVIEW";
/// GW_PD 排他网关(按 pd 分流:pd=1→SQE,否则完成)
public const string GatewayPd = "GW_PD";
/// N3 SQE 处置节点
public const string NodeSqe = "N3_SQE_DISPOSITION";
/// 检验员角色编码
public const string RoleInspectorCode = "ROLE_S5_IQC_INSPECTOR";
/// 检验主管角色编码
public const string RoleSupervisorCode = "ROLE_S5_IQC_SUPERVISOR";
/// SQE 角色编码
public const string RoleSqeCode = "ROLE_S5_SQE";
/// 检验员角色固定 Id(种子与流程定义共用)
public const long RoleInspectorId = 1329915010001L;
/// 检验主管角色固定 Id
public const long RoleSupervisorId = 1329915010002L;
/// SQE 角色固定 Id
public const long RoleSqeId = 1329915010003L;
/// 流程定义版本(升 v2 加入 GW_PD/N3_SQE;seed 幂等升级依据)
public const int FlowDefinitionVersion = 2;
/// UAT 冒烟绑定账号(同绑两角色,仅 UAT 自审)
public const string UatAccount = "superAdmin.NET";
///
/// 检验单业务状态 qms_qcp_inspbill.FBILLSTATUS 的终态值(P1-A)。
/// 生成时由 IqcTaskEntryService 写 '检验中',流程 Approved 终结时由 Handler 写本值。
///
public const string BillStatusDone = "检验完成";
// pd 判定:0=合格 1=不合格 | clfs 处理方式:0=让步接收 1=挑选 2=报废
}
///
/// S5 来料检验单审批流回调处理器(BizType=S5_IQC_INSPBILL)。
///
/// 本批(检验员+主管最小闭环)Handler 全部 no-op:不写 qms、不写库存、不发额外通知、不转 SQE。
/// 检验结果字段 pd/dhsl/bhgsl/clfs 由 IqcInspBillFlowService.submit-result 在事务内写入;
/// 流程状态由 ApprovalFlowInstance 承载,不回写 qms_qcp_inspbill。GetBizData 仅返回基础信息供流程日志/条件(本批线性流程无网关)。
///
public class IqcInspBillFlowBizHandler : IFlowBizHandler, ITransient
{
public string BizType => IqcInspBillFlowConst.BizType;
private readonly ISqlSugarClient _db;
private readonly UserManager _userManager;
public IqcInspBillFlowBizHandler(ISqlSugarClient db, UserManager userManager)
{
_db = db;
_userManager = userManager;
}
/// 流程发起后回调:本批 no-op(不回写 qms)。
public Task OnFlowStarted(long bizId, long instanceId) => Task.CompletedTask;
/// 单节点完成回调:本批 no-op。
public Task OnNodeCompleted(long bizId, long instanceId, string nodeId, string nodeName, long? approverUserId) => Task.CompletedTask;
///
/// 流程结束回调:把检验单业务状态推进到终态(P1-A)。
///
/// 【为什么写在这里而不是 IqcInspBillFlowService】
/// 本回调由流程引擎在**实例真正终结**时触发且仅触发一次,天然覆盖两条路径:
/// · 合格(pd=0):N2 主管通过 → GW_PD 默认边 → end → 本回调;
/// · 不合格(pd=1):N2 主管通过 → GW_PD 走 N3_SQE_DISPOSITION(实例仍 Running,**不触发本回调**)
/// → SQE 处置完成 → end → 本回调。
/// 即「NG 单在主管通过时提前写完成」在结构上不可能发生,无需在 Service 里判断网关走向。
///
/// 【事务】FlowEngineService.InvokeHandler 捕获后 rethrow,而 supervisor-approve /
/// sqe-submit-disposition 均以 _db.AsTenant().UseTranAsync 包住 _flowEngine.Approve,
/// 故本次 UPDATE 与流程推进落在同一事务:不会出现「流程已完成但业务单状态没写成功」。
///
/// 【取值】'检验完成' 与同一条 INSERT 写入的 '检验中'(IqcTaskEntryService 生成时)同词族,
/// 也是项目既有 done-word(参见 FqcInspBillFlowBizHandler.InspectStatusDone)。
/// 库内 FBILLSTATUS 另有 C/A/COMPLETED/CREATED/NG 等历史 seed 值,无代码写入者,不予采用,
/// 亦不自造新枚举。
///
/// 【边界】只在 Approved(正常走完)时写;Rejected / Cancelled 保持原状态,不写完成。
/// 不写 FAUDITORID、不碰库存、不改 pd/clfs、不动报检分录 FINSPECTSTATUS
/// (后者的既定写入者是 IqcWmsResultPushService 的 165 推送路径,语义为「已提交并回写 WMS」,
/// 与本字段的「审批流走完」不是同一语义轴)。
///
public async Task OnFlowCompleted(long bizId, long instanceId, FlowInstanceStatusEnum finalStatus, long? lastApproverId)
{
if (finalStatus != FlowInstanceStatusEnum.Approved) return;
// 同库分租户:本回调在请求上下文内同步调用,租户取当前登录用户,绝不跨租户改单。
await _db.Ado.ExecuteCommandAsync(
"UPDATE qms_qcp_inspbill SET FBILLSTATUS=@Status WHERE id=@id AND tenant_id=@TenantId",
new List
{
new("@Status", IqcInspBillFlowConst.BillStatusDone),
new("@id", bizId),
new("@TenantId", _userManager.TenantId),
});
}
/// 返回检验单基础信息(本批线性流程无网关条件,仅供日志/展示)。
public async Task> GetBizData(long bizId)
{
// 同库分租户:GetBizData 由流程引擎在请求上下文内同步调用(Approve/网关求值),用当前用户租户过滤。
var rows = await _db.Ado.SqlQueryAsync(
"SELECT FBILLNO AS BillNo, FMATERIALCFG AS MaterialCode, wlmc AS MaterialName, pd AS Pd, clfs AS Clfs FROM qms_qcp_inspbill WHERE id=@id AND tenant_id=@TenantId LIMIT 1",
new List { new("@id", bizId), new("@TenantId", _userManager.TenantId) });
var r = rows.FirstOrDefault();
if (r == null) return new Dictionary();
return new Dictionary
{
["billNo"] = r.BillNo ?? "",
["materialCode"] = r.MaterialCode ?? "",
["materialName"] = r.MaterialName ?? "",
["pd"] = r.Pd ?? -1,
["clfs"] = r.Clfs ?? -1,
};
}
private class IqcInspBillFlowBizData
{
public string? BillNo { get; set; }
public string? MaterialCode { get; set; }
public string? MaterialName { get; set; }
public long? Pd { get; set; }
public long? Clfs { get; set; }
}
}