介紹 crUFLBcsNet.dll – .Net 條碼與 QR 解決方案

主要功能

在 Microsoft Dynamics NAV 中使用 crUFLBcsNet.dll

To use crUFLBcsNet.dll in Microsoft Dynamics NAV:

• 註冊 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 複製到 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);
                              

• 產生 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

將 crUFLBcsNet.dll 複製到 Crystal Reports 的 bin 資料夾，例如：

• 將 crUFLBcsNet.dll 複製到 Crystal Reports 的 bin 資料夾，例如：
  C:\Program Files (x86)\SAP BusinessObjects\Crystal Reports 2025\bin
• 在 Crystal Reports 建立公式欄位，透過 UFL 呼叫 crUFLBcsNet.dll 的方法：

  Dim qrObj As Object
  Set qrObj = CreateObject("cruflbcsnet.CQRCode")
  
  Dim imgBytes As Variant
  imgBytes = qrObj.Image("987654321", 200, 200, 1, 0, False)
  
  ' // 儲存為檔案（Crystal 可引用影像路徑）
  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[]。
  
  

優勢

• 使用影像模式時無需特殊字型。
• 仍完全相容於舊有字型條碼模式。li>
• 開發者與報表設計師整合更簡單。
• 支援未來藝術化條碼生成。