Ich bin soweit das er die Befehle ausführt
Wenn das geöffnete Dokument ausgecheckt ist, wird es eingecheckt.
Allerdings schreibt er das BSComment "Api Check in" nicht mit !?
Wenn es eingecheckt ist versucht er es auszuchecken.
Es kommt aber die Fehlermeldung :
"Es wurde versucht eine Datei zu öffnen die von einer anderen Anwendung geöffnet ist"
BTW das islocked werde ich noch, nach Nützlichkeit, in byuser oder on Computer ändern.
Kann mir jemand etwas dazu sagen ?
*******************************************************************************************************
Dim swApp As SldWorks.SldWorks
Dim ModelDoc As SldWorks.ModelDoc2
Dim SwModel As SldWorks.ModelDoc2
Dim Vault As EdmVault5
Dim BatchUpdate As IEdmBatchUpdate2
Dim efile As IEdmFile10
Dim Verz5 As IEdmFolder8
Dim VarMgr As IEdmVariableMgr5
Dim Var As IEdmVariable5
Dim Errors() As EdmBatchError2
Dim Filepath As String
Dim FoID As Long
Dim FiID As Integer
'Dim Doc As IEdmObject5
Dim part As Object
Sub main()
Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc
Set Vault = New EdmVault5
Call Vault.LoginAuto("AMF PDM", 0)
Set BatchUpdate = Vault.CreateUtility(EdmUtil_BatchUpdate)
Set efile = Vault.GetFileFromPath(part.GetPathName, Verz5)
FoID = Verz5.ID
Debug.Print (FoID)
Debug.Print (efile.ID)
If efile.IsLocked = False Then ' ist eingecheckt
Debug.Print ("Das Dokument ist eingechekt")
Call efile.LockFile(FoID, 0) 'auschecken
Else
Debug.Print ("Das Dokument ist ausgechekt")
Call efile.UnlockFile(0, "API Check in") 'einchecken
End If
End Sub
[Diese Nachricht wurde von defreez am 22. Aug. 2016 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP