Domino 9 und frühere Versionen > ND6: Entwicklung

Werte aus Maske in neue Maske übernehmen

<< < (2/3) > >>

Axel:

--- Zitat von: Jens* am 18.05.05 - 14:32:30 ---die ist englisch  :-\ obwohl notes deutsch ist. Evtl. ne Idee wo bzw. wie man die Sprache der hilfe ändern kann?

--- Ende Zitat ---

Die Designer-Hilfe gibt's meines Wissens nur in englischer Sprache.


Axel

diali:
beim deutschen Client ist die Designer-Hilfe in englisch (Jave, LotusScript, Formeln) und in deutsch (Formeln und Rest).

Mandalor:
ich stehe mit der Sprache von der Insel auch auf Kriegsfuß, aber in Notes kommt man da nicht dran vorbei. >:(

Jens*:
Es soll ein Formular (war schon in einer älteren Version vorhanden)
über einen Button verschickt werden


Folgender Fehler:


und folgender Code:


--- Code: ---Sub Click(Source As Button)
Dim workspace As New notesuiworkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim memo As notesdocument
Dim rtitem As NotesRichTextItem
Dim uidoc As notesuidocument
Dim doc As notesdocument
Dim sendto As String
Dim subject As String
Dim body As String
Dim StartDate As String
Dim DueDate As String
Dim Top As String

Set uidoc = workspace.currentdocument

Set db = session.currentdatabase

'Neues Dokument in der aktuellen Datenbank erzeugen
'Maske = memo
'Feldwerte des neuen Dokuments werden so gesetzt, dass es später versendet werden kann
Set memo = New NotesDocument( db )
Top = uidoc.fieldgettext ("Top_to_order")
memo.form = "memo"
sendto = uidoc.fieldgettext("Verantwortlicher_Char")
memo.Subject = "Aufgabe zu Protokoll vom " + Date +" : " + Top
memo.SendTo = sendto

'Dem neu erzeugten Dokument wird ein DocLink hizugefügt
Set rtitem = New NotesRichTextItem( memo, "Body" )
Set doc = uidoc.document
Call rtitem.AppendDocLink( doc, "" )
Call rtitem.Appendtext("      Hier ist ein Link zum Dokument")


'Nach der Abfrage ob das Dokument gesendet werden soll, wird das Dokument per Mail an den Emfänger gesendet oder nicht
If Messagebox ("Sind Sie sicher, dass Sie diese Aufgabe senden wollen", 4 + 32, "Lotus Notes") = 6 Then
Messagebox "Der Auftrag wurde an " + sendto + " gesendet", 0 + 64, "Lotus Notes"
Continue = True
memo.Send( False )
End If
uidoc.editmode = True
Call uidoc.fieldsettext("sent", "1")
Call uidoc.save
'Call uidoc.close
End Sub

--- Ende Code ---

Wo könnte der Fehler liegen?

bin für jeden tip dankbar..

jens

diali:
Definiere in der erwähnten DB eine Ansicht als Default.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete