|
|
(не показаны 3 промежуточные версии этого же участника) |
Строка 3: |
Строка 3: |
| [[AT2_TO_AT2]]( data ) | | [[AT2_TO_AT2]]( data ) |
| | | |
− | data - дата | + | data - дата для определения месяца |
− | = Текст =
| + | |
− | parameters data
| + | |
− | local at2, del, aa, fld, i, sql, path, msg, kinddoc
| + | |
− | kinddoc := 'AT2'
| + | |
− | // Протокол переноса документов из УУ в НУ
| + | |
− | [[FILL_U_N]]( kinddoc )
| + | |
− | path := '\\FABIUS\FABIUS\OPDATA'
| + | |
− | fld := {}
| + | |
− | del := [ KINDDOC = 'AT2' and LVLNUM = '1' ]
| + | |
− | try
| + | |
− | WAITMSG( 'Выполняется перенос документов' + CHR( 10 ) + kinddoc + ' ' + REALNAME( 'R169', kinddoc ), msg )
| + | |
− | at2 := OPENCHILDDOC( 'AT2', '1', ~ParentForm := "", ~IsCondition := false, ~Month := MONTH( data ), ~Year := YEAR( data ) )
| + | |
− | ( at2 )->( SETFILTER( del ) )
| + | |
− | ( at2 )->( REFRESH() )
| + | |
− | aa := ( at2 )->( 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( 'AT2', '1', " ",, fld, aa,,,, YEAR( data ), MONTH( data ),,, false,, del, { false, false, false, false, false } )
| + | |
− | endif
| + | |
− | finally
| + | |
− | HIDEMSG( msg )
| + | |
− | CLOSEFORM( ( at2 )->( GETFORM( GETAREA() ) ) )
| + | |
− | end
| + | |
− | // http://wiki.sftserv.ru/index.php/AT2
| + | |
| = Смотрите также = | | = Смотрите также = |
| [[Полезные функции]] | | [[Полезные функции]] |
| | | |
− | [[Функции Delphi]] | + | [[AT2_TO_AT2_2]] |