Skip to content

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