/*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 DBAcces
nHndOra := TcLink(cDbOra,cSrvOra,7890)
If nHndOra < 0
UserException("Falha ao conectar com "+cDbOra+" em "+cSrvOra)
Endif
conout("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