Domino 9 und frühere Versionen > ND6: Entwicklung

Dialogbox Response- doc erstellen

<< < (2/2)

Axel:
Hi,

aber sicher hast du noch ein Bezug zu den Feldern der Dialogbox. Das ganze Dokument ist noch im Speicher vorhanden und du kannst darauf zugreifen. So was hab ich schon x-mal gemacht.


Axel

robertpp:
Hab das Problem jetzt fast so gelöst wie ich es eh schon gehabt habe, war auch ein kleiner Denkfehler meiner Seite. Er kann mir ja nichts ins Hauptdoc zurückschreiben weil ich ja schon ein eigenes doc für die Dialogbox gemacht habe.

Sub Click(Source As Button)
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim pdoc As NotesDocument
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   Dim dlgdoc As NotesDocument
   Set dlgdoc = db.CreateDocument
   dlgdoc.Form = "breakdown"
   dlgdoc.ParentUNID =doc.UNID
   dlgdoc.ID =doc.ID(0)
   dlgdoc.SubProcess =doc.SubProcess(0)
   dlgdoc.SubProcessNr =doc.SubProcessNr(0)
   dlgdoc.Division= doc.Division(0)
   Call dlgdoc.Save(True,False)
   erg = ws.dialogBox("Breakdown",True,True,False,False,False,False,"Eingabe",dlgdoc,True,False,True)
   If erg <> False Then
      Set pdoc = db.GetDocumentByUNID(dlgdoc.ParentUNID(0))
      Call dlgdoc.MakeResponse( pdoc )
      Call dlgdoc.Save( True, False )
      Call uidoc.Refresh
   Else
      Call dlgdoc.Remove(True)
   End If
End Sub

Navigation

[0] Themen-Index

[*] Vorherige Sete