Объект Class
1. Назначение
Внутреннее представление сущности системы. Описывается в АРМе Технолога,
создается при помощи вызова глобальной функции GetClass или
метода VEntity объекта Object.
2. Методы и атрибуты класса
| Тип |
Имя |
Описание |
| Int |
Id |
RO: Идентификатор сущности |
| Str |
Name |
RO: Мнемоническое имя сущности |
| Str |
Name |
RO: Комментарий к сущности |
| Int |
FieldCount |
RO: Количество полей сущности |
| VField |
Field |
Поле сущности, заданное по номеру |
| Int |
KeyCount |
RO: Количество ключей сущности |
| VKey |
Key |
Ключ сущности, заданный по номеру |
| Int |
LookupCount |
RO: Количество лукапов сущности |
| VLookup |
Lookup |
Лукап сущности, заданный по номеру |
| Int |
FormCount |
RO: Идентификатор сущности |
| VForm |
Form |
Форма сущности, заданная по номеру |
| Int |
GridCount |
RO: Количество гридов сущности |
| VGrid |
Grid |
Грид сущности, заданный по номеру |
| Object |
Object |
Создает и возвращает объект сущности |
3. Пример использования
Пример использования данного класса на языке VBScript
Set gr = Grid(100120,0,-1, "Id Desc")
If gr.First Then
Set obj = gr.Current
Set ent = gr.VEntity
i = 0
Do While i < ent.FieldCount
printf "%15s = %s\n", ent.Field(i).Name,
obj.FieldByName( ent.Field(i).Name )
i = i + 1
Loop
End If
|
|