Solid Edge Framework Type Library
CheckInDocumentsToInsightXTServer Method
The variant array which contains the file list to be checked in.

A Boolean flag. It has following possible values:

Description
CheckIn the Documents to the Server
Syntax
Visual Basic
Public Sub CheckInDocumentsToInsightXTServer( _
   ByRef ppsaFileList() As Variant, _
   ByVal bOnlyUpload As Boolean, _
   ByVal bstrURL As String _
) 
Parameters
ppsaFileList
The variant array which contains the file list to be checked in.
bOnlyUpload

A Boolean flag. It has following possible values:

  • TRUE – In case where it is required to only upload the given file to the InsightXT database but don’t want to check it in.
  • FALSE – In case where it is required to both upload as well as check in.
bstrURL
Remarks

For checking in the documents checked out by the user from the InsightXT server.  User can pass multiple files to be Checkin/Upload at a single time. The API also honors the ‘DisplayAlerts’ flag. If the flag is TRUE then Upload dialog will be shown while uploading and if the flag is FALSE then the dialog will not show.

The case in which if the display_alerts flag is off and the CPD dialog is suppressed, then it is the responsibility of the caller to put the item id/item rev correctly into the file storage. He can use the API AssignItemID to assign the item id/item rev.
If the document which is going to be uploaded is without item-id in the document number field then the value of the hr will be returned as E_INVALIDARG.
Example
Private Sub Command1_Click()
    On Error Resume Next
    Dim objApplication As SolidEdgeFramework.Application
    Dim objSolidEdgeInsightXT  As SolidEdgeFramework.SolidEdgeInsightXT
    
    Set objApplication = GetObject(, "SolidEdge.Application")
    Set objSolidEdgeInsightXT = objApplication.SolidEdgeInsightXT

    Dim varInputList(1) As Variant
    varInputList(0) = "F:\010088.par"
    varInputList(1) = "F:\010087.par"
    
    Dim bOnlyUpload As Boolean
    bOnlyUpload = False
    
    Call objSolidEdgeInsightXT.CheckInDocumentsToInsightXTServer(varInputList, bOnlyUpload)

    Set objSolidEdgeInsightXT = Nothing
    Set objApplication = Nothing
End Sub
See Also

SolidEdgeInsightXT Object  | SolidEdgeInsightXT Members  | Solid Edge ST4 - What's New