- Код: Выделить всё
**************************************************************************************************************
FUNCTION FIELDGET2322(mF) // Для 2.3.2.2-CSV. mF - номер поля в мультитаблице
* mNFieldsTabl = IF(Len(aTokens)<=255,Len(aTokens),255) // Число полей в таблице
* mNFieldsALL = Len(aTokens) // Число полей всего (в мультитаблице)
mNumTabl = 1+INT((mF-1)/mNFieldsTabl) // Номер таблицы
mInpData = 'Inp_data'+STRTRAN(STR(mNumTabl,3),' ','0') // Наименование таблицы
mNumFieldTabl = mF-(mNumTabl-1)*mNFieldsTabl // Номер поля в таблице
mVal = (mInpData)->(FIELDGET(mNumFieldTabl))
RETURN(mVal)
**************************************************************************************************************
******** Индексировать по нужному полю в нужной таблице
**************************************************************************************************************
FUNCTION IndexOn2322(mF) // Для 2.3.2.2-CSV. mF - номер поля в мультитаблице
* mNFieldsTabl = IF(Len(aTokens)<=255,Len(aTokens),255) // Число полей в таблице
* mNFieldsALL = Len(aTokens) // Число полей всего (в мультитаблице)
mNumTabl = 1+INT((mF-1)/mNFieldsTabl) // Номер таблицы
mInpData = 'Inp_data'+STRTRAN(STR(mNumTabl,3),' ','0') // Наименование таблицы
mNumFieldTabl = mF-(mNumTabl-1)*mNFieldsTabl // Номер поля в таблице
* mVal = (mInpData)->(FIELDGET(mNumFieldTabl))
SELECT(mInpData)
INDEX ON SUBSTR(FIELDGET(mNumFieldTabl),1,256) TO Inp_tmp UNIQUE // ###################### Индексировать по нужному полю в нужной таблице, как в FIELDGET2322()
RETURN(mVal)
**************************************************************************************************************
******** Перейти на следующую запись во всех таблицах мультитаблицы. Для 2.3.2.2-CSV
**************************************************************************************************************
FUNCTION DBSKIP2322(nr)
FOR zz=1 TO mNumberFiles
mInpData = 'Inp_data'+STRTRAN(STR(zz,3),' ','0')
(mInpData)->(DBSKIP(nr))
NEXT
RETURN NIL
**************************************************************************************************************
******** Открыть все базы данных: Inp_data###.dbf Для 2.3.2.2-CSV
**************************************************************************************************************
FUNCTION UseInpDataALL()
FOR zz=1 TO mNumberFiles
mInpData = 'Inp_data'+STRTRAN(STR(zz,3),' ','0')
USE (mInpData) EXCLUSIVE NEW
NEXT
RETURN NIL
**************************************************************************************************************
******** Открыть все базы данных: Inp_rasp###.dbf Для 2.3.2.2-CSV
**************************************************************************************************************
FUNCTION UseInpRaspALL()
FOR zz=1 TO mNumberFiles
mInpRasp = 'Inp_rasp'+STRTRAN(STR(zz,3),' ','0')
USE (mInpData) EXCLUSIVE NEW
NEXT
RETURN NIL
**************************************************************************************************************