帳票システム構築支援 uCosminexus EUR uCosminexus EUR サーバ帳票出力
Webサーバ上のASP環境でスクリプトを指定して,帳票をPDF形式ファイルに出力するコーディング例を次に示します。
<HTML>
<HEAD>
<TITLE>Sample Script for EUR Print Service Enterprise</TITLE>
</HEAD>
<BODY>
<%
'**********/// 1. 配列定義領域 開始 ///**********
'D(2)はしおり付きPDF形式ファイルに出力する場合だけ指定
Dim A,B(2),C(2),D(2)
'接続情報ファイル名をAに設定
A="DBInfo1.txt"
'帳票ファイル名を配列Bに設定
B(0)="sample1.fms"
B(1)="sample2.fms"
B(2)="sample3.fms"
'可変記号値定義ファイル名を配列Cに設定
C(0)="DBVar1.txt"
C(1)="DBVar2.txt"
C(2)="DBVar3.txt"
'***/// しおり付きPDF形式ファイルに出力する場合 開始 ///***
'しおり定義ファイル名を配列Dに設定
D(0)="bookmark1.txt"
D(1)="bookmark2.txt"
D(2)="bookmark3.txt"
'***/// しおり付きPDF形式ファイルに出力する場合 終了 ///***
'**********/// 1. 配列定義領域 終了 ///**********
'エラーハンドリングを行う
On Error Resume Next
'プログラムID「EURPS.Exec」を指定して,
'ActiveXオブジェクトのインスタンス作成
Set EUR=Server.CreateObject("EURPS.Exec")
'**********/// 2. ファイル名指定領域 開始 ///**********
'出力タイプ(PDF形式ファイル出力)の指定
EUR.OutputType=1
'出力先ファイルの指定
EUR.OutFileName="output.pdf"
'接続情報ファイルの指定
EUR.DBInfoFileName=A
'帳票ファイルの指定
EUR.ReportFileName=B
'可変記号値定義ファイルの指定
EUR.DataFileName=C
'***/// しおり付きPDF形式ファイルに出力する場合 開始 ///***
'文書しおり定義ファイルの指定
EUR.DocBookmarkFileName="docbm2.txt"
'しおり定義ファイルの指定
EUR.BookmarkFileName=D
'***/// しおり付きPDF形式ファイルに出力する場合 終了 ///***
'**********/// 2. ファイル名指定領域 終了 ///**********
If Err.Number<>0 Then
Response.Write("EUR実行前にエラーが発生しています"& Err.Number &"<BR>")
Else
'印刷指示
EUR.PrintReport()
'PrintReportメソッドは正常終了かどうかの判定
If Err.Number=0 Then
'「PDF形式ファイル出力終了」をHTMLドキュメントに出力
Response.Write("PDF形式ファイル出力終了")
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>
しおり付きPDF形式ファイルに出力する場合は,「しおり付きPDF形式ファイルに出力する場合」の領域内の内容も指定してください。
そのほかの場合は,「1.配列定義領域」,「2.ファイル名指定領域」,「3.エラー番号指定領域」のそれぞれに,次に示すコーディング例を当てはめて使用してください。
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 '出力先ファイルの指定 EUR.OutFileName="output.pdf" '帳票ファイルの指定 EUR.ReportFileName="sample1.fms" 'マッピングデータファイルの指定 EUR.DataFileName="mapping1.csv" '***/// しおり付きPDF形式ファイルに出力する場合 開始 ///*** '文書情報設定ファイルの指定 EUR.DocInfoFileName="pdfdoc.txt" '文書しおり定義ファイルの指定 EUR.DocBookmarkFileName="docbm1.txt" 'しおり定義ファイルの指定 EUR.BookmarkFileName="bookmark1.txt" '***/// しおり付きPDF形式ファイルに出力する場合 終了 ///*** |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=5 Then '***/// KEEU005-Eの場合のエラー処理 ///*** Elseif errid=6 Then '***/// KEEU006-Eの場合のエラー処理 ///*** |
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 '出力先ファイルの指定 EUR.OutFileName="output.pdf" '接続情報ファイルの指定 EUR.DBInfoFileName="DBInfo1.txt" '帳票ファイルの指定 EUR.ReportFileName="sample1.fms" '可変記号値定義ファイルの指定 EUR.DataFileName="DBVar1.txt" '***/// しおり付きPDF形式ファイルに出力する場合 開始 ///*** '文書情報設定ファイルの指定 EUR.DocInfoFileName="pdfdoc.txt" '文書しおり定義ファイルの指定 EUR.DocBookmarkFileName="docbm1.txt" 'しおり定義ファイルの指定 EUR.BookmarkFileName="bookmark1.txt" '***/// しおり付きPDF形式ファイルに出力する場合 終了 ///*** |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=5 Then '***/// KEEU005-Eの場合のエラー処理 ///*** Elseif errid=53 Then '***/// KEEU053-Eの場合のエラー処理 ///*** |
| 'C(2)はしおり付きPDF形式ファイルに出力する場合だけ指定 Dim A(2),B(2),C(2) '帳票ファイル名を配列Aに設定 A(0)="sample1.fms" A(1)="sample2.fms" A(2)="sample3.fms" 'マッピングデータファイル名を配列Bに設定 B(0)="mapping1.csv" B(1)="mapping2.csv" B(2)="mapping3.csv" '***/// しおり付きPDF形式ファイルに出力する場合 開始 ///*** 'しおり定義ファイル名を配列Cに設定 C(0)="bookmark1.txt" C(1)="bookmark2.txt" C(2)="bookmark3.txt" '***/// しおり付きPDF形式ファイルに出力する場合 終了 ///*** |
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 '出力先ファイルの指定 EUR.OutFileName="output.pdf" '帳票ファイルの指定 EUR.ReportFileName=A 'マッピングデータファイルの指定 EUR.DataFileName=B '***/// しおり付きPDF形式ファイルに出力する場合 開始 ///*** '文書しおり定義ファイルの指定 EUR.DocBookmarkFileName="docbm2.txt" 'しおり定義ファイルの指定 EUR.BookmarkFileName=C '***/// しおり付きPDF形式ファイルに出力する場合 終了 ///*** |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=5 Then '***/// KEEU005-Eの場合のエラー処理 ///*** Elseif errid=6 Then '***/// KEEU006-Eの場合のエラー処理 ///*** |
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 '出力先ファイルの指定 EUR.OutFileName="output.pdf" '複数様式情報定義ファイルの指定 EUR.MultiFormInfoDefFileName="formdef.txt" '帳票セット指定ファイルの指定 EUR.MultiReportSetFileName="formset.txt" '***/// しおり付きPDF形式ファイルに出力する場合 開始 ///*** '文書しおり定義ファイルの指定 EUR.DocBookmarkFileName="docbm2.txt" '***/// しおり付きPDF形式ファイルに出力する場合 終了 ///*** |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=35 Then '***/// KEEU035-Eの場合のエラー処理 ///*** Elseif errid=37 Then '***/// KEEU037-Eの場合のエラー処理 ///*** |
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 '出力先ファイルの指定 EUR.OutFileName="output.pdf" '複数様式情報定義ファイルの指定 EUR.MultiFormInfoDefFileName="formdef.txt" '接続情報ファイルの指定 EUR.DBInfoFileName="DBInfo1.txt" '帳票セット指定ファイルの指定 EUR.MultiReportSetFileName="formset.txt" '***/// しおり付きPDF形式ファイルに出力する場合 開始 ///*** '文書しおり定義ファイルの指定 EUR.DocBookmarkFileName="docbm2.txt" '***/// しおり付きPDF形式ファイルに出力する場合 終了 ///*** |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=35 Then '***/// KEEU035-Eの場合のエラー処理 ///*** Elseif errid=37 Then '***/// KEEU037-Eの場合のエラー処理 ///*** Elseif errid=53 Then '***/// KEEU053-Eの場合のエラー処理 ///*** |
<HTML>
<HEAD>
<TITLE>Sample Script for EUR Print Service Enterprise</TITLE>
</HEAD>
<BODY>
<%
'**********/// 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. ファイル名指定領域 開始 ///**********
'出力タイプ(PDF形式ファイル出力)の指定
EUR.OutputType=1
'PDF仕分け定義ファイルの指定
EUR.DistributeFileName="shiwake.csv"
'複数様式情報定義ファイルの指定
EUR.MultiFormInfoDefFileName="formdef.txt"
'接続情報ファイルの指定
EUR.DBInfoFileName=A
'帳票ファイルの指定
EUR.ReportFileName=B
'可変記号値定義ファイルの指定
EUR.DataFileName=C
'***/// PDF形式ファイルを暗号化仕分け出力する場合 開始 ///***
'PDF形式ファイルの暗号化指定
EUR.Crypto=true
'暗号化設定ファイルの指定
EUR.CryptoFileName="crypto.txt"
'***/// PDF形式ファイルを暗号化仕分け出力する場合 終了 ///***
'**********/// 2. ファイル名指定領域 終了 ///**********
If Err.Number<>0 Then
Response.Write("EUR実行前にエラーが発生しています"& Err.Number &"<BR>")
Else
'印刷指示
EUR.PrintReport()
'PrintReportメソッドは正常終了かどうかの判定
If Err.Number=0 Then
'「PDF形式ファイル出力終了」をHTMLドキュメントに出力
Response.Write("PDF形式ファイル出力終了")
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>
PDF形式ファイルを暗号化仕分け出力する場合は,「PDF形式ファイルを暗号化仕分け出力する場合」の領域内の内容も指定してください。
そのほかの場合は,「1.配列定義領域」,「2.ファイル名指定領域」,「3.エラー番号指定領域」のそれぞれに,次に示すコーディング例を当てはめて使用してください。
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 'PDF仕分け定義ファイルの指定 EUR.DistributeFileName="shiwake.csv" '帳票ファイルの指定 EUR.ReportFileName="sample1.fms" 'マッピングデータファイルの指定 EUR.DataFileName="mapping1.csv" '***/// PDF形式ファイルを暗号化仕分け出力する場合 開始 ///*** 'PDF形式ファイルの暗号化指定 EUR.Crypto=true '暗号化設定ファイルの指定 EUR.CryptoFileName="crypto.txt" '***/// PDF形式ファイルを暗号化仕分け出力する場合 終了 ///*** |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=5 Then '***/// KEEU005-Eの場合のエラー処理 ///*** Elseif errid=6 Then '***/// KEEU006-Eの場合のエラー処理 ///*** |
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 'PDF仕分け定義ファイルの指定 EUR.DistributeFileName="shiwake.csv" '接続情報ファイルの指定 EUR.DBInfoFileName="DBInfo1.txt" '帳票ファイルの指定 EUR.ReportFileName="sample1.fms" '可変記号値定義ファイルの指定 EUR.DataFileName="DBVar1.txt" '***/// PDF形式ファイルを暗号化仕分け出力する場合 開始 ///*** 'PDF形式ファイルの暗号化指定 EUR.Crypto=true '暗号化設定ファイルの指定 EUR.CryptoFileName="crypto.txt" '***/// PDF形式ファイルを暗号化仕分け出力する場合 終了 ///*** |
| 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" |
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 'PDF仕分け定義ファイルの指定 EUR.DistributeFileName="shiwake.csv" '複数様式情報定義ファイルの指定 EUR.MultiFormInfoDefFileName="formdef.txt" '帳票ファイルの指定 EUR.ReportFileName=A 'マッピングデータファイルの指定 EUR.DataFileName=B '***/// PDF形式ファイルを暗号化仕分け出力する場合 開始 ///*** 'PDF形式ファイルの暗号化指定 EUR.Crypto=true '暗号化設定ファイルの指定 EUR.CryptoFileName="crypto.txt" '***/// PDF形式ファイルを暗号化仕分け出力する場合 終了 ///*** |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=5 Then '***/// KEEU005-Eの場合のエラー処理 ///*** Elseif errid=6 Then '***/// KEEU006-Eの場合のエラー処理 ///*** |
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 'PDF仕分け定義ファイルの指定 EUR.DistributeFileName="shiwake.csv" '複数様式情報定義ファイルの指定 EUR.MultiFormInfoDefFileName="formdef.txt" '帳票セット指定ファイルの指定 EUR.MultiReportSetFileName="formset.txt" '***/// PDF形式ファイルを暗号化仕分け出力する場合 開始 ///*** 'PDF形式ファイルの暗号化指定 EUR.Crypto=true '暗号化設定ファイルの指定 EUR.CryptoFileName="crypto.txt" '***/// PDF形式ファイルを暗号化仕分け出力する場合 終了 ///*** |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=35 Then '***/// KEEU035-Eの場合のエラー処理 ///*** Elseif errid=37 Then '***/// KEEU037-Eの場合のエラー処理 ///*** |
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 'PDF仕分け定義ファイルの指定 EUR.DistributeFileName="shiwake.csv" '複数様式情報定義ファイルの指定 EUR.MultiFormInfoDefFileName="formdef.txt" '接続情報ファイルの指定 EUR.DBInfoFileName="DBInfo1.txt" '帳票セット指定ファイルの指定 EUR.MultiReportSetFileName="formset.txt" '***/// PDF形式ファイルを暗号化仕分け出力する場合 開始 ///*** 'PDF形式ファイルの暗号化指定 EUR.Crypto=true '暗号化設定ファイルの指定 EUR.CryptoFileName="crypto.txt" '***/// PDF形式ファイルを暗号化仕分け出力する場合 終了 ///*** |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=35 Then '***/// KEEU035-Eの場合のエラー処理 ///*** Elseif errid=37 Then '***/// KEEU037-Eの場合のエラー処理 ///*** Elseif errid=53 Then '***/// KEEU053-Eの場合のエラー処理 ///*** |
<HTML>
<HEAD>
<TITLE>Sample Script for EUR Print Service Enterprise</TITLE>
</HEAD>
<BODY>
<%
'**********/// 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. ファイル名指定領域 開始 ///**********
'出力タイプ(PDF形式ファイル出力)の指定
EUR.OutputType=1
'出力先ファイルの指定
EUR.OutFileName="output.pdf"
'PDF形式ファイルの暗号化指定
EUR.Crypto=true
'暗号化設定ファイルの指定
EUR.CryptoFileName="crypto.txt"
'接続情報ファイルの指定
EUR.DBInfoFileName=A
'帳票ファイルの指定
EUR.ReportFileName=B
'可変記号値定義ファイルの指定
EUR.DataFileName=C
'**********/// 2. ファイル名指定領域 終了 ///**********
If Err.Number<>0 Then
Response.Write("EUR実行前にエラーが発生しています"& Err.Number &"<BR>")
Else
'印刷指示
EUR.PrintReport()
'PrintReportメソッドは正常終了かどうかの判定
If Err.Number=0 Then
'「PDF形式ファイル出力終了」をHTMLドキュメントに出力
Response.Write("PDF形式ファイル出力終了")
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.エラー番号指定領域」のそれぞれに,次に示すコーディング例を当てはめて使用してください。
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 '出力先ファイルの指定 EUR.OutFileName="output.pdf" 'PDF形式ファイルの暗号化指定 EUR.Crypto=true '暗号化設定ファイルの指定 EUR.CryptoFileName="crypto.txt" '帳票ファイルの指定 EUR.ReportFileName="sample1.fms" 'マッピングデータファイルの指定 EUR.DataFileName="mapping1.csv" |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=5 Then '***/// KEEU005-Eの場合のエラー処理 ///*** Elseif errid=6 Then '***/// KEEU006-Eの場合のエラー処理 ///*** |
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 '出力先ファイルの指定 EUR.OutFileName="output.pdf" 'PDF形式ファイルの暗号化指定 EUR.Crypto=true '暗号化設定ファイルの指定 EUR.CryptoFileName="crypto.txt" '接続情報ファイルの指定 EUR.DBInfoFileName="DBInfo1.txt" '帳票ファイルの指定 EUR.ReportFileName="sample1.fms" '可変記号値定義ファイルの指定 EUR.DataFileName="DBVar1.txt" |
| 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" |
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 '出力先ファイルの指定 EUR.OutFileName="output.pdf" 'PDF形式ファイルの暗号化指定 EUR.Crypto=true '暗号化設定ファイルの指定 EUR.CryptoFileName="crypto.txt" '帳票ファイルの指定 EUR.ReportFileName=A 'マッピングデータファイルの指定 EUR.DataFileName=B |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=5 Then '***/// KEEU005-Eの場合のエラー処理 ///*** Elseif errid=6 Then '***/// KEEU006-Eの場合のエラー処理 ///*** |
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 '出力先ファイルの指定 EUR.OutFileName="output.pdf" 'PDF形式ファイルの暗号化指定 EUR.Crypto=true '暗号化設定ファイルの指定 EUR.CryptoFileName="crypto.txt" '複数様式情報定義ファイルの指定 EUR.MultiFormInfoDefFileName="formdef.txt" '帳票セット指定ファイルの指定 EUR.MultiReportSetFileName="formset.txt" |
| If errid=300 Then '***/// KEEU300-Wの場合のエラー処理 ///*** Elseif errid=35 Then '***/// KEEU035-Eの場合のエラー処理 ///*** Elseif errid=37 Then '***/// KEEU037-Eの場合のエラー処理 ///*** |
| '出力タイプ(PDF形式ファイル出力)の指定 EUR.OutputType=1 '出力先ファイルの指定 EUR.OutFileName="output.pdf" 'PDF形式ファイルの暗号化指定 EUR.Crypto=true '暗号化設定ファイルの指定 EUR.CryptoFileName="crypto.txt" '複数様式情報定義ファイルの指定 EUR.MultiFormInfoDefFileName="formdef.txt" '接続情報ファイルの指定 EUR.DBInfoFileName="DBInfo1.txt" '帳票セット指定ファイルの指定 EUR.MultiReportSetFileName="formset.txt" |
| 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.