Просмотр исходного текста страницы 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]]