Histórico da Página

...

Retorno

...

• Caso estejam em uso as configurações SQLReplay no Environment do APPServer.ini, as chamadas da TCSqlReplay vão atuar sobre a coleta de dados do processo atual, podendo interferir com a coleta já em andamento. O objetivo desta função é permitir ao FrameWork AdvPL criar uma forma instrumentada de, dicamicamente de dentro de uma aplicação AdvPl, permitir instrumentar um trecho de código para gerar informações pertinentes a um processamento, para fins de deputação ou mesmo profiler, sem que uma coleta global esteja habilitada no ambiente.
• Existe praticamente um aumento de duas vezes a quantidade de I/O quando utilizamos a coleta de dados de trace do DBAccess no TOTVS | Application Server. Este overhead será mais percebido em ambientes onde o TOTVS Application Server e o DBAccess estão em equipamentos separados por uma rede física. Por estas questões, recomendamos o uso deste recurso apenas em processos onde uma rastreabilidade em maior profundidade seja realmente necessária.

Opções

• 1 - Retorna .T. se a versão utilizada do DBAccess está com contempla a implementação do TCSqlReplay
• 2 - Inicia o TCSqlReplay e caso necessário atribuir no segundo parametro se necessário é possível definir o nome do arquivo a partir do RootPath
• 3 - Finaliza o TCSqlReplay
• 4 - Verifica se o TCSqlReplay foi iniciadoestá ativo
• 5 - Retorna o Buffer com o log do usuário atual.
• 6 - Altera / Retorna o valor do Log de rotinas internas
• 7 - Altera / Retorna o valor de Call Stack retornadostamanho do stack AdvPL.

Exemplos

User Function exemplo()
  
  Local cMessage := ""
  
  TcLink()
  
  if TCSqlReplay(1, @cMessage) == .F.
    conout("Não existe a implementação")
    Return
  endif
  
  // inicia o TCSqlReplay
  cMessage := "/sqlreplay.log"
  TCSqlReplay(2, @cMessage)
  
  // liga o log de rotinas internas
  cMessage := "1"
  TCSqlReplay(6, @cMessage)
  
  // altera o valor de call stack para 5
  cMessage := "5"
  TCSqlReplay(7, @cMessage)
  
  cMessage := ""
  if TCSqlReplay(4, @cMessage) == .T.
    conout("TCSqlReplay foi iniciado")
  endif
  
  // TODO: your code here
  
  // Finaliza o TCSqlReplay
  TCSqlReplay(3, @cMessage)
  
  TcUnlink()
  
Return

...