CLOS DATA ALL
CLOS TABL ALL
SET SAFETY OFF

***** Create each index for IDS *****

USE IDS EXCLUSIVE
IF NOT USPEX
	RETURN
ENDIF
FOR m.nInner_Loop =  1  TO TAGCOUNT()
 IF	PRIMARY(m.nInner_Loop)
  ALTER TABLE IDS DROP PRIMARY KEY
 ENDIF
ENDFOR
SET COLLATE TO 'MACHINE'
INDEX ON TABLE TAG TABLE

***** Create each index for SP_MOL *****

USE SP_MOL EXCLUSIVE
FOR m.nInner_Loop =  1  TO TAGCOUNT()
 IF	PRIMARY(m.nInner_Loop)
  ALTER TABLE SP_MOL DROP PRIMARY KEY
 ENDIF
ENDFOR
SET COLLATE TO 'MACHINE'
INDEX ON KOD_P TAG KOD_P
INDEX ON KOD_OTD TAG KOD_OTD
INDEX ON TAB TAG TAB
ALTER TABLE 'SP_MOL' ADD PRIMARY KEY ID_AGN TAG ID_AGN
INDEX ON NAM TAG NAM
........................
........................
*************** Begin Relations Setup **************
ALTER TABLE 'AMORT' ADD FOREIGN KEY TAG ID_MBP REFERENCES TMBP TAG ID_MBP
ALTER TABLE 'TMBP' ADD FOREIGN KEY TAG ID_TOV REFERENCES SP_TOV TAG ID_TOV
ALTER TABLE 'TMBP' ADD FOREIGN KEY TAG ID_AGN REFERENCES SP_MOL TAG ID_AGN
ALTER TABLE 'DMBP' ADD FOREIGN KEY TAG ID_MBP REFERENCES TMBP TAG ID_MBP
ALTER TABLE 'DMBP' ADD FOREIGN KEY TAG OTP REFERENCES SP_MOL TAG ID_AGN
ALTER TABLE 'DMBP' ADD FOREIGN KEY TAG POL REFERENCES SP_MOL TAG ID_AGN

FOR m.nInner_Loop =  1  TO TAGCOUNT()
 IF	PRIMARY(m.nInner_Loop)
  ALTER TABLE SP_MOL DROP PRIMARY KEY
 ENDIF
ENDFOR

ALTER TABLE SP_MOL DROP PRIMARY KEY

use MyDBF excl
DELETE TAG ALL && Удаление MyDBF.CDX
INDEX ON ...
INDEX ON ...

CLOSE TABL ALL\nCD F:\\SBT\\BAL && исходная папка на сервере\nUSE BAL.DBC EXCL\nIF NOT USPEX\n\tRETURN\nENDIF\nCLOSE TABL ALL\n******* так шла индексация раньше теперь см. в конце этого файла\n*!*\tDO D:\\KOPII\\BALBAK\\BALIND && ИНДЕКСАЦИЯ C ПОМОЩЬЮ INDEX\n*!*\tIF NOT USPEX\n*!*\t\tRETURN\n*!*\tENDIF\n\n*** Создание программы-creatora БД\t\nSET SAFETY OFF\nDVFP=SYS( 2004 )\nDGEN=DVFP+"TOOLS\\GENDBC"\nSET PATH TO &DGEN\n\nDO GENDBC WITH "BALB"\n\nCOPY FILE BALB.PRG TO D:\\KOPII\\BALBAK\\BALB.PRG\nCOPY FILE BALB.KRT TO D:\\KOPII\\BALBAK\\BALB.KRT\nCOPY FILE F:\\PEXE\\BAL.EXE TO D:\\KOPII\\BALBAK\\BAL.EXE\nDELETE FILE BALB.PRG\nDELETE FILE BALB.KRT\n***********************************************\nCD D:\\KOPII\\BALBAK && папка для копии\n*** параметры для представлений\nPUBLIC DATN,DATK,ZURN,ORDB,sct_ido,zur_id,SCT_ID,NSTRG,REGZ,dok_n,ZTR_ID\nZTR_ID= 50 \ndok_n=padr( 1 , 10 )\nREGZ=.T.\nNSTRG=STR( 1 , 2 )+STR( 1 , 3 )\nSCT_ID= 1 \nzur_id= 1 \nsct_ido= 1 \nORDB="PADL(ZURM0.ID_ZUR,18)"\nZURN="1"\nDATK=DATE()\nDATN=DATK-DAY(DATK)+ 1 \n*** создание пустой БД\nDO D:\\KOPII\\BALBAK\\BALB.PRG\nIF NOT USPEX\n\tRETURN\nENDIF\n\nCLOS TABL ALL\n\nWAIT WIND "НАПОЛНЕНИЕ БАЗЫ ДАННЫХ " NOWAIT\n\nOPEN DATA D:\\KOPII\\BALBAK\\BAL\nLNTABLES=ADBOBJECTS(LATABLES,\'TABLE\')\nFOR LNX= 1  TO LNTABLES\n\tLCTABLENAME=LATABLES(LNX)\n\tCOPY File (\'F:\\SBT\\BAL\\\'+LCTABLENAME+\'.DBF\') TO (\'D:\\KOPII\\BALBAK\\\'+LCTABLENAME+\'.DBF\')\n\tIF FILE(LCTABLENAME+\'.FPT\')\n\t\tCOPY File (\'F:\\SBT\\BAL\\\'+LCTABLENAME+\'.FPT\') TO (\'D:\\KOPII\\BALBAK\\\'+LCTABLENAME+\'.FPT\')\n\tENDIF\n* пустые CDX из копии перемещаем  в оригинал\n\tIF FILE(LCTABLENAME+\'.CDX)\n\t\tCOPY File (\'D:\\KOPII\\BALBAK\\\'+LCTABLENAME+\'.CDX\') TO (\'F:\\SBT\\BAL\\\'+LCTABLENAME+\'.CDX\')\n\tENDIF\nENDFOR\n* Делаем переиндексацию основной базы данных\nCLOSE TABL ALL\nCLOSE DATABASES all\nCD F:\\SBT\\BAL && исходная папка на сервере\nFOR LNX= 1  TO LNTABLES\n\tLCTABLENAME=LATABLES(LNX)\n\tUSE (LCTABLENAME)\n\tREINDEX\nENDFOR\nWAIT WIND " Ф И Н И Ш " NOWAIT \n