RETPRICE
Материал из Фабиус wiki
RETPRICE - это программа из справочника R266
Вернуть цену на товар
RETPRICE( refl, kod, data, r20_kod )
refl - справочник
kod - код
data - дата
r20_kod - код магазина
Текст
parameters refl, kod, data, r20_kod
if len( refl ) = 3
refl := refl + ' '
endif
local aa
// r08
if refl = 'R08 '
aa := R473_PRICE( kod, data,,, r20_kod )
if !Empty( aa )
result := aa[6]
endif
endif
// r11
if refl = 'R11 '
result := PRODPRICE2( kod, data, r20_kod )
endif
