R195 PRICE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 2: | Строка 2: | ||
Цена на блюда по [[R195]] | Цена на блюда по [[R195]] | ||
[[R195_PRICE]]( <r197kod>, <n_date> ) | [[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]] | [[Функции Delphi]] | ||
Версия 10:00, 12 июля 2017
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
