РЕЗУЛЬТАТ ПОЛУЧИЛСЯ ИНТЕРЕСНЫЙ!
1. Глобальная переменная создалась и как бы появилась в том месте где и надо, т.е. прописалась в файле объявления глобальных переменных: ###_GD.CLW НО!
Но создалась она не с префиксом BLO (от файла BLOCK.tps), а создалась она с префиксом TYP (наверно от файла TYPE.tps) и в разделе ПОСЛЕ описания переменных для файла Histopy2.tps (История вторая.).... и при этом образовалось 45 ошибок.
А мне как то надо получить то, что я пишу пока ручками и то что пока закоментарил на предпоследней строчке кода.
Код: Выделить всё
History2::Used LONG,THREAD
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
CopyTYP LIKE(TYP:Record),PRE(CTYP)
Sort:Name STRING(ScrollSort:Name)
Sort:Name:Array STRING(3),DIM(100),OVER(Sort:Name)
Sort:Alpha STRING(ScrollSort:Alpha)
Sort:Alpha:Array STRING(2),DIM(100),OVER(Sort:Alpha)
Sort:Family STRING(ScrollSort:Family)
Sort:Family:Array STRING(3),DIM(100),OVER(Sort:Family)
Sort:Cyrilic STRING(ScrollSort:Cyrilic)
Sort:Cyrilic:Array STRING(2),DIM(100),OVER(Sort:Cyrilic)
Glo:stNameINIFile STRING(FILE:MaxFileName)
CopyMat Like(Mat:Record),PRE(CMat) !Для копирования записи
CopyTyp Like(Typ:Record),PRE(CTyp) !Для копирования записи
CopyPla Like(Pla:Record),PRE(CPla) !Для копирования записи
!CopyBlo Like(Blo:Record),PRE(CBlo) !Для копирования записи
!----------------------------------------------------------------------