TAKE FROM AMC

Материал из Фабиус wiki
Перейти к: навигация, поиск

TAKE_FROM_AMC - это программа из справочника R266

Подготовка

TAKE_FROM_AMC()

Текст

local r603, temp_path, path, aa, i, r20_kod
temp_path := NICE_PATH( EXPANDUNCFILENAME( TempPath ) )
CLEARDIR( temp_path )
try
  r603 := OPENKLSF( 'R603' )
  ( r603 )->( DBGOTOP() )
  while !( r603 )->( EOF() )
    r20_kod := ( r603 )->R20_KOD
    path := NICE_PATH( ( ( r603 )->FOLDERATOL ) )
    aa := DIRECTORY( path + '*.*', "A" )
    if !ISEMPTY( aa )
      aa := PREPAREARR( aa )
      for i := 1 to LEN( aa )
        COPYFILE( path + aa[i], temp_path + r20_kod + aa[i] )
//        FERASE( path + aa[i] )
      next
    endif
    ( r603 )->( DBSKIP() )
  end
finally
  CLOSETABLE( r603 )
end
// удалить все из временной папки

Смотрите также

Полезные функции

Функции Delphi

OHC