Table of Contents

KVSMEDAdditionalFieldLib

Procedures

GetPrimaryKeyFieldValues(RecordRef, Variant) :

Summary: Provides the values of the field value of the primary key of the specified RecordRef.

procedure GetPrimaryKeyFieldValues(var RecordRef: RecordRef; var KeyFieldValues: Variant):

Parameters:

  • RecordRef:
  • KeyFieldValues:

LookupFieldParamNew(Code[20], Integer, Text) : Boolean

procedure LookupFieldParamNew(AddFieldCode: Code[20]; var OptionId: Integer; var FieldText: Text): Boolean

ValidateFieldNew(Code[20], Text, Integer) : Boolean

procedure ValidateFieldNew(AddFieldCode: Code[20]; var AddFieldValue: Text; var AddFieldOption: Integer): Boolean

InsertBaseDataFieldValue(Integer, Integer, Code[20], Variant, Variant, Integer, Code[20], Boolean, Code[10], Code[10]) : Boolean

Summary: Inserts a new record in the KVSMEDBaseDataAddFieldValue table based on the provided parameters. The procedure checks the type of the key field array and assigns the corresponding values to the record fields. It also sets the level of the record based on the RoleCode and AddFieldCode. If the TableID equals 27 (Database::Item), the Additional Field Code Item is set to AddFieldCode. After all the fields are set, the new record is inserted into the KVSMEDBaseDataAddFieldValue table.

procedure InsertBaseDataFieldValue(TableID: Integer; FieldID: Integer; AddFieldCode: Code[20]; KeyFieldArr: Variant; FieldValueVariant: Variant; OptionId: Integer; BaseDataGroup: Code[20]; Hide: Boolean; RoleCode: Code[10]; ProcessType: Code[10]): Boolean

Parameters:

  • TableID:
  • FieldID:
  • AddFieldCode:
  • KeyFieldArr:
  • FieldValueVariant:
  • OptionId:
  • BaseDataGroup:
  • Hide:
  • RoleCode:
  • ProcessType:

Returns: True if the record was successfully inserted; otherwise false.

UpdateBaseDataFieldValue(Integer, Integer, Code[20], Variant, Variant, Integer, Code[20], Boolean, Code[10], Code[10]) : Boolean

Summary: Updates an existing record in the KVSMEDBaseDataAddFieldValue table based on the provided key values. If no matching record exists, a new record is inserted instead.

procedure UpdateBaseDataFieldValue(TableID: Integer; FieldID: Integer; AddFieldCode: Code[20]; KeyFieldArr: Variant; FieldValueVariant: Variant; OptionId: Integer; BaseDataGroup: Code[20]; Hide: Boolean; RoleCode: Code[10]; ProcessType: Code[10]): Boolean

Parameters:

  • TableID: ID of the base table the additional field value belongs to.
  • FieldID: Field ID for search index fields; typically 0 for additional fields.
  • AddFieldCode: Additional field code; empty for search index fields.
  • KeyFieldArr: Primary key values of the target record (supports Code/Integer depending on table structure).
  • FieldValueVariant: Field value to be stored.
  • OptionId: Option ID of the value for option fields.
  • BaseDataGroup: Base data group used to classify the additional field value.
  • Hide: Specifies whether the value should be hidden.
  • RoleCode: Role used for context separation; empty for general values.
  • ProcessType: Process type used for additional context separation.

Returns: True if the record was successfully updated or inserted; otherwise false.

GetAddFieldValue(Integer, Code[20], Code[20], Code[20], Text[100], Integer) : Boolean

procedure GetAddFieldValue(TableID: Integer; KeyCode1: Code[20]; KeyCode2: Code[20]; AddFieldCode: Code[20]; var AddFieldValue: Text[100]; var AddFieldOptionId: Integer): Boolean

GetItemApplianceNo(Code[20], Code[10], Text[50]) : Boolean

procedure GetItemApplianceNo(ItemNo: Code[20]; ItemVariant: Code[10]; var ApplianceNo: Text[50]): Boolean

GetItemPCN(Code[20], Code[10], Text[50]) : Boolean

procedure GetItemPCN(ItemNo: Code[20]; UoMCode: Code[10]; var PCN: Text[50]): Boolean