Domino 9 und frühere Versionen > ND6: Entwicklung

Dokument über Dialogbox erstellen und bearbeiten

(1/2) > >>

zhermann:
Hallo @All,

habe da wiedermal ein Problemchen.

Also am Anfang:

Es war einmal ein Programmierer, der möchte das ein bestimmtes Dokument über eine Dialogbox erstellt wird. Beim Speichern wird das Dokument als Anwort-Dokument auf ein im Vorfeld oder in der Dialogbox ausgewähltes Hauptdokument gespeichert. Soweit läuft alles Super.  :D

Wenn jetzt das Dokument nochmal über die gleiche Dialogbox aufgerufen wird und gespeichert wird, geht die "Antwort-Verlinkung" verloren.

Hat da einer eine Idee für den armen Programmierer?  ???

Gruß

Zsolt

Semeaphoros:
Was steht denn im Query-Save?

zhermann:
Hallo Semeaphoros,

nix, da ich alles über einen eigenen Botton in der Dialogbox mache.

Habe es (glaube ich) gefunden. Ich muß die Antwort-Verlinkung anscheinend wieder neu setzen, warum auch immer? Ich dachte immer das die bestehen bleibt, wenn sie einmal gesetzt ist!?!

Jetzt habe ich aber das Problem, dass wenn ich das Dokument gleich nach dem zweiten speichern wieder öffne, sind die Änderungen im Dokument noch nicht sichtbar. Erst wenn das Hauptdokument geöffnet wurde sind auch die Änderungen im Antwortdokument sichtbar. Ich denke das ich da noch irgendwie ein Refresh einbauen muß.

Gruß Zsolt

Hier mal der Code:

Sub Click(Source As Button)

' Grundlegene DIM - Anweisungen werden im Declarationteil gesetzt ! ! !    
   Set Frontnote = ws.CurrentDocument
   
   If Frontnote.FieldGetText("Termingespeichert") <> "JA" Then
      Set BackNote = db.CreateDocument
      With Backnote
         Call .AppendItemValue("Form", "Termin")
         Call .AppendItemValue("T_Betreff", FrontNote.FieldGetText("T_Betreff") )
         Call .AppendItemValue("T_StartDatum", FrontNote.FieldGetText("T_StartDatum") )
         Call .AppendItemValue("T_EndDatum", FrontNote.FieldGetText("T_EndDatum") )
         Call .AppendItemValue("T_StartZeit", FrontNote.FieldGetText("T_StartZeit") )
         Call .AppendItemValue("T_EndZeit", FrontNote.FieldGetText("T_EndZeit") )
         Call .AppendItemValue("Terminart", FrontNote.FieldGetText("Terminart") )
         Call .AppendItemValue("F_Name", FrontNote.FieldGetText("F_Name") )
         Call .AppendItemValue("F_Strasse", FrontNote.FieldGetText("F_Strasse") )
         Call .AppendItemValue("F_PLZ", FrontNote.FieldGetText("F_PLZ") )
         Call .AppendItemValue("F_Ort", FrontNote.FieldGetText("F_Ort") )
         Call .AppendItemValue("P_Vorname", FrontNote.FieldGetText("P_Vorname") )
         Call .AppendItemValue("P_Nachname", FrontNote.FieldGetText("P_Nachname") )
         Call .AppendItemValue("P_Telefon", FrontNote.FieldGetText("P_Telefon") )
         Call .AppendItemValue("P_Telefax", FrontNote.FieldGetText("P_Telefax") )
         Call .AppendItemValue("P_eMail", FrontNote.FieldGetText("P_eMail") )
         Call .AppendItemValue("ParentDocID", PDoc )
         Call .AppendItemValue("Termingespeichert", "JA")
      End With
   Else
      Call FrontNote.Save()
      Set CallDoc = db.GetDocumentByUNID(FrontNote.FieldGetText("ParentDocID") )
      Set Backnote = frontnote.Document
   End If
   Call Backnote.MakeResponse(CallDoc)
   Call Backnote.Save(True, True, True)
   uiView.View.Refresh
   FrontNote.Close
End Sub

Semeaphoros:
Was ist denn das für ein Maskentyp? Der sollte doch in diesem Fall Antwort oder Antwort-auf-Antwort sein.

zhermann:
Hallo,

beim öffnen zum erstellen, ist es eertmal eine normale Maske. Erst beim speichern wird es zur Antwort.

Gruß

Zsolt

Navigation

[0] Themen-Index

[#] Nächste Seite