OHC 171018 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «OHC_171018 - это программа из справочника R266 = Смотрите также = Полезные функции Функц…») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[OHC_171018]] - это программа из справочника [[R266]] | [[OHC_171018]] - это программа из справочника [[R266]] | ||
| + | path -> temp | ||
| + | [[OHC_171018]]() | ||
| + | = Вызов = | ||
| + | [[Магазин]] - Загрузка продаж - Загрузка продаж в фабиус ( ОРЕХОВОХЛЕБ ) Быстрая загрузка | ||
| + | = Текст = | ||
| + | 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 | ||
| + | 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() | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 08:16, 1 ноября 2017
OHC_171018 - это программа из справочника R266
path -> temp
OHC_171018()
Вызов
Магазин - Загрузка продаж - Загрузка продаж в фабиус ( ОРЕХОВОХЛЕБ ) Быстрая загрузка
Текст
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 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()
