介绍 crUFLBcsNet.dll – 现代化条码与二维码解决方案

主要功能

在 Microsoft Dynamics NAV 中使用 crUFLBcsNet.dll

要在 Microsoft Dynamics NAV 中使用 crUFLBcsNet.dll：

• 注册 crUFLBcsNet.dll
  以管理员身份打开 DOS 命令提示符并运行：
  
  cd "C:\Program Files (x86)\Common Files\Barcodesoft\cruflbcsnet"
  C:\Windows\Microsoft.NET\Framework64\v4.0.30319\regasm cruflbcsnet.dll /tlb:cruflbcsnet.tlb /codebase
  
  
• 复制 DLL 文件
  将 crUFLBcsNet.dll 复制到 NAV 插件文件夹（推荐路径：C:\Program Files (x86)\Microsoft Dynamics NAV\...\RoleTailored Client\Add-ins\).
  
  
• 在 NAV 开发环境 (C/AL) 中，使用 automation 生成 QRCode：

                                  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);
                              

• 在 NAV 开发环境 (C/AL) 中，使用 automation 生成 Data Matrix：

                                  myDTM := myDTM.CDatamatrix;
  
                                  // 需要 bcsdatamatrix.ttf 字体
                                  codewords := myDTM.Encode('1234567890');
  
                                  // 或纯图像模式，不需要字体
                                  barcodeBytes := myDTM.Image('1234567890', 240, 240);
                                  BLOBField.CREATEINSTREAM(inStream);
                                  inStream.Write(barcodeBytes);
                              

• 在 NAV 开发环境 (C/AL) 中，使用 automation 生成 PDF417：

                                  myPDF417 := myPDF417.CDatamatrix;
  
                                  // 需要 bcspdf417.ttf 字体
                                  codewords := myPDF417.Encode('1234567890');
  
                                  // 或纯图像模式，不需要字体
                                  barcodeBytes := myPDF417.Image('1234567890', 240, 240);
                                  BLOBField.CREATEINSTREAM(inStream);
                                  inStream.Write(barcodeBytes);
                              

• 在 NAV 开发环境 (C/AL) 中，使用 automation 生成 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
  以管理员身份打开 DOS 命令提示符并运行：
  
  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 复制到 Crystal Reports 的 bin 文件夹，例如：
  C:\Program Files (x86)\SAP BusinessObjects\Crystal Reports 2025\bin
  
  
• 在 Crystal Reports 中，创建新的公式字段 (Formula Field)，并通过 UFL (User Function Library) 调用 crUFLBcsNet.dll 的方法：

  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
                              

• 4. 注意事项： - 使用 `EncodeCR` 时，Crystal Reports 公式字段限制为 250 个字符。 - 可通过多个公式字段 (index = 1, 2, 3...) 来拼接长编码值。 - 显示图像时：插入 OLE 对象/图片，并绑定到 `Image()` 或 `AwesomeQR()` 返回的 byte[]。

优势

• 使用图像模式时无需特殊字体。
• 当需要时，仍可完全兼容传统条码字体方式。
• 简化开发人员与报表设计人员的集成过程。
• 面向未来，支持艺术化条码生成功能。