Description

Check in objects to the Repo Server. Return value is 1 if successful, 0 otherwise. PARAMETERS: Comment (String). RETURN DATATYPE: Integer.

Syntax

Public Function RepoCheckinObjects( _
   ByVal Comment As Variant _
) As Variant

Parameters

  • Comment

Example

Sub Main
Dim d As Diagram 
Dim s As SelectedObjects 
Dim m As Model 
Dim sm As SubModel 
Dim ents As Entities 
Dim e As Entity 

Debug.Clear
Set d = DiagramManager.ActiveDiagram 
Set m = d.ActiveModel 
Set sm = m.ActiveSubModel 
Set s = sm.SelectedObjects 
Set ents = m.Entities 

For Each e In ents 
s.Add(1, e.ID) 
Next

nRet = d.RepoCheckinObjects() 
Debug.Print(DiagramManager.GetLastErrorString()) 
End Sub

See Also



  • No labels