crUFLBcsNet.dll の紹介 – 最新のバーコードおよびQRソリューション

主な特徴

MS Dynamics NAV での crUFLBcsNet.dll の利用

Microsoft Dynamics NAV で crUFLBcsNet.dll を使用するには:

• crUFLBcsNet.dll を登録
  管理者権限でコマンドプロンプトを開き、コマンドを実行します。
  
  cd "C:\Program Files (x86)\Common Files\Barcodesoft\cruflbcsnet"
  C:\Windows\Microsoft.NET\Framework64\v4.0.30319\regasm cruflbcsnet.dll /tlb:cruflbcsnet.tlb /codebase
  
  
• crUFLBcsNet.dll を NAV の Add-ins フォルダにコピー （推奨: C:\Program Files (x86)\Microsoft Dynamics NAV\...\RoleTailored Client\Add-ins\）
• NAV 開発環境 (C/AL) で自動化を使用して生成:
  QR Code:

                                  myQR := myQR.CQRCode;
  
                                  //bcsqrcode.ttf フォントが必要
                                  codewords := myQR.Encode('1234567890');
  
                                  //画像モードではフォント不要（ファイル保存やBLOBへストリーム可能）
                                  barcodeBytes := myQR.Image('1234567890', 240, 240);
                                  BLOBField.CREATEINSTREAM(inStream);
                                  inStream.Write(barcodeBytes);
                                  
                                  //アーティスティックQR画像もフォント不要
                                  barcodeBytes := myQR.AwesomeQR('1234567890', 'Tangerine', 'XS');
                                  BLOBField.CREATEINSTREAM(inStream);
                                  inStream.Write(barcodeBytes);
                              

• Data Matrix:

                                  myDTM := myDTM.CDatamatrix;
  
                                  // bcsdatamatrix.ttf フォントが必要
                                  codewords := myDTM.Encode('1234567890');
  
                                  // 画像モードではフォント不要
                                  barcodeBytes := myDTM.Image('1234567890', 240, 240);
                                  BLOBField.CREATEINSTREAM(inStream);
                                  inStream.Write(barcodeBytes);
                              

• PDF417:

                                  myPDF417 := myPDF417.CDatamatrix;
  
                                  // bcspdf417.ttf フォントが必要
                                  codewords := myPDF417.Encode('1234567890');
  
                                  // 画像モードではフォント不要
                                  barcodeBytes := myPDF417.Image('1234567890', 240, 240);
                                  BLOBField.CREATEINSTREAM(inStream);
                                  inStream.Write(barcodeBytes);
                              

• GS1128:

                                  myLinear := myLinear.CLinear;
  
                                  // UpcEanM フォントが必要（括弧とAIプレフィックスを忘れないこと）
                                  codewords := myLinear.GS1128('(17)190508(90)50921');
                                  
                                  // 画像モードではフォント不要（ファイル保存やBLOBへストリーム可能）
                                  barcodeBytes := myLinear.GS1128Image('(17)190508(90)50921', 480, 240);
                                  BLOBField.CREATEINSTREAM(inStream);
                                  inStream.Write(barcodeBytes);
                              

Crystal Reports 2025 での crUFLBcsNet.dll の利用

Crystal Reports 2025 で crUFLBcsNet.dll を使用するには::

• crUFLBcsNet.dll を Crystal Reports の bin フォルダにコピー
  （例: C:\Program Files (x86)\SAP BusinessObjects\Crystal Reports 2025\bin）
  
• Crystal Reports 内: 新しい 数式フィールド を作成し、crUFLBcsNet.dll のメソッドを UFL (User Function Library) 経由で呼び出す

  Dim qrObj As Object
  Set qrObj = CreateObject("cruflbcsnet.CQRCode")
  
  Dim imgBytes As Variant
  imgBytes = qrObj.Image("987654321", 200, 200, 1, 0, False)
  
  ' Save to a file (Crystal can reference this image path)
  Dim fso, file
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set file = fso.CreateTextFile("C:\temp\qr.png", True)
  file.Write imgBytes
  file.Close
                              

• EncodeCR を使用する場合: Crystal Reports の数式フィールドは最大250文字まで
  長い値は複数の数式フィールド（index = 1, 2, 3 …）で再構築
  
• 画像を表示する場合: OLEオブジェクト/画像を挿入し、Image() または AwesomeQR() の byte[] 出力にバインド

利点

• 画像モードでは特別なフォント不要
• バーコードフォントを利用する場合も完全な下位互換性
• 開発者およびレポート設計者にとって統合が容易
• アーティスティックなバーコード生成機能により将来性も確保