AT2 TO AT2 2 - История изменений

Hisava в 13:54, 9 декабря 2019

2019-12-09T13:54:39Z

Hisava: /* Текст */

2018-01-11T06:35:50Z

‎Текст

Hisava в 06:33, 11 января 2018

2018-01-11T06:33:27Z

Hisava в 06:32, 11 января 2018

2018-01-11T06:32:49Z

Hisava в 06:32, 11 января 2018

2018-01-11T06:32:42Z

Hisava в 06:31, 11 января 2018

2018-01-11T06:31:45Z

Hisava: /* Смотрите также */

2018-01-11T06:29:22Z

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

Hisava в 06:28, 11 января 2018

2018-01-11T06:28:28Z

Hisava: Новая страница: «= Смотрите также = Полезные функции Функции Delphi»

2018-01-11T06:27:30Z

Новая страница: «= Смотрите также = Полезные функции Функции Delphi»

Новая страница

= Смотрите также =
[[Полезные функции]]

[[Функции Delphi]]

@@ Строка 2: / Строка 2: @@
   Копирование документа AT2 уровень 2
 [[AT2_TO_AT2_2]]( data )
+ data - дата для определения месяца
 data - дата для определения месяца
-= Текст =
- parameters data
- if EMPTY( data )
-   data := DATE() - 10
- endif
- local path, kinddoc, sql2, aa, fld, msg, at2, del, i, sql
- fld := {}
- kinddoc := 'AT2'
- path := '\\FABIUS\FABIUS\OPDATA'
- del := [ KINDDOC = '] + kinddoc + [' 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 KINDDOC = '] + kinddoc + [' and LVLNUM = '2' and NUMDOC = ']
-   ( at2 )->( DBGOTOP() )
-   while !( at2 )->( EOF() )
-     WAITMSG( 'Документ номер ' + ( at2 )->NUMDOC + ' от ' + ( at2 )->DATDOC + Chr( 10 ) + kinddoc + ' ' + RealName( 'R169', kinddoc ), msg )
-     sql2 := sql + ( at2 )->NUMDOC + [' ]
-     aa := SqlToArr( sql2, fld, path )
-     if !IsEmpty( aa )
-       AddAll( kinddoc, '2', ( at2 )->RGNUM,, fld, aa,, ( at2 )->( GETFORM( GETAREA() ) ),,,,,, false,,, { false, false, false, false, false } )
-     endif
-     ( at2 )->( DBSKIP() )
-   end
- finally
-   HIDEMSG( msg )
-   CLOSEFORM( ( at2 )->( GETFORM( GETAREA() ) ) )
- end
-−
 = Смотрите также =
 [[Полезные функции]]
 [[AT2_TO_AT2]]

@@ Строка 16: / Строка 16: @@
   try
     WAITMSG( 'Выполняется перенос документов' + CHR( 10 ) + kinddoc + ' ' + REALNAME( 'R169', kinddoc ), msg )
-    at2 := OPENCHILDDOC( 'AT2', '1', ~ParentForm := "", ~IsCondition := false, ~Month := MONTH( data ), ~Year := YEAR( data ) )
+    at2 := [[OPENCHILDDOC]]( 'AT2', ''''1'''', ~ParentForm := "", ~IsCondition := false, ~Month := MONTH( data ), ~Year := YEAR( data ) )
     ( at2 )->( SETFILTER( del ) )
     ( at2 )->( REFRESH() )
@@ Строка 48: / Строка 48: @@
     CLOSEFORM( ( at2 )->( GETFORM( GETAREA() ) ) )
   end
 = Смотрите также =
 [[Полезные функции]]

@@ Строка 2: / Строка 2: @@
   Копирование документа AT2 уровень 2
 [[AT2_TO_AT2_2]]( data )
 data - дата для определения месяца
 = Смотрите также =

@@ Строка 1: / Строка 1: @@
 [[AT2_TO_AT2_2]] - это программа из справочника [[R266]]
   Копирование документа AT2 уровень 2
 data - дата для определения месяца
 = Смотрите также =

← Предыдущая		Версия 06:29, 11 января 2018
Строка 4:		Строка 4:

	[[Функции Delphi]]		[[Функции Delphi]]
		+
		+	[[AT2_TO_AT2]]