Галактика в вопросах и ответах

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

Interface BarCodeReport;

  create view  as select
    * 
   from 
     KatSopr, 
     SpSopr,
     KatMc
   where 
   (( 
      101 == KatSopr.VidSopr and
      KatSopr.nRrec == SpSopr.cSopr  and
      SpSopr.cMcUsl == KatMc.nrec
   ));

  datastream BarCodeStream
  (
    table KatSopr
    (
       KatSopr.Nrec;
       KatSopr.Nsopr;
       ...
    )
    table SpSopr
    (
      SpSopr.Nrec
      SpSopr.Price;
      SpSopr.Kol;
      [Summa] SpSopr.Price * SpSopr.Kol;
      [McName] KatMc.name;
      [McBarKod] KatMc.BarKod
    );
  )
  end;

  browse brKatSopr;
  table KatSopr;
  fields
     KatSopr.dSopr;
     KatSopr.NoDok;
   end;

  handleEvent
    cmInit:
       RunFReport(AktStream, '', false);
  end;

end;

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

interface _kor_shtrihkod;

create view shtrihkodreport
var
BasedocNRec:comp;
as
select * from 
  basedoc
, stepdoc
, spsopr
, katparty
, katmc
where
((
33776997205294963==basedoc.nrec
and basedoc.nrec==stepdoc.cbasedoc
and stepdoc.nrec==katsopr.cstepdoc
and katsopr.nrec==spsopr.csopr

and spsopr.cparty==katparty.nrec
and spsopr.cmcusl==katmc.nrec
))
;
parameters BasedocNRec;

datastream shtrihkodreport
  (
    table KatSopr
    (
       KatSopr.Nrec;
       KatSopr.Nsopr;
       
    );

    table SpSopr
    (
      SpSopr.Nrec;
      SpSopr.Kol;
      [McName] KatMc.name;
      [McBarKod] KatMc.BarKod2;
    );
)       
end;
handleevent
cmInit:
RunFReport(shtrihkodreport, '', true);  

end;

end.