Executando uma Static Function de outro programa com a Função StaticCall()

Todos nós sabemos ou pelo menos a maioria sabe, que uma “Static Function” só pode ser chamada de dentro o mesmo programa fonte (mesmo prw) que a criou, certo?

Mas e se precisássemos utilizar uma “Static Function” existente em um RPO, cujo os fontes não estão disponíveis ?

Podemos resolver este problema com a utilização de uma função chamada StaticCall() que irá executar uma “Static Function” de qualquer outro programa em que esteja declarada.

Sintaxe:

xReturn := StaticCall(xParam1, xParam2, xParam3, ..., ..., xParamN)

Onde:

xParam1 := NomeDoPrograma (sem aspas), onde se encontra a Static Function que se deseja executar.

xParam2 := NomeDaStaticFunction (sem aspas), a ser executada

xParam3 := A partir desse espaço são definidos os parâmetros que são passados para a Static Function que será chamada, podendo variar de 0..N.


Exemplo:

#Include "Protheus.ch" user function TesteStaticCall()<br /> local retStaticCall retStaticCall := StaticCall( FINXFUN, PesPict, "A1_CEP" ) // A função PesPict(cCampo) tem o objetivo de retornar a Picture que está definida no parâmetro X3_PICTURE de um determinado campo [cCampo] e está declarada como static dentro do fonte Padrão FINXFUN.prw. // É claro que para esta tarefa poderíamos utilizar a função PesqPict() que é padrão do sistema e de acesso global, mas PesPict() é static e servirá apenas para nosso exemplo da StaticCall(). alert( "A picture do campo A1_CEP é " + retStaticCall ) return Nil

O resultado deste exemplo será o seguinte:




 Até a próxima...