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

T10,10,18,70,Parametros
T4,2,Classe de Giro:,1,z_abcf,!

FILTRO peatual > 0 .AND. (Z_ABCF=" " .OR.PABCFISICA=Z_ABCF)

COMANDO DURANTE FABRICA= ROUND(PVLUVENDA * ( 1 - (PDESCVAR/100) ),2)
COMANDO DURANTE TOTUNI = TOTUNI+PEATUAL
COMANDO DURANTE TOTVAL = TOTVAL+(PEATUAL*FABRICA)
COMANDO DURANTE TOTPV  = TOTPV + FABRICA

C[Empresa]                                 Data [Date()]
C[Sistema]                                           Hora [Time()]
CRelacao Geral de Produtos-Preco de Fabrica                        Pag [Pag 9999]
C---------------------------------------------------------------------------
CCod   Descricao               Pr. Unit     Pr. Total      Saldo  
C---------------------------------------------------------------------------
*99999 xxxxxyyyyyxxxxxyyyyyxxxx   
D[pcod 99999] [pdesc @s24] [FABRICA @e 9,999.99]    [FABRICA*PEATUAL @e 9,999.99]   [peatual 999,999] [pabcfisica]
ULTPAG [repl("-",75)]
ULTPAG T  O  T  A  I  S  :          [TOTPV @e 99,999.99]   [TOTVAL @e 999,999.99][TOTUNI @e999,999] 
ULTPAG [repl("-",75)]
