SCCRCLI;Tecle Enter sobre os Clientes Desejados;sys_tbbrow; 8;20;20;72;psq_brow;;
:SKEL
variavel wVarAux2 := {|| SCCRCLI->(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;;
Nome;Cr_nome;C;@s26; 26;;
CNPJ/CPF;Cr_cgc;C;@s18;18;;
Fone;Cr_fone;C;@s10;10;;
Contato;Cr_contato;C;@s15;15;;
Ult Compra;tv_desd(recno());C;@s9;9;;
Cod;rec_del();C;X99999;  6;N;
T;cr_tip_cli;C;9;1;;
*;cr_situaca;C;!;1;S;
O;cr_tip_DES;N;9;1;;
Tb;cr_tabela;N;99;2;;
Bairro;Cr_bairro;C;@s13;14;;
Rua;Cr_rua;C;@s35;35;;
Ponto Ref;Cr_PONTORE;C;@s30;30;;
Cidade;Cr_cidade;C;@s20;25;;
CEP;Cr_CEP;C;@s9;9;;
UF;Cr_UF;C;xx;2;;