Autor Thema: Agent - Felder ändern  (Gelesen 1236 mal)

Offline Raimund

  • Junior Mitglied
  • **
  • Beiträge: 83
  • Geschlecht: Männlich
Agent - Felder ändern
« am: 08.07.02 - 09:10:12 »
Hi Entwickler!

Folgendes Problem:

Habe 3 Masken:
1. Firma - Dokument
2. Person - Rückantwort
3. Produkt - Rückantwort

Wenn ich jetzt in der Maske Firma den Firmennamen ändern will, so sollen alle Unterdokumente, welche auch den Firmennamen haben, geändert werden.

Momentan habe ich das so gelöst:

Agent: SetCompany

FIELD companyname:= @Environment( "Company");SELECT @All

Bedeutet im Klartext - ich muss alle Unterdokumente markieren und den Agensten ausführen. Funktioniert auch prima.

Gibt es jedoch eine Möglichkeit, dass automatisch alle Rückantworten des Hauptdokumentes, ohne alle markieren zu müssen, mit den neuen Firmennamen aktualisiert werden?

Vielen Dank

Gruß
Raimund
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: Agent - Felder ändern
« Antwort #1 am: 08.07.02 - 10:10:46 »
Hi,

das ist kein großes Problem.

Erstelle innerhalb der Hauptmaske folgende Routine:

Sub UpdateResponseDoc(doc As NotesDocument)

Dim collection As NotesdocumentCollection
Dim responsedoc As NotesDocument
Dim i As Integer

Set collection = doc.Responses
For i = 1 To collection.Count
 Set responsedoc = collection.GetNthDocument(i)              
 responsedoc.Company = doc.Company
 Call responsedoc.Save(True, False)
Next

End Sub

Im QuerySave-Event rufst du die Routine dann auf

Call UpdateResponseDoc(Source.Document)

Ich hoffe das hilft dir weiter.

Axel
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline Raimund

  • Junior Mitglied
  • **
  • Beiträge: 83
  • Geschlecht: Männlich
Re: Agent - Felder ändern
« Antwort #2 am: 08.07.02 - 10:38:21 »
Hi Axel,

vielen Dank.
Werde es gleich ausprobieren.

Bin halt noch ein Anfänger  :'(

Gruß
Raimund
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

feel_x

  • Gast
Re: Agent - Felder ändern
« Antwort #3 am: 11.04.03 - 11:56:03 »
Hi,

das ist kein großes Problem.

Erstelle innerhalb der Hauptmaske folgende Routine:

Sub UpdateResponseDoc(doc As NotesDocument)

Dim collection As NotesdocumentCollection
Dim responsedoc As NotesDocument
Dim i As Integer

Set collection = doc.Responses
For i = 1 To collection.Count
  Set responsedoc = collection.GetNthDocument(i)              
  responsedoc.Company = doc.Company
  Call responsedoc.Save(True, False)
Next

End Sub

Im QuerySave-Event rufst du die Routine dann auf

Call UpdateResponseDoc(Source.Document)

Ich hoffe das hilft dir weiter.

Axel


Hallo,
kann man diese Routine - genau umgekehrt - auch für die Änderung oder Aktualisieung des Hauptdokumentes bei Änderung des Unterdokumentes verwenden?
öffnen - aktualisieren - speichern würde reichen.

:)

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Agent - Felder ändern
« Antwort #4 am: 11.04.03 - 13:45:32 »
... zur Korrektur des Hauptdokumentes würde ich mit @SetDocField arbeiten. Die DocID des Hauptdokumentes liegt ja vor...

ata
Grüßle Toni :)

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz