Мало кто знает, что в версии 10.11975 появились очень мощные пользовательские свойства:
FEATURE: Implemented user-defined properties:
A user-defined property allows you to associate a string value with any entity's standard properties
for example: built-in variables (SYSTEM, PRINTER, TARGET), WINDOWs, REPORTs,
controls, bands, etc. The syntax of user-defined properties is the
same as for standard properties but string (constant or expression)
is used to identify the property rather than property number:
[target $] object {property-name [, index]}
The name of the user-defined property is case insensitive. It cannot be equal to the name of any
standard PROP:* property with or without "PROP:" prefix.
The name also can't begin with Numeric digits.
For OLE controls names of user-defined properties cannot
be equal to any of the OLE/OCX's properties.
If the index is missing or equal to 0, it is treated as 1.
Examples:
SYSTEM {'User-Name'} = 'Frank Sinatra' !Set the name of the current user
MESSAGE('the user is: ' & SYSTEM{'User-Name'}) !displays the text 'Frank Sinatra'
Можно сделать так:
Код: Выделить всё
!- после OPEN(Window)
?LOC:Display{'Item-Name', 1} = 'Внутренние вопросы производства'
?LOC:Display{'Item-Name', 2} = 'Проблемы с технологической/конструкторской документацией'
?LOC:Display{'Item-Name', 3} = 'Проблемы с инструментом,СТО'
?LOC:Display{'Item-Name', 4} = 'Внутренние вопросы производства'
?LOC:Display{'Item-Name', 5} = 'Проблемы по качеству (со сторонними организациями)'
?LOC:Display{'Item-Name', 6} = 'Проблемы по качеству (КнАФ)'
........
!- по Event:Accepted
var:DisplayText = ?LOC:Display{'Item-Name', LOC:Display}