ActiveDelphi

[sevensystemjundiai]

boa tarde a todos

estou com um problema que e o seguinte, tenho um relatorio de vendas que atraves do quick report tras agrupado por codigo do produto a quantidade vendida ate ai tudo funciona perfeitamente porem um cliente pediu que eu preciso informar o estoque atual de cada produto lista neste relatorio para que possa ser feito uma comparacao do produtos vendidos com a quantidade atual do produto.

minha rotina para o relatorio e assim
DS_VDPROD.CLOSE;
sql_VDPROD.CLOSE;
sql_VDPROD.CommandText := 'select cod_barras, descricao, SUM(qtde) AS qtde, val_unit, custo from vendas where data BETWEEN :data1 AND :data2 Group by cod_barras,descricao,val_unit,custo order by qtde desc';
SQL_VDPROD.ParamByName('data1').AsDate := DateTimePicker1.Date;
SQL_VDPROD.ParamByName('data2').AsDate := DateTimePicker2.Date;
Ds_VDPROD.OPEN;

dm_bd.Ds_EMPRESA.Close;
dm_bd.SQL_EMPRESA.Close;
dm_bd.SQL_EMPRESA.CommandText:='SELECT * FROM EMPRESA';
dm_bd.Ds_EMPRESA.OPEN;

Frm_RelVDProd2 := TFrm_RelVDProd2.create(Application);
Frm_RelVDProd2.RelVDProd2.Preview;
DS_VDPROD.Close;

porem como possa fazer para carregar a cada item ou produto a sua quantidade atual atraves da tabela de produto sendo que este relatorio e feito atraves da tabela vendas

alguem pode me ajudar

obrigado

[imex]

Boa tarde,

Qual banco de dados (e versão) você está utilizando?
Qual campo pode ser utilizando para fazer a ligação entre a tabela de vendas e a tabela de produtos?


_________________
Assinatura: https://www.imoveisemexposicao.com.br/imoveis-alugar-guarulhos!v_augusta-residencial-apartamento

[sevensystemjundiai]

[imex]

Experimente utilizar um Join na query mais ou menos dessa forma:

[sevensystemjundiai]

[imex]

Esse p.estoque seria o nome do campo onde é gravado o estoque na tabela de produtos. Se for o caso altere o nome do campo para ficar de acordo com a sua tabela. E verifique também se o nome da tabela de produtos está correto.
Caso ainda não tenha feito, acho melhor você testar primeiro a query utilizando a sua ferramenta de administração do banco de dados (ex: IBExpert ou outra semelhante), e se funcionar conforme o esperado você parte para a implementação na sua aplicação.
Para adicionar o campo no Fields Editor do DataSet você vai precisar colocar a query no DataSet através da janela Object Inspector. Depois você pode deixar novamente em branco já que a query está sendo configurada via código.

Espero que ajude

[sevensystemjundiai]

[quote="imex"]Esse p.estoque seria o nome do campo onde é gravado o estoque na tabela de produtos. Se for o caso altere o nome do campo para ficar de acordo com a sua tabela. E verifique também se o nome da tabela de produtos está correto.
Caso ainda não tenha feito, acho melhor você testar primeiro a query utilizando a sua ferramenta de administração do banco de dados (ex: IBExpert ou outra semelhante), e se funcionar conforme o esperado você parte para a implementação na sua aplicação.
Para adicionar o campo no Fields Editor do DataSet você vai precisar colocar a query no DataSet através da janela Object Inspector. Depois você pode deixar novamente em branco já que a query está sendo configurada via código.

Espero que ajude[/quot

bom dia imex

consegui fazer a instrucao no ibexper deu certo, mas na aplicacao mesmo criando em tempo de execucao o campo do estoque no relatorio do quick report nao esta aparecendo o estoque atual

onde sera que o burro aqui esta errando

[imex]

Bom dia,

Você acrescentou o campo do estoque no Fields Editor?

[sevensystemjundiai]

[imex]

Como você adicionou o campo no ClientDataSet?
Está sendo impresso algum valor?

[sevensystemjundiai]

[imex]

Você abriu a janela Fields Editor do ClientDataSet e depois entrou na opção "Add Fields..." para adicionar o campo? Ou utilizou a opção "New Field..."?
Se adicionou com a "Add Fields..." o campo deveria apresentar o mesmo valor que a query retorna no IBExpert.
Está sendo impresso algum valor?

[sevensystemjundiai]

[imex]

Experimente fazer da seguinte forma:

- preencha a query que você testou no IBExpert na propriedade CommandText do TSQLDataSet
- abra a janela Fields Editor do ClientDataSet, apague o field criado através do "New Field..." e entre na opção "Add Field..." onde deverá aparecer automaticamente o campo qtde_atual para adiciona-lo
- verifique se a query que é configurada via código está igual a que você testou no IBExpert

Espero que ajude

[sevensystemjundiai]