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:

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