ISSKLAD — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «ISSKLAD - это функция из справочника R266 Проверяет, является ли подразделение складом IS…») |
Hisava (обсуждение | вклад) м |
||
| Строка 4: | Строка 4: | ||
anal - код подразделения из справочника [[R10]] | anal - код подразделения из справочника [[R10]] | ||
| + | = Текст = | ||
| + | parameters anal | ||
| + | |||
| + | result := false | ||
| + | |||
| + | if Empty( anal ) | ||
| + | return | ||
| + | endif | ||
| + | |||
| + | if Ascan( KodToArr('R10','01'), anal ) > 0 | ||
| + | result := true | ||
| + | else | ||
| + | result := false | ||
| + | endif | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 12:34, 26 декабря 2017
ISSKLAD - это функция из справочника R266
Проверяет, является ли подразделение складом
ISSKLAD( anal )
anal - код подразделения из справочника R10
Текст
parameters anal
result := false
if Empty( anal )
return
endif
if Ascan( KodToArr('R10','01'), anal ) > 0
result := true
else
result := false
endif
