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 6

changes.mady.by.user Ronaldo Tadeu Robes

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:

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:

#include "Protheus.ch"

User Function PCOA5307()


Local lInclui := ParamIXB[1] //Indica se passou pelas validacoes padroesvalidaçõ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 contingencia

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