Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Ronaldo Tadeu Robes

Gravado em

comparado com

Nova versão 7

changes.mady.by.user Usuário desconhecido (thiago.meneses)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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 contingencia.

Retorno:

Tipo

Descrição

Obrigatório

Lógico

Indica se o movimento poderá ser incluso.

Sim

Exemplo:
Bloco de código
languagejs
titlePCOA5307
linenumberstrue
#Include
#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 contingenciaIf nDet 
 de contingência.

If nDet == 2 //
indica 
 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