CHOICEREFR FILTER — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «= Смотрите также = Полезные функции Функции Delphi»)
 
м
 
(не показано 8 промежуточных версий этого же участника)
Строка 1: Строка 1:
 +
[[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]]
 
[[Функции Delphi]]

Текущая версия на 10:42, 5 сентября 2018

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