One to many windows are not displayed at 550 thousand lines

Message

Eugene Lutsenko · #1 Post by **Eugene Lutsenko** » Sun Jul 17, 2016 6:53 am

One to many windows are not displayed at 550 thousand lines in the main base and 6 rows in related databases. It displays a blank windows Both the main and associated databases. With a smaller number of rows is nothing like not noticed, everything worked perfectly fine. One and the same program, that works, does not work in zavismosti the number of rows displayed. When the base 6 in the main lines and 550 connected in thousands all works.

#2 Post by **rdonnay** » Mon Jul 18, 2016 7:44 am

Do you have a small sample program?

I will also need the databases.

Eugene Lutsenko · #3 Post by **Eugene Lutsenko** » Mon Jul 18, 2016 1:19 pm

This is one of the modes of my system. I did it a few years ago on the basis of one of your examples. Prior to that, did not notice any probelmy, it worked fine. But big data this regime has ceased to work. Summary table of about 500 thousand records. I find it easier to send the system to model, but if necessary, I certainly can only select this mode, and only the desired database. But it is not very fast, because like last year, is now the leadership piled a huge amount of re-enlisted and the overarching work on the development of instruments, while I'm on vacation.

Eugene Lutsenko · #4 Post by **Eugene Lutsenko** » Thu Jul 21, 2016 1:50 pm

I was surprised to find that the regime, I made one of the first, when he began to develop a system, and that worked fine, suddenly stopped working. I found this to solve the problem on the big (payment was about a week to i7). Today he tried to figure out what is the cause, and found that this mode does not work in a simple and low-dimensional problems, which used to work. I tried to compile and run older versions of the system, up to the established in 2014. They also do not work. I can not understand. Here is the original text of this regime. It displays three windows in the main database and the two related one-to-many database.

Code: Select all

*************************************************************************************************************
******** 4.1.3.1. Визуализация результатов распознавания в подробной наглядной форме в отношении: 
********          "Один объект - много классов" с двумя интегральными критериями сходства между конкретным
********          образом распознаваемого объекта и обобщенными образами классов: "Семантический резонанс
********          знаний" и "Сумма знаний"
*************************************************************************************************************
FUNCTION F4_1_3_1()

LOCAL GetList := {}, GetOptions, oBrowUser, oBrowApp, bApp, bItems

IF M_KodAdmAppls = 0  // Выйти из системы если нет авторизации
   LB_Warning("Вы не авторизовались в системе (режим 1.1) и не можете ей пользоваться!")
   RETURN NIL
ENDIF

IF ApplChange("4.1.3.1()")              // Если не запущен режим, работающий с БД,  то перейти в папку выбранного приложения
   **************************************************************
   ***** БД, открытые перед запуском главного меню
   ***** Восстанавливать их после выхода из функций главного меню
   **************************************************************
   CLOSE ALL
   DIRCHANGE(Disk_dir)                          // Перейти в папку с исполнимым модулем системы
   USE PathGrAp EXCLUSIVE NEW
   USE Appls    EXCLUSIVE NEW
   USE Users    EXCLUSIVE NEW
   ** Если в папке с исполнимым модулем системы есть файл: _CloseFunct.txt, то удалить его
   IF FILE('_CloseFunct.txt')
      ERASE('_CloseFunct.txt')
   ENDIF
   RETURN NIL
ENDIF

IF FILE("_CalcInf.arx")             // Файл с информацией о том, какие модели были рассчитаны ранее
   aCalcInf = DC_ARestore("_CalcInf.arx")
ELSE
   LB_Warning("Вывод результатов распознавания невозможен, т.к. в 3-й подсистеме не просчитаны модели !!! ")
   **************************************************************
   ***** БД, открытые перед запуском главного меню
   ***** Восстанавливать их после выхода из функций главного меню
   **************************************************************
   CLOSE ALL
   DIRCHANGE(Disk_dir)                          // Перейти в папку с исполнимым модулем системы
   USE PathGrAp EXCLUSIVE NEW
   USE Appls    EXCLUSIVE NEW
   USE Users    EXCLUSIVE NEW
   ** Если в папке с исполнимым модулем системы есть файл: _CloseFunct.txt, то удалить его
   IF FILE('_CloseFunct.txt')
      ERASE('_CloseFunct.txt')
   ENDIF
   RETURN NIL
ENDIF
IF FILE("_CurrInf.arx")             // Файл с информацией о том, какая модель задана текущей
   M_CurrInf = DC_ARestore("_CurrInf.arx")
ELSE
   LB_Warning("Вывод результатов распознавания невозможен, т.к. нет информации о том, какая модель текущая !!! ")
   **************************************************************
   ***** БД, открытые перед запуском главного меню
   ***** Восстанавливать их после выхода из функций главного меню
   **************************************************************
   CLOSE ALL
   DIRCHANGE(Disk_dir)                          // Перейти в папку с исполнимым модулем системы
   USE PathGrAp EXCLUSIVE NEW
   USE Appls    EXCLUSIVE NEW
   USE Users    EXCLUSIVE NEW
   ** Если в папке с исполнимым модулем системы есть файл: _CloseFunct.txt, то удалить его
   IF FILE('_CloseFunct.txt')
      ERASE('_CloseFunct.txt')
   ENDIF
   RETURN NIL
ENDIF
IF FILE("_RaspInf.arx")             // Файл с информацией о том, в какой модели было проведено распознавание
   M_RaspInf = DC_ARestore("_RaspInf.arx")
   Ar_Model := {"Abs","Prc1","Prc2","Inf1","Inf2","Inf3","Inf4","Inf5","Inf6","Inf7" }
   IF M_CurrInf <> M_RaspInf
      Mess = "Результаты распознавания получены в модели модели: #, отличающейся от текущей: $"
      Mess = STRTRAN(Mess, "#", Ar_Model[M_RaspInf])
      Mess = STRTRAN(Mess, "$", Ar_Model[M_CurrInf])
      LB_Warning(Mess, "Информационное сообщение")
   ELSE
*      Mess = "Результаты распознавания соответствуют текущей модели #"
 *     Mess = STRTRAN(Mess, "#", Ar_Model[M_RaspInf])
  *    LB_Warning(Mess, "Информационное сообщение")
   ENDIF
ELSE
   Mess := {}
   AADD(Mess, "Вывод результатов распознавания невозможен, т.к. оно не проводилось !!!")
   AADD(Mess, "Необходимо выполнить распознавание обучающей выборки в режиме 3.5")
   AADD(Mess, "или распознаваемой выборки в режиме 4.1.2 !!!")
   LB_Warning(Mess, "Информационное сообщение")
   RETURN NIL
ENDIF
// Проверка на наличие отображаемых баз данных результатов распознавания
IF .NOT. FILE("Rso_Zag.dbf")
   LB_Warning("Нет распознаваемой выборки! Небходимо выполнить режим: 4.1.1 или создать ее другим способом!")
   **************************************************************
   ***** БД, открытые перед запуском главного меню
   ***** Восстанавливать их после выхода из функций главного меню
   **************************************************************
   CLOSE ALL
   DIRCHANGE(Disk_dir)                          // Перейти в папку с исполнимым модулем системы
   USE PathGrAp EXCLUSIVE NEW
   USE Appls    EXCLUSIVE NEW
   USE Users    EXCLUSIVE NEW
   ** Если в папке с исполнимым модулем системы есть файл: _CloseFunct.txt, то удалить его
   IF FILE('_CloseFunct.txt')
      ERASE('_CloseFunct.txt')
   ENDIF
   RETURN NIL
ENDIF
IF .NOT. FILE("Rsp1k.dbf")
   LB_Warning("Нет баз данных визуализация результатов распознавания! Небходимо выполнить режим: 4.1.2!")
   **************************************************************
   ***** БД, открытые перед запуском главного меню
   ***** Восстанавливать их после выхода из функций главного меню
   **************************************************************
   CLOSE ALL
   DIRCHANGE(Disk_dir)                          // Перейти в папку с исполнимым модулем системы
   USE PathGrAp EXCLUSIVE NEW
   USE Appls    EXCLUSIVE NEW
   USE Users    EXCLUSIVE NEW
   ** Если в папке с исполнимым модулем системы есть файл: _CloseFunct.txt, то удалить его
   IF FILE('_CloseFunct.txt')
      ERASE('_CloseFunct.txt')
   ENDIF
   RETURN NIL
ENDIF
IF .NOT. FILE("Rsp1i.dbf")
   LB_Warning("Нет баз данных визуализация результатов распознавания! Небходимо выполнить режим: 4.1.2!")
   **************************************************************
   ***** БД, открытые перед запуском главного меню
   ***** Восстанавливать их после выхода из функций главного меню
   **************************************************************
   CLOSE ALL
   DIRCHANGE(Disk_dir)                          // Перейти в папку с исполнимым модулем системы
   USE PathGrAp EXCLUSIVE NEW
   USE Appls    EXCLUSIVE NEW
   USE Users    EXCLUSIVE NEW
   ** Если в папке с исполнимым модулем системы есть файл: _CloseFunct.txt, то удалить его
   IF FILE('_CloseFunct.txt')
      ERASE('_CloseFunct.txt')
   ENDIF
   RETURN NIL
ENDIF

dbeSetDefault('DBFNTX')

CLOSE ALL
USE Rso_Zag
INDEX ON Kod_Obj TO Classes
CLOSE ALL
USE Rsp1k NEW
INDEX ON Kod_Obj TO Rsp1k
CLOSE ALL
USE Rsp1i NEW
INDEX ON Kod_Obj TO Rsp1i

CLOSE ALL
USE Rso_Zag INDEX Rso_Zag EXCLUSIVE NEW
USE Rsp1k   INDEX Rsp1k   EXCLUSIVE NEW
USE Rsp1i   INDEX Rsp1i   EXCLUSIVE NEW


/* ----- Create ToolBar ----- */

   ***** Кнопки визу **********************************************************************

   @ 27.5, 0                  DCPUSHBUTTON CAPTION 'Помощь'                     SIZE  9,1.3 ACTION {||Help4_1_3_1a()                , DC_GetRefresh(GetList)} TOOLTIP 'Помощь по режиму'
   @ DCGUI_ROW, DCGUI_COL + 8 DCPUSHBUTTON CAPTION '9 классов'                  SIZE 10,1.3 ACTION {||Fltr9On4131()                 , DC_GetRefresh(GetList)} TOOLTIP 'Показать 9 классов с максимальным модулем сходства'
   @ DCGUI_ROW, DCGUI_COL + 1 DCPUSHBUTTON CAPTION 'Классы с MaxMin УрСх'       SIZE 19,1.3 ACTION {||FltrMOn4131(Rsp1k->Kod_Cls)   , DC_GetRefresh(GetList)} TOOLTIP 'Показать по каждой классиф.шкале только по 2 класса с макс.и миним.уровнями сходства'
   @ DCGUI_ROW, DCGUI_COL + 1 DCPUSHBUTTON CAPTION '9 классов с MaxMin УрСх'    SIZE 21,1.3 ACTION {||Fltr9MOn4131(Rsp1k->Kod_Cls)  , DC_GetRefresh(GetList)} TOOLTIP 'Показать по каждой классиф.шкале только по 2 класса с макс.и миним.уровнями сходства'
   @ DCGUI_ROW, DCGUI_COL + 1 DCPUSHBUTTON CAPTION 'ВСЕ классы'                 SIZE 11,1.3 ACTION {||Fltr9Off4131()                , DC_GetRefresh(GetList)} TOOLTIP 'Показать все записи независимо от модуля сходства'
   @ DCGUI_ROW, DCGUI_COL + 8 DCPUSHBUTTON CAPTION 'ВКЛ. фильтр по класс.шкале' SIZE 24,1.3 ACTION {||FltrOnCls4131(Rsp1k->Kod_Cls) , DC_GetRefresh(GetList)} TOOLTIP 'Показать все классы только одной классиф.шкалы, на которой стоит курсор в верхнем правом окне'
   @ DCGUI_ROW, DCGUI_COL + 1 DCPUSHBUTTON CAPTION 'ВЫКЛ.фильтр по класс.шкале' SIZE 25,1.3 ACTION {||FltrOffCls4131()              , DC_GetRefresh(GetList)} TOOLTIP 'Показать сходство и различия с классами всех классификационных шкал'
   @ DCGUI_ROW, DCGUI_COL + 8 DCPUSHBUTTON CAPTION 'Граф.диаграмма'             SIZE 15,1.3 ACTION {||ChartOn4131(Rso_Zag->Kod_Obj) , DC_GetRefresh(GetList)} TOOLTIP 'Вывод графической диаграммы прогнозируемых сценариев'

****************************************************************
@1.0, 0 DCPUSHBUTTON                                           ;
        CAPTION  'Распознаваемые объекты'                      ;
        SIZE 34.8, 1                                           ;
        ACTION {||Help4_1_3_1b()}

@1.0,38 DCPUSHBUTTON                                                  ;
        CAPTION  'Интегральный критерий сходства: "Семантический резонанс знаний"';
        SIZE 99.7, 1                                                  ;
        ACTION {||Help4_1_3_1c()}

@14.2,38 DCPUSHBUTTON                                             ;
         CAPTION  'Интегральный критерий сходства: "Сумма знаний"';
         SIZE 99.7, 1                                             ;
         ACTION {||Help4_1_3_1d()}
****************************************************************

PRIVATE bColorBlockKor:={|| iif(Rsp1k->Korr>0,{GRA_CLR_RED,nil},iif(Rsp1k->Korr=0,{GRA_CLR_WHITE,nil},{GRA_CLR_BLUE,nil})) }        // Клиффорд
PRIVATE bColorBlockInf:={|| iif(Rsp1i->Sum_inf>0,{GRA_CLR_RED,nil},iif(Rsp1i->Sum_inf=0,{GRA_CLR_WHITE,nil},{GRA_CLR_BLUE,nil})) }  // Клиффорд

/* ----- Create browse-1: Главная БД Rso_Zag.dbf ----- */

bZag := {|| Rsp1i->(DC_SetScope(0,Rso_Zag->Kod_Obj)), ;
            Rsp1i->(DC_SetScope(1,Rso_Zag->Kod_Obj)), ;
            Rsp1i->(DC_DbGoTop())                   , ;
            oBrowInf:refreshAll()                   , ;
            Rsp1k->(DC_SetScope(0,Rso_Zag->Kod_Obj)), ;
            Rsp1k->(DC_SetScope(1,Rso_Zag->Kod_Obj)), ;
            Rsp1k->(DC_DbGoTop())                   , ;
            oBrowKor:refreshAll() }

@ 2, 0 DCBROWSE oBrowZag ALIAS 'Rso_Zag' SIZE 34.8,25.2 ;
       PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД
       NOSOFTTRACK ;
       SCOPE ;
       ITEMMARKED {|| Eval(bZag), ;
                      DC_GetRefresh(GetList,, ;
                      DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE}) }

DCSETPARENT oBrowZag
DCBROWSECOL FIELD Rso_Zag->Kod_Obj  HEADER 'Код'          WIDTH 5
DCBROWSECOL FIELD Rso_Zag->Name_obj HEADER 'Наим.объекта' WIDTH 14.5
DCBROWSECOL FIELD Rso_Zag->Date     HEADER 'Дата'         WIDTH 10
DCBROWSECOL FIELD Rso_Zag->Time     HEADER 'Время'        WIDTH 9


/* Create browse-2: БД Rsp1k.dbf, связанная отношением "Один ко многим" с БД Rso_Zag.dbf*/

DCSETPARENT TO

@2, 38 DCBROWSE oBrowKor ALIAS 'Rsp1k' SIZE 99.7,12.0 ;
       PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД
       NOSOFTTRACK ;
       SCOPE ;
       ITEMMARKED bItems

DCSETPARENT oBrowKor
DCBROWSECOL FIELD Rsp1k->Kod_Cls   HEADER 'Код'                 WIDTH 5
DCBROWSECOL FIELD Rsp1k->Name_cls  HEADER 'Наименование класса' WIDTH 30
DCBROWSECOL FIELD Rsp1k->Korr      HEADER 'Сходство'            WIDTH 6
DCBROWSECOL FIELD Rsp1k->Fakt      HEADER 'Факт'                WIDTH 1
DCBROWSECOL FIELD Rsp1k->Histogram HEADER 'Сходство'            WIDTH 19 COLOR bColorBlockKor
DCBROWSECOL FIELD Rsp1k->Date      HEADER 'Дата'                WIDTH 10
DCBROWSECOL FIELD Rsp1k->Time      HEADER 'Время'               WIDTH 9


/* Create browse-3: БД Rsp1i.dbf, связанная отношением "Один ко многим" с БД Rso_Zag.dbf*/

DCSETPARENT TO

@15.2,38 DCBROWSE oBrowInf ALIAS 'Rsp1i' SIZE 99.7,12.0;
         PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД
         NOSOFTTRACK ;
         SCOPE ;
         ITEMMARKED bItems

DCSETPARENT oBrowInf
DCBROWSECOL FIELD Rsp1i->Kod_Cls   HEADER 'Код'                 WIDTH 5
DCBROWSECOL FIELD Rsp1i->Name_cls  HEADER 'Наименование класса' WIDTH 30
DCBROWSECOL FIELD Rsp1i->Sum_inf   HEADER 'Сходство'            WIDTH 6
DCBROWSECOL FIELD Rsp1i->Fakt      HEADER 'Факт'                WIDTH 1
DCBROWSECOL FIELD Rsp1i->Histogram HEADER 'Сходство'            WIDTH 19 COLOR bColorBlockInf
DCBROWSECOL FIELD Rsp1i->Date      HEADER 'Дата'                WIDTH 10
DCBROWSECOL FIELD Rsp1i->Time      HEADER 'Время'               WIDTH 9

SELECT Rso_Zag

DCGETOPTIONS SAYFONT '10.Helv Bold' TABSTOP AUTORESIZE

cTitle = '4.1.3.1. Визуализация результатов распознавания в отношении: "Объект-классы"'+'. Текущая модель: "'+UPPER(Ar_Model[M_CurrInf])+'"'

DCREAD GUI ;
   FIT ;
   OPTIONS GetOptions ;
   MODAL ;
   TITLE cTitle ;
   EVAL {|o|SetAppFocus(oBrowZag:GetColumn(1))}

   **************************************************************
   ***** БД, открытые перед запуском главного меню
   ***** Восстанавливать их после выхода из функций главного меню
   **************************************************************
   CLOSE ALL
   DIRCHANGE(Disk_dir)                          // Перейти в папку с исполнимым модулем системы
   USE PathGrAp EXCLUSIVE NEW
   USE Appls    EXCLUSIVE NEW
   USE Users    EXCLUSIVE NEW
   ** Если в папке с исполнимым модулем системы есть файл: _CloseFunct.txt, то удалить его
   IF FILE('_CloseFunct.txt')
      ERASE('_CloseFunct.txt')
   ENDIF
   **************************************************************

RETURN NIL
****** END OF EXAMPLE ***********************

******** Выбрать классификационную шкалу и сделать по ней фильтр *******************************
FUNCTION FltrOnCls4131(mKodClSc)

// Код класс.шкалы брать прямо из базы Rsp1k.dbf из текущей записи

SELECT Rsp1k         // В этих базах для визуализации добавить поле с кодом класс.шкалы, чтобы можно было по нему делать фильтр
mKodClSc = Kod_ClSc
SET FILTER TO mKodClSc = Kod_ClSc

SELECT Rsp1i         // В этих базах для визуализации добавить поле с кодом класс.шкалы, чтобы можно было по нему делать фильтр
SET FILTER TO mKodClSc = Kod_ClSc

RETURN NIL

******** Отменить фильтр по классификационной шкале ********************************************
FUNCTION FltrOffCls4131()

SET FILTER TO

RETURN NIL

******** Помощь по режиму 4.1.3.1.
FUNCTION Help4_1_3_1a()
LOCAL GetList[0], cText

TEXT INTO cText WRAP "\n" TRIMMED
   Режим: 4.1.3.1. ВИЗУАЛИЗАЦИЯ РЕЗУЛЬТАТОВ РАСПОЗНАВАНИЯ В ОТНОШЕНИИ:
   "ОДИН ОБЪЕКТ - МНОГО КЛАССОВ" предназначен для наглядной визуализа-
   ции результатов распознавания, идентификации и прогнозирования, по-
   лученных  с двумя интегральными критериями сходства между конкретным
   образом распознаваемого объекта и обобщенными образами классов:
   "Семантический резонанс" и "Сумма информации". При этом для каждого
   объекта распознаваемой выборки выводится список классов, ранжирован-
   ный по убыванию интегрального критерия сходства. В начале этого спи-
   ска расположены классы, к которым распознаваемый объект, по-видимому
   относится по своим признакам, а в конце - к которым он определенно
   не относится.
   КНОПКИ УПРАВЛЕНИЯ:
   - [9 классов]: Показать 9 классов с максимальным модулем сходства
   - [Классы с MaxMin УрСх]: Показать по каждой классификационной 
     шкале только по 2 класса с максимальным и миним.уровнями сходства
   - [ВСЕ классы]: Показать все записи независимо от модуля сходства
   - [ВКЛ. фильтр по класс.шкале]: Показать все классы только одной клас-
     сификационной шкалы, на которой стоит курсор в верхнем правом окне
   - [ВЫКЛ.фильтр по класс.шкале]: Показать сходство и различия с клас-
     сами всех классификационных шкал
   - [Граф.диаграмма]: Графическая диаграмма прогнозируемых сценариев

ENDTEXT

@ 0,0 DCSTATIC TYPE XBPSTATIC_TYPE_TEXT SIZE 0 ;
     CAPTION cText FORMATTED ;
     FONT '10.Lucida Console' ;
     COLOR GRA_CLR_BLACK, GRA_CLR_WHITE

DCREAD GUI FIT TITLE 'Помощь по режиму 4.1.3.1.'

ReTURN nil

****************************************************************************************
******** Помощь по режиму 4.1.3.1: Пояснение по смыслу термина: "Распознаваемая выборка"
****************************************************************************************
FUNCTION Help4_1_3_1b()
LOCAL GetList[0], cText

TEXT INTO cText WRAP "\n" TRIMMED
   ПОЯСНЕНИЕ ПО СМЫСЛУ ТЕРМИНА: "РАСПОЗНАВАЕМАЯ ВЫБОРКА".
   Распознаваемая выборка представляет собой описания конкретных объектов,
   предъявляемых системе "Эйдос-Х++" для распознавания, идентификации и
   прогнозирования. Эти описания вводятся в режиме 4.1.1 или формируются
   другим способом, и состоят из перечисления кодов признаков(градаций
   описательных шкал) каждого объекта в соответствии с справочниками
   описательных шкал и градаций (режим 2.2). При этом коды могут быть
   приведены в любом порядке. Коды несуществующих признаков, в т.ч. 0,
   игнорируются. Используя модель знаний, созданную в 3-й подсистеме,
   система "Эйдос-Х++" для каждого распознаваемого объекта определяет
   степень сходства его конкретного образа с обобщенными образами всех
   классов. При этом используются два интегральных критерия сходства:
   "Семантический резонанс знаний" и "Сумма знаний".

ENDTEXT

@ 0,0 DCSTATIC TYPE XBPSTATIC_TYPE_TEXT SIZE 0 ;
     CAPTION cText FORMATTED ;
     FONT '10.Lucida Console' ;
     COLOR GRA_CLR_BLACK, GRA_CLR_WHITE

DCREAD GUI FIT TITLE '4.1.3.1. Пояснение по смыслу термина: "Распознаваемая выборка"'

RETURN NIL

*****************************************************************************************
******** Помощь по режиму 4.1.3.1: смысл интегрального критерия "Семантический
******** резонанс знаний" сходства распознаваемых объектов с классами системы "Эйдос-Х++"
*****************************************************************************************
FUNCTION Help4_1_3_1c()

  *SET TAG TO COMMAND
  aSaveH4131 := DC_DataSave()   // Сохранение вычислительной среды (открытые и текущие БД и индексы)

  DIRCHANGE(Disk_dir)   // Перейти в папку с исполнимым модулем системы
  cFile = "_Int_Criteria2.pdf"
  IF .NOT. FILE(cFile)
     Mess = 'В папке с исполнимым модулем системы нет файла: "#"'
     Mess = STRTRAN(Mess, "#", cFile)
     LB_Warning(Mess)
  ENDIF
  // Проверить контрольную сумму файла и если она не совпадает
  // выдать сообщение о том, что файл поврежден (чтобы было невозможно заменить графический файл).
  IF FILECHECK(cFile) = 5431862
     DC_PrintPreviewAcrobat( '_Int_Criteria2.pdf', 'Система "Эйдос-Х++"' )
  ELSE
     Mess = 'Файл: "#" поврежден и не может быть отображен!'
     Mess = STRTRAN(Mess, "#", cFile)
*    Mess = STRTRAN(Mess, "#", ALLTRIM(STR(FILECHECK(cFile),19)))  // Отображение контрольной суммы файлы
     LB_Warning(Mess)
  ENDIF

  DIRCHANGE(Disk_dir)
  IF ApplChange("")  // Перейти в папку выбранного приложения или выйти из системы
     LB_Warning("Необходимо задать (выбрать) хотя бы одно текущее приложение !!!")
     RETURN NIL
  ENDIF

  DC_DataRest( aSaveH4131 )    // Восстановление вычислительной среды (открытые и текущие БД и индексы)

RETURN NIL

******************************************************************************
******** Помощь по режиму 4.1.3.1: Смысл интегрального критерия "Сумма знаний"
******** сходства распознаваемых объектов с классами системы "Эйдос-Х++"
******************************************************************************
FUNCTION Help4_1_3_1d()

  *SET TAG TO COMMAND
  aSaveH4131 := DC_DataSave()   // Сохранение вычислительной среды (открытые и текущие БД и индексы)

  DIRCHANGE(Disk_dir)   // Перейти в папку с исполнимым модулем системы
  cFile = "_Int_Criteria1.pdf"
  IF .NOT. FILE(cFile)
     Mess = 'В папке с исполнимым модулем системы нет файла: "#"'
     Mess = STRTRAN(Mess, "#", cFile)
     LB_Warning(Mess)
  ENDIF
  // Проверить контрольную сумму файла и если она не совпадает
  // выдать сообщение о том, что файл поврежден (чтобы было невозможно заменить графический файл).
  IF FILECHECK(cFile) = 4444184
     DC_PrintPreviewAcrobat( '_Int_Criteria1.pdf', 'Система "Эйдос-Х++"' )
  ELSE
     Mess = 'Файл: "#" поврежден и не может быть отображен!'
     Mess = STRTRAN(Mess, "#", cFile)
*    Mess = STRTRAN(Mess, "#", ALLTRIM(STR(FILECHECK(cFile),19)))  // Отображение контрольной суммы файлы
     LB_Warning(Mess)
  ENDIF
  IF ApplChange("")  // Перейти в папку выбранного приложения или выйти из системы
     LB_Warning("Необходимо задать (выбрать) хотя бы одно текущее приложение !!!")
     RETURN NIL
  ENDIF
  DC_DataRest( aSaveH4131 )    // Восстановление вычислительной среды (открытые и текущие БД и индексы)

RETURN NIL

*****************************************************************************************************************
******** Помощь по режиму 4.1.3.1: Смысл интегральных критериев: "Сумма знаний" и "Семантический резонанс знаний"
******** сходства распознаваемых объектов с классами системы "Эйдос-Х++"
*****************************************************************************************************************
FUNCTION Help4131()

  *SET TAG TO COMMAND
  aSaveH4131 := DC_DataSave()   // Сохранение вычислительной среды (открытые и текущие БД и индексы)

  DIRCHANGE(Disk_dir)   // Перейти в папку с исполнимым модулем системы
  cFile = "_Int_Crit12.pdf"
  IF .NOT. FILE(cFile)
     Mess = 'В папке с исполнимым модулем системы нет файла: "#"'
     Mess = STRTRAN(Mess, "#", cFile)
     LB_Warning(Mess)
  ENDIF
  // Проверить контрольную сумму файла и если она не совпадает
  // выдать сообщение о том, что файл поврежден (чтобы было невозможно заменить графический файл).
  IF FILECHECK(cFile) = 7865942
     DC_PrintPreviewAcrobat( '_Int_Crit12.pdf', 'Система "Эйдос-Х++"' )
  ELSE
     Mess = 'Файл: "#" поврежден и не может быть отображен!'
     Mess = STRTRAN(Mess, "#", cFile)
*    Mess = STRTRAN(Mess, "#", ALLTRIM(STR(FILECHECK(cFile),19)))  // Отображение контрольной суммы файлы
     LB_Warning(Mess)
  ENDIF
  IF ApplChange("")  // Перейти в папку выбранного приложения или выйти из системы
     LB_Warning("Необходимо задать (выбрать) хотя бы одно текущее приложение !!!")
     RETURN NIL
  ENDIF
  DC_DataRest( aSaveH4131 )    // Восстановление вычислительной среды (открытые и текущие БД и индексы)

RETURN NIL

******************************************************************************
FUNCTION Search4_1_3_1()
   Razrab()
RETURN NIL

******** Отображать не более 9 записей на объект с максимальным модулем интегрального критерия
FUNCTION Fltr9On4131()
   SELECT Rsp1k;SET FILTER TO Filter9 = '#';DC_GetRefresh(GetList)
   SELECT Rsp1i;SET FILTER TO Filter9 = '#';DC_GetRefresh(GetList)
RETURN NIL

******** Отображать по каждой класс.шкале только по 2 класса: с Max.и Min.Ур.Сх.
FUNCTION FltrMOn4131()
   SELECT Rsp1k;SET FILTER TO FilterM = '#';DC_GetRefresh(GetList)
   SELECT Rsp1i;SET FILTER TO FilterM = '#';DC_GetRefresh(GetList)
RETURN NIL

******** Отображать не более 9 записей на объект с максимальным модулем интегрального критерия
******** по каждой класс.шкале только по 2 класса: с Max.и Min.Ур.Сх.
FUNCTION Fltr9MOn4131()
   SELECT Rsp1k;SET FILTER TO Filter9 = '#' .AND. FilterM = '#';DC_GetRefresh(GetList)
   SELECT Rsp1i;SET FILTER TO Filter9 = '#' .AND. FilterM = '#';DC_GetRefresh(GetList)
RETURN NIL


******** Выключить фильтр, т.е. показать все классы
FUNCTION Fltr9Off4131()
   SELECT Rsp1k;SET FILTER TO;DC_GetRefresh(GetList)
   SELECT Rsp1i;SET FILTER TO;DC_GetRefresh(GetList)
RETURN NIL

FUNCTION PrintXLS4131()
   Razrab()
RETURN NIL
******************************************************************************

[/size]

#5 Post by **rdonnay** » Thu Jul 21, 2016 3:08 pm

Looking at all that code doesn't help.

You said that the problem started after the database became too large, is that correct?

Eugene Lutsenko · #6 Post by **Eugene Lutsenko** » Thu Jul 21, 2016 7:44 pm

rdonnay wrote:Looking at all that code doesn't help.

You said that the problem started after the database became too large, is that correct?

I just noticed this when I was working with a very large database. And when he began to understand, it turned out that a very small examples, does not work either. And I had no idea that it can be. This mode is made one of the first based on your examples and always worked well.

I found a version in which everything works well. Now let's look

Eugene Lutsenko · #7 Post by **Eugene Lutsenko** » Thu Jul 21, 2016 8:46 pm

I insert this function from the old to the new working program and it worked. Something I have it spoiled when perfected ... no limit to perfection, but you should always know when to stop. Best the enemy of the good. Thank you and sorry ...

Eugene Lutsenko · #8 Post by **Eugene Lutsenko** » Fri Jul 22, 2016 9:19 pm

I found what the error was specific. The error was stupid, as often happens, but I have not seen at close range. It was created indexed array with the same name and opened with another !!! Apparently I did this mode of some other and not finish. It is surprising that sometimes he also worked. as soon as I fix it all at once clearly earned.

CLOSE ALL
USE Rso_Zag
INDEX ON Kod_Obj TO Classes
CLOSE ALL
USE Rsp1k NEW
INDEX ON Kod_Obj TO Rsp1k
CLOSE ALL
USE Rsp1i NEW
INDEX ON Kod_Obj TO Rsp1i

CLOSE ALL
USE Rso_Zag INDEX Rso_Zag EXCLUSIVE NEW
USE Rsp1k INDEX Rsp1k EXCLUSIVE NEW
USE Rsp1i INDEX Rsp1i EXCLUSIVE NEW

Eugene Lutsenko · #9 Post by **Eugene Lutsenko** » Sat Jul 23, 2016 11:23 am

When the results of the identification (classification) on a very large database (approximately 500 thousand objects) mode also works perfectly normal

bb.donnay-software.com

One to many windows are not displayed at 550 thousand lines

One to many windows are not displayed at 550 thousand lines

Re: One to many windows are not displayed at 550 thousand li

Re: One to many windows are not displayed at 550 thousand li

Re: One to many windows are not displayed at 550 thousand li

Re: One to many windows are not displayed at 550 thousand li

Re: One to many windows are not displayed at 550 thousand li

Re: One to many windows are not displayed at 550 thousand li

Re: One to many windows are not displayed at 550 thousand li

Re: One to many windows are not displayed at 550 thousand li