lSeriesCodeunit.InitSeries(GetNoSeriesCode, lPlanLine."Quality No.", Today, "No.", lPlanLine."Quality No."); procedure GetNoSeriesCode(): Code[30] var NoSeriesCode: Code[30]; begin CASE lPlanLine."Quality Type" OF lplanline."Quality Type"::Plan: NoSeriesCode := gSeriesQuality."Order Control"; end; end; lControlLine."Quality No." := lSeriesCodeunit.GetNextNo(lPlanLine."Quality No.", Today, true);
Answers
lControlLine."Quality No." := lSeriesCodeunit.GetNextNo(lPlanLine."Quality No.", Today, true);
Do (in a way):
NoSeriesCode := 'CONTROL';
NoSeriesMgt.InitSeries(NoSeriesCode,'',0D,"Quality No.",'');