CHOICEREFR FILTER

Материал из Фабиус wiki
Перейти к: навигация, поиск

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

Функция предназначена для анализа системного параметра R10_GROUP и подготовке фильтра для ChoiceRefr

CHOICEREFR_FILTER( grp, grp2 )

grp = 1 Склад

grp = 2 Производство

grp = 3 Экспедиция

[grp2] - передается, в случае, если необходимо выбрать одновременно две группы

( например, производства и экспедиции )

Текст

parameters grp,grp2

if Empty( grp )
  result := 
  return
end

if R10_GROUP
  // для группировки В R10 используется поле GROUP 
  result := [ GROUP = ]+grp
else  
  // для группировки В R10 используется поле CODEGROUP
  result := [ Left( CODEGROUP,2 ) = "0]+grp+["]
endif

if !Empty( grp2 )
  if R10_GROUP
    result := [ GROUP = ]+grp+[ or GROUP = ]+grp2
  else
    result := [ Left( CODEGROUP,2 ) = "0]+grp+[" or Left(CODEGROUP,2) = "0]+grp2+["]
  endif
endif

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

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

Функции Delphi