Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

Planejamento e Controle Orçamentário - SIGAPCO

Função:PCOA050
País:Brasil
Ticket:11113676
Requisito/Story/Issue:DSERCTR1-31475



02. SITUAÇÃO/REQUISITO

Solicitada melhoria da documentação do ponto de entrada - PCOA0501 

03. SOLUÇÃO

O ponto de entrada PCOA0501 permite a inclusão de rotinas de usuário na rotina PCOA050 para exibição e uso no menu.



04. DEMAIS INFORMAÇÕES


Informações

Vale ressaltar

Todos os exemplos utilizados são para fins didáticos e de exemplificação, toda aplicação e uso do ponto de entrada é de responsabilidade do cliente e da regra utilizada com base no propósito do ponto de entrada.



Parâmetros do Ponto de Entrada:

ParâmetroTipoDescriçãoObrigatório
PARAMBIX[1]Não se aplicaNão se aplicaNão


O que o ponto de entrada deve retornar

RetornoTipoDescriçãoObrigatório
aUsrRotinaArrayRetorna as opções de rotinas de usuário desejadas.Sim




Exemplo de Manipulação do PE 
If ExistBlock( "PCOA0501" )
		If ValType( aUsRotina := ExecBlock( "PCOA0501", .F., .F. ) ) == "A"
			AEval( aUsRotina, { |x| AAdd( aRotina, x ) } )
		EndIf
EndIf




Exemplo do PE 
#Include "PROTHEUS.CH"

User Function PCOA0501()

	Private aUsrRotinas := {}

	aAdd(aUsrRotinas,{"Titulo", 'Processa({|| CTBR080() })', 0, 2}) //Exemplo de uma barra com processa para progresso visual chamando por exemplo um relatório.
	aAdd(aUsrRotinas,{"Titulo 4", "U_Teste", 0, 2})					//Exemplo chamando uma função de usuário que exibe um help.

Return aUsrRotinas


User Function Teste()

	Help(" ",1,"Teste",,"teste ´PE passou",1,0)

Return






05. ASSUNTOS RELACIONADOS

  • Não se aplica.