SRG 20160406 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст программы)
Строка 17: Строка 17:
 
  endif
 
  endif
 
   
 
   
  folderatol := Nice_Path( folderatol )
+
  folderatol := [[Nice_Path]]( folderatol )
 
   
 
   
 
  aa := { '$$$TRANSACTIONSBYDATERANGE' }
 
  aa := { '$$$TRANSACTIONSBYDATERANGE' }

Версия 13:55, 12 сентября 2016

SRG_20160406 - это программа из справочника R266

Запросить из фронтола операции за период

Текст программы

local ip, aa, datas, folderatol, from_atolf, from_atol

from_atol :=  GetPrm( 'FROM_ATOL', 'SHOP', TaskNum )
from_atolf := GetPrm( 'FROM_ATOLF', 'SHOP', TaskNum )
folderatol := GetPrm( 'FOLDERATOL', 'SHOP', TaskNum )

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 )

Message( 'Сформирован файл ' + from_atolf + ' в папке ' + folderatol )

// { "20151201", "20151201" }

Смотрите также

Функции Delphi

Полезные функции