Domino 9 und frühere Versionen > Entwicklung

Frage zu Script!

<< < (2/3) > >>

Silke:
Mal nachgefragt    wozu brauchst Du den Agenten ??? ??? Will ja dazulernen ;D

Silke  8) ???

kwalli:
hi christopher,

du greifst auf 2 verschiedene db's zu, dann mußt du auch 2 verschiedene variablen deklarieren.
das ist dasselbe wie mit den "doc".

mfg
kwalli

Friese:
Mit ein bißchen Phantasie wußte ich, was Du vorhast. Hast aber einiges doppelt gemoppelt.

So würde es glaube ich besser aussehen:

Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument, doc2 As notesDocument
    Dim view As NotesView
    Dim collection As NotesDocumentCollection      
    Set session = New notessession
    Set db=session.currentdatabase
    Set collection=db.UnprocessedDocuments
   
    server = "ZKOMZMILDBW"
    dbfile = "orgdb.nsf"
    Set db2 = New NotesDatabase( server, dbfile )
   
    For i=1 To collection.count
         
         Set doc=collection.GetNthDocument (i)
         
         vname=doc.Firstname(0)
         nname=doc.LastName(0)
         gname=vname + nname
         
         
         Set view = db2.GetView( "($Users)" )
         Set doc2 = view.GetDocumentByKey( gname )
         
         If Not (doc2 Is Nothing) Then
'Felder übernehmen
              doc.TName="1"
              Msgbox "Es gibt schon einen Nutzer mit dem Namen " + gname + " handelt es sich um die selbe Person?"
             
         Else
              doc.TName="0"
              Msgbox"Kein Dokument im Verzeichnis BW gefunden!"
         End If
         
         doc.Save True,False
         
    Next
End Sub

Christopher:
Hallo Silke,

ich erstelle gerade eine DB für die Administatoren die neu Nutzer anfordern. Für jeden neuen Nutzer wird ein Dokument erfaßt. Bevor der Admin die Anforderung an mich sendet soll er vorher einen Namenstest machen.

Wenn es den Nutzer schon in unserer OrgDB gib bekommt er eine Meldung. Die Werte TName werden als Symbol in der Ansicht angezeigt. Grün für OK rot für nicht OK.

Wenn die Dokument bei mir sind exportiere ich per Script die Dokumente in eine Textdatei für die Registratur. Registrier die Nutzer überprüfe die Angaben in den Dokumenten und anschließen wird per Agent die Angaben Tel. Fax usw ins Verzeichnis bzw die OrgDB übernommen.

@Firse
danke für die Optimierung des Cod. Werde es gleich mal ausprobieren.

Silke:
Aha danke  jetzt habe ich es glaube ich :-[


Werde es gleich in meine KN-DB übernehmen ;)

silke  8)

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete