INDEX SEIP_N PDESC
VARIAVEL LST_TP  = 58
VARIAVEL TOTUNI  = 0                            
VARIAVEL PRFAB =   0
VARIAVEL TOT =     0
VARIAVEL TOTVAL  = 0                            
VARIAVEL XCAT    = SPACE(2)
T10,35,15,60,Parametros
T02,05,Grupo.:,5,xcat,XX
FILTRO ALLTRIM(PGPRECO) = ALLTRIM(XCAT) .OR. XCAT = SPACE(2)
*fILTRO PEATUAL > 0
COMANDO DURANTE TOTUNI = TOTUNI+1
COMANDO DURANTE PRFAB = PVLUVENDA - ( ROUND(PVLUVENDA * ( PDESCVAR /100),2) )
COMANDO DURANTE TOTVAL = PEATUAL*PRFAB
* COMANDO DURANTE PRTOT  = PEATX * PRFAB
COMANDO DURANTE TOT = TOT + TOTVAL
C [Empresa]                                      Data [Date()]
C [Sistema]                                           
C Relacao Geral de Produtos                                         Pag [Pag 9999]
C ---------------------------------------------------------------------------
C   Cod  Descricao                               
C ---------------------------------------------------------------------------
* 99999 xxxxxyyyyyxxxxxyyyyyxxxx      9999    9,999.99    99,999.99     XX
D [pcod99999]  [pdesc @S30]         
ULTPAG [repl("-",75)]
ULTPAG VALOR TOTAL DE PRODUTOS:[TOTUNI @e999.999,999]               
ULTPAG [repl("-",75)]
