Linha Microsiga Protheus

Árvore de páginas

Descrição:

O ponto de entrada PCOA5307 é chamado após a validação e mensagens do controle de contingência, possibilitando que o cliente realize avaliações especificas e defina se o registro pode ou não ser incluso.

Eventos:

Bloqueio orçamentário com controle de contingência.

Programa Fonte:

Solicitação de Contingência (PCOA530)

Função:

PCOA530

Parâmetros:
NomeTipoDescrição
ParamIxb[1] ArrayDados orçamentários considerando o registro que se pretende incluir.
ParamIxb[2]LógicoIndica se na avaliação orçamentária padrão, o registro poderá ser incluso.
ParamIxb[3]NuméricoIndica qual ação foi selecionada pelo usuário na solicitação de contingência.

Retorno:

Tipo

Descrição

Obrigatório

Lógico

Indica se o movimento poderá ser incluso.

Sim

Exemplo:
PCOA5307
#Include "Protheus.ch"

User Function PCOA5307()

Local lInclui 	:= ParamIXB[1] //Indica se passou pelas validações padrões.
Local aDadosPE	:= ParamIXB[2] //Dados orçamentários considerando o registro que se pretende incluir.
Local nDet 		:= ParamIxb[3] // Retorno da variável, considerar a ação efetuada pelo usuário na pergunta de liberação de contingência.

If nDet == 2 // Indica que o usuário selecionou a opção Solicitar liberação.
	lInclui := MsgYesNo("Na avaliação do Protheus, o registro " + If(lInclui,"será","não será") + " incluso. Você deseja incluir?" ,"Ponto de Entrada - PCOA5307")
EndIF

Return lInclui