01. DADOS GERAIS
Produto: | |
---|
Linha de Produto: | |
---|
Segmento: | |
---|
Módulo: |
TOTVS Backoffice (Linha Protheus) - Planejamento e Controle Orçamentário (SIGAPCO)
|
---|
Função: | PCOA530 |
---|
País: | Brasil |
---|
Ticket: | Interno |
---|
Requisito/Story/Issue | DSERCTR1-46748 |
---|
02. DESCRIÇÃO
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
04. ASSUNTOS RELACIONADOS