procedure TFormTransPeri.frReportPartTransEndBand(Band: TfrBand);
begin
// if(Band.Name = 'DetailData1') Then begin
if(Band.Name = 'DetailFooter1') Then begin
intotals:=0;
outtotals:=0;
end;
end;
procedure TFormTransPeri.frReportPartTransGetValue(const ParName: String;
var ParValue: Variant);
begin
if( ParName='datestart') then begin
ParValue:= DEStart.Date;
end;
if( ParName='dateend') then begin
ParValue:= DEEnd.Date;
end;
if( ParName='incomes') then begin
if( (DM.SQLQTrans.FieldByName('Type').AsString = 'add') or (DM.SQLQTrans.FieldByName('Type').AsString = 'asin') ) then begin
ParValue:= DM.SQLQTrans.FieldByName('quantity').AsString ;
Intotals:=Intotals+DM.SQLQTrans.FieldByName('quantity').AsInteger;
end else begin
ParValue:='' ;
end;
end;
if( ParName='outgoing') then begin
if( (DM.SQLQTrans.FieldByName('Type').AsString = 'sub') or (DM.SQLQTrans.FieldByName('Type').AsString = 'asout') ) then begin
ParValue:= DM.SQLQTrans.FieldByName('quantity').AsString ;
Outtotals:=Outtotals+DM.SQLQTrans.FieldByName('quantity').AsInteger;
end else begin
ParValue:='' ;
end;
end;
if( ParName='intotals') then begin
ParValue:=intTostr(intotals) ;
// intotals:=0;
end;
if( ParName='outtotals') then begin
ParValue:=intTostr(outtotals) ;
// outtotals:=0;
end;
end;