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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст программы)
Строка 8: Строка 8:
 
   
 
   
 
  from_atol :=  [[GetPrm]]( 'FROM_ATOL', 'SHOP', TaskNum )
 
  from_atol :=  [[GetPrm]]( 'FROM_ATOL', 'SHOP', TaskNum )
  from_atolf := GetPrm( 'FROM_ATOLF', 'SHOP', TaskNum )
+
  from_atolf := [[GetPrm]]( 'FROM_ATOLF', 'SHOP', TaskNum )
  folderatol := GetPrm( 'FOLDERATOL', 'SHOP', TaskNum )
+
  folderatol := [[GetPrm]]( 'FOLDERATOL', 'SHOP', TaskNum )
 
   
 
   
 
  ip := [[InputPeriod]]( true )
 
  ip := [[InputPeriod]]( true )

Версия 08:11, 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

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