Текущая версия на 11:59, 4 апреля 2018

PROD_PRICE - это программа из справочника R266

Возвращает массив цен продукции

Текст

// Prod_Price(prodkod, proddate [,r20kod] [,prodwght] [,kindmove];   
//           [,r01kod] [,corr_prc] [,numlotk] [,pricenum];  
//           [,expnum], [prodrgnum])
//  Функция нужна для совместимости с DOS - она используется в блоках кода R11, R20
//---------- Возвращает массив цен для заданного кода продукции --------------
//--  { оптовая [1], опт-отпускная [2], розничная [3], плановая [4],;       --
//--    %НДС [5], %НсПр [6], prodkod [7], r20kod [8],;                      --
//--    сумма скидки(+) / наценки(-) на 1 изделие (для отпускной цены)[9],; --
//--    процент скидки(+) / наценки(-) [10],;                               --
//--    доставка на 1 издел.без НДС [11], НДС на доставку 1 издел.[12] }    --
//----------------------------------------------------------------------------
//--- Параметры:  prodkod - код изделия (по R11),  proddate - дата,              ---
//---    r20kod   - код торгов.предпр. (по R20), prodwght - вес продукц.,-       ---
//---    kindmove - вид перевозки (по R27), r01kod - заказчик (по R01).          ---
//---    corr_prc - процент корректировки цен. (-) -> уменьшение цены (скидка).  ---
//---    numlotk  - количество лотков                                            ---
//---    pricenum - индекс результирующего массива, если требуется               ---
//---               возвратить только один его элемент                           ---
//---    expnum   - код экспедиции по R10                                        ---
//----------------------------------------------------------------------------------
parameters  prodkod, proddate, r20kod:=0, prodwght:=0, kindmove:=0,;
            r01kod:=0, corr_prc, numlotk:=0, pricenum, expnum:=0,;
            prodrgnum:=

result := PRODPRICE(prodkod, proddate, r20kod, prodwght, kindmove,;
                    r01kod, corr_prc, numlotk, pricenum, expnum, prodrgnum)

Пример

 result:=round(round( PROD_PRICE( DANAL2,DATDOC,,,,,,,4 ), 2) * AMNT, 2)

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

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

Функции Delphi