Hallo zusammen,

ich habe folgendes Problem :

Ca. 1000 Personendokumente sind nicht mit einer Personalnummer gefüllt. Ich habe eine Notes-DB, in der die entsprechenden Daten gepflegt sind. Das eindeutige Kriterium ist aber, da in den Personendokumenten die Personalnummern fehlen lediglich der Vor-und Nachname. Leider gibt es viele Schmidts, Hubers usw. die sich auch in den Vornamen gleichen ...

Wie programmiert man in Script eine Routine die die entsprechenden Treffer in einem Auswahlfenster anzeigt, je nach Auswahl wird dann das entsprechende Dokument mit der Personalnummer gefühlt.

Hat da jemand eine Idee ?


Für jeden Input dankbar ...

Grüße,
Marcus

Hallo,

also ich möchte die Personendokumente die noch keine Personalnummer enthalten, mit einer solchen Personalnummer versehen. Die Quelle ist eine andere Notesdatenbank, in der die
Quelldaten stehen ( Name, Vorname, Personalnummer, Abteilung ... usw.). Das Ganze soll später zur Pflege der Personendokumente dienen.

Jetzt habe ich aber ca. 1000 Personendokumente, die keine Personalnummer enthalten, also für diese dokumente kein eindeutiges Kriterium. damit diese Dokumente gepflegt werden können, muss die Personalnummer in das Dokument. Das Problem ist, das ich zum Import keinen eindeutigen Schlüssel in beiden Dokumente habe ( Quelle und Ziel ) da die Personalnummer nur in der Quelle vorgehalten wird, aber nicht im Ziel. Das einzihe Kriterium wäre die Kombination Vor- und Nachname. Da es aber viele Müller, Huber, Schmidts gibt und zum Teil haben diese noch die gleichen Namen benötige ich ein Script, das die entsprechenden Treffer findet, in einem Fenster auflistet und wo man per manueller Auswahl sagen kann, das das ausgewählte Dokument mit der entsprechenden Personalnummer versehen werden muss.

Die Auswahlmöglichkeit soll vorhanden sein, das ist mir wichtig.

Gruß,
Marcus

Hi,
ich skizziere mal einen Weg:

dim ws as New NotesUIWorkspace
dim session as New NotesSession
dim db as NotesDatabase
dim nabdb as NotesDatabase
dim dc as NotesDocumentCollection
dim doc as NotesDocument
dim nabdoc as NotesDocument

set db = session.CurrentDatabase
'setze doc = Deine Dokumente mit den Personalnummern
set nabdb = New NotesDatabase("","")
call nabdb.Open( db.Server, "names.nsf")
if not nabdb.IsOpen then
msgbox "NAB konnte nicht geöffnet werden"
exit sub
end if
vorname = doc.Vorname(0)
nachname = doc.Nachname(0)

searchstring = |Form = "Person" & FirstName = "| + vorname + |" & LastName = "| + nachname + |"|

set dc = nab.Search(searchstring,Nothing,0)

if dc.Count = 1 then
set nabdoc = dc.GetFirstDocument
nabdoc.Personalnummer = doc.Personalnummer(0)
elseif dc.Count > 1 then
set dc = ws.PickListCollection(1,false,nabdb.Server,nabdb.Filepath,"People","Person wählen","Person wählen:")
set nabdoc = dc.GetFirstDocument
if not nabdoc is Nothing then
nabdoc.Personalnummer = doc.Personalnummer(0)
end if

end if

Andreas

Hi,

wenn Du erstmal ein Script schreibst, dass Dir alle eindeutigen Namen mit Personalnummern versieht, also Namen, die nicht mehrmals vorkommen, dann hast Du doch bestimmt > 85% der 1000 Mitarbeiter schon versorgt. Die restlichen kannst Du ja dann von einem Azubi   pflegen lassen.

Ne, aber mal im ernst. Die restlichen lässt Du Dir dann mal in einer Ansicht anzeigen und dann kannst Du ja mal sehen, wieviele noch übrig bleiben. Wahrscheinlich lohnt sich da kein Script und Du bist wirklich schneller damit das ganze selbst einzupflegen.

Gruß
Markus