Histórico da Página

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.

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.

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

Português(Brasil)

Versões_Anteriores

Todos

Todas

_aDadosBlq

lRetDes - Retorno Lógico

If lPcoDesvc
lRetDes := ExecBlock("PCODESVC",.F.,.F.,{_aDadosBlq})
If lRetDes
         lRet := .T.
EndIf       
EndIf

Static lPcoDesvc := ExistBlock ("PCODESVC" )

PCOA530.PRW