TAKE FROM AMC — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «TAKE_FROM_AMC - это программа из справочника R266 Подготовка = Смотрите также = Полезные фун…») |
Hisava (обсуждение | вклад) м |
||
| (не показана одна промежуточная версия этого же участника) | |||
| Строка 1: | Строка 1: | ||
[[TAKE_FROM_AMC]] - это программа из справочника [[R266]] | [[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]] | [[Функции Delphi]] | ||
| + | |||
| + | [[OHC]] | ||
Текущая версия на 08:43, 11 октября 2017
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 // удалить все из временной папки
