Domino 9 und frühere Versionen > Entwicklung

Befehl vom Arbeitsbereich aus nicht verfügbar (composedocument)

<< < (2/2)

Glombi:
Hi,
was passiert denn, wenn Du ein "Begleitschein" manuell erstellst? Evtl. liegt der Fehler in der Maske.
Dein Script ist eigentlich ok - ausser beim Speichern passiert was.

Andreas

Axel:
Hi,

ich hab das Script mal getestet und es funktioniert einwandfrei. Der Fehler muß woanders liegen, vielleicht, wie Glombi meint innerhalb der Begleitscheinmaske.

Axel

Sillik:
So, ich weiß jetzt zumindest worans liegt:

Wenn ich den save rauslass gehts. Aber ich brauch den save, weil ich die NotesID in den Begleitschein übergebe.
Wenn das Dokument aber schon vorher abspeichere, erneut aufrufe, und den Begleitschein dann aufrufe gehts aber. Es muss also irgendwas im Querysave sein, was mir reinpuscht.

Das is der Querysavecode den das Programm beim Speichern durchläuft:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim ws As New NotesUIWorkspace    
   
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   If note Is Nothing Then Set note = source.Document
   
   note.RemoveItem("SaveOptions")
   
   If note.NSubmitNow(0) = "1" Then NSubmitNow = True
   
'ParallelReviewCheck
   If note.ReviewType(0) = "2" And note.complete(0) = "1" Then
      Goto PContinue
   End If
   
   
'Serial review check: If we are not submitting for review, we don't need to do the rest of this    
   If (Not(NSubmitNow)  Or note.Status(0) = 3) And note.Resubmit(0) = "0" Then Exit Sub


Ich kenn mich da noch zu wenig aus. Ist da irgendwas an dem es liegen könnte?


[EDIT]
Ich habs grad getestet. Wenn ich beim Querysave ganz am Anfang nen Exit Sub mach, und quasi Querysave gar nicht ausgeführt wird kommt der fehler trotzdem. Ich glaub ich werd das ganze jetzt mit der Formelsprache machen, bevor ich da noch ewig rumsuche...

thx for help

Navigation

[0] Themen-Index

[*] Vorherige Sete