Codeunit 18122930 EOS User Defined Field Mgt.

Codeunit 18122930 EOS User Defined Field Mgt.

Methods

DeactivateAllFields

procedure DeactivateAllFields(AskConfirm: Boolean)

Parameters / Return Value

  • AskConfirm Boolean

ActivateAllFields

procedure ActivateAllFields()

UserDefinedFieldsExist

procedure UserDefinedFieldsExist(TableName: Text[30]): Boolean

Parameters / Return Value

  • TableName Text[30]

  • Returns Boolean

GetControlParameters

procedure GetControlParameters(TableName: Text[30]; var ControlType: array[20] of Option "None",Text,Lookup,Boolean; var Width: array[20] of Integer)

Parameters / Return Value

  • TableName Text[30]

  • ControlType Option

    "None" (0) , Text (1) , Lookup (2) , Boolean (3)

  • Width Integer

SetFieldValue

procedure SetFieldValue(var RecRef: RecordRef; FieldNo: Integer; var ValueText: Text[250]; ValueBool: Boolean; ControlType: Option Textbox,Checkbox)

Parameters / Return Value

  • RecRef RecordRef

  • FieldNo Integer

  • ValueText Text[250]

  • ValueBool Boolean

  • ControlType Option

    Textbox (0) , Checkbox (1)

GetFieldValue

procedure GetFieldValue(RecordRef: RecordRef; FieldNo: Integer; var ValueText: Text[250]; var ValueBln: Boolean)

Parameters / Return Value

  • RecordRef RecordRef

  • FieldNo Integer

  • ValueText Text[250]

  • ValueBln Boolean

GetFirstUserDefinedFieldNo

procedure GetFirstUserDefinedFieldNo(): Integer

Parameters / Return Value

  • Returns Integer

GetSupportedTableList

procedure GetSupportedTableList()

IsTableRelationFieldVisible

procedure IsTableRelationFieldVisible(TableNo: Integer; FieldNo: Integer): Boolean

Parameters / Return Value

  • TableNo Integer

  • FieldNo Integer

  • Returns Boolean

AddVisibleTableRelationField

procedure AddVisibleTableRelationField(TableNo: Integer; FieldNo: Integer)

Parameters / Return Value

  • TableNo Integer

  • FieldNo Integer

RemoveVisibleTableRelationFld

procedure RemoveVisibleTableRelationFld(TableNo: Integer; FieldNo: Integer)

Parameters / Return Value

  • TableNo Integer

  • FieldNo Integer

CheckUserDefinedField

procedure CheckUserDefinedField(TableNo: Integer; FieldNo: Integer; CheckActive: Boolean)

Parameters / Return Value

  • TableNo Integer

  • FieldNo Integer

  • CheckActive Boolean

OnFieldValidate

procedure OnFieldValidate(RecRef: RecordRef; FieldNo: Integer; ValueText: Text[250]): Boolean

Parameters / Return Value

  • RecRef RecordRef

  • FieldNo Integer

  • ValueText Text[250]

  • Returns Boolean

OnFieldLookup

procedure OnFieldLookup(RecRef: RecordRef; FieldNo: Integer; var ValueText: Text[250]): Boolean

Parameters / Return Value

  • RecRef RecordRef

  • FieldNo Integer

  • ValueText Text[250]

  • Returns Boolean

MakeTableLine

procedure MakeTableLine(TableNo: Integer; NumberOfFields: Integer)

Parameters / Return Value

  • TableNo Integer

  • NumberOfFields Integer

MakeFieldLines

procedure MakeFieldLines(TableNo: Integer; NumberOfFields: Integer)

Parameters / Return Value

  • TableNo Integer

  • NumberOfFields Integer

MakeFieldLinesCaptions

procedure MakeFieldLinesCaptions(UserDefinedField: Record "EOS User Defined Field")

Parameters / Return Value

  • UserDefinedField Record "EOS User Defined Field"

DeleteFieldLinesCaptions

procedure DeleteFieldLinesCaptions(UserDefinedField: Record "EOS User Defined Field")

Parameters / Return Value

  • UserDefinedField Record "EOS User Defined Field"

MakeFieldLinesVisibleFields

procedure MakeFieldLinesVisibleFields(UserDefinedField: Record "EOS User Defined Field")

Parameters / Return Value

  • UserDefinedField Record "EOS User Defined Field"

DeleteFieldLinesVisibleFields

procedure DeleteFieldLinesVisibleFields(UserDefinedField: Record "EOS User Defined Field")

Parameters / Return Value

  • UserDefinedField Record "EOS User Defined Field"

GetFieldCaption

procedure GetFieldCaption(CaptionExpr: Text[80]): Text[50]

Parameters / Return Value

  • CaptionExpr Text[80]

  • Returns Text[50]

CopyUserDefinedFieldCaption

procedure CopyUserDefinedFieldCaption(UserDefCaption: record "EOS User Defined Field Caption"; TableNoTo: Integer)

Parameters / Return Value

  • UserDefCaption record "EOS User Defined Field Caption"

  • TableNoTo Integer

TransferFieldToChildTable

procedure TransferFieldToChildTable(UDFRec: Record "EOS User Defined Field"; ChildTableNo: Integer)

Parameters / Return Value

  • UDFRec Record "EOS User Defined Field"

  • ChildTableNo Integer

TransferFieldsToDocument

procedure TransferFieldsToDocument(UserDefinedField: Record "EOS User Defined Field")

Parameters / Return Value

  • UserDefinedField Record "EOS User Defined Field"

TransferFieldsRevokeFromChild

procedure TransferFieldsRevokeFromChild(UDFRec: Record "EOS User Defined Field"; ChildTableNo: Integer)

Parameters / Return Value

  • UDFRec Record "EOS User Defined Field"

  • ChildTableNo Integer

TransferFieldsToDocumentRevoke

procedure TransferFieldsToDocumentRevoke(UserDefinedField: Record "EOS User Defined Field")

Parameters / Return Value

  • UserDefinedField Record "EOS User Defined Field"

GetTotalActiveFields

procedure GetTotalActiveFields(TableNo: Integer): Integer

Parameters / Return Value

  • TableNo Integer

  • Returns Integer

Events

OnAfterGetSupportedTableList

local procedure OnAfterGetSupportedTableList()

OnBeforeGetFirstUserDefinedFieldNo

local procedure OnBeforeGetFirstUserDefinedFieldNo(TableNo: Integer; var FieldNoInt: Integer; var Handled: Boolean)

Raised before getting the first user defined field number, corrects it if handled

Parameters / Return Value

  • TableNo Integer

    The table number we’re referring to

  • FieldNoInt Integer

    The field number of the table we’re referring to

  • Handled Boolean

    If set to false continues normally, if set to true skips GetFirstUserDefinedFieldNo() and assigns a value based on the table number

OnBeforeSetRangeFieldNo

local procedure OnBeforeSetRangeFieldNo(ChildTableNo: Integer; var UDFFieldNo: Integer)

Raised before the RefUserDefinedField.SetRange(RefUserDefinedField.“EOS Field No.", UDFFieldNo), corrects UDFFieldNo

Parameters / Return Value

  • ChildTableNo Integer

    The child’s table number

  • UDFFieldNo Integer

    The User Defined Field Number

OnAfterTransferFieldsToDocument

local procedure OnAfterTransferFieldsToDocument(UserDefinedField: Record "EOS User Defined Field")

Raised at the end of TransferFieldsToDocument()

Parameters / Return Value

  • UserDefinedField Record "EOS User Defined Field"

    User Defined Field

OnAfterTransferFieldsToDocumentRevoke

local procedure OnAfterTransferFieldsToDocumentRevoke(UserDefinedField: Record "EOS User Defined Field")

Raised at the end of TransferFieldsToDocumentRevoke()

Parameters / Return Value

  • UserDefinedField Record "EOS User Defined Field"

    User Defined Field

OnAfterGetTableNo

local procedure OnAfterGetTableNo(var TableNo: Integer)

Raised after retrieving table no from table name, and after the case to set the same table no for derived table (like sales -> sales archive)

Parameters / Return Value

  • TableNo Integer

EOS Labs -