帳票システム構築支援 uCosminexus EUR uCosminexus EUR サーバ帳票出力

[目次][索引][前へ][次へ]

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

Webサーバ上のASP環境でスクリプトを指定して,帳票をPDF形式ファイルに出力するコーディング例を次に示します。

<この項の構成>
(1) PDF形式ファイルに出力する場合
(2) PDF形式ファイルを仕分け出力する場合
(3) PDF形式ファイルを暗号化出力する場合

(1) 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.エラー番号指定領域」のそれぞれに,次に示すコーディング例を当てはめて使用してください。

(a) 帳票セットを指定するとき
  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(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形式ファイルに出力する場合 終了 ///***
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=5 Then
    '***/// KEEU005-Eの場合のエラー処理 ///***
    Elseif errid=6 Then
    '***/// KEEU006-Eの場合のエラー処理 ///***
 
(b) 帳票セットを指定するとき(データベースを使用)
  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(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形式ファイルに出力する場合 終了 ///***
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=5 Then
    '***/// KEEU005-Eの場合のエラー処理 ///***
    Elseif errid=53 Then
    '***/// KEEU053-Eの場合のエラー処理 ///***
 
(c) 帳票セットを複数指定するとき
  1. 配列定義領域
    '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形式ファイルに出力する場合 終了 ///***
  2. ファイル名指定領域
    '出力タイプ(PDF形式ファイル出力)の指定
    EUR.OutputType=1
    '出力先ファイルの指定
    EUR.OutFileName="output.pdf"
    '帳票ファイルの指定
    EUR.ReportFileName=A
    'マッピングデータファイルの指定
    EUR.DataFileName=B
    '***/// しおり付きPDF形式ファイルに出力する場合 開始 ///***
    '文書しおり定義ファイルの指定
    EUR.DocBookmarkFileName="docbm2.txt"
    'しおり定義ファイルの指定
    EUR.BookmarkFileName=C
    '***/// しおり付きPDF形式ファイルに出力する場合 終了 ///***
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=5 Then
    '***/// KEEU005-Eの場合のエラー処理 ///***
    Elseif errid=6 Then
    '***/// KEEU006-Eの場合のエラー処理 ///***
 
(d) 帳票セット指定ファイルを指定するとき
  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(PDF形式ファイル出力)の指定
    EUR.OutputType=1
    '出力先ファイルの指定
    EUR.OutFileName="output.pdf"
    '複数様式情報定義ファイルの指定
    EUR.MultiFormInfoDefFileName="formdef.txt"
    '帳票セット指定ファイルの指定
    EUR.MultiReportSetFileName="formset.txt"
    '***/// しおり付きPDF形式ファイルに出力する場合 開始 ///***
    '文書しおり定義ファイルの指定
    EUR.DocBookmarkFileName="docbm2.txt"
    '***/// しおり付きPDF形式ファイルに出力する場合 終了 ///***
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=35 Then
    '***/// KEEU035-Eの場合のエラー処理 ///***
    Elseif errid=37 Then
    '***/// KEEU037-Eの場合のエラー処理 ///***
 
(e) 帳票セット指定ファイルを指定するとき(データベースを使用)
  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(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形式ファイルに出力する場合 終了 ///***
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=35 Then
    '***/// KEEU035-Eの場合のエラー処理 ///***
    Elseif errid=37 Then
    '***/// KEEU037-Eの場合のエラー処理 ///***
    Elseif errid=53 Then
    '***/// KEEU053-Eの場合のエラー処理 ///***
 

(2) PDF形式ファイルを仕分け出力する場合

帳票セットを複数指定するとき(データベースを使用)
 
<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.エラー番号指定領域」のそれぞれに,次に示すコーディング例を当てはめて使用してください。

(a) 帳票セットを指定するとき
  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(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形式ファイルを暗号化仕分け出力する場合 終了 ///***
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=5 Then
    '***/// KEEU005-Eの場合のエラー処理 ///***
    Elseif errid=6 Then
    '***/// KEEU006-Eの場合のエラー処理 ///***
 
(b) 帳票セットを指定するとき(データベースを使用)
  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(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形式ファイルを暗号化仕分け出力する場合 終了 ///***
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=5 Then
    '***/// KEEU005-Eの場合のエラー処理 ///***
    Elseif errid=53 Then
    '***/// KEEU053-Eの場合のエラー処理 ///***
 
(c) 帳票セットを複数指定するとき
  1. 配列定義領域
    Dim A(1),B(1)
    '帳票ファイル名を配列Aに設定
    A(0)="sample1.fms"
    A(1)="sample2.fms"
    'マッピングデータファイル名を配列Bに設定
    B(0)="mapping1.csv"
    B(1)="mapping2.csv"
  2. ファイル名指定領域
    '出力タイプ(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形式ファイルを暗号化仕分け出力する場合 終了 ///***
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=5 Then
    '***/// KEEU005-Eの場合のエラー処理 ///***
    Elseif errid=6 Then
    '***/// KEEU006-Eの場合のエラー処理 ///***
 
(d) 帳票セット指定ファイルを指定するとき
  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(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形式ファイルを暗号化仕分け出力する場合 終了 ///***
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=35 Then
    '***/// KEEU035-Eの場合のエラー処理 ///***
    Elseif errid=37 Then
    '***/// KEEU037-Eの場合のエラー処理 ///***
 
(e) 帳票セット指定ファイルを指定するとき(データベースを使用)
  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(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形式ファイルを暗号化仕分け出力する場合 終了 ///***
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=35 Then
    '***/// KEEU035-Eの場合のエラー処理 ///***
    Elseif errid=37 Then
    '***/// KEEU037-Eの場合のエラー処理 ///***
    Elseif errid=53 Then
    '***/// KEEU053-Eの場合のエラー処理 ///***
 

(3) PDF形式ファイルを暗号化出力する場合

帳票セットを複数指定するとき(データベースを使用)
 
<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.エラー番号指定領域」のそれぞれに,次に示すコーディング例を当てはめて使用してください。

(a) 帳票セットを指定するとき
  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(PDF形式ファイル出力)の指定
    EUR.OutputType=1
    '出力先ファイルの指定
    EUR.OutFileName="output.pdf"
    'PDF形式ファイルの暗号化指定
    EUR.Crypto=true
    '暗号化設定ファイルの指定
    EUR.CryptoFileName="crypto.txt"
    '帳票ファイルの指定
    EUR.ReportFileName="sample1.fms"
    'マッピングデータファイルの指定
    EUR.DataFileName="mapping1.csv"
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=5 Then
    '***/// KEEU005-Eの場合のエラー処理 ///***
    Elseif errid=6 Then
    '***/// KEEU006-Eの場合のエラー処理 ///***
 
(b) 帳票セットを指定するとき(データベースを使用)
  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(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"
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=5 Then
    '***/// KEEU005-Eの場合のエラー処理 ///***
    Elseif errid=53 Then
    '***/// KEEU053-Eの場合のエラー処理 ///***
 
(c) 帳票セットを複数指定するとき
  1. 配列定義領域
    Dim A(1),B(1)
    '帳票ファイル名を配列Aに設定
    A(0)="sample1.fms"
    A(1)="sample2.fms"
    'マッピングデータファイル名を配列Bに設定
    B(0)="mapping1.csv"
    B(1)="mapping2.csv"
  2. ファイル名指定領域
    '出力タイプ(PDF形式ファイル出力)の指定
    EUR.OutputType=1
    '出力先ファイルの指定
    EUR.OutFileName="output.pdf"
    'PDF形式ファイルの暗号化指定
    EUR.Crypto=true
    '暗号化設定ファイルの指定
    EUR.CryptoFileName="crypto.txt"
    '帳票ファイルの指定
    EUR.ReportFileName=A
    'マッピングデータファイルの指定
    EUR.DataFileName=B
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=5 Then
    '***/// KEEU005-Eの場合のエラー処理 ///***
    Elseif errid=6 Then
    '***/// KEEU006-Eの場合のエラー処理 ///***
 
(d) 帳票セット指定ファイルを指定するとき
  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(PDF形式ファイル出力)の指定
    EUR.OutputType=1
    '出力先ファイルの指定
    EUR.OutFileName="output.pdf"
    'PDF形式ファイルの暗号化指定
    EUR.Crypto=true
    '暗号化設定ファイルの指定
    EUR.CryptoFileName="crypto.txt"
    '複数様式情報定義ファイルの指定
    EUR.MultiFormInfoDefFileName="formdef.txt"
    '帳票セット指定ファイルの指定
    EUR.MultiReportSetFileName="formset.txt"
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=35 Then
    '***/// KEEU035-Eの場合のエラー処理 ///***
    Elseif errid=37 Then
    '***/// KEEU037-Eの場合のエラー処理 ///***
 
(e) 帳票セット指定ファイルを指定するとき(データベースを使用)
  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(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"
  3. エラー番号指定領域
    If errid=300 Then
    '***/// KEEU300-Wの場合のエラー処理 ///***
    Elseif errid=35 Then
    '***/// KEEU035-Eの場合のエラー処理 ///***
    Elseif errid=37 Then
    '***/// KEEU037-Eの場合のエラー処理 ///***
    Elseif errid=53 Then
    '***/// KEEU053-Eの場合のエラー処理 ///***