Текущая версия на 14:15, 31 июля 2020

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

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

R195_PRICE( <r197kod>, <n_date> )

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

@@ Строка 2: / Строка 2: @@
   Цена на блюда по [[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]]