TAKE FROM 333 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «= Смотрите также = Полезные функции Функции Delphi») |
Hisava (обсуждение | вклад) м |
||
| (не показана одна промежуточная версия этого же участника) | |||
| Строка 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( 'Успешно загружено' )
