Fragen zu 1.0.10

[regedit]

Hast Du einen Eintrag im Konfig-Dokument TICKET LABELS?

die Zeile:

lblTicketStatus=0|offen~1|aktiv~97|Wiedervorlage~98|storniert~99|abgeschlossen

Rechts oben im Ticket wird der aktuelle Status des Tickets angezeigt.

[Fehno]

Danke mir hat nicht der Eintrag gefehlt, sondern nur die Zuweisung zur Nr. 97 !

Und wie äußert sich die Wiedervorlage ?

[Thomas Schulte]

Es gibt aktuell zwei Ansichten, "ResubmissionsByDate" und "MineResubmissionsByDate" die nur Dokumente die auf Wiedervorlage liegen anzeigen.
Beide Ansichten sind nicht direkt in der Navigation verankert sondern müssen über die konfigurierbaren Navigations Ergänzungen eingestellt werden.

[Bilbo10]

Hallo zusammen!

Nach dem Update auf 1.0.10 (Final) von der Beta 1.0.10 bekomme ich folgende Meldung
nach dem Öffnen vorhandener Tickets bzw. wenn ich ein neues Ticket erstellen will:

Field: 'SetValidation':Eintry not found in index

[eknori]

Ich nehme an, daß dir ein paar Konfigurationsdokumente fehlen

[Bilbo10]

Jau!  Danke schön!!

Da haben mir zwei ValidationDocs gefehlt. ValidationMail war vorhanden.
Hatte die Schlüssel importiert.

[regedit]

Ich wollte die Maske Helpdeskanffrage in einer Notes-Startseite mit einbinden.

Ist es möglich, das Ticket einzureichen (@mailsend), ohne dass das Dokument gespeichert wird?

Bei meinen Versuchen dies zu lösen bekam ich nur eine lästige Fehlermeldung, ob ich das Dokument speichern möchte.

[Thomas Schulte]

Mööp nein.

@MailSend speichert das zu versendende Dokument immer ab.

[regedit]

Mööp nein.

@MailSend speichert das zu versendende Dokument immer ab.

Ups, schade

Dann muss ich mir etwas anderes überlegen, dass die Startseite nicht mit Dokumenten "überflutet" wird.

[Thomas Schulte]

Oh es geht schon, sogar relativ einfach wenn du anstelle der Formel zum versenden des Dokumentes LotusScript nimmst. Da kannst du ja auch die document Instanz des uidocs gehen und das dann versenden. Ob und was er da dann alles mitnimmt (rtFelder) musst du dann überprüfen. Notfalls kannst du ja das uidoc speichern und senden und dann gleich wieder löschen. Das ist zwar nicht die feine englische Art aber funktionieren würde das so schon.

[regedit]

Oh es geht schon, sogar relativ einfach wenn du anstelle der Formel zum versenden des Dokumentes LotusScript nimmst. Da kannst du ja auch die document Instanz des uidocs gehen und das dann versenden. Ob und was er da dann alles mitnimmt (rtFelder) musst du dann überprüfen. Notfalls kannst du ja das uidoc speichern und senden und dann gleich wieder löschen. Das ist zwar nicht die feine englische Art aber funktionieren würde das so schon.

Wo wir wieder bei dem Problem Script sind     
Weil, kein Plan 

[Thomas Schulte]

Wo wir wieder bei dem Problem Script sind
Weil, kein Plan

Womit ich wieder bei dem Problem bin, wo endet der Support eines Open Source Projektes und wo beginnt die eigentlich kostenpflichtige Beratungstätigkeit.

[regedit]

Womit ich wieder bei dem Problem bin, wo endet der Support eines Open Source Projektes und wo beginnt die eigentlich kostenpflichtige Beratungstätigkeit.

Oder so. 
Naja jetzt mal im ernst. Ich werde dies als Anlaß nehmen, um mich in Script
ein wenig einzuarbeiten.

Danke und Gruß

[regedit]

Oh es geht schon, sogar relativ einfach wenn du anstelle der Formel zum versenden des Dokumentes LotusScript nimmst. Da kannst du ja auch die document Instanz des uidocs gehen und das dann versenden. Ob und was er da dann alles mitnimmt (rtFelder) musst du dann überprüfen. Notfalls kannst du ja das uidoc speichern und senden und dann gleich wieder löschen. Das ist zwar nicht die feine englische Art aber funktionieren würde das so schon.

HILFE, 

So, ich habe jetzt die ganze Zeit an unten dem Script gebastelt und komme einfach nicht mehr weiter.
Erstens:
Wie kann ich das Popup Mail senden: Senden oder Abbrechen unterbinden?
Zweitens:
Wie kann ich das Popup "Möchten Sie Ihre Änderungen speichern?" beim schließen des Dokumentes unterbinden?
Drittens:
Es wird kein Dokument gelöscht er springt im Debugger bei jedem Dokument in der Ansicht Helpdeskanfrage auf Msgbox "Kein Dokument gefunden!"

Sub Click(Source As Button)
   
   Dim ws As New NotesUIWorkspace   
   Dim s As New NotesSession   
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   
   Set doc2 = ws.CurrentDocument
   
   Call doc2.Save
   Call doc2.Send
   Call doc2.Close (True)
   
   Set db = s.currentDatabase
   Set view = db.GetView ("Helpdeskanfrage")
   Set doc = view.GetFirstDocument
      
   While Not (doc Is Nothing)
      If doc.form (0) = "newbugreport" Then
         Msgbox "Dokument wird gelöscht!"
         Call doc.Remove (True)
      Else
         Msgbox "Kein Dokument gefunden!"
      End If
      Set doc = view.GetNextDocument (doc)
      
   Wend
            
End Sub

[Thomas Schulte]

Erstens:
Wie kann ich das Popup Mail senden: Senden oder Abbrechen unterbinden?
Zweitens:
Wie kann ich das Popup "Möchten Sie Ihre Änderungen speichern?" beim schließen des Dokumentes unterbinden?
Drittens:
Es wird kein Dokument gelöscht er springt im Debugger bei jedem Dokument in der Ansicht Helpdeskanfrage auf Msgbox "Kein Dokument gefunden!"

Erstens: Gar nicht. Das ist in die uidoc.send Methode integriert. Da müsstest du schon auf das Backend ausweichen um das hinzubekommen.

Zweitens: Indem du erst das Backend Dokument speicherst und dann das Frontend document schließt.

Drittens: Kein Wunder, schließlich müsstest du dem View erst einmal die Möglichkeit geben sich zu refreshen, damit er das Dokument das du gerade gespeichert hast überhaupt sieht.

Wenn du erstens ignorierst, dann kommt das hier dabei raus und damit ist zweitens und drittens erledigt.

Sub Click(Source As Button)
   
   Dim ws As New NotesUIWorkspace   
   Dim s As New NotesSession   
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   
   Set doc2 = ws.CurrentDocument
   
   Call doc2.document.Save(true,false)
        Set doc =doc2.document
   Call doc2.Send
   Call doc2.Close (True)
   
        Call doc.remove(true)
            
End Sub

[regedit]

@Thomas
Danke für die Hilfe.
Ich habe das script so abgeändert, wie Du es beschrieben hast.
Beim Aufruf: Call doc.remove(true) kommt allerdings die Fehlermeldung:
"Cannot remove NotesDocument when instantiated by NotesUIDocument"

Hab ich da etwas falsch gemacht???
   

[Thomas Schulte]

Nein nicht wirklich. Mist da musst du dann doch noch anders vorgehen.

Code

Sub Click(Source As Button)
   
   Dim ws As New NotesUIWorkspace   
   Dim s As New NotesSession   
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   Dim docunid As String
   Dim removedoc As notesdocument
   
   Set db = session.currentdatabase
   Set doc =doc2.document
   Set doc2 = ws.CurrentDocument
   
   Call doc2.document.Save(true,false)
   Set doc =doc2.document
   docunid = doc2.universalid
   Call doc2.Send
   Call doc2.Close (True)
   
   Set removedoc = db.getdocumentbyunid(docunid)
   Call removedoc.remove(true)
            
End Sub

[regedit]

Damit das Script ohne Fehlermeldung durchläuft, habe ich ihn so abgeändert:

Sub Click(Source As Button)
   
   Dim ws As New NotesUIWorkspace   
   Dim s As New NotesSession   
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   Dim docunid As String
   Dim removedoc As notesdocument
   
   Set db = s.CurrentDatabase
   'Set doc =doc2.Document   Fehlermldg:"Variant does not contain an object"
   Set view = db.GetView ("Helpdeskanfrage")
   Set doc2 = ws.CurrentDocument
   Call doc2.Document.Save(True,False)
   Set doc =doc2.Document
   'docunid = doc2.UniversalID Fehlermldg:"Instance member UNIVERSALID does not exist"
   docunid = view.UniversalID
   Call doc2.Send
   Call doc2.Close (True)
   Set removedoc = db.getdocumentbyunid(docunid)
   Call removedoc.remove(True)
   
End Sub

Allerdings löscht es jetzt die Ansicht und nicht das Dokument 

[Thomas Schulte]

Du machst mich ganz konfuzius

Sub Click(Source As Button)
 
 Dim ws As New NotesUIWorkspace
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim doc As NotesDocument
Das hier ist flüssiger als Flüssig, das ist überflüssig
 Dim uidoc As NotesUIDocument
löschen das muss eigentlich so heißen:
 Dim doc2 as NotesUIDocument

 Dim docunid As String
 Dim removedoc As notesdocument
 
 Set db = session.currentdatabase
Das hier war natürlich Blödsinn. Kommt vom Kopieren
 Set doc =doc2.document
rauslöschen
 Set doc2 = ws.CurrentDocument
 
 Call doc2.document.Save(true,false)
 Set doc =doc2.document
Das hier ist so falsch
 docunid = doc2.universalid
und muss so heißen
 docunid = doc.universalid

 Call doc2.Send
 Call doc2.Close (True)
 
 Set removedoc = db.getdocumentbyunid(docunid)
 Call removedoc.remove(true)
 
End Sub


Aber das muss jetzt funktionieren.
Und ja das ist kein Wunder das er die View löscht, denn auch die View ist nur ein Dokument in der Datenbank. Allerdings ein Design Dokument.

Ich glaub ich muss meinen Disclaimer ändern.

Code is provided as is und alle Fehler sind beabsichtigt und dürfen behalten werden.

[regedit]

Danke für Deine Hilfe und vor allem Deine Geduld.
Ich werde es gleich ausprobieren
und hoffe Dein Disclaimer bleibt der alte