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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
Строка 1: Строка 1:
local aa, sql, flt
+
local aa, sql, flt
 
+
sql := [ Select RGNUM From DOCS] + Ret_f_ext() + [ Where KINDDOC = 'MTR' ]
sql := [ Select RGNUM From DOCS] + Ret_f_ext() + [ Where KINDDOC = 'MTR' ]
+
aa := SelectSqlToArr( sql, { 'RGNUM' } )
 
+
if !IsEmpty( aa )
aa := SelectSqlToArr( sql, { 'RGNUM' } )
+
  aa := PrepareArr( aa )
 
+
  flt := Create_Filt_From_Arr( 'RGNUM', aa )
if !IsEmpty( aa )
+
  SetFilter( flt )
 
+
  SetSelRows( , true )
  aa := PrepareArr( aa )
+
endif
 
+
  flt := Create_Filt_From_Arr( 'RGNUM', aa )
+
 
+
  SetFilter( flt )
+
 
+
  SetSelRows( , true )
+
 
+
endif
+

Версия 10:06, 22 апреля 2016

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