Текущая версия на 14:56, 28 января 2020

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

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

CREATE_FILT_FROM_ARR( _field, _arr )

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

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

Результат

KOD = 1 or KOD = 2

Пример

create_filt_from_arr

@@ Строка 1: / Строка 1: @@
-CREATE_FILT_FROM_ARR - это программа из справочника [[R266]]
+[[CREATE_FILT_FROM_ARR]] - это программа из справочника [[R266]]
+ Создание фильтра для последующей передачи, например, в ChoiceRefr
+[[CREATE_FILT_FROM_ARR]]( _field, _arr )
-Создание фильтра для последующей передачи, например, в ChoiceRefr
+_field - имя поля, например, 'KOD'
-CREATE_FILT_FROM_ARR( _field, _arr )
-_field - имя поля, например, 'KOD'
 _arr   - массив значений, например, { 1, 2 }
-результат KOD = 1 or KOD = 2
+Результат
+ KOD = 1 or KOD = 2
-= Текст программы =
+= Пример =
+ create_filt_from_arr
+= Смотрите также =
+[[Полезные функции]]
- parameters _field, _arr
+[[Функции Delphi]]
- 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