Версия 08:48, 18 октября 2017

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

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

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