Histórico da Página

O ponto de entrada PMSREVISA é executado na atualização das tabelas dos projetos na criação de versões e exclusão de versões:
Chamada : PMSREVISA
Exemplo : Gravação de uma tabela auxiliar vinculada ao Projeto + Versao + Tarefa
User Function PMSREVISA()
   Local aArea&nbsp := GetArea()
   Local nEvento    := PARAMIXB[1]
   Local cVerAtu    := PARAMIXB[2]
   Local cNextVer   := PARAMIXB[3]
   Local aRecZFI    := {}
   Local nx
   If nEvento == 1
      dbSelectArea('ZFI')
      dbSetOrder(1)
      MsSeek(xFilial()+AF8->AF8_PROJET+cVerAtu)
      While !Eof() .And. ZFI_FILIAL+ZFI_CTRRVS+ZFI_PROJET+ZFI_REVISA==xFilial('ZFI')+ZFI->ZFI_PROJET+cVerAtu
         aAdd(aRecZFI,ZFI->(RecNo()))
         dbSkip()
      End
      For nx := 1 to Len(aRecZFI)
         ZFI->(dbGoto(aRecZFI[nx]))
         RecLock('ZFI',.F.)
         ZFI->ZFI_REVISA := cNextVer
         MsUnlock()
      Next
   ElseIf nEvento == 2
      dbSelectArea('ZFI')
      dbSetOrder(1)
      MsSeek(xFilial()+AF8->AF8_PROJET+cVerAtu)
      While !Eof() .And. ZFI_FILIAL+ZFI_CTRRVS+ZFI_PROJET+ZFI_REVISA==xFilial('ZFI')+ZFI->ZFI_PROJET+cVerAtu
         aAdd(aRecZFI,ZFI->(RecNo()))
         dbSkip()
      End
      For nx := 1 to Len(aRecZFI)
         ZFI->(dbGoto(aRecZFI[nx]))
         RecLock('ZFI',.F.,.T.)
         dbDelete()
         MsUnlock()
      Next
   EndIf
   RestArea(aArea)
Return

PMSXFUNA.PRW

PMSREVISA - Atualiza tabelas ( < nEvento> , < cRevisa> , < cFutRevisa> ) --> Nil

Nil(nulo)
• Nil