* LIGACAO=se_prod->( DbSeek(sp_movf->pcod) )
INDEX SEIP_N PDESC
VARIAVEL LST_TP = 60
VARIAVEL TOTUNI =0
VARIAVEL MARGEM = 0
VARIAVEL est1 = 0
FILTRO PGPRECO ="M "
COMANDO DURANTE TOTUNI = TOTUNI+1
COMANDO DURANTE MARGEM = (PVLUVENDA-PVLUVEN3)/PVLUVENDA*100
*COMANDO DURANTE EST1 = PEATUAL - PEATX
C [Empresa]                                             
C [Sistema]                                           Data [Date()]
C Relacao Geral de Produtos                                         Pag [Pag 9999]
C ---------------------------------------------------------------------------
C Cod  Descricao                         Pr Vnd  Pr Fab   Margem   GP
C ---------------------------------------------------------------------------
* 99999 xxxxxyyyyyxxxxxyyyyyxxxx   9999     9,999.99    99,999.99
D [pcod 9999] [pdesc @s30]   [PVLUVENDA 999.990]  [PVLUVEN3 999.99]   [MARGEM 999.99]C  [PGPRECO XX]
ULTPAG [repl("-",70)]
ULTPAG TOTAL DE PRODUTOS:          [TOTUNI @e999,999]            
ULTPAG [repl("-",70)]
