INDEX SEIP_N PDESC
VARIAVEL LST_TP  = 58
VARIAVEL TOTUNI  = 0                            
VARIAVEL PRFAB =   0
VARIAVEL TOT =     0
VARIAVEL TOTVAL  = 0                            
VARIAVEL XCAT    = SPACE(3)
T10,35,15,60,Parametros
T02,05,Categoria.:,5,xcat,XX
FILTRO ALLTRIM(PCATEGORIA) = ALLTRIM(XCAT) .OR. XCAT = SPACE(3)
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 FF ( SUBSTITUICAO ) - 01 ( TRIBUTAVEL ) - II ( ISENTO ) 
C ---------------------------------------------------------------------------
C  Cod  Descricao                  Estq     Pr.Unit     Pr.Total     CF
C ---------------------------------------------------------------------------
* 99999 xxxxxyyyyyxxxxxyyyyyxxxx      9999    9,999.99    99,999.99     XX
D [pcod 99999]  [pdesc @s30]   [PEATUAL @e 9999]    [PRFAB @e 9,999.99]    [TOTVAL @e 99,999.99]     [pcategoria XX]
ULTPAG [repl("-",75)]
ULTPAG VALOR TOTAL DE PRODUTOS:                         [TOT @e999.999,999]               
ULTPAG [repl("-",75)]
