Fórum Problema com grafico #341587

contmes:=1; {1-Janeiro, 2-Fevereiro, 3-Março...}
ano:=FormatDateTime(´yyyy´, Now );

while contmes<14 do
begin
 case contmes of
 1:begin
 mes:=´Jan´;
 DataI:=´01/01/´+ano;
 DataF:=´31/01/´+ano;
 end;

 2:begin
 mes:=´Fev´;
 DataI:=´01/02/´+ano;
 DataF:=´28/02/´+ano;
 end;

 3:begin
 mes:=´Mar´;
 DataI:=´01/03/´+ano;
 DataF:=´31/03/´+ano;
 end;

 4:begin
 mes:=´Abr´;
 DataI:=´01/04/´+ano;
 DataF:=´30/04/´+ano;
 end;

 5:begin
 mes:=´Mai´;
 DataI:=´01/05/´+ano;
 DataF:=´31/05/´+ano;
 end;

 6:begin
 mes:=´Jun´;
 DataI:=´01/06/´+ano;
 DataF:=´30/06/´+ano;
 end;

 7:begin
 mes:=´Jul´;
 DataI:=´01/07/´+ano;
 DataF:=´31/07/´+ano;
 end;

 8:begin
 mes:=´Ago´;
 DataI:=´01/08/´+ano;
 DataF:=´31/08/´+ano;
 end;

 9:begin
 mes:=´Set´;
 DataI:=´01/09/´+ano;
 DataF:=´30/09/´+ano;
 end;

 10:begin
 mes:=´Out´;
 DataI:=´01/10/´+ano;
 DataF:=´31/10/´+ano;
 end;

 11:begin
 mes:=´Nov´;
 DataI:=´01/11/´+ano;
 DataF:=´30/11/´+ano;
 end;

 12:begin
 mes:=´Dez´;
 DataI:=´01/12/´+ano;
 DataF:=´31/12/´+ano;
 end;

 13:begin
 mes:=´Total´;
 DataI:=´01/01/´+ano;
 DataF:=´31/12/´+ano;
 end;

 End; //Case

Tabelas.QHist.Close;
Tabelas.QHist.Sql.Clear;
Tabelas.QHist.Sql.Add(´Select SUM (contador) as Servico From Servicos´);
//Tabelas.QHist.SQL.Add(´Where Entrada >=:DataI and Entrada <=:DataF´);
Tabelas.QHist.SQL.Add(´Where Entrada between DataI and DataF´);

Tabelas.QHist.Parameters.ParamByName(´DataI´).Value:=DataI;
Tabelas.QHist.Parameters.ParamByName(´DataF´).Value:=DataF;

Tabelas.QHist.Open;

FPrincipal.CServicos.Series[0].AddY(Tabelas.QHist.FieldByName(´Servico´).AsInteger, mes);
contmes:=contmes+1;
end; //While
end;