TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Danilo Coimbra Sigolo

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Danilo Coimbra Sigolo

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
user function exemplo
  
  local i := 0
  local aInfo := {}
  
  for i := 1 to 5
    TCLink()
    TCSetPool("MYPOOL")
  next
  
  varInfo("Conexoes no Pool: ", TCPoolInfo())
  
  aInfo := TCPoolInfo()
  while (len(aInfo) > 0)
    TCGetPool(aInfo[1,2])
    TCUNLink()
    aInfo := TCPoolInfo()
  end
  
return

Veja também