| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | PCOA530 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46748 |
O ponto de entrada PCOA5307 é invocado após a realização da validação de dados relacionados ao controle de contingência. Ele oferece ao cliente a possibilidade de implementar avaliações específicas para determinar se um registro deve ou não ser incluído, de acordo com critérios próprios de negócio. Essa funcionalidade é particularmente útil no contexto de bloqueios orçamentários, permitindo ao usuário uma camada adicional de verificação e personalização, antes de autorizar a inclusão de registros. O controle de contingência atua como uma medida para assegurar que as políticas de orçamento sejam respeitadas, oferecendo flexibilidade para ajustes pontuais, conforme necessário.
lRet:= ExecBlock("PCOA5307",.f.,.f.,{lRet,_aDadosBlq,nDet}) |
#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 |
|