Optionsfelder in Lotus Script

[Pir0x]

Hi, ich hab da mal ne Frage und zwar wollte ich jetzt den Inhalt eines optionsfeldes überprüfen und darauf hin ne bestimmte Aktion ausführen

z.b. ein Optionsfeld mit den Inhalten NO|0 und Yes|1  (Name des Optionsfeldes = test)

meine Frage ist jetzt wie man das ganze ins Lotus Script packen muss, meine Idee war
---------------------------------------------------------------
If docProfile.test= "1") Then
         Call doc.Remove(True)
---------------------------------------------------------------
aber so haut das ganze nicht hin, bekomm dann mit dem Debugger immer die Meldung "Object variable not set"  also irgendwas muss da noch komm nach dem
docProfile.test  , die Hilfe  spuckt mir leider kein Ergebniss dafür aus, könnt ihr mir da helfen ?

[jr]

Hallo,

wenn Du in Formelsprache das Profildokument direkt ansprechen kannst

Code

@GetProfileField(profilename ; fieldname)

so musst Du in Lotus Script zuerst das Profildokument holen.

Code

Set profileDoc = db.GetProfileDocument(profilname)

Erst dann kannst Du auf die Felder zugreifen.

Aber mit docProfile.test = "1" gehts trotzdem nicht, weil in Lotus Script alle Felder potentielle Mehrfachfelder sind und somit indiziert werden müssen. Hier also

Code

If (profileDoc.test(0) = "1") Then Call doc.Remove(True)

Dann klappt das.

Gruß,

Joachim

[klaussal]

If docProfile.test(0) = "1".....

[Pir0x]

also das "Set profileDoc = db.GetProfileDocument(profilname)" war mir klar, hatte ich auch drin, aber allerdings funktioniert das "If (profileDoc.test(0) = "1") Then Call doc.Remove(True)"  auch nicht

[klaussal]

Was sagt der Debugger ?

Gibt es überhaupt ein ProfileDoc ?

[jr]

Hallo,

doch, muss gehen, der Code ist korrekt. Vielleicht darfst Du das Dokument nicht löschen? (ACL Häkchen bei Delete Document?) Oder vielleicht hast Du das Dokument gerade im Frontend geöffnet?

Oder gibt es immer noch den "Object Variable not set"-Error? GetProfileDocument gibt immer ein gültiges Dokument zurück, auch wenn noch gar keins existiert. Also hat profileDoc in jedem Fall einen gültigen Wert. Vielleicht ist im Feld "test" eine Zahl? Dann probiers mal mit CStr(profileDoc.test(0)) = "1". Oder - letzte Idee - doc hat keinen Wert. Kannst ja vorher mal mit "If (Not(doc Is Nothing)) ..." prüfen.

Gruß,

Joachim

[Axel]

Zeigt mal den gesmaten Code. Mit dem Schnipsel kann man nichts anfangen. Das sieht nämlich, mit der Ergänzug von (0) ganz vernüftig aus.

Hast du eine vernüftige Fehlerbehandlung eingebaut.


Axel

[Pir0x]

also, ich führ das ganze mal bissl weiter aus, diese Abfrage setzt sich aus 2 Bedingungen zusammen,

einmal wird überprüft ob das Document bearbeitet wurde (flagDocProcessed) und einmal halt welches kästchen im Optionsfeld ausgewählt wurde.

"flagDocProcessed" wird auf True gesetzt sobald das Document bearbeitet wurde

wenn ich jetzt sag
-----------------------------------------------------
"IF flagDocProcessed Then Call doc.Remove(True)"
-----------------------------------------------------

funktioniert das ohne Probleme , aber wenn ich das mit einander kombinieren will
------------------------------------------------------------------------------
"If flagDocProcessed And (docProfile.test(0)= "1" )Then Call Docx.Remove(True)"
------------------------------------------------------------------------------
funktioniert das wieder nicht. und im Feld test ist auch keine Zahl, das mit CStr hab ich bereits probiert

edit: Gesamter Code

Set docProfile = db.GetProfileDocument("MABP")
While Not(doc Is Nothing)
      flagDocProcessed = False
....
flagDocProcessed=True    
....
Set docx = doc
Set doc = docsUnprocessed.GetNextDocument(doc)
If flagDocProcessed And (docProfile.test(0)= "1" )Then Call Docx.Remove(True)

[jr]

Hi,

hmm, sieht so aus, als ob Du den Remove zu einem falschen Zeitpunkt machst. Nach dem letzten "GetNextDocument" ist doc Nothing und dann funktioniert die nächste Zeile nicht mehr.

Du kannst doc in einer anderen Variablen zwischenspeichern und dann löschen.

Code

while (Not(doc Is Nothing))
   Set del = Nothing
   ...
   If (... ) Then Set del = doc
   Set doc = docsUnprocessed.GetNextDocument(doc)
   If (Not(del Is Nothig)) Then Call del.Remove(True)
Wend

So müsste es klappen.

Gruß,

Joachim

[Pir0x]

Hi,

hmm, sieht so aus, als ob Du den Remove zu einem falschen Zeitpunkt machst. Nach dem letzten "GetNextDocument" ist doc Nothing und dann funktioniert die nächste Zeile nicht mehr.

Du kannst doc in einer anderen Variablen zwischenspeichern und dann löschen.

genau so mach ichs ja

Set docx = doc
If flagDocProcessed And (docProfile.test(0)= "1" )Then Call Docx.Remove(True)

[DAU-in]

And (docProfile.test(0)= "1" )

gibt es das Item denn?

[Pir0x]

jo gibt es

[DAU-in]

also, ich führ das ganze mal bissl weiter aus, diese Abfrage setzt sich aus 2 Bedingungen zusammen,

einmal wird überprüft ob das Document bearbeitet wurde (flagDocProcessed) und einmal halt welches kästchen im Optionsfeld ausgewählt wurde.

"flagDocProcessed" wird auf True gesetzt sobald das Document bearbeitet wurde

wenn ich jetzt sag
-----------------------------------------------------
"IF flagDocProcessed Then Call doc.Remove(True)"
-----------------------------------------------------

funktioniert das ohne Probleme , aber wenn ich das mit einander kombinieren will
------------------------------------------------------------------------------
"If flagDocProcessed And (docProfile.test(0)= "1" )Then Call Docx.Remove(True)"
------------------------------------------------------------------------------
funktioniert das wieder nicht. und im Feld test ist auch keine Zahl, das mit CStr hab ich bereits probiert

edit: Gesamter Code

ähh, im ersten remove entfernst du doc und im zweiten remove Docx?
was ist denn Docx jetzt?   

grüsse

dau-in

[jr]

Hi,

hast recht, sorry, das mit docx hab ich übersehen.

Die Fehlermeldung sagt, dass ein Objekt nicht gesetzt ist und es gibt nur 4 Objekte in Deinem Code, db, doc, docx, und docProfile. Ich würde jetzt mal den Debugger einschalten und nachschauen, welches Objekt nicht gesetzt ist. Oder Du baust bei allen 4 Objekten eine Msgbox ein.

Ich gehe davon aus, dass eins davon Nothing ist. Aber ohne den kompletten Funktionscode kann ich das nicht feststellen.

Gruß,

Joachim

[klaussal]

Was sagt der Debugger ?

Anscheinend ist das ein unbekanntes Instrument....

[Pir0x]

sry hatte ich irgendwie überlesen,

jo das docProfile gibt es

[m3]

WAS SAGT DER DEBUGGER !?!?!?!?!?!?! 

[klaussal]

WAS SAGT DER DEBUGGER !?!?!?!?!?!?!

Das hatte ich schon in #4 um 8:55 gefragt. Bis jetzt keine Antwort !

[m3]

Ja eh. Aber ev. sind die Großbuchstaben leichter zu lesen.

[DAU-in]

sry hatte ich irgendwie überlesen,

jo das docProfile gibt es

und das Docx??