Histórico da Página
...
Produto: | TOTVS Backoffice |
---|---|
Linha Produto: | Linha Protheus |
Segmento: | Backoffice |
Módulo: | TOTVS Backoffice (Linha Protheus) - PMS |
Função: | PMSXFUNB - Funções Comuns do PMS |
Abrangências | Microsiga Protheus 12 |
Versões: | Microsiga Protheus 12 |
Países: | Todos |
Sistemas Operacionais: | Todos |
Bases de Dados: | Todas |
Nível de Acesso: | Nível 1 (Acesso Clientes) |
Idiomas: | Todos |
...
02. DESCRIÇÃO
O ponto de entrada PMSSET92 está contido na função PmsSetF3(), da rotina auxiliar PMSXFUNB, que tem como rotina principal a é acionado na rotina principal de Gerenciamento de Projetos (PMSA410). Ele é acionado na utilização da , ao executar a 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..
Para execução deste ponto de entrada, é necessário conter a função como E importante ressaltar que o sistema só fará a verificação da existência deste ponto de entrada através da função ExistBlock() se e somente se houver chamada para função PmsSetF3('AF9',92) através do dentro da opção "Modo Edição" (X3_WHEN) através 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.executará a consulta
03. PARÂMETROS
Não há
04. RETORNO
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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 <> ""Empty(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 rotinacProjRev := "" EndIf Return (cProjRev) //Retorna código do projeto concatenado à revisão |
...