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: | | Nome | Tipo | Descrição | | ParamIxb[1] | Array | Dados |
|
do | orçamentários considerando o registro que |
|
está sendo avaliado| se pretende incluir. | | ParamIxb[2] | Lógico | Indica se na avaliação orçamentária padrão, o registro poderá ser incluso. | | ParamIxb[3] | Numérico | Indica 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: |
#include | Bloco de código |
|---|
| language | js |
|---|
| title | PCOA5307 |
|---|
| linenumbers | true |
|---|
| #Include "Protheus.ch" |
|
Local aDadosPE := ParamIXB[1] //Dados do registro
Local lInclui := ParamIXB[2] //Inclui movimento
//Customizações
Alert("EXECUTADO PONTO DE ENTRADA PCOA5307 ")
Return
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 |
|
