Frameworksp

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

Versões comparadas

Versão antiga 1

changes.mady.by.user Elisabete Magalhaes dos Santos Silva

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Usuário desconhecido (felipe.valcanaia)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
ExecBlock - Execução do ponto de entrada
ExecBlock - Execução do ponto de entrada

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

Executa um determinado ponto de entrada.

Sintaxe

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

Parâmetros/Elementos
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.
Retorno
    uRetorno(qualquer)
  • O retorno da Execblock() é definido pela função que será executada.
Observações

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

Exemplos 
#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.
Abrangência
Microsiga Protheus 8.11 , Protheus 10