Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

TOTVS Backoffice (Linha Protheus) - Planejamento e Controle Orçamentário (SIGAPCO)

Função:PCOA500 - PCOA500BTN
País:Brasil
Ticket:Interno
Requisito/Story/Issue :DSERCTR1-42111


02. SITUAÇÃO/REQUISITO

Essa documentação visa esclarecer e exemplificar sobre o ponto de entrada PCOA500BTN.

03. SOLUÇÃO

O ponto de entrada PCOA500BTN visa adicionar botões de usuário com base na regra desejada por meio da adição na EndChoiceBar, podendo assim adicionar os botões desejados nas opções da rotina de Contingências de Visualizar, Liberar ou Excluir. 


Importante

As alterações realizadas no ponto de entrada são de total responsabilidade do cliente que o implementa.


04. DEMAIS INFORMAÇÕES


Exemplo do ponto de Entrada 
#INCLUDE "PROTHEUS.CH"

User function MyFun()

	Help(" ",1,"TESTE PE",,"PONTO DE ENTRADA PARA TESTE DOS BOTOES NA PCOA500",1,0)//"Parâmetro MV_ATFMOED configurado incorretamente"

Return 

User Function PCOA500BTN()

//Exemplo de uma adição de botao, forma simples
// aButtons := {{  'PEDIDO', {|| u_MyFun() },"Exemplo de Botao" } }

//Exemplo de mais de um botao
aButtons := Array(2,3)
aButtons[1][1] := 'PEDIDO' //Identificador
aButtons[1][2] := {|| u_MyFun() } //Função ou bloco de codigo para ser executado ao clicar no botao
aButtons[1][3] := 'Exemplo 1' //Nome que será ao enxergar o botao na tela

//2
aButtons[2][1] := 'PEDIDO 2' //Identificador
aButtons[2][2] := {|| u_MyFun() } //Função ou bloco de codigo para ser executado ao clicar no botao
aButtons[2][3] := 'Exemplo 2' //Nome que será ao enxergar o botao na tela

Return(aButtons)
Exemplo de Chamada do Ponto de Entrada 
If ExistBlock( "PCOA500BTN" )

	If ValType( aUsButtons := ExecBlock( "PCOA500BTN", .F., .F. ) ) == "A"
		aButtons := {}
		AEval( aUsButtons, { |x| AAdd( aButtons, x ) } )
	EndIf
EndIf




05. ASSUNTOS RELACIONADOS

  • Não se aplica.