Hi Bettina,
damit meinst Du das Selbe. Anbei ein Script als Beispiel aus dem SDE Paket, welches dieses bei Checkin und Release macht.
Gruß
Christian
Const NM_CLASS_STANDARD_CLASS_ID As Integer = 246
Function SetKeepLocalFile(ByVal ApplHndl As Long, ByVal SelectOp As String, ByVal FirstPar As Long, ByVal SecondPar As Long, ByVal ThirdPar As Long) As Integer
Dim SmSession As SmApplic.SmSession
Dim FirstRec As Object
Dim SecondRec As Object
Dim StandardDirectory As String
Dim DocumentDirectory As String
'
' Get the session and the first and second recordlist
Set SmSession = SCREXT_ObjectForInterface(ApplHndl)
CONV_RecListToComRecordList FirstPar, FirstRec
CONV_RecListToComRecordList SecondPar, SecondRec
'
' Read the SHARED_DIR value for SmarTeam
StandardDirectory = SmSession.Config.ReadValueAsString ("$ADMIN\Directory_Structure\SHARED_DIR", "")
'
' Get the directory from the actual document
DocumentDirectory = FirstRec.ValueAsString("DIRECTORY",0)
'
' In case the standard directory is in the path of the document directory
' enforce the SmarTeam to keep a local copy
If Instr(UCase(DocumentDirectory),UCase(StandardDirectory)) > 0 Then
If SecondRec.headers.headerexists(NM_TSK_KEEP_LOCAL_COPY) = TRUE Then
SecondRec.ValueAsSmallInt(NM_TSK_KEEP_LOCAL_COPY, 0) = 1
CONV_ComRecListToRecordList SecondRec, SecondPar
End If
End If
End Function
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de (alle Foren)
| 
