Canceling document's check-out

[Owner2229]

Hi, I'm looking for a programmatic way of canceling document's check-out status.

The check-out status can be found in iProperties on "Status" tab, down in the "File status" field.

In the past we've used in our company some shared projects, so we don't overwrite our work and the status stayed written in some of the documents.

Now, here are the problems:

A) When someone opens any of these documents, they won't be allowed to save any changes since the document is checked out for someone else and no-one can neither check it back nor force the check out, since it's not enabled in the single-user project.

B) When I'm programmatically trying to replace the mentioned file's references (in apprentice) I'll get a generic error "parameter is not correct".

I've tried all of the following and in some cases it actually would replace one or two references (due to an error, I guess, since for every reference works a different or none of the listed methods), but that is way below reliable.

Dim oDoc As Inventor.ApprenticeServerDocument = ...
Dim Position As Integer = ...
oDoc.File.ReferencedFileDescriptors(Position).ReplaceReference("%New path%")
oDoc.ReferencedDocumentDescriptors(Position).ReferencedFileDescriptor.ReplaceReference("%New path%")
oDoc.ReferencedFileDescriptors(Position).PutLogicalFileNameUsingFull("%New path%")
oDoc.ReferencedFileDescriptors(Position).PutLogicalFileNameUsingFullSpl("%New path%")

Thanks for any help of leads to solution.

[MechMachineMan]

If this is the "file is reserved" issue, here is a script you can run that will "fix it". I had tried programmatically other ways, but couldn't find anything.

It could be removed manually by doing a SaveCopyAs on the file, so I resorted to this workaround.

Sub Main()

	Dim oTempFolder As String = System.IO.Path.GetTempPath() 'ending with \

	Dim oDoc As Document
	oDoc = ThisApplication.ActiveDocument

	If oDoc.ReservedForWrite = True
		resp = MsgBox("File is reserved for write. Remove this?", vbYesNo, "MMM iLogics")
	Else
		resp = MsgBox("File is NOT reserved for write. Save a duplicate copy over this file?", vbYesNo, "JRK iLogics")
	End If

	If resp = vbYes
		oFName = oDoc.FullFileName
		oTempFileName = oTempFolder & System.IO.Path.GetFileName(oFName)
		
		oDoc.SaveAs(oTempFileName, True)
		oDoc.SaveAs(oTempFolder & "[BACKUP]" & System.IO.Path.GetFileName(oFName), True)
		
		'Process.Start(oTempFolder)
		
		System.IO.File.Delete(oFName)
		System.IO.File.Move(oTempFileName, oFName)
		
		ThisApplication.FileManager.RefreshAllDocuments()
	End If
End Sub