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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Смотрите также)
 
(не показано 5 промежуточных версий этого же участника)
Строка 1: Строка 1:
SRG_20160406 - это программа из справочника [[R266]]
+
[[SRG_20160406]] - это программа из справочника [[R266]]
 +
Запросить из фронтола операции за период
  
Запросить из фронтола операции за период
+
= Текст =
 
+
= Текст программы =
+
  
 
  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 )
Строка 31: Строка 30:
  
 
= Смотрите также =
 
= Смотрите также =
 
+
[[ASK_FRONTOL_ABOUT]]
[[Функции Delphi]]
+
  
 
[[Полезные функции]]
 
[[Полезные функции]]

Текущая версия на 17:30, 27 июля 2020

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" }

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

ASK_FRONTOL_ABOUT

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