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

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

//================================
DataStream FDocPrn01
(
  [CFH]      CommonFormHeader;
  [dStart]  dStart;
  [dEnd  ]  dEnd;
  table  tmp_sb
  ( [ORG   ] tmp_sb.ORG;
    [NODOC ] tmp_sb.Nodoc;
    [DDiary] tmp_sb.DDiary;
    [ITSU]   it_su;
    [ITSU_R] doubletostr(tmp_sb.su[1],'[|-]3666666666666');
    [ITSU_K] doubletostr(tmp_sb.su[1],'88');
    [ITSU_P] doubletostring(0,tmp_sb.su[1]);
    
  );
  table  tmp_sbsp
  ( [nom] w_npp;
    [NPP] tmp_sbsp.NPP;
    [SUO] tmp_sbsp.su3+tmp_sbsp.su4;
    [SUP] tmp_sbsp.su1+tmp_sbsp.su2;
    [DIF] (tmp_sbsp.su1+tmp_sbsp.su2)-(tmp_sbsp.su3+tmp_sbsp.su4);

  );
  table  tmp_commiss
  ( [DOLG] tmp_commiss.dolg;
    [FIO]  tmp_commiss.fio;
  );
 ) 
 HandleEvent table tmp_sb
 cmOnProcess:
 { w_npp:=-1
   it_su:=0;
 }
 end;
 HandleEvent table tmp_sbsp
 cmOnProcess:
 { w_npp:=w_npp+1
   it_su:=it_su+(tmp_sbsp.su1+tmp_sbsp.su2)-(tmp_sbsp.su3+tmp_sbsp.su4);
 }
 end;
end;//FormDocPrn