Domino 9 und frühere Versionen > ND8: Entwicklung

embedded view mit ausgewählten dokumenten

<< < (4/4)

ascabg:
Also.

Die Hast eine Collection (dc) erstellt.
Willst Du nun auf die einzelnen Dokumente in dieser zugreifen, so musst Du ein NotesDocument haben.

Dim doc As NotesDocument
Set doc = dc.GetFirstDocument

Steht aber auch alles in der Designer-Hilfe, auch mit schoenen Beispielen.


Andreas

ditodotorg:
ich nehme an, dass er folgendes problem hat....

ich bin in der form x
habe dort den button, der die genannte programmirung enthält
nun bezieht sich die programmierung aber auf eine view, dessen dokumente wieder aus einer ganz anderen form her resultieren
alle dokumente sind aber durch eine patienten-id miteinander verbunden....

ich nehme an, dass die bezeichnungen für die patienten-id's sich irgendwie nicht verstehen....
doch was kann ich da tun?

ditodotorg:
Hallo liebe Notes-Experten,

Habe die vorherige Programmierung mal komplett umgewandelt....
Erfolg: Es ist keinerlei Fehler aufgetreten, aber funktionieren tut es trotzdem nicht :-(
Kann bitte jemand drüber schauen?

Sub Click(Source As Button)
   Dim session As NotesSession
   Dim db As notesdatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim ws As notesuiworkspace
   Dim uidoc As NotesUIDocument
   Dim cert As Variant
   Dim bill As String
   Dim docdate As Variant
   Dim uimonth As Variant
   
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set view = db.GetView("Untersuchungskartei")
   Set doc = view.GetFirstDocument
   cert = doc.GetItemValue("profile_doc")
   docdate = doc.GetItemValue("date_doc")
   
   Set ws = New NotesUIWorkspace
   Set uidoc = ws.CurrentDocument
   bill = uidoc.FieldGetText("patient_number")
   uimonth = uidoc.FieldGetText("month_bill")
   
   While Not (doc Is Nothing)
      If Cstr(cert(0)) = bill Then
         If Month(docdate(0)) = Month(uimonth) Then
            doc.PutInFolder "Untersuchungen"
         Else
            Messagebox("Bitte geben Sie den Abrechnungsmonat an!")
         End If
         Messagebox("ein fehler ist aufgetreten")
      End If
      ws.ViewRefresh
      Set doc = view.GetNextDocument(doc)
   Wend
   
End Sub

Thomas Schulte:
Ein ganz einfacher Tipp....

Geh mit dem Debugger drüber und schau nach, ob du a. überhaupt Dokumente zum Verarbeiten hast und ob die b. im Folder landen.

Navigation

[0] Themen-Index

[*] Vorherige Sete