INDEX SEIP_N PDESC 
VARIAVEL LST_TP = 58 
VARIAVEL TOTUNI = 0 
VARIAVEL TOTVAL = 0 
VARIAVEL FABRICA= 0 
VARIAVEL Z_ABCF = " " 
VARIAVEL Z_ABCV = " " 

T10,10,18,70,Parametros 
T4,2,Classe de Giro :,1,z_abcf,! 
T5,2,Classe de Valor:,1,z_abcv,! 
FILTRO PSUBSIDIO > 0
FILTRO peatual > 0 .AND. (Z_ABCF=" " .OR.PABCFISICA=Z_ABCF) .AND. (Z_ABCV=" " .OR.PABCVENDA=Z_ABCV) 

COMANDO DURANTE ZNIL = IF(PVLUVEN3=0, REGLOCK(), 0) 
COMANDO DURANTE ZNIL = IF(PVLUVEN3=0, PUT_VAR("PVLUVEN3",PVLUVENDA*.70), 0) 
COMANDO DURANTE FABRICA= PVLUVEN3 
COMANDO DURANTE TOTUNI = TOTUNI+PEATUAL 
COMANDO DURANTE TOTVAL = TOTVAL+(PEATUAL*FABRICA) 

C[Empresa]                                 Data [Date()] 
C[Sistema]                                           Hora [Time()] 
CRelacao Geral de Produtos-Preco de Fabrica                        Pag [Pag 9999] 
C--------------------------------------------------------------------------- 
CCod   Descricao                Estoque  Emb Pr. Unit  Pr. Total  ABCF  ABCV 
C--------------------------------------------------------------------------- 
*99999 xxxxxyyyyyxxxxxyyyyyxxxx 
D[pcod 99999] [pdesc @s24] [peatual 999,999] [pitens 9999] [FABRICA @e 9,999.99]   [FABRICA*PEATUAL @e 9,999.99]   [pabcfisica]     [pabcvenda] 
ULTPAG [repl("-",75)] 
ULTPAG TOTAL DE PRODUTOS:            [TOTUNI @e999,999] und   R$ [TOTVAL @e 999,999.99] 
ULTPAG [repl("-",75)] 
