INDEX SEIP_GR PGPRECO+PDESC
OUTROARQ SCCPFOR

VARIAVEL Z_GRUPO = " "
T10,10,20,65,Parametros
T2,2,Grupo de Precos:,1,z_grupo,!
FILTRO (Z_GRUPO=" " .OR. Z_GRUPO = PGPRECO)

VARIAVEL Z_TOTUNID = 0
VARIAVEL Z_VALTOT  = 0
VARIAVEL Z_TOTPROD = 0
COMANDO DURANTE SCCPFOR->(DBGOTO(SE_PROD->PPRINCFORN))
COMANDO DURANTE Z_FANTASIA = STR( SE_PROD->PPRINCFORN,3)+"-"+SCCPFOR->cp_fantasi
COMANDO DURANTE Z_TOTUNID = Z_TOTUNID+PEATUAL
COMANDO DURANTE Z_VALTOT  = Z_VALTOT + PEATUAL*PVLUVENDA
COMANDO DURANTE Z_TOTPROD = Z_TOTPROD + 1
C[Empresa]                                     Data [Date()]
C[Sistema]                                           Hora [Time()]
CRelacao Geral de Produtos                           Pag [Pag 9999]
C[REPL("-",132)]
CCod   Descricao              Estoque     Pr.Unit CHAB Fabricante          Cat  G Emb
C[REPL("-",132)]
* 9999 xxxxxyyyyyxxxxxyyyyyxxxx 99999 99,999.99  9999 999-XXXXXxxxxxXXXXX
D[pcod 9999] [pdesc @s24] [peatual 9999] ____[pvluvenda @e9999.99] [pcprodforn 9999] [z_fantasia]  [pcategoria] [pgpreco] [pitens 9999]
ULTPAG[repl("-",132)]
ULTPAGNumero de Produtos.: [z_totprod @E999,999]
ULTPAGTotal de Unidades..: [Z_TOTUNID @e999,999] 
ULTPAGValor Total........: [z_valtot @E99,999.99]
