Domino 9 und frühere Versionen > Entwicklung

Index einer View

<< < (7/7)

7Stein:
Ich kann da kene Dokumente rausnehmen, aber wenn ads geht schicke ich dir meine spiele db. Aber da wäre es schon gut - glaube ich - wenn ich die heir nicht öffentlich ins Forum setze, sondern wenn ich die an deine private eMail Adresse schicken könnte.

TMC:
Kein Problem, eMail-Adresse steht in meinem Profil.

TMC:
OK, die DB ist mittlerweile angekommen (auch wenn sie 'etwas' größer war)  :)

Mittlerweile blicke ich auch was Du meinst dank der DB.

Um das ganze nochmal einzugrenzen:
Wenn in der embedded View nur 1 Dok ist, willst Du beim Klick auf den Button "Liefermenge Ändern" auch gleich das Dokument anzeigen lassen !?

Hier eine mögliche Umsetzung, kannste 1:1 in den Buhtong kopieren:

--- Code: ---Sub Click(Source As Button)
   Dim docDetail As NotesDocument      
   Dim viewForRefresh As NotesView
   Dim view2 As NotesView      
   Dim strPos As String   
   Dim coll As NotesDocumentCollection
   Dim vOK As Variant
   
   Set viewForRefresh = db.GetView( "(LieferPositionen)" )
   Set view2 = db.GetView( "(BestellPositionenByKey)")
   Call view2.Refresh()
   Set coll = view2.GetAllDocumentsByKey(thisDoc.UniversalID)
   
   Select Case coll.Count
   Case 0:
      Msgbox "Keine Position vorhanden.", 48, db.title   
   Case 1:   
      Set docDetail = coll.GetFirstDocument
   Case Else:
      strPos = Inputbox$( "Welche Position bearbeiten?", "Position bearbeiten", "1" )
      If strPos = "" Then Exit Sub
      Set docDetail = view2.GetDocumentByKey( thisDoc.UniversalID + "-" + strPos )
      If docDetail Is Nothing Then
         Messagebox( "Position nicht vorhanden." )
         Exit Sub
      End If
   End Select
   
   vOK = ws.Dialogbox( "LieferPosEdit", True, True, False, False, False, False, "Bestellposition bearbeiten", docDetail )
   
   If vOK = True Then
      Call docDetail.Save( True, True )
      Call viewForRefresh.Refresh()
      Call uiDoc.Refresh()
   End If
   
End Sub
--- Ende Code ---

Was mir hier noch nicht gefällt, dass zweimal ein GetDocByKey läuft, da Du die Docs eh schon in der Collection hättest. Soll aber auch nur ein Beispiel sein.

Matthias

7Stein:
DANKE!!!!!!!

Das klappt ja jetzt endlich!!!!!

Ich hoffe ich war nicht zu nervig mit meiner Fragerei und meiner Meinung, dass das doch funktionieren muss.

Kann ich meinem Kollegen nach dem Urlaub doch sagen, dass das funktioniert.
 ;D freu!!!!

Navigation

[0] Themen-Index

[*] Vorherige Sete