ASK FRONTOL ABOUT — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м (Смотрите также)
 
(не показано 6 промежуточных версий этого же участника)
Строка 13: Строка 13:
 
  dc_bread := '\\DC\bread\Fabius_TD\FRONTOL\'
 
  dc_bread := '\\DC\bread\Fabius_TD\FRONTOL\'
 
   
 
   
  folderatol := GetPrm( 'CASHBOX', 'CASH_SHOP', TaskNum )
+
  folderatol := [[GetPrm]]( 'CASHBOX', 'CASH_SHOP', TaskNum )
 
   
 
   
  from_atol := GetParam( 'FROM_ATOL', 'SHOP',, r20_kod )
+
  from_atol := [[GetParam]]( 'FROM_ATOL', 'SHOP',, r20_kod )
  from_atolf := GetParam( 'FROM_ATOLF', 'SHOP',, r20_kod )
+
  from_atolf := [[GetParam]]( 'FROM_ATOLF', 'SHOP',, r20_kod )
 
   
 
   
  ip := InputPeriod( true )
+
  ip := [[InputPeriod]]( true )
 
   
 
   
  if Empty( ip )
+
  if [[Empty]]( ip )
 
   return
 
   return
 
  endif
 
  endif
 
   
 
   
  folderatol := Nice_Path( folderatol )
+
  folderatol := [[Nice_Path]]( folderatol )
 
   
 
   
 
  aa := { '$$$TRANSACTIONSBYDATERANGE' }
 
  aa := { '$$$TRANSACTIONSBYDATERANGE' }
  datas := StoD( ip[1] ) + '; ' + StoD( ip[2] )
+
  datas := [[StoD]]( ip[1] ) + '; ' + [[StoD]]( ip[2] )
  Aadd( aa, datas )
+
  [[Aadd]]( aa, datas )
 
   
 
   
 
  // FErase( folderatol + from_atol )
 
  // FErase( folderatol + from_atol )
 
  // WriteTxtFile( aa, from_atolf, folderatol, true )
 
  // WriteTxtFile( aa, from_atolf, folderatol, true )
 
   
 
   
  WriteTxtFile( aa, from_atolf, dc_bread, true )
+
  [[WriteTxtFile]]( aa, from_atolf, dc_bread, true )
 
   
 
   
  if !CopyFile( dc_bread + from_atolf, folderatol + from_atolf )
+
  if ![[CopyFile]]( dc_bread + from_atolf, folderatol + from_atolf )
   Message( 'Не удалось скопировать файл ' + from_atolf + ' в папку ' + folderatol )
+
   [[Message]]( 'Не удалось скопировать файл ' + from_atolf + ' в папку ' + folderatol )
 
  else
 
  else
   Message( 'Сформирован файл ' + from_atolf + ' в папке ' + folderatol )
+
   [[Message]]( 'Сформирован файл ' + from_atolf + ' в папке ' + folderatol )
 
  endif
 
  endif
 
   
 
   
Строка 46: Строка 46:
 
[[Полезные функции]]
 
[[Полезные функции]]
  
[[Функции Delphi]]
+
[[SRG_20160406]]

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

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

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

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

SRG_20160406