VB_CART;Cartoes Disponiveis;sys_tbbrow;10;25;20;65;psq_brow;;
:SKEL
variavel wVarAux2 := {|| VB_CART->(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 ;
 67;tb_locate(D_oB);C-Repete_Busca ; 
:TBFI
*;if(Qbe_Select(),"*","");P;X;1;;
Nome;CTNOME;C;@s16; 16;;
TEF;tef;C;xxx;3;S;
Cod;rec_del();C;X99999;  6;N;