Утилита, предназначенная для автоматического заполнения заголовков полей в локальных представлениях при разработке базы данных. Названия считывает с заголовков полей в источниках.
Автоматическое заполнение заголовков лок. представлений
Надо открыть дизайнер базы данных, создать представление и запустить следующую утилиту:
view_name = '' && имя локального представления, куда хотим поместить заголовки
DO view_captions.prg WITH view_name
view_captions.prg
*****************
PARAMETERS view_name
IF !USED(view_name)
USE &view_name. IN 0 EXCLUSIVE
ENDIF
SELECT(view_name)
nCol = FCOUNT()
FOR i = 1 TO nCol
ii = ALLTRIM(STR(i))
CurField = view_name + '.'+ ALLTRIM(FIELD(i))
CurUpName =DBGETPROP(CurField,"FIELD","UpdateName")
CurUpName = RIGHT(CurUpName,LEN(CurUpName)-AT('!',CurUpName))
CurHead =DBGETPROP(CurUpName,"FIELD","Caption")
= DBSETPROP(CurField,"FIELD","Caption",CurHead )
ENDFOR
Автор: ElenaB