INDEX SEIP_N PDESC 
VARIAVEL LST_TP  = 58 
VARIAVEL TOTUNI  = 0 
VARIAVEL TOTVAL  = 0 
VARIAVEL XCAT    = SPACE(3) 
T10,35,15,60,Parametros 
T02,05,Categoria.:,5,xcat,XXX 
FILTRO ALLTRIM(PCATEGORIA) = ALLTRIM(XCAT) .OR. XCAT = SPACE(3) 
FILTRO PVLUVEN3 > 0 
*FILTRO PEATUAL > 0 
COMANDO DURANTE TOTUNI = TOTUNI+1 
COMANDO DURANTE TOTVAL = TOTVAL+(PEATUAL*pvluvenda) 
C [Empresa] 
C [Sistema] 
C Relacao Geral de Produtos                                         Pag [Pag 9999] 
C Bematech = FF  ( SUBSTITUICAO )  - 01  ( TRIBUTAVEL )  - II  ( ISENTO ) 
*C Corisco  = F01 ( SUBSTITUICAO )  - T01 ( TRIBUTAVEL )  - I01 ( ISENTO ) 
*C Elgin    = F00 ( SUBSTITUICAO )  - T00 ( TRIBUTAVEL )  - I00 ( ISENTO ) 
C --------------------------------------------------------------------------- 
C  Cod     Descricao                           Pr.Cons       Cat      Lista 
C --------------------------------------------------------------------------- 
D [pcod 99999]    [pdesc @s30]   [PVLUVENDA @e 999,999.99]       [pcategoria XXX]        [pnegpos] 
ULTPAG [repl("-",75)] 
ULTPAG TOTAL DE PRODUTOS:[TOTUNI @e99.999,999] 
ULTPAG [repl("-",75)] 
 