Permite habilitar e desabilitar a coleta de logs de trace de execuções do DBaccess via TOTVS | Application Server das conexões ativas do processo atual.
TCSQLReplay( < nOption >, < @cMessage > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
nOption | numérico | Opção desejada detalhada nas observações. | X | |
cMessage | caractere | Parametro de entrada e/ou Mensagem de retorno | X | X |
Nome | Tipo | Descrição |
---|---|---|
lRet | lógico | Retorna .T. se a stored procedure existir, caso contrário, retorna .F. |
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 |
Esta função está disponível no Application Server - build 7.00.131227A, com data de geração superior a 09/08/2016 e depende de um DBAccess com build superior a 20161016.