ztela=janela(10,10,17,45,"Valores")
zrecn=recno()
dbGoTop()
zvalorv = 0
zvalorc = 0
zquant = 0
while ! eof()
   zpcod = cod
   se_prod->(DbSeek(zpcod))
   zvalorv = zvalorv + prtotal
   zvalorc = zvalorc + quant*se_prod->pvluven3
   zquant = zquant + quant
   dbSkip(1)
enddo
DevPos( 12, 12 ) ; DevOut( "Unids de Venda: " + transform(zquant ,"@E 999,999.99") )
DevPos( 13, 12 ) ; DevOut( "Valor de Venda: " + transform(zvalorv,"@E 999,999.99") )
DevPos( 14, 12 ) ; DevOut( "Valor de Custo: " + Transform(zvalorc,"@E 999,999.99") )
DevPos( 15, 12 ) ; DevOut( "Margem Final..: " + transform(zvalorv-zvalorc,"@E 999,999.99") )
mensagem("Tecle algo para continuar")
inkey(0)
dbGoto(zrecn)
zpcod=cod
se_prod->(DbSeek(zpcod))
fechajan(@ztela)
