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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст программы)
Строка 8: Строка 8:
  
 
  //defaultNDS изначально nil  либо  переданное при вызове значение (0, 10, 18...)
 
  //defaultNDS изначально nil  либо  переданное при вызове значение (0, 10, 18...)
  Parameters  NeedKod, NeedRefl:='R11', defaultNDS
+
  Parameters  NeedKod, NeedRefl:='[[R11]]', defaultNDS
 
   
 
   
 
  Local  assign_defaultNDS:=defaultNDS!=nil
 
  Local  assign_defaultNDS:=defaultNDS!=nil

Версия 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

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