PRODNDS — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «PRODNDS - это функция из справочника R266 = Смотрите также = Функции Delphi Полезные функц…») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[PRODNDS]] - это функция из справочника [[R266]] | [[PRODNDS]] - это функция из справочника [[R266]] | ||
| + | |||
| + | % НДС по R11 | ||
| + | |||
| + | PRODNDS(NeedKod, [NeedRefl:='R11'] [, defaultNDS:=NDS_STND]) | ||
| + | |||
| + | = Текст программы = | ||
| + | |||
| + | //defaultNDS изначально nil либо переданное при вызове значение (0, 10, 18...) | ||
| + | Parameters NeedKod, NeedRefl:='R11', defaultNDS | ||
| + | |||
| + | Local assign_defaultNDS:=defaultNDS!=nil | ||
| + | |||
| + | result:=SeekRef(NeedRefl, NeedKod,'PRODNDS',1,0) | ||
| + | if assign_defaultNDS .and. result=0; result:=defaultNDS; endif | ||
= Смотрите также = | = Смотрите также = | ||
Версия 11:14, 23 декабря 2016
PRODNDS - это функция из справочника R266
% НДС по R11
PRODNDS(NeedKod, [NeedRefl:='R11'] [, defaultNDS:=NDS_STND])
Текст программы
//defaultNDS изначально nil либо переданное при вызове значение (0, 10, 18...) Parameters NeedKod, NeedRefl:='R11', defaultNDS Local assign_defaultNDS:=defaultNDS!=nil result:=SeekRef(NeedRefl, NeedKod,'PRODNDS',1,0) if assign_defaultNDS .and. result=0; result:=defaultNDS; endif
