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')