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
| Nome | Tipo | Descrição | Obrigatório | Referência |
| cNomePE | Caracter | Nome do ponto de entrada a ser executado | X | |
| lVarEnv | Lógico | Indica se o conteúdo das variáveis Públicas e Private do sistema serão restauradas. | ||
| lSet | Array of Record | Indica se os set's do sistema serão restaurados. | ||
| uParam | Qualquer | Conteú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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas