fc2ブログ

サブフォームを含む文書のReplication

DB設計でサブフォームはよく使っていますが、たまたまLEI で対象文書を扱ったことがありませんでした。先日、OracleからNotesへのReplicationActivityを作成し実行すると、"invalid field"エラーが発生。悩んだ挙句、ReplicationActivityのTagetFieldを1つ消しては実行を繰り返して、計算結果サブフォームが原因とわかりました。次にActivity内に記述箇所を探すが無い。でも何度もActivity内を探す。答えはNotes Connectionの中にありました。

NotesConnection

文書のデータ転送で、何故Connectionにあるのか?Data Transformationも同様で本来はActivityにあるべきでは?Activity内にあればConnection数が無駄に増えなくてすむのに。
でも、すぐに見つかると思い、ヘルプを探さなかった私が一番悪い。
スポンサーサイト



テーマ : プログラミング
ジャンル : コンピュータ

nnotesws.dllにお宝はあるか?

以前プログレスバーを記述したので、nnotesws.dll の中に宝があるのでは?と思って調べてみました。

(1) Windowタイトルを変更できる。
Declare Function NEMGetCurrentSubprogramWindow Lib "nnotesws.dll" () As Long
Declare Function NEMSetWindowText Lib "nnotesws.dll" (Byval hwnd As Long, Byval sText As Lmbcs String) As Integer
Sub Click(Source As Button)
  Call NEMSetWindowText(NEMGetCurrentSubprogramWindow, "ピヨパパ日記")
End Sub

nnotesws.dll

(2) ステータスに文字を表示できる。Notesクライアント環境下のPrintステートメントと同じ。
Declare Function NEMPostStatus Lib "nnotesws.dll" (Byval szText As Lmbcs String) As Long
Sub Click(Source As Button)
  Call NEMPostStatus("ピヨパパ日記")
End Sub

nnotesws.dll

(3) 音を出す。
Declare Function NEMBeep Lib "nnotesws" () As Integer
Sub Click(Source As Button)
  Call NEMBeep
End Sub

(4) カーソルの形状が"wait"になる。
Declare Function NEMEnableWaitCursor Lib "nnotesws.dll" () As Long
Sub Click(Source As Button)
  Call NEMEnableWaitCursor
End Sub

(5) カーソルの形状が"default"になるが、4→5でも5→4も同じwait→defaultになってしまう。
Declare Function NEMDisableWaitCursor Lib "nnotesws.dll" () As Long
Sub Click(Source As Button)
  Call NEMDisableWaitCursor
End Sub

(6) NSTRINGS.DLL にあるメッセージを表示する。
Declare Function NEMDisplayMessage Lib "nnotesws" (Byval wMessageNumber As Integer) As Integer
Sub Click(Source As Button)
  Call NEMDisplayMessage(19)
End Sub

nnotesws.dll

(7) NSTRINGS.DLL にあるエラーメッセージを表示する。
Declare Function NEMDisplayError Lib "nnotesws" (Byval wType As Integer) As Integer
Sub Click(Source As Button)
  Call NEMDisplayError(24)
End Sub

nnotesws.dll

(8) NSTRINGS.DLL にあるエラーメッセージを表示する。
Declare Function NEMDisplayError1 Lib "nnotesws" (Byval wType As Integer, Byval szMessage As Lmbcs String) As Integer
Sub Click(Source As Button)
  Call NEMDisplayError1(24, "ピヨパパ日記")
End Sub

nnotesws.dll

(9) メッセージボックスを表示する。
Declare Function NEMMessageBox Lib "nnotesws" ( wHandle As Integer, Byval szMessage As Lmbcs String, Byval szTitle As Lmbcs String, Byval wType As Integer) As Integer
Sub Click(Source As Button)
  Call NEMMessageBox(0, "メッセージ", "ピヨパパ日記", 19)
End Sub

(10) 現在のウィンドウを終了(Notesの終了ではない)。
Declare Function NEMGetCurrentSubprogramWindow Lib "nnotesws.dll" () As Long
Declare Function NEMStopSubprogramWindow Lib "nnotesws.dll" (Byval wHandle As Long) As Integer
Sub Click(Source As Button)
  Call NEMStopSubprogramWindow(NEMGetCurrentSubprogramWindow)
End Sub


(11) ワークスペースにアイコン追加。
Declare Function NEMDisplayError Lib "nnotesws" (Byval wType As Integer) As Integer
Declare Function DeskLocateOrAddEntry Lib "nnotesws" (Byval szPath As String) As Integer
Sub Click(Source As Button)
  Dim i As Integer
  i = DeskLocateOrAddEntry("log.nsf")
  If i <> 0 Then
    NEMDisplayError(i)
  End If
End Sub

(12) "ファイルを開く"ダイアログボックスを表示する。
Declare Function NEMGetFile Lib "nnotesws" ( wHandle As Integer, Byval szFileName As String, Byval szFilter As String, Byval szTitle As String ) As Integer
Sub Click(Source As Button)
  Dim FileName As String*256
  Filename = Chr(0)
  If NEMGetFile( 0, FileName, "All Files |*.*|", "Open File") <> 0 Then
    Msgbox FileName
  End If
End Sub

(13) "ファイルを保存"ダイアログボックスを表示する。
Declare Function NEMPutFile Lib "nnotesws" ( wHandle As Integer, Byval szFileName As String, Byval szFilter As String, Byval szTitle As String ) As Integer
Sub Click(Source As Button)
  Dim FileName As String*256
  Filename = Chr(0)
  If NEMPutFile( 0, FileName, "All Files |*.*|", "Save File") <> 0 Then
    Msgbox FileName
  End If
End Sub

(14) プログレスバー

個人的な結論は、プログレスバー以外にお宝なし。

近況では、サーバーはDomino8.5にマイグレーションしたが、クライアントは以前のまま6.5。
クライアントも予定していまいしたが、あまりに起動や動作が遅く諦めました。
開発は6.5のまま、よってブログの内容も6.5のまま。

テーマ : プログラミング
ジャンル : コンピュータ

プロフィール

ピヨパパ

Author:ピヨパパ
静岡市のエンドユーザーSE。
最近はDominoの開発ばかりでうんざり。
是非気軽にコメントして下さい。

FC2カウンター
最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
検索フォーム
RSSリンクの表示
リンク
ブロとも申請フォーム

この人とブロともになる