EUR形式ファイル出力のコーディング例

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

9.11.3　EUR形式ファイル出力のコーディング例

次に示すパラメタを指定して，EUR形式ファイル生成を実行するときのコーディング例です。出力ファイルは，EUR Print Manager - Adapterのあるマシンに出力されます。

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

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

出力ファイル: 出力EUR形式ファイルのパス：c:\Temp; 出力EUR形式ファイル名：eup1.eup

<HTML>
<HEAD>
<TITLE>Sample Script of ASP page for EUR Print Manager</TITLE>
</HEAD>
<BODY>
<%
  Server.ScriptTimeOut=100     …スクリプトのタイムアウト時間を
                                 100秒に設定
  On Error Resume Next         …エラーハンドリングを行う
  dim target                   …変数宣言
  Set EURPM=Server.CreateObject("EURPM.Exec")
                        …プログラムID「EURPM.Exec」を指定して，
                          ActiveX起動部品のインスタンス作成
  EURPM.ReportFileName="sample1.fms"       …帳票ファイルの指定
  EURPM.DataFilePath="c:\Temp"             …マッピングデータファイルの
                                             パスの指定
  EURPM.DataFileName="data1.csv"           …マッピングデータの指定
  EURPM.EURFilePath="c:\Temp"              …EUR形式ファイルパスの指定
  EURPM.EURFileName="eup1.eup"             …EUR形式ファイル名の指定
  If Err.Number <> 0 Then
    Response.Write("印刷実行前に
                    エラーが発生しています"& Err.Number &"<BR>")
  Else
    EURPM.OutputEURReport()                …EUR形式ファイル出力指示
    If Err.Number = 0 Then                 …OutputEURReportメソッドは
                                             正常終了かどうかの判定
      「正常終了時の処理」
    Else
      errid= Err.Number           …エラーコードをerridに取り出す
      If errid=-nnn Then          …KEEYnnn-Eの場合のエラー処理
        Elseif errid=-nnn Then    …KEEYnnn-Eの場合のエラー処理
        Elseif errid=-nnn Then    …KEEYnnn-Eの場合のエラー処理
        Elseif errid=
              :                   …そのほかのエラー処理を繰り返す
      End If
    End If
  End If
%>
</BODY>
</HTML>

9.11.3 EUR形式ファイル出力のコーディング例

9.11.3　EUR形式ファイル出力のコーディング例