|
|
| Строка 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
