COMO FAÇO ESTA EXTRUTURA

[JOSE ROBERTO]

Ola AMigos!

Preciso de sua ajuda!

Tenho Um Banco de dados com os seguinte campos ( Unidade - Setor - Produto e Valor)
onde tenho varios setores e varios produtos bem como varias unidade

Não consigo agrupar correntamente
para imprimir estou fazendo assim

Use Vendas
Index On Unidade+Setor+Produto TO venda1

go Top
l=4
set device to printer
set printer on
set console off

do While !eof()
l++
wUnidade=Unidade
@l,10 say wUnidade
do while Unidade=wUnidade // Agrupo
l++
wSetor=Setor
@l,10 say wSetor
do while wsetor=setor // agrupo
l++
wProd=Produto
valor=0
@l,10 say wProd
do while produto=wprod
wValor=Valor+wvalor
skip
enddo
enddo
enddo
set device to screen
eject
fim da funcao


o problema e que quanto o existe um unico registro para um determinado produto ele pula o registro

digamos que tenha 10 unidade e um registro para cada unidade mas os produtos sao diferentes ele joga todos os produtos na 1ª Unidade classificada.

o q fazer

desde já sou grato pela sua ajuda

att

José Roberto

[hauch]

Use Vendas
Index On Unidade+Setor+Produto TO venda1

go Top
l=4
set device to printer
set printer on
set console off

do While !eof()
l++
wUnidade=Unidade
@l,10 say wUnidade
do while Unidade=wUnidade // Agrupo
l++
wSetor=Setor
@l,10 say wSetor
do while Unidade=Wunidade .and. wsetor=setor // agrupo
l++
wProd=Produto
valor=0
@l,10 say wProd
do while Unidade=Wunidade .and. wsetor=setor .and. produto=wprod
wValor=Valor+wvalor
skip
enddo
enddo
enddo
set device to screen
eject

Abraços