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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст программы)
Строка 12: Строка 12:
 
  Local  assign_defaultNDS:=defaultNDS!=nil
 
  Local  assign_defaultNDS:=defaultNDS!=nil
 
   
 
   
  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
  

Версия 11:24, 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

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

Функции Delphi

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