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  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 := AF9_PROJET+AF9_REVISA   //Variável cProjRev recebe o código do projeto concatenado à respectiva revisão

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

EndIf
Return (cProjRev)                        //Retorna código do projeto concatenado à revisão