---

Hallo zusammen,
ich habe in unserer Datenbank für Folder den Revisionsmechanismus abgeschaltet (im Data Model Designer das Häkchen Revision Control wegenommen). Trotzdem erhält jeder neu angelegte Ordner eine Revision (a.0)!
Noch ein Hinweis: Anders als in der SmDemo ist unsere RevisionMask so eingestellt, dass jedes neu angelegte Dokument sofort mit Revision a.0 anfängt. Das sollte doch aber nur für versionierte Objekte gelten?!
Was mache ich falsch? Weiß jemand eine Lösung? Freue mich über jeden Hinweis!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
das ist IMHO standardmäßig so (bei uns gibt's diesen Effekt jedenfalls auch).

Daher haben wir im AfterAdd-Hook der Klasse "Folder" ein Skript, das die Revision löscht:

Code:

---

Function DelRev(ApplHndl As Long,Sstr As String, Reclst1 As Long, Reclst2 As Long, Reclst3 As Long ) As Integer
Dim Session As ISmSession
Dim FirstRec  As Object
Dim outp As Integer

On Error GoTo ErrHandler

'Converting ApplHndl to SmSession
Set Session = SCREXT_ObjectForInterface(ApplHndl)
'Converting three record lists into COM SmRecordList objects
CONV_RecListToComRecordList Reclst1,FirstRec

Dim pCLS As ismclass
Dim pRecord As Object
Dim pObj As ismobject
Dim behave As IsmBehavior

Set pCLS = Session.MetaInfo.SmClass(FirstRec.getRecord(0).Value("CLASS_ID"))
If Not pCLS.RevisionManaged Then
Set pRecord = FirstRec.getRecord(0)
If pRecord.Headers.HeaderExists("REVISION") Then
If Len(trim$(pRecord.Value("REVISION")))>0 Then
Set pObj = Session.ObjectStore.ObjectFromData(pRecord, true)
pObj.retrieve
pObj.data.Value("REVISION") = ""

Set behave = Session.ObjectStore.DefaultBehavior.Clone
behave.CheckAuthorization = False
behave.InvokeScripts = False
behave.ConfirmOperations = coYesToAll
pObj.updateEx behave
End If
End If
Else
'msgbox "Revision unchanged"
End If

outp = Err_None
GoTo ReleaseRLs

ErrHandler:
MsgBox "Fehler-Nr.: " & Err.Number _
& Chr$(13) & "Fehlerart:  " & Err.Description _
  & Chr$(13) & "Funktion:  " & myfunc, _
ebCritical, "DelRev - Kritischer Skriptfehler"
        outp = Err_Gen
        Resume ReleaseRLs
 
ReleaseRLs:
Set Session = Nothing
Set FirstRec = Nothing

DelRev = outp
End Function

---

Gruß,
Martin

[Diese Nachricht wurde von MartinKirchmayer am 10. Okt. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Martin,

besten Dank für die Hilfe! Habe das Script gleich eingebunden - es klappt super.
Danke!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP