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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (→‎Смотрите также)
 
(не показаны 4 промежуточные версии этого же участника)
Строка 2: Строка 2:
 
  Копирование документа AT2 в НУ
 
  Копирование документа AT2 в НУ
 
[[AT2_TO_AT2]]( data )
 
[[AT2_TO_AT2]]( data )
−
= Текст =
+
 
−
parameters data
+
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]]

Текущая версия на 11:42, 30 июля 2020

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

Копирование документа AT2 в НУ

AT2_TO_AT2( data )

data - дата для определения месяца

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

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

AT2_TO_AT2_2

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