AdvPL GuiaExecBlock("F241BTN", .F., .F., aBut240)Coleção recebida em FINA241: análise do chamador e diagnóstico editorial do contexto.
A listagem oficial registra ExecBlock com aBut240 como quarto argumento. (TOTVS, s.d., ref. 2) A Academia ProERP publica uma análise intitulada Protheus 12.1.2210 que situa a chamada em FA241BORDE e atribui o retorno a aBut240; o Universo do Desenvolvedor também exibe esse trecho. (Academia ProERP, s.d., ref. 3; Universo do Desenvolvedor, s.d., ref. 4) Essa leitura orienta o diagnóstico abaixo, mas não documenta a estrutura de cada botão. A página específica permanece em construção no índice. A Academia foi consultada por evidência indexada; não houve inspeção do fonte padrão completo nem execução em Protheus.
ExecBlock("F241BTN", .F., .F., aBut240)PARAMIXB / aBut240Pela regra geral de ExecBlock, o quarto argumento fica disponível diretamente em PARAMIXB. A chamada registrada passa aBut240, sem envolvê-lo em outro array. (TOTVS, s.d., refs. 2 e 5) O diagnóstico verifica o tipo efetivo antes de contar elementos; ele não presume que PARAMIXB[1] contenha toda a coleção.
No trecho comunitário, o retorno de ExecBlock substitui aBut240. Isso sugere a devolução da coleção ao chamador; é uma interpretação do trecho, não um contrato oficial completo. O exemplo editorial devolve o conteúdo recebido sem modificá-lo.
#Include "Protheus.ch"
User Function F241BTN()
// Exemplo editorial baseado na chamada publicada; não é código da Academia.
// O contexto chega diretamente por PARAMIXB, sem presumir posições de botão.
Local uBotoes := PARAMIXB
ConOut("F241BTN: tipo recebido = " + ValType(uBotoes))
// Conta apenas após confirmar que o conteúdo recebido é um array.
If ValType(uBotoes) == "A"
ConOut("F241BTN: quantidade de elementos = " + AllTrim(Str(Len(uBotoes))))
EndIf
// Preserva o valor recebido; este exemplo não adiciona botões.
Return uBotoesSe PARAMIXB for array, escreve seu tipo e quantidade de elementos no console; para outros tipos, escreve somente o tipo. Retorna o mesmo conteúdo recebido. Resultado previsto pela leitura do código; não compilado nem executado no Protheus.
// Recorte documental atribuído à Academia ProERP e ao Universo do Desenvolvedor.
// O restante de FA241BORDE não está reproduzido.
aBut240 := ExecBlock("F241BTN", .F., .F., aBut240)O trecho atribui o retorno a aBut240. Não é uma implementação de F241BTN nem pode ser executado isoladamente.
© 2026 Usina.BR. Todos os direitos reservados. TOTVS, Protheus, Microsiga e seus respectivos logotipos são marcas de seus titulares. O AdvPL Guia é independente e utiliza citações limitadas, atribuídas e justificadas por finalidade educativa. Consulte os Termos de Uso. Termos de Uso
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.