PUBLIC USPEX,KOP_D
LOCAL I,KZ
LOCAL ARRAY  APR( 22 ) 
USE C:\PROT\PR_KOP SHARED
KOP_D=DATE() && дата копир.

IF NOT SEEK(KOP_D,"PR_KOP","D_KOP") && если за эту дату не копировалось, то создаём протокол
	FOR I= 1  TO  22 
		INSERT INTO PR_KOP (D_KOP,NZ,WRNAC,WRKON,SOST) VALUES (M.KOP_D,I,DATETIME( 2001 , 1 , 1 , 0 , 0 , 0 ),DATETIME( 9999 , 12 , 31 , 23 , 59 , 59 ), 0 )
	ENDFOR	 
ENDIF
SELECT PR_KOP

COPY TO ARRAY APR FIELDS NZ FOR D_KOP=M.KOP_D AND SOST= 0 
KZ=_TALLY

FOR I= 1  TO KZ
	USPEX=.T.
	ON ERROR USPEX=.F.
	UPDATE PR_KOP SET SOST= 1 ,WRNAC=DATETIME() WHERE D_KOP=M.KOP_D AND NZ=APR(I)  && НАЧАЛО КОПИРОВАНИЯ 	USE IN PR_KOP
	PR_KOP="cop"+ltrim(str(APR(I), 2 )) && имя соотв.процедуры
	DO (PR_KOP)
	USE C:\PROT\PR_KOP SHARED
	IF USPEX
		UPDATE PR_KOP SET SOST= 2 ,WRKON=DATETIME() WHERE D_KOP=M.KOP_D AND NZ=APR(I) && КОПИРОВАНИЕ ЗАВЕРШИЛОСЬ УСПЕШНО SOST= 2 
	ELSE
		UPDATE PR_KOP SET SOST= 3 ,WRKON=DATETIME() WHERE D_KOP=M.KOP_D AND NZ=APR(I) && КОПИРОВАНИЕ ЗАВЕРШИЛОСЬ КРАХОМ SOST= 3 
	ENDIF		
ENDFOR

QUIT

CLOSE TABL ALL
CD F:\SBT\BAL && исходная папка на сервере
USE BAL.DBC EXCL
IF NOT USPEX
	RETURN
ENDIF
CLOSE TABL ALL

DO D:\KOPII\BALBAK\BALIND && ИНДЕКСАЦИЯ
IF NOT USPEX
	RETURN
ENDIF
*** Создание программы-creatora БД	
SET SAFETY OFF
DVFP=SYS( 2004 )
DGEN=DVFP+"TOOLS\GENDBC"
SET PATH TO &DGEN

DO GENDBC WITH "BALB"

COPY FILE BALB.PRG TO D:\KOPII\BALBAK\BALB.PRG
COPY FILE BALB.KRT TO D:\KOPII\BALBAK\BALB.KRT
COPY FILE F:\PEXE\BAL.EXE TO D:\KOPII\BALBAK\BAL.EXE
DELETE FILE BALB.PRG
DELETE FILE BALB.KRT
***********************************************
CD D:\KOPII\BALBAK && папка для копии
*** параметры для представлений
PUBLIC DATN,DATK,ZURN,ORDB,sct_ido,zur_id,SCT_ID,NSTRG,REGZ,dok_n,ZTR_ID
ZTR_ID= 50 
dok_n=padr( 1 , 10 )
REGZ=.T.
NSTRG=STR( 1 , 2 )+STR( 1 , 3 )
SCT_ID= 1 
zur_id= 1 
sct_ido= 1 
ORDB="PADL(ZURM0.ID_ZUR,18)"
ZURN="1"
DATK=DATE()
DATN=DATK-DAY(DATK)+ 1 
*** создание пустой БД
DO D:\KOPII\BALBAK\BALB.PRG
IF NOT USPEX
	RETURN
ENDIF

CLOS TABL ALL

WAIT WIND "НАПОЛНЕНИЕ БАЗЫ ДАННЫХ " NOWAIT

OPEN DATA D:\KOPII\BALBAK\BAL
LNTABLES=ADBOBJECTS(LATABLES,'TABLE')
FOR LNX= 1  TO LNTABLES
	LCTABLENAME=LATABLES(LNX)
	COPY FILE F:\SBT\BAL\&LCTABLENAME..DBF TO  D:\KOPII\BALBAK\&LCTABLENAME..DBF
	IF FILE("&LCTABLENAME..FPT")
		COPY FILE F:\SBT\BAL\&LCTABLENAME..FPT TO  D:\KOPII\BALBAK\&LCTABLENAME..FPT
	ENDIF
	IF FILE("&LCTABLENAME..CDX")
		COPY FILE F:\SBT\BAL\&LCTABLENAME..CDX TO  D:\KOPII\BALBAK\&LCTABLENAME..CDX
	ENDIF
ENDFOR
WAIT WIND " Ф И Н И Ш " NOWAIT