Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Holger am 21.10.02 - 11:51:23

Titel: Unique Key
Beitrag von: Holger am 21.10.02 - 11:51:23

Hallo

ich bräuchte mal wieder eure Hilfe, ich hab folgendes Problem und krieg es einfach nicht hin. Ich habe ein Company Formular mit dem Feld Unique Key, dies funktioniert bei einer Neuanlage des Dokumentes super aber gibt es eine Möglichkeit Dokumente aus Excel zu importieren und die Funktion Unique Key dennoch aufrecht zu erhalten? Wenn ich importiere und Refresh all Docs mache dann refreshed er den Unique Key nicht. Da es sich beim Import um ca. 6500 Firmen handelt wäre es sehr mühsam alles eingeben zu müssen. Hat jemand von euch eine Idee?

Der folgende Agent läuft beim speichern des Dokumentes:

Sub Initialize
   Dim ws As New NotesUIWorkspace   
   Dim db As NotesDatabase
   Dim UIdoc As NotesUIDocument
   Dim dnow As New NotesDateTime( "" )
   
   Set UIdoc = ws.CurrentDocument   
   
   If ( UIdoc.IsNewDoc = True ) Then
      
      Set dfix = New NotesDateTime( "08/18/99 01:36:22 PM")
      Call dnow.SetNow
      tdiff = dnow.TimeDifferenceDouble( dfix )
      
      Call UIdoc.FieldSetText("uniqueKey", Cstr(tdiff))
      
   End If
   
End Sub

Vielen Dank und Gruß

Holger

Titel: Re:Unique Key
Beitrag von: Rob Green am 21.10.02 - 11:56:35

warum machst Du den Key nicht bereits in Excel rein, einfache Formel und fertig

Titel: Re:Unique Key
Beitrag von: Holger am 29.10.02 - 10:11:02

Danke Rob Green

hat funktioniert, mußte zwar jedes Doc öffnen und speichern aber besser als alles einzugeben.

Gruß

Holger

Titel: Re:Unique Key
Beitrag von: Performance am 29.10.02 - 10:15:21

Ich würde den Agenten lieber scheduled nur auf dem Server laufen lassen - auf Dokumente in einer Ansicht die noch keinen key haben - ist auch besser wenn neue doks repliziert werden.

cu

Titel: Re:Unique Key
Beitrag von: Kokomiko am 29.10.02 - 10:18:57

Hallo,

wenn Du einen UniqueKey brauchst, verwende doch einfach die DocumentUniqueID in einem Feld bei Anlegen bzw. speichern.

Feldformel:

---------------- cut here -------------------
@If((@IsNewDoc & @IsDocBeingSaved) | (@IsDocBeingSaved & ID = "");
         "";
@Return(ID));

@Text(@DocumentUniqueID )
---------------- cut here -------------------


Gruss Kokomiko

Titel: Re:Unique Key
Beitrag von: ata am 29.10.02 - 10:26:04

... das geht auch mit dem bestehenden Code, allerdings mußt du dazu deinen Agenten abwandeln. In deinem Agenten arbeitest du im Frontend, also kannst du den so nicht verwenden. Wenn du aber im Import aus Excel die Formel deines Agenten verwendest, müßte das funktionieren

... anstelle des NotesUIDocument mit einem NotesDocument arbeiten...

... das müßte es dann schon sein...

ata