Codeunit 18122140 EOS DS Management

Codeunit 18122140 EOS DS Management

Methods

GetDSEnabled

procedure GetDSEnabled(RecRef: RecordRef): Boolean

Parameters / Return Value

RecRef RecordRef
Returns Boolean

GetDSOwnershipEnabled

procedure GetDSOwnershipEnabled(RecRef: RecordRef): Boolean

Parameters / Return Value

RecRef RecordRef
Returns Boolean

DSEnabled

procedure DSEnabled(RecVar: Variant): Boolean

Parameters / Return Value

RecVar Variant
Returns Boolean

SetFirstStatus

procedure SetFirstStatus(var RecRef: RecordRef): Boolean

Parameters / Return Value

RecRef RecordRef
Returns Boolean

SetDefaultOwner

procedure SetDefaultOwner(var RecRef: RecordRef): Boolean

Parameters / Return Value

RecRef RecordRef
Returns Boolean

SetCreatedByAsOwner

procedure SetCreatedByAsOwner(var RecRef: RecordRef): Boolean

Parameters / Return Value

RecRef RecordRef
Returns Boolean

IsAssigAllowed

procedure IsAssigAllowed(TablesSetup: Record "EOS DS Tables Setup"; DataSecurityTableStatus: Record "EOS DS Table Status"; RecRef: RecordRef): Boolean

Parameters / Return Value

TablesSetup Record "EOS DS Tables Setup"
DataSecurityTableStatus Record "EOS DS Table Status"
RecRef RecordRef
Returns Boolean

SetRecordFields

procedure SetRecordFields(RecRef: RecordRef; var DataSecurityRecordStatus: Record "EOS003 Record Status")

Parameters / Return Value

RecRef RecordRef
DataSecurityRecordStatus Record "EOS003 Record Status"

UpdateStatusOnRecord

procedure UpdateStatusOnRecord(var RecRef: RecordRef; NewStatus: Code[10]): Boolean

Parameters / Return Value

RecRef RecordRef
NewStatus Code[10]
Returns Boolean

UpdateOwnerOnRecord

procedure UpdateOwnerOnRecord(var RecRef: RecordRef; NewOwner: Code[50]; NewOwnerType: Enum "EOS003 Owner Type"): Boolean

Parameters / Return Value

RecRef RecordRef
NewOwner Code[50]
NewOwnerType Enum "EOS003 Owner Type"
Returns Boolean

GetRecordStatus

procedure GetRecordStatus(RecRef: RecordRef): Code[10]

Parameters / Return Value

RecRef RecordRef
Returns Code[10]

GetRecordOwnerCode

procedure GetRecordOwnerCode(RecRef: RecordRef; var RecordOwner: Code[50]; var RecordOwnerType: Enum "EOS003 Owner Type")

Parameters / Return Value

RecRef RecordRef
RecordOwner Code[50]
RecordOwnerType Enum "EOS003 Owner Type"

GetRecordOwner

Obsolete

Pending: Use GetRecordOwnerCode instead (25.0)

procedure GetRecordOwner(RecRef: RecordRef; var RecordOwner: Code[20]; var RecordOwnerType: Enum "EOS003 Owner Type")

Parameters / Return Value

RecRef RecordRef
RecordOwner Code[20]
RecordOwnerType Enum "EOS003 Owner Type"

IsMember

procedure IsMember(GroupCode: Code[20]): Boolean

Parameters / Return Value

GroupCode Code[20]
Returns Boolean

IsPermissionSetMember

procedure IsPermissionSetMember(PermissionId: Code[20]): Boolean

Parameters / Return Value

PermissionId Code[20]
Returns Boolean

IsPermissionSetMember

procedure IsPermissionSetMember(PermissionId: Code[20]; PermissionSetType: Option "User-Defined",Extension,System): Boolean

Parameters / Return Value

PermissionId Code[20]
PermissionSetType Option
"User-Defined" (0) , Extension (1) , System (2)
Returns Boolean

IsSecurityGroupMember

procedure IsSecurityGroupMember(GroupCode: Code[20]): Boolean

Parameters / Return Value

GroupCode Code[20]
Returns Boolean

GetRecordStatusMessage

procedure GetRecordStatusMessage(RecVariant: Variant): Text

Parameters / Return Value

RecVariant Variant
Returns Text[]

GetRecordPKOptionField

procedure GetRecordPKOptionField(RecordVariant: Variant; ShowError: Boolean) OptionFieldNo: Integer

Parameters / Return Value

RecordVariant Variant
ShowError Boolean
Returns Integer

GetRecordPKOptionFieldCount

procedure GetRecordPKOptionFieldCount(RecordVariant: Variant) OptionFieldNo: Integer

Parameters / Return Value

RecordVariant Variant
Returns Integer

GetRecordPKOptionValue

procedure GetRecordPKOptionValue(RecRef: RecordRef): Integer

Parameters / Return Value

RecRef RecordRef
Returns Integer

GetRecordSystemId

procedure GetRecordSystemId(RecRef: RecordRef): Guid

Parameters / Return Value

RecRef RecordRef
Returns Guid

GetRecordPKNoField

procedure GetRecordPKNoField(RecordVariant: Variant; CodeFieldPosition: Integer): Integer

Parameters / Return Value

RecordVariant Variant
CodeFieldPosition Integer
Returns Integer

GetRecordPKLineNoField

procedure GetRecordPKLineNoField(RecordVariant: Variant): Integer

Parameters / Return Value

RecordVariant Variant
Returns Integer

IsOwningPermitted

procedure IsOwningPermitted(RecVar: Variant; TableID: Integer; OptionType: Integer; NewStatus: Code[10]; CurrentStatus: Code[10]; ChangePathCode: Code[10]): Boolean

Parameters / Return Value

RecVar Variant
TableID Integer
OptionType Integer
NewStatus Code[10]
CurrentStatus Code[10]
ChangePathCode Code[10]
Returns Boolean

GetValidDSTransactionStatus

procedure GetValidDSTransactionStatus(RecVar: Variant; TableID: Integer; OptionType: Integer; ChangePathCode: Code[10]; CurrentStatus: Code[10]; var TempDataSecurityStatus: Record "EOS DS Status")

Parameters / Return Value

RecVar Variant
TableID Integer
OptionType Integer
ChangePathCode Code[10]
CurrentStatus Code[10]
TempDataSecurityStatus Record "EOS DS Status"

GetValidDSTransactionStatus

procedure GetValidDSTransactionStatus(TableID: Integer; OptionType: Integer; ChangePathCode: Code[10]; CurrentStatus: Code[10]; var TempDataSecurityStatus: Record "EOS DS Status")

Parameters / Return Value

TableID Integer
OptionType Integer
ChangePathCode Code[10]
CurrentStatus Code[10]
TempDataSecurityStatus Record "EOS DS Status"

GetUserNewStatus

procedure GetUserNewStatus(RecRef: RecordRef; var NewStatusCount: Integer; var NewStatusCode: Code[10]; ChangePathCode: Code[10])

Parameters / Return Value

RecRef RecordRef
NewStatusCount Integer
NewStatusCode Code[10]
ChangePathCode Code[10]

ChangeDirectStatus

procedure ChangeDirectStatus(RecRef: RecordRef; OldStatus: Code[10]; NewStatus: Code[10]; PathCode: Code[10])

Parameters / Return Value

RecRef RecordRef
OldStatus Code[10]
NewStatus Code[10]
PathCode Code[10]

ChangeDirectOwner

procedure ChangeDirectOwner(RecRef: RecordRef; OldOwner: Code[50]; OldOwnerType: Enum "EOS003 Owner Type"; NewOwner: Code[50]; NewOwnerType: Enum "EOS003 Owner Type"; isFirstAssignment: Boolean)

Parameters / Return Value

RecRef RecordRef
OldOwner Code[50]
OldOwnerType Enum "EOS003 Owner Type"
NewOwner Code[50]
NewOwnerType Enum "EOS003 Owner Type"
isFirstAssignment Boolean

ChangeOwner

procedure ChangeOwner(RecRef: RecordRef; OldOwner: Code[50]; OldOwnerType: Enum "EOS003 Owner Type"; NewOwner: Code[50]; NewOwnerType: Enum "EOS003 Owner Type")

Parameters / Return Value

RecRef RecordRef
OldOwner Code[50]
OldOwnerType Enum "EOS003 Owner Type"
NewOwner Code[50]
NewOwnerType Enum "EOS003 Owner Type"

WriteOwnerLog

procedure WriteOwnerLog(lRecRef: RecordRef; OldOwner: Code[50]; OldOwnerType: Enum "EOS003 Owner Type"; NewOwner: Code[50]; NewOwnerType: Enum "EOS003 Owner Type")

Parameters / Return Value

lRecRef RecordRef
OldOwner Code[50]
OldOwnerType Enum "EOS003 Owner Type"
NewOwner Code[50]
NewOwnerType Enum "EOS003 Owner Type"

ShowOwnerLog

procedure ShowOwnerLog(TableId: Integer; RecordSystemId: Guid)

Parameters / Return Value

TableId Integer
RecordSystemId Guid

ChangeStatusRequest

procedure ChangeStatusRequest(RecRef: RecordRef): Boolean

Parameters / Return Value

RecRef RecordRef
Returns Boolean

NextStatus

procedure NextStatus(RecRef: RecordRef)

Parameters / Return Value

RecRef RecordRef

AssignRecordRequest

procedure AssignRecordRequest(RecRef: RecordRef): Boolean

Parameters / Return Value

RecRef RecordRef
Returns Boolean

GetCurrentPathCode

procedure GetCurrentPathCode(RecRef: RecordRef) CurrentPathCode: Code[10]

Parameters / Return Value

RecRef RecordRef
Returns Code[10]

GetPossiblePathCodes

procedure GetPossiblePathCodes(RecRef: RecordRef; var Paths: Record "EOS DS Tables Change Path" temporary)

Parameters / Return Value

RecRef RecordRef
Paths Record "EOS DS Tables Change Path"

ReplaceFieldsValues

procedure ReplaceFieldsValues(RecRef: RecordRef; iCodOldStatus: Code[10]; iCodNewStatus: Code[10]; iCodPathCode: Code[10])

Parameters / Return Value

RecRef RecordRef
iCodOldStatus Code[10]
iCodNewStatus Code[10]
iCodPathCode Code[10]

DSFieldReplace

Obsolete

Pending: Not used anymore, use EDSFieldReplace instead (25.0)

procedure DSFieldReplace(iRrfRecord: RecordRef; iCodChangePath: Code[20]; iCodFromStatus: Code[10]; iCodToStatus: Code[10]; iIntFieldNo: Integer; iIntFieldOccurence: Integer; iTxtIF_FieldName: Text[250]; iTxtIF_ReplacementValue: Text[250]; iOptIF_Condition: enum "EOS003 Field Replace Condition"): Boolean

Parameters / Return Value

iRrfRecord RecordRef
iCodChangePath Code[20]
iCodFromStatus Code[10]
iCodToStatus Code[10]
iIntFieldNo Integer
iIntFieldOccurence Integer
iTxtIF_FieldName Text[250]
iTxtIF_ReplacementValue Text[250]
iOptIF_Condition enum "EOS003 Field Replace Condition"
Returns Boolean

TestMandatoryFields

procedure TestMandatoryFields(RecRef: RecordRef; iCodOldStatus: Code[10]; iCodNewStatus: Code[10]; iCodPathCode: Code[10])

Parameters / Return Value

RecRef RecordRef
iCodOldStatus Code[10]
iCodNewStatus Code[10]
iCodPathCode Code[10]

TestPreconditionFields

procedure TestPreconditionFields(iRrfRecord: RecordRef; iCodChangePath: Code[20]; iCodFromStatus: Code[10]; iCodToStatus: Code[10]; iIntFieldNo: Integer; iIntFieldOccurence: Integer; iTxtIF_FieldName: Text[250]; iTxtIF_FieldValue1: Text[250]; iTxtIF_FieldValue2: Text[250]; iOptIF_Condition: Option " ",equal,maior,"maior or equal",minor,"minor or equal","between (extreme included)","between (extreme excluded)","not equal"): Boolean

Parameters / Return Value

iRrfRecord RecordRef
iCodChangePath Code[20]
iCodFromStatus Code[10]
iCodToStatus Code[10]
iIntFieldNo Integer
iIntFieldOccurence Integer
iTxtIF_FieldName Text[250]
iTxtIF_FieldValue1 Text[250]
iTxtIF_FieldValue2 Text[250]
iOptIF_Condition Option
" " (0) , equal (1) , maior (2) , "maior or equal" (3) , minor (4) , "minor or equal" (5) , "between (extreme included)" (6) , "between (extreme excluded)" (7) , "not equal" (8)
Returns Boolean

TestMandatoryTables

procedure TestMandatoryTables(RecRef: RecordRef; iCodOldStatus: Code[10]; iCodNewStatus: Code[10]; iCodPathCode: Code[10])

Parameters / Return Value

RecRef RecordRef
iCodOldStatus Code[10]
iCodNewStatus Code[10]
iCodPathCode Code[10]

TestPreconditionTables

Obsolete

Pending: Obsolete, soon to be replaced (24.0)

procedure TestPreconditionTables(iRrfRecord: RecordRef; iCodChangePath: Code[20]; iCodFromStatus: Code[10]; iCodToStatus: Code[10]; iIntTableNo: Integer; iIntTableOccurence: Integer; iTxtIF_TableName: Text[250]; iOptIF_Condition: enum "EOS003 Mandatory Table Cond"; iOptIF_Filter: Text[2048]; iBlnShowError: Boolean; iIntTableFieldNo: Integer; iOptIF_Formula: Option " ",equal,maior,"maior or equal",minor,"minor or equal","not equal","filter"; iIntFatherFieldNo: Integer): Boolean

Parameters / Return Value

iRrfRecord RecordRef
iCodChangePath Code[20]
iCodFromStatus Code[10]
iCodToStatus Code[10]
iIntTableNo Integer
iIntTableOccurence Integer
iTxtIF_TableName Text[250]
iOptIF_Condition enum "EOS003 Mandatory Table Cond"
iOptIF_Filter Text[2048]
iBlnShowError Boolean
iIntTableFieldNo Integer
iOptIF_Formula Option
" " (0) , equal (1) , maior (2) , "maior or equal" (3) , minor (4) , "minor or equal" (5) , "not equal" (6) , "filter" (7)
iIntFatherFieldNo Integer
Returns Boolean

TestDSTables

Obsolete

Pending: Obsolete, soon to be replaced (24.0)

procedure TestDSTables(iRrfRecord: RecordRef; iIntFatherFieldNo: Integer; iIntTableNo: Integer; iIntTableFieldNo: Integer; iCodCurrentStatus: Code[10]; iCodNewStatus: Code[10]; iTxtTableFieldValue: Text[250]; iTxtFatherFieldValue: Text[250]#pragma warning disable AL0432; iOptCondition: enum "EOS003 Mandatory Table Cond"#pragma warning restore AL0432; iOptFilter: Text[2048]; iOptFormula: Option " ",equal,maior,"maior or equal",minor,"minor or equal","not equal","filter"; iBlnShowError: Boolean; iTxtTableFieldName: Text[250]; iTxtIF_FatherFieldName: Text[250]): Boolean

Parameters / Return Value

iRrfRecord RecordRef
iIntFatherFieldNo Integer
iIntTableNo Integer
iIntTableFieldNo Integer
iCodCurrentStatus Code[10]
iCodNewStatus Code[10]
iTxtTableFieldValue Text[250]
iTxtFatherFieldValue Text[250]
iOptCondition enum "EOS003 Mandatory Table Cond"
iOptFilter Text[2048]
iOptFormula Option
" " (0) , equal (1) , maior (2) , "maior or equal" (3) , minor (4) , "minor or equal" (5) , "not equal" (6) , "filter" (7)
iBlnShowError Boolean
iTxtTableFieldName Text[250]
iTxtIF_FatherFieldName Text[250]
Returns Boolean

GetTableFieldValue

procedure GetTableFieldValue(iIntFatherRecRef: RecordRef;iIntFatherFieldNo:Integer):Text[250]

Parameters / Return Value

iIntFatherRecRef RecordRef
iIntFatherFieldNo Integer
Returns Text[250]

TestDSField

procedure TestDSField(iRrfRecord: RecordRef; iIntFieldNo: Integer; iCodCurrentStatus: Code[10]; iCodNewStatus: Code[10]; iTxtFieldValue1: Text[250]; iTxtFieldValue2: Text[250]; iOptCondition: Option " ",equal,maior,"maior or equal",minor,"minor or equal","between (extreme included)","between (extreme excluded)","not equal","filter"; iBlnShowError: Boolean; iTxtIF_FieldName: Text[250]; iTxtIF_FieldValue1: Text[250]; iTxtIF_FieldValue2: Text[250]; iOptIF_Condition: Option " ",equal,maior,"maior or equal",minor,"minor or equal","between (extreme included)","between (extreme excluded)","not equal","filter"): Boolean

Parameters / Return Value

iRrfRecord RecordRef
iIntFieldNo Integer
iCodCurrentStatus Code[10]
iCodNewStatus Code[10]
iTxtFieldValue1 Text[250]
iTxtFieldValue2 Text[250]
iOptCondition Option
" " (0) , equal (1) , maior (2) , "maior or equal" (3) , minor (4) , "minor or equal" (5) , "between (extreme included)" (6) , "between (extreme excluded)" (7) , "not equal" (8) , "filter" (9)
iBlnShowError Boolean
iTxtIF_FieldName Text[250]
iTxtIF_FieldValue1 Text[250]
iTxtIF_FieldValue2 Text[250]
iOptIF_Condition Option
" " (0) , equal (1) , maior (2) , "maior or equal" (3) , minor (4) , "minor or equal" (5) , "between (extreme included)" (6) , "between (extreme excluded)" (7) , "not equal" (8) , "filter" (9)
Returns Boolean

ValidateFieldValue

procedure ValidateFieldValue(iIntTableID: Integer; iIntFieldNo: Integer; iTxtValue: Text[250]): Text[250]

Parameters / Return Value

iIntTableID Integer
iIntFieldNo Integer
iTxtValue Text[250]
Returns Text[250]

IsFirstStatus

procedure IsFirstStatus(iRrfRecord: RecordRef): Boolean

Parameters / Return Value

iRrfRecord RecordRef
Returns Boolean

IsLastStatus

procedure IsLastStatus(iRrfRecord: RecordRef): Boolean

Parameters / Return Value

iRrfRecord RecordRef
Returns Boolean

TestCurrentRecordHasDSSetup

procedure TestCurrentRecordHasDSSetup(iRrfRecord: RecordRef)

Parameters / Return Value

iRrfRecord RecordRef

TestUserHasRights

procedure TestUserHasRights(RecRef: RecordRef)

Parameters / Return Value

RecRef RecordRef

ExecuteDirectDSFunctions

Obsolete

Pending: Obsolete, use “ExecuteEDSFunctions(var RecRef: RecordRef; OldStatus: Code[10]; NewStatus: Code[10]; Before: Boolean)” instead (23.0)

procedure ExecuteDirectDSFunctions(var RecRef: RecordRef; OldStatus: Code[10]; NewStatus: Code[10]; Before: Boolean)

Parameters / Return Value

RecRef RecordRef
OldStatus Code[10]
NewStatus Code[10]
Before Boolean

ExecuteEDSFunctions

procedure ExecuteEDSFunctions(var RecRef: RecordRef; OldStatus: Code[10]; NewStatus: Code[10]; Before: Boolean): Boolean

Parameters / Return Value

RecRef RecordRef
OldStatus Code[10]
NewStatus Code[10]
Before Boolean
Returns Boolean

GetDSFunctions

procedure GetDSFunctions(var TmpDSFunction: Record "EOS DS Functions")

Parameters / Return Value

TmpDSFunction Record "EOS DS Functions"

GetAllUserPermission

procedure GetAllUserPermission(iIntTableId: Integer; iOptTableOptionType: Option "0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19"; iCodChangePath: Code[10]; iCodFromStatus: Code[10]; iCodToStatus: Code[10])

Parameters / Return Value

iIntTableId Integer
iOptTableOptionType Option
"0" (0) , "1" (1) , "2" (2) , "3" (3) , "4" (4) , "5" (5) , "6" (6) , "7" (7) , "8" (8) , "9" (9) , "10" (10) , "11" (11) , "12" (12) , "13" (13) , "14" (14) , "15" (15) , "16" (16) , "17" (17) , "18" (18) , "19" (19)
iCodChangePath Code[10]
iCodFromStatus Code[10]
iCodToStatus Code[10]

InitFirstStatus

procedure InitFirstStatus(iIntTableNo: Integer; iOptTableOptionType: Option "0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19")

Parameters / Return Value

iIntTableNo Integer
iOptTableOptionType Option
"0" (0) , "1" (1) , "2" (2) , "3" (3) , "4" (4) , "5" (5) , "6" (6) , "7" (7) , "8" (8) , "9" (9) , "10" (10) , "11" (11) , "12" (12) , "13" (13) , "14" (14) , "15" (15) , "16" (16) , "17" (17) , "18" (18) , "19" (19)

ShowFirstStatusTransaction

procedure ShowFirstStatusTransaction(iIntTableNo: Integer; iOptTableOptionType: Option "0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19"; iBlnShowCard: Boolean)

Parameters / Return Value

iIntTableNo Integer
iOptTableOptionType Option
"0" (0) , "1" (1) , "2" (2) , "3" (3) , "4" (4) , "5" (5) , "6" (6) , "7" (7) , "8" (8) , "9" (9) , "10" (10) , "11" (11) , "12" (12) , "13" (13) , "14" (14) , "15" (15) , "16" (16) , "17" (17) , "18" (18) , "19" (19)
iBlnShowCard Boolean

GetDSTablesContext

procedure GetDSTablesContext(iIntTableID: Integer; iOptTableOptionType: Option) Result: Text[250]

Parameters / Return Value

iIntTableID Integer
iOptTableOptionType Option
Returns Text[250]

TestRowTypeHasDS

procedure TestRowTypeHasDS(iRrfRecord: RecordRef; DataSecurityTablesSetup: Record "EOS DS Tables Setup"): Boolean

Parameters / Return Value

iRrfRecord RecordRef
DataSecurityTablesSetup Record "EOS DS Tables Setup"
Returns Boolean

GetDSTableOptionCaption

procedure GetDSTableOptionCaption(iIntTableID: Integer; iIntTableOptionType: Integer): Text[30]

Parameters / Return Value

iIntTableID Integer
iIntTableOptionType Integer
Returns Text[30]

GetTableStatusColour

procedure GetTableStatusColour(iIntTableId: Integer; iOptTableOptionType: Integer; iCodDSStatus: Code[10]): Text

Parameters / Return Value

iIntTableId Integer
iOptTableOptionType Integer
iCodDSStatus Code[10]
Returns Text[]

TestTableIDAllowDSMgmt

procedure TestTableIDAllowDSMgmt(iIntTableID: Integer)

Parameters / Return Value

iIntTableID Integer

TableCertification

procedure TableCertification(DataSecurityTablesSetup: Record "EOS DS Tables Setup")

Parameters / Return Value

DataSecurityTablesSetup Record "EOS DS Tables Setup"

TestTableNotCertified

procedure TestTableNotCertified(TableNo: Integer; TableOptionType: Integer; AskForReopen: Boolean)

Parameters / Return Value

TableNo Integer
TableOptionType Integer
AskForReopen Boolean

TestDSTableStatus

procedure TestDSTableStatus(DataSecurityTablesSetup: Record "EOS DS Tables Setup")

Parameters / Return Value

DataSecurityTablesSetup Record "EOS DS Tables Setup"

TestDSStatusTransaction

procedure TestDSStatusTransaction(DataSecurityTablesSetup: Record "EOS DS Tables Setup")

Parameters / Return Value

DataSecurityTablesSetup Record "EOS DS Tables Setup"

TestDeleteDSTable

procedure TestDeleteDSTable(iIntTableId: Integer; iOptTableOptionType: Option "0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19"; StatusCode: Code[10]; ForceBlankStatusCode: Boolean)

Parameters / Return Value

iIntTableId Integer
iOptTableOptionType Option
"0" (0) , "1" (1) , "2" (2) , "3" (3) , "4" (4) , "5" (5) , "6" (6) , "7" (7) , "8" (8) , "9" (9) , "10" (10) , "11" (11) , "12" (12) , "13" (13) , "14" (14) , "15" (15) , "16" (16) , "17" (17) , "18" (18) , "19" (19)
StatusCode Code[10]
ForceBlankStatusCode Boolean

RaisePermissionError

procedure RaisePermissionError(DocVariant: Variant; PermissionType: Option; ErrorMsg: Text)

Parameters / Return Value

DocVariant Variant
PermissionType Option
ErrorMsg Text[]

GetRecordPKValues

procedure GetRecordPKValues(RecRef: RecordRef) Result: Text

Parameters / Return Value

RecRef RecordRef
Returns Text[]

HasPermission

procedure HasPermission(RecordVariant: Variant; xRecordVariant: Variant; PermissionType: Option) Allowed: Boolean

Parameters / Return Value

RecordVariant Variant
xRecordVariant Variant
PermissionType Option
Returns Boolean

HasOwningPermission

procedure HasOwningPermission(DataSecurityTablesSetup: Record "EOS DS Tables Setup"; RecRef: RecordRef): Boolean

Parameters / Return Value

DataSecurityTablesSetup Record "EOS DS Tables Setup"
RecRef RecordRef
Returns Boolean

HasManualPermission

procedure HasManualPermission(RecordVariant: Variant; xRecordVariant: Variant; PermissionType: Option) Allowed: Boolean

Parameters / Return Value

RecordVariant Variant
xRecordVariant Variant
PermissionType Option
Returns Boolean

GetInsertPermission

procedure GetInsertPermission(RecordVariant: Variant; ShowError: Boolean): Boolean

Parameters / Return Value

RecordVariant Variant
ShowError Boolean
Returns Boolean

GetModifyPermission

procedure GetModifyPermission(RecordVariant: Variant; xRecordVariant: Variant; ShowError: Boolean): Boolean

Parameters / Return Value

RecordVariant Variant
xRecordVariant Variant
ShowError Boolean
Returns Boolean

GetRenamePermission

procedure GetRenamePermission(RecordVariant: Variant; xRecordVariant: Variant; ShowError: Boolean): Boolean

Parameters / Return Value

RecordVariant Variant
xRecordVariant Variant
ShowError Boolean
Returns Boolean

GetDeletePermission

procedure GetDeletePermission(RecordVariant: Variant; ShowError: Boolean): Boolean

Parameters / Return Value

RecordVariant Variant
ShowError Boolean
Returns Boolean

GetReleasePermission

procedure GetReleasePermission(RecordVariant: Variant; ShowError: Boolean): Boolean

Parameters / Return Value

RecordVariant Variant
ShowError Boolean
Returns Boolean

GetManualReleasePermission

procedure GetManualReleasePermission(RecordVariant: Variant; ShowError: Boolean): Boolean

Parameters / Return Value

RecordVariant Variant
ShowError Boolean
Returns Boolean

GetReopenPermission

procedure GetReopenPermission(RecordVariant: Variant; ShowError: Boolean): Boolean

Parameters / Return Value

RecordVariant Variant
ShowError Boolean
Returns Boolean

GetManualReopenPermission

procedure GetManualReopenPermission(RecordVariant: Variant; ShowError: Boolean): Boolean

Parameters / Return Value

RecordVariant Variant
ShowError Boolean
Returns Boolean

GetPostPermission

procedure GetPostPermission(RecordVariant: Variant; ShowError: Boolean): Boolean

Parameters / Return Value

RecordVariant Variant
ShowError Boolean
Returns Boolean

GetPrintPermission

procedure GetPrintPermission(RecordVariant: Variant; ShowError: Boolean): Boolean

Parameters / Return Value

RecordVariant Variant
ShowError Boolean
Returns Boolean

GetAssignPermission

procedure GetAssignPermission(RecordVariant: Variant; ShowError: Boolean): Boolean

Parameters / Return Value

RecordVariant Variant
ShowError Boolean
Returns Boolean

CalculateUserToNotify

procedure CalculateUserToNotify(iCodUserID: Code[65])

Parameters / Return Value

iCodUserID Code[65]

CalculateZeroLevelToNotify

procedure CalculateZeroLevelToNotify(iCodUserID: Code[65]; var vRecTmpDSRecordStatusInfo: Record "EOS003 Record Status Info" temporary): Boolean

Parameters / Return Value

iCodUserID Code[65]
vRecTmpDSRecordStatusInfo Record "EOS003 Record Status Info"
Returns Boolean

FilterDSRecordStatus

procedure FilterDSRecordStatus(iIntTableID: Integer; iOptTableOptionType: Option; iCodStatus: Code[10]; var vRecDSRecordStatus: Record "EOS003 Record Status"; var vIntCountRecordStatus: Integer)

Parameters / Return Value

iIntTableID Integer
iOptTableOptionType Option
iCodStatus Code[10]
vRecDSRecordStatus Record "EOS003 Record Status"
vIntCountRecordStatus Integer

InsertDSStatusInfoLevel

procedure InsertDSStatusInfoLevel(var vRecTmpDSRecordStatusInfo: Record "EOS003 Record Status Info" temporary; lRecDSRecordStatus: Record "EOS003 Record Status"; iIntLevel: Integer; iIntCount: Integer): Boolean

Parameters / Return Value

vRecTmpDSRecordStatusInfo Record "EOS003 Record Status Info"
lRecDSRecordStatus Record "EOS003 Record Status"
iIntLevel Integer
iIntCount Integer
Returns Boolean

ExpandDSRecordStatusInfo

procedure ExpandDSRecordStatusInfo(var vRecTmpDSRecordStatusInfo: Record "EOS003 Record Status Info" temporary; iRecCurrDSRecordStatusInfo: Record "EOS003 Record Status Info"; iCodUserID: Code[65])

Parameters / Return Value

vRecTmpDSRecordStatusInfo Record "EOS003 Record Status Info"
iRecCurrDSRecordStatusInfo Record "EOS003 Record Status Info"
iCodUserID Code[65]

ExpandAllDSRecordStatusInfo

procedure ExpandAllDSRecordStatusInfo(iCodUserID: Code[65]; var vRecTmpDSRecordStatusInfo: Record "EOS003 Record Status Info" temporary)

Parameters / Return Value

iCodUserID Code[65]
vRecTmpDSRecordStatusInfo Record "EOS003 Record Status Info"

CollapseAllDSRecordStatusInfo

procedure CollapseAllDSRecordStatusInfo(iCodUserID: Code[65]; var vRecTmpDSRecordStatusInfo: Record "EOS003 Record Status Info" temporary)

Parameters / Return Value

iCodUserID Code[65]
vRecTmpDSRecordStatusInfo Record "EOS003 Record Status Info"

ShowPage

procedure ShowPage(TableID: Integer; TableOptionPKField: Integer; RecSystemId: Guid)

Parameters / Return Value

TableID Integer
TableOptionPKField Integer
RecSystemId Guid

GetCurrentRecordRef

procedure GetCurrentRecordRef(var DSFactboxBuffer: Record "EOS003 Factbox Buffer"; var RecRef: RecordRef): Boolean

Parameters / Return Value

DSFactboxBuffer Record "EOS003 Factbox Buffer"
RecRef RecordRef
Returns Boolean

CalculateZeroLevelRecordStatus

procedure CalculateZeroLevelRecordStatus(iIntTableID: Integer; iIntTableOptionType: Integer; var vRecTmpDSRecordStatus: Record "EOS003 Record Status" temporary): Boolean

Parameters / Return Value

iIntTableID Integer
iIntTableOptionType Integer
vRecTmpDSRecordStatus Record "EOS003 Record Status"
Returns Boolean

InsertDSStatusLevel

procedure InsertDSStatusLevel(var DataSecurityRecordStatus: Record "EOS003 Record Status"; FromDataSecurityRecordStatus: Record "EOS003 Record Status"; iIntLevel: Integer; iIntCount: Integer): Boolean

Parameters / Return Value

DataSecurityRecordStatus Record "EOS003 Record Status"
FromDataSecurityRecordStatus Record "EOS003 Record Status"
iIntLevel Integer
iIntCount Integer
Returns Boolean

ExpandDSRecordStatus

procedure ExpandDSRecordStatus(var vRecTmpDSRecordStatus: Record "EOS003 Record Status" temporary; iRecCurrDSRecordStatus: Record "EOS003 Record Status")

Parameters / Return Value

vRecTmpDSRecordStatus Record "EOS003 Record Status"
iRecCurrDSRecordStatus Record "EOS003 Record Status"

ExpandAllDSRecordStatus

procedure ExpandAllDSRecordStatus(var TempDataSecurityRecordStatus: Record "EOS003 Record Status" temporary)

Parameters / Return Value

TempDataSecurityRecordStatus Record "EOS003 Record Status"

CollapseAllDSRecordStatus

procedure CollapseAllDSRecordStatus(var TempDataSecurityRecordStatus: Record "EOS003 Record Status" temporary)

Parameters / Return Value

TempDataSecurityRecordStatus Record "EOS003 Record Status"

TestFilter

Obsolete

Pending: Not used anymore (25.0)

procedure TestFilter(iTableID: Integer; iIntFieldNo: Integer; iFrfField: FieldRef; iTxtFieldValue1: Text[250]): Boolean

Parameters / Return Value

iTableID Integer
iIntFieldNo Integer
iFrfField FieldRef
iTxtFieldValue1 Text[250]
Returns Boolean

TestFilterText

Obsolete

Pending: Not used anymore, use TestFilter instead (25.0)

procedure TestFilterText(RecRef: RecordRef; FieldNo: Integer; iTxtFieldValue1: Text[250]): Boolean

Parameters / Return Value

RecRef RecordRef
FieldNo Integer
iTxtFieldValue1 Text[250]
Returns Boolean

TestFilter

procedure TestFilter(RecRef: RecordRef; FieldNo: Integer; iTxtFieldValue1: Text[250]): Boolean

Parameters / Return Value

RecRef RecordRef
FieldNo Integer
iTxtFieldValue1 Text[250]
Returns Boolean

GetRecordStatusRec

procedure GetRecordStatusRec(RecRef: RecordRef; var DataSecurityRecordStatus: Record "EOS003 Record Status"): Boolean

Parameters / Return Value

RecRef RecordRef
DataSecurityRecordStatus Record "EOS003 Record Status"
Returns Boolean

GetRecordPKNumber

procedure GetRecordPKNumber(iRrfRecord: RecordRef; var vIntKeyOptionFieldNo: Integer; var vIntKeyCodFieldNo: Integer; var vIntKeyIntFieldNo: Integer; var vIntKeyDecFieldNo: Integer)

Parameters / Return Value

iRrfRecord RecordRef
vIntKeyOptionFieldNo Integer
vIntKeyCodFieldNo Integer
vIntKeyIntFieldNo Integer
vIntKeyDecFieldNo Integer

GetRecordPKNumberAndValue

procedure GetRecordPKNumberAndValue(iRrfRecord: RecordRef; var vIntKeyOptionFieldNo: Integer; var vIntKeyOptionValue: Integer; var vIntKeyCodFieldNo: Integer; var vCodKeyCodValue: Code[20]; var vIntKeyIntFieldNo: Integer; var vIntKeyIntValue: Integer)

Parameters / Return Value

iRrfRecord RecordRef
vIntKeyOptionFieldNo Integer
vIntKeyOptionValue Integer
vIntKeyCodFieldNo Integer
vCodKeyCodValue Code[20]
vIntKeyIntFieldNo Integer
vIntKeyIntValue Integer

GetArchiveRecPKNumberAndValue

procedure GetArchiveRecPKNumberAndValue(iRrfRecord: RecordRef; var vIntKeyOptionFieldNo: Integer; var vIntKeyOptionValue: Integer; var vIntKeyCodFieldNo: Integer; var vCodKeyCodValue: Code[20]; var vIntKeyDocNoOccFieldNo: Integer; var vIntKeyDocNoOccValue: Integer; var vIntKeyVersionNoFieldNo: Integer; var vIntKeyVersionNoValue: Integer; var vIntKeyLineNoFieldNo: Integer; var vIntKeyLineNoValue: Integer)

Parameters / Return Value

iRrfRecord RecordRef
vIntKeyOptionFieldNo Integer
vIntKeyOptionValue Integer
vIntKeyCodFieldNo Integer
vCodKeyCodValue Code[20]
vIntKeyDocNoOccFieldNo Integer
vIntKeyDocNoOccValue Integer
vIntKeyVersionNoFieldNo Integer
vIntKeyVersionNoValue Integer
vIntKeyLineNoFieldNo Integer
vIntKeyLineNoValue Integer

SetRecordPKValueWithOption

procedure SetRecordPKValueWithOption(iRrfRecord: RecordRef;var vIntCurrentTable: Integer;var vGuiTableRecSysId: Guid;var vOptTableOptionType: Option "0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19")

Parameters / Return Value

iRrfRecord RecordRef
vIntCurrentTable Integer
vGuiTableRecSysId Guid
vOptTableOptionType Option
"0" (0) , "1" (1) , "2" (2) , "3" (3) , "4" (4) , "5" (5) , "6" (6) , "7" (7) , "8" (8) , "9" (9) , "10" (10) , "11" (11) , "12" (12) , "13" (13) , "14" (14) , "15" (15) , "16" (16) , "17" (17) , "18" (18) , "19" (19)

SetRecordPKValue

procedure SetRecordPKValue(iRrfRecord: RecordRef; var vIntCurrentTable: Integer; var vOptTableOptionType: Option "0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19"; var vCodTableRecNo: Code[20]; var vIntTableRecLineNo: Integer)

Parameters / Return Value

iRrfRecord RecordRef
vIntCurrentTable Integer
vOptTableOptionType Option
"0" (0) , "1" (1) , "2" (2) , "3" (3) , "4" (4) , "5" (5) , "6" (6) , "7" (7) , "8" (8) , "9" (9) , "10" (10) , "11" (11) , "12" (12) , "13" (13) , "14" (14) , "15" (15) , "16" (16) , "17" (17) , "18" (18) , "19" (19)
vCodTableRecNo Code[20]
vIntTableRecLineNo Integer

WriteLog2

procedure WriteLog2(iRrfRecord: RecordRef; iCodOldStatus: Code[10]; iCodNewStatus: Code[10])

Parameters / Return Value

iRrfRecord RecordRef
iCodOldStatus Code[10]
iCodNewStatus Code[10]

ShowLog2

procedure ShowLog2(iRrfRecord: RecordRef; iOptTableOptionType: Option "0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19")

Parameters / Return Value

iRrfRecord RecordRef
iOptTableOptionType Option
"0" (0) , "1" (1) , "2" (2) , "3" (3) , "4" (4) , "5" (5) , "6" (6) , "7" (7) , "8" (8) , "9" (9) , "10" (10) , "11" (11) , "12" (12) , "13" (13) , "14" (14) , "15" (15) , "16" (16) , "17" (17) , "18" (18) , "19" (19)

DelLog2

procedure DelLog2(iRrfRecord: RecordRef; iOptTableOptionType: Option "0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19")

Parameters / Return Value

iRrfRecord RecordRef
iOptTableOptionType Option
"0" (0) , "1" (1) , "2" (2) , "3" (3) , "4" (4) , "5" (5) , "6" (6) , "7" (7) , "8" (8) , "9" (9) , "10" (10) , "11" (11) , "12" (12) , "13" (13) , "14" (14) , "15" (15) , "16" (16) , "17" (17) , "18" (18) , "19" (19)

RunStatusChange

procedure RunStatusChange(DataSecurityTablesSetup: Record "EOS DS Tables Setup")

Parameters / Return Value

DataSecurityTablesSetup Record "EOS DS Tables Setup"

GetRecordStatusDescription

procedure GetRecordStatusDescription(TableID: Integer; TableOptionType: Integer; iCodDSStatus: Code[10]): Text[50]

Parameters / Return Value

TableID Integer
TableOptionType Integer
iCodDSStatus Code[10]
Returns Text[50]

ClearGlobals

procedure ClearGlobals()

SetBatchChangeStatus

procedure SetBatchChangeStatus(Value: Boolean)

Parameters / Return Value

Value Boolean

SetBatchRecordRef2Process

procedure SetBatchRecordRef2Process(var RecRef: RecordRef)

Parameters / Return Value

RecRef RecordRef

SetGlobalCurrentStatus

procedure SetGlobalCurrentStatus(pGlobalCurrentStatus: Code[10])

Parameters / Return Value

pGlobalCurrentStatus Code[10]

SetGlobalNewStatus

procedure SetGlobalNewStatus(pGlobalNewStatus: Code[10])

Parameters / Return Value

pGlobalNewStatus Code[10]

GetBatchResult

procedure GetBatchResult(): Boolean

Parameters / Return Value

Returns Boolean

SetRecordStatusOnModify

procedure SetRecordStatusOnModify(var RecRef: RecordRef)

Parameters / Return Value

RecRef RecordRef

SetRecordFieldsOnModify

procedure SetRecordFieldsOnModify(var RecRef: RecordRef; var DataSecurityRecordStatus: Record "EOS003 Record Status") Changed: Boolean

Parameters / Return Value

RecRef RecordRef
DataSecurityRecordStatus Record "EOS003 Record Status"
Returns Boolean

DeleteAllData

procedure DeleteAllData()

SkipSubcontractingPurchaseOrder

procedure SkipSubcontractingPurchaseOrder(RecRef: RecordRef): Boolean

Parameters / Return Value

RecRef RecordRef
Returns Boolean

CalcStatusCount

procedure CalcStatusCount(var Status1CountSystemId: Integer; var Status2CountSystemId: Integer; var Status3CountSystemId: Integer; CueSetup: Record "EOS DS Cue Setup")

Parameters / Return Value

Status1CountSystemId Integer
Status2CountSystemId Integer
Status3CountSystemId Integer
CueSetup Record "EOS DS Cue Setup"

SetGlobalNewPath

procedure SetGlobalNewPath(NewPathCode: Code[10])

Parameters / Return Value

NewPathCode Code[10]

OpenMandatoryFieldsList

procedure OpenMandatoryFieldsList(RecRef: RecordRef; OptionType: Integer; CurrentStatus: Code[10]; NewStatus: Code[10])

Parameters / Return Value

RecRef RecordRef
OptionType Integer
CurrentStatus Code[10]
NewStatus Code[10]

GetComments

procedure GetComments(TextCode: Code[20]): Text

Parameters / Return Value

TextCode Code[20]
Returns Text[]

LookupFieldValueFromConfigTemplateLine

Obsolete

Pending: Use LookupFieldValueFromConfigTemplateLine instead (26.0)

procedure LookupFieldValueFromConfigTemplateLine(MandatoryFieldLine: Record "EOS003 Mandatory Field Line"; var FieldValue: Text): Boolean

Parameters / Return Value

MandatoryFieldLine Record "EOS003 Mandatory Field Line"
FieldValue Text[]
Returns Boolean

LookupFieldValueFromConfigTemplateLine

procedure LookupFieldValueFromConfigTemplateLine(MandatoryFieldLine: Record "EOS003 Mandatory Field Line"; ParentRecRef: RecordRef; var FieldValue: Text): Boolean

Parameters / Return Value

MandatoryFieldLine Record "EOS003 Mandatory Field Line"
ParentRecRef RecordRef
FieldValue Text[]
Returns Boolean

TransferRecordDefaultValues

procedure TransferRecordDefaultValues(var RecRef: RecordRef; CurFieldNo: Integer; CurDefaultValue: Text)

Parameters / Return Value

RecRef RecordRef
CurFieldNo Integer
CurDefaultValue Text[]

CreateGroupsFromPermissionSets

procedure CreateGroupsFromPermissionSets()

ValidatePath

procedure ValidatePath(RecordId: RecordId; CurrentPathCode: Code[10])

Parameters / Return Value

RecordId RecordId
CurrentPathCode Code[10]

Events

OnDiscoverDSFunctions

procedure OnDiscoverDSFunctions(var DataSecurityFunctions: Record "EOS DS Functions")

Event to show a new Function as available. Use Codeunit “EOS DS Function”, Method CreateDSFunction to add as a DS function

Parameters / Return Value

DataSecurityFunctions Record "EOS DS Functions"
Record to use as first parameter

OnExecuteDSFunction

local procedure OnExecuteDSFunction(var DataSecurityFunctions: Record "EOS DS Functions"; var RecRef: RecordRef; TableOptionType: Integer; UseOptionType: Boolean; var ContinueExecution: Boolean; DataSecurityStatusFunctions: Record "EOS DS Status Functions")

Event to run a DS function, subscribe to this, check if the functions that should be run is yours and run it.

Parameters / Return Value

DataSecurityFunctions Record "EOS DS Functions"
Record “EOS DS Functions”.
RecRef RecordRef
The RecRef of the record ther.
TableOptionType Integer
The record option For example “Offer,Order,Invoice,…".
UseOptionType Boolean
Define if the record use the Option value.
ContinueExecution Boolean
Set to false to block execution of DS Functions in the current execution phase after the run of the function.
DataSecurityStatusFunctions Record "EOS DS Status Functions"
The DataSecurityStatusFunction that will be run.

OnGetRecordPermission

local procedure OnGetRecordPermission(DocVariant: Variant; xDocVariant: Variant; PermissionType: Option; var IsAllowed: Option " ",No,Yes; var ErrorMessage: Text)

Raised before checking if the operation specified in the parameter PermissionType is allowed.

Parameters / Return Value

DocVariant Variant
The document.
xDocVariant Variant
The document before edits.
PermissionType Option
The permission type.
IsAllowed Option
" " (0) , No (1) , Yes (2)
IsAllowed Option.
ErrorMessage Text[]
The Error Message.

OnGetRecordManualPermission

local procedure OnGetRecordManualPermission(DocVariant: Variant; xDocVariant: Variant; PermissionType: Option; var IsAllowed: Option " ",No,Yes; var ErrorMessage: Text)

Raised before checking if the operation specified in the parameter PermissionType is allowed.

Parameters / Return Value

DocVariant Variant
The document.
xDocVariant Variant
The document before edits.
PermissionType Option
The permission type.
IsAllowed Option
" " (0) , No (1) , Yes (2)
IsAllowed Option.
ErrorMessage Text[]
The Error Message.

OnSkipFieldChangeComparison

local procedure OnSkipFieldChangeComparison(RecRef: RecordRef; xRecRef: RecordRef; FieldID: Integer; var Skip: Boolean)

Raised on permission check, when checking if a edit is allowed. Is used to allow the edit to a certain field.

Parameters / Return Value

RecRef RecordRef
The RecRef.
xRecRef RecordRef
The xRecRef.
FieldID Integer
The FieldID edited.
Skip Boolean
The skip.

OnBeforeCheckIfTableFirstStatusIsHandled

local procedure OnBeforeCheckIfTableFirstStatusIsHandled(TableID: Integer; var Handled: Boolean)

Event to subscribe to if you manage the first status of a table on record init, in order to let you set the status as certified without

Parameters / Return Value

TableID Integer
Integer
Handled Boolean
Boolean

OnBeforeSetRecordFields2

local procedure OnBeforeSetRecordFields2(var RecRef: RecordRef; var DataSecurityRecordStatus: Record "EOS003 Record Status"; var handled: Boolean)

Event to use when the “Change status” reports an error caused by a not managed protected table.

Parameters / Return Value

RecRef RecordRef
The record that should be modified
DataSecurityRecordStatus Record "EOS003 Record Status"
OBSOLETE The new status
handled Boolean
Has to be set to true to avoid standard code to run

OnAfterChangeDataSecurityStatusPageClose

local procedure OnAfterChangeDataSecurityStatusPageClose(RecRef: RecordRef; var ChangeDataSecurityStatusPage: Page "EOS Change DS Status")

Event raised when the Change Status Page has been closed successfully and the Change Status has been already written in the log.

Parameters / Return Value

RecRef RecordRef
Source Record
ChangeDataSecurityStatusPage Page "EOS Change DS Status"
The Page to run custom functions.

OnBeforeEDSSetFirstStatus_OnGlobalInsert

local procedure OnBeforeEDSSetFirstStatus_OnGlobalInsert(TableID: Integer; var Handled: Boolean)

Event raised in the Global Insert event, used to manage the trigger of custom tables set first status. Use this event to block the standard cycle and manage the SetfirstStatus in a custom event subscriber.

Parameters / Return Value

TableID Integer
The TableID that triggered the GlobalInsert
Handled Boolean
Handled paramenter to avoid

OnBeforeEDSSetFirstStatus_OnDatabaseInsert

local procedure OnBeforeEDSSetFirstStatus_OnDatabaseInsert(TableID: Integer; var Handled: Boolean)

Event raised in the Database Insert event, used to manage the trigger of custom tables set first status. Use this event to block the standard cycle and manage the SetfirstStatus in a custom event subscriber.

Parameters / Return Value

TableID Integer
The TableID that triggered the OnDatabaseInsert
Handled Boolean
Handled paramenter to avoid

OnBeforeEDSSetFirstStatus_OnDatabaseRename

local procedure OnBeforeEDSSetFirstStatus_OnDatabaseRename(TableID: Integer; var Handled: Boolean)

Event raised in the Database Rename event, used to manage the trigger of custom tables set first status. Use this event to block the standard cycle and manage the SetfirstStatus in a custom event subscriber.

Parameters / Return Value

TableID Integer
The TableID that triggered the OnDatabaseInsert
Handled Boolean
Handled paramenter to avoid

OnAfterGetUserNewStatus

local procedure OnAfterGetUserNewStatus(RecRef: RecordRef; var TempDataSecurityStatus: Record "EOS DS Status" temporary; var NewStatusCode: Code[10]; ChangePathCode: Code[10])

Event executed when obtaining new status allowed transactions.

Parameters / Return Value

RecRef RecordRef
The current record ref.
TempDataSecurityStatus Record "EOS DS Status"
Allowed new DS statuses
NewStatusCode Code[10]
The new DS Status, if empty all status in TempDataSecurityStatus are allowed, otherwise edit is disabled.
ChangePathCode Code[10]
The record ChangePathCode selected.

OnAfterGetCurrentPathCode2

local procedure OnAfterGetCurrentPathCode2(RecRef: RecordRef; DataSecurityRecordStatus: Record "EOS003 Record Status"; var CurrentPathCode: Code[10])

Event raised after reading the current path code.

Parameters / Return Value

RecRef RecordRef
The source RecRef.
DataSecurityRecordStatus Record "EOS003 Record Status"
The DataSecurityRecordStatus for the RecRef.
CurrentPathCode Code[10]
The PathCode related to the DataSecurityRecordStatus.

OnAfterSetRecordStatus

local procedure OnAfterSetRecordStatus(var RecRef: RecordRef; OldStatus: Code[10]; NewStatus: Code[10]; PathCode: Code[10])

Raised after the status for a given record has been updated. This is raised after the log has been writte, fields have been updated (but not modified) on the source record.

Parameters / Return Value

RecRef RecordRef
The record for which the status is being changed.
OldStatus Code[10]
The old status that the record had before it was changed.
NewStatus Code[10]
The new status the has been set on the record.
PathCode Code[10]
The status path code in use.

OnBeforeUpdateStatusOnRecord

local procedure OnBeforeUpdateStatusOnRecord(var RecRef: RecordRef; NewStatus: Code[10]; var FieldUpdated: Boolean; var Handled: Boolean)

Raised before the physical status-field on a given record is updated with the new status code. You can use this to customize how (and if) this field is updated.

Parameters / Return Value

RecRef RecordRef
The record for which the status is being changed.
NewStatus Code[10]
The new status code to be applied.
FieldUpdated Boolean
Set this to true, if the physical status-field was found and has been updated. The value of this parameter only has effect if you also set Handled to true and therefore cause the function to exit early. If not, the default logic will continue to execute and this will be overwritten.
Handled Boolean
Gets or sets if this event has been completely handled.

OnAfterUpdateStatusOnRecord

local procedure OnAfterUpdateStatusOnRecord(var RecRef: RecordRef; NewStatus: Code[10]; var FieldUpdated: Boolean)

Raised after the physical status-field on a given record is updated with the new status code.

Parameters / Return Value

RecRef RecordRef
The record for which the status is being changed.
NewStatus Code[10]
The new status code to be applied.
FieldUpdated Boolean
Gets or sets if the physical status-field was found and updated. This value is pre-set with the outcome of the default hanlding logic and can be overwritten, if needed.

OnAfterGetAvailableStatusOnRecord

local procedure OnAfterGetAvailableStatusOnRecord(RecVar: Variant; var Allow: Boolean; TableID: Integer; OptionType: Integer; FromStatus: Code[10]; ToStatus: Code[10])

Raised after the list of new available EDS Status is calculated

Parameters / Return Value

RecVar Variant
RecVariant of the current Record selected
Allow Boolean
Boolean value indicating when the option is to be displayed and when not.
TableID Integer
Table ID
OptionType Integer
Table Option Type
FromStatus Code[10]
Current EDS Status
ToStatus Code[10]
New EDS Status

OnBeforeCalcStatusCount

local procedure OnBeforeCalcStatusCount(var DSRecordStatus: Record "EOS003 Record Status")

Raised after applying the filter to count records in the cues

Parameters / Return Value

DSRecordStatus Record "EOS003 Record Status"

OnBeforeCalcStatusCountWithCueSetup

local procedure OnBeforeCalcStatusCountWithCueSetup(var DSRecordStatus: Record "EOS003 Record Status"; CueSetup: Record "EOS DS Cue Setup")

Raised after applying the filter to count records in the cues

Parameters / Return Value

DSRecordStatus Record "EOS003 Record Status"
CueSetup Record "EOS DS Cue Setup"
The current cue setup

OnBeforeSetFirstStatus

Obsolete

Pending: Obsolete, use “OnBeforeSetRecFirstStatus(var RecRef: RecordRef; var IsHandled: Boolean)” instead (23.0)

local procedure OnBeforeSetFirstStatus(var RecRef: RecordRef; IsHandled: Boolean)

Raised befor apply first EDS status

Parameters / Return Value

RecRef RecordRef
The current record reference
IsHandled Boolean
Skip the procedure

OnBeforeSetRecFirstStatus

local procedure OnBeforeSetRecFirstStatus(var RecRef: RecordRef; var IsHandled: Boolean)

Raised befor apply first EDS status

Parameters / Return Value

RecRef RecordRef
The current record reference
IsHandled Boolean
Skip the procedure

OnAfterChangeDirectStatus

local procedure OnAfterChangeDirectStatus(var RecRef: RecordRef; OldStatus: Code[10]; NewStatus: Code[10]; PathCode: Code[10]; ContinueExecution: Boolean)

Raised after ChangeDirectStatus procedure/after the procedure for changing state and executing functions called from the standard EDS factbox

Parameters / Return Value

RecRef RecordRef
The current record reference
OldStatus Code[10]
Current EDS Status
NewStatus Code[10]
New EDS Status
PathCode Code[10]
EDS Path
ContinueExecution Boolean
ContinueExecution relating to the execution of the phase before the EDS functions

OnAfterExecuteChangeDirectOwner

local procedure OnAfterExecuteChangeDirectOwner(var RecRef: RecordRef; OldOwner: Code[50]; OldOwnerType: enum "EOS003 Owner Type"; NewOwner: Code[50]; NewOwnerType: enum "EOS003 Owner Type")

Raised after ChangeDirectOwner procedure/after the procedure for changing owner and executing functions called from the standard EDS factbox

Parameters / Return Value

RecRef RecordRef
The current record reference
OldOwner Code[50]
Current owner
OldOwnerType enum "EOS003 Owner Type"
Current owner type
NewOwner Code[50]
new owner
NewOwnerType enum "EOS003 Owner Type"
new owner type

OnBeforeExecuteChangeDirectOwner

local procedure OnBeforeExecuteChangeDirectOwner(var RecRef: RecordRef; OldOwner: Code[50]; OldOwnerType: enum "EOS003 Owner Type"; NewOwner: Code[50]; NewOwnerType: enum "EOS003 Owner Type"; var IsHandled: Boolean)

Raised before ChangeDirectOwner procedure/after the procedure for changing owner and executing functions called from the standard EDS factbox

Parameters / Return Value

RecRef RecordRef
The current record reference
OldOwner Code[50]
Current owner
OldOwnerType enum "EOS003 Owner Type"
Current owner type
NewOwner Code[50]
new owner
NewOwnerType enum "EOS003 Owner Type"
new owner type
IsHandled Boolean
Skip the procedure ChangeDirectOwner

OnAfterExecuteEDSFunctionOnChangeDirectStatus

local procedure OnAfterExecuteEDSFunctionOnChangeDirectStatus(var RecRef: RecordRef; OldStatus: Code[10]; NewStatus: Code[10]; PathCode: Code[10]; ContinueExecution: Boolean; var IsHandled: Boolean)

Raised after ExecuteEDSFunctions of first phase

Parameters / Return Value

RecRef RecordRef
The current record reference
OldStatus Code[10]
Current EDS Status
NewStatus Code[10]
New EDS Status
PathCode Code[10]
EDS Path
ContinueExecution Boolean
ContinueExecution relating to the execution of the phase before the EDS functions
IsHandled Boolean
Skip the procedure SetRecordStatus and the execution of the function in after phase

OnBeforeSetFirstStatusOnRename

Obsolete

Pending: Obsolete, use “OnBeforeSetFirstStatusOnGlobalRenamevar RecRef: RecordRef; xRecRef: RecordRef; var isHandled: Boolean)” instead (23.0)

local procedure OnBeforeSetFirstStatusOnRename(var RecRef: RecordRef; xRecRef: RecordRef; isHandled: Boolean)

Raised before set first status on global rename

Parameters / Return Value

RecRef RecordRef
The current record reference
xRecRef RecordRef
The old record reference
isHandled Boolean

OnBeforeSetFirstStatusOnGlobalRename

local procedure OnBeforeSetFirstStatusOnGlobalRename(var RecRef: RecordRef; xRecRef: RecordRef; var isHandled: Boolean)

Raised before set first status on global rename

Parameters / Return Value

RecRef RecordRef
The current record reference
xRecRef RecordRef
The old record reference
isHandled Boolean
Skip the procedure SetFirstStatus

OnUnexpectedFieldType

local procedure OnUnexpectedFieldType(TableField: Record Field; var IsHandled: Boolean)

Raised if an unexpected field type was retrieved

Parameters / Return Value

TableField Record "Field"
The current field
IsHandled Boolean
to skip error

OnBeforeReplaceFieldValue

local procedure OnBeforeReplaceFieldValue(RecRef: RecordRef; FieldRef: FieldRef; Condition: enum "EOS003 Field Replace Condition"; var IsHandled: Boolean)

Event executed before replacing the value of a field defined on “EOS003 Status Field Replace” inside a status transaction, allow to change the value that will be replaced.

Parameters / Return Value

RecRef RecordRef
The current record
FieldRef FieldRef
The field with the value that will be replaced
Condition enum "EOS003 Field Replace Condition"
IsHandled Boolean
To skip standard replacement

OnBeforeOpenChangeStatusPage

local procedure OnBeforeOpenChangeStatusPage(var RecRef: RecordRef; var ChangeDataSecurityStatusPage: Page "EOS Change DS Status"; var IsHandled: Boolean)

Raised before the opening of Status Change page from factbox

Parameters / Return Value

RecRef RecordRef
Current RecRef
ChangeDataSecurityStatusPage Page "EOS Change DS Status"
Page for change status with all the param
IsHandled Boolean
Skip the procedure

OnAfterOpenChangeStatusPage

local procedure OnAfterOpenChangeStatusPage(var RecRef: RecordRef; var lCodNewStatus: Code[10]; var lCodNewPath: Code[10])

Raised after the opening of Status Change page from factbox

Parameters / Return Value

RecRef RecordRef
lCodNewStatus Code[10]
lCodNewPath Code[10]

OnBeforeWriteLog

local procedure OnBeforeWriteLog(var iRrfRecord: RecordRef; iCodOldStatus: Code[10]; var iCodNewStatus: Code[10]; var IsHandled: Boolean)

Raised before the writing of the log

Parameters / Return Value

iRrfRecord RecordRef
iCodOldStatus Code[10]
iCodNewStatus Code[10]
IsHandled Boolean

OnAfterWriteLog

local procedure OnAfterWriteLog(var iRrfRecord: RecordRef; var lRecDSStatusTransactionLog: Record "EOS003 Status Trans. Log")

Raised after the writing of the log

Parameters / Return Value

iRrfRecord RecordRef
lRecDSStatusTransactionLog Record "EOS003 Status Trans. Log"

OnBeforeOpenLookupPageMandatoryFields

local procedure OnBeforeOpenLookupPageMandatoryFields(var LookUpRecRef: RecordRef; var ParentRecRef: RecordRef; LookupTableId: Integer; LookupPageId: Integer; LookupFieldId: Integer)

Event triggered before opening the lookup page for mandatory fields, used to add filters on the lookup page record.

Parameters / Return Value

LookUpRecRef RecordRef
The record reference for the lookup table.
ParentRecRef RecordRef
The record reference for the parent table.
LookupTableId Integer
The ID of the lookup table.
LookupPageId Integer
The ID of the lookup page.
LookupFieldId Integer
The ID of the field in the lookup table.

Feedback

Was this page helpful?

Glad to hear it! Please tell us how we can improve.

Sorry to hear that. Please tell us how we can improve.

EOS Labs - 29.10.2025