Skip to content
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

remove NoSeriesMgt #535

Merged
merged 13 commits into from
Feb 6, 2024
Merged

remove NoSeriesMgt #535

Show file tree
Hide file tree
Changes from 11 commits
Commits
Show all changes
13 commits
Select commit Hold shift + click to select a range
4262ee2
remove NoSeriesMgt
grobyns Feb 2, 2024
be4d447
update ObsoleteReason
grobyns Feb 2, 2024
78580bd
move test permissionset
grobyns Feb 2, 2024
b234e4f
renumber codeunit
grobyns Feb 2, 2024
131d975
exit return value
grobyns Feb 5, 2024
393e1db
Merge branch 'main' of https://github.com/microsoft/BCApps into bugs/…
grobyns Feb 5, 2024
df45d01
fix obsoletion
grobyns Feb 5, 2024
0eb2041
remove test code
grobyns Feb 5, 2024
26c4864
fix clean task
grobyns Feb 5, 2024
aa7d0ae
remove test symbol and fix permission
grobyns Feb 5, 2024
b2d70a7
Merge branch 'main' into bugs/AB498580
grobyns Feb 6, 2024
565b83c
fix obsolete messages
grobyns Feb 6, 2024
4353249
fix typo
grobyns Feb 6, 2024
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
3 changes: 2 additions & 1 deletion src/Business Foundation/App/NoSeries/Permissions/NoSeriesObjects.permissionset.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -25,5 +25,6 @@ permissionset 300 "No. Series - Objects"
page "No. Series Lines Sales" = X,
#pragma warning restore AL0432
#endif
page "No. Series Relationships" = X;
page "No. Series Relationships" = X,
Codeunit "No. Series - Setup" = X;
}
12 changes: 6 additions & 6 deletions src/Business Foundation/App/NoSeries/src/Legacy/NoSeriesLineObsolete.TableExt.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -98,20 +98,20 @@ tableextension 309 NoSeriesLineObsolete extends "No. Series Line"
exit(NoSeries.PeekNextNo(Rec, WorkDate()));
end;

[Obsolete('This functionality has been removed and getting the number from a string is no longer part of No. Series.', '24.0')]
[Obsolete('This functionality will be removed without public replacement.', '24.0')]
procedure ExtractNoFromCode(NumberCode: Code[20]): BigInteger
var
NoSeriesMgt: Codeunit NoSeriesMgt;
NoSeriesSequenceImpl: Codeunit "No. Series - Sequence Impl.";
begin
exit(NoSeriesMgt.ExtractNoFromCode(NumberCode));
exit(NoSeriesSequenceImpl.ExtractNoFromCode(NumberCode));
end;

[Obsolete('This functionality has been removed.', '24.0')]
[Obsolete('This functionality will be removed without public replacement.', '24.0')]
procedure GetFormattedNo(Number: BigInteger): Code[20]
var
NoSeriesMgt: Codeunit NoSeriesMgt;
NoSeriesSequenceImpl: Codeunit "No. Series - Sequence Impl.";
begin
exit(NoSeriesMgt.GetFormattedNo(Rec, Number));
exit(NoSeriesSequenceImpl.GetFormattedNo(Rec, Number));
end;
#endif

Expand Down
79 changes: 64 additions & 15 deletions src/Business Foundation/App/NoSeries/src/Legacy/NoSeriesManagement.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -42,12 +42,14 @@ codeunit 396 NoSeriesManagement
CannotAssignNewErr: Label 'You cannot assign new numbers from the number series %1.', Comment = '%1=No. Series Code';
CannotAssignNewBeforeDateErr: Label 'You cannot assign new numbers from the number series %1 on a date before %2.', Comment = '%1=No. Series Code,%2=Date';
CannotAssignGreaterErr: Label 'You cannot assign numbers greater than %1 from the number series %2.', Comment = '%1=Last No.,%2=No. Series Code';
#if not CLEAN24
NumberFormatErr: Label 'The number format in %1 must be the same as the number format in %2.', Comment = '%1=No. Series Code,%2=No. Series Code';
#endif
NumberLengthErr: Label 'The number %1 cannot be extended to more than 20 characters.', Comment = '%1=No.';
#if not CLEAN24
PostErr: Label 'You have one or more documents that must be posted before you post document no. %1 according to your company''s No. Series setup.', Comment = '%1=Document No.';
#endif
UnincrementableStringErr: Label 'The value in the %1 field must have a number so that we can assign the next number in the series.', Comment = '%1 = New Field Name';
#endif

#if not CLEAN24
[Obsolete('Please use the "No. Series" and "No. Series - Batch" codeunits instead', '24.0')]
Expand Down Expand Up @@ -458,7 +460,7 @@ codeunit 396 NoSeriesManagement
procedure SaveNoSeries()
var
NoSeries: Codeunit "No. Series";
NoSeriesMgt: Codeunit NoSeriesMgt;
NoSeriesSequenceImpl: Codeunit "No. Series - Sequence Impl.";
IsHandled: Boolean;
begin
IsHandled := false;
Expand All @@ -467,19 +469,60 @@ codeunit 396 NoSeriesManagement
if LastNoSeriesLine."Series Code" <> '' then begin
if (LastNoSeriesLine.Implementation = "No. Series Implementation"::Sequence) then
if (LastNoSeriesLine."Last No. Used" <> '') and (LastNoSeriesLine."Last No. Used" > NoSeries.GetLastNoUsed(LastNoSeriesLine)) then
NoSeriesMgt.RestartSequence(LastNoSeriesLine, NoSeriesMgt.ExtractNoFromCode(LastNoSeriesLine."Last No. Used"));
RestartSequence(LastNoSeriesLine, NoSeriesSequenceImpl.ExtractNoFromCode(LastNoSeriesLine."Last No. Used"));
if not (LastNoSeriesLine.Implementation = "No. Series Implementation"::Sequence) or UpdateLastUsedDate then
ModifyNoSeriesLine(LastNoSeriesLine);
end;
OnAfterSaveNoSeries(LastNoSeriesLine);
end;

internal procedure RestartSequence(var NoSeriesLine: Record "No. Series Line"; NewStartingNo: BigInteger)
begin
NoSeriesLine.TestField(Implementation, NoSeriesLine.Implementation::Sequence);
NoSeriesLine.TestField("Sequence Name");
NoSeriesLine."Starting Sequence No." := NewStartingNo;
if NoSeriesLine."Last No. Used" = '' then
NumberSequence.Restart(NoSeriesLine."Sequence Name", NoSeriesLine."Starting Sequence No." - NoSeriesLine."Increment-by No.")
else begin
NumberSequence.Restart(NoSeriesLine."Sequence Name", NoSeriesLine."Starting Sequence No.");
if NumberSequence.Next(NoSeriesLine."Sequence Name") = 0 then; // Simulate that a number was used
end;
end;
#endif
procedure ClearNoSeriesLine()
begin
Clear(LastNoSeriesLine);
end;

#if not CLEAN24
internal procedure SetAllowGaps(var NoSeries: Record "No. Series"; AllowGaps: Boolean)
var
NoSeriesLine: Record "No. Series Line";
StartDate: Date;
begin
FindNoSeriesLineToShow(NoSeries, NoSeriesLine);
StartDate := NoSeriesLine."Starting Date";
NoSeriesLine.SetRange("Allow Gaps in Nos.", not AllowGaps);
NoSeriesLine.SetFilter("Starting Date", '>=%1', StartDate);
NoSeriesLine.LockTable();
if NoSeriesLine.FindSet() then
repeat
NoSeriesLine.Validate("Allow Gaps in Nos.", AllowGaps);
NoSeriesLine.Modify();
until NoSeriesLine.Next() = 0;
end;

internal procedure FindNoSeriesLineToShow(var NoSeries: Record "No. Series"; var NoSeriesLine: Record "No. Series Line")
begin
SetNoSeriesLineFilter(NoSeriesLine, NoSeries.Code, 0D);

if NoSeriesLine.FindLast() then
exit;

NoSeriesLine.Reset();
NoSeriesLine.SetRange("Series Code", NoSeries.Code);
end;

[Obsolete('Please use the procedure GetNoSeriesLine on the "No. Series" and "No. Series - Batch" codeunits instead', '24.0')]
procedure SetNoSeriesLineFilter(var NoSeriesLine: Record "No. Series Line"; NoSeriesCode: Code[20]; StartDate: Date)
begin
Expand All @@ -496,12 +539,12 @@ codeunit 396 NoSeriesManagement
NoSeriesLine.SetRange(Open, true);
end;
end;
#endif

internal procedure RaiseObsoleteOnNoSeriesLineFilterOnBeforeFindLast(var NoSeriesLine: Record "No. Series Line")
begin
OnNoSeriesLineFilterOnBeforeFindLast(NoSeriesLine);
end;
#endif

procedure IncrementNoText(var No: Code[20]; IncrementByNo: Decimal)
var
Expand All @@ -518,6 +561,8 @@ codeunit 396 NoSeriesManagement
ReplaceNoText(No, NewNo, 0, StartPos, EndPos);
end;

#if not CLEAN24
[Obsolete('The method was moved to No. Series Setup Impl. and is now internal.', '24.0')]
grobyns marked this conversation as resolved.
Show resolved Hide resolved
procedure UpdateNoSeriesLine(var NoSeriesLine: Record "No. Series Line"; NewNo: Code[20]; NewFieldName: Text[100])
var
NoSeriesLine2: Record "No. Series Line";
Expand Down Expand Up @@ -580,7 +625,7 @@ codeunit 396 NoSeriesManagement
ReplaceNoText(No, NewNo, Length, StartPos, EndPos);
end;
end;

#endif
local procedure ReplaceNoText(var No: Code[20]; NewNo: Code[20]; FixedLength: Integer; StartPos: Integer; EndPos: Integer)
var
StartNo: Code[20];
Expand All @@ -603,7 +648,7 @@ codeunit 396 NoSeriesManagement
Error(NumberLengthErr, No);
No := CopyStr(StartNo + ZeroNo + NewNo + EndNo, 1, MaxStrLen(No));
end;

#if not CLEAN24
local procedure GetNoText(No: Code[20]): Code[20]
var
StartPos: Integer;
Expand All @@ -613,7 +658,7 @@ codeunit 396 NoSeriesManagement
if StartPos <> 0 then
exit(CopyStr(CopyStr(No, StartPos, EndPos - StartPos + 1), 1, 20));
end;

#endif
local procedure GetIntegerPos(No: Code[20]; var StartPos: Integer; var EndPos: Integer)
var
IsDigit: Boolean;
Expand All @@ -634,22 +679,17 @@ codeunit 396 NoSeriesManagement
until (i = 0) or (StartPos <> 0) and not IsDigit;
end;
end;

#if not CLEAN24
[Obsolete('The No. Series Line Sales table is obsolete. Please use the No. Series Line table instead.', '24.0')]
[Scope('OnPrem')]
procedure SetNoSeriesLineSalesFilter(var NoSeriesLineSales: Record "No. Series Line Sales"; NoSeriesCode: Code[20]; StartDate: Date)
var
NoSeriesMgt: Codeunit NoSeriesMgt;
begin
OnObsoleteSetNoSeriesLineSalesFilter(NoSeriesLineSales, NoSeriesCode, StartDate);
end;

[Obsolete('The No. Series Line Purchase table is obsolete. Please use the No. Series Line table instead.', '24.0')]
[Scope('OnPrem')]
procedure SetNoSeriesLinePurchaseFilter(var NoSeriesLinePurchase: Record "No. Series Line Purchase"; NoSeriesCode: Code[20]; StartDate: Date)
var
NoSeriesMgt: Codeunit NoSeriesMgt;
begin
OnObsoleteSetNoSeriesLinePurchaseFilter(NoSeriesLinePurchase, NoSeriesCode, StartDate);
end;
Expand Down Expand Up @@ -931,11 +971,19 @@ codeunit 396 NoSeriesManagement
begin
end;

[IntegrationEvent(false, false)]
internal procedure OnBeforeUpdateNoSeriesLine(var NoSeriesLine: Record "No. Series Line"; NewNo: Code[20]; NewFieldName: Text[100]; var IsHandled: Boolean)
#if not CLEAN24
[Obsolete('This is a temporary method for compatibility only. Please use the "No. Series" codeunit instead', '24.0')]
internal procedure RaiseObsoleteOnBeforeUpdateNoSeriesLine(var NoSeriesLine: Record "No. Series Line"; NewNo: Code[20]; NewFieldName: Text[100]; var IsHandled: Boolean)
grobyns marked this conversation as resolved.
Show resolved Hide resolved
begin
OnBeforeUpdateNoSeriesLine(NoSeriesLine, NewNo, NewFieldName, IsHandled);
end;

[Obsolete('This event is obsolete. Please use the extensibility options provided by the No. Series module.', '24.0')]
grobyns marked this conversation as resolved.
Show resolved Hide resolved
[IntegrationEvent(false, false)]
local procedure OnBeforeUpdateNoSeriesLine(var NoSeriesLine: Record "No. Series Line"; NewNo: Code[20]; NewFieldName: Text[100]; var IsHandled: Boolean)
begin
end;
#endif
procedure ClearStateAndGetNextNo(NoSeriesCode: Code[20]): Code[20]
begin
Clear(LastNoSeriesLine);
Expand All @@ -945,12 +993,13 @@ codeunit 396 NoSeriesManagement
exit(GetNextNo(NoSeriesCode, WorkDate(), false));
end;

#if not CLEAN24
[Obsolete('Please use OnAfterSetNoSeriesCurrentLineFilters in the No. Series module instead.', '24.0')]
[IntegrationEvent(false, false)]
local procedure OnNoSeriesLineFilterOnBeforeFindLast(var NoSeriesLine: Record "No. Series Line")
begin
end;

#if not CLEAN24
[Obsolete('Please use the No. Series module instead.', '24.0')]
[IntegrationEvent(false, false)]
local procedure OnAfterInitSeries(var NoSeries: Record "No. Series"; DefaultNoSeriesCode: Code[20]; NewDate: Date; var NewNo: Code[20])
Expand Down
Loading
Loading