Ponto de Entrada para alterar permissão de visualização de Documentos do SIGAQDO

Descrição:

QDOLibVi - Permite customizar a liberação de visualização de documentos no módulo de Controle de Documentos.
Pode ampliar ou restringir o acesso calculado pelo fluxo padrão  de visualização (retornando .T. ou .F.).

Versões:

Microsiga Protheus 12

Idioma:

Português (Brasil)

Sistemas Operacionais Suportados:

Todos

Compatível com as Bases de Dados:

Todos

Parâmetro:

ParamIXB[1] - lLiberado (Lógico) - resultado calculado pelo fluxo padrão até a chamada do ponto de entrada;

ParamIXB[2] - cDocumento (Caractere) - código do documento relacionado

ParamIXB[3] - cRevisao (Caractere) - revisão do documento relacionado

Retorno:

Retorno (Lógico): .T. para permitir a visualização e .F. para bloquear a visualização.

Programa Fonte:

QDOA050.prw / QDOC010.prw

#INCLUDE "TOTVS.CH"
 
User Function QDOLIBVI()
 
    Local cDocumento := Nil
    Local cRevisao   := Nil
    Local lLiberado  := .T.
       
    If ParamIXB != Nil
        lLiberado  := ParamIXB[1]
        cDocumento := ParamIXB[2]
        cRevisao   := ParamIXB[3]
    EndIf

    //Minhas Regras de Controle de Liberação de Documento
    lLiberado := MsgYesNo("Libera visualização do Documento: "+cDocumento+" - Revisão: "+cRevisao+" ?", "Visualiza Documento?")
   
Return lLiberado