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

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

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

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

帳票セットを複数指定する場合（データベースを使用）
 
<HTML>
<HEAD>
<TITLE>Sample Script for EUR Print Service</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.　ファイル名指定領域　開始　///**********
  '出力タイプ(CSV形式ファイル出力)の指定
  EUR.OutputType=3
  '出力先ファイルの指定
  EUR.OutFileName="output.csv"
  '接続情報ファイルの指定
  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
      '「CSV形式ファイル出力終了」をHTMLドキュメントに出力
      Response.Write("CSV形式ファイル出力終了")
    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.エラー番号指定領域」のそれぞれに，次に示すコーディング例を当てはめて使用してください。

＜この項の構成＞
(1)　帳票セットを指定する場合
(2)　帳票セットを指定する場合（データベースを使用）
(3)　帳票セットを複数指定する場合
(4)　帳票セット指定ファイルを指定する場合
(5)　帳票セット指定ファイルを指定する場合（データベースを使用）

(1)　帳票セットを指定する場合

  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(CSV形式ファイル出力)の指定
    EUR.OutputType=3
    '出力先ファイルの指定
    EUR.OutFileName="output.csv"
    '帳票ファイルの指定
    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の場合のエラー処理 ///***

(2)　帳票セットを指定する場合（データベースを使用）

  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(CSV形式ファイル出力)の指定
    EUR.OutputType=3
    '出力先ファイルの指定
    EUR.OutFileName="output.csv"
    '接続情報ファイルの指定
    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の場合のエラー処理 ///***

(3)　帳票セットを複数指定する場合

  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. ファイル名指定領域
    '出力タイプ(CSV形式ファイル出力)の指定
    EUR.OutputType=3
    '出力先ファイルの指定
    EUR.OutFileName="output.csv"
    '帳票ファイルの指定
    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の場合のエラー処理 ///***

(4)　帳票セット指定ファイルを指定する場合

  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(CSV形式ファイル出力)の指定
    EUR.OutputType=3
    '出力先ファイルの指定
    EUR.OutFileName="output.csv"
    '複数様式情報定義ファイルの指定
    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の場合のエラー処理 ///***

(5)　帳票セット指定ファイルを指定する場合（データベースを使用）

  1. 配列定義領域
    必要ありません。
  2. ファイル名指定領域
    '出力タイプ(CSV形式ファイル出力)の指定
    EUR.OutputType=3
    '出力先ファイルの指定
    EUR.OutFileName="output.csv"
    '複数様式情報定義ファイルの指定
    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の場合のエラー処理 ///***

[目次][前へ][次へ]

[他社商品名称に関する表示]

All Rights Reserved. Copyright (C) 2008, 2011, Hitachi, Ltd.