Codeunit "SharedNoSeriesManagement WCAP"

ID 70345364

Namespace: CapVision.CapCollecte.Intercompany.NoSeries

Properties

Name	Value
Permissions	tabledata "Shared No. Series Line WCAP" = rimd, tabledata "Shared No. Series WCAP" = r

Methods

TestManual

procedure TestManual(DefaultNoSeriesCode: Code[20])

Parameters

Name	Type	Description
DefaultNoSeriesCode	Code[20]

ManualNoAllowed

procedure ManualNoAllowed(DefaultNoSeriesCode: Code[20]): Boolean

Parameters

Name	Type	Description
DefaultNoSeriesCode	Code[20]

Returns

Type	Description
Boolean

TestManualWithDocumentNo

procedure TestManualWithDocumentNo(DefaultNoSeriesCode: Code[20]; DocumentNo: Code[20])

Parameters

Name	Type	Description
DefaultNoSeriesCode	Code[20]
DocumentNo	Code[20]

InitSeries

procedure InitSeries(DefaultNoSeriesCode: Code[20]; OldNoSeriesCode: Code[20]; NewDate: Date; var NewNo: Code[20]; var NewNoSeriesCode: Code[20])

Parameters

Name	Type	Description
DefaultNoSeriesCode	Code[20]
OldNoSeriesCode	Code[20]
NewDate	Date
NewNo	Code[20]
NewNoSeriesCode	Code[20]

SetDefaultSeries

procedure SetDefaultSeries(var NewNoSeriesCode: Code[20]; NoSeriesCode: Code[20])

Parameters

Name	Type	Description
NewNoSeriesCode	Code[20]
NoSeriesCode	Code[20]

SelectSeries

procedure SelectSeries(DefaultNoSeriesCode: Code[20]; OldNoSeriesCode: Code[20]; var NewNoSeriesCode: Code[20]): Boolean

Parameters

Name	Type	Description
DefaultNoSeriesCode	Code[20]
OldNoSeriesCode	Code[20]
NewNoSeriesCode	Code[20]

Returns

Type	Description
Boolean

LookupSeries

procedure LookupSeries(DefaultNoSeriesCode: Code[20]; var NewNoSeriesCode: Code[20]): Boolean

Parameters

Name	Type	Description
DefaultNoSeriesCode	Code[20]
NewNoSeriesCode	Code[20]

Returns

Type	Description
Boolean

TestSeries

procedure TestSeries(DefaultNoSeriesCode: Code[20]; NewNoSeriesCode: Code[20])

Parameters

Name	Type	Description
DefaultNoSeriesCode	Code[20]
NewNoSeriesCode	Code[20]

SetSeries

procedure SetSeries(var NewNo: Code[20])

Parameters

Name	Type	Description
NewNo	Code[20]

FilterSeries

procedure FilterSeries()

GetNextNo

procedure GetNextNo(NoSeriesCode: Code[20]; SeriesDate: Date; ModifySeries: Boolean): Code[20]

Parameters

Name	Type	Description
NoSeriesCode	Code[20]
SeriesDate	Date
ModifySeries	Boolean

Returns

Type	Description
Code[20]

GetNextNo3

Obsolete

This element will become obsolete from version 21.0. Use DoGetNextNo() instead

[Obsolete(Use DoGetNextNo() instead,21.0)]
procedure GetNextNo3(NoSeriesCode: Code[20]; SeriesDate: Date; ModifySeries: Boolean; NoErrorsOrWarnings: Boolean): Code[20]

Parameters

Name	Type	Description
NoSeriesCode	Code[20]
SeriesDate	Date
ModifySeries	Boolean
NoErrorsOrWarnings	Boolean

Returns

Type	Description
Code[20]

DoGetNextNo

Gets the next number in a number series. If ModifySeries is set to true, the number series is incremented when getting the next number. NOTE: If you set ModifySeries to false you should manually increment the number series to ensure consistency.

procedure DoGetNextNo(NoSeriesCode: Code[20]; SeriesDate: Date; ModifySeries: Boolean; NoErrorsOrWarnings: Boolean): Code[20]

Parameters

Name	Type	Description
NoSeriesCode	Code[20]	The identifier of the number series.
SeriesDate	Date	The date of the number series. The default date is WorkDate.
ModifySeries	Boolean	Set to true to increment the number series when getting the next number. Set to false if you want to manually increment the number series.
NoErrorsOrWarnings	Boolean	Set to true to disable errors and warnings.

Returns

Type	Description
Code[20]	The next number in the number series.

FindNoSeriesLine

procedure FindNoSeriesLine(var NoSeriesLineResult: Record "Shared No. Series Line WCAP"; NoSeriesCode: Code[20]; SeriesDate: Date): Boolean

Parameters

Name	Type	Description
NoSeriesLineResult	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series Line WCAP"
NoSeriesCode	Code[20]
SeriesDate	Date

Returns

Type	Description
Boolean

IsCurrentNoSeriesLine

procedure IsCurrentNoSeriesLine(NoSeriesLineIn: Record "Shared No. Series Line WCAP"): Boolean

Parameters

Name	Type	Description
NoSeriesLineIn	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series Line WCAP"

Returns

Type	Description
Boolean

TryGetNextNo

procedure TryGetNextNo(NoSeriesCode: Code[20]; SeriesDate: Date): Code[20]

Parameters

Name	Type	Description
NoSeriesCode	Code[20]
SeriesDate	Date

Returns

Type	Description
Code[20]

GetNextNo1

Obsolete

This element will become obsolete from version 21.0. Use SetParametersBeforeRun() instead

[Obsolete(Use SetParametersBeforeRun() instead,21.0)]
procedure GetNextNo1(NoSeriesCode: Code[20]; SeriesDate: Date)

Parameters

Name	Type	Description
NoSeriesCode	Code[20]
SeriesDate	Date

SetParametersBeforeRun

procedure SetParametersBeforeRun(NoSeriesCode: Code[20]; SeriesDate: Date)

Parameters

Name	Type	Description
NoSeriesCode	Code[20]
SeriesDate	Date

GetNextNo2

Obsolete

This element will become obsolete from version 21.0. Use GetNextNoAfterRun() instead

[Obsolete(Use GetNextNoAfterRun() instead,21.0)]
procedure GetNextNo2(): Code[20]

Returns

Type	Description
Code[20]

GetNextNoAfterRun

procedure GetNextNoAfterRun(): Code[20]

Returns

Type	Description
Code[20]

SaveNoSeries

procedure SaveNoSeries()

ClearNoSeriesLine

procedure ClearNoSeriesLine()

SetNoSeriesLineFilter

procedure SetNoSeriesLineFilter(var NoSeriesLine: Record "Shared No. Series Line WCAP"; NoSeriesCode: Code[20]; StartDate: Date)

Parameters

Name	Type	Description
NoSeriesLine	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series Line WCAP"
NoSeriesCode	Code[20]
StartDate	Date

IncrementNoText

procedure IncrementNoText(var No: Code[20]; IncrementByNo: Decimal)

Parameters

Name	Type	Description
No	Code[20]
IncrementByNo	Decimal

UpdateNoSeriesLine

procedure UpdateNoSeriesLine(var NoSeriesLine: Record "Shared No. Series Line WCAP"; NewNo: Code[20]; NewFieldName: Text[100])

Parameters

Name	Type	Description
NoSeriesLine	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series Line WCAP"
NewNo	Code[20]
NewFieldName	Text[100]

GetNoSeriesWithCheck

procedure GetNoSeriesWithCheck(NewNoSeriesCode: Code[20]; SelectNoSeriesAllowed: Boolean; CurrentNoSeriesCode: Code[20]): Code[20]

Parameters

Name	Type	Description
NewNoSeriesCode	Code[20]
SelectNoSeriesAllowed	Boolean
CurrentNoSeriesCode	Code[20]

Returns

Type	Description
Code[20]

SeriesHasRelations

procedure SeriesHasRelations(DefaultNoSeriesCode: Code[20]): Boolean

Parameters

Name	Type	Description
DefaultNoSeriesCode	Code[20]

Returns

Type	Description
Boolean

ClearStateAndGetNextNo

procedure ClearStateAndGetNextNo(NoSeriesCode: Code[20]): Code[20]

Parameters

Name	Type	Description
NoSeriesCode	Code[20]

Returns

Type	Description
Code[20]

Events

OnAfterGetNextNo3

[IntegrationEvent(False,False)]
local procedure OnAfterGetNextNo3(var NoSeriesLine: Record "Shared No. Series Line WCAP"; ModifySeries: Boolean)

Parameters

Name	Type	Description
NoSeriesLine	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series Line WCAP"
ModifySeries	Boolean

OnAfterSaveNoSeries

[IntegrationEvent(False,False)]
local procedure OnAfterSaveNoSeries(var NoSeriesLine: Record "Shared No. Series Line WCAP")

Parameters

Name	Type	Description
NoSeriesLine	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series Line WCAP"

OnAfterSetParametersBeforeRun

[IntegrationEvent(False,False)]
local procedure OnAfterSetParametersBeforeRun(var TryNoSeriesCode: Code[20]; var TrySeriesDate: Date; var WarningNoSeriesCode: Code[20])

Parameters

Name	Type	Description
TryNoSeriesCode	Code[20]
TrySeriesDate	Date
WarningNoSeriesCode	Code[20]

OnAfterTestManual

[IntegrationEvent(False,False)]
local procedure OnAfterTestManual(DefaultNoSeriesCode: Code[20])

Parameters

Name	Type	Description
DefaultNoSeriesCode	Code[20]

OnBeforeGetNextNo

[IntegrationEvent(False,False)]
local procedure OnBeforeGetNextNo(var NoSeriesCode: Code[20]; var SeriesDate: Date; var ModifySeries: Boolean; var Result: Code[20]; var IsHandled: Boolean; var NoSeriesLine: Record "Shared No. Series Line WCAP")

Parameters

Name	Type	Description
NoSeriesCode	Code[20]
SeriesDate	Date
ModifySeries	Boolean
Result	Code[20]
IsHandled	Boolean
NoSeriesLine	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series Line WCAP"

OnBeforeDoGetNextNo

[IntegrationEvent(False,False)]
local procedure OnBeforeDoGetNextNo(var NoSeriesCode: Code[20]; var SeriesDate: Date; var ModifySeries: Boolean; var NoErrorsOrWarnings: Boolean)

Parameters

Name	Type	Description
NoSeriesCode	Code[20]
SeriesDate	Date
ModifySeries	Boolean
NoErrorsOrWarnings	Boolean

OnBeforeModifyNoSeriesLine

[IntegrationEvent(False,False)]
local procedure OnBeforeModifyNoSeriesLine(var NoSeriesLine: Record "Shared No. Series Line WCAP"; var IsHandled: Boolean)

Parameters

Name	Type	Description
NoSeriesLine	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series Line WCAP"
IsHandled	Boolean

OnBeforeUpdateNoSeriesLine

[IntegrationEvent(False,False)]
local procedure OnBeforeUpdateNoSeriesLine(var NoSeriesLine: Record "Shared No. Series Line WCAP"; NewNo: Code[20]; NewFieldName: Text[100]; var IsHandled: Boolean)

Parameters

Name	Type	Description
NoSeriesLine	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series Line WCAP"
NewNo	Code[20]
NewFieldName	Text[100]
IsHandled	Boolean

OnNoSeriesLineFilterOnBeforeFindLast

[IntegrationEvent(False,False)]
local procedure OnNoSeriesLineFilterOnBeforeFindLast(var NoSeriesLine: Record "Shared No. Series Line WCAP")

Parameters

Name	Type	Description
NoSeriesLine	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series Line WCAP"

OnAfterInitSeries

[IntegrationEvent(False,False)]
local procedure OnAfterInitSeries(var NoSeries: Record "Shared No. Series WCAP"; DefaultNoSeriesCode: Code[20]; NewDate: Date; var NewNo: Code[20])

Parameters

Name	Type	Description
NoSeries	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series WCAP"
DefaultNoSeriesCode	Code[20]
NewDate	Date
NewNo	Code[20]

OnBeforeFilterSeries

[IntegrationEvent(False,False)]
local procedure OnBeforeFilterSeries(var NoSeries: Record "Shared No. Series WCAP"; NoSeriesCode: Code[20]; var IsHandled: Boolean)

Parameters

Name	Type	Description
NoSeries	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series WCAP"
NoSeriesCode	Code[20]
IsHandled	Boolean

OnBeforeInitSeries

[IntegrationEvent(False,False)]
local procedure OnBeforeInitSeries(var DefaultNoSeriesCode: Code[20]; OldNoSeriesCode: Code[20]; NewDate: Date; var NewNo: Code[20]; var NewNoSeriesCode: Code[20]; var NoSeries: Record "Shared No. Series WCAP"; var IsHandled: Boolean; var NoSeriesCode: Code[20])

Parameters

Name	Type	Description
DefaultNoSeriesCode	Code[20]
OldNoSeriesCode	Code[20]
NewDate	Date
NewNo	Code[20]
NewNoSeriesCode	Code[20]
NoSeries	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series WCAP"
IsHandled	Boolean
NoSeriesCode	Code[20]

OnBeforeSelectSeries

[IntegrationEvent(False,False)]
local procedure OnBeforeSelectSeries(var DefaultNoSeriesCode: Code[20]; OldNoSeriesCode: Code[20]; var NewNoSeriesCode: Code[20]; var Result: Boolean; var IsHandled: Boolean)

Parameters

Name	Type	Description
DefaultNoSeriesCode	Code[20]
OldNoSeriesCode	Code[20]
NewNoSeriesCode	Code[20]
Result	Boolean
IsHandled	Boolean

OnSelectSeriesOnBeforePageRunModal

[IntegrationEvent(False,False)]
local procedure OnSelectSeriesOnBeforePageRunModal(DefaultNoSeriesCode: Code[20]; var NoSeries: Record "Shared No. Series WCAP")

Parameters

Name	Type	Description
DefaultNoSeriesCode	Code[20]
NoSeries	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series WCAP"

OnBeforeSaveNoSeries

[IntegrationEvent(False,False)]
local procedure OnBeforeSaveNoSeries(var NoSeriesLine: Record "Shared No. Series Line WCAP"; var IsHandled: Boolean)

Parameters

Name	Type	Description
NoSeriesLine	Table CapVision.CapCollecte.Intercompany.NoSeries."Shared No. Series Line WCAP"
IsHandled	Boolean

OnBeforeTestManual

[IntegrationEvent(False,False)]
local procedure OnBeforeTestManual(var DefaultNoSeriesCode: Code[20]; var IsHandled: Boolean)

Parameters

Name	Type	Description
DefaultNoSeriesCode	Code[20]
IsHandled	Boolean

OnBeforeSetDefaultSeries

[IntegrationEvent(False,False)]
local procedure OnBeforeSetDefaultSeries(var NewNoSeriesCode: Code[20]; var NoSeriesCode: Code[20]; var IsHandled: Boolean)

Parameters

Name	Type	Description
NewNoSeriesCode	Code[20]
NoSeriesCode	Code[20]
IsHandled	Boolean

See also

• Codeunit