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:PMA230SD 
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 salva o documento na máquina local através da rotina de Gerenciamento de Documentos (PMSA230), e permite realizar alterações ou validações antes de Salvar o documento.

03. SINTAXE

PMA230SD() → 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. - Não permite salvar o documento
.T. - Permite salvar do documento


06. EXEMPLO

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

    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 salvar o documento.", "Acesso Negado")
            lRet := .F.
        EndIf
    EndIf

Return lRet