CRIAR ARRAY DURANTE RELATORIO

HELDERMOTA 03/01/2014 18:27:20
#432633
Tenho um relatório de vendas por cliente, onde preciso no final do relatório listar o total de vendas por produto. Como criar o array e ir acrescentando a quantidade vendida e depois imprimir. Lembrando estou usando PRINTER pois meu relatório tem muitos cálculos em tempo de impressão.
HELDERMOTA 03/01/2014 18:31:36
#432634
Só para complementar não sei quantos produtos, então tem que ser dinâmico, e como saber quando o produto já esta no array e então só somar a quantidade e como incluir o novo produto no array. Valeu.
ALVAROVB2009 07/01/2014 09:39:07
#432723
HELDERMOTA bom dia

Não tem muito mistério o que vc quer fazer se eu entendi bem

Primeiro - organize o seu select pela ordem alfabética de produtos, assim dará para pegar todos os itens sem problema
Segundo - Tenha 4 variáveis - Descricao - Quantidade - Valor - TotalGeral
Terceiro - Fazer um Loop

Ficaria algo assim:

Descricao=[Ô][Ô]
valor=0
totalgeral=0
quantidade=0

While not rs.eof
If descricao = rs!descricaoproduto then
descricao = rs!descricaoproduto
quantidade = quantidade + rs!quantidadeproduto
valor = valor + rs!valorvendaproduto
totalgeral = totalgeral + rs!valorvendaproduto
else
printer.print descricao
printer.print quantidade
printer.print valor
quantidade=0
valor=0
end if
rs.movenext
wend

[ô]Esse linha imprime o último registro do select
printer.print descricao
printer.print quantidade
printer.print valor

[ô]Aqui vc imprime o total geral
printer.print totalgeral


Basta adaptar ao que vc quer agora
HELDERMOTA 15/01/2014 10:57:32
#433086
Alvaro, entendi sua lógica, mas o relatório não é por ordem de produto e sim por cliente. O que preciso é ir somando ao produto a quantidade e no final do relatório imprimir o resumo por exemplo:

GASOLINA C -> 200.000,00
ETANOL -> 150.000,00
DIESEL -> 80.00,00

Faça seu login para responder