CRIAR ARRAY DURANTE RELATORIO
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.
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.
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
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
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
GASOLINA C -> 200.000,00
ETANOL -> 150.000,00
DIESEL -> 80.00,00
Faça seu login para responder