INDEX SEIP_N PDESC
VARIAVEL LST_TP  = 58
VARIAVEL TOTUNI  = 0                            
VARIAVEL TOTVAL  = 0                            
VARIAVEL xdias   = 0
VARIAVEL XGRUPO  = SPACE(4)
VARIAVEL XDIVISAO= SPACE(4)
T10,35,16,60,Parametros
T02,05,Dias sem vendas..:,5,xdias,9999
T03,05,Grupos a incluir.:,4,xgrupo,xxxx
T04,05,Divisao a incluir:,5,xdivisao,9999

FILTRO ( S_datual - PDTULTVND ) >= xdias .and. ( pdivisao = xdivisao .or. xdivisao = space(4) ) .and. ( pgpreco $ xgrupo .or. xgrupo = space(4) ) .AND. PEATUAL > 0
COMANDO DURANTE TOTUNI = TOTUNI+1
COMANDO DURANTE TOTVAL = TOTVAL+(PEATUAL*pvluvenda)
C [Empresa]                                              Data [Date()]
C [Sistema]                                           
C Relacao Geral de Produtos  Dias: [xdias 999]  Grupo: [xgrupo xxxx]  Divisao: [xdivisao 9999]   Pag [Pag 9999]
C ---------------------------------------------------------------------------
C  Cod     Descricao                     Pr.Cons  Estoque  GR  DIVISAO
C ---------------------------------------------------------------------------
* 99999 xxxxxyyyyyxxxxxyyyyyxxxx   9999     9,999.99    99,999.99
D [pcod 99999]     [pdesc @s30]   [PVLUVENDA @e 999,999.99]  [peatual @E 999,999]  [PGPRECO XX]  [PDIVISAO  9999]
ULTPAG [repl("-",75)]
ULTPAG TOTAL DE PRODUTOS:                    [TOTUNI @e99.999,999]               [TOTVAL @E 999,999.99]
ULTPAG [repl("-",75)]
