¿Cómo crear un código de barras lineal en C/AL (Dynamics NAV)?

¿Cómo crear un código de barras lineal en C/AL (Dynamics NAV)?

Importe los ensamblados en dotnet.al:

dotnet
{
  assembly(TECIT.TBarCode)
  {
    type(TECIT.TBarCode.Barcode; barcode) { }
    type(TECIT.TBarCode.BarcodeType; barcodeType) { }
    type(TECIT.TBarCode.CodePage; codePage) { }
    type(TECIT.TBarCode.CheckdigitMethod; checkDigitMethod) { }
  }
  assembly(System.Drawing)
  {
    type(System.Drawing.Rectangle; barcodeRectangle) { }
    type(System.Drawing.Bitmap; barcodeBitmap) { }
  }
}

Úselos de la siguiente manera:

  barcode := barcode.Barcode;
  //barcode.License(your license data);

  barcode.BarcodeType := barcodeType.Code128;
  barcode.Dpi := 300;
  barcode.Data := yourDataToEncode;
  // barcode.TranslateEscapeSequences := TRUE; // optional

  // calculate optimal width in Pixel with scaling factor (1 Module = 3 Pixels)
  optimalWidthPx := 3 * barcode.CalculateNumberOfModules();
  // set optimal width for the bitmap (works for linear codes)
  barcode.BoundingRectangle := barcodeRectangle.Rectangle(0, 0, optimalWidthPx, 300);

  FileNameBmp := Filemanagement.ServerTempFileName('bmp');
  barcode.Draw(FileNameBmp, 0);  // save as BMP format (0 = BMP)

Haga clic aquí para más información: Call .NET Framework Types From C/AL Code in Dynamics NAV

Función de ejemplo para Nav 2017

Esta función devuelve una imagen BMP en un registro TempBlob:

PROCEDURE CreateCode128 (Data2Encode : Text[100]; ScaleX: Integer, HeightPx : Integer; VAR TempBlob : TEMPORARY Record 99008535);
VAR
  barcode : DotNet "'TECIT.TBarCode, Version=11.10.0.0, Culture=neutral, PublicKeyToken=1b5f4306b234b83d'.TECIT.TBarCode.Barcode";
  bctype : DotNet "'TECIT.TBarCode, Version=11.10.0.0, Culture=neutral, PublicKeyToken=1b5f4306b234b83d'.TECIT.TBarCode.BarcodeType";
  rectangle : DotNet "'System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a'.System.Drawing.Rectangle";
  widthPx : Integer;
BEGIN
  FileNameBmp := FileManagement.ServerTempFileName('bmp');

  barcode := barcode.Barcode;
  //barcode.License(your license data);

  barcode.BarcodeType := bctype.Code128;
  barcode.Dpi := 300;
  barcode.Data := Data2Encode;
  // barcode.TranslateEscapeSequences := TRUE; // optional

  // calculate optimal width in Pixel with scaling factor (ScaleX =3 -> 1 Module = 3 Pixels)
  widthPx := ScaleX * barcode.CalculateNumberOfModules();
  // set optimal width for the bitmap (works for linear codes)
  barcode.BoundingRectangle := rectangle.Rectangle(0, 0, widthPx, HeightPx);
  barcode.Draw(FileNameBmp, 0);  // save as BMP format (0 = BMP)

  CLEAR(TempBlob);
  IF TempBlob.INSERT THEN;
  FileManagement.BLOBImportFromServerFile(TempBlob, FileNameBmp);
  TempBlob.MODIFY;
END;

Código 2D

Para un código de matriz 2D, cambie el cálculo de tamaño de la siguiente manera:

  widthPx := Scale * barcode.CalculateXColumnsOf2DBarcode ();
  heightPx := Scale * barcode.CalculateXRowsOf2DBarcode ();
  barcode.BoundingRectangle := rectangle.Rectangle(0, 0, widthPx, heightPx);

• Scale es un factor que determina cuántos píxeles debe tener un punto de la matriz en el código QR.
• Un ancho de módulo de 0,423 mm se consigue con 300 dpi y Scale=5. Un ancho de módulo de 0,381 mm se consigue con 600 dpi y Scale=9.
• Si es necesario, la matriz se puede fijar a una versión específica de código QR (pero entonces la capacidad también quedaría limitada).
• Si se requiere UTF-8 como codificación (en lugar de Latin-1), puede establecer la página de códigos del código de barras en UTF-8 (debe ser compatible con el lector):barcode.CodePage := codePage.Utf_8;