Domino 9 und frühere Versionen > ND6: Entwicklung

Formatänderungen in Script

(1/2) > >>

Wiesel:
Hallo!

Ich habe in einem Querysave einer Maske eine Formel, die bei einem neuen Dokument einen Wert aus einem Profildokument holt und in ein Feld packen soll.
Das funktioniert auch.
Aber das Feld ist im Profildok und in der Maske eine Zahl und das Script packt es mir als Text in das Maskenfeld.
Hier erstmal mein Script:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim uiWs As NotesUIWorkspace
   Dim S As New NotesSession
   Dim pdoc As NotesDocument
   Dim dblBeschluss As String
   
   If Source.IsNewDoc Then
      
      Set pdoc = S.CurrentDatabase.GetProfileDocument( "(DBProfil)" )
      
      dblBeschluss= pdoc.numBeschluss(0) + 1
      Call Source.FieldSetText( "numBeschluss", dblBeschluss )
      
      pdoc.numBeschluss = dblBeschluss
      
      Call pdoc.Save(True, False)
      
   End If
End Sub

Wenn ich die Zeile
Call Source.FieldSetText( "numBeschluss", dblBeschluss )
so umschreibe:
Call Source.FieldSetText( "numBeschluss", Cdbl(dblBeschluss) )
dann bekomme ich die Fehlermeldung: ....String exepted...

Wie kriege ich meinen Wert aus dem Profildok als Zahl in das berechnete Feld in der Maske?

Gruß,
Wiesel

Thomas Schulte:
Indem du das nicht mit FieldSetText machst.

Thomas Schulte:
oder etwas genauer. indem du ein Notesitem verwendest und das sauber deklarierst.

koehlerbv:
Ergänzend zu Thomas' Anmerkung: Im ProfileDoc bekommst Du auch einen String ...

Irgendwie sieht das ganze nach einer fortlaufenden Nummer aus, was Du da machst. Dann noch über ein ProfileDocument ... Wenn da mehr als eine Person mit der Datenbank arbeitet, sind Dir doppelte Nummern ganz gewiss.

Bernhard

Wiesel:
In dem Teil der Datenbank arbeitet nur eine Person. Daher sollte das mit der Nummerierung klappen.

Aber ich habe probleme dabei, das Ganze jetzt mit dem NotesItem zu lösen....

Navigation

[0] Themen-Index

[#] Nächste Seite