AS-Report 12.0 for .NET - ASP.NET Core MVC デモ

見積書

見積書の作成例です。デザインファイルに予め設定された計算式を再計算して金額を出力しています。


サンプルコード

  • C#
  • VB.NET
  • public ReportData CreateQuotation()
    {
        // 帳票作成処理（デザインファイル使用）
        cellReport1.FileName = Path.Combine(basePath, "Quotation.xlsx");
        // 帳票出力時にセルの計算式を再計算
        cellReport1.ApplyFormula = true;
        cellReport1.Report.Start(ReportMode.Speed);
        cellReport1.Report.File();
        // デザインファイル内の「見積書」シートを帳票レイアウトとして指定し、帳票ページを作成
        cellReport1.Page.Start("見積書", "1");
        cellReport1.Cell("A21").Value = "AS-Report 12";
        cellReport1.Cell("E21").Value = 5;
        cellReport1.Cell("F21").Value = 90000;
        cellReport1.Cell("A22").Value = "ExcelCreator 12";
        cellReport1.Cell("E22").Value = 2;
        cellReport1.Cell("F22").Value = 70000;
        cellReport1.Cell("A23").Value = "Yubin7 Ver2.6";
        cellReport1.Cell("E23").Value = 1;
        cellReport1.Cell("F23").Value = 34000;
        cellReport1.Cell("A24").Value = "ExcelCreator for Java";
        cellReport1.Cell("E24").Value = 3;
        cellReport1.Cell("F24").Value = 50000;
        cellReport1.Cell("A25").Value = "Yubin7 for Java";
        cellReport1.Cell("E25").Value = 3;
        cellReport1.Cell("F25").Value = 34000;
        // ページ終了処理
        cellReport1.Page.End();
        // 帳票終了処理
        cellReport1.Report.End();
        // 作成した帳票を SVG 形式で取得
        string document = cellReport1.Report.GetSvgzReport(SvgSaveType.IncludeExcelPdf);

        ReportData reportData = new ReportData();
        reportData.Document = document;
        return reportData;
    }
  • Public Function CreateQuotation() As ReportData
        ' 帳票作成処理（デザインファイル使用）
        CellReport1.FileName = Path.Combine(basePath, "Quotation.xlsx")
        ' 帳票出力時にセルの計算式を再計算
        CellReport1.ApplyFormula = True
        CellReport1.Report.Start()
        CellReport1.Report.File()
        ' デザインファイル内の「見積書」シートを帳票レイアウトとして指定し、帳票ページを作成
        CellReport1.Page.Start("見積書", "1")
        CellReport1.Cell("A21").Value = "AS-Report 12"
        CellReport1.Cell("E21").Value = 5
        CellReport1.Cell("F21").Value = 90000
        CellReport1.Cell("A22").Value = "ExcelCreator 12"
        CellReport1.Cell("E22").Value = 2
        CellReport1.Cell("F22").Value = 70000
        CellReport1.Cell("A23").Value = "Yubin7 Ver2.6"
        CellReport1.Cell("E23").Value = 1
        CellReport1.Cell("F23").Value = 34000
        CellReport1.Cell("A24").Value = "ExcelCreator for Java"
        CellReport1.Cell("E24").Value = 3
        CellReport1.Cell("F24").Value = 50000
        CellReport1.Cell("A25").Value = "Yubin7 for Java"
        CellReport1.Cell("E25").Value = 3
        CellReport1.Cell("F25").Value = 34000
        ' ページ終了処理
        CellReport1.Page.End()
        ' 帳票終了処理
        CellReport1.Report.End()
        ' 作成した帳票を SVG 形式で取得
        Dim document As String = CellReport1.Report.GetSvgzReport(SvgSaveType.IncludeExcelPdf)

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