CREATE FILT FROM ARR — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст программы)
Строка 17: Строка 17:
 
  local i, filt
 
  local i, filt
 
   
 
   
  if [[IsEmpty]]( _arr ) or Empty( _field )
+
  if [[IsEmpty]]( _arr ) or [[Empty]]( _field )
 
   result := ''
 
   result := ''
 
   return
 
   return

Версия 13:04, 17 октября 2016

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

Создание фильтра для последующей передачи, например, в ChoiceRefr

CREATE_FILT_FROM_ARR( _field, _arr )

_field - имя поля, например, 'KOD'

_arr - массив значений, например, { 1, 2 }

результат KOD = 1 or KOD = 2

Текст программы

parameters _field, _arr

local i, filt

if IsEmpty( _arr ) or Empty( _field )
  result := 
  return
endif

filt := ""

for i := 1 to len( _arr )
  if ValType( _arr[i] ) = 'C'
    filt := filt + iif( Empty( filt ), [], [ or ] ) + _field + [ = '] + _arr[ i ] + [' ]
  else
    filt := filt + iif( Empty( filt ), , ' or ' ) + _field + ' = ' + _arr[ i ]
  endif
next

result := filt

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

Функции Delphi

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