bb.donnay-software.com

Code: Select all

   ***** Создать БД Zpr_Inf#

   CLoseAll()            // Закрытие всех баз данных с ожиданием завершения операций

   aStructure := { { "Num"      , "N", 15, 0 }, ; // Порядковый номер после ранжирования
                   { "Num_prc"  , "N", 15, 7 }, ; // Порядковый номер после ранжирования в процентах
                   { "Kod_atr"  , "N", 15, 0 }, ; // Код признака, т.е. градации описательной шкалы
                   { "Name_atr" , "C",mLN, 0 }, ; // Наименование признака, т.е. описательной шкалы+"-"+градации описательной шкалы
                   { "Kod_OpSc" , "N", 15, 0 }, ; // Код описательной шкалы
                   { "Znach_Atr", "N", 15, 7 }, ; // Значимость признака в ее единицах измерения
                   { "Zn_AtrNit", "N", 19, 7 }, ; // Значимость признака в ее единицах измерения нарастающим итогом
                   { "Znach_Prc", "N", 15, 7 }, ; // Значимость признака в процентах от суммы значимостей всех признаков
                   { "Zn_PrcNit", "N", 15, 7 }, ; // Значимость признака в процентах от суммы значимостей всех признаков нарастающим итогом
                   { "Delete"   , "C",  6, 0 }  } // Признак, что данный признак был удален из Abs

   PUBLIC Ar_Model := {"Abs", "Prc1", "Prc2", "Inf1", "Inf2", "Inf3", "Inf4", "Inf5", "Inf6", "Inf7" }

   FOR jj=1 TO LEN(Ar_Model)
*      mNameZpr = "Zpr_"+Ar_Model[jj]+".dbf"
       mNameZpr = "Zpr_"+Ar_Model[jj]
       DbCreate( mNameZpr , aStructure )                 // <<<===################# ERROR
   NEXT
   mNameZpr = "Zpr_tmp.dbf"
   DbCreate( mNameZpr , aStructure )