Domino 9 und frühere Versionen > ND6: Entwicklung

Werte in Feld schreiben per Button

(1/2) > >>

kevisback:
Ich habe folgendes (simples) Problem, doch kurz vor Feierabend geht halt nicht mehr viel:

Es soll ein Wert in ein Feld bestimmter Felder geschrieben werden (If-Bedingung & Schleife).

Ich bekomme aber nicht mal das "Reinschreiben" (zu Testzwecken) ins current doc hin:


Sub Click(Source As Button)
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim docCur As NotesDocument
   
   Set db = session.CurrentDatabase
   Set uidoc = uiws.CurrentDocument
   Set docCur = uidoc.Document
   
   docCur.Quantity = "400"

End Sub


Quantity ist ein normales Feld und der Button befindet sich im Dokument in der Action Bar.

Seid nicht zu streng mit mir ;-)

Driri:
Öhm, also Du setzt das Item ja im Background und dann ohne Save.

Entweder im Frontend mit FieldSetText setzen oder im Background und dann mit docCur.Save auch speichern.



--- Zitat ---Ich habe folgendes (simples) Problem, doch kurz vor Feierabend geht halt nicht mehr viel

--- Ende Zitat ---

Coole Arbeitszeiten  8)

kevisback:
danke.....es geht...ich dummkopf.....die Arbeitszeiten sind nur so cool, weil ich in Shanghai sitze  ;)

kevisback:
ok, als letztes fuer heute:

Sub Click(Source As Button)
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim docCur As NotesDocument
   Dim docNext As Notesdocument
   Dim docTemp As Notesdocument
   Dim dc As NotesDocumentCollection
   Dim qty As Variant
   Dim ItemNoCur As Variant
   Dim ItemNoNext As Variant
   
   Set db = session.CurrentDatabase
   Set dc = db.UnprocessedDocuments
   Set docNext = dc.GetFirstDocument 
   Set uidoc = uiws.CurrentDocument
   Set docCur = uidoc.Document
   
   qty = docCur.GetItemValue("Quantity")
   ItemNoCur = docCur.GetItemValue("ItemNo")
   
   
   Do While Not(docNext Is Nothing)
   
   ItemNoNext = docNext.GetItemValue("ItemNo")
   
   If (ItemNoNext = ItemNoCurrent) Then
      docNext.Quantity = qty
      Call docNext.Save(True,True)
                                'hier noch refreshen
   End If
   
   Set docNext = dc.GetNextDocument(docNext)
Loop

   
End Sub


Die While Schleife tuts nicht, d.h. die ist von Anfang an auf false....was mache ich falsch....?

umi:
Dc ist evtl. leer ?

prüfen mit dc.count > 0

Navigation

[0] Themen-Index

[#] Nächste Seite