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

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

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]

GetRecordOwner

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

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

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

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

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

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

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

procedure TestFilterText(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

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

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

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

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"


EOS Labs -