Pular para o conteúdo principal

Postagem em destaque

BlackTDN :: Gerenciamento de Erros e Avisos em Projetos AdvPL/TLPP: Um Desafio Frequente no Desenvolvimento TOTVS Protheus

_Créditos da imagem: Gerada com auxílio do ChatGPT_ --- **Gerenciamento de Erros e Avisos em Projetos AdvPL/TLPP: Um Desafio Frequente no Desenvolvimento TOTVS Protheus** Ao trabalhar com projetos desenvolvidos na linguagem AdvPL/TLPP, especialmente em ambientes como o TOTVS Microsiga Protheus, desenvolvedores frequentemente se deparam com uma série de problemas e avisos de compilação. Recentemente, em uma análise de código de um dos nossos projetos, foram identificados mais de 700 problemas durante o processo de compilação, distribuídos entre erros críticos e avisos que podem afetar o desempenho e a manutenção da aplicação. ### Principais Problemas Encontrados Entre os problemas destacados, podemos citar: 1. **Erros de Nomenclatura e Duplicação de Fontes**: - Um dos erros mais críticos que surgiram foi: "Not allowed more than one source with same name". Este erro é comum quando há múltiplos arquivos PRW com o mesmo nome em diferentes pastas do projeto, o que pode

Protheus :: Obtenha os parâmetros formais com GetFuncPrm


Utilizando GetFuncPrm( cFunction ) para retornar os parâmetros de uma função em Advpl.

Se você tem dúvidas sobre quais parâmetros formais uma função em Advpl possui, utilize GetFuncPrm( cFunction ) para obtê-los.

GetFuncPrm() retorna um array com todos os parâmetros formais da função.

Ex.:

Local aPrmFunc := {}

IF FindFunction( "SomaHoras" )
aPrmFunc := GetFuncPrm( "SomaHoras" )
aEval( aPrmFunc , { |cPrm| ConOut( cPrm ) } ) //-> nHr1 , nHr2
EndIF

O problema é que GetFuncPrm() só retorna os parâmetros de funções em Advpl, não retorna as "Internal Functions". Por exempo, não posso utilizar GetFuncPrm() para retornar os parâmetros da função aEval(), pois aEval() não está escrita em Advpl mas sim em C++ e em função disso, não consta na pilha de funções Advpl.

Na realidade, quase toda função que possa ser localizada por FindFunction( cFunction ) pode ter os seus parâmetros formais retornados pela GetFuncPrm().

Além de não retornar os parâmetros de "Internal Functions" GetFuncPrm() também não retorna os parâmetros de "Métodos de Classes" escritas em Advpl.

Outro problema de GetFuncPrm() é que ela só retorna os parâmetros das funções, não o que deve ser passado a eles, aí vai da experiência de cada um e de como os parâmetros formais foram declarados. No nosso exemplo sei que SomaHoras( nHr1 , nHr2 ) recebe dois parâmetros do tipo numérico, e pela descrição podemos inferir que temos que passar valores em horas. Mas pode ocorrer de GetFuncPrm() retornar parâmetros "esdrúxulos" como em:

Local aPrmFunc := {}

IF FindFunction( "EmpOpenFile" )
aPrmFunc := GetFuncPrm( "EmpOpenFile" )
aEval( aPrmFunc , { |cPrm| ConOut( cPrm ) } ) //-> cExp1,cExp2,nExp3,lExp4,cExp5,cExp6
EndIF

Nesse exemplo receberemos os seguintes parâmetros formais : cExp1, cExp2, nExp3, lExp4, cExp5, cExp6. Mas o que eles significam? Apenas podemos identificar o seu "Tipo" cExp1, cExp2, nExp3, cExp5, cExp6 como caracteres e lExp4 como lógico. (É nem tudo são flores). Ainda bem que sei o que passar para EmpOpenFile().

EmpOpenFile() é uma função em Advpl utilizada para abrir Tabelas de outra empresa e seus parâmetros formais, traduzidos, são:

EmpOpenFile( cNewAlias , cAlias , nOrder , lForceOpen , cEmpresa , cModo ) -> lOpened

onde:

cNewAlias: Alias que sera atribuido a Nova Tabela
cAlias: Alias da Tabela Para Pesquisa e Comparação
nOrder : Numero do Indice
lForceOpen: DEFAULT .T., se força a abertura da nova Tabela
cEmpresa: Código da Empresa
cModo: Modo de Acesso do SX2 da nova Tabela (retornado por referência).


Comentários

Postar um comentário

Postagens mais visitadas