TAKE FROM AMC — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «TAKE_FROM_AMC - это программа из справочника R266 Подготовка = Смотрите также = Полезные фун…»)
 
м
 
(не показана одна промежуточная версия этого же участника)
Строка 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
// удалить все из временной папки

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

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

Функции Delphi

OHC