ACS TO ACS 171016 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «ACS_TO_ACS_171016 - это программа из справочника R266 Перенести все документы ACS ACS_TO_ACS_171016( da…»)
 
м
 
Строка 2: Строка 2:
 
  Перенести все документы ACS
 
  Перенести все документы ACS
 
[[ACS_TO_ACS_171016]]( data )
 
[[ACS_TO_ACS_171016]]( data )
−
= Текст =
 
−
parameters data
 
−
local acs1, del, aa, path, fld, i, sql, msg
 
−
fld := {}
 
−
path := '\\FABIUS\FABIUS\OPDATA'
 
−
del := [ KINDDOC = 'ACS' and LVLNUM = '1' ]
 
−
try
 
−
  [[WAITMSG]]( 'Выполняется перенос документов' + CHR( 10 ) + 'ACS ' + REALNAME( 'R169', 'ACS' ), msg )
 
−
  acs1 := OPENCHILDDOC( 'ACS', '1', ~ParentForm := "", ~IsCondition := false, ~Month := MONTH( data ), ~Year := YEAR( data )  )
 
−
  ( acs1 )->( SETFILTER( del ) )
 
−
  ( acs1 )->( REFRESH() )
 
−
  aa := ( acs1 )->( DBSTRUCT() )
 
−
  if !ISEMPTY( aa )
 
−
    for i := 6 to LEN( aa )
 
−
      AADD( fld, aa[i,1] )
 
−
    next
 
−
  endif
 
−
  sql := [ Select ]
 
−
  if !EMPTY( fld )
 
−
    for i := 1 to LEN( fld )
 
−
      sql := sql + fld[i] + [, ]
 
−
    next
 
−
  endif
 
−
  sql := LEFT( sql, LEN( sql ) - 2 )
 
−
  sql := STRTRAN( sql, [ SUM,], [ "SUM",] )
 
−
  sql := sql + [ From DOCS] + RET_F_EXT( data ) + [ Where ] + del
 
−
  aa := SELECTSQLTOARR( sql, fld, path, false, false )
 
−
  if !ISEMPTY( aa )
 
−
    ADDALL( 'ACS', '1', " ",, fld, aa,,,, YEAR( data ), MONTH( data ),,, false,, del, { false, false, false, false, false } )
 
−
  endif
 
−
finally
 
−
  CLOSEFORM( ( acs1 )->( GETFORM( GETAREA() ) ), true )
 
−
  HIDEMSG( msg )
 
−
end
 
−
ACS_TO_ACS2_( data )
 
−
//
 
 
= Смотрите также =
 
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]

Текущая версия на 11:34, 11 января 2020

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

Перенести все документы ACS

ACS_TO_ACS_171016( data )

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

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

Функции Delphi

Источник — «https://wiki.sftserv.ru/index.php?title=ACS_TO_ACS_171016&oldid=37292»