[Tipp] Dokument-Historie per Copy & Paste

[TMC]

Hi,

bisher habe ich immer die Dokumenthistorie in einer Maske über 2 Felder abgebildet:

HistoryTimes:

Code

@If (
         @IsNewDoc; @Text(@Now);
         @IsDocBeingSaved; HistoryTimes + @NewLine + @Text(@Now);
         HistoryTimes
)

HistoryNames:

Code

@If (
          @IsNewDoc; @Name([CN]; @UserName);
          @IsDocBeingSaved; HistoryNames + @NewLine  + @Name([CN]; @UserName);
          HistoryNames
)

Nachteile:
 - jedes Zwischenspeichern wird protokolliert
 - Liste wird ewig lang bei vielen Änderungen

Lösung
Folgender Code im Feld HistoryNames:
@If(@IsDocBeingSaved; 0; @Return(HistoryNames));
last_guy := @Subset(HistoryNames; 1);
FIELD HistoryTimes := HistoryTimes;
hist_len := @Elements(HistoryNames);
@If(hist_len = 0;
    @Do(
        @SetField("HistoryTimes"; @Now);
        @Name([CN]; @UserName)
   );
last_guy != @Name([CN]; @UserName) | @Subset(HistoryTimes; 1) < @Adjust(@Now; 0;0;0;-12;0;0);
    @Do(
        @SetField("HistoryTimes"; @Now : @Subset(HistoryTimes; 9));
        @Name([CN]; @UserName) : @Subset(HistoryNames; 9)
    );
    HistoryNames
)

Vorteile:
- Anzahl Zeilen kann eingeschränkt werden, Default ist hier 10 (siehe Zahl 9 im Code)
 - Speicherungen der letzten x Stunden werden nicht protokolliert, Default ist hier
   12 Stunden - außer ein anderer User speichert

Hab unten eine nsf angehängt, einfach die Maske öffnen, und die History-Felder per Copy & Paste in eine beliebige Maske übernehmen.

Eine Konfiguration über Setupdokument der Anzahl Zeilen etc. könnte man natürlich auch noch simpelst einbauen....

Grüße,
TMC

Text für Atnotes Volltextsuche:
History
Historie
Änderungshistorie
protokollieren
Änderungen


**EDIT **
Kleinen Fehler korrigiert (Namen erschienen nicht immer in der jew. nächsten Zeile)

[Semeaphoros]

Obacht: Ulrich hat Konjunktive nicht gerne ....  

[TMC]

 

@Jens: Diese sprachliche Ungewissheit beziehst do Du wohl auf folgendes:

Eine Konfiguration über Setupdokument der Anzahl Zeilen etc. könnte man natürlich auch noch simpelst einbauen....

OK, nun also voll konkret:
Über
_AnzZeilenWeilJaEknoriKeineKonjunktiveMag := @GetProfileField("AnzahlZeilen"; "KonjnktivVermeidSetupDoc")

Im Code dann das @Subset(HistoryTimes; 9)); mit
@Subset(HistoryTimes; _AnzZeilenWeilJaEknoriKeineKonjunktiveMag));

und @Subset(HistoryNames; 9) mit
@Subset(HistoryNames; _AnzZeilenWeilJaEknoriKeineKonjunktiveMag)
ersetzen.

 
TMC

*Edit*
Da hat sich wohl ein englischer Aussprache-Bug eingeschlichen, Korrektur do/du

[Semeaphoros]

Wow

   

[eknori]

ich gucke doch nicht in jeden Thread  

[TMC]

Vielleicht sollten wir einen Request an Arne stellen, dass Konjunktive mit ZZZ zensiert werden in den Postings  

TMC

[eknori]

da habe ich ja wieder mal was angestellt ...

[Semeaphoros]

Immer schön lächeln dazu, wie auf der Fotografie ...  

[TMC]

da habe ich ja wieder mal was angestellt ...

Ich finde Du hast in gewisser Weise schon Recht.

Diese Postings "man könnte evtl. dies und das (...) nix genaues weiß man nicht" helfen einem nicht wirklich weiter.

TMC

[Semeaphoros]

Jein, man kann doch häufig beobachten, dass ein solches Posting jemanden triggert, der es weiss, aber selber grade nicht dran gedacht hat. Das würde völlig wegfallen, verböte man den Konjunktiv ............  

[TMC]

Oder halt ein Forums-Zensier-Agent: aus Könnte -> kann, sollte -> muss, etc. Plus 5minütige Reminder Mail an den Poster, dass er endlich mal die Lösung posten soll  

TMC

[Semeaphoros]

... aus würde --> wird
... aus verböte --->  verbietet



Uh, oh, wo nehme ich jetzt den Source-Code her für das Antriggern von anderen Forumsteilnehmern ......... ?  

[TMC]

wie wäre es mit @AllAtNotesMembers ?

Dann kommt es bestimmt an und irgendwer hilft dann schon :-)

TMC

[Semeaphoros]

Dad benutzt aber die API nicht ........