INDEX SEIP_N PDESC                             
VARIAVEL LST_TP = 58                           
FILTRO PCOD<>VAL(PCODA) .and. val(pcoda)>0.and.val(pcoda)<9999

C[Empresa]
CProdutos com Codigos trocados
CCodO CodA   Apresentacao
C[Repl("-",80)]
D[pcod 9999] [pcoda] [pdesc @s24] 
