Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Marcos Da Rocha Pires

Gravado em

comparado com

Nova versão Atual

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 contingência.

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 validacoes padroes
Local aDadosPE := 
 pelas validações padrões.
Local aDadosPE	:= ParamIXB[2] //Dados orçamentários considerando o registro que se pretende
incluirlInclui := 
 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