VB-Report 11.0 for .NET - ASP.NET Core MVC デモ

払込取扱票

払込取扱票の作成例です。製品付属のバーコードコンポーネントでバーコードイメージを作成して帳票に挿入しています。


サンプルコード

  • C#
  • VB.NET
  • public ReportData CreatePaymentSlip()
    {
        // 帳票作成開始処理（デザインファイル使用）
        cellReport1.FileName = Path.Combine(basePath, "BarCodeReportSample.xlsx");
        cellReport1.Report.Start(ReportMode.Speed);
        cellReport1.Report.File();
        cellReport1.ScaleMode = ScaleMode.Millimeter;
        // デザインファイル内の「払込取扱票」シートを帳票レイアウトとして指定し、帳票ページを作成
        cellReport1.Page.Start("払込取扱票", "1");
        string iraiShimei = "山田太朗";
        string iraiBangou = "0075078287";
        string kouza5keta = "99165";
        string kouza1keta = "2";
        string kouza7keta = "9513764";
        string kingaku = "22440";
        string zeigaku = "2040";
        string uketoriNin = "ＡＤＶシステム";
        string shiharaibi = "2020/01/21";
        int length = 0;
        string su = "";
        length = kouza5keta.Length;
        for (int intidx = 1; intidx <= length; intidx++)
        {
            su = kouza5keta.Substring(length - intidx, 1);
            cellReport1.Cell("**口座番号5-" + intidx.ToString()).Value = su;
        }
        cellReport1.Cell("**口座番号5").Value = kouza5keta;
        cellReport1.Cell("**口座番号1").Value = kouza1keta;
        length = kouza7keta.Length;
        for (int intidx = 1; intidx <= length; intidx++)
        {
            su = kouza7keta.Substring(length - intidx, 1);
            cellReport1.Cell("**口座番号7-" + intidx.ToString()).Value = su;
        }
        cellReport1.Cell("**口座番号7").Value = kouza7keta;
        length = kingaku.Length;
        for (int intidx = 1; intidx <= length; intidx++)
        {
            su = kingaku.Substring(length - intidx, 1);
            cellReport1.Cell("**金額" + intidx.ToString()).Value = su;
        }
        cellReport1.Cell("**金額").Value = Convert.ToInt32(kingaku);
        int intZeigaku = Convert.ToInt32(zeigaku);
        cellReport1.Cell("**税額").Value = "（内消費税額 " + String.Format("{0:N0}", intZeigaku) + "円）";
        cellReport1.Cell("**受取人").Value = uketoriNin;
        cellReport1.Cell("**依頼者氏名").Value = iraiShimei;
        cellReport1.Cell("**依頼者番号").Value = iraiBangou;
        cellReport1.Cell("**支払期限").Value = Convert.ToDateTime(shiharaibi).ToOADate();
        cellReport1.Cell("DB58:DL63").Drawing.AddImage(Path.Combine(basePath, "mark.png"));
        // バーコードメッセージ（チェックデジットは自動で付加されます）
        string barcodeMessage = "9191234512345678901234567892110203310123456";
        // 料金代理収納用バーコード生成
        barCode1.Type = BarCodeType.GS1Fixed;
        barCode1.Unit = Unit.Pixel;
        barCode1.DpiX = 600;
        barCode1.DpiY = 600;
        barCode1.Element = 4;
        barCode1.ShowMessage = true;
        barCode1.Value = barcodeMessage;
        // ミリ単位の画像サイズを取得
        BarCodeSizeD sz = barCode1.GetScaleSize(Unit.Millimeter);
        // バーコードイメージを設定
        cellReport1.Cell("**バーコード").Drawing.AddImage(barCode1.GetBarCodeImage(System.Drawing.Imaging.ImageFormat.Png), sz.Width, sz.Height);
        // ページ終了処理
        cellReport1.Page.End();
        // 帳票終了処理
        cellReport1.Report.End();
        // 作成した帳票を SVG 形式で取得
        string document = cellReport1.Report.GetSvgReport(SvgSaveType.IncludeExcelPdf);

        ReportData reportData = new ReportData();
        reportData.Document = document;
        return reportData;
    }
  • Public Function CreatePaymentSlip() As ReportData
        ' 帳票作成開始処理（デザインファイル使用）
        CellReport1.FileName = Path.Combine(basePath, "BarCodeReportSample.xlsx")
        CellReport1.Report.Start()
        CellReport1.Report.File()
        CellReport1.ScaleMode = ScaleMode.Millimeter
        ' デザインファイル内の「払込取扱票」シートを帳票レイアウトとして指定し、帳票ページを作成
        CellReport1.Page.Start("払込取扱票", "1")
        Dim iraiShimei As String = "山田太朗"
        Dim iraiBangou As String = "0075078287"
        Dim kouza5keta As String = "99165"
        Dim kouza1keta As String = "2"
        Dim kouza7keta As String = "9513764"
        Dim kingaku As String = "22440"
        Dim zeigaku As String = "2040"
        Dim uketoriNin As String = "ＡＤＶシステム"
        Dim shiharaibi As String = "2020/01/21"
        Dim length As Integer = 0
        Dim su As String = ""
        length = kouza5keta.Length
        For intidx As Integer = 1 To length
            su = kouza5keta.Substring(length - intidx, 1)
            CellReport1.Cell("**口座番号5-" + intidx.ToString()).Value = su
        Next
        CellReport1.Cell("**口座番号5").Value = kouza5keta
        CellReport1.Cell("**口座番号1").Value = kouza1keta
        length = kouza7keta.Length
        For intidx As Integer = 1 To length
            su = kouza7keta.Substring(length - intidx, 1)
            CellReport1.Cell("**口座番号7-" + intidx.ToString()).Value = su
        Next
        CellReport1.Cell("**口座番号7").Value = kouza7keta
        length = kingaku.Length
        For intidx As Integer = 1 To length
            su = kingaku.Substring(length - intidx, 1)
            CellReport1.Cell("**金額" + intidx.ToString()).Value = su
        Next
        CellReport1.Cell("**金額").Value = Convert.ToInt32(kingaku)
        Dim intZeigaku As Integer = Convert.ToInt32(zeigaku)
        CellReport1.Cell("**税額").Value = "（内消費税額 " + String.Format("{0:N0}", intZeigaku) + "円）"
        CellReport1.Cell("**受取人").Value = uketoriNin
        CellReport1.Cell("**依頼者氏名").Value = iraiShimei
        CellReport1.Cell("**依頼者番号").Value = iraiBangou
        CellReport1.Cell("**支払期限").Value = Convert.ToDateTime(shiharaibi).ToOADate()
        CellReport1.Cell("DB58:DL63").Drawing.AddImage(Path.Combine(basePath, "mark.png"))
        ' バーコードメッセージ（チェックデジットは自動で付加されます）
        Dim barcodeMessage As String = "9191234512345678901234567892110203310123456"
        ' 料金代理収納用バーコード生成
        BarCode1.Type = BarCodeType.GS1Fixed
        BarCode1.Unit = Unit.Pixel
        BarCode1.DpiX = 600
        BarCode1.DpiY = 600
        BarCode1.Element = 4
        BarCode1.ShowMessage = True
        BarCode1.Value = barcodeMessage
        ' ミリ単位の画像サイズを取得
        Dim sz As BarCodeSizeD = BarCode1.GetScaleSize(Unit.Millimeter)
        ' バーコードイメージを設定
        CellReport1.Cell("**バーコード").Drawing.AddImage(BarCode1.GetBarCodeImage(System.Drawing.Imaging.ImageFormat.Png), sz.Width, sz.Height)
        ' ページ終了処理
        CellReport1.Page.End()
        ' 帳票終了処理
        CellReport1.Report.End()
        ' 作成した帳票を SVG 形式で取得
        Dim document As String = CellReport1.Report.GetSvgReport(SvgSaveType.IncludeExcelPdf)

        Dim reportData As ReportData = New ReportData()
        reportData.Document = document
        Return reportData
    End Function