ASK FRONTOL ABOUT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст) |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 27: | Строка 27: | ||
aa := { '$$$TRANSACTIONSBYDATERANGE' } | aa := { '$$$TRANSACTIONSBYDATERANGE' } | ||
| − | datas := StoD( ip[1] ) + '; ' + StoD( ip[2] ) | + | datas := [[StoD]]( ip[1] ) + '; ' + [[StoD]]( ip[2] ) |
| − | Aadd( aa, datas ) | + | [[Aadd]]( aa, datas ) |
// FErase( folderatol + from_atol ) | // FErase( folderatol + from_atol ) | ||
// WriteTxtFile( aa, from_atolf, folderatol, true ) | // WriteTxtFile( aa, from_atolf, folderatol, true ) | ||
| − | WriteTxtFile( aa, from_atolf, dc_bread, true ) | + | [[WriteTxtFile]]( aa, from_atolf, dc_bread, true ) |
| − | if !CopyFile( dc_bread + from_atolf, folderatol + from_atolf ) | + | if ![[CopyFile]]( dc_bread + from_atolf, folderatol + from_atolf ) |
| − | Message( 'Не удалось скопировать файл ' + from_atolf + ' в папку ' + folderatol ) | + | [[Message]]( 'Не удалось скопировать файл ' + from_atolf + ' в папку ' + folderatol ) |
else | else | ||
| − | Message( 'Сформирован файл ' + from_atolf + ' в папке ' + folderatol ) | + | [[Message]]( 'Сформирован файл ' + from_atolf + ' в папке ' + folderatol ) |
endif | endif | ||
Версия 12:19, 27 апреля 2017
ASK_FRONTOL_ABOUT - это программа из справочника R266
Запросить из фронтола операции за период
ASK_FRONTOL_ABOUT()
Текст
local ip, aa, datas, folderatol, from_atolf, from_atol, dc_bread local r179_kod, r20_kod r179_kod := GetPrm( 'TASKANAL', 'CASH_SHOP', TaskNum ) r20_kod := SeekRef( 'R179', r179_kod, 'CASH_KOD2', 1 ) dc_bread := '\\DC\bread\Fabius_TD\FRONTOL\magazin11\' dc_bread := '\\DC\bread\Fabius_TD\FRONTOL\' folderatol := GetPrm( 'CASHBOX', 'CASH_SHOP', TaskNum ) from_atol := GetParam( 'FROM_ATOL', 'SHOP',, r20_kod ) from_atolf := GetParam( 'FROM_ATOLF', 'SHOP',, r20_kod ) ip := InputPeriod( true ) if Empty( ip ) return endif folderatol := Nice_Path( folderatol ) aa := { '$$$TRANSACTIONSBYDATERANGE' } datas := StoD( ip[1] ) + '; ' + StoD( ip[2] ) Aadd( aa, datas ) // FErase( folderatol + from_atol ) // WriteTxtFile( aa, from_atolf, folderatol, true ) WriteTxtFile( aa, from_atolf, dc_bread, true ) if !CopyFile( dc_bread + from_atolf, folderatol + from_atolf ) Message( 'Не удалось скопировать файл ' + from_atolf + ' в папку ' + folderatol ) else Message( 'Сформирован файл ' + from_atolf + ' в папке ' + folderatol ) endif // { "20151201", "20151201" }
