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 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" .Sua execução ocorre no preenchimento dos campos que  utilizam a tabela de Tarefas do Projeto (AF9) para consulta padrão e que tenham em seu modo de edição (X3_WHEN) a chamada para a função  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 PMSSET92(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 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("Está tarefa não possui centro de custo informado")

EndIf

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

...