AnsweredAssumed Answered

How to get the previous 'Approved' revision of a document

Question asked by Geir Danielsen on Nov 25, 2010
Latest reply on Dec 17, 2010 by Geir Danielsen
  • Comment • 2

Hello,

 

We have made a simple intranet/internet application to plot documents saved in the EPDM vault.

Is it possible to get the previous 'Approved' revision of a document via API?

 

Code:

        Dim search As IEdmSearch5 = vault.CreateSearch

        search.AddVariable("DocumentNumber", _DocumentNumber)

        search.FileName = "%." & _extension

 

        Dim result As IEdmSearchResult5 = search.GetFirstResult

        While Not result Is Nothing

            If result.StateName = "Approved" Then

                  'do the plot things

            else

                  'return wrong status to user - no plot done

                  msg = result.StateName

 

                  'But, I want to plot the previous revision of a document

                  'notify on the plotted document that this document is under change

            end if

Corey Vantilborg
Corey Vantilborg Dec 7, 2010 4:31 PM
Correct Answer

Geir,

 

    Do you assign a Vault Revision to each file that enters the 'Approved' state?

 

    If so the follow code will find all of the version with Revisions assigned(note it is messy and will need some updating for use in your code):

 

Private Function findRevs(sPath As String) As Boolean

 

On Error Resume Next

 

'Inputs:
'-path to a local document that can be displayed in the eDrawings control
'
'Outputs:
'-populates the global collection REVS containing all available vault revisions
'-assumes drawing and model are at the same REV

 

'Enumerate the revisions list
Dim verEnum As IEdmEnumeratorVersion5
Set verEnum = vDraw 'vdraw is the active drawing vault document

 

 

 

Dim pos As IEdmPos5
Set pos = verEnum.GetFirstRevisionPosition
Dim rev As IEdmRevision5

 

'Enumerate the available revisions and add them to
While Not pos.IsNull

 

    Set rev = verEnum.GetNextRevision(pos)
    Debug.Print "Revision position is " & rev.Name
    'Populate the REVS collection
    revs.Add CStr(UCase(Trim(rev.Name)))

 

Wend

 

Debug.Print "Number of available revisions: " & revs.Count

 

If Err.Number <> 0 Then findRevs = False Else findRevs = True

 

End Function

 

  Then you can use IEdm5::GetFileCopy to specify the revision you want.

 

Corey V

See the reply in context

Attachments

No one else had this question

Outcomes