SCCPFOR;Tecle Enter sobre os Fornecedores Desejados;sys_tbbrow; 8;20;20;72;psq_brow;;
:SKEL
variavel wVarAux2 := {|| SCCPFOR->(Recno()) }
:TBMT
 13;Qbe_Select("SET", D_OB);Enter-Seleciona ;
 80;tb_pesq(d_ob);P-Pesquisa ;
 22;tb_insert(D_OB);Ins-Inclui ;
 84;tb_locate(D_oB);T-Trecho ;
 76;tb_locate(D_oB);L-Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ; 
 79;tb_index(D_OB);O-Ordena ;
:TBFI
*;if(Qbe_Select(),"*","");P;X;1;;
Fantasia;CP_FANTASI;C;@s15; 15;;
Nome;CP_NOME;C;@s32; 30;;
CNPJ;CP_CGC;C;xxxxxxxxxxxxxxxxxx; 18;;
Cod;Rec_Del();P;X99999;  6;N;