VB_BAIRR;Bairros disponiveis;sys_tbbrow; 5; 5;20;60;psq_brow;;
:TBMT
 13;psq_enter();Enter-Confirma ;
 22;tb_insert(D_OB);Ins-Inclui ;
 65;tb_update(D_OB);A-Altera ;
  7;tb_del(D_ob);DEL-DELeta ;
 80;tb_pesq(d_ob);P-Pesquisa ;
 84;tb_locate(D_oB);T-Trecho ;
 76;tb_locate(D_oB);L-Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ; 
 73;lst_alias(D_OB);I-Imprime ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;
:TBFI
Bairro;CR_BAIRRO;C;@S30; 30;;
TaxaEntrega;Cr_Com;N;99.99;12;;