忍者ブログ

ド壺

脳内がNotes/Domino系からASP.NETに移行しつつあるIT系情報ブログなつもり。

   

[PR]

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

小ネタ:簡易読込履歴作成

ある掲示板で誰がいつその文書を読んだのかという履歴を
とっておきたい場合があろうかと思います。
ここで紹介するのは、そんな場合に、その文書を読み込んだ時点で、
読込履歴を子文書に書き込んでしまおうという機能です。

というか、自分の部署では週報を1DBに登録・管理しているのですが、
上司からのレスが無い場合、本当に上司が読んでくれたの??
というのがこの機能を作った理由だったりします。(爆

[ここから作成方法]

まず、読込履歴を溜め込む文書を表示させるフォームを作成します。
「readrecord」というフォームを作成し、フォームの種類を「返答」に。
SubjectフィールドとBodyフィールドを設置します。
Bodyフィールドはリッチテキストフィールドで。

次に、実際読込を行う文書を作成・読込するためのフォームの
QueryOpenに以下スクリプトを書き込みます。
一部、文書作成完了してるかどうかのフラグ制御している部分は
一例として残していますが、
読み込む文書の構成により変更若しくは削除してください。
※R6以降ではkai変数への代入はchr(13)にしたほうがいいらしいです。
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'読込履歴情報をためる*****************
If source.IsNewDoc Then
Exit Sub
End If

Dim session As New NotesSession
Dim db As NotesDatabase
Dim Rdoc As NotesDocument
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = Source.Document

'文書のフラグが作成完了でない場合は、履歴を保存しない
If doc.flag(0) <> "作成完了" Then
Exit Sub
End If

'文書作成者と読込者が同じ場合は、履歴を保存しない
NArray = Session.UserNameList
Dim user As String
user = session.UserName
If doc.From(0) = user Then
Exit Sub
End If

Dim collection As NotesDocumentCollection
Dim Cdoc As NotesDocument
Set collection = doc.Responses
Set Cdoc = collection.GetFirstDocument()
For j = 1 To collection.Count
If Cdoc.Form(0) = "readrecord" Then
'読込履歴があった場合
Gosub CHANGERECORD
End If
Set Cdoc = collection.GetNextDocument( Cdoc )
Next

'読込履歴が無かった場合
Set Rdoc = New NotesDocument ( db )
Call Rdoc.MakeResponse( doc )
Rdoc.Form = "readrecord"
Rdoc.Subject = "★ 読込履歴情報"
Rdoc.Body = NArray(0).common + "  日時:" _
+ Cstr(Now)

Call Rdoc.save(True, True)
Exit Sub

CHANGERECORD:
'読込履歴がある場合
kai = Chr(10)
naiyou = Cdoc.Body(0) + kai + _
NArray(0).common + "  日時:" + Cstr(Now)
Cdoc.Body = naiyou
Call Cdoc.save(False, True)
Exit Sub

End Sub


最後に、読込履歴(子文書)を表示できるように
現在使用されているビューに対し設計変更をしてください。

拍手[4回]

PR

COMMENT

NAME
TITLE
MAIL(非公開)
URL
EMOJI
Vodafone絵文字 i-mode絵文字 Ezweb絵文字
COMMENT
PASS(コメント編集に必須です)
SECRET
管理人のみ閲覧できます

つい笑ってしまいました

  • by たち
  • 2007/02/16(Fri)01:07
  • Edit
作った理由がいいですね。

実言うと、

  • by nami
  • 2007/02/16(Fri)09:08
  • Edit
上司にバレない形で、読込履歴を取りたいという状態だったので、
実際に実装したときは裏ビューつくって、そこで監視してました(爆

TRACKBACK

Trackback URL:

カウンター

ブログ内検索

カレンダー

09 2017/10 11
S M T W T F S
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31

プロフィール

HN:
nami
性別:
女性
自己紹介:
火星人+/ペガサス/ささ女
の完全変人タイプ。

仕事は1事業所のIT管理者。
ノーツDB開発を主に担当。
鯖管理とNetwork管理にも携わる。
ぶっちゃけIT便利屋。
基本は「広く浅く」。
口癖は「メンドクサ。。。」

ついったーやってます。
@namiphoをフォローしてネ


トラバについて
ここの記事のリンクがない記事については、トラバ許可はしませんのでご承知おきください。

最新コメント

No Title(返信済)
(04/25)
No Title(返信済)
(04/12)
No Title(返信済)
(03/01)
(10/07)
(09/29)

バーコード

アフェリエイト


デル株式会社
シマンテックダウンロードストア

お天気情報

アクセス解析

Copyright ©  -- ド壺 --  All Rights Reserved
Design by CriCri / Photo by Geralt / powered by NINJA TOOLS / 忍者ブログ / [PR]