BlackTDN Search

quinta-feira, 5 de fevereiro de 2009

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).


Um comentário:

  1. Descobri uma função que retorna a CallStack:

    DWCALLSTACK()

    ResponderExcluir