Выделить записи в таблице по некоторому сложному условию — различия между версиями

Версия 10:50, 11 июня 2015

local aa, sql, flt

sql := [ Select RGNUM From DOCS] + Ret_f_ext() + [ Where KINDDOC = 'MTR' ]

aa := SelectSqlToArr( sql, { 'RGNUM' } )

if !IsEmpty( aa )

 aa := PrepareArr( aa )

 flt := Create_Filt_From_Arr( 'RGNUM', aa )

 SetFilter( flt )

 SetSelRows( , true )

endif

@@ Строка 1: / Строка 1: @@
-local aa, sql
+local aa, sql, flt
 sql := [ Select RGNUM From DOCS] + Ret_f_ext() + [ Where KINDDOC = 'MTR' ]
-aa := SelectSqlToArr( sql, { 'RGNUM' },,, true )
+aa := SelectSqlToArr( sql, { 'RGNUM' } )
 if !IsEmpty( aa )
@@ Строка 9: / Строка 9: @@
    aa := PrepareArr( aa )
-   SetSelRows( , true,,,, aa )
+  flt := Create_Filt_From_Arr( 'RGNUM', aa )
+  SetFilter( flt )
+   SetSelRows( , true )
 endif