Autor Thema: Dateien importieren wie bei Datei laden  (Gelesen 2865 mal)

Offline Badhei

  • Junior Mitglied
  • **
  • Beiträge: 56
  • Geschlecht: Männlich
Dateien importieren wie bei Datei laden
« am: 21.11.16 - 11:46:26 »
Hallo Zusammen,

ich habe ein Problem bei importieren von Attachements.

In unserer Anwendung werden über eine Weboberfläche Anhänge mit dem Standard Button "Datei laden" an ein Dokument angehängt. Dafür wird ja dann im Dokument das Feld $File automatisch erzeugt.

Nun müssen aber Anhänge importiert werden.
Dazu habe ich folgenden Code geschrieben:

.
.
.

If Dir$(importpath(0) + "\" + motornr, ATTR_DIRECTORY) <> ""

            fileName$ = Dir$(importpath(0) + "\" + motornr + "\*.*", ATTR_NORMAL)
            Do While fileName$ <> ""
               Set andoc = New NotesDocument(attdb)
               andoc.form = "frmAnhang"
               andoc.hid_FremdID = copdoc.hid_ID(0)
               andoc.hid_excludedFiletype = "exe; cab; msi"
               andoc.fldAnhangKurzbezeichnung = "Nachträglicher Datenimport"
               andoc.SAVEOPTIONS = "1"
               andoc.OpenerObj = "1"
               andoc.hid_UserRole = "1"
               andoc.hid_StatusNr = "3"
               andoc.Create = CStr(Now)
               andoc.hid_AnhangErsteller = ses.Username

               Set rtitem = New NotesRichTextItem( andoc, "$file" )
               Call rtitem.EmbedObject( EMBED_ATTACHMENT, "", importpath(0) + "\" + motornr + "\" + fileName$)


               fileName$ = Dir$()

               Call andoc.save(True,True)
            Loop         
            
         End If

...

Dazu erzeuge ich ein Richtext Feld mit dem Namen $File und hänge dann den Anhang an das Feld.

Mein Problem ist nun das der Anhang nun in der Weboberfläche nicht angezeigt wird, so wie er das mit dem Button "Datei laden" wird.

Wenn ich mir die Feldeigenschaften nun anschaue sehen die wie folgt aus.

Hier habe ich als Typ Angehängtes Objekt über den Button "Datei laden".
Feldname: $FILE
Datentyp: Angehängtes Objekt
Datenlänge: 62 Byte
Seq.-Num.: 1
Doppeleintrags-ID: 0
Feld-Flags: ATTACH SIGN SEAL SUMMARY

Über meinen Agenten hat das Feld richtigerweise den Typ Rich Text.
Feldname: $FILE
Datentyp: Rich Text
Datenlänge: 6370 Byte
Seq.-Num.: 1
Doppeleintrags-ID: 0
Feld-Flags: SIGN SEAL


Wie kann ich den Typ in Angehängtes Objekt ändern? Oder die Anhänge so importieren das ich direkt ein angehängtes Objekt bekomme?

Offline Peter Klett

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.713
  • Geschlecht: Männlich
Re: Dateien importieren wie bei Datei laden
« Antwort #1 am: 21.11.16 - 12:14:08 »
$File ist kein RichtextItem, sondern enthält den Verweis auf die Datei. Auch Eure Webanwendung wird die Datei an ein RichtextItem anhängen, und an das gleiche Item hängst Du die Dateianhänge. Wie das Item heißt, musst Du in der Anwendung nachschauen, aber es heißt auf keinen Fall $File.

Offline Badhei

  • Junior Mitglied
  • **
  • Beiträge: 56
  • Geschlecht: Männlich
Re: Dateien importieren wie bei Datei laden
« Antwort #2 am: 21.11.16 - 13:09:01 »
... Ich muß Dir da leider etwas widersprechen. Mit dem Standard Button "Datei laden" habe ich kein Item in dem die Anhänge abgelegt werden. Er erzeugt direkt das $File Item.

Ich habe es jetzt so gelöst das ich ein neues RT Feld über meinen Agenten erzeuge und dort die Anhänge ablege. Dadurch wird dann das $File Item erzeugt, in dem ich dann die Anhänge finde.
Ich habe jetzt zwar ein zusätzliches Feld bei den importierten Dokumenten, das sollte aber nicht weiter stören.

Offline bikerboy

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.155
  • Geschlecht: Männlich
Re: Dateien importieren wie bei Datei laden
« Antwort #3 am: 07.12.16 - 14:38:44 »
Hi

ich mache das hier immer ein bisschen einfacher, mit einem Eval({@Attachmentsnames}) hole ich mir die Liste der Attachments und dann kannst du glaube aus dem notesdocument.getAttachmentbyName() die zuvor erstellte Liste holen.

Ist gerade aus dem Kopf rekonstruiert, kann bei bedarf auch den Code pasten
Robert Kreutzer

Anwendungsentwicklung

"Jeder Idiot kann was kompliziertes bauen, es Bedarf eines Genie für etwas einfaches"

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz