OHC 171018

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

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

path -> temp

OHC_171018()

Вызов

Магазин - Загрузка продаж - Загрузка продаж в фабиус ( ОРЕХОВОХЛЕБ ) Быстрая загрузка

Текст

local taskanal
taskanal := 0
// R20_KOD
if TASKNAME == 'SHOP'
  taskanal := GETPARAM( 'TASKANAL' )
endif

local r603, temp_path, path, files, i, r20_kod, msg, ip, my, end_data
temp_path := NICE_PATH( EXPANDUNCFILENAME( TempPath ) )
CLEARDIR( temp_path )
ip := INPUTPERIOD( true )
if EMPTY( ip )
  return
endif
my := STOD( ip[1] )
end_data := STOD( ip[2] ) + 1
while my <> end_data
  try
    WAITMSG( 'Анализ папки за период', msg )
    r603 := OPENKLSF( 'R603' )
    ( r603 )->( DBGOTOP() )
    while !( r603 )->( EOF() )
      r20_kod := ( r603 )->R20_KOD
      if !EMPTY( taskanal )
        if r20_kod <> taskanal
          ( r603 )->( DBSKIP() )
          loop
        endif
      endif
      path := NICE_PATH( ( ( r603 )->FOLDERATOL ) )
      files := DIRECTORY( path + '*' + SQLDATE( my ) + '.dbf', "A" )
      if !ISEMPTY( files )
        files := PREPAREARR( files )
        for i := 1 to LEN( files )
          COPYFILE( path + files[i], temp_path + r20_kod + files[i] )
        next
      endif
      ( r603 )->( DBSKIP() )
    end
  finally
    CLOSETABLE( r603 )
    HIDEMSG( msg )
  end
  my := my + 1
end
// http://wiki.sftserv.ru/index.php/Загрузка_продаж_в_фабиус_(_ОРЕХОВОХЛЕБ_)
// AMC100_1()
// OHC_171019()
// OHC_171102()

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

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

Функции Delphi