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 // удалить все из временной папки