Domino 9 und frühere Versionen > ND6: Entwicklung

Document link für Dokumente einer anderen DB erzeugen

(1/2) > >>

js84:
Hallo @all,

ich möchte aus einer Form auf eine andere DB zugreifen. Aus dieser DB möchte ich Documente haben die ein bestimmtes Kriterium erfülllen (getAllDocumentsBykey) soweit so gut. In meiner Form möchte ich jetzt aber für die "matchenden" Dokumente ein Documentlink erzeugen. Dazu nachfolgender Code. Ich bekomme allerdings folgende Fehlermeldung:
"Couldn't get default View id for database".

Kann mir jemand helfen?

Dim rtitem2 As NotesRichTextItem
   Dim view As NotesView
   Dim ndc As NotesDocumentCollection
   Dim uidoc As NotesUIDocument
   Dim ws As New NotesUIWorkspace
   Dim db2 As NotesDatabase
   
   Dim doc As NotesDocument
   Dim doc_cur As NotesDocument
   
   Dim customer_in_pmr As String
   Dim var As Variant
   Dim pmr_nr As Variant
   
   Set db2= New NotesDatabase(servername,pfad zur ZielDB)   
   Set uidoc=ws.CurrentDocument
   Set doc_cur=uidoc.Document
   Set view=db2.GetView(viewname)
   
   
   Set rtitem2=doc_cur.GetFirstItem("pmr_doc_link")
   customer_in_pmr=uidoc.FieldGetText("Customer_in_PMR_DB")
   
   Set ndc=view.GetAllDocumentsByKey(customer_in_pmr,True)
   
   Set doc=ndc.GetFirstDocument()
   If ndc.Count<1 Then
      Msgbox "no pmrs"
   Else
      While Not doc Is Nothing
         pmr_nr=doc.GetItemValue("PMR")
         Set var = doc_cur.GetFirstItem("pmr_doc_link")
         
         
         Set doc = ndc.GetNextDocument ( doc )
      Wend
   End If
   
   
   
   


MfG Jana

Axel:
Hi,

hast du in den Datenbanken eine Vorgabeansicht definiert?

Das findest du in den Ansichten-Eigenschaften als Option "Vorgabe beim ersten Öffnen der Datenbank". Im Designer wird diese Ansicht dann mit einem blauen Pfeil gekennzeichnet.


Axel

js84:
Hi Axel,

also in der DB, aus der ich das ganze "steuere" ist eine Vorgabeansicht definiert in meiner Zieldb allerdings nicht. Das Problem ist, dass ich an der Zieldb nix ändern darf.

MfG
Jana

koehlerbv:
Eine DB ohne Vorgabeansicht ist schlecht - da sind weitere Probleme vorprogrammiert.

In welcher Zeile bekommst Du eigentlich genannte Fehlermeldung ? Und wo in Deinem Code dealst Du mit DocLinks ? Warum verwendest Du ein Variant als Variable für ein NotesItem ?

Bernhard

js84:
Hi,

sorry ich hab da ein Teil vergessen bzw. falsch gepostet :-[


also hier noch  mal das richtige, die Fehlermeldung kommt bei "Call rtitem2.AppendDocLink(doc,"")"


Dim rtitem2 As NotesRichTextItem
   Dim view As NotesView
   Dim ndc As NotesDocumentCollection
   Dim uidoc As NotesUIDocument
   Dim ws As New NotesUIWorkspace
   Dim db2 As NotesDatabase
   
   Dim doc As NotesDocument
   Dim doc_cur As NotesDocument
   
   Dim customer_in_pmr As String
   Dim var As Variant
   Dim pmr_nr As Variant
   
   Set db2= New NotesDatabase(servername,Pfad)   
   Set uidoc=ws.CurrentDocument
   Set doc_cur=uidoc.Document
   Set view=db2.GetView(viewname)
   
   
   Set rtitem2=doc_cur.GetFirstItem("pmr_doc_link")
   customer_in_pmr=uidoc.FieldGetText("Customer_in_PMR_DB")
   
   Set ndc=view.GetAllDocumentsByKey(customer_in_pmr,True)
   
   Set doc=ndc.GetFirstDocument()
   If ndc.Count<1 Then
      Msgbox "no pmrs"
   Else
      While Not doc Is Nothing
         pmr_nr=doc.GetItemValue("PMR")
         Call rtitem2.AppendDocLink(doc,"")
         
      Wend
   End If
   
   
   Tschuldigung für die Verwirrung, die ich gestifftet habe
   

Navigation

[0] Themen-Index

[#] Nächste Seite