Fórum Grafico DBChart-SOmar Dia/Mês #297406
28/09/2005
0
:?: Olá a todos.
Estou desenvolvendo um programa para mostrar o faturamento
diário/mensal da empresa. Estou usando DBChart e minha tabela é Paradox.
A idéia é pedir ao operador a data inicial e final desejada e se o grafico será diário ou mensal.
Os campos da tabela são:
VND_DATA -> data da venda - CAMPO DATA
VND_LIQUID -> Total liquido da venda - CAMPO MONETÁRIO
Na aba Séries defini: DataSet,
DataSource -> DM.QryVendas
Labels -> VND_DATA
X -> VND_DATA [ DATE TIME MARCADO ]
BAR -> VND_LIQUID
Abaixo a instrução SQL colocada no botão executar:
With Dm.QyrVendas do
begin
Sql.Clear;
Active := False;
Close;
// Sql.Add(´SELECT A.Vnd_Data, Sum(A.Vnd_Liquid) as SomaValor FROM Vendas A´); => Campo calculado que não deu certo
Sql.Add(´SELECT A.Vnd_Data, A.Vnd_Liquid FROM Vendas A´);
SQL.Add(´WHERE A.Vnd_Data >= :DataI´);
SQL.Add(´ And A.Vnd_Data <= :DataF´);
ParamByName(´DataI´).AsDate := StrToDate(EdtDtInicial.Text);
ParamByName(´DataF´).AsDate := StrToDate(EdtDtFinal.Text);
Active := True;
Open;
end;
DbChart1.RefreshData;
Nos testes que realizei o gráfico (Barras) é apresentado mas
ele esta considerando cada venda do periodo como um item e
preciso que ele some as vendas do dia.
Como posso fazer isso??
Obrigado
Neto
Estou desenvolvendo um programa para mostrar o faturamento
diário/mensal da empresa. Estou usando DBChart e minha tabela é Paradox.
A idéia é pedir ao operador a data inicial e final desejada e se o grafico será diário ou mensal.
Os campos da tabela são:
VND_DATA -> data da venda - CAMPO DATA
VND_LIQUID -> Total liquido da venda - CAMPO MONETÁRIO
Na aba Séries defini: DataSet,
DataSource -> DM.QryVendas
Labels -> VND_DATA
X -> VND_DATA [ DATE TIME MARCADO ]
BAR -> VND_LIQUID
Abaixo a instrução SQL colocada no botão executar:
With Dm.QyrVendas do
begin
Sql.Clear;
Active := False;
Close;
// Sql.Add(´SELECT A.Vnd_Data, Sum(A.Vnd_Liquid) as SomaValor FROM Vendas A´); => Campo calculado que não deu certo
Sql.Add(´SELECT A.Vnd_Data, A.Vnd_Liquid FROM Vendas A´);
SQL.Add(´WHERE A.Vnd_Data >= :DataI´);
SQL.Add(´ And A.Vnd_Data <= :DataF´);
ParamByName(´DataI´).AsDate := StrToDate(EdtDtInicial.Text);
ParamByName(´DataF´).AsDate := StrToDate(EdtDtFinal.Text);
Active := True;
Open;
end;
DbChart1.RefreshData;
Nos testes que realizei o gráfico (Barras) é apresentado mas
ele esta considerando cada venda do periodo como um item e
preciso que ele some as vendas do dia.
Como posso fazer isso??
Obrigado
Neto
Neto
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)