Как получить цену последнего прихода МЦ

homak · Сообщение **homak** » 10 фев 2006, 10:16

Есть задачка ... получить цену последнего прихода МЦ
Надо именно из приходного ордера
"Накидал" интерфейс ... но вот незадача ... попадает туда
не только спецификация приходных ордеров ... но спецификации
актов на пересортицу ... Если кто знает, скажите какое ограничение нужно дополнительно наложить ...

Код: Выделить всё

nterface getLastVhodPriceORDER 'Получение Цены Последнего Прихода из ОРДЕРА ', AlwaysReturn;
create view 
var 
    crec       : comp  ;
    DatePrix   : date  ;
    PricePrix  : Double;
    NameEdPrix : String;
from
SpOrder
where
((
Crec           == SpOrder.CMC and
0              == SpOrder.SP  and
0              == SpOrder.vidorder(noindex) and
1              == sporder.tipord(noindex)
));
Parameters cRec,DatePrix,PricePrix,NameEdPrix;
HandleEvent
cmInit:
{
  if GetLast SpOrder

  = tsOK
  {
  DatePrix  :=SpOrder.DORD
  PricePrix :=SpOrder.SRPRICE
  NameEdPrix:=''
  }
    else
         {
             DatePrix  :=date(0,0,0);
             PricePrix :=0;
             NameEdPrix:='==='
         }
  Abort;
  Exit;
}
end;
end.

Алексей

Вывалиться в шапку ордера, из него в katsopr и по полю katsopr.vidsopr определять тип накладной.