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

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

.LinkForm 'AktSpis_FR' Prototype is 'MANUFNAKL'
.NameInList 'Акт на списание из производства (FastReport)'
.{
.begin
  RunInterface(AktSpisFRReport, KATSOPRNREC);
  MANUFNAKL.fExit;
end.
.{
.if EXISTNAMELONG
.else
.end
.{
.}
.}
.}
.endform

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

TABLE STRUCT LOCAL KOMISSIA "Комиссия"(
  DOLZ   : STRING
, NAME   : STRING
);

Interface AktSpisFRReport;

create view mainView
var
  nrecsopr : string;
  com : Commission;
  kolkom : word;
as select * from KATSOPR, SPSOPR, KATMC, KOMISSIA, KATED, KATMOL
where ((
    comp(nrecsopr)   == KATSOPR.NREC
And KATSOPR.CMOLFROM == KATMOL.NREC
And KATSOPR.NREC     == SPSOPR.CSOPR
And SPSOPR.CMCUSL    == KATMC.NREC
And KATMC.CED        == KATED.NAME
));

parameters
  nrecsopr;

datastream MainStream
  (
    [NameOrg]      sGetTune('MyOrg');
    [NUMSOPR]      KATSOPR.NSOPR;
    [DATSOPR]      KATSOPR.DSOPR;
    [FROM_FIO_MOL] KATMOL.NAME;

    table SPSOPR
    (
      [SOPRNREC] SPSOPR.NREC;
      [NAME_TOVAR] KATMC.NAME;
      [NOMENKL]  KATMC.BARKOD;
      [ED_IZM]  KATED.NAME;
      [PRICE]  SPSOPR.PRICE;
      [KOL_FACT]  SPSOPR.KOL;
      [SUMMA] SPSOPR.PRICE * SPSOPR.KOL;
    );

    table KOMISSIA
    (
      [DOLZKOM] KOMISSIA.DOLZ;
      [FIOKOM]  KOMISSIA.NAME;
    );
  )

end;

  handleEvent
    cmInit:
    {
      delete all KOMISSIA;
      LoadVipInterface(com);
      com.InitCommission(501);
      com.ClearSelection;
      com.RunWindowSelection(1);
      if (com.GetSelection <> comp(0))
      {
        if (com.GetCommissionChairMan)
        {
          insert into KOMISSIA set
            NAME := com.GetComponentFIO(0),
            DOLZ := com.GetComponentPost(0);
        }

        kolkom := com.GetComponentsCount;
        if (kolkom >= 1)
        {
          insert into KOMISSIA set
            NAME := com.GetComponentFIO(1),
            DOLZ := com.GetComponentPost(1);
        }
        if (kolkom >= 2)
        {
          insert into KOMISSIA set
            NAME := com.GetComponentFIO(2),
            DOLZ := com.GetComponentPost(2);

        }
        if (kolkom >= 3)
        {
          insert into KOMISSIA set
            NAME := com.GetComponentFIO(3),
            DOLZ := com.GetComponentPost(3);
        }
        if (kolkom >= 4)
        {
          insert into KOMISSIA set
            NAME := com.GetComponentFIO(5),
            DOLZ := com.GetComponentPost(5);
        }
      }

      //nrecsopr := '100000001B733h';
      if tsOk = GetFirst KATSOPR {};
      RunFReport(MainStream, '', false);
      Abort;
    }
  end;

end.

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

var total: string;
    
procedure GroupHeader4OnBeforePrint(Sender: TfrxComponent);
begin
  if Engine.FinalPass then                                                           
  total := Get(<t02041."ldv">);                                                      
end;

procedure GroupFooter4OnBeforePrint(Sender: TfrxComponent);
begin
    Set(<t02041."ldv">,SUM(<t02041."summa">,Mdata,1));
end;  

begin
end.

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

Interface AktReport;

  create view  as select * from KatSopr, SpSopr  where (( KatSopr.nRrec == SpSopr.cSopr));

  datastream AktStream
  (
    table KatSopr
    (
       KatSopr.Nrec;
       KatSopr.Nsopr;
       ...
    )
    table SpSopr
    (
      SpSopr.Nrec
      SpSopr.Price;
      SpSopr.Kol;
      [Summa] SpSopr.Price * SpSopr.Kol;
    );
  )
  end;

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

end;

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

 t1 запись один
 t1 запись два
 t3 запись три
     t2 запись один
     t2 запись два
     t2 запись три
     t2 запись четыре
     t2 запись пять