![[目次]](FIGURE/CONTENT.GIF)
帳票システム構築支援 uCosminexus EUR uCosminexus EUR サーバ帳票出力
![[索引]](FIGURE/INDEX.GIF)
![[前へ]](FIGURE/FRONT.GIF)
![[次へ]](FIGURE/AFTER.GIF)
Webサーバ上のASP環境でスクリプトを指定して，帳票をプリンタに印刷するコーディング例を次に示します。
<HTML>
<HEAD>
<TITLE>Sample Script of ASP page for EUR Print Service</TITLE>
</HEAD>
<BODY>
<%
'スクリプトのタイムアウト時間を100秒に設定
Server.ScriptTimeOut=100
'**********/// 1. 配列定義領域 開始 ///**********
Dim A,B(1),C(1)
'接続情報ファイル名をAに設定
A="DBInfo1.txt"
'帳票ファイル名を配列Bに設定
B(0)="sample1.fms"
B(1)="sample2.fms"
'可変記号値定義ファイル名を配列Cに設定
C(0)="DBVar1.txt"
C(1)="DBVar2.txt"
'**********/// 1. 配列定義領域 終了 ///**********
'エラーハンドリングを行う
On Error Resume Next
'プログラムID「EURPS.Exec」を指定して，
'ActiveXオブジェクトのインスタンス作成
Set EUR=Server.CreateObject("EURPS.Exec")
'**********/// 2. ファイル名指定領域 開始 ///**********
'接続情報ファイルの指定
EUR.DBInfoFileName=A
'帳票ファイルの指定
EUR.ReportFileName=B
'可変記号値定義ファイルの指定
EUR.DataFileName=C
'出力プリンタの指定
EUR.PrinterName="Printer1"
'**********/// 2. ファイル名指定領域 終了 ///**********
If Err.Number<>0 Then
Response.Write("EUR実行前にエラーが発生しています"& Err.Number &"<BR>")
Else
'印刷指示
EUR.PrintReport()
'PrintReportメソッドは正常終了かどうかの判定
If Err.Number=0 Then
'「印刷終了」をHTMLドキュメントに出力
Response.Write("印刷終了")
Else
Response.Write("エラーが発生しました。<BR>")
Response.Write("エラー番号="& Err.Number &"<BR>")
'メッセージ文字列からメッセージIDをerridに取り出す
errid=Cint(Mid(Err.Description,5,3))
'**********/// 3. エラー番号指定領域 開始 ///**********
If errid=300 Then
'***/// KEEU300-Wの場合のエラー処理 ///***
Elseif errid=5 Then
'***/// KEEU005-Eの場合のエラー処理 ///***
Elseif errid=53 Then
'***/// KEEU053-Eの場合のエラー処理 ///***
'**********/// 3. エラー番号指定領域 終了 ///**********
End If
End If
End If
%>
</BODY>
</HTML>
そのほかの場合は，「1.配列定義領域」，「2.ファイル名指定領域」，「3.エラー番号指定領域」のそれぞれに，次に示すコーディング例を当てはめて使用してください。
| '帳票ファイルの指定 EUR.ReportFileName="sample1.fms" 'マッピングデータファイルの指定 EUR.DataFileName="mapping1.csv" '出力プリンタの指定 EUR.PrinterName="Printer1" |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=5 Then '***/// KEEU005-Eの場合のエラー処理 ///*** Elseif errid=6 Then '***/// KEEU006-Eの場合のエラー処理 ///*** |
| '接続情報ファイルの指定 EUR.DBInfoFileName="DBInfo1.txt" '帳票ファイルの指定 EUR.ReportFileName="sample1.fms" '可変記号値定義ファイルの指定 EUR.DataFileName="DBVar1.txt" '出力プリンタの指定 EUR.PrinterName="Printer1" |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=5 Then '***/// KEEU005-Eの場合のエラー処理 ///*** Elseif errid=53 Then '***/// KEEU053-Eの場合のエラー処理 ///*** |
| Dim A(1),B(1) '帳票ファイル名を配列Aに設定 A(0)="sample1.fms" A(1)="sample2.fms" 'マッピングデータファイル名を配列Bに設定 B(0)="mapping1.csv" B(1)="mapping2.csv" |
| '帳票ファイルの指定 EUR.ReportFileName=A 'マッピングデータファイルの指定 EUR.DataFileName=B '出力プリンタの指定 EUR.PrinterName="Printer1" |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=5 Then '***/// KEEU005-Eの場合のエラー処理 ///*** Elseif errid=6 Then '***/// KEEU006-Eの場合のエラー処理 ///*** |
| '複数様式情報定義ファイルの指定 EUR.MultiFormInfoDefFileName="formdef.txt" '帳票セット指定ファイルの指定 EUR.MultiReportSetFileName="formset.txt" '出力プリンタの指定 EUR.PrinterName="Printer1" |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=35 Then '***/// KEEU035-Eの場合のエラー処理 ///*** Elseif errid=37 Then '***/// KEEU037-Eの場合のエラー処理 ///*** |
| '複数様式情報定義ファイルの指定 EUR.MultiFormInfoDefFileName="formdef.txt" '接続情報ファイルの指定 EUR.DBInfoFileName="DBInfo1.txt" '帳票セット指定ファイルの指定 EUR.MultiReportSetFileName="formset.txt" '出力プリンタの指定 EUR.PrinterName="Printer1" |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=35 Then '***/// KEEU035-Eの場合のエラー処理 ///*** Elseif errid=37 Then '***/// KEEU037-Eの場合のエラー処理 ///*** Elseif errid=53 Then '***/// KEEU053-Eの場合のエラー処理 ///*** |
All Rights Reserved. Copyright (C) 2008, 2011, Hitachi, Ltd.