copy file &baz2 to &baz1
baz1=catalog+'\'+ddd+'\ras1.*'
baz2=catalog+'\data\ras1.*'
delete file &baz1
copy file &baz2 to &baz1
baz1=catalog+'\'+ddd+'\rast1.*'
baz2=catalog+'\data\rast1.*'
delete file &baz1
copy file &baz2 to &baz1
* ? curdir()
* wait
if Messagebox('Данные скопированы. Очистить данные за прошлый месяц ? ',4+32+256,' Очистка данных ')=6
if !used('nal1')
use nal1 in 0 exclusive
endif
select nal1
replace all kol_vo_n with kol_vo_k
go top
delete all for (kol_vo_k<=0)
pack
if !used('prt1')
use prt1 in 0 exclusive
endif
select prt1
delete all
pack
append blank
replace kol_vo with 0, kod_nakl with 1
if !used('pr1')
use pr1 in 0 exclusive
endif
select pr1
delete all
pack
append blank
replace kod_nakl with 1
if !used('rast1')