Histórico da Página

#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