trigger OnInsert()
var
Item: Record Item;
#if not CLEAN24
NoSeriesManagement: Codeunit NoSeriesManagement;
#endif
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeOnInsert(Rec, IsHandled, xRec);
if not IsHandled then begin
if "No." = '' then begin
GetInvtSetup();
InventorySetup.TestField("Item Nos.");
#if not CLEAN24
NoSeriesManagement.RaiseObsoleteOnBeforeInitSeries(InventorySetup."Item Nos.", xRec."No. Series", 0D, "No.", "No. Series", IsHandled);
if not IsHandled then begin
if NoSeries.AreRelated(InventorySetup."Item Nos.", xRec."No. Series") then
"No. Series" := xRec."No. Series"
else
"No. Series" := InventorySetup."Item Nos.";
"No." := NoSeries.GetNextNo("No. Series");
Item.ReadIsolation(IsolationLevel::ReadUncommitted);
Item.SetLoadFields("No.");
while Item.Get("No.") do
"No." := NoSeries.GetNextNo("No. Series");
NoSeriesManagement.RaiseObsoleteOnAfterInitSeries("No. Series", InventorySetup."Item Nos.", 0D, "No.");
end;
#else
if NoSeries.AreRelated(InventorySetup."Item Nos.", xRec."No. Series") then
"No. Series" := xRec."No. Series"
else
"No. Series" := InventorySetup."Item Nos.";
"No." := NoSeries.GetNextNo("No. Series");
Item.ReadIsolation(IsolationLevel::ReadUncommitted);
Item.SetLoadFields("No.");
while Item.Get("No.") do
"No." := NoSeries.GetNextNo("No. Series");
#endif
"Costing Method" := InventorySetup."Default Costing Method";
end;
DimMgt.UpdateDefaultDim(
DATABASE::Item, "No.",
"Global Dimension 1 Code", "Global Dimension 2 Code");
UpdateReferencedIds();
SetLastDateTimeModified();
UpdateItemUnitGroup();
end;
OnAfterOnInsert(Rec, xRec);
end;
trigger OnInsertRecord(BelowxRec: Boolean): Boolean
var
NoSeriesRec: Record "No. Series";
NoSeriesFunc: Codeunit "No. Series";
NoSeriesLineRec: Record "No. Series Line";
NoSeriesCode: Code[20];
begin
Error('On insert record trigger called....'); // This does not get called.
If Rec."No. Series" = '' then
Error('No Series must be provided.');
// generate a new no series.
NoSeriesCode := NoSeriesFunc.GetNextNo(Rec."No. Series");
Rec."No." := NoSeriesCode;
exit(false);
end;
}
Sohail Ahmed
1,382
YUN ZHU
1,008
Super User 2025 Season 1
Mansi Soni
880