/*Exemplo de função que alterna entre conexão de dados de ERP E conexão adicional com outro banco através do DBAccess.Deve ser executada a partir do Menu do ERP */User Function OtherConn()// Recupera handler da conexão atual com o DBAccess // Esta conexão foi feita pelo Framework do AdvPL, usando TCLink()Local nHErp := AdvConnection() Local cDBOra := "ORACLE/P10_TESTE"Local cSrvOra := "172.16.0.1"Local nHndOra Local cQuery := ''conout("ERP conectado - Handler"+str(nHndOra,4))// Cria uma conexão com um outro banco , outro DBAccesnHndOra := TcLink(cDbOra,cSrvOra,7890)If nHndOra < 0 UserException("Falha ao conectar com "+cDbOra+" em "+cSrvOra)Endifconout("Oracle conectado - Handler"+str(nHndOra,4))conout("Banco = "+TcGetDB())// Volta para conexão ERP tcSetConn(nHErp)conout("Banco = "+TcGetDB())// Fecha a conexão com o Oracle TcUnlink(nHndOra)conout("Oracle desconectado")// Mostra a conexão ativa conout("Banco = "+TcGetDB())Return