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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м
Строка 14: Строка 14:
 
  result:=[[SeekRef]](NeedRefl, NeedKod,'[[PRODNDS]]',1,0)
 
  result:=[[SeekRef]](NeedRefl, NeedKod,'[[PRODNDS]]',1,0)
 
  if  assign_defaultNDS .and. result=0;  result:=defaultNDS;  endif
 
  if  assign_defaultNDS .and. result=0;  result:=defaultNDS;  endif
 +
 +
= '''PRODNDS''' =
  
 
= Смотрите также =
 
= Смотрите также =

Версия 11:03, 21 марта 2017

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

PRODNDS

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

Функции Delphi

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