Páginas filhas
  • ExecBlock - Execução do ponto de entrada

Função: ExecBlock - Execução do ponto de entrada

Executa um determinado ponto de entrada.

ExecBlock - Execução do ponto de entrada ( < cNomePE>, [ lVarEnv], [ lSet], [ uParam] ) --> uRetorno

NomeTipoDescriçãoObrigatórioReferência
cNomePECaracterNome do ponto de entrada a ser executado X
lVarEnvLógicoIndica se o conteúdo das variáveis Públicas e Private do sistema serão restauradas.
lSetArray of RecordIndica se os set's do sistema serão restaurados.
uParamQualquerConteúdo que ficará disponível na função de usuário executada, na forma da variável private PARAMIXB.
    uRetorno(qualquer)
  • O retorno da Execblock() é definido pela função que será executada.

Parâmetros

lVarEnv e lSet

São parâmetros de uso reservado da aplicação.

Estes parâmetros devem ser definidos com .F.

uParam

A função de usuário executada através da ExecBlock() não recebe parâmetros diretamente, sendo que estes estarão disponíveis em uma variável private denominada PARAMIXB.

A variável PARAMIXB é o reflexo do parâmetro uParam, definido na execução da função ExecBlock(). Caso seja necessária a passagem de várias informações, as mesmas deverão ser definidas na forma de um array, tornando PARAMIXB um array também, a ser tratado na função de usuário que será executada.l

#include "protheus.ch"User Function Teste20()Local cNota  := "XXX"   Local cSerie := "01"Local cFornece := "000001"Local cLoja := "02"Local aParam := {cNota, cSerie, cFornece, cLoja}IF EXISTBLOCK("TESTE21")   lGravou := EXECBLOCK("TESTE21",.F.,.F.,aParam)ENDIFUSER FUNCTION Teste21()LOCAL cNota := PARAMIXB[1]LOCAL cSerie:= PARAMIXB[2]LOCAL cFornece:= PARAMIXB[3]LOCAL cLoja:= PARAMIXB[4]ApMsgAlert('Nota: '+cNota)ApMsgAlert('Serie: '+cSerie)ApMsgAlert('Fornece: '+cFornece)ApMsgAlert('Loja: '+cLoja)RETURN .T.
Microsiga Protheus 8.11 , Protheus 10

  • Sem rótulos