sele 1
use prdx
index on pcod to xprdxy
sele 2
use se_prod
set relation to pcod into prdx
repl all nf_cstpis with prdx->nf_cstpis for prdx->pcod>0
repl all nf_cstcof with prdx->nf_cstcof for prdx->pcod>0
repl all nf_txpis with prdx->nf_txpis for prdx->pcod>0
repl all nf_txcof with prdx->nf_txcof for prdx->pcod>0
repl all pcategoria with prdx->pcategoria for prdx->pcod>0
repl all cod_nat with prdx->cod_nat for prdx->pcod>0
close all