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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Текст программы)
Строка 7: Строка 7:
 
  local ip, aa, datas, folderatol, from_atolf, from_atol
 
  local ip, aa, datas, folderatol, from_atolf, from_atol
 
   
 
   
  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 )

Версия 14:34, 27 апреля 2017

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