Hi!
Ich habe in Lotus Notes eine Datenbank entwickelt, wo man Auswertungen erstellen kann. Nun kann es aber vorkommen, daß manche Auswertungen etwas länger dauern.
Kann ich in Lotus Script ein Fortschrittsbalken erzeugen? Wenn ja, funktioniert das auch unter OS/2 R. 4.5?
Bin für jeden Tip dankbar.
Ciao Peter
Es
Hallo Peter,
Ich habe in Lotus Notes eine Datenbank entwickelt, wo man
Auswertungen erstellen kann. Nun kann es aber vorkommen, daß
manche Auswertungen etwas länger dauern.Kann ich in Lotus Script ein Fortschrittsbalken erzeugen? Wenn
ja, funktioniert das auch unter OS/2 R. 4.5?
Bin für jeden Tip dankbar.
Ich meine, dass mit dem Fortschrittsbalken funktioniert nicht, zumindest wenn Du keine Betriebssystemfunktionen aufrufst (m.E. zu kompliziert).
Mal annehmend, dass die Auswertung in einem Notes-Client angestoßen wird, könntest Du einfach mit Print-Anweisungen in die Statuszeile schreiben. Z.B. wenn Du in der Auswertung über eine NotesDocumentCollection coll läufst:
anzahl = coll.count
For schleife = 1 To anzahl
Set doc = coll.GetNthDocument(schleife)
Print Round(schleife/anzahl, 0) & "% fertig"
' Tue was
Next
Wenn Du über eine View läufst, fehlt Dir natürlich die Anzahl, aber Du kannst ja einfach so mitzählen und ausgeben, eventuell mit einem Schlüsselfeld.
index = 0
Set doc = view.GetFirstDocument
Do While Not(doc Is Nothing)
index = index + 1
Print "Verarbeite das " & index & ". Dokument: Mitarbeiter " & doc.Name(0)
' Tue was
Set doc = view.GetNextDocument(doc)
Loop
Wenn der Vorgang auf dem Server läuft (möglichst nach Zeitplan in der Nacht), dann reicht ein gelegentliches Print, was nach setzen des richtigen Parameters im Server-Protokoll landet. Ich erinnere mich nur nicht mehr an den Namen des Parameters - AMGR_LOG=2 oder so.
HTH
Thomas Bahn
Vielen Dank Thomas. An diese Möglichkeit hatte ich noch gar nicht gedacht. Habe es gerade ausprobiert, Funktioniert wunderbar.
Gruß
Peter