Histórico da Página

CONTEÚDO

1. Dados Gerais
2. Descrição
3. Sintaxe
4. Parâmetros 
5. Retorno

6. Exemplo

01. DADOS GERAIS

02. DESCRIÇÃO

O ponto de entrada PMSSET92 é acionado na rotina principal de Gerenciamento de Projetos (PMSA410), ao executar a consulta padrão na tabela de Tarefas do Projeto (AF9). 

Para execução deste ponto de entrada, é necessário conter a função como PmsSetF3("AF9",92) dentro da opção "Modo Edição" (X3_WHEN) do campo que será utilizado para a consulta. 

O ponto de entrada PMSSET92  está está contido na função  PmsSetF3(), da rotina auxiliar PMSXFUNB, que tem como rotina principal a Gerenciamento de Projetos (PMSA410). Ele é acionado na utilização da consulta padrão na tabela de Tarefas do Projeto (AF9) disponível no preenchimento do campo "Predecessora" (AFD_PREDEC) da aba de relacionamento de tarefas. Para executá-lo a partir da rotina PMSA410, posicione o cursor no projeto, clique em "Outras Ações>>Alt.Estrutura", em seguida na janela "Gerenciamentos de Projetos - Alterar", ao lado esquerdo da tela, expanda o projeto até o nível da tarefa, posicione o cursor sobre a tarefa, em seguida, clique em "Outras Ações>>Estrutura do Projeto>>Alterar". Em seguida, na janela "Tarefas do Projeto", na aba inferior "Relac.Tarefas", posicione no campo "Predecesora" (AFD_PREDEC), quando o usuário iniciar a edição deste campo, o ponto de entrada será acionado.

E importante ressaltar que o sistema só fará a verificação da existência do ponto de entrada através da função ExistBlock() se e somente se houver chamada para função  PmsSetF3('AF9',92) através do X3_WHEN do campo que utilizará a consulta padrão na tabela AF9, onde o primeiro parâmetro (AF9) faz referência à tabela que servirá para consulta padrão do campo, e o segundo parâmetro (92) é a opção exclusiva para execução do ponto de entrada PMSSET92.

03. PARÂMETROS

Não há

04. RETORNO

05. EXEMPLO

#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'TOTVS.CH'
#INCLUDE 'PARMTYPE.CH'

User Function PMSSET92() 

Local cCCusto := Alltrim(AF9_CCUSTO)      //Variável cCCusto recebe o centro de custo da tarefa
Local cProjRev cRetorno:= AF9_PROJET+AF9_REVISA   //Variável cProjRev recebe o código do projeto concatenado à respectiva revisão

   If Empty(cCCusto <>) ""                       //Verifica se há centro de custo para a tarefa  
  
  	MsgAlert("VocêEstá tarefa não possui permissão para alterar projetos e tarefas vinculados ao centro de custo informado"+ cCCusto)
  
  Final(" A rotina será encerrada" )    //Encerra a rotina

EndIf

EndIf

Return (cProjRevcRetorno)                        //Retorna código do projeto concatenadoe àa revisão