Ereignis - Anhangdatei

Ereignis - Anhangdatei

Aufruf eines Skripts vor dem Anlegen, Ändern oder Löschen einer Anhangdatei

Variablen gAfEvtAction int Aktion, die durchgeführt werden soll (siehe unten) gAfArc* variable Feldpuffer des Archivs gAfArcFile* variable Feldpuffer der Anhangdatei Resultat true Aktion wird durchgeführt false Aktion wird abgebrochen Siehe Liste aller Ereignisse, Ereignis - Arbeitsmappe, Ereignis - Archiv

Ist in den Einstellungen ein Skript eingetragen, wird es immer vor einer Aktion mit einer Anhangdatei aufgerufen.

Das eingetragene Skript wird auch dann ausgeführt, wenn keine Benutzerinteraktion möglich ist (zum Beispiel, wenn eine Arbeitsmappe durch ein Skript vom ArcFlow Jobserver erstellt wird). Innerhalb des Skriptes dürfen daher keine Benutzerabfragen verwendet werden.

Die Aktion, die durchgeführt werden soll, wird in der globalen Variablen gAfEvtAction übergeben und kann mit folgenden Konstanten verglichen werden:

Konstante	Wert	Beschreibung
sAfEvtArcFileAdd	71	Eine Anhangdatei soll dem Archiv hinzugefügt werden
sAfEvtArcFileEdit	72	Die Stammdaten der Anhangdatei sollen geändert werden
sAfEvtArcFileDelete	73	Eine Anhangdatei wurde gelöscht
sAfEvtArcFileRetrieve	74	Die Anhangdatei wurde durch eine vorhergehende Version ersetzt
sAfEvtArcFileReplace	75	Der Inhalt der Anhangdatei wurde geändert und eine Version erstellt

Bei dem Ereignis sAfEvtArcFileAdd stehen in den Variablen gAFArcFileNr und gAFArcFileName zwar die Anhangdateinummer und der Name der Anhangdatei zur Verfügung, diese können sich aber beim Speichern noch ändern.

Abhängig von der durchgeführten Aktion können mehrere Ereignisse aufgerufen werden. Wird zum Beispiel eine Handnotiz bearbeitet, wird das Ereignis vier mal aufgerufen: sAfEvtArcFileDelete, sAfEvtArcFileReplace, sAfEvtArcFileEdit, sAfEvtArcFileEdit.

Die Informationen zu dem Archiv und der Anhangdatei werden in folgenden Variablen übergeben:

Archiv-Informationen

gAfArcNr	alpha(12)	Archivnummer
gAfArcDocDate	date	Dokumentdatum
gAfArcScanDate	date	Scandatum
gAfArcCreateModul	alpha(80)	Erstellt durch Modul
gAfArcTypeString	alpha(250)	Archivtyp
gAfArcFilesCnt	int	Anzahl der Anhangdateien
gAfArcScanFilesCnt	int	Anzahl der Scan-Dateien
gAfArcFileSize	int	Dateigröße
gAfArcStorageYears	int	Aufbewahrungsfrist
gAfArcCaption	alpha(250)	Bezeichnung
gAfArcLocation	alpha(250)	Standort
gAfArcColor	int	Farbe zur Darstellung im Arbeitsmappenbaum

Informationen der Anhangdatei

gAfArcFileNr	int	Anhangdateinummer
gAfArcFileName	alpha(250)	Anhangdateiname
gAfArcFileDescr	alpha(250)	Beschreibung der Anhangdatei
gAfArcFileType	alpha(60)	Typ der Anhangdatei
gAfArcFileEditDate	date	Datum der letzten Aenderung der Anhangdatei
gAfArcFileEditTime	time	Zeit der letzten Aenderung der Anhangdatei
gAfArcFileSizeOrg	int	Größe der Anhangdatei (Original)
gAfArcFileSizeDba	int	Größe der Anhangdatei (Datenbank)
gAfArcFileModeEffect	int	Eigenschaft ModeEffekt bei Bildern
gAfArcFileState	int	Status der Anhangdatei (Vorhanden / Papierkorb / Gelöscht)
gAfArcFileCheckoutUser	alpha(25)	Benutzer, der die Anhangdatei ausgecheckt hat
gAfArcFileCheckoutDate	date	Datum an dem die Anhangdatei ausgecheckt wurde
gAfArcFileCheckoutTime	time	Zeit zu der die Anhangdatei ausgecheckt wurde

Beispiel:

main : logic;

  local
  {
  }

{
  switch (gAfEvtAction)
  {
    case sAfEvtArcFileAdd :
    {
      // create attachment file
      ...
    }
    case sAfEvtArcFileEdit :
    {
      // edit attachment file
      ...
    }
    case sAfEvtArcFileDelete :
    {
      // delete attachent file
      ...
    }
    case sAfEvtArcFileRetrieve :
    {
      // restore attachment file from  an earlier version
      ...
    }
    case sAfEvtArcFileReplace :
    {
      // replace existing attachment file with newer version
      ...
    }
    default :
    {
      // error: unknown action
      ...
    }
  }
  return(true);
}