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

受領書

受領書の作成例です。固定行の帳票の作成に向いている Page.Start 機能を使用して実装しています。


サンプルコード

  • C#
  • VB.NET
  • public ReportData CreateReceipt()
    {
        // 帳票作成処理（デザインファイル使用）
        cellReport1.FileName = Path.Combine(basePath, "PageStartSample.xlsx");
        cellReport1.Report.Start(ReportMode.Speed);
        cellReport1.Report.File();
        // デザインファイル内の「受領書」シートを帳票レイアウトとして指定し、帳票ページを作成
        cellReport1.Page.Start("受領書", "1");
        cellReport1.Cell("**Date").Value = DateTime.Now;
        cellReport1.Cell("**Name").Value = "株式会社○○○○商事";
        cellReport1.Cell("**No").Value = "100";
        cellReport1.Cell("**ZipCode").Value = "912-XXXX";
        cellReport1.Cell("**Address").Value = "福井県○○市○○X-X";
        int totalSeikyu = 0;
        for (int i = 0; i < shouhin.Length; i++)
        {
            cellReport1.Cell("**Shouhin", 0, i).Value = shouhin[i].Shouhinmei;
            cellReport1.Cell("**Suu", 0, i).Value = shouhin[i].Suuryou;
            cellReport1.Cell("**Tani", 0, i).Value = shouhin[i].Tanni;
            cellReport1.Cell("**Tanka", 0, i).Value = shouhin[i].Tannka;
            int totalPrice = shouhin[i].Suuryou * shouhin[i].Tannka;
            cellReport1.Cell("**Kingaku", 0, i).Value = totalPrice;
            totalSeikyu += totalPrice;
        }
        cellReport1.Cell("**Kei").Value = totalSeikyu;
        cellReport1.Cell("**Zei").Value = totalSeikyu * 0.10F;
        cellReport1.Cell("**Goukei").Value = totalSeikyu * 1.10F;
        // ページ終了処理
        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 CreateReceipt() As ReportData
        ' 帳票作成処理（デザインファイル使用）
        CellReport1.FileName = Path.Combine(basePath, "PageStartSample.xlsx")
        CellReport1.Report.Start()
        CellReport1.Report.File()
        ' デザインファイル内の「受領書」シートを帳票レイアウトとして指定し、帳票ページを作成
        CellReport1.Page.Start("受領書", "1")
        CellReport1.Cell("**Date").Value = DateTime.Now
        CellReport1.Cell("**Name").Value = "株式会社○○○○商事"
        CellReport1.Cell("**No").Value = "100"
        CellReport1.Cell("**ZipCode").Value = "912-XXXX"
        CellReport1.Cell("**Address").Value = "福井県○○市○○X-X"
        Dim totalSeikyu As Integer = 0
        For i As Integer = 0 To shouhin.Length - 1
            CellReport1.Cell("**Shouhin", 0, i).Value = shouhin(i).Shouhinmei
            CellReport1.Cell("**Suu", 0, i).Value = shouhin(i).Suuryou
            CellReport1.Cell("**Tani", 0, i).Value = shouhin(i).Tanni
            CellReport1.Cell("**Tanka", 0, i).Value = shouhin(i).Tannka
            Dim totalPrice As Integer = shouhin(i).Suuryou * shouhin(i).Tannka
            CellReport1.Cell("**Kingaku", 0, i).Value = totalPrice
            totalSeikyu += totalPrice
        Next
        CellReport1.Cell("**Kei").Value = totalSeikyu
        CellReport1.Cell("**Zei").Value = totalSeikyu * 0.10F
        CellReport1.Cell("**Goukei").Value = totalSeikyu * 1.10F
        ' ページ終了処理
        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