CI_CNPJS;Tecle Enter sobre as Lojas desejadas;sys_tbbrow; 8;20;20;72;psq_brow;;
: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 ; 
:TBFI
*;if(Qbe_Select(),"*","");P;X;1;;
Lj;Floja;N;99;2;;
CNPJ;CR_CGC;C;@!18; 18;;
Fantasia;cr_fantasi;C;@S20; 20;;
Razao Social;CR_NOME;C;@S30; 28;;
Endereco;CR_Rua;C;@S30; 30;;
Bairro;CR_BAIRRO;C;@S30; 30;;
CEP;CR_CEP;C;@S9;  9;;
Cidade;CR_CIDADE;C;@S30; 30;;
UF;CR_UF;C;xx;  2;;
