INDEX SEIP_N PDESC                             
VARIAVEL LST_TP = 58                           
VARIAVEL xDESC = SPACE(24)
VARIAVEL xDIVI = SPACE(4)
VARIAVEL XLEN = 1
T10,10,16,60,Parametros
T2,2,Descricao:,24,xdesC,xxxxxxxxxxxxxxxxxxxxxxxx
T3,2,Divisao..:,04,xdivI,xxxx
COMANDO DURANTE XLEN = LEN(ALLTRIM(XDESC))
FILTRO  XDESC = SPACE(24) .OR. LEFT(PDESC,XLEN) = LEFT(XDESC,XLEN)
C [Empresa]                                 Data [Date()]
C [Sistema]                                           Hora [Time()]
C Relacao Geral de Produtos-Preco de Fabrica                        Pag [Pag 9999]
C ---------------------------------------------------------------------------
C Resp   Produto e Descricao             Tp    Cat Divisao        Estoque
C ---------------------------------------------------------------------------
D _____  [pdesc @s24] [pcod 99999]  [ptipo XX]___ [pcategoria XX]___  [pdivisao xxxx] ___ [peatual @E 999,999]_____
ULTPAG [repl("-",75)]
