FlowFact - Entwicklungstools

zurück

Function - BLOB_Add

^ Seitenanfang

Dateianhang hinzufügen


In der Regel werden Blob-Einträge zu Aktivitäten gespeichert. Es ist auch möglich Dateiinhalte zu anderen Haupttabellen zu speichern. Hinweis: Das Wort 'Link' in strLinkDsn bezieht sich auf die verbundene Haupttabelle und in blnAsLink ist die Verknüpfung zu einer Datei gemeint.
  Function BLOB_Add(ByVal strFileName As String, ByVal strLinkDsn As String, ByVal blnAsLink As Boolean, ByVal blnMarkSend As Boolean) As String  
 


strFileName: Dateiname
strLinkDsn: Datensatznummer (DSN) i.A. der Tabelle AKT.
blnAsLink: True => Nur den Verweis (Dateinamen) speichern; FALSE => Dateiinhalt in der Datenbank speichern.
blnMarkSend: True => Markierung zum versenden setzen. Gemeint ist das Häkchen im Aktivitätenfenster/Anhänge/Versenden, d.h. Dateien werden beim eMailversand mit versendet.
Rückgabe: Datensatznummer (DSN), des neu erzeugten BLOB-Datensatzes


Public Function BLOB_Add(ByVal strFileName As String, ByVal strLinkDsn As String, ByVal blnAsLink As Boolean, ByVal blnMarkSend As Boolean) As String
    Dim strBlobDsn As String
    Dim enumBlobType As ENUM_BLOBTYPE

    enumBlobType = IIf(blnAsLink, BLOBTYPE_ATTACHMENTLINK, BLOBTYPE_ATTACHMENT)

    strBlobDsn = m_oBlob.SaveBlobFile(strFileName, strLinkDsn, enumBlobType)

    If blnMarkSend Then
        strBlobDsn = m_oBlob.SaveBlobFile(strFileName, strLinkDsn, enumBlobType, strBlobDsn, True)
    End If

    BLOB_Add = strBlobDsn
End Function