INDEX SEIP_N PDESC 
VARIAVEL TOTUNI = 0 
VARIAVEL TOTVAL = 0 
VARIAVEL XDIAS = 0 
VARIAVEL DIAS = 0 
VARIRAVEL LST_TP = 58 
T10,10,14,60,Parametros 
T2,2,Dias sem Vender:,4,xdias,9999 
*-FILTRO  IIF(pdtultvnd <> CTOD("  /  /    "), S_DATUAL - pdtultvnd  >= XDIAS, .F. ) .AND. PEATUAL > 0 
FILTRO  IIF(pdatavend  <> CTOD("  /  /    "), S_DATUAL - pdatavend   >= XDIAS, .F. ) .AND. PEATUAL > 0 
COMANDO DURANTE DIAS = S_DATUAL - pdatavend 
COMANDO DURANTE TOTUNI = TOTUNI+PEATUAL 
COMANDO DURANTE TOTVAL = TOTVAL+PEATUAL*PVLUVENDA 
C [Empresa]                                     Data [Date()] 
C [Sistema]                                           Hora [Time()] 
C Relacao Geral de Produtos sem vendas A [xdias 9999] dias               Pag [Pag 9999] 
C [REPL("-",90)] 
C Cod   Descricao                 Estoque  Pr. Unit     Pr. Total  Dias   Dt.UltV Dt.UltC 
C [REPL("-",90)] 
* 99999 xxxxxyyyyyxxxxxyyyyyxxxx   9999     9,999.99    99,999.99 
D [pcod 99999] [pdesc @s24]    [peatual 9999] [pvluvenda @e9,999.99] [pvluvenda*peatual @e99,999.99] [dias 999] dd [pdatavend] [pdatacomp] 
ULTPAG [repl("-",80)] 
ULTPAG TOTAL DE PRODUTOS:          [TOTUNI @e999,999]            [TOTVAL @E99,999.99] 
ULTPAG [repl("-",80)] 
 
 