Hitachi

EUR 帳票出力 機能解説 EUR Server編


4.1.8 コーディング例

次に示すパラメタを指定して,PDF形式ファイルを出力します。出力ファイルは,EUR Server - Adapter稼働マシンに出力されます。

■入力ファイル(印刷定義ファイル):EUR Server Service稼働マシンに配置

帳票ファイル名:sample1.fms

■入力ファイル(ユーザデータファイル):EUR Server - Adapter稼働マシンに配置

マッピングデータファイルのパス:c:\Temp

マッピングデータファイル名:data1.csv

■出力ファイル

出力PDF形式ファイルのパス:c:\Temp

出力PDF形式ファイル名:pdf1.pdf

コーディング例を次に示します。

〈この項の構成〉

(1) ActiveX起動部品の場合

<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.PDFFilePath="c:\Temp"              …PDF形式ファイルパスの指定
  EURPM.PDFFileName="pdf1.pdf"             …PDF形式ファイル名の指定
  If Err.Number <> 0 Then
    Response.Write("印刷実行前に
                    エラーが発生しています"& Err.Number &"<BR>")
  Else
    EURPM.OutputPDFReport()               …PDF形式ファイル出力指示
    If Err.Number = 0 Then                …OutputPDFReportメソッドは
                                            正常終了かどうかの判定
      「正常終了時の処理」
    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>