I am trying to create a new No. Series. I've added a field to the Sales & Receivable Setup table 'Price Model' and gave it a value of 'MODEL' for the code. I've also added the No. Series info for MODEL (beginning, ending No. etc..). I have a Card Page for Price Models and now I would like to create new Model No.'s in the app when Add/Inserting records. I've used the same procedures as occurs on the Sales Header table - GetSalesSetup and NoSeriesMgt etc... but I am not successful. I am wondering if anyone has created a custom No. Series process or if there is sample code I can reference. I think I am missing something in regards to retrieving the value of the code from Sales & Receivable Setup table. Below is my code for Model No. OnValidate, code from OnInsert, and supporting local Procedures:
field(1; "Model No."; Code[20])
{
CaptionML = ENU = 'Model No.';
Editable = true;
trigger OnValidate();
var
NoSeriesMgt: Codeunit NoSeriesManagement;
DefaultNoSeriesCode: Code[20];
BEGIN
IF "Model No." <> xRec."Model No." THEN BEGIN
GetSalesSetup;
NoSeriesMgt.TestManual(DefaultNoSeriesCode);
"Model No." := DefaultNoSeriesCode;
END;
end;
}
trigger OnInsert();
var
NoSeriesMgt: Codeunit NoSeriesManagement;
DefaultNoSeriesCode: Code[20];
NewDate: Date;
OldNoSeriesCode: code[20];
NewNoSeriesCode: Code[20];
BEGIN
IF "Model No." = '' THEN
GetSalesSetup();
NoSeriesMgt.InitSeries(DefaultNoSeriesCode, OldNoSeriesCode, NewDate, "Model No.", NewNoSeriesCode);
end;
local procedure GetSalesSetup()
var
SalesSetup: Record "Sales & Receivables Setup";
NoSeriesMgt: Codeunit NoSeriesManagement;
DefaultNoSeriesCode: Code[20];
begin
SalesSetup.Get();
NoSeriesMgt.TestManual(DefaultNoSeriesCode);
"Model No." := DefaultNoSeriesCode;
OnAfterGetSalesSetup(Rec, SalesSetup, CurrFieldNo);
end;
local procedure OnAfterGetSalesSetup(ModelHeader: Record "Price Model Header"; var SalesReceivablesSetup: Record "Sales & Receivables Setup"; CalledByFieldNo: Integer)
begin
end;
Thank you in advance for any guidance you may provide.
