ASK FRONTOL ABOUT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 2: | Строка 2: | ||
Запросить из фронтола операции за период | Запросить из фронтола операции за период | ||
[[ASK_FRONTOL_ABOUT]]() | [[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" } | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 12:17, 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" }
