Entendendo o ProcName

Uma outra dica que peguei esses dias.

Eu estava precisando buscar o nome da rotina para informar na minha rotina de log. E nas minhas pesquisas encontrei:

User Function Teste()

TesteExec()

Return Nil

Static Function TesteExec

Local cSourceName :=  ProcName()

Return Nil

Se caso você compilar o fonte dessa forma. O retorno será o nome do fonte corrente, ou seja:

“TESTEEXEC”

No entanto, se você informar parâmetro com o conteúdo: 1

User Function Teste()

TesteExec()

Return Nil

Static Function TesteExec

Local cSourceName :=  ProcName(1)

Return Nil

-A rotina trará o nome da rotina que executou:

“TESTE”

Senão for informado nenhum parâmetro. Será assumido o “0” e trará o nome atual.

Espero que essa dica ajude. Pois me ajudou bastante.

-Veja mais na documentação:

http://tdn.totvs.com/display/tec/ProcName