Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 27.01.03 - 18:13:54
-
Hallo Leute,
in einer Maske soll ein Benutzer einen Kommentar hineinschreiben.
Wird in demselben Dokument ein weiterer Kommentar geschrieben,
so soll der alte Kommentar, Kommentarnummer mitsamt Datum gespeichert werden.
Ich benötige also in einer Maske ein Feld in dem ich ein
Array speichern kann und jedesmal wenn die Maske aufgerufen und das Feld gefüllt wird, sollen ein paar Informationen dem Array hinzugefügt werden.
If docDialog.sn_Bemerkungen(0) <> "" Then
ArrayAppend(Notizen)
Notiz ( i ,1) = HauptDoc.Dok_ID(0)
Notiz ( i, 2 ) = USERID
Notiz ( i, 3) = Datum
Notiz ( i, 4) = doc.dialog.sn_bemerkung(0)
End If
Hat da jemand schon mal etwas ähnliches gemacht ?
Sachdienliche Hinweise an
Don Pasquale
-
... deine Syntax des Arrayappend ist nicht ganz korrekt...
doc.FeldName = Arrayappend(doc.FeldName , ArrayOderString)
... in der Kurzversion...
hier eine Ausarbeitung
If doc.FeldName(0) = "" Then
doc.FeldName = sString
Else
doc.FeldName = Arrayappend(doc.Feldname , sString)
End If
... eine Variable sString wird an ein Array angehängt, in diesem Fall einem Feld hinzugefügt...
ata
-
yep - habe soetwas schon gemacht, allerdings mit einem history Feld. Dazu habe ich mir einer 2. Maske erstellt wo der Benutzer Eingabe machen kann. Im QueryClose der Maske frage ich ob ein neuer Eintrag gemacht werden soll.
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim ws As New NotesUIWorkspace
If Not Source.IsNewDoc Then
If Source.editmode = True Then
REM History Eintrag - nur im Edit Mode
JaNein =
If (Messagebox("Do you want to update the History Entry ?", 4 + 32, "update history....") = 6) Then
If (ws.DialogBox( "DialogHist", True, True, False, True, False, False, "New History Entry", , False , False )) = False Then
)
Exit Sub
Else
)
Call Source.FieldAppendText( "dochistory", Chr(10)+Chr(13) + Cstr(Today) + "<" +Source.FieldGetText( "histType" ) + "> " +Source.FieldGetText( "histentry" ) )
Call source.save
End If
End If
End If
End If
End Sub
- histentry wird in dochistory angehängt
cu