Skip to content

[Extensibility Request] issue 30350: add OnBeforeTestFirstApplyItemLedgerEntryTracking event #9465

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

Draft
AleksandricMarko wants to merge 1 commit into
base: main
Choose a base branch
from
Draft

[Extensibility Request] issue 30350: add OnBeforeTestFirstApplyItemLedgerEntryTracking event #9465

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
7 changes: 7 additions & 0 deletions src/Layers/APAC/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1844,6 +1844,8 @@ codeunit 22 "Item Jnl.-Post Line"

local procedure TestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code");
begin
OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry, OldItemLedgEntry, ItemTrackingCode);

if ItemTrackingCode."SN Specific Tracking" then
OldItemLedgEntry.TestField("Serial No.", ItemLedgEntry."Serial No.");
if ItemLedgEntry."Drop Shipment" and (OldItemLedgEntry."Serial No." <> '') then
Expand Down Expand Up @@ -7449,6 +7451,11 @@ codeunit 22 "Item Jnl.-Post Line"
begin
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code")
begin
end;

[IntegrationEvent(false, false)]
local procedure OnAfterTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code")
begin
Expand Down
7 changes: 7 additions & 0 deletions src/Layers/CH/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1842,6 +1842,8 @@ codeunit 22 "Item Jnl.-Post Line"

local procedure TestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code");
begin
OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry, OldItemLedgEntry, ItemTrackingCode);

if ItemTrackingCode."SN Specific Tracking" then
OldItemLedgEntry.TestField("Serial No.", ItemLedgEntry."Serial No.");
if ItemLedgEntry."Drop Shipment" and (OldItemLedgEntry."Serial No." <> '') then
Expand Down Expand Up @@ -7420,6 +7422,11 @@ codeunit 22 "Item Jnl.-Post Line"
begin
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code")
begin
end;

[IntegrationEvent(false, false)]
local procedure OnAfterTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code")
begin
Expand Down
7 changes: 7 additions & 0 deletions src/Layers/ES/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1842,6 +1842,8 @@ codeunit 22 "Item Jnl.-Post Line"

local procedure TestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code");
begin
OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry, OldItemLedgEntry, ItemTrackingCode);

if ItemTrackingCode."SN Specific Tracking" then
OldItemLedgEntry.TestField("Serial No.", ItemLedgEntry."Serial No.");
if ItemLedgEntry."Drop Shipment" and (OldItemLedgEntry."Serial No." <> '') then
Expand Down Expand Up @@ -7430,6 +7432,11 @@ codeunit 22 "Item Jnl.-Post Line"
begin
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code")
begin
end;

[IntegrationEvent(false, false)]
local procedure OnAfterTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code")
begin
Expand Down
7 changes: 7 additions & 0 deletions src/Layers/IT/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1857,6 +1857,8 @@ codeunit 22 "Item Jnl.-Post Line"

local procedure TestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code");
begin
OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry, OldItemLedgEntry, ItemTrackingCode);

if ItemTrackingCode."SN Specific Tracking" then
OldItemLedgEntry.TestField("Serial No.", ItemLedgEntry."Serial No.");
if ItemLedgEntry."Drop Shipment" and (OldItemLedgEntry."Serial No." <> '') then
Expand Down Expand Up @@ -7447,6 +7449,11 @@ codeunit 22 "Item Jnl.-Post Line"
begin
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code")
begin
end;

[IntegrationEvent(false, false)]
local procedure OnAfterTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code")
begin
Expand Down
7 changes: 7 additions & 0 deletions src/Layers/RU/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1860,6 +1860,8 @@ codeunit 22 "Item Jnl.-Post Line"

local procedure TestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code");
begin
OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry, OldItemLedgEntry, ItemTrackingCode);

if ItemTrackingCode."SN Specific Tracking" then
OldItemLedgEntry.TestField("Serial No.", ItemLedgEntry."Serial No.");
if ItemLedgEntry."Drop Shipment" and (OldItemLedgEntry."Serial No." <> '') then
Expand Down Expand Up @@ -7765,6 +7767,11 @@ codeunit 22 "Item Jnl.-Post Line"
begin
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code")
begin
end;

[IntegrationEvent(false, false)]
local procedure OnAfterTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code")
begin
Expand Down
7 changes: 7 additions & 0 deletions src/Layers/W1/BaseApp/Inventory/Posting/ItemJnlPostLine.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1842,6 +1842,8 @@ codeunit 22 "Item Jnl.-Post Line"

local procedure TestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code");
begin
OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry, OldItemLedgEntry, ItemTrackingCode);

if ItemTrackingCode."SN Specific Tracking" then
OldItemLedgEntry.TestField("Serial No.", ItemLedgEntry."Serial No.");
if ItemLedgEntry."Drop Shipment" and (OldItemLedgEntry."Serial No." <> '') then
Expand Down Expand Up @@ -7416,6 +7418,11 @@ codeunit 22 "Item Jnl.-Post Line"
begin
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; var ItemTrackingCode: Record "Item Tracking Code")
begin
end;

[IntegrationEvent(false, false)]
local procedure OnAfterTestFirstApplyItemLedgerEntryTracking(ItemLedgEntry: Record "Item Ledger Entry"; OldItemLedgEntry: Record "Item Ledger Entry"; ItemTrackingCode: Record "Item Tracking Code")
begin
Expand Down
Loading