Tente isolar as partes.
Código: Selecionar todos
use pedido
go top
do whil !eof()
mx := ascan(Vmat1, codprod)
if mx == 0
aadd(vmat1, codprod)
aadd(Vmat2,qtde)
else
vmat2[mx] += qtde
endif
skip
enddo
Código: Selecionar todos
use pedido
go top
do whil !eof()
mx := ascan(Vmat1, codprod)
if mx == 0
aadd(vmat1, codprod)
aadd(Vmat2,qtde)
else
vmat2[mx] += qtde
endif
skip
enddo