PRODPRICE
Материал из Фабиус wiki
PRODPRICE - это программа из справочника R266
Возвращает массив цен продукции
// ProdPrice(prodkod, proddate [,r20kod] [,prodwght] [,kindmove]; [1..5]
// [,r01kod] [,corr_prc] [,numlotk] [,pricenum] [,expanal]; [6..10]
// [,prodrgnum] [,need_sdb] [,sum_dolg] [,prod_recno] [,onlyBasePrice]; [11..15]
// [,is_skid_add],[prodAmnt],[r330kod],[num_plist],[no_calc_nds] ) [16..20]
//---------- Возвращает массив цен для заданного кода продукции --------------
//-- { оптовая [1], опт-отпускная [2], розничная [3], плановая [4],; --
//-- %НДС [5], %НсПр [6], prodkod [7], r20kod [8],; --
//-- сумма скидки(+) / наценки(-) на 1 изделие (для отпускной цены)[9],; --
//-- процент скидки(+) / наценки(-) [10],; --
//-- доставка на 1 издел.без НДС [11], НДС на доставку 1 издел. [12],; --
//-- примеч.расч.скид. [13], --
//-- Код валюты (по R78) [14], --
//-- Цена в валюте [15], --
//-- Курс валюты [16], --
//-- [17] - price1 цена из соотв-го поля R14 без обработки --
//-- [18] - price2 цена из соотв-го поля R14 без обработки --
//-- [19] - признак расчета: от отпускной (.t.) или от оптовой (.f.) --
//-- [20] - № прайс листа --
//-- [21] - оптовая по базов.прайсу (без коррекции и скидок) --
//-- [22] - отпускная по базов.прайсу --
//-- [23] - оптовая без доставки по базов.прайсу --
//-- [24] - отпускн.без доставки по базов.прайсу --
//-- [25] - розничная по базов.прайсу --
//-- [26] - количество "по акции" (если акции заданы "по количеству сверх порога"
//-- и обычная цена изменена)
//-- [27] - спец цена (с НДС без округл.) на количество "по акции" }
//----------------------------------------------------------------------------
//--- Параметры: prodkod - код изделия (по R11), proddate - дата, ---
//--- r20kod - код торгов.предпр. (по R20), prodwght - вес продукц.,- ---
//--- kindmove - вид перевозки (по R27), r01kod - заказчик (по R01). ---
//--- corr_prc - процент корректировки цен. (-) -> уменьшение цены (скидка). ---
//--- numlotk - количество лотков ---
//--- pricenum - индекс результирующего массива, если требуется ---
//--- возвратить только один его элемент ---
//--- expanal - код экспедиции по R10 ---
//--- need_sdb=.t. - Сохранение и восстановл.положения текущей базы ---
//--- sum_dolg - Сумма задолженности (не обязательн.) - для расчета скидок ---
//--- onlyBasePrice - Если .t., то только базовый прайс, даже если есть номерной
//--- is_skid_add - Если .t., то проценты скидки суммируются (corr_prc и ---
//--- рассчитанный, только если рассчитанный - процент, а не сумма) --
//--- prodAmnt - колич.продукции - исполз-ся при расчете скидок по объемам ---
//--- r330kod - Код договора - для опред.№ прайс листа (самый высокий приоритет)
//--- num_plist - если задано (<>nil), то берем только по указанному пр.листу
//--- без поиска по магазину и ценовой группе.
//----------------------------------------------------------------------------------
Пример
if Type('PrArr')='U'
Public PrArr:={0,0,0,0}
endif
PrArr:=PRODPRICE(DAnal2,DOCS1->DatDoc,KAnal1) // оптовая [1], опт-отпускная [2], розничная [3], плановая [4]
result:=Amnt*PrArr[4]
