Linha Microsiga Protheus

Árvore de páginas


CONTEÚDO

  1. Visão Geral
  2. Descrição
  3. Sintaxe
  4. Parâmetros
  5. Retorno
  6. Exemplo


01. VISÃO GERAL

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Linha Protheus) - Gestão de Projetos (SIGAPMS)

Função:PMA230VD 
Abrangências:Microsiga Protheus 12
Versões:Microsiga Protheus 12
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível com as Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Todos


02. DESCRIÇÃO

O ponto de entrada é executado na chamada da função que realiza a abertura do documento na rotina de Gerenciamento de Documentos (PMSA230) e permite realizar alterações ou validações antes de gerar o documento.

03. SINTAXE

PMA230VD() → lRet


04. PARÂMETROS

Nome

Tipo

Descrição

ParamIXBVetor

Vetor com os dados do documento, sendo:
[ 1 ]  - cAlias- Código da tabela da área de trabalho - Tipo: Caracter

[ 2 ]  - nRecView - Código do Recno do registro - Tipo: Numérico


05. RETORNO

Nome Tipo Descrição 
lRetLógico 

.F. - Bloqueia a geração do documento
.T. - Permite a geração do documento


06. EXEMPLO

#include "Totvs.ch"
#include "Protheus.ch"
 
User Function PMA230VD()

    Local lRet      := .T.
    Local cTabela   := PARAMIXB[1] //cAlias - Tabela da área de trabalho
    Local nRecno    := PARAMIXB[2] //nRecView - Recno do registro posicionado
 
    If cTabela == 'ACB' .And. nRecno == 4
        If __cUserId == '000000' 
	        MsgAlert("O código do usuário "+__cUserId+" não possui acesso para abrir o documento.", "Acesso Negado")
            lRet := .F.
        EndIf
    EndIf

Return lRet