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

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

Текущая версия на 08:37, 15 марта 2018

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