Domino 9 und frühere Versionen > Entwicklung

Agenten auf eine Ansicht anwenden

<< < (2/3) > >>

Semeaphoros:
Wieso denn das? So wie Don Pasuale Dir das vorbereitet hast, bekommst Du ein Dokument nach dem anderen in der Variablen Doc geliefert.

jens1979:
Okay ... das dumme ist nur egal wie ich es Anstelle er schreibt mir nix in meine Workspace (ws).

Ich verstehe es nicht mehr.
Ich werd gleich mal den Script für die Überprüfung posten, vileicht seht ihr ja dann mein Problem.

Jens

jens1979:
Also hier das Script:

'# Allgemeine Variablendeklirationen
   
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   
'# Pruefziffernkontrolle Variablendeklirationen
   
   Dim kontonr As String
   Dim laenge As Integer
   Dim zahl As Integer
   Dim i As Integer
   Dim summe As Integer
   Dim modulo_erg As Integer
   Dim pruefziffer As Integer
   Dim letzte As Integer
   Set uidoc=ws.currentdocument
   
'# Beginn Pruefziffernkontrolle
   
   Set ws = New NotesUIWorkspace
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   
   kontonr = Cstr( doc.tKontonummer(0)    )
   If Len(kontonr) > 7 Then
      kontonr = Right$(kontonr, 7)
   End If
   laenge = Len( kontonr )
   summe = 0
   For i = 2 To laenge
      zahl = Cint( Mid( kontonr, laenge - i + 1, 1 ) )
      summe = summe + zahl * i
   Next
   
   modulo_erg = summe Mod 11
   
   If modulo_erg <= 1 Then
      pruefziffer = 0
   Else
      pruefziffer = 11 - modulo_erg
   End If
   
   letzte = Cint( Mid( kontonr, laenge ,1 ))
   
   If letzte = pruefziffer Then
      Messagebox "Prüfziffernkontrolle erfolgreich abgeschlossen"
   Else
      Messagebox "Prüfziffernkontrolle nicht bestanden"
   End If   
   
'# Ende Pruefziffernkontrolle   

Semeaphoros:
Studiere mal den Code ganz genau, den Dir Don da geliefert hat und  überlege mal, was dabei passiert.


Dann überlege mal, was dieser Code von Dir hier macht:

   Set ws = New NotesUIWorkspace
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document

Das macht nur Sinn, wenn Du ein geöffnetes Dokument vor der Nase hast, nicht wenn Du einen View in der Anzeige hast.

jens1979:
okay ... es ist doch so das nachdenken was bringt  ;)

Don's Code schreibt also immer das komplette Dokument in die doc Variable ... aha ...

Ich habs jetzt hinbekommen ... muss ja meine Kontonummer nur aus dieser doc auslesen.

Danke für den Denkanstoß.
Und natürlich auch allen anderen für die Hilfe.

Jens

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete