PROD PRICE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «= Смотрите также = Полезные функции Функции Delphi») |
Hisava (обсуждение | вклад) м |
||
| (не показаны 2 промежуточные версии этого же участника) | |||
| Строка 1: | Строка 1: | ||
| + | [[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]] | [[Функции Delphi]] | ||
Текущая версия на 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)
