Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Descrição

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.

Observações

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.

Exemplos

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

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

_aDadosBlq

Retorno

lRetDes - Retorno Lógico

Eventos de chamada do Ponto de Entrada

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

Variáveis

Static lPcoDesvc := ExistBlock ("PCODESVC" )

Programa Fonte

PCOA530.PRW