Domino 9 und frühere Versionen > ND6: Entwicklung

Vererbung in Notes

<< < (2/3) > >>

smithy:
super, vielen dank

>> kann agenten auf dem system nur nachts laufen lassen, ansonsten krieg ich die db nicht genehmigt, sonst wäre vieles einfacher  ;)

Glombi:
Du brauchst doch keinen periodischen Agenten sondern nur einen der für gewählte Dokumente läuft. Von Design her ist das mit einer Aktion gleich zu setzen.

Andreas

smithy:
ich hoffe, das ist der letzte post für heute:

ich habe folgenden code auf den delete-Button gelegt

Sub Click(Source As Button)
               
                Dim session As New NotesSession
                REM Dim ws As New NotesUIWorkspace
                Dim db_this As notesDatabase
                REM Dim vw_current As NotesView
                Dim dc As notesDocumentCollection
                Dim dc_child As notesDocumentCollection
                Dim doc_child As Notesdocument
                Dim doc_parent As Notesdocument
               
                Set db_this = session.CurrentDatabase
                REM Set vw_current = db_this.GetView( "VW_custom" )
                Set dc = db_this.UnprocessedDocuments
                Set doc_parent = dc.getFirstDocument()
                Set dc_child = doc_parent.getResponses()
               
                Set doc_child = dc_child.GetFirstDocument()
               
                While Not (doc_child Is Nothing)
                        Call doc_child.RemovePermanently(True)
                        Set doc_child = dc_child.getNextDocument(doc_child)
                Wend
               
                Call doc_parent.RemovePermanently(True)
               
End Sub


und bekomme die fehlermeldung:

wrong number of array subscripts

ich weiß echt nicht mehr weiter ....

koehlerbv:

--- Code: ---               While Not (doc_child Is Nothing)
                        Call doc_child.RemovePermanently(True)
                        Set doc_child = dc_child.getNextDocument(doc_child)
                Wend
--- Ende Code ---

Da beisst sich die Karte auch in den Schwanz: Erst doc_Child löschen und dann doc_Child an GetNextDocument übergeben - das ist doch jetzt Nothing.

Du musst mit einem temporären NotesDocument arbeiten:
While Not ...
Set doc_Remove = doc_Child
Set doc_Child = .... GetNextDocument
Call doc_Remove.Remove....

HTH,
Bernhard

Glombi:
Statt
  Set dc_child = doc_parent.getResponses()
muss es
  Set dc_child = doc_parent.Responses
heissen.

Das getResponses() ist Java.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete