Tapahtumakäsittelijät

Erilaisia esimerkkejä tapahtumakäsittelijöiden hyödyntämisestä

• Voidaan määrittää, että kun kohteen ominaisuuksia (metatietoja) muutetaan, myös kohteen suojausasetukset muuttuvat automaattisesti.
• Kun lisäät uuden projektin, lisää siihen tiettyjä perusdokumentteja ennalta määritetyn projektimallin kautta.
• Tallenna tietyt Word-tiedostot aina PDF-muodossa, jotta kun Word-tiedosto palautetaan muokkauksesta, tiedostosta tehdään palvelimella automaattisesti myös PDF-muodossa oleva versio.
• Valokuvaan liittyvät tiedot, kuten päivämäärä ja kuvan koko, voidaan automaattisesti lisätä valokuvadokumentin metatietoihin.
• Mikäli käyttäjä lisää uuden arvon arvolistaan, voidaan tapahtumakäsittelijän avulla tarkistaa, että lisättävä arvo on syötetty oikein.
• Sisäänkirjautumiset M-Filesiin voidaan estää työajan ulkopuolella, esimerkiksi yöllä ja viikonloppuisin.
• Tiettyjen tiedostojen lataamista voidaan seurata, suurien tiedostomäärien lataaminen voidaan estää tai epäilyttävistä lataamisista voidaan lähettää hälytys järjestelmänvalvojalle.

M-Files APIn dokumentaatio löytyy M-Filesin asennuksen jälkeen kohdasta Käynnistä > Ohjelmat > M-Files > Dokumentaatio > M-Files API. Lisätietoja VBScript-koodiin ja M-Files APIin liittyen saat osoitteesta [email protected]. VBScript-koodin kirjoittamiseen ja M-Files APIin liittyvä neuvonta ei kuulu teknisen tuen piiriin, vaan siitä veloitetaan erikseen.

Esimerkki

Tapahtumakäsittelijän avulla voidaan tarkistaa esimerkiksi uutta kohdetta luotaessa, onko varastossa jo valmiiksi tämän niminen kohde. Jos on, saa käyttäjä virheilmoituksen. Tällöin VBScript-koodi on muotoa (esimerkki vain englanniksi):

' The ID of the title property.

Dim titleProperty

titleProperty = MFBuiltInPropertyDefNameOrTitle

' Find the title property of the current object.

Dim currentTitleProp

currentTitleProp = PropertyValues.SearchForProperty(titleProperty)

' Get the title of the object.

Dim currentTitle

currentTitle = currentTitleProp.Value

' Search for objects on the basis of title.

Dim titleSearch

Set titleSearch = CreateObject("MFilesAPI.SearchCondition")

Dim titleExpression

Set titleExpression = CreateObject("MFilesAPI.Expression")

titleExpression.SetPropertyValueExpression titleProperty, MFParentChildBehaviorNone, Nothing

Dim titleTypedValue

Set titleTypedValue = CreateObject("MFilesAPI.TypedValue")

titleTypedValue.SetValue MFDatatypeText, currentTitle

titleSearch.Set titleExpression, MFConditionTypeEqual, titleTypedValue

Dim SearchResults

Set SearchResults = Vault.ObjectSearchOperations.SearchForObjectsByCondition(titleSearch, false)

' If an existing object with the same title was found, raise an error.

If SearchResults.Count > 1 Then

Err.Raise MFScriptCancel, _

"The document vault already contains an object with the same title."

End if