Dokument über Dialogbox erstellen und bearbeiten

[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. 

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

[Semeaphoros]

Die Maske selber kann sich nicht ändern, nur das Dokument, da haben wir aber wohl schon die Ursache, Du verwendest eine Maske für ein Hauptdokument und keine Antwortmaske, mach Sinn, dass eine solche Maske beim Abspeichern die Antwortreferenz entfernt.

[zhermann]

Ok,

sehe ich ein. Habe aber schon mehrere Masken auf die selbe weise benutzt. Der einzigste Unterschied ist, daß die anderen Masken nicht über eine Dialogbox erstellt werden.

Habe aber auch schon die Maske gleich zum Antwortdokument im Designer gemacht. Dabei ging beim zweitmal spichern auch die Referenz verloren. Notes mag es anscheinend nicht, ein Formuler/Maske über eine Dialogbox zu bearbeiten.

Gruß

Zsolt