のおつ -Lotus Notes/Dominoに関すること-

全角とか半角とか大文字とか小文字とかを統一しよう

2012-02-09T17:28:00.000+09:00

こんにちは。
昨日、Twitter/Facebook上で、「しばらくブログ更新出来ないかも・・・」と言ったにもかかわらず、ご機嫌なことがあったので（＾＾）、記事を書きます。

と言っても、大したネタは仕込めてないので余り期待しないでくださいね。

ということで、本題に入る前に恒例のボタンをクリックしてください。

今回は、久しぶりの@関数についてです。なんと、約1年ぶりです。

文字列を入力する際、大文字とか小文字とか全角とか半角とか、決まりを付けたいときがありますね。
しかし、ルールを決めても守ってくれない場合があります。

そんなときは、素直にノーツの@関数で変換してしまいましょう。

では、サンプルです。
最初に、変換したい文字列を入力します。
次に、どのような変換方式にするのかを選択します。
最後に、変換方式に従った内容をプロンプトで表示するというものです。

大文字小文字への変換がそれぞれ、@UpperCase()関数と@LowerCase()関数です。
全角半角への変換はそれぞれ、@Wide()関数と@Narrow()関数です。
2×2ということで、全部で4パターンあるので、選択肢は4つになっています。

---------------------------------------------------------------
tmp := @Prompt([OkCancelEdit];"文字列の変換";"カタカナ英数字を何か入力してください。";"");
sel := @Prompt([OkCancelCombo];"変換方式";"文字列の変換方式を選択してください。";"";"1.大文字全角":"2.大文字半角":"3.小文字全角":"4.小文字半角");

ret := @If(sel="1.大文字全角";@UpperCase(@Wide(tmp));sel="2.大文字半角";@UpperCase(@Narrow(tmp));sel="3.小文字全角";@LowerCase(@Wide(tmp));sel="4.小文字半角";@LowerCase(@Narrow(tmp));"");

@Prompt([Ok];"変換後の文字列";ret)

ただ、残念なことに、この関数では「ひらがな」は変換の対象外になってしまうようです。
ひらがなを変換したい場合は、LotusScriptのStrConv関数を使いましょう。
サンプルは、文字列の変換にありますので、そちらを参照ください。

Lotus Notes/Dominoの事なら、何でも！！もちろん、XPagesについても承ります！

おじさんSEシリーズのまとめ

2012-01-29T16:52:00.001+09:00

Lotus Notes/Dominoファンの皆様、こんにちは。
最早、週末ブロガーと化した筆者です。

1/27の金曜日は、テクてくロータス技術者夜会がありました。
そこでは、筆者が行きたくて仕方なかったLotusphere 2012の情報がいくつか発表されました。
詳しくは、IBM Championの加藤さんが書いたブログ（テクてく Lotus 技術者夜会 (2012/01) ）に出ていますので、そちらをご覧ください（筆者もメモは取ったのですが加藤さんのブログを見たら、もう・・・）。

さて、今日も本題に入る前にこちらのボタンを押してくださいね。

さて・・・
前回の投稿で、「おじさんSEが学ぶXPages」シリーズは完結したわけですが、さすがに16回も書いていると、自分でもどの回にどういう事を書いたのかを忘れてしまいそうなので、表にまとめてみました。
学習する際の参考にしていただければと思います。

リンク	内容
おじさんSEが学ぶXPages(1)	アプリケーションとフォームの作成
おじさんSEが学ぶXPages(2)	画面遷移の設計と各種コントロールの作成
おじさんSEが学ぶXPages(3)	共通画面（containerコントロール）の作成 1
おじさんSEが学ぶXPages(4)	共通画面（containerコントロール）の作成 2
おじさんSEが学ぶXPages(5)	蔵書一覧ページの作成（Xpagesでビューを表現）
おじさんSEが学ぶXPages(6)	貸し出し一覧ページの作成（Xpagesでビューを表現）
おじさんSEが学ぶXPages(7)	蔵書登録編集ページの作成（Xpagesでフォームを表現）
おじさんSEが学ぶXPages(8)	蔵書登録ボタンの作成（蔵書一覧ページと蔵書登録ページの連携）
おじさんSEが学ぶXPages(9)	蔵書貸出ページの作成と、貸し出し一覧ページとの連携
おじさんSEが学ぶXPages(10)	機能の追加1　（蔵書登録ページと蔵書貸出ページの連携）
おじさんSEが学ぶXPages(11)	機能の追加2　（Statusの追加とタイプアヘッド機能の追加）
おじさんSEが学ぶXPages(12)	機能の追加3　（入力チェックの追加）
おじさんSEが学ぶXPages(13)	機能の追加4　（蔵書の返却）
おじさんSEが学ぶXPages(14)	不具合の修正1　（蔵書貸出の多重起動の防止、蔵書貸し出し者の判別機能等）
おじさんSEが学ぶXPages(15)	機能の追加5　（督促機能）
おじさんSEが学ぶXPages(16)	Xpagesアプリケーションの起動方法について

ちなみに、このシリーズで作成したノーツアプリケーションは、サンプルなのでまだまだ不具合を抱えています。
現在、筆者の方でその不具合を改修したものを作成しています。
修正が完了したら、ダウンロードできるようにします（どこで公開するかは未定）ので、お楽しみにしてください。

また、この次のXPagesの連載ネタもいくつか考えていますので、そちらもお楽しみに。

おじさんSEが学ぶXPages(16)

2012-01-08T18:44:00.000+09:00

こんにちは。
新年1回目の投稿です。

1月と言えば、Lotusphere 2012が開催されますね。今年のLotusについての発表が大々的に行われますので、筆者も注目しています。
本当は行きたかったのですが、そんな余裕はなかったようです・・・
ですので、ネット上で情報をチェックしようと思います。

さて、今年もこのボタンをクリックするところから記事を読み始めてください。

今回は、ついに年を越してしまったXPagesアプリケーションの連載の詰めとしてXPagesアプリケーション自身の設定について確認してみます。できれば、今回で終わりにしたいですね。

今までアプリケーションを作成してきましたが、一度も実行していません（ブログ内でプレビュー画面を見せてはいましたが実行方法については触れていません）。

ノーツアプリケーションなんだから、DBアイコンをダブルクリックして開けば良いんじゃないの？
と思っている方、実際にやってみてください。
XPagesの画面ではなく、従来のアプリケーションを作成していたときのビュー画面が表示されるはずです（下図参照）。

ノーツアプリケーションをダブルクリックで開いた

せっかく作ったのに、これでは意味がありません。
ということで、XPagesとして開く方法を設定します。

いくつか方法はあるのですが、ここではLotus Domino Designerでの設定方法を確認しましょう。

Lotus Domino Designerで「図書管理 for XPages」を開きます。

画面左側にある「アプリケーション」ビューの中の一番下にある「アプリケーションのプロパティ」をダブルクリックします（下図参照）。

アプリケーションのプロパティ

すると、「基本プロパティ」という画面が表示されるはずです（下図参照）。

基本プロパティ

ここで「起動」というタブを開きます。（わかりにくい位置にありますが、上図で言うと、赤枠の左下部分にあります）

起動プロパティ

ここで、ノーツクライアントでXpagesアプリケーションが利用できるように設定します（8.5.1以降のスタンダード版クライアントのみ）。

Lotus Notes Client の起動の「起動」オプションをクリックして、「指定したXpageを開く（Standard版クライアント）」を選択します。（下図参照）。

ノーツクライアントでXpageを開く

開くXpageは「home」としておきます。

これで、この画面を保存します（[ファイル][保存]メニューを実行、もしくはCtrl+s）。

これだけです。

なんとも簡単ですね。では、本当にこれだけで良いのか？実際にノーツアプリケーションを開いて確認してみましょう。
ノーツクライアントから、「図書管理　for Xpages」アプリケーションのアイコンをダブルクリックして開きます。

初回の起動時は、Xpage用のモジュールをロードするらしく、多少時間はかかりますが、正常に起動すると下図のような画面になるはずです。

ノーツクライアントでXpageを起動

今までに実装してきたものが動くかどうか試してみましょう。
まずは、「蔵書登録」から。

蔵書登録画面

各項目に必要事項を入力して、[保存]ボタンをクリックします。
すると、「蔵書登録」文書が保存されて「蔵書一覧」画面に戻ります。そこには、今し方保存した文書が表示されています（下図参照）。

蔵書一覧ページ

表示されている文書の「蔵書名」はリンクとして設定されているので、クリックすると文書の詳細内容が表示されます。
新規作成時は、[保存][キャンセル]だったボタンが[編集][蔵書貸出][キャンセル]に変更されている事を確認してください。

蔵書表示画面

ここで、[蔵書貸出]ボタンをクリックすると、「蔵書貸出」画面になるので、必要事項を入力して、[保存]ボタンをクリックします。

蔵書貸出画面

すると、「貸し出し一覧」ページが表示されます。
そこには、今し方貸出をした文書が表示されています。Statusも「貸出中」になっています。

貸し出し一覧画面

ちなみに、蔵書一覧ページを見ると、蔵書文書の状況は「貸出中」になっています。

蔵書一覧ページ（状況が「貸出中」になっている）

蔵書貸出文書を開いて[返却]ボタンをクリックすると、「蔵書貸出文書」のStatusは「返却済」に、「蔵書登録文書」の状況は「」（空白）になり、再度貸し出しが出来るようになります。

ということで、基本的な機能は一通り実現できました。

これでXPagesアプリケーションは完成です。
なお、「アプリケーションのプロパティ」画面を見ると、XPageタブがありますが、ここはデフォルトのままでも動作しますので、今回の連載では触れないでおきます。

アプリケーションのプロパティ（Xpage）

ここについては、Tipsのような形で、またの機会に紹介するものとします。

さて、16回の長きにも渡って連載してきたXpageアプリケーションの作成についても、今回で終了とします。
いくつかの不具合は抱えたままになっていますが、それは今までの連載の内容を元に、各自で修正してみてください。

それでは、今年も筆者共々、当ブログをよろしくお願いします。

Lotus Notes/Dominoの事なら、何でも！！もちろん、XPagesについても承ります！

おじさんSEが学ぶXPages(15)

2011-12-29T15:29:00.001+09:00

みなさん、こんにちは。

昨日、Twitterで予告したとおり、今年最後のブログです。
会社は昨日（12/28）で仕事納めでしたが、筆者自身はこのブログが仕事納めという事になります。

年々、ブログへの投稿数が減っていましたが、後半はXPages関連のブログを書くという事になり、そのおかげで、Lotus Notes/Dominoに関する情報発信を続けていく事が出来ました、

さらには、このブログを続けていったおかげで、2011～2012年度のIBM Championにも選出されました。先に選ばれた日本人Championのお三方の事を考えると、本当に筆者なんかで良いのか？とも考えてしまいますが、選ばれた以上は、それだけの事はしていきます。

さて、今年最後の記事を読む前に、最早、「言われなくても押してやるよ・・・」と思われているボタンを押してください。

それでは、前回の終わりで予告したように、今回は「蔵書の返却期限に意味を持たせる」ということを考えてみましょう。
色々と実現方法は考えられますが、今回はオーソドックスに「督促メールを送信する」という
事にします。
そう言う意味では、今回はあまりXPagesには触れないかもしれませんが・・・

では、仕様を確認しながら、実装方法を考えていきます。
督促メールを送るのは、貸し出されている蔵書の返却期限を過ぎているものに対してです。
従って、「蔵書貸出」ビューに表示されている文書のうち、返却期限が昨日以前のものが対象です。

「蔵書貸出」ビューの文書を全部取得して、1文書ずつ返却期限を確認しても良いのですが、貸出文書が増えてくると、時間がかかってしまいます。

そこで、「返却期限」を過ぎた「蔵書貸出」文書だけを表示するビューを作成します。

新規に「返却期限切れ」（別名：TimeExpire）という名前でビューを作成します。
ビューの選択式は、「SELECT Form ="Lending" & ( Status = "貸出中" & LendingTerm < @Today )」とします（下図参照）。

返却期限切れビューの作成

今回は、このビューの内容はこれ以上、編集する必要がないので、このまま[OK]をクリックします。

次に、督促メールを送るエージェントを作成します。
エージェントの名前は、「ReturnReminder」としてください（下図参照）。

督促メール送信エージェントの作成

コードは以下のように記述してください。
----------------------------------------
Sub Initialize
    Dim session As New NotesSession
    Dim db      As     NotesDatabase
    Dim view    As     NotesView            '返却期限切れビュー
    Dim doc     As     NotesDocument        '返却期限切れの蔵書貸出文書
    Dim mdoc    As     NotesDocument        '督促メール文書
    Dim mritem As     NotesRichTextItem    '督促メール文書の本文（リッチテキスト）

    Set db   = session.Currentdatabase
    Set view = db.GetView( "TimeExpire" )
    view.Autoupdate = False

    Set doc = view.Getfirstdocument()
    Do While Not ( doc Is Nothing )
        'ここで督促メールを作成、送信
        Set mdoc = db.Createdocument()
        mdoc.Form    = "Memo"
        mdoc.SendTo = doc.Getitemvalue( "LendBy" )(0)
        mdoc.Subject = "【督促メール from 図書管理 for XPages】"
        Set mritem = New NotesRichTextItem( mdoc, "Body" )
        Call mritem.AppendText( "次の図書の返却期限が切れています。早く返却するようにしてください。　" & doc.BookName(0) )
        Call mritem.AddNewline( 2, True )
        Call mritem.AppendDocLink( db, "リンクをクリックしてください", db.Title )

        '督促メールの送信
        Call mdoc.Send( False )

        '次の文書を取得
        Set doc = view.Getnextdocument( doc )
    Loop

    view.Autoupdate = True
End Sub
----------------------------------------

また、エージェントはスケジュールエージェントとして設定しておきます（下図参照）。

エージェントの内容

これで、返却期限を過ぎても、蔵書が返却されない場合は、利用者に督促のメールが、一日ごとに送信されるようになります。

リンクがDBリンクになっているので、対象となる蔵書貸出文書が直接開かれる事はないですが、今回はサンプルなので、ここまでとしておきます。

その他にもまだまだ問題点はありますが、実装そのものはここで終了とします。

次回は、XPages アプリケーションとしての設定を行います。

あと、１～２回でこの連載は終了となります。
目標としていた年内の完結は無理でしたが、実装自体は完了したので良しとさせてください。

来年は、今までのようにtips記事を増やすようにしていきます。
LotusScript、@関数の他に、XPagesのtipsもお届けできるようにしますので、ご期待ください。

それでは、来年も筆者共々、このブログをよろしくお願いします。

Lotus Notes/Dominoの事なら、何でも！！もちろん、XPagesについても承ります！

おじさんSEが学ぶXPages(14)

2011-12-25T09:56:00.000+09:00

クリスマスです。
みなさんはクリスマスプレゼントはもらったのでしょうか？いや、読者の大半はあげるほうでしょうか？
筆者は・・・内緒です。

さて、そんなクリスマス連休も今日で終わり。ついにあと一週間で今年も終わりです。
すでに、年末年始の休暇に入られた方もいるのではないかと思いますが、もう少しだけ頑張りましょう！

では、今週一週間を乗り切るために、ボタンをクリックしてから読みましょう。

前回は、蔵書の返却について実装しました。
一応はできたものの、以下の3つの不備がある事が判明しましたね。

貸出中の蔵書文書を開いても、「蔵書貸出」ボタンが表示されてしまう
「蔵書登録/編集」文書を見ても、誰が借りているのかが不明である
「蔵書登録/編集」文書から、「蔵書貸出」文書へのリンクがないため、「貸し出し一覧」経由でないと開けない。

ということで、これらを解消しましょう。

まずは、「１．貸出中の蔵書文書を開いても、「蔵書貸出」ボタンが表示されてしまう」から。
これは簡単ですね。「蔵書貸出」ボタンに可視化の設定を施せば良いのです。

「BookResource」カスタムコントロールを開きます。
「蔵書貸出」ボタンを選択して、「プロパティ」ビューを開きます。

「可視」はすでに{計算済み}になっているはずですが、右側にある◆をクリックして、値の計算を選択します。
スクリプトエディタが開くので、条件式を変更します（下図参照）。
変更前：　! ( document1.isNewNote() | document1.isEditable() )
変更後：　!(document1.isNewNote()) && !(document1.isEditable()) && document1.getValue( "Status" ) != "貸出中"

「蔵書貸出」ボタンの可視化設定の修正

以前は、読み込みモードの時だけ表示するという設定だったので、そこにStatusフィールドが"貸出中"でないときという条件を追加しています。
Status==""ではダメです。これはStatusフィールドを明示的に作成していないので、Statusフィールドが存在しない文書もあるためです。

次に「２．「蔵書登録/編集」文書を見ても、誰が借りているのかが不明である」ですね。
これは、蔵書を貸し出したときに、「蔵書登録/編集」文書に貸出者の名前を登録するのと、「蔵書登録/編集」のXPageにその名前を表示する領域を作る事の2つが必要です。
さらに言えば、「返却」されたときに、その貸出者の名前をクリアする事も必要です。
順を追って作業していきましょう。

現時点では、「BookResource」カスタムコントロールを開いているはずですので、
「貸出者」の名前を表示できるようにしてしまいましょう。

表の中の「状況：」の下のセルをマウスで右クリックして、下に行を挿入します（下図参照）。

行の挿入

挿入された行の左側のセルにラベルコントロールを追加します。これの「ラベル」は"利用者"にします。
右側のセルには、計算結果コントロールを追加します。
「プロパティ」ビューの「値」タブは、JavaScriptとして、計算式は
document1.getValue( "Borrower")
とします（下図参照）。

「利用者」計算結果フィールドコントロールを追加

これで「BookResource」カスタムコントロールを保存します。

次は、「貸出」アクションと「返却」アクションの修正です。
ですが、色々実装を試した結果、今までに紹介したやり方だとうまくいかない部分が出てきてしまいました。
そこで申し訳ないのですが、「LendData」の[保存]ボタンのアクションの内容を変更させていただきます。
「LendData」カスタムコントロールを開いてください。
[保存]ボタンコントロールのイベントビューを開きます。
一つ目のアクションを次のように編集してください。
LendingDocument.setValue( "Status", "貸出中" );
LendingDocument.setValue( "BookResourceDocID", sessionScope.lendingBookResource );

LendingDocument.save()

var agent = database.getAgent( "ChangeStatus" );
agent.runWithDocumentContext( database.getDocumentByID( LendingDocument.getNoteID()) );
agent.recycle()

「LendData」カスタムコントロールの[保存]ボタンのカスタマイズ

エージェントの実行対象文書を「蔵書登録/編集」文書から「蔵書貸出」文書に変更しています。
これで「LendData」カスタムコントロールを保存してください。

次に、「貸出」アクションを修正するので、「ChangeStatus」エージェントを開きます。
エージェントの実行対象文書が変わったので、大幅に変わります。
変更後のエージェントコードを載せるので、丸ごと入れ替えてください。
Sub Initialize
    Dim session As New NotesSession
    Dim doc As NotesDocument
    Dim BookResourceDoc As NotesDocument
    Dim db As NotesDatabase

    Set db = session.Currentdatabase
    Set doc = session.Documentcontext

    Print "文書ID = " & doc.BookResourceDocID(0)

    Set BookResourceDoc = db.Getdocumentbyid( doc.BookResourceDocID(0) )

    Call BookResourceDoc.Replaceitemvalue( "Status", "貸出中" )
    Call BookResourceDoc.Replaceitemvalue( "Borrower", doc.LendBy(0) )
    Call BookResourceDoc.Replaceitemvalue( "LendDocID", doc.Noteid )
    Call BookResourceDoc.Save( True, True, True )
End Sub
（下図参照）。

エージェントを修正

行っている事自体はほとんど変わりません。
「蔵書貸出」文書にセットしてある「蔵書登録/編集」文書の文書IDを元に「蔵書登録/編集」文書を呼び出し、そこに「状況」「利用者」「蔵書貸出文書の文書ID」をセットして保存しています。

続いて、「returnBook」エージェントを開きます。
こちらはたいした変更はありません。
Call doc.Replaceitemvalue( "Status", "" )
の下の行に
Call doc.Replaceitemvalue( "Borrower", "" )
Call doc.Replaceitemvalue( "LendDocID", "")
を追加します（下図参照）。

返却エージェントのカスタマイズ

これで、蔵書が返却されたときに、「利用者」と「貸出文書ID」が空欄になります。

※2012年2月1日　追記
上記2つのエージェント（「ChangeStatus」及び「returnBook」）は、「Webユーザとして実行」するようにしてください。
そうしないと、Webブラウザで動かしたときにエージェントが実行出来ないでエラーになります。

そして、「３．「蔵書登録/編集」文書から、「蔵書貸出」文書へのリンクがないため、「貸し出し一覧」経由でないと開けない。」を解決しましょう。
※実は、こいつを実現するために、「２．」の内容を大幅に変更しました。

これは、「BookResource」カスタムコントロールに、現在貸し出している「蔵書貸出」文書を開くというアクションを追加すれば良いだけです。

「BookResource」カスタムコントロールを開きます。
[キャンセル]ボタンの右側にボタンを追加します。ラベルは"貸出文書を開く"とします。（下図参照）。

「貸出文書を開く」ボタン

このボタンは、「蔵書」が"貸出中"の時だけ表示すれば良いので、「可視化」の設定を以下のようにします。
document1.getValue( "Status" ) == "貸出中" && !(document1.isEditable())

「貸出文書を開く」の可視化設定

次に「イベント」ビューを開きます。
以下のアクションを追加してください。
アクション：　ページを開く
開くページの名前：　Lending
ターゲット文書：　文書を開く
文書ID：　右側の◇をクリックして、「値の計算...」を選択した後、
document1.getValue( "LendDocID" )
と入力して、[OK]とします。
全部設定が完了すると下図のようになります。

「貸出文書を開く」アクション

これで一通り出来ました。
次回はいよいよ、「返却期限を過ぎても、何も起きない（つまり、返却期限の設定に意味がない）。」を実装します。

年内は無理だよなぁ・・・
期待しないで待っててね。

おじさんSEが学ぶXPages(13)

2011-12-21T23:48:00.003+09:00

こんばんは。年末が近づいてくると、仕事納めの事を考えてしまいがちですが、まだまだ早いです。
筆者のXPagesブログ、【新規にDBを作ろう編】が終わってません。
なんとか年内に終わらせたい筆者は、頑張って執筆（？）しますよ！

では、今日も秘密のボタンをポチッと押してから次へ。

さて、始める前にちょこっと告知を。
前回のおじさんSEが学ぶXPages(12)の中で、[キャンセル]ボタンをクリックした際に、入力チェックが働かないようにする方法を紹介しました。
こちらですが、もう少し簡単な方法がある事が分かりましたので、記事中に追加してあります。
一度読んだ方も、再度読み直していただければ幸いです。
この情報提供者は、筆者も尊敬しているS山さんです。この場を借りて、御礼申し上げます。

それでは、今日の本題です。前回の終わりに予告したように、今回から「蔵書の返却」について取り扱っていきます。

[返却]アクションの内容は次の通りです。
・「蔵書貸出」文書の状況が"返却済"に、文書の返却日が今日の日付になる。
・「蔵書登録/編集」文書の状況が""になる。

これにより、どうなるかというと、

１．図書の返却督促処理の対象外になる。

２．蔵書が貸出可能になる。

ということです。

上記を踏まえて実装していきましょう。
「蔵書の返却」なので、「蔵書貸出」画面にこの機能を追加しますから、「LendData」カスタムコントロールを開きます。

[保存]ボタンと[キャンセル]ボタンの間に、新しいボタンを追加します。
「コントロール」ビューから、ボタンコントロールをドラッグ＆ドロップします（下図参照）。

[返却]ボタンを追加

ボタンのラベルは、「返却」とします。
蔵書が返却されている場合は、このボタンは表示したくないので、「可視化」の右にある◇をクリックして、「値の計算...」を選択します。
スクリプトエディタが表示されるので、
@If(LendingDocument.getValue("Status")=="貸出中", @True(), @False())
と記述します。
これは、「蔵書貸出」文書のStatusフィールドの値によって、ボタンを表示するかしないかを決めるというものです（下図参照）。

[返却]ボタンの可視化設定

次に「イベント」ビューを開きます。
アクションを3つほど追加します。

1つ目のアクションはこちら。
「アクション」は、"スクリプトの実行"
「言語」は、"JavaScript(サーバサイド)"
「内容」は、
LendingDocument.setValue( "Status", "返却済");
LendingDocument.setValue( "ReturnDay", @Today() );
LendingDocument.save()
とします。

これで、「蔵書貸出」文書の内容が返却済みの状態になりました。

2つ目はこちら。
「アクション」は、"スクリプトの実行"
「言語」は、"JavaScript(サーバサイド)"
「内容」は、
var agent = database.getAgent( "ReturnBook" );
agent.runWithDocumentContext( database.getDocumentByID( LendingDocument.getValue("BookResourceDocID") ));
agent.recycle()
とします（下図参照）。

[返却]ボタンの2つ目のアクション

「ReturnBook」は、「蔵書登録/編集」文書の内容を編集するためのエージェントです。
おじさんSEが学ぶXPages(10)で紹介した「ChangeStatus」エージェントとほぼ同じです。
コードは以下の通り。
Sub Initialize
   Dim session As New NotesSession
   Dim doc As NotesDocument

   Set doc = session.Documentcontext

   Call doc.Replaceitemvalue( "Status", "" )
   Call doc.Save( True, True, True )
End Sub

違いは、Statusを""にするということだけです。

ReturnBookエージェント

また、エージェントを実行する際に渡す文書IDですが、「BookResourceDocID」フィールドの値を渡すようにしています。
このフィールドは、実はまだ作成していません。

ということで、作成するようにします。
同じく「LendData」カスタムコントロール内にある[保存]ボタンを選択して、「イベント」ビューを開きます。
アクションの中の1つ目である「スクリプトの実行」をダブルクリックして開きます（下図参照）。

[保存]ボタンを編集する

LendingDocument.setValue( "Status", "貸出中" );
という行の下に、
LendingDocument.setValue( "BookResourceDocID", sessionScope.lendingBookResource );
というコードを1行追加します（下図参照）。

[保存]ボタンにコードを追加

これで、「蔵書登録/編集」文書の文書IDが「蔵書貸出」文書に格納されるようになります。
と同時に、[返却]ボタンをクリックしたときに、「蔵書登録/編集」文書を特定する事が出来ます。

話が逸れました。では、3つ目のアクションです。
「蔵書貸出」文書を編集して保存しているので、画面を切り替える必要があります。
「貸し出し一覧」ページに移動するので、
「アクション」は"ページを開く"、
「開くページの名前」は"Issueguides"とします。

これで「LendData」カスタムコントロールを保存します。

ということで、「返却」機能が実装されました。
後戻りが発生したため、ちょっと難しかったかもしれませんが、落ち着いてやってみてください。

今回はここまでとします。が・・・
お気づきの方もいるかと思いますが、新たな問題が発覚しました。

貸出中の蔵書文書を開いても、「蔵書貸出」ボタンが表示されてしまう
「蔵書登録/編集」文書を見ても、誰が借りているのかが不明である
「蔵書登録/編集」文書から、「蔵書貸出」文書へのリンクがないため、「貸し出し一覧」経由でないと開けない。

特に、1.は実装されていないと、何重にも蔵書が貸し出されてしまう事になります。
次回は、督促処理を行う前に、これらの問題を解決しましょう。

では、また次回。

Lotus Notes/Dominoの事なら、何でも！！もちろん、XPagesについても承ります！

おじさんSEが学ぶXPages(12)

2011-12-19T23:45:00.000+09:00

えー・・・なんと二日続けての更新です（執筆開始時の時刻です）。
さすがに、入力チェックのことを書くのに、一週間も空けるのは・・・という次第です。

実は、この部分も昨日中に書いてしまおうかと思ったのですが、入力チェックの方法を
「ど忘れ」してしまい、調べるのに時間がかかったので、持ち越したというのが真相です。
筆者でもこんなことはあります。
題名通り、もうおじさんです・・・

さて、そんなおじさんを応援してから読んでくださいね。

ということで、入力チェックについてです。

XPagesの機能として、提供されている入力チェック方法は（筆者が知りうる限り）２つです。
（他にもご存じの方がいれば、読んだ後にコメントくださいm(_ _)m）

それぞれ、実装しながら、紹介していきます。

では、まずは「蔵書登録/編集」画面に入力チェック機能を実装しましょう。
「BookResource」カスタムコントロールを開きます。

フィールド数が少ないので、全部に入力チェックをかけても良いのですが、今回は「蔵書名」に入力チェックをかけます。
蔵書名のフィールド（BookName）を選択します。
「プロパティ」ビューの「妥当性検査」タブを開きます（下図参照）。

妥当性検査タブ

この中の「必須フィールド」のチェックをつけて、「必須フィールドのエラーメッセージ」に入力チェック時のエラーメッセージを入力します。
今回は、「蔵書名が入力されていません。」とします。

ちなみに、その右側にある「長さバリデータ」の箇所に、数値を入力しておくと、フィールドに入力された文字数が範囲外の時はエラーとして扱う事が出来ます。

※蔵書名は、長さ制限を設ける必要がないため、ここは何も設定しません。

これで良いのですが、このままだと画面が切り替わるたびに、この項目の入力チェックが行われます。
[キャンセル]ボタンをクリックされたときや、別のタブ（蔵書一覧、貸し出し一覧）を選択されたときは、入力チェックが行われては困ります。
そこで、これらのアクションが行われるときは、入力チェックが行われないようにします。

[キャンセル]ボタンを選択した状態で、「イベント」ビューを開きます。
「サーバーオプション」の中にある「データの検証または更新を行わない」にチェックをつけます（下図参照）。

データの検証または更新を行わない

これで保存します。

※ 2011/12/21 追加

[キャンセル]ボタンですが、次の方法でも、「データの検証または更新を行わない」にチェックをつけることが可能です（情報提供者は、S山さんです。ありがとうございます）。
ボタンコントロールを選択して、「プロパティ」ビューを開きます。
「ボタン」タブにある「ボタンの種類」を"ボタン"から"キャンセル"に変更します（下図参照）。

ボタンを「キャンセル」ボタンに変更する

この状態で、ボタンコントロールの「イベント」ビューを見ると、あら不思議。
確かに「データの検証または更新を行わない」にチェックが付いています。
ということで、こちらの方がボタンの用途もはっきりとしてわかりやすいですね。
是非、覚えておきましょう。
ちなみに、「データの検証または更新を行わない」にチェックをつけたボタンは、自動で「ボタンの種類」が"キャンセル"になります。併せて覚えておきましょう。

次に、タブを選択されたときの動作から入力チェックを外します。
「container」カスタムコントロールを開きます。

その中にあるタブパネルの「蔵書一覧」を選択して「イベント」ビューを開きます。
先ほどと同じく「データの検証または更新を行わない」にチェックをつけます（下図参照）。

データの検証または更新を行わない２

設定できたら、「貸し出し一覧」のタブのイベントも同様に設定してください。
これで「container」カスタムコントロールを保存します。

ここで、実際にエラーはどのように表示されるのかをプリビューしてみました（下図）。

入力チェックによるエラーダイアログの表示

ノーツアプリケーションでよく見るような画面ですね。
プリビューはノーツクライアントで行いましたが、ブラウザでもほぼ同じ画面になります。このあたりは、さすがXPagesと言ったところでしょうか（従来のノーツWebアプリケーションではこうはいきません）。
ちなみに、[キャンセル]や「蔵書一覧」「貸し出し一覧」のタブをクリックしても、入力チェックは働きません。

ただ、この場合、一度に一つのフィールドしかチェックできません。このサンプルのように入力チェックのフィールドが少なければそれでも良いのでしょうが、10個くらいの入力チェックのフィールドがあったら、その都度エラーを表示されるのは、面倒です。
そんなときは、次の方法を使うと良いでしょう。

ということで、エラーメッセージをダイアログではなく、入力ページ上に表示させてみます。
再度、「BookResource」カスタムコントロールを開きます。

「コントロール」ビューの「コアコントロール」にある「エラー表示」を「BookName」フィールドの横にドラッグ＆ドロップします（下図参照）。

エラー表示コントロール

ドラッグ＆ドロップできたら、「プロパティ」ビューを開きます。
「エラー表示」タブの「次のエラーメッセージを表示」のところのリストボックスから「bookName1」を選択します（下図参照）。

エラー表示を適用するコントロールを選択

さらに、この「エラー表示」コントロールが有効になるようにします。
蔵書名（BookName）コントロールを選択して、「プロパティ」ビューを開きます。
「すべてのプロパティ」タブを開きます。
「データ」「disableClientSideValidation」の値を"true"に変更します（下図参照）。

disableClientSideValidation

これで「BookResource」カスタムコントロールを保存します。

こちらについても、プリビューテストを行ってみました（下図）。

エラー表示コントロールによるエラーメッセージ

エラーメッセージが入力ページ内に表示されますね。「エラー表示」コントロールをうまく配置すれば、どのフィールドでエラーが発生しているのかもわかりやすくなります。

ということで、「蔵書貸出」画面でも、この形で入力チェックを施します。
こちらは「貸出者」「蔵書名」「貸出日」「返却期限」に入力チェックを設定してください。

このとき、「貸出日」「返却期限」はそれぞれ最小値、最大値の設定も行います。
「貸出日」の最小値は、@Today（下図参照）、
「返却期限」の最大値は、@Adjust(@Today(),0,0,14,0,0,0)
とします。

貸出日の妥当性検査

エラー表示コントロールを使うので、各編集ボックスコントロールの「disableClientSideValidation」をtrueにするのを忘れないようにしてください。
また、[キャンセル]ボタンの「データの検証または更新を行わない」のチェックをつけるのも忘れないように！
すべて出来たら、「LendData」カスタムコントロールを保存します。

下図は、このプリビューです。

複数のエラーメッセージの同時表示

確かに同時に複数のエラーメッセージが表示されています。

これで、「蔵書登録/編集」画面、「蔵書貸出」画面の入力チェックが完了しました。

次回は、いよいよ「蔵書の返却」について、取り扱います。
お楽しみに！

おじさんSEが学ぶXPages(11)

2011-12-18T12:07:00.000+09:00

すっかり、週末更新ブログとして定着してしまった感がありますが、そんな事はありません！
週末（及び祝祭日）以外にも更新するようにしますよ。
間違っても、筆者の事を「週末ブロガー」とか呼ばないようにしてくださいね。

実際、今年は一週間に一本も書いてないんですよね。これではブロガーとは呼べませんものね。
ということで、もっと更新回数を増やすようにしますので応援よろしくお願いします！！

では、応援ボタンをポチッと押してから先へどうぞ。

さて、前回は・・・
そうですね。

「１．蔵書登録/編集画面から貸出が出来ない。」を実現させました。
ですが、最後にクイズ？にしたように、もう少しだけやることがあります。
このブログの読者の皆様は分かったでしょうか？

そうです。「蔵書登録/編集」画面のStatusを"貸出中"に変更したけど、
そもそもそんなフィールドは用意していないし、「蔵書登録/編集」のXPageや「蔵書一覧ビュー」XPageに表示するようにしていないのです。

では、それらを実際に設定してみましょう。
解決するべき問題点で言えば、「3.蔵書登録と蔵書貸出が連動していないので、蔵書が貸出可能状態にあるのかどうか不明。」になります。

まず、Statusフィールドです。通常、ノーツ文書に登録するフィールドは、フォーム上で定義しておく必要がありますが、これは必須ではありません。
前回作成したような、エージェントによるバックエンドでの更新であれば、フォームにフィールドを作成しておく必要はないのです。
ですので、今回は、フォームにはStatusフィールドは作成しない状態で進めます。

しかし、XPageにはこのフィールドを追加する必要があるので、「蔵書登録/編集」画面が定義してある「BookResource」カスタムコントロールを開きます。

「蔵書登録/編集」画面の表があるので、その中に「Status」フィールドの内容を表示させるようにしましょう。
「購入日」と[保存]ボタンの間の行に、マウスカーソルを合わせて、右クリックします。
メニューが表示されるので、「行を下に挿入」を選択します（下図）。

行を下に挿入

すると、表に行が挿入されるので、左側のセルに「ラベル」、右側のセルに「計算結果フィールド」をそれぞれドラッグ＆ドロップします。

ラベルと計算結果フィールドの追加

「ラベル」のラベルは、"状況："に変更します。
「計算結果フィールド」は、「プロパティ」ビューの「値」タブを開いて、次のように変更します。
・「使用するバインドデータ」は、"JavaScript"に変更します。
・「JavaScript（サーバサイド）」のエディタ部分には、
document1.getValue( "Status" )
と記述します（下図参照）。

計算結果フィールドの値

上記の式の内容ですが、
document1というのは、「蔵書登録/編集」文書をXPagesに連結させたデータなので、文書中にあるStatusの値を取得するというものです。

これで、「蔵書登録/編集」のXPageを開いたときに、その蔵書が貸出中ならば、"貸出中"と表示されます。

次に「BooksCollectionView」カスタムコントロールに、Statusの値を表示するようにします。
この場合、先にノーツのビューを修正しておくと簡単です。
ということで、「蔵書一覧(BooksCollectionView)」ビューを開いて、最後尾に「Status」を表示する列を追加します（列のタイトルは、"状況"としてください）。
このビューが保存できたら、「BooksCollectionView」カスタムコントロールを開きます。

ビューのデータが表示された表があるので、一番右側の列（購入日）にマウスカーソルを合わせて、右クリックします。
ポップアップメニューが表示されるので、「列を追加」を選択します（下図）。

列を追加

すると、列が追加されるので、「プロパティ」ビューの「データ」タブを開きます。
「列の値」にある「ビューの列」の右側のボックスをクリックすると、ビューに設定された列の一覧が表示されます。
先ほど追加した、「状況」列が確認できるでしょうか（下図参照）。

ビューの列に「状況」を追加

確認できたら、それを選択します。すると、表の列のタイトル部分のセルが「状況：」に変わり、値部分のセルが「Status」に変わります。
このままでも良いのですが、貸出中かどうかが目立たないので、フォントスタイルを変更してみましょう。
同じく「プロパティ」ビューの「フォント」タブを選択します。
カラーを赤に、スタイルは太文字にしてみましょう（下図参照）。

Status列のスタイルを変更

この状態で、「BooksCollectionView」カスタムコントロールを保存します。
これで、完了です。

順番が前後しましたが、「2.そのため、蔵書を貸し出しするのに、蔵書名を選択する必要がある。」についても、何か良い案がないか考えてみましょう。

まず、どんな問題なのかの再認識から。おじさんSEが学ぶXPages(9)で「蔵書貸出」のボタンを作成しました。
これは、単純に「蔵書貸出」画面を表示するだけなので、蔵書名が選択されない状態なので、正しい蔵書名を入力する必要があるのです。

解決方法はいくつか考えられますが、今回はXPagesの機能の一つである「タイプアヘッド」を使ってみましょう。

タイプアヘッドは、編集ボックスに何か入力されたら、それに関連する候補の一覧を表示するというものですので、貸出可能な蔵書の候補が表示される必要があります。
貸出可能な蔵書名の一覧は、現時点では、どこにもありませんので、専用のビューを作成しましょう。
ビューは、「蔵書一覧」をコピーして作成します。
変更点は、次の通り。

名前は、「在庫一覧」

別名は、「NonLendingBooksCollection」

選択式は、「SELECT Form ="BookResources" & Status =""」

これで、完了です。

次に、「LendData」カスタムコントロールを開きます。
蔵書名にタイプアヘッドを仕掛けることになります。
そこで、「BookName」の編集ボックスを選択した状態で、「プロパティ」ビューを開きます。
すると、その中に「タイプアヘッド」タブがあるので、選択します。
そうしたら、「タイプアヘッドを有効化」にチェックをつけます（下図参照）。

「タイプアヘッド」タブ

今度は、以下の変更を行います。
「モード」は"部分"に変更します。
「大文字と小文字を区別する」のチェックは外します。
そして、「候補」ボックスの右にある◇をクリックして、「値の計算...」を選択します。

候補は、さきほど作成したビューの1列目なので、
@DbColumn(@DbName(), "NonLendingBooksCollection", 1)
とします。

候補を表示する関数

記述できたら、[OK]をクリックします。
すると、「候補」の箇所が「{計算済み}」に変わります。

これで、タイプアヘッドの機能が完成です。
簡単ですね。
ちなみに、蔵書名が日本語（漢字含む）であっても、しっかりと反応してくれます。

今回は短いですが、ここまで。

次回は、返却関連ではなく、「6.蔵書登録/編集画面、蔵書貸出画面ともに入力チェックが行われていない。」について、作業を行います。

Lotus夜Day2011に参加しましたよ

2011-12-11T15:40:00.001+09:00

「めそ凹　すね丸」さんがブログで書いていましたが、Lotus夜Day2011に参加してきました
筆者も参加してきました。

めそ凹　すね丸さんと一緒に受付していたおっさんが筆者です。
今回は、サプライズもあったり、初のプレゼンもあったりしたので、参加者の皆様は筆者の顔を覚えていただけたのではないかと思います。
本当は、もっとたくさんの方と名刺交換をさせていただきたかったのですが、
受付があらかた終わった頃には、もうそれぞれの座席で盛り上がっていたので、
引っ込み思案な筆者は、積極的に話しかけられませんでした・・・orz
次回は、もう少し積極的になるので、名刺交換を是非是非よろしくお願いします。
会の方は、なんと開始が1時間遅れの20:00からという大ハプニング。
まぁ、単純に参加メンバーが多すぎて、なかなか集まらなかったので、個々に始めていたという感じですが。

乾杯の音頭は、米国IBMのMr. ted.
なんと、R4.6のSMTPのコードを書いていたらしいです。その場では言いませんでしたが、当時、筆者はこれにはやられまくってました。
お客様先までで張って、真夜中まで復旧作業を行った記憶がよみがえりました。

ちなみに、通訳には、@munesoraさんと、@morimo_tさん。
@morimo_tさんは、雰囲気で訳す！と豪語していましたが、あの度胸はさすがです。

十分伝わったかと思います。

なんどか、米国からゲストがいらっしゃっていますが、皆さん感想は同じ。
「クレイジー、クラウディ」だそうです。
米国でも、これくらいの方々はいるような気はするのですが・・・

プレゼンは、
@hira2kさんから。
今回も目から鱗が落ちるようなノーツの使い方を教えてくださいました。
あの発想力はすごいですね。どんな頭の構造してんだろう？？と思う筆者でした。

つづいて、
@dotnsfさん。
ノーツでTET●○◇を動かすって、発想もやっぱりすごい。
その発想を実現させてしまう技術力も半端ないっす。

そして、筆者です。
いやぁ、他にもいるのかなぁ？と思って、やりまーすなんて言ったら、
なんでしょう、上の二人に続くのっておかしくないか！？

しかも、筆者の予想を裏切って、若い技術者さんは来るし！
あ、来ていただいて良いんですよ、むしろその方が嬉しいし。

次回、プレゼンを行う機会がありましたら、勉強しておきますm(_ _)m

筆者の後を継いでいただいたのが、@morimo_tさん。
マンホールはないだろう、じゃぁガ○ダムか？とか思い巡らせていたら、
マンホールでした・・・
ま、まさかの2年連続です。

でも、楽しければ良いんです。
ただ、今回はホント難しかったです。もうちょっとレベル下げてください。お願いします。

と、そんなこんなで、閉会の時間が迫ってきたところで・・・

下は、恒例のLotus夜Dayケーキです。今年は、ろうそくの火がケーキに燃え移るまで放置したというトラブルもありました。
ちなみに、毎年ちょっとはつまんでいた筆者ですが、他に食べたそうな方がいらっしゃったので、今年は遠慮しちゃいました。

恒例のLotus夜Dayケーキ

そして、これも恒例のお土産奪取大会！
今回は、日本IBM様と、チームスタジオジャパン様がお土産を提供してくださいました。
ルールは至って簡単。じゃんけんに勝てばよいのです。

日本IBM様との戦い？では、筆者は、Lotus SoftwareのPCバッグを手に入れました。うれしー！

Lotusグッズ

チームスタジオジャパン様との戦いでは残念ながら負けてしまいましたが、
運良くTシャツをゲットしました！これもうれしー！

チームスタジオジャパングッズ

その他、参加者全員サービスでは、Lotus softwareロゴ入りブックカバー等がもらえました。
これまたうれしー！ですね。

筆者は、一次会で帰宅の途につきましたが、10名ほどが2次会に参加されたようです。
そこでは、一次会に参加できなかった@DOMINOMARUさんもいらっしゃったようで、
なんだ、無理してでも二次会に参加すれば良かった！とちょびっと後悔した筆者でした。

それにしても、毎回毎回、色々な企画を考えていただいているchabozuさんには感謝感謝です。
今回は、具合が悪い中、賢明にMCをやっていただきました。
本当にお疲れ様でした。

今年は、熱海のあたりでLotus夜Day合宿があるとかないとか。
楽しみですね。
もちろん、筆者は参加します！

おじさんSEが学ぶXPages(10)

2011-12-11T08:46:00.001+09:00

週末にならないと、続きが読めないというXPagesの連載もとうとう10回目です。
本当に、そろそろ切り上げないと行けないと思っている筆者ですが・・・
なぜなら、前回どこまで書いたのかを思い出すのに一苦労してしまうからです。
それに、8.5.3も出ているので、そちらについても書かないと、クレームが来そうですから（苦笑）。

ということで、今日も張り切っていきましょう。

では、恒例のボタンクリックからです。

えーっと・・・
そうでした。前回で、画面全般は終わりましたので、今回からは、機能をつけていくという事ですね。

現状の問題点は、以下の６つ。

蔵書登録/編集画面から貸出が出来ない。
そのため、蔵書を貸し出しするのに、蔵書名を選択する必要がある。
蔵書登録と蔵書貸出が連動していないので、蔵書が貸出可能状態にあるのかどうか不明。
貸し出した蔵書の返却が出来ない。
返却期限を過ぎても、何も起きない（つまり、返却期限の設定に意味がない）。
蔵書登録/編集画面、蔵書貸出画面ともに入力チェックが行われていない。

ずいぶんと多いですね。一度に解決するのは無理なので、少しずつやっていきましょう。

まずは、「１．蔵書登録/編集画面から貸出が出来ない」です。
これは、「蔵書登録/編集画面」に[蔵書貸出]のボタンを配置する事で出来そうです。
では、実際にやってみましょう。

Lotus Domino Designerで「カスタムコントロール」の「BookResource」を開きます。

[編集]と[キャンセル]ボタンの間にスペースを空けて、ボタンコントロールを配置します。
ラベルは、「蔵書貸出」とします。

蔵書貸出ボタンを配置

また、「可視」についても設定します。
「可視」と書かれた箇所の右側にある◇をクリックして、「値の計算...」を選択します。
スクリプトエディタが表示されるので、画面の右側に

! ( document1.isNewNote() | document1.isEditable() )
と入力してください。
これは、新規文書（document1.isNewNote()）ではない、もしくは、文書が編集モード（document1.isEditable()）ではない
ときに表示するという設定です。
間にある「|」はor条件を表します。
まぁ、読み込み時のみ表示と考えれば、
! document1.isEditable()
だけでも良いのですが、せっかくなので新しい事を覚えましょう。

可視化の設定

次にイベントを設定します。
イベントビューを開いて、[アクションの追加]ボタンをクリックします。アクションは2つ追加します。
1つ目のアクションは、
「アクション」は"スクリプトの実行"、
「言語」は"JavaScript(サーバサイド)"
として、エディタ部分に
sessionScope.lendingBookName = document1.getItemValueString("BookName");
sessionScope.lendingBookResource = document1.getNoteID();
と入力して、[OK]をクリックします（下図参照）。
上の行は、蔵書名を格納します。これは、蔵書貸出画面に表示するのに利用します。
下の行は、蔵書文書の文書IDを格納します。これは、蔵書貸出が完了したときに、この蔵書文書のステータスを変更するのに利用します。

セッションスコープ変数のセット

2つ目のアクションは、
「アクション」は、"ページを開く"
「開くページの名前」は、"Lending"
「ターゲット文書」は、"新規文書"
とします（下図参照）。

イベントの設定

これで、BookResourceカスタムコントロールを保存します。

次に「LendData」カスタムコントロールを開きます。
「イベント」ビューを開きます。
「データ」「LendingDocument」「PostNewDocument」イベントを開きます。
「シンプルアクション」が選択されているはずなので、「スクリプトエディタ」に変更します。
すると、エディタ画面が表示されるので、
var lbName = sessionScope.lendingBookName;
if ( null != lbName && lbName != "" ) {
LendingDocument.setValue( "BookName", lbName )
}
と入力します（下図参照）。
これは、セッションスコープ変数の値をBookName（蔵書名）に格納するという意味のものです。

PostNewDocumentイベント

これで、「蔵書登録/編集」画面で選択した蔵書名が「蔵書貸出」画面に反映されます。

ついでに、誰が借りたのかを自動で設定できるようにしましょう。
今のコードの下に
var uname = session.createName( session.getUserName() );
LendingDocument.setValue( "LendBy", uname.getAbbreviated() )
を追加してください。
※LendByの幅も変えておくと良いでしょう。

現在のユーザ名をLendByにセット

今度は、「蔵書貸出」の[保存]ボタンを修正します。
ボタンを選択して、「イベント」ビューを開きます。

このボタンにアクションを2つ追加します。
1つ目は、「スクリプトの実行」で、コードは以下のようにしてください。
LendingDocument.setValue( "Status", "貸出中" );

var agent = database.getAgent( "ChangeStatus" );
agent.runWithDocumentContext( database.getDocumentByID(sessionScope.lendingBookResourceID ));
agent.recycle()

保存アクション（ステータスの変更）

これは、「蔵書貸出」と「蔵書登録/編集」の2文書のステータスを変更するものです。
「蔵書登録/編集」文書は、バックエンドで保存する必要があるので、エージェントを実行して保存するようにしています。

もう一つは、「Issueguides」ページを開くというアクションです。

Issueguidesページを開く

この状態で、「LendData」カスタムコントロールを保存します。

次に、「蔵書登録/編集」文書のステータスを変更するエージェントを作成します。
「ChangeStatus」という名前で、LotusScriptのエージェントを作成します。

LotusScriptでのエージェント作成

コードは、以下のように記述します。
Sub Initialize
    Dim session As New NotesSession
    Dim doc As NotesDocument

    Set doc = session.Documentcontext

    Call doc.Replaceitemvalue( "Status", "貸出中" )
    Call doc.Save( True, True, True )
End Sub

また、「プロパティビュー」を開いて、エージェントの設定を変更します。
実行時の「対象」を"なし"に変更します（下図参照）。

エージェントのプロパティ

これで、蔵書の貸出を行って、保存した際に、「蔵書登録/編集」文書のステータスも変更されます。

というところで、今日は終わりです。

実はもう少しだけ、行う事があるのですが、それは何なのかを考えてみてください。
答えは、次回。

ではでは。

おじさんSEが学ぶXPages(9)

2011-12-03T10:41:00.001+09:00

今週もやって参りました。週末恒例のブログの時間です。
もうしばらく週末の更新にお付き合いください。

今回もこのボタンをクリックしてから読んでください。

さて、このシリーズも連載9回目です。なんでこんなに長いのか？
実は、この連載はシナリオはありません。実際に作りながら書いてます。
なので、同じような事を書いたり、回によって長さが違ったりしてます。
下手にシナリオができあがっていると、都合の良い結果になってしまいそうなので、こうしています。
以上、言い訳でした。

今回は、「貸し出し画面」の作成からです。
基本的には、前々回から前回にかけて行った「蔵書」フォームをXPageに取り込む方法と同じです。
ということで、まずは「貸し出し画面」をカスタムコントロールとして作成します。
「LendData」という名前でカスタムコントロールを作成しましょう。
次にデータソースの定義を行いますが、前回と同じでは芸がありませんので、違うやり方を紹介します。

プロパティビューを開きます。
その中に「データ」タブがありますので、そこを開きます。
データタブのプロパティ画面が表示されたら、[追加]ボタンをクリックして、「Domino文書」を選択します。（下図参照）

データソースの追加

すると、データソースの右側に「データソース」を定義する画面が表示されるので、「貸し出し」フォームを登録します（下図参照）。
この赤丸で囲った画面。前回はダイアログとして表示されていたものですが、このようにプロパティビューで操作すれば、同一画面内で操作ができるので楽ですね。

データソースの定義

しかし、なんで複数の方法を用意したんでしょうね？バグの温床になると思うのですが・・・

さて、これでこのカスタムコントロールで使用するデータソースの定義が出来ましたので、カスタムコントロール内の画面に反映させます。
「データ」ビューを開いて、表示されているフィールドすべてを選択して、カスタムコントロール内にドラッグ＆ドロップします。

「データバインドコントロールの選択」ダイアログが表示されるので、
ラベルはそれぞれ以下のように変更します。
Lend By:　　　　→　貸出者：
Book Name:　　→　蔵書名：
Lending day:　　→　貸出日：
Lending term:　→　貸出期限：
Status:　　　　　→　状況：
Return day:　　→　返却日：

また、状況と返却日は、コントロールを「計算結果フィールド」にしておきます。

データバインドコントロールの選択

すると、下図のような画面になるはずです。

貸し出しフォームをカスタムコントロールに追加した画面

ここで前回説明しなかった事があります。
前のダイアログで「生成されたコードに送信ボタンを追加する」にチェックが入っていると、[Submit]というボタンが追加されます。
Lotus Notes/DominoでWebアプリを作った事がある方は分かるかと思いますが、これはいわゆる保存ボタンの代わりになります。

ラベルを[保存]に変更して、「可視」の設定を変更すれば、同じ役割になります。
ということで変更しておきましょう。
「可視」の設定ですが、データソース名をLendingDocumentに変更してあるので、
LendingDocument.isEditable()
になりますので、注意してください。

その他、[キャンセル]ボタンを追加しておきます。
こちらのボタンの種類も[保存]に併せて変更しておきます。
「プロパティ」ビューの「ボタン」タブの中の右側の方に「オプション」というところにボタンの種類があるので、「キャンセル」に変更します。
ただし、イベントは追加しておいてください。その際、開くページは「前のページ」としておいてください。

キャンセルボタンを追加

また、フォームの各フィールドですが、これらについても、サイズを変更する事が出来ます。
蔵書名などは、デフォルトのままだと狭くて表示しきれないと思うので、幅を変更すると良いでしょう。（その場合、「蔵書登録」画面の方も変更しておきましょう。）
筆者の環境では、デフォルトで142.0ピクセルだったので、とりあえず300ピクセルに変更してみました。

また、「貸出日」と「返却期限」にデフォルトの値をセットしてみましょう。
「貸出日」を選択して、「プロパティ」ビューの「データ」タブを開きます。
「デフォルト値」の右にある◇をクリックして、「値の計算」を選択します。

フィールドのデフォルト値を設定

「スクリプトエディタ」ダイアログが表示されるので、値を書き込みます。
「貸出日」は、今日を設定したいので、@Today関数をセットします。
XPagesで使える関数は、通常のノーツとは違う部分があるので、どれが使えるか分からない場合は、左側の部分で「参照」タブを開き、「@Functions」を選択します。

デフォルト値の追加

設定が出来たら、「返却期限」のデフォルト値を設定します。
今回は、返却期限は一般的に用いられる「二週間後」に設定します。
スクリプトエディタを開いたら、
@Adjust(@Today(),0,0,14,0,0,0)
と入力します。

今日から、14日後を設定するという意味の関数ですね。

状況と返却日は、ここでは設定しませんので、デフォルトのままで良いです。

ここまで出来たら、カスタムコントロールを保存します。

そして、「Lending」XPageを開きます。
この画面はまだ何もさわっていないので、空白になっているはずです。
最初に、「container」コントロールをドラッグ＆ドロップします。
次に、今作成した「LendData」コントロールを「container」コントロールの編集領域にドラッグ＆ドロップします。

LendDataコントロールを組み込む

これで「Lending」を保存します。

ついでに、貸出ボタンを登録しておきましょう。
カスタムコントロールの「LendingView」を開いて、先頭部分にボタンを配置します。
ボタンのラベルは「蔵書貸出」として、
イベントは「Lending」ページを新規文書として開くとしてください。

蔵書貸出イベント

出来たら、「LendingView」カスタムコントロールを保存します。

これで画面系は一通り出来ました。
ただし、この状態では、「蔵書登録」画面と「蔵書貸出」画面が連動していません。

次回からは、このようなアプリケーションの機能を作っていきましょう。

ではでは。

イケヤマくんを応援します

2011-11-29T18:51:00.001+09:00

筆者もXPagesの記事を書いていますが、IBMのイケヤマくんもXPagesの情報を発信しています。
もし、知らないという方がいましたら、是非アクセスしてみましょう！
きっと役に立ちます！

かく言う筆者も、イケヤマくんにはお世話になっております。

アクセスはこちらから！

おじさんSEが学ぶXPages(8)

2011-11-26T10:20:00.001+09:00

本当は11/23に続きを書こうと思いましたが、気力が持ちませんでした・・・
ということで、続きです。

その前に、筆者の気力を回復させるボタンをクリックしてくださいね。

さて、前回は「蔵書」フォームをXPageのカスタムコントロールとして作成しました。
今回は、実際にXpageに組み込んで編集や表示が出来るようにしましょう。

基本的には、他のXPageと同じ方法になります。（今回の連載では、基本的な事を書きたいので、複数の方法については触れないようにします。他の方法は今後、Tipsと言う形で掲載するようにしますのでご了承ください。）

まず、「BookResource」Xpageを開きます。
何も記述されていない状態のはずなので、「コントロールビュー」の「カスタムコントロール」から「container」を選択してドラッグ＆ドロップします。

「container」カスタムコントロールが画面上に表示されたら、編集可能領域である「contentData」の箇所に緑色の●が表示されているのが分かりますね。

今度は、そこに向けて、同じく「コントロールビュー」の「カスタムコントロール」から「BookResource」を選択して、ドラッグ＆ドロップします。

BookResourceを編集可能領域に追加

ここで、「BookResources」XPageを保存して閉じます。簡単ですね。

「container」カスタムコントロールには、「蔵書一覧」と「貸し出し一覧」のタブがあるので、そこをクリックする事で、それぞれのビューへと移動する事が出来ます。
しかし、画面遷移で示してあるような、「蔵書一覧」からこの「蔵書登録／編集画面」へのリンクがありません。

ということで、「蔵書一覧」の画面から蔵書登録が出来るようにしましょう。
「BooksCollectionView」カスタムコントロールを開きます。
蔵書一覧ビューが表示されているので、先頭でEnterキーを押して改行します。

※先頭に改行が挿入できないという方へ　画面を開いた直後に、Enterキーを押すとうまくいきます

改行で空いた箇所に、「ボタン」コントロールを選択してドラッグ＆ドロップします。

蔵書登録用のボタンを配置

ボタンのラベルを「蔵書登録」に変更します。
次に「イベント」ビューを開きます。
シンプルアクションで「アクションの追加...」をクリックします。
「シンプルアクションの追加」ダイアログが表示されるので、内容を入力します（下図参照）。

シンプルアクションの追加

これだけで良いのですが、せっかくなのでボタンのデザインを変更してみましょう。

まずは、ボタンのフォントを変更します。

フォントタブ

次にボタンの背景を変更します。

背景タブ

他にも、ボタンの幅や高さを変更したり、背景に色ではなく画像を選択したりする事も出来ます。
このようにCSSを使わなくても、ある程度はLotus DominoDesignerだけでもデザインを変更する事が出来ます。
もちろん、CSSでスタイルを設定する方が変更の自由度も高いので機会があればチャレンジしてください。

ここまで出来たら、「BooksCollectionView」カスタムコントロールを保存します。

ということで今回はこれで終わります。
次回は、「貸し出し画面」の作成をします。

やっと完成が見えてきましたね。
ではでは。

おじさんSEが学ぶXPages(7)

2011-11-17T21:32:00.001+09:00

もう11月も半ばです・・・
この連載（Xpages）を始めてから、なぜか月日が経つのが早く感じてしまいます。なぜでしょう？？？

それはそうなんですね。
この連載、9月に始めてるんですね、もう3ヶ月ですよ、3ヶ月。いい加減、終わらせないと・・・

しかし、慌てずに、まずはこちらをクリック！

始める前に、一言。
みなさんもご存じの通り、Lotus Notes/Domino 8.5.3がリリースされました。
と言う事で、筆者の環境も8.5.3に格上げしました。
今回の記事からは、8.5.3がベースになります。
8.5.2と違う点が分かったら、その場でコメントを入れるようにしますので、ご了承ください。

それでは・・・前回までについては、過去の記事を参照してください。
今回からはようやく、フォームをXPages化していきます。

と言っても、基本的な事は変わりません。
まずは、フォームの核となる部分を作成するので、「BookResource」という名前でカスタムコントロールを作成します。
ここで気をつける必要があるのは、カスタムコントロールの名前とXPageの名前は同じにしてはいけないという事です。
ですので、XPageに使った「BookResources」ではなく、「BookResource」とします（最後の"s"をなくします）。

重複した名前をつけるとエラーになる

この作成したコントロールに、フォームの情報を埋め込みます。

ビュー情報を埋め込む場合は、コントロールビューから、「ビュー」をドラッグ＆ドロップしました。
フォームの場合はどうでしょう？

フォームというコントロールは見あたりませんね。
はい。ありません。
次の手順で操作します。

１．[ウィンドウ][Eclipseビューの表示][データ]メニューから「データ」ビューを開きます。
２．データソースの横にあるボックスをクリックして、「データソースの定義」を選択します。

３．「データソースの定義」ダイアログボックスが表示されるので、「データソース」から「Domino文書」を選択して[OK]をクリックします。


データソースの選択

４．データソースの詳細を定義する画面に移行するので、必要な情報を入力して、[OK]をクリックします。
アプリケーションは自分自身がデフォルトで設定されているので、ここでは、フォーム名に「蔵書　-　BookResources」を選択します。
データリソース名は、デフォルトの「document1」のままで構いません。

データソースの詳細定義

５．「データ」ビューにフォームのフィールド情報が追加されました。
ただし、このままでは使えないので、左上にあるアイコンをクリックして、「×」マークを外してください。

Domino文書のデータソース

６．表示されている4つのフィールドを選択します（Ctrlキーを押しながら、クリックすると複数選択できます）。

７．選択したら、「BookResource」カスタムコントロール上にドラッグ＆ドロップします。


フィールド情報をドラッグ＆ドロップ

８．「データバインドコントロールの選択」ダイアログが表示されるので、ラベルを次のように変更します。
Published by:　　→　出版社：
Writer:　　　　　　→　著者名：
Book name:　　　→　蔵書名：
Purchase time:　→　購入日：
変更が出来たら、[OK]をクリックします。

データバインドコントロールの選択

９．カスタムコントロール上にフォーム情報が追加されたのを確認できたら、その表をマウスで右クリックします。

カスタムコントロール上に追加されたフォーム情報

１０．コンテキストメニューが表示されるので、「行の追加」を選択します。

コンテキストメニュー

１１．「行の追加」ダイアログが表示されるので、「２」と入力して[OK]をクリックします。

行の追加ダイアログ

１２．表に行が追加されるので、ボタンを3つ追加します。
ボタンは、「コントロール」ビューの「コアコントロール」からドラッグ＆ドロップします。
ボタンのラベルは、それぞれ「保存」「編集」「キャンセル」とします。

ボタンのラベルを変更

１３．各ボタンのイベントを設定します。
まずは、「保存」ボタンを選択した状態で、「イベント」ビューを開きます。

[アクションの追加...]ボタンをクリックします。

保存ボタンのイベント

１４．「シンプルアクションの追加」ダイアログが表示されるので、アクションで「文書の保存」を選択して、[OK]をクリックします。

シンプルアクションの追加

１５．再度、[アクションの追加...]ボタンをクリックして、今度は「ページを開く」アクションを選択して、[OK]をクリックします。

シンプルアクションの追加（ページを開く）

１６．次に、「編集」ボタンをクリックして、アクションを追加します。
アクションは「文書モードの変更」、文書モードは「編集モード」にします。

シンプルアクションの追加（文書モードの変更）

１７．今度は、「キャンセル」ボタンをクリックして、アクションを追加します。
キャンセルなので、「home」ページに戻るようにします。
アクションは、「ページを開く」で、開くページの名前を「home」にします。

このままでも良いのですが、これではボタンが常に表示されたままになってしまいます。
表示／非表示の設定を行いましょう。
「保存」ボタンは、編集モードの時だけ表示します。
「編集」ボタンは、読み込みモードの時だけ表示します。
「キャンセル」ボタンは、常に表示します。

１８．「保存」ボタンを選択して、「プロパティ」ビューを開きます。
「可視」という項目（バージョンによっては、「表示」になっていることもあります）があるので、右にある◇をクリックすると、選択肢が表示されるので「値の計算...」を選択します。

可視の編集

１９．スクリプトエディタが起動するので、表示条件を記述します。
文書が編集モードの時だけ表示したいので、
document1クラスのisEditable()を選択して、ダブルクリックします。
※この際、左側のペインは「参照」タブをクリックしておきます。
※document1は、４．でデータソースを定義した際の名前です。

スクリプトエディタ

右側のペインに、「document1.isEditable()」と表示されたら、[OK]をクリックします。
すると、「可視」のボタンの右側に「{計算済み}」と表示されるようになります。

２０．同じく、「編集」ボタンを選択して、「可視」の右の◇をクリックして、「値の計算...」を選択します。
スクリプトエディタで、「! document1.isEditable()」と記述します。
「!」は否定を表しますので、編集でない時（つまりは読み込みモード時）に表示されます。
記述できたら[OK]をクリックします。

ここまで出来たら、「BookResource」カスタムコントロールを保存します。

と、今回はここまでにしましょう。
次回は、作成したカスタムコントロールをXPageに埋め込んで利用できるようにします。

果たして、年内にXPagesアプリケーションはできあがるのでしょうか・・・
かなり不安ではありますが、頑張りますので応援をお願いします。

おじさんSEが学ぶXPages(6)

2011-11-07T22:48:00.003+09:00

昨日の状態では中途半端だったので続きです。

でも、これをクリックしてね。

では、早速。
「貸し出し一覧」のビューを作りましょう。
今回は、ノーツではよく見かける「カテゴリ別」のビューにしてみます。

ビュー名／別名　「貸し出し一覧／LendByStatus」
ビューの選択式　SELECT Form ="Lending"
1列目の列の値／タイトル　「Status／」（昇順、カテゴリ別）
2列目の列の値／タイトル　「BookName／蔵書名」（昇順）
3列目の列の値／タイトル　「LendBy／利用者」
4列目の列の値／タイトル　「LendingTerm／返却期限」
ビューの列幅やフォントはご自分の環境に合わせてください。

このビューをXPageに取り込んでみます。

「LendingView」という名前でカスタムコントロールを作成します。
前回と同じように、コントロールビューから「ビュー」を選択して、ドラッグ＆ドロップします。
すると、「ビューのデータソースの選択」というダイアログボックス（下図参照）が表示されるので、次のように設定します。

貸し出し一覧のビュー設定

その他の設定についても、前回同様に設定しましょう。

ビューの幅を100%にします。
蔵書名の列をリンクにして、読み込み専用で文書を開くようにします。
返却期限の列は、日付/時刻型の表示にします。

前回と違う点は次。
「Status」の列を選択して、幅を決めます。
ここはカテゴリ列なので、少なくて良いですから、50ピクセルにしましょう。
さらにフォントも目立たせる意味で、太文字にします。
列ヘッダーではなく、列を選択して行ってください。
フォントタブを選択して、「B」と書いてある箇所をクリックすると、太文字になります。
ついでに色も変えてみましょう。筆者は紺色が好きなので、紺色にしています（下図参照）。

Statusのフォント設定

これで、「LendingView」コントロールを保存します。
今度は、これをXPageに設定します。

XPageの「Issueguides」を開きます。
連載の(4)で、このXPageにも編集可能領域を設定してありますので、そこに今し方作成した「LendingView」コントロールをドラッグ＆ドロップします。

一見すると、単純にビューが設定されただけのように見えますが、きちんとカテゴリ別のビューになっています。文書が登録されると分かるようになりますので、それまでのお楽しみという事にしておきましょう。

そうしたら、「Issueguides」を保存します。

この状態で、XPageをプリビューすると、「蔵書一覧」と「貸し出し一覧」のタブをクリックしたときの動きがトレースできるようになっています。

貸し出し一覧のビュー

ということで、XPageでビューを作るのは今回でお終いです。
ビューを作る際の細かいオプションなどもたくさんあるのですが、それはまた別の機会に・・・

次回は、いよいよフォームをXPageで作っていきます。

おじさんSEが学ぶXPages(5)

2011-11-07T00:27:00.003+09:00

あ・・・なんと3週間も空いてしまいました。いえ、でも色々とあったんですよ。
だから、前回はLotus Scriptネタ書いたじゃないですか。
ちゃんとこちらも続けるので許してください、ホント。

許してくれるなら、このボタンをクリックして先へ進んでください。

許せないという方は、ここで読むのを止めていただいて結構です。あ、ウソです。読んでください。
お願いします。

さて・・・
前回はcontainerコントロールの作成が完了しました。
今回は、各Xpageに表示するコントロールの中身を作ります。
まずは、登録した（する）蔵書の一覧を表示するビューに該当するコントロールを作成します。

ビューをXPageで表現するには、いくつかの方法がありますが、もっとも簡単なのは、Lotus Domino Designerでビューを作って、それを流用するというものです。

このブログの読者の方なら、ノーツのビューを作る事くらいならなんてことはないでしょう。
ということで、蔵書一覧のビューを作ります。

ビュー名／別名　「蔵書一覧／BooksCollectionView」
ビューの選択式　SELECT Form ="BookResources"
1列目の列の値／タイトル　「BookName／蔵書名」（昇順）
2列目の列の値／タイトル　「PublishedBy／出版社」
3列目の列の値／タイトル　「Writer／著者名」
4列目の列の値／タイトル　「PurchaseTime／購入日」（日付のみの表示）
ビューの列幅やフォントはご自分の環境に合わせてください。

BooksCollectionViewをノーツで開いた画面

では、今作成したビューをXPagesに取り込みます。
カスタムコントロールを作成します。
名称はビューと同じでBooksCollectionViewとします。

作成したらDesignerのコントロールビューから「ビュー」を選択して、ドラッグ＆ドロップします。
すると、「ビューのデータソースの選択」というダイアログボックス（下図参照）が表示されるので、次のように設定します。

アプリケーションは「現在」（デフォルト値）を選択します。
ビューは、さきほど作成した「蔵書一覧」を選択します。
すると、下に「表示するLotus Dominoビュー列を選択」という箇所にビューの列が表示されるので、すべてチェックをつけたまま（デフォルト値）にしておきます。

ビューコントロールの設定

設定したら、[OK]をクリックします。

ビューコントロールで作成したビュー

ごらんの通り、ビューのようなものが表示されました。
上の方を見ると、ページャが付いています。
つまり、文書数が多くなったときに、次のページを表示するためのアクションが自動で作成されているわけです。ちょっと嬉しくなりますね。　　　*1

ただ、これではビューの幅が画面に比べて狭すぎますので、調整しましょう。

アウトラインビューで、ビュー（名称はviewPanel1になっているはず）を選択して、プロパティビューを開きます。
そうしたら、「単位」を「パーセント」にして、幅を「100」にします。
これで、ビューの幅が画面いっぱいに広がりました。

ビューパネルの設定

今度は、文書が選択されたときに、フォームが表示されるように設定します。
BookName 列のプロパティビューを開きます。
「表示」タブにある「列の値をリンクとして表示する」にチェックを入れます。
するとその下にある「文書のオープンモード」が選択できるようになるので、「読み込み専用」にチェックをつけます。

文書のオープンモードの選択

次にPurchaseTime列のプロパティビューを開きます。
「データ」タブの表示タイプが「文字列」になっていますが、日付データなので「日付/時刻」を選択します。

表示タイプの変更（日付/時刻）

ここまで出来たら、「BooksCollectionView」を一度保存します。

この「BooksCollectionView」をXPageに取り込むので、「home」XPageを開きます。
すると、前回作成した編集可能領域が設定されていますが、緑色の○が表示されているのが分かります。
これは、まだ編集可能領域に何もコントロールが設定されていない状態を表しています。

編集可能領域に何も設定されていない状態

コントロールビューの「カスタムコントロール」の欄を見ると、今し方作成した「BooksCollectionView」が追加されているので、選択して、この緑色の○の箇所にドラッグ＆ドロップします。

カスタムコントロールをドラッグ＆ドロップする

すると、BooksCollectionViewコントロールの内容がXPageに追加されました。
では、homeXpageを保存して、ここまでの状態を実際に見てみましょう。
XPageをノーツクライアントでプリビューするボタンをクリックします。

XPageをノーツクライアントで表示

まだ文書が登録されていないので、寂しいですがなんとなくアプリケーションっぽくなってきたのではないでしょうか？

今回はここまでです。
次回は、貸し出し一覧のビューを作成して、XPageに反映させます。

*1　１つのページに表示する文書数は変更する事が出来ます。

ビューパネルのプロパティ「表示」の中に「ページごとの最大行数」で変更できます（デフォルト値は30）

【PR】ノーツ/ドミノに関するお問い合わせは下記まで【PR】

単純なDBのカスタマイズから他アプリケーションとの連携までご要望にお応えします

配列の中身をトリミングしてみる

2011-10-28T22:38:00.003+09:00

先週はサボってごめんなさい。ご存じの方も多いと思いますが（ホントか？）、筆者は先週、大きな買い物をしたのです。
それに丸々一日を費やしてしまったので、更新出来ませんでした。

xPagesネタは、記事を書きながら、DBを作っているので、結構体力を使うのです。
なので、みなさんどんどん、ノーツDBをxPages化してくださいね。

さて、今日はxPagesネタは一休み（終わらないですよ）。
久しぶりに、Lotus Scriptネタです。

たまには、見たいですよね。Lotus Scriptネタ。

ということで見たい方は、

をクリックしましょう。

今日は、配列の中身をトリミングしてみるというものです。
トリミングは、皆さん知ってますよね？そうです。余分なスペース（空白）を削除するというものです。

文字列変数の中身から余分なスペースを削除するには、LTrimやRtrim、Trim関数を使いますね。
LTrim関数は文字列のうち、一番左側にある余分なスペースを、RTrimは文字列のうち、一番右側にある余分なスペースを、Trim関数は文字列の一番左と一番右の両方の余分なスペースを削除してくれます。

配列の場合、各要素を取り出して、Trim関数で余分なスペースを削除して、また配列に戻す。
と言うことを行います。

では、いつものようにサンプルを見てみましょう。

--------------------------------------------------------------------
Sub Click(Source As Button)
    On Error Goto ErrProc

    Dim data1     As Variant
    Dim data2     As Variant
    Dim dummyd(0) As String

    data1 = Split( "abc, def, hij", "," )

    '配列の各要素を取り出して、それぞれトリミングを行う
    Forall x In data1
        If Isempty(data2) Then
            dummyd(0) = Trim(x)
            data2 = dummyd
        Else
            dummyd(0) = Trim(x)
            data2 = Arrayappend( data2, dummyd )
        End If
    End Forall

    '置換した配列の中身を確認する
    Forall z In data2
        Msgbox "【" + z + "】"
    End Forall

    Exit Sub

Errproc:
    Msgbox _
    Cstr(Erl) & Chr$(10) & _
    Cstr(Err) & Chr$(10) & _
    Error, _
    0, "エラー"

    Exit Sub
End Sub

・・・大変ですね。

ここで、記事を見るのを止めてしまった方、もったいない。
Lotus Scriptはそんなに不便ではありません。
ちゃんとあります。配列の各要素をトリミングしてくれる心強い関数が！

その名も「FullTrim」関数です！
では、上記のサンプルをFullTrim関数に置き換えたものを見てみましょう。

-----------------------------------------------------------------
Sub Click(Source As Button)
    On Error Goto ErrProc

    Dim data1     As Variant
    Dim data2     As Variant

    data1 = Split( "abc, def, hij", "," )
    '配列の要素をすべてトリミングする
    data2 = Fulltrim( data1 )

    '置換した配列の中身を確認する
    Forall z In data2
        Msgbox "【" + z + "】"
    End Forall

    Exit Sub

Errproc:
    Msgbox _
    Cstr(Erl) & Chr$(10) & _
    Cstr(Err) & Chr$(10) & _
    Error, _
    0, "エラー"

    Exit Sub
End Sub

どうです？簡単ですね。
ということで、配列の中身をトリミングする場合は、FullTrim関数を使いましょう。

これは、ノーツ文書の中で、複数値に余分なスペースがあって、それを削除したいときに使えますね。
思い当たる方は早速試してみてください。

【PR】ノーツ/ドミノに関するお問い合わせは下記まで【PR】

単純なDBのカスタマイズから他アプリケーションとの連携までご要望にお応えします

おじさんSEが学ぶXPages(4)

2011-10-16T14:02:00.001+09:00

前回の投稿から~~2週間~~1週間（ぼけてましたね）が経過してしまいました。
つまりもう10月も半ばという事です。もう年の瀬はすぐです。あっという間です。

では、今回もボタンクリックをしてくださいね。

さて・・・前回は・・・
えーっと、あぁ、containerコントロールの編集をしていて途中で終わってしまったんでしたね。
今回はその続きをやりましょう。

containerコントロールのheaderパネルとmainパネルに背景色をつけました。
残るfooterパネルにも設定をしましょう。
右側のコントロールビューから「ラベル」を選択して、footerパネルの中にドラッグ＆ドロップします。
ラベルの内容は「Copyright (C) 2011 ef Co.,Ltd All Rights Reserved.」とします。みなさんは適当に何か書いてください。

作成したラベルはフレーム内の一番右側に配置するようにしてみましょう。
画面左側のアウトラインビューでfooterパネルを選択します。
[フォント]タブを開いて、「文字揃え」の中の[右揃え]ボタンをクリックします。

footerパネルの[フォント]タブ

これでさきほど作成したラベルがパネル内で右側に寄せられました。

では、今度はframeパネルの設定をもう少し変更します。
frameパネルを選択したら、[余白]タブを選択します。
余白を選択しておかないと、xPagesの画面を開いたときに幅がいっぱいいっぱい表示されてしまうので、あまり格好良くありません（アプリケーションによっては、その方が良いかもしれませんが）。

ということで、ここでframeパネルの余白を設定します。
今回は、上下左右すべて同じ設定にしてみます。
単位は、「ピクセル」を選択します。すると、左側のボックスに数値が入力できるようになりますので、「10.0」と入力します。

frameパネルの[余白]タブ

この数値は、皆さんの好みで設定してください。

次にtabパネルの中に「タブ付きパネル」を設定してみます。
画面をタブで切り替える事が出来るコントロールです。
コントロールビューの「コンテナコントロール」から[タブ付きパネル]を選択して、tabパネルの中にドラッグ＆ドロップします。

タブが2つの状態で追加されましたね。
ただ、タブの名前が、"新規タブ"、"新規タブ2"になっているので、それを変更します。

アウトラインビューで、タブ付きパネルを見ると、左側に△ボタンがあるはずです。そこをクリックしてみると、「タブパネル」というコントロールが2つ表示されます。
そのうち、上の「タブパネル」をクリックします。

プロパティビューに「タブパネル」の情報が表示されました。
ここで名前トラベルをそれぞれ次のように設定します。
上のタブ　名前：homeTab、ラベル：蔵書一覧
下のタブ　名前：IssueguidesTab、ラベル：貸し出し一覧

タブ付きパネルを追加した

せっかくタブを作成したので、それぞれのタブをクリックしたときの動作を設定しておきます。
「蔵書一覧」のタブを選択したら、「イベントビュー」を開きます。
[アクションの追加]というボタンがあるのでクリックします。
「アクション」は"ページを開く"、「開くページの名前」は"home"にして[OK]をクリックします。

タブのシンプルアクション

同様に、「貸し出し一覧」のタブにもアクションを追加します。
「アクション」は"ページを開く"、「開くページの名前」は"Issueguides"にして[OK]をクリックします。

これで、タブをクリックすると、設定したページが開くようになります。

ですが・・・
Issueguidesのページには、何も設定してありません。
ということで、Issueguidesページを開いて、containerコントロールを追加しておいてください。

ここで、作成したxPagesを実際に開いてみると分かるのですが、タブをクリックすると画面は切り替わるのですが、タブはいつまでも「蔵書一覧」のままになっています。

これでは、タブの意味があまりないので、現在選択されているタブがなんなのかを分かるようにしましょう。
この設定は少々面倒です。

まずは、containerコントロールのプロパティビューを開きます。
その中の[プロパティ定義]というタブを開きます。
そうしたら、[新規プロパティ]ボタンをクリックして、新規にプロパティを作成します。
名前は任意ですが、「tabID」としておきます。種類は「string」としておきます。

新規プロパティを追加

これはcontainerコントロール全体で管理できる変数です。
ここに、タブが切り替えられた際に、どのタブが選択されたのかを格納します。

次に、この値によるタブの切り替え方法を設定します。
「タブ付きパネル」を選択して、プロパティビューを開きます。
[タブ付きパネル]タブにある「オプション」の「デフォルトで開くタブ」にある◇をクリックして、[値の計算...]をクリックします。
画面の左側にグローバルオブジェクトの一覧が表示されるので、その中から「compositeData」を探します。見つかったら、△ボタンをクリックして展開します。

すると、そこにさきほど作成したプロパティの「tabID」が出来ているので、それをダブルクリックします。
右側の画面に表示されたら、[OK]をクリックします。

デフォルトで開くタブの設定画面

すると、デフォルトで開くタブのところが、青文字で"｛計算済み｝"に変わった事が分かると思います。

これで、プロパティの値によって、開くタブが変わります。

しかし、まだプロパティに値が格納されていませんので、何も変わりません。
では、どのようにプロパティを格納すればよいのかを見ていきます。

containerコントロールはここで保存しておきます。

あらかじめ作成してあった「home」XPageを開きます。
その中に表示されているcontainerコントロールを選択します。
そこで[すべてのプロパティ]タブを開きます。
その中に[カスタム][tabID]があるので、「値」欄に「蔵書一覧」のタブパネルの名前である"homeTab"を入力します。
これで、「home」XPageが開かれた場合は、「蔵書一覧」タブが選択された状態になります。

同様に、「Issueguides」XPageを開いて、[カスタム][tabID]の値に"IssueguidesTab"を入力します。

これで、タブ付きパネルの設定は完了です。

今度は、それぞれのタブを開いたときの画面を編集したいのですが、
今、編集しているのは、共通画面であるcontainerコントロールです。
このまま編集してしまうと、共通ではなくなってしまいます。

これを回避するために（というか、共通画面でも各ページ毎にコンテンツを変える事が出来るようにするために）、「編集可能領域」というコントロールを利用します。

コントロールビューのコアコントロールの中から、「編集可能領域」を選択して、contentパネルにドラッグ＆ドロップします。
任意ですが、後々わかりやすくするために、プロパティビューで、これの名前を変更します。
名前とファセット名の両方を「contentData」としておきます。

編集可能領域のプロパティビュー

と言ったところで、containerコントロールの編集は、ここで一度終わりにします。
次回からは、編集可能領域に設定するコントロールの内容を編集していきます。

【PR】ノーツ/ドミノに関するお問い合わせは下記まで【PR】
単純なDBのカスタマイズから他アプリケーションとの連携までご要望にお応えします

Lotus Knows Expo 2011に参加してみましたよ

2011-10-10T13:38:00.000+09:00

10月10日。今日は体育の日です。晴れの特異日ということで、晴れが多い日だそうです。ということで、今日も晴れています。昨晩は雨だったのに、さすがです。

先週の金曜日、プリンスパークタワー東京にてLotus Knows Expo 2011が開催されました。

去年はAndroid端末が流行の兆しを見せていた事で、Androidでノーツを使いましょう！みたいな事でしたが、今年はビジネスで使うならタブレット！と言う事で、タブレット端末でのモバイルアクセスはどうすればよいのか？というのが目に付きました。

全体としては、エンタープライズもソーシャルで！というのを勧めていたようですが、やはり筆者にはしっくり来ませんでした。
発想力の乏しい筆者には、マーケティングで使う以外の活路がまだ見いだせていないのです。

この辺はアイディア勝負なのでしょうか。

もっと感性を磨く必要がありそうな筆者でした。

さて、恒例のゲットしたもの一覧です。
お土産ではありませんが、会場内で使えたものとして「バルカンコイン」なるものがありました。

バルカンコイン

Vの字に「VULCAN」と入ってます。その周りには、「Lotus Knows Expo 2011」と書いてあります。
どう考えても今年しか使えません。きっと大阪会場でも利用されるのでしょう。
しかし、その後、どうするんでしょうか？記念品にするにしてもあまりにも大量流通していたと思います。
ちなみに、一人あたり「3バルカンコイン」をもらえました。「サンバルカンコイン」「サンバルカン」・・・だじゃれでしょうか・・・

次は、その他にゲットしたものです。
レコモット社のトートバッグ（受付で入場者に配られたものです）、Lotus Collaboration Times（今回の会場案内図やセッションのタイムスケジュール等が書かれたもので、やはり入場者全員に配られました）、緑色のものが入場者の先着x名に配られたTシャツ引換券で引き替えたTシャツです。
真ん中のものがアンケートに答えて返却するともらえるボールペンです（毎年、どこかでペンがいただけるのですが、消費しきれていませんので、そろそろ他のものが良いです・・・）、それと、懇意にしていただいているチームスタジオジャパンさんの3Dノートです。

ゲットしたもの

その他の話題としては、Lotus Notes/Domino 8.5.3（英語版）が10/5にリリースされました。
XPages関連がさらに使いやすくなっているようなので、早めにダウンロードしてテストしてみるのも良いでしょう。

閉会した後は、イエローな方々とわいわいとLotus談義をさせていただきました。
そんな中で、参加メンバーによる交換ブログならぬリレーブログを実施する事が決まりました。
12/8に開催が決まった「Lotus 夜Day 2011」までに一巡させよう！ということですが、忙しいメンバーが果たして本当に一巡させる事が出来るのでしょうか、こうご期待！

なお、一番手の「@munesora」さんはすでに書き終えて公開されていますので、読んでみてください！
プロフィールにタグをつけるモチベーションとは？

・・・筆者は何を書こうかな。

おじさんSEが学ぶXPages(3)

2011-10-03T22:55:00.002+09:00

10月になりました。衣替えですね。今週末はLotus Knows Expo 2011が開催されます。
楽しみですね！

さて、連載の3回目です。
今回は、前回の予告通り、containerコントロールを編集して、共通レイアウトの部分を作成します。

では、いつものように
を押してから先に進んでください。

Lotus Domino Designerで「図書管理」を開いたら、左側のツリーから「カスタムコントロール」を選択してダブルクリックします。
さくせいしたcontainerコントロールが表示されるので、それをダブルクリックして開きます。

カスタムコントロール画面

では、実際に編集していきましょう。

まずは、パネルを組み込みます。これはHTMLタグでいうと、<div>タグになります。
[コントロール]ビューから、「パネル」 (*1)を選択して、containerコントロール画面にドラッグ＆ドロップします。（*1 コンテナコントロールというカテゴリの中にあります。）

このパネルの名前は「frame」とします。

さらに、パネルを追加します。このとき、ドラッグ＆ドロップする際、今追加したframeパネルの中にドロップするようにしてください。
このパネルの名前は、「header」とします。

containerコントロールにパネルを追加

さらに、パネルを4つ追加します。
それぞれ名前を「main」「tab」「content」「footer」とします。
ここで、適当に追加してしまうと、思ってもいない場所に設定されてしまいます。

そんなときは、[アウトライン]ビューに表示されているコントロールをマウスで選択して、好きな場所にドラッグ＆ドロップします。

ここでは、下図のような順番に並べ替えます。

containerコントロールのパネルの並びを変更した状態

また、前回作成したラベルを「header」コントロールの中に移動しておきます。

今度は、containerコントロールのスタイルを設定してみましょう。
スタイルシートを使うと自由に設定できますが、ここではLotus Domino Designerに設定されているプロパティでどこまでできるかを確認するために、そちらでやっていきましょう。
（Dojoについては、IBMの新人SEが学ぶXPagesに詳しく出ていますので、そちらを参照してください。）

さて気を取り直して、最初にheaderパネルの設定を行います。
パネルのプロパティを見ると・・・
大きさや背景を設定できるようです。

パネルのプロパティ

ということで、大きさと背景色を設定してみましょう。
大きさは、「高さ」を47ピクセルにします（これは、適当な数値にしてください）。
背景は、単色はつまらないのでグラデーションにしてみましょう・・・ってできません！
ノーツの表ならグラデーションが描けるのに・・・仕方がないので、グラフィックで代用します。

グラフィックの作成には、Lotus SymphonyのPresentationを使います。
Lotus Domino DesignerでXPagesを作成しようという方なら導入済みでしょうから（笑）
[作成][図形描画オブジェクト]メニューを実行すると、図形描画オブジェクトのツールバーが表示されるので、そこから四角形を選択して、適当な大きさにドラッグ＆ドロップします。

この図形を選択したまま、右側のメニューから[その他の形状プロパティ]を選択すると、プロパティ画面が表示されます。

[領域]タブで色を選択して、[透明度]タブでグラデーションを選択します。
[線]タブで非表示にすれば、グラデーションの図形ができあがりました。
後は、ペイント等を使って大きさを調整します。gifもしくはjpegで保存しておいてください。
ちなみに、筆者はこんなグラフィックを作成しました。

headerパネル用の背景グラフィック

わかりやすいように、幅はちょっと太めにしてあります。

さて、グラフィックが作成できたらLotus Domino Designerに戻ります。
headerプロパティの背景タブを選択して、[イメージのURL]の横にあるフォルダのアイコンをクリックします。

画像の選択画面

画像の選択画面が表示されるので、[追加]ボタンをクリックして、さきほど作成したグラフィックを追加します。右側に画像が表示されたら、[OK]をクリックします。

ついでにラベルの設定もしてみましょう。

ラベルのプロパティ

同様にtabパネルにもグラフィックを設定します。
ここでは筆者はこんなグラフィックを作成しました。

tabパネル用の背景グラフィック

ここまででcontainerコントロールはこんな画面になりました。

containerコントロールの画面

というところで、今日は終わります。
中途半端でごめんなさい。

次回で、ひとまずcontainerコントロールの編集を完了にしましょう。

では。

Lotus Expo 2011で会いましょう（あ。筆者は一般参加者として紛れています）。

【PR】ノーツ/ドミノに関するお問い合わせは下記まで【PR】

単純なDBのカスタマイズから他アプリケーションとの連携までご要望にお応えします

おじさんSEが学ぶXPages(2)

2011-09-24T14:13:00.001+09:00

今週も3連休です。先週末にブログを書いてから、すでに一週間が経過してしまいました。XPagesの連載ものにすると決めたのに、なかなか時間がとれません。必ず、アプリケーションは完成させますので、気長にお付き合いください。

ということで、今日は第2回目です。

その前に、久しぶりの

応援ボタンです。みなさんが、押してくれないとLotus Notes/Dominoが世の中に浸透しませんよ（笑）

では・・・
前回は、ノーツアプリケーションとして「図書管理 for XPages」（以下、図書管理と呼称）を作成するという事を宣言して、そのアプリケーションで使用する文書情報のフォーム（蔵書、貸し出し）を作成しました。
今回は、XPagesの設計要素を作成します。

図書管理の画面遷移は以下のようなものとしています。
オレンジ色が一覧画面（従来のノーツアプリケーションのビューに該当するもの）で、青色が文書画面（従来のノーツアプリケーションのフォームに該当するもの）です。

画面遷移図

これらのうち、「蔵書参照画面」と「蔵書登録／編集画面」は同一のものとしますので、
実質、4つの画面が必要になります。

ということで、まずは、この4つの画面を作成します。

メイン画面（蔵書一覧）　home
貸し出し一覧　Issueguides
蔵書参照／登録／編集画面　BookResources
貸し出し/返却画面　Lending

Domino Designer画面の左側のツリーから[XPages]の箇所をダブルクリックします。
名前は、"home"とします。
コメントは、空欄のままとします。
データソースをページに追加のチェックボックスは外したままにします。

新規 XPages作成画面

[OK]をクリックします。
少しすると、真っ白なXPagesのが面が表示されます。

同様に、
Issueguides
BookResources
Lending
と言う名前でXPagesを作成します。

作成したXPagesの一覧

今度は、これらのXPagesで共通する部分を作成します。
それには「カスタムコントロール」というものを利用します。
Domino Designer画面の左側のツリーから[カスタムコントロール]の箇所をダブルクリックします。
名前は、"container"とします。
コメントは、空欄のままとします。

新規カスタムコントロール作成画面

[OK]をクリックします。

すると、真っ白なカスタムコントロールの画面が表示されます。

ここで、さきほど作成した4つのXPagesに共通するものとして、アプリケーションのタイトルを常に表示されるようにしてみましょう。

[コントロールビュー]から「ラベル」を選択して（*1）、 containerコントロール画面にドラッグ＆ドロップします。
ラベルの値を「図書管理 for XPages」に変更します。

containerコントロールにラベルを配置

一度、containerコントロールを保存したら、home XPagesの編集画面に切り替えます。

コントロールビューの下の方にある「カスタムコントロール」の中に、今し方作成した、containerコントロールが表示されています。
それをドラッグ＆ドロップします。

これで、containerコントロールがhome XPages設計要素に追加されました。
homeは保存しておきましょう。

というところで、今回は終わりです。
次回は、containerコントロールの内容を編集して、共通レイアウトの部分を作成します。

【*1 Domino Designerの画面レイアウトについて】
XPagesで開発を行う場合、Domino Designerの画面レイアウトも重要になります。
従来のノーツアプリケーションを作成する場合には、不要であったビューも表示させておいた方が良いです。
簡単に戻すには、Domino Designerで[ウィンドウ][パースペクティブのリセット]メニューを実行します。
下図がパースペクティブをリセットした状態です。
この連載中は、下図のパースペクティブの状態でDomino Designerを使用していきます。

Domino Designerの初期画面

なお、筆者のスマートフォン（IS04）は故障しているので、しばらくはモバイルでのネット接続はできません（2011/09/24現在）。
ですので、筆者がネットをチェックできるのは、深夜になりますので悪しからず・・・

【PR】ノーツ/ドミノに関するお問い合わせは下記まで【PR】

単純なDBのカスタマイズから他アプリケーションとの連携までご要望にお応えします

おじさんSEが学ぶXPages(1)

2011-09-19T00:26:00.002+09:00

9/16(金)はテクてくザ・デベロッパー編でした。
IBM Championの加藤氏が講師という事で、いつもより参加人数が多かったです。

さらに、話題がXPagesということも良かったのでしょう。

講義が終わった後は、いつものようにIBMの皆さん及び、出席者の方々と懇親会があり、
その場でも楽しい話題が尽きませんでした。

そんな中、ツイッターやfacebook上で宣言したとおり、XPagesの記事を書きます！

筆者は約束は守ります！

ところで・・・
筆者はブログでXPagesについて書いたことがないことが分かりました。
アプリはいくつか作りましたが、これまでのようなネタを収集する事すらできていません。

・・・・・・・ということで、
このブログを通じて、XPagesのアプリケーションを作成していこうかと思います。

アプリケーションはずばり「図書管理」です。
筆者の個人ノーツアプリの中に、「図書管理」がありますので、これをXPagesで作り直したらどうなるかという事を定期的に書いていきます。
ただし、既存のアプリを改造するとなると、内容が難しくなりそうなので、あくまで新規に作成するという前提で書いていきます。

アプリケーション名　「図書管理 for XPages」

ファイル名　　　　　　「bkmgrxpg.nsf」

機能は以下の通り。

蔵書の登録
蔵書の一覧
蔵書の借用
蔵書の返却
督促機能
貸し出し状況の一覧

まずは、アプリケーションを作成します。

これをドミノデザイナで開きます。
次にフォームを作成します。
フォームは「蔵書」と「貸し出し」の2つを作成します。

１．「蔵書フォーム」
フォーム名／別名　「蔵書／BookResources」
フィールド
PublishedBy    テキスト    編集可能（出版社）
Writer        テキスト    編集可能（著者名）
BookName    テキスト    編集可能（蔵書名）
PurchaseTime    日付/時刻    編集可能（購入日）
として、保存してください。

２．「貸し出しフォーム」
フォーム名／別名　「貸し出し／Lending」
フィールド
LendBy        テキスト    編集可能（ユーザ名）
BookName    テキスト    編集可能（蔵書名）
LendingDay    日付/時刻    編集可能（貸出日）
LendingTerm    日付/時刻    編集可能（返却予定日）
Status        テキスト    計算結果（状況）
ReturnDay    日付/時刻    計算結果（返却日）
として、保存してください。
※計算結果フィールドの「値」はフィールド名を設定してください。

XPagesでは、フォーム自身の装飾は使いませんので、ひたすらフィールドの定義をするだけです。
簡単ですね。

では、次回は「蔵書フォーム」の画面を表示するためのXPagesの画面を作成します。

お楽しみに・・・

って、これXPagesについてのブログなのかな？

Lotus Knows Expo 2011

2011-09-07T09:31:00.000+09:00

久しぶりの投稿です。

やんごとなき理由で投稿が出来ない状態でした。
ホント、ごめんなさい。

ほんの少しですが、ネタもたまってきているので、また記事を投稿するようにしますので、よろしくお願いします。

さてさて、そう言いつつも今日も違う話題です。

と言っても、Lotus Notes/Dominoには欠かせないことです。
そうです。
Lotus Knows Expo 2011です。
今年も開催されます。

東京は、

2011年10月7日(金) 10:00～18:00

ザ・プリンスパークタワー東京

で、行われます。

もちろん、筆者はすでに参加申し込み済みです！

みなさんも、その日は仕事を投げ打ってでも！？足を運びましょう！
きっと良いことがありますよ！（ホントか！？）

申し込みサイトはこちら！
Lotus Knows Expo 2011

androidアプリケーションを作成しました！

2011-04-12T13:55:00.001+09:00

4月ももう半ばだというのに、なかなか暖かくなりませんね。
風邪など引かないように、気をつけてお過ごしください。

これから暖かくなりますように・・・と祈りながら、ボタンをクリックしてください。
きっと暖かい日が来ます。

さて、今日は告知です。
Lotus Notes/DominoのAndroidアプリケーションを作成しました！

と言っても、大したものではありません。ノーツDBのブックマークソフトです。

Web対応してあるノーツDBをアプリケーション上にあらかじめ登録しておくことで、次回からはダイレクトにアクセスできるというものです。

下図はスクリーンショットです。

（図１　メイン画面）
メイン画面では、登録したノーツDBがアイコン、タイトル、ファイル名という形で表示されます。
アイコンを表示することで、社内でノーツクライアントを利用しているのと同じ感覚になります。

（図２　ノーツDB追加画面）
ノーツDBを追加するためには、ノーツDBのファイル名が必須です。タイトルは任意でつけられます。
入力しない場合、ノーツDBから引用してきます（DBによっては引用できないものもあります）。

（図３　ノーツDBの読み込み）
図１の中からアクセスしたいノーツDBをタップすると、DBの読込が始まります。
読込が完了するとプログレスバーが消えます。

（図４　ノーツDBの表示画面）
これは筆者がサンプルとして作成したノーツDBです（xPagesで作成してあります）。
正しく表示されているのが分かりますでしょうか？

本アプリケーションは、IS01ユーザでも利用できるようにと、Android 1.6にも対応しています！（え！？筆者が持っているからだろって？・・・そうです！）
また、アプリケーション終了時に、履歴やクッキーも削除するようにしてあります。

Webブラウザにブックマークしておくのも良いですが、多すぎて普通のブックマークと混同してしまい、わからん！！というお客様にはもってこいだと思います。

本件に関するお問い合わせは、筆者もしくは株式会社エフまでお願いします。
~~なお、Android Marketへは未登録ですので、探しても見つかりません。悪しからず・・・~~

2011/04/20 Android Marketへ登録しました。「Bookmark for Notes」というタイトルです。

Android Market

【PR】ノーツ/ドミノに関するお問い合わせは下記まで【PR】
単純なDBのカスタマイズから他アプリケーションとの連携までご要望にお応えします

設計情報の抽出

2011-04-07T10:39:00.000+09:00

気がついたら4月です。
3月は、社会的にも個人的にも色々とありまして記事を書くことが出来ませんでした。
中には「あぁ。このブログももう終わりかぁ」なんて思った方もいらっしゃるかと思いますが、そんなことはありません！頑張って書いていきます！

ちなみに、当ブログもすでに4年目に突入しています！まだまだLotus Notes/Dominoで押していきますのでよろしくお願いします。

筆者を応援するためのボタンはこちら！

さて、今日は設計情報の抽出にチャレンジしてみましょう。

ノーツDBにはフォームやらビューやらエージェントやら、色々な設計情報があります。
LotusScriptのNotesNoteCollectionクラスを使うことにより、どんな設計情報があるのかを調べることが可能になります。

今回のサンプルは、ノーツDBの中に、何個のフォームがあり、それの名称および別名を取得して画面に表示するというものです。

01	Sub Click(Source As Button)
02	Dim session As New NotesSession
03	Dim db As NotesDatabase
04	Dim ndocs As NotesNoteCollection
05	Dim ndoc As NotesDocument
06	Dim nid As String
07	Dim i As Integer
08	Dim ret As String
09	Dim tmpData As String
10
11	Set db = session.CurrentDatabase
12	' フォームだけのコレクションとする
13	Set ndocs = db.CreateNoteCollection( False )
14	ndocs.SelectForms = True
15	Call ndocs.BuildCollection()
16
17	i = 1
18	nid = ndocs.GetFirstNoteId()
19	Do While nid <> ""
20	Set ndoc = db.GetDocumentByID( nid )
21
22	tmpData = ""
23	' フォーム名は$TITLEに格納されている
24	ForAll x In ndoc.GetItemValue( "$TITLE" )
25	If tmpData = "" Then
26	tmpData = x
27	Else
28	tmpData = tmpData & "\| " & x
29	End If
30	End ForAll
31
32	ret = ret & CStr(i) & ". " & tmpData & Chr$(10)
33
34	nid = ndocs.GetNextNoteId( nid )
35	i = i + 1
36	Loop
37	MsgBox ret, 0, "全フォーム数： " & CStr(ndocs.Count)
38	End Sub

下図は、筆者のテスト用のノーツDBでの実行結果です。
別名が複数あっても取得できていることが分かりますでしょうか。

どうでしょう？割と簡単に行えることが分かっていただけたでしょうか？
色々と応用することが出来ますので、試してみてください。

【PR】ノーツ/ドミノに関するお問い合わせは下記まで【PR】
単純なDBのカスタマイズから他アプリケーションとの連携までご要望にお応えします