CHOICEREFR FILTER — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| (не показаны 2 промежуточные версии этого же участника) | |||
| Строка 3: | Строка 3: | ||
[[CHOICEREFR_FILTER]]( grp, grp2 ) | [[CHOICEREFR_FILTER]]( grp, grp2 ) | ||
| − | + | grp = 1 Склад | |
| − | + | grp = 2 Производство | |
| − | + | grp = 3 Экспедиция | |
[grp2] - передается, в случае, если необходимо выбрать одновременно две группы | [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
