Busca um alias disponível para utilização

Exemplo da Rotina:

cAlias := GetNextAlias()

Exemplo 1- Pegando o alias e colocando em uma query:

	//Pega o próximo alias disponível
	cAliasAux := GetNextAlias()
	
	//Faz a query
	cQuery := " SELECT BM_GRUPO, BM_DESC FROM " + RetSQLName('SBM') + " SBM WHERE SBM.D_E_L_E_T_ = ' ' "
	
	//Executa a query apontando para o alias
	TCQuery cQuery New Alias (cAliasAux)
	
	//Se houver dados, mostra mensagem
	If ! (cAliasAux)->(EoF())
		MsgInfo("O alias [" + cAliasAux + "] possui dados!", "Atenção")
	EndIf
	
	//Encerra o Alias
	(cAliasAux)->(DbCloseArea())

Exemplo em Vídeo:

Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;