Skip to content

[Payables Agent] Fix HITL dialog for historical matching to show AI-generated message. #5366

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
wants to merge 2 commits into
base: main
Choose a base branch
from
+4 −10
Open

[Payables Agent] Fix HITL dialog for historical matching to show AI-generated message. #5366

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
d448162
Simplify UpdateMissingLineValuesFromHistory and restore activity log …
dayland-ms Oct 29, 2025
9c4956a
Add overload back in as expermental changes not yet in main
dayland-ms Oct 29, 2025
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
14 changes: 4 additions & 10 deletions .../EDocument/App/src/Processing/Import/Purchase/History/EDocPurchaseHistMapping.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -146,21 +146,14 @@ codeunit 6120 "E-Doc. Purchase Hist. Mapping"
/// </summary>
/// <param name="PurchInvLine"></param>
/// <param name="EDocumentPurchaseLine"></param>
procedure UpdateMissingLineValuesFromHistory(PurchInvLine: Record "Purch. Inv. Line"; var EDocumentPurchaseLine: Record "E-Document Purchase Line"; CustomExplanationTxt: Text[250])
procedure UpdateMissingLineValuesFromHistory(PurchInvLine: Record "Purch. Inv. Line"; var EDocumentPurchaseLine: Record "E-Document Purchase Line"; ExplanationTxt: Text[250])
var
PurchInvHeader: Record "Purch. Inv. Header";
DeferralTemplate: Record "Deferral Template";
UnitOfMeasure: Record "Unit of Measure";
EDocActivityLogSession: Codeunit "E-Doc. Activity Log Session";
DeferralActivityLog, AccountNumberActivityLog : Codeunit "Activity Log Builder";
ExplanationTxt: Label 'Line value was retrieved from posted purchase invoice history. See source for details.';
CurrentExplanationTxt: Text[250];
begin
if CustomExplanationTxt <> '' then
CurrentExplanationTxt := CopyStr(CustomExplanationTxt, 1, MaxStrLen(CurrentExplanationTxt))
else
CurrentExplanationTxt := ExplanationTxt;

PurchInvHeader.SetRange("No.", PurchInvLine."Document No.");
if not PurchInvHeader.FindFirst() then
exit;
Expand All @@ -171,7 +164,7 @@ codeunit 6120 "E-Doc. Purchase Hist. Mapping"
if EDocumentPurchaseLine."[BC] Deferral Code" = '' then
if DeferralTemplate.Get(PurchInvLine."Deferral Code") then begin // we only assign if it's a valid deferral template
EDocumentPurchaseLine."[BC] Deferral Code" := PurchInvLine."Deferral Code";
SetActivityLog(EDocumentPurchaseLine.SystemId, EDocumentPurchaseLine.FieldNo("[BC] Deferral Code"), PurchInvHeader, CurrentExplanationTxt, DeferralActivityLog, EDocActivityLogSession.DeferralTok());
SetActivityLog(EDocumentPurchaseLine.SystemId, EDocumentPurchaseLine.FieldNo("[BC] Deferral Code"), PurchInvHeader, ExplanationTxt, DeferralActivityLog, EDocActivityLogSession.DeferralTok());
end;
if EDocumentPurchaseLine."[BC] Shortcut Dimension 1 Code" = '' then
EDocumentPurchaseLine."[BC] Shortcut Dimension 1 Code" := PurchInvLine."Shortcut Dimension 1 Code";
Expand All @@ -193,7 +186,7 @@ codeunit 6120 "E-Doc. Purchase Hist. Mapping"
end;
// If we assigned something in this if-branch, we set the activity log
if (EDocumentPurchaseLine."[BC] Purchase Line Type" <> "Purchase Line Type"::" ") or (EDocumentPurchaseLine."[BC] Purchase Type No." <> '') then
SetActivityLog(EDocumentPurchaseLine.SystemId, EDocumentPurchaseLine.FieldNo("[BC] Purchase Type No."), PurchInvHeader, CurrentExplanationTxt, AccountNumberActivityLog, EDocActivityLogSession.AccountNumberTok());
SetActivityLog(EDocumentPurchaseLine.SystemId, EDocumentPurchaseLine.FieldNo("[BC] Purchase Type No."), PurchInvHeader, ExplanationTxt, AccountNumberActivityLog, EDocActivityLogSession.AccountNumberTok());
end;
end;

Expand All @@ -218,6 +211,7 @@ codeunit 6120 "E-Doc. Purchase Hist. Mapping"
ActivityLog
.Init(Database::"E-Document Purchase Line", FieldNo, SystemId)
.SetExplanation(Reasoning)
.SetType(Enum::"Activity Log Type"::"AI")
.SetReferenceSource(Page::"Posted Purchase Invoice", RecordRef)
.SetReferenceTitle(StrSubstNo(HistoricalExplanationTxt, PurchInvHeader.GetFilter("No.")));
EDocActivityLogSession.Set(ActivityLogSessionToken, ActivityLog);
Expand Down
Loading