Текущая версия на 12:14, 24 декабря 2018

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]

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

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

Функции Delphi