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á 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 da 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 é acionado.

É importante ressaltar que este ponto de entrada funcionará se e somente se duas outras condições forem atendidas:

1) A função de usuário USER FUNCTION PMSSET92( ) ou seja, o próprio ponto de entrada, tiver sido compilado no RPO

2) O campo que  utilizar a tabela de Tarefas do Projeto (AF9) para consulta padrão ter em seu modo de edição (X3_WHEN) a chamada para a função PmsSetF3() da seguinte maneira: PmsSetF3('AF9',92), 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 PMSSET92será acionado.

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 <> ""
)          
  MsgAlert("Você não possui permissão para alterar projetos e tarefas//Verifica vinculadosse aohá centro de custo "+ cCCusto)
  
  Final(" A rotina será encerrada" para a tarefa  

	MsgAlert("Está tarefa não possui centro de custo informado")

EndIf

Return (cProjRev)cRetorno)                    //Retorna código do projeto e a revisão