Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Thorsten Kalweit am 20.01.09 - 16:12:45

Titel: Inviewedit Frage
Beitrag von: Thorsten Kalweit am 20.01.09 - 16:12:45

Hallo zusammen,

wie kann ich in meinem Skript mehrere editierbare Spalten definieren? Zur Zeit funktioniert es nur mit dem Feld "Quantity".  :-:

Vielen Dank im Voraus
Thorsten

Hier der Code:
^{Sub Inviewedit(Source As Notesuiview, Requesttype As Integer, Colprogname As Variant, Columnvalue As Variant, Continue As Variant)
   Const QUERY_REQUEST = 1 ' values for RequestType
   Const VALIDATE_REQUEST = 2
   Const SAVE_REQUEST = 3
   Const NEWENTRY_REQUEST = 4
' Editable column
   Const COLUMN_FEATURE = "Quantity" 'programmatic name of column
   Const FIELD_FEATURE = "Quantity" 'corresponding field name
   Dim ws As New NotesUIWorkspace
   Dim note As NotesDocument
   Dim db As NotesDatabase
   Set db = ws.CurrentDatabase.Database
   Set note = db.GetDocumentByID(Source.CaretNoteID)
   If (note Is Nothing) Then Exit Sub
   If (RequestType = QUERY_REQUEST) Then
      If(note.HasItem(FIELD_FEATURE)) Then
'Get the current (original) value to put in Edit box
         Columnvalue(0) = note.GetItemValue(FIELD_FEATURE)
      Else
'This doc does not contain the required field;
'ignore it
         Continue = False
      End If
   Elseif (RequestType = VALIDATE_REQUEST) Then
'Accept any user input
      Continue = True
   Elseif (RequestType = SAVE_REQUEST) Then
      Call note.ReplaceItemValue (FIELD_FEATURE, ColumnValue(0))
      Call note.Save(True, True, True)
   End If
End Sub}

Titel: Re: Inviewedit Frage
Beitrag von: Axel am 20.01.09 - 16:21:46

Such mal in der Designer-Hilfe nach inviewedit. Da findest du auch entsprechende Beispiele.

Axel