[Request New Publisher] - codeunit 12 "Gen. Jnl.-Post Line"

[djuras2]

Describe the request

Dear Support,
Could You please add a new publisher into PostFixedAsset function in codeunit 12 - "Gen. Jnl.-Post Line"?

<<<<< Original >>>>>

.
.
if not IsHandled then begin
  InitGLEntry(GenJnlLine, GLEntry, '', GenJnlLine."Amount (LCY)", GenJnlLine."Source Currency Amount", true, GenJnlLine."System-Created Entry");
  GLEntry."Gen. Posting Type" := GenJnlLine."Gen. Posting Type";
  GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
  GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
  InitVAT(GenJnlLine, GLEntry, VATPostingSetup);
  GLEntry2 := GLEntry;
  FAJnlPostLine.GenJnlPostLine(
      GenJnlLine, GLEntry2.Amount, GLEntry2."VAT Amount", NextTransactionNo, NextEntryNo, GLReg."No.");
  ShortcutDim1Code := GenJnlLine."Shortcut Dimension 1 Code";
  ShortcutDim2Code := GenJnlLine."Shortcut Dimension 2 Code";
.
.

<<<<< Modified >>>>>

.
.
if not IsHandled then begin
  InitGLEntry(GenJnlLine, GLEntry, '', GenJnlLine."Amount (LCY)", GenJnlLine."Source Currency Amount", true, GenJnlLine."System-Created Entry");
  GLEntry."Gen. Posting Type" := GenJnlLine."Gen. Posting Type";
  GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
  GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
  InitVAT(GenJnlLine, GLEntry, VATPostingSetup);
  GLEntry2 := GLEntry;
  IsHandled := false;
  OnBeforeGenJnlPostLine(GenJnlLine, GLEntry2, NextTransactionNo, NextEntryNo, GLReg, IsHandled);                 --> NEW PUBLISHER
  if not IsHandled then
    FAJnlPostLine.GenJnlPostLine(
        GenJnlLine, GLEntry2.Amount, GLEntry2."VAT Amount", NextTransactionNo, NextEntryNo, GLReg."No.");
  ShortcutDim1Code := GenJnlLine."Shortcut Dimension 1 Code";
  ShortcutDim2Code := GenJnlLine."Shortcut Dimension 2 Code";
.
.

[IntegrationEvent(false, false)]
local procedure OnBeforeGenJnlPostLine(GenJournalLine: Record "Gen. Journal Line"; GLEntry2: Record "G/L Entry"; NextTransactionNo: Integer; NextGLEntryNo: Integer; GLReg: Record "G/L Register"; var IsHandled: Boolean)
begin
end;

Thank you in advance,

Daniel

Additional context

Due to a customer modification in this field triggers.
Internal work item: AB#560505