[Event Request] Codeunit 561 - IC Data Exchange API - Pass the temporary IC inbox headers by VAR in the OnBeforeBufferICInbox…HeaderInsert events

[aspivak12]

Why do you need this change?

An extension that adds a BLOB field to IC Inbox Sales Header / IC Inbox Purchase Header cannot get that value into Buffer IC Inbox … Header when IC documents are sent over the API connection.

TransferFields copies a BLOB only if it is loaded, and FindSet on a temporary record does not load it. CalcFields would but it only works through a var record.

Describe the request

Add var to the temporary source-record parameter in the two OnBefore…Insert events of codeunit 561. Subscribers can then call CalcFields and write the result into the buffer record, which is already var.

Both events are in the same object and are the symmetric pair of one pattern, so they are submitted together.

EventRequest

[IntegrationEvent(false, false)]
local procedure OnPostICSalesHeaderToICPartnerInboxOnBeforeBufferICInboxSalesHeaderInsert(var BufferICInboxSalesHeader: Record "Buffer IC Inbox Sales Header"; var TempICPartnerICInboxSalesHeader: Record "IC Inbox Sales Header" temporary; ICPartner: Record "IC Partner"; RegisteredPartner: Record "IC Partner" temporary)
begin
end;

EventRequest

[IntegrationEvent(false, false)]
local procedure OnPostICPurchaseHeaderToICPartnerInboxOnBeforeBufferICInboxPurchaseHeaderInsert(var BufferICInboxPurchaseHeader: Record "Buffer IC Inbox Purch Header"; var TempICPartnerICInboxPurchaseHeader: Record "IC Inbox Purchase Header" temporary; ICPartner: Record "IC Partner"; RegisteredPartner: Record "IC Partner" temporary)
begin
end;

Provide an implementation (optional)

• I will provide the implementation for this extensibility request

[github-actions]

✅ Analysis complete - ready for further processing

---

Implementation:

Add var to the temporary source-record parameter in both OnPostICSalesHeaderToICPartnerInboxOnBeforeBufferICInboxSalesHeaderInsert and OnPostICPurchaseHeaderToICPartnerInboxOnBeforeBufferICInboxPurchaseHeaderInsert so subscribers can load BLOB fields from the temporary IC inbox headers before the buffer records are inserted.

Location in IC Data Exchange API codeunit:

                BufferICInboxPurchaseHeader.TransferFields(TempICPartnerICInboxPurchaseHeader);
                BufferICInboxPurchaseHeader."Buy-from Vendor No." := RegisteredPartner."Vendor No.";
                BufferICInboxPurchaseHeader."Pay-to Vendor No." := RegisteredPartner."Vendor No.";
                OnPostICPurchaseHeaderToICPartnerInboxOnBeforeBufferICInboxPurchaseHeaderInsert(BufferICInboxPurchaseHeader, TempICPartnerICInboxPurchaseHeader, ICPartner, RegisteredPartner);
                BufferICInboxPurchaseHeader.Insert();
            until TempICPartnerICInboxPurchaseHeader.Next() = 0;
        end;
    end;

    /// <summary>
    /// Integration event raised before inserting buffer IC inbox purchase header data.
    /// </summary>
    /// <param name="BufferICInboxPurchaseHeader">Buffer purchase header record being inserted</param>
    /// <param name="TempICPartnerICInboxPurchaseHeader">Source purchase header data from partner</param>
    /// <param name="ICPartner">Intercompany partner record</param>
    /// <param name="RegisteredPartner">Registered partner information</param>
    [IntegrationEvent(false, false)]
    local procedure OnPostICPurchaseHeaderToICPartnerInboxOnBeforeBufferICInboxPurchaseHeaderInsert(var BufferICInboxPurchaseHeader: Record "Buffer IC Inbox Purch Header"; var TempICPartnerICInboxPurchaseHeader: Record "IC Inbox Purchase Header" temporary; ICPartner: Record "IC Partner"; RegisteredPartner: Record "IC Partner" temporary)
    begin
    end;

    /// <summary>
    /// Integration event raised before inserting buffer IC inbox sales header data.
    /// </summary>
    /// <param name="BufferICInboxSalesHeader">Buffer sales header record being inserted</param>
    /// <param name="TempICPartnerICInboxSalesHeader">Source sales header data from partner</param>
    /// <param name="ICPartner">Intercompany partner record</param>
    /// <param name="RegisteredPartner">Registered partner information</param>
    [IntegrationEvent(false, false)]
    local procedure OnPostICSalesHeaderToICPartnerInboxOnBeforeBufferICInboxSalesHeaderInsert(var BufferICInboxSalesHeader: Record "Buffer IC Inbox Sales Header"; var TempICPartnerICInboxSalesHeader: Record "IC Inbox Sales Header" temporary; ICPartner: Record "IC Partner"; RegisteredPartner: Record "IC Partner" temporary)
    begin
    end;

Event Publisher (add at the end of the codeunit with other events):

[IntegrationEvent(false, false)]
local procedure OnPostICPurchaseHeaderToICPartnerInboxOnBeforeBufferICInboxPurchaseHeaderInsert(var BufferICInboxPurchaseHeader: Record "Buffer IC Inbox Purch Header"; var TempICPartnerICInboxPurchaseHeader: Record "IC Inbox Purchase Header" temporary; ICPartner: Record "IC Partner"; RegisteredPartner: Record "IC Partner" temporary)
begin
end;

[IntegrationEvent(false, false)]
local procedure OnPostICSalesHeaderToICPartnerInboxOnBeforeBufferICInboxSalesHeaderInsert(var BufferICInboxSalesHeader: Record "Buffer IC Inbox Sales Header"; var TempICPartnerICInboxSalesHeader: Record "IC Inbox Sales Header" temporary; ICPartner: Record "IC Partner"; RegisteredPartner: Record "IC Partner" temporary)
begin
end;

---

File: ICDataExchangeAPI.Codeunit.al

Note

Automatically generated by the Triage Agent — advisory only. An engineer will review before any action is taken.

Tip

Is the triage result incorrect? Reply with /not-accurate and briefly explain what was wrong. Your feedback improves future responses.