Histórico da Página

CONTEÚDO

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

5. 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)  através do campo que executará a consulta que será utilizado para a consulta. 

O ponto de entrada PMSSET92 está contido na função  PmsSetF3(), 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.

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  

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

EndIf

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