QBE_SAVE;Selecione Consulta;sys_tbbrow; 5;20;15;70;xpadrao;;
:SKEL
variavel zbDel:=#TEXTO_FONTE
   if UserIsAdmin()
      se tb_del(D_ob) entao MyKeyb(27)
   else
      Alert("Voce precisa ter direitos de administrador para apagar selecoes!",,"R/W")
   endif
#FIM_TEXTO_FONTE
:TBMT
 13;(oQbe:cScriptSelecao:=AllTrim(Obs),MyKeyb(27));Enter-Confirma Selecao ;
  7;eVal(zbDel);DEL-DELeta ;
:TBFI
Selecao;DESCRICAO;C;@S60; 60;;
Data;DATA;D;;  8;;
Tela;DTELA;C;@S40; 40;;