TAKE FROM 333

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

Загрузка продаж - Из П А П К И

Текст

if !YESNO( 'Загрузить продажи из папки ?', false )
  return
endif
local temp_path, i, taskNUMS, cashBOX, aa, msg
temp_path := NICE_PATH( EXPANDUNCFILENAME( tempPATH ) )
CLEARDIR( temp_path )   // удалить все из временной папки
taskNUMS := { 5, 6, 7 }
try
  for i := 1 to 3
    cashBOX := GETPRM( 'CASHBOX', 'CASH_SHOP', taskNUMS[i] )
    WAITMSG( 'Копирование файла report.txt из папки ' + cashBOX, msg )
    cashBOX := NICE_PATH( cashBOX )
    aa := taskNUMS[i] - 4
    CREATEDIR( temp_path + STR( aa ), true )
    COPYFILE( cashBOX + 'report.txt', temp_path + STR( aa ) + '\report.txt'  )
  next
finally
  HIDEMSG( msg )
end
//         FTPGET( ftp, '/' + dest_path + '/' + from_atolz, temp_path + '/' + from_atolz + ( __ )->_10 )
// tasknum 5, 6, 7
// CASHBOX
// папки 1, 2, 3
// CopyFile( folderatol + to_atol, kassa_exchange_path + to_atol )

// report.txt

TAKE_FROM_FTP1() // // Удалить FTL и FRO
TAKE_FROM_FTP2() // // Добавить FTL
TAKE_FROM_FTP3() // // Добавить FRO

MESSAGE( 'Успешно загружено' )

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

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

Функции Delphi