蓄積のコーディング例

帳票システム構築支援　uCosminexus EUR　uCosminexus EUR Print Manager 帳票出力

9.11.4　蓄積のコーディング例

次に示すパラメタを指定して，サーバに印刷データを蓄積するときのコーディング例です。

入力ファイル（印刷定義ファイル）：EUR Print Managerのあるマシンに配置: 帳票ファイル名：sample1.fms

入力ファイル（ユーザ定義ファイル）：EUR Print Manager - Adapterのあるマシンに配置: マッピングデータファイルのパス：c:\Temp; マッピングデータファイル名：data1.csv

<HTML>
<HEAD>
<TITLE>Sample Script of ASP page for EUR Print Manager</TITLE>
</HEAD>
<BODY>
<%
  Server.ScriptTimeOut=100     …スクリプトのタイムアウト時間を
                                 100秒に設定
  On Error Resume Next         …エラーハンドリングを行う
  dim jobid                    …変数宣言
  Set EURPM=Server.CreateObject("EURPM.Exec")
                        …プログラムID「EURPM.Exec」を指定して，
                          ActiveXオブジェクトのインスタンス作成
  EURPM.ReportFileName="sample1.fms"       …帳票ファイルの指定
  EURPM.DataFilePath="c:\Temp"             …マッピングデータパスの指定
  EURPM.DataFileName="data1.csv"           …マッピングデータの指定
  EURPM.PrintMode=2                        …印刷方式を「蓄積」に設定
  If Err.Number <> 0 Then
    Response.Write("蓄積実行前に
                    エラーが発生しています"& Err.Number &"<BR>")
  Else
    EURPM.PrintPMReport()               …蓄積指示
    If Err.Number = 0 Then              …PrintPMReportメソッドは
                                          正常終了かどうかの判定
      jobid = EURPM.GetJobID();          …蓄積ファイルのジョブIDを取得
      「正常終了時の処理」
    Else
      errid= Err.Number           …エラーコードをerridに取り出す
      If errid=-441 Then          …KEEY441-Wの場合のエラー処理
        Elseif errid=-301 Then    …KEEY301-Eの場合のエラー処理
        Elseif errid=-302 Then    …KEEY302-Eの場合のエラー処理
        Elseif errid=
              :                   …以下，そのほかのエラー処理を繰り返す
      End If
    End If
  End If
%>
</BODY>
</HTML>

9.11.4 蓄積のコーディング例

9.11.4　蓄積のコーディング例