R195 PRICE

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

Цена на блюда по R195

R195_PRICE( <r197kod>, <n_date> )

Текст

// r197kod - код блюда,  n_date - Дата, на которую определяем цену
// Возвращает { <Учетная цена>, <Розничная цена> }

parameters  r197kod, n_date

local  r195, aa, ii

result:={0,0}

if Empty(r197kod) or Empty(n_date)
  return
end


if Empty(r195:=GetArea('R195'))
  r195:=OpenKlsf('R195')
end

(R195)->(OrdSetFocus('R195_1'))  // STR(KOD,5,0)+DTOS(VAR_DATE)

if (R195)->( !Dbseek(STR(r197kod,5,0)+DTOS(n_date),.t.) and;
             (KOD<>r197kod or VAR_DATE > n_Date) )
  (R195)->DBSKIP(-1)
endif
if (R195)->( KOD=r197kod and VAR_DATE <= n_Date and !BOF() )
  result:={ (R195)->price, (R195)->roznPrice }
endif

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

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

Функции Delphi