付録1 プログラム例

VB.NET言語のプログラム例

ファイル名:vb_sample.vb

Imports System
Imports jp.co.fit.vfreport

Module vb_sample

    Sub Main()
        Dim code As Integer
        Dim svf As Object

        'SvfrClientのインスタンス生成
        svf = New SvfrClient("localhost")

        Try
            'ライブラリの初期化
            code = svf.VrInit()
            'プリンターの指定
            code = svf.VrSetPrinter("PDF", "PDF")
            'ファイルを作成するディレクトリとファイル名の指定
            code = svf.VrSetSpoolFileName2("C:\Inetpub\wwwroot\ConsoleVbSample\sample.pdf")
            '様式ファイルの指定
            code = svf.VrSetForm("C:\Inetpub\wwwroot\ConsoleVbSample\sample.xml", 4)
            'データ出力
            code = svf.VrsOut("仕入先名", "ZZコンピューター株式会社")
            code = svf.VrsOut("仕入先住所", "東京都品川区港南X-XX-X")
            code = svf.VrsOut("仕入先電話番号", "03-0000-1111")

            code = svf.VrsOut("商品名", "Super Visual Formade設計部")
            code = svf.VrsOut("単価", "700000.00")
            code = svf.VrsOut("数量", "2.00")
            code = svf.VrsOut("発注明細番号", "1000522")
            code = svf.VrsOut("仕入先製品番号", "SVF-S")
            code = svf.VrEndRecord()

            code = svf.VrsOut("商品名", "SVF for Web")
            code = svf.VrsOut("単価", "800000.00")
            code = svf.VrsOut("数量", "1.00")
            code = svf.VrsOut("発注明細番号", "1000523")
            code = svf.VrsOut("仕入先製品番号", "SVF-WJn")
            code = svf.VrEndRecord()

            code = svf.VrsOut("商品名", "SVF for .NET Framework")
            code = svf.VrsOut("単価", "200000.00")
            code = svf.VrsOut("数量", "1.00")
            code = svf.VrsOut("発注明細番号", "1000524")
            code = svf.VrsOut("仕入先製品番号", "SVF-DNWn")
            code = svf.VrEndRecord()
            code = svf.VrPrint()
            code = svf.VrQuit()
        Catch e As Exception
            ' io error
            Console.WriteLine(e.ToString())
        Finally
            'インスタンスのClose処理
            svf.Close()
            Console.WriteLine("処理が終了しました。")
        End Try
    End Sub

End Module

C#.NET言語のプログラム例

ファイル名:cs_sample.cs

using System;
using System.Collections.Generic;
using System.Text;
using jp.co.fit.vfreport;

namespace ConsoleCsSample
{
    class cs_sample
    {
        static void Main(string[] args)
        {
            int code;
            //new SvfrClient(): connect to SVF Server
            SvfrClient svf = new SvfrClient("localhost");

            try
            {
                //ライブラリの初期化
                code = svf.VrInit();
                //プリンターの指定
                code = svf.VrSetPrinter("PDF", "PDF");
                //ファイルを作成するディレクトリとファイル名の指定
                code = svf.VrSetSpoolFileName2("C:\\Inetpub\\wwwroot\\ConsoleCsSample\\sample.pdf");
                //様式ファイルの指定
                code = svf.VrSetForm("C:\\Inetpub\\wwwroot\\ConsoleCsSample\\sample.xml", 4);
                //データ出力
                code = svf.VrsOut("仕入先名", "ZZコンピューター株式会社");
                code = svf.VrsOut("仕入先住所", "東京都品川区港南X-XX-X");
                code = svf.VrsOut("仕入先電話番号", "03-0000-1111");

                code = svf.VrsOut("商品名", "Super Visual Formade設計部");
                code = svf.VrsOut("単価", "700000.00");
                code = svf.VrsOut("数量", "2.00");
                code = svf.VrsOut("発注明細番号", "1000522");
                code = svf.VrsOut("仕入先製品番号", "SVF-S");
                code = svf.VrEndRecord();

                code = svf.VrsOut("商品名", "SVF for Web");
                code = svf.VrsOut("単価", "800000.00");
                code = svf.VrsOut("数量", "1.00");
                code = svf.VrsOut("発注明細番号", "1000523");
                code = svf.VrsOut("仕入先製品番号", "SVF-WJn");
                code = svf.VrEndRecord();

                code = svf.VrsOut("商品名", "SVF for .NET Framework");
                code = svf.VrsOut("単価", "200000.00");
                code = svf.VrsOut("数量", "1.00");
                code = svf.VrsOut("発注明細番号", "1000524");
                code = svf.VrsOut("仕入先製品番号", "SVF-DNWn");
                code = svf.VrEndRecord();
                code = svf.VrPrint();
                code = svf.VrQuit();
            }
            catch (Exception e)
            {
                Console.WriteLine(e.ToString());
            }
            finally
            {
                //インスタンスのClose処理
                svf.Close();
                Console.WriteLine("処理が終了しました。");
            }
        }
    }
}