| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | PCOA530 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46748 |
Criado ponto de entrada PCODESVC() que permite o desvio da funcionalidade padrão de bloqueio de solicitação de contingência existente, tendo como finalidade o processo visível ou não ao usuário em operação na rotina Controle de saldo de contingência - PCOA530.
Se o ponto de entrada retornar .T. o sistema não irá apresentar a tela de bloqueio, caso retorne .F. o sistema irá fazer o processo padrão.
lRetDes := ExecBlock("PCODESVC",.F.,.F.,{_aDadosBlq}) |
User Function PCODESVC()
Local lRetDes := .F.
If MsgYesNo("Realizar desvio da funcionalidade padrão de solicitação de contigência?","Atenção")
lRetDes := .T.
Else
lRetDes := .F.
EndIf
Return lRetDes |
|