Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: robertpp am 21.02.06 - 11:43:48

Titel: Checkbox nicht sichtbar in Maske
Beitrag von: robertpp am 21.02.06 - 11:43:48

Hallo,

Ich stehe gerade vor einem komischen Problem.
Ich hab in einer Maske eine Checkbox-Feld mit ja|1 und nein|2. Wenn ich jetzt ein neues Doc mit der Maske erstelle dann wird das Feld auch angezeigt und ich kann einen Wert auswählen.
Wenn ich aber das doc wieder öffne dann wird es nicht mehr angezeigt. Es befindet sich auch keine Hide-when Formel in dem Abschnitt. Wenn ich per Agent das Feld wieder lösche dann wird es wieder angezeigt.
Im doc ist das Feld auch vorhanden mit Value = ""

Hat das Problem schon mal jemand gehabt?

danke robert

Titel: Re: Checkbox nicht sichtbar in Maske
Beitrag von: robertpp am 21.02.06 - 16:41:57

So nach lagen ausprobieren bin ich jetzt auf die Fehlerursache gekommen ich weiß aber nicht warum das so ist:

Der Fehler ist der Code:

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   If (Source.IsNewDoc) Then
      Exit Sub
   End If
   Dim varLock As Variant
   Dim s As New NotesSession
   Dim doc As NotesDocument
   Dim UserName As New NotesName(s.UserName)   
   Set doc=Source.Document
   varLock=doc.GetItemValue("LockEdit")
   If (varLock(0) <> "") And Source.EditMode Then
      Msgbox ("Document is currently locked by "+varLock(0)+". A read-only copy will be opened for your use.")
      Exit Sub
   End If
   doc.LockEdit= UserName.Common
   doc.LockEditTime = Now
   Call doc.Save(True,False)
End Sub

Wenn ich den auskommentiere dann passt alles und es wird das Feld angezeigt.
Leider weiß ich immer noch nicht wie ich das lösen kann.

Titel: Re: Checkbox nicht sichtbar in Maske
Beitrag von: Untitled am 21.02.06 - 17:10:17

Kannst du nicht durch auskommentieren die genaue Zeile erurieren?

Titel: Re: Checkbox nicht sichtbar in Maske
Beitrag von: robertpp am 22.02.06 - 08:36:22

Was soll ich davon auskommentieren? der Code funktioniert ja nur wenn er ganz ist sonst hat er ja keinen Sinn!?

robert

Titel: Re: Checkbox nicht sichtbar in Maske
Beitrag von: Untitled am 22.02.06 - 08:43:55

Srückweises auskommentieren zeigt dir genauer, welche Zeile den Fehler verursacht.

Wenn am Ende zB nur noch "doc.LockEdit= UserName.Common" steht und der Fehler trotzdem auftaucht, dann weisst du zB, dass das LockEdit oder UserName.Common das Problem ist.

Klar funktioniert der Code während diesem Prozess nicht, momentan gehts aber darum den anderen Fehler zu finden.

Untitled

Titel: Re: Checkbox nicht sichtbar in Maske
Beitrag von: robertpp am 22.02.06 - 09:26:04

Das Problem was ich jetzt hab ist nicht ein Script Fehler weil da hätte ich mir natürlich zum Helfen gewusst. Das Problem liegt ganz wo anders. Wenn ich den Code auskommentiere dann sehe ich mein Checkbox-Feld in der Maske und wenn ich den Code unter Queryopen laufen lasse dann ist das Feld nicht mehr sichtbar in der Maske!!!
Das ist das eigentliche Problem.
Ich hab jetzt auch schon herausgefunden das es am Call doc.Save liegt. Wenn ich es nicht nochmals speichere dann ist das Checkbox-Feld sichbar.

Aber warum?

Titel: Re: Checkbox nicht sichtbar in Maske
Beitrag von: Glombi am 22.02.06 - 09:43:31

Ich würde den Code in das Postopen setzen:

If (Source.IsNewDoc) Then
      Exit Sub
   End If
dim ws as New NotesUIWorkspace
   Dim varLock As Variant
   Dim s As New NotesSession
   Dim doc As NotesDocument
   Dim UserName As New NotesName(s.UserName)   
   Set doc=Source.Document
   varLock=doc.GetItemValue("LockEdit")
   If (varLock(0) <> "") And Source.EditMode Then
      Msgbox ("Document is currently locked by "+varLock(0)+". A read-only copy will be opened for your use.")
call Source.Close
call ws.EditDocument( false, doc )
      Exit Sub
   End If
   doc.LockEdit= UserName.Common
   doc.LockEditTime = Now
   Call doc.Save(True,False)


Das Queryopen stellt nicht alles zur Verfügung, was man so braucht. Da gibt es offenbar auch Unterschiede zwischen Notes 5 und 6-

Andreas

Titel: Re: Checkbox nicht sichtbar in Maske
Beitrag von: Untitled am 22.02.06 - 09:46:51

Zitat

Das Problem was ich jetzt hab ist nicht ein Script Fehler weil da hätte ich mir natürlich zum Helfen gewusst.

Ist mir schon klar, den Checkbox-Fehler solltest du ja mit dem Auskommentieren finden ::)

Zitat

Ich hab jetzt auch schon herausgefunden das es am Call doc.Save liegt.

Das war das Ziel  ;D

Dass kann aber auch bedeuten, dass es einer dieser Zeilen ist:

Code

   
doc.LockEdit= UserName.Common
doc.LockEditTime = Now

Denn wenn du das Doc nicht speicherst, werden auch diese Felder nicht übernommen.

Versuch mal diese zwei Zeilen rauszunehmen, dafür das doc.save wieder rein. Ich vermute, die Checkbox ist dann sichtbar.

Grüsse
Untitled

Titel: Re: Checkbox nicht sichtbar in Maske
Beitrag von: robertpp am 22.02.06 - 09:59:54

So Problem gelöst.

@Untitled: Wäre mal interessant wie du wirklich heißt. Und an den zwei Einträgen hat es nicht gelegen das hab ich davor schon ausprobiert und war das gleiche Problem.

@Andreas: Danke, nachdem ich es ins Postopen gegeben habe hat es gepasst.

Aber absolut unerklärlich warum da das Checkbox-Feld nicht angezeigt wird.

danke robert

Titel: Re: Checkbox nicht sichtbar in Maske
Beitrag von: Untitled am 22.02.06 - 10:10:13

Ich heisse Moritz