Konzept Doc-History

[TMC]

Hi,

ich bin gerade dabei eine Doc-DB fürs Marketing zu erstellen.

Ist eine ziemlich simpel aufgebaute DB, ein paar Views, kleiner Freigabeworkflow etc.

Zusätzlich protokolliere ich wesentliche Dinge in Feldern mit (wer hat Doc wann geändert, Statusänderung etc.).

Jetzt geht es noch darum, eine Änderunghistorie sinnvoll zu führen, z.B.

Version       Datum                 Änderungen
1                 15.10.2003         Neu
2                 20.10.2003        Kap. 5 neu hinzugefügt
3                 31.10.2003         Layoutanpassung Kap. 7  

usw.

Ich habe da schon daran gedacht, einfach ein Richtextfeld hinzuzufügen, und darin eine normale Notes-Tabelle abzulegen. Ist aber nicht sehr schön, denn die Versionsnummer und das Datum ist ja bereits vorhanden, und müsste der User so nochmal eintragen. Außerdem ist es unmöglich abzufragen, ob denn schon die Versionshistorie gepflegt wurde, wenn eine neue Version freigegeben wird.

Wie löst Ihr sowas?

Matthias

[animate]

eine Möglichkeit:
neue Version nur per Aktion erstellen lassen.
Grund gleich abfragen oder beim Speichern.

Drei Felder machen, Multivalue.
Da dann jeweils Versionsnr., Datum, Grund reinschreiben

[TMC]

Danke Thomas, das wäre wirklich eine Möglichkeit. Neue Version gibt es eh nur auf Button-Klick (Aktion), da diese über diesen Button zur Freigabe eingereicht wird.
Der Übersichtlichkeit halber sollte man dann die Zeilen der einzelnen Versionen wohl mit was trennen (Chr(10) oder "-----" oder so...).

Noch ein Schönheitsproblem dabei:
Wenn aber diverse Änderungen vorgenommen wurden, könnte der Änderungstext ziemlich lang werden und somit z.B. 3 Zeilen beanspruchen (Datum / Version hat ja nur eine Zeile). Dadurch passt dann das ganze nicht mehr sauber zusammen....

Evtl. könnte man die Stringlänge abfragen und in den beiden anderen Feldern dann bei bestimmter Länge ein Chr(10) einfügen. Aber dann müsste ich eine unschöne nicht-proportionale Font wie Courier nehmen...

Any idea?

Matthias

[animate]

naja, es gab bei mir bis jetzt 2 Mal dieses Problem mit der schönen Darstellung in einer Tabelle.
Beide Male habe ich ein Java Applet mit einem JTable drauf benutzt, weil ich keine andere Möglichkeit kenne.
Der NotesClient ist einfach nicht dafür gemacht, Dinge schön darzustellen.

[TMC]

Der NotesClient ist einfach nicht dafür gemacht, Dinge schön darzustellen.

Na ja, ist Ansichtssache  

Ich werde wohl wirklich den Weg mit einer nicht-proportionalen Schriftart gehen müssen im Text.
Wenn Feld-String history_Text z.B. > 100 Zeichen: ein Chr(10) nach dem 100. Zeichen rein.  Wenn > 200, ein weiteren Zeilenumbruch usw. Das dann in allen 3 Feldern.
 
Muss aber erstmal ausmessen, wieviele Zeichen denn pro Zeile Platz haben....

Hab ich jetzt wirklich keine Lust dazu, das umzusetzen, werde ich wohl aufschieben.
Lotus Script - Praktikanten habe ich leider keinen  

Matthias

P.S. habe schon an eine embedded View gedacht, wo ich pro Versionsänderung ein (Antwort)-Dok anzeige. Ist aber wohl irgendie einwenig wie mit Kanonen auf Spatzen schiessen....

[animate]

da fällt mir gerade was ein, was ich glaube ich neulich irgendwo gesehen habe.
wenn ich mich recht entsinne, dann wurde für diesen Zweck eine Listbox hergenommen. Die hat ne feste Breite, der Text wird automatisch beschnitten. Und man kann auf Wunsch den gesamten Text einer Zeile anzeigen.

Etwas vage Erinnerungen, aber vielleicht hilfts

[animate]

in dieser Anwendung hab ichs gesehen (glaube ich)
http://martinscott.com/home.nsf/pageview/NoteMan1

[Semeaphoros]

Man nehme tatsächlich ein RT-Feld
Pro hysterischem Eintrag mache man folgenes:

Man formatiere mit NotesRichTextParagraphStyle und mit NotesRichTextTab den Paragraphen so, dass der linke Rand um sagen wir 3cm eingezogen ist. Für die erste Zeile wird ein linker Rand eingestellt, der dem standard-Rand entspricht. Dann setzt man Tabulatoren auf 0,5cm vom linken Standardrand und auf 3cm (also dem Einzug, den der Paragraph hat)

Dann gibt man die Angaben wie folgt an:

Version TAB Datum TAB hysterischer Text NEWPARAGRAPH

[animate]

schön
was schwieriger wird, wenn du RT verwendest ist die Auswertung der Historie. Sei es in Views oder per Formel/Script (also z.B. gib mir mal den Grund der dritten Version) Das wird sogar schon unbequem, wenn du nur ein normales Textfeld nimmst anstelle von dreien.
Hmm, das ließe sich aber durch versteckte Felder umgehen, in denen die Daten gespeichert werden, Im RT Feld werden die Daten dann vorm Öffnen schön aufbereitet...

[TMC]

Danke Euch beiden.

@Thomas: das muss ich mir mal näher ansehen.


@Jens:
Verstehe ich noch nicht ganz. Bekomme ich dann wirklich ein Ergebnis wie z.B. folgendes:

Version      Datum                Änderungen
1                15.10.2003        Neu
2                20.10.2003        Kap. 5 neu hinzugefügt, ziemlich viel Text geschrieben,
                                            dann noch viel mehr geändert, etc. und so weiter etc.
3                31.10.2003        Layoutanpassung Kap. 7 , außerdem Kap. 8 geändert,
                                            Kapitel 5 hat  auch nicht mehr gepasst
4                 05.11.2003       noch mehr geändert.


Matthias

[TMC]

Ups, habe Jens' Beitrag nochmal gelesen, sollte genau das sein was ich möchte  

Danke,
Matthias

[Semeaphoros]

Nur allzu verständlich, dass man das nicht auf Anhieb versteht ich hab mal nen Faxconverter geschrieben, in dem ich von einem Warenwirtschaftssystem Daten entgegennehme und dann an den Faxgateway weitergebe, da habe ich genau so Sachen machen müssen  

[TMC]

Jetzt muss ich (leider) noch einen draufsetzen:

Angenommen ich habe dann so eine Textliste im RTFeld:

Version      Datum                Änderungen
1                15.10.2003        Neu
2                20.10.2003        Kap. 5 neu hinzugefügt, ziemlich viel Text geschrieben,
                                            dann noch viel mehr geändert, etc. und so weiter etc.
3                19.03.2004        Layoutanpassung Kap. 7 , außerdem Kap. 8 geändert,
                                            Kapitel 5 hat  auch nicht mehr gepasst

Der letzte Eintrag hat sich gefüllt, weil der Bearbeiter auf "zur Freigabe einreichen" geklickt hat. Als Datum wurde das heutige Datum genommen.

Jetzt gibt aber der Freigeber das Dok erst am Montag frei. Gibts da ne Möglichkeit, das RTFeld via Search&Replace "19.03.2004" -> "22.03.2004" zu durchforsten?

Matthias

[TMC]

Wenn nicht möglich: auch kein Drama, dann lass ich das RTF erst bei Freigabe füllen, und speichere den Änderungstext temporär in einem Textfeld.

Matthias

[Semeaphoros]

Gibt es in Normunds rtlib ( http://www.rtlib.com ), aber leider nicht im Standardarsenal von ND 5. Weiss nicht auswendig, ob es in ND6 zur Verfügung steht.

Die Möglichkeit, das zwischenzuspeichern, ist das eine, wenn man das ganze dann so wie Thomas geschildert hat ablegt, lässt sich das RT - Feld in einem solchen Fall wieder neu aufbauen

[TMC]

jo, danke Jens, aber Normunds rtlib will ich nicht gleich für eine (meines Erachtens) "Kleinigkeit" einsetzen. Auch wenn Normunds das Geld Wert wäre  

Ich werde es wohl über die Zwischenspeicherung lösen....

Matthias

[Semeaphoros]

Denke ich auch, wollte es der Vollständigkeit halber erwähnt haben, da Search & Replace doch eigentlich ganz nützlich wären in RT-Feldern

[TMC]

Danke nochmal, habe es jetzt nach dem Vorschlag von Jens getestet und klappt wunderbar.

Code

Sub Click(Source As Button)
   Dim uiws As New NotesUIWorkspace 
   Dim uidoc As NotesUIDocument    
   Dim session As New NotesSession 
   Dim db As NotesDatabase 
   Dim doc As NotesDocument
   Dim tabpos1 As Long
   Dim tabpos2 As Long
   
   Set db = session.CurrentDatabase
   Set uidoc = uiws.CurrentDocument 
   Set doc = uidoc.Document    
   
   Dim rtpStyle As NotesrichTextParagraphStyle
   Set rtpStyle = session.CreateRichTextParagraphStyle
   
   Dim rti As Variant
   Set rti = doc.GetFirstItem( "Historie" )
   If ( rti.Type <> RICHTEXT ) Then Exit Sub
   
   'Linke Ränder definieren   
   rtpStyle.FirstLineLeftMargin = RULER_ONE_INCH   
   rtpStyle.LeftMargin = RULER_ONE_CENTIMETER * 7
   'Tabs definieren und setzen   
   tabpos1= RULER_ONE_CENTIMETER *5
   tabpos2= RULER_ONE_CENTIMETER *7
   Call rtpStyle.SetTab( tabpos1, TAB_LEFT)   
   Call rtpStyle.SetTab( tabpos2, TAB_LEFT)   
   'Textformatierung definieren
   Dim richStyle As NotesRichTextStyle
   Set richStyle = session.CreateRichTextStyle   
   'Paragraph-Style hinzufügen   
   Call rti.AppendParagraphStyle(rtpStyle)
   'Text in Richtextfeld setzen
   richStyle.FontSize = 8
   Call rti.AppendStyle(richStyle)      
   Call rti.AppendText(doc.Datum(0))
   Call rti.AddTab(1)
   Call rti.AppendText (doc.Version(0))
   Call rti.AddTab(1)
   Call rti.AppendText (doc.Aenderungen(0))
   Call rti.AddNewLine(1)
   
   doc.FORM = "test"
   Call doc.Save(True, False)   
   
   Call uidoc.close
End Sub