SF_VEND;Tecle Enter sobre os Vendedores Desejados;sys_tbbrow; 8;12;20;72;psq_brow;;
:SKEL
variavel wVarAux2 := {|| SF_VEND->(Recno()) }
variavel #TEXTO_FONTE
   //ONINIT
      hwg_TbFi(@D_oB,'*;if(Qbe_Select(),"*","");P;X;1;;')
      hwg_TbFi(@D_oB,'Nome;NOME;C;@s25; 25;;')
      hwg_TbFi(@D_oB,'Matric;fnumero;N;9999;6;N;')
      if fieldpos('floja')>0
         hwg_TbFi(@D_oB,'Lj;Floja;N;99;2;N;')
      endif
      hwg_TbFi(@D_oB,'Codigo;rec_del();C;X99999;  6;N;')
   //ENDONINIT   
#FIM_TEXTO_FONTE
: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 ; 