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.Emf), 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;
    }