RETPRICE
Материал из Фабиус wiki
Версия от 09:51, 23 мая 2017; Hisava (обсуждение | вклад)
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