codeunit

• 1/19/2022
• 2 minutes to read

CFLBarcodeManagement

CFLCheckValidBarCode

procedure CFLCheckValidBarCode(var BarcodeText: Text; var AI: record "CFL Barcode Buffer"; var Barcode: code[20]): Boolean

Gebruik deze functie om de input van een scanning te controleren. De returnvalue van de functie is een boolean en geeft aan of de barcode al dan niet succesvol is herkend en verwerkt.
De parameter BarcodeText gebruik je hierbij om de ingescande barcode door te geven.
De parameter AI zal na succesvol uitvoeren van de functie alle Application identifiers en hun waarde aanwezig in de barcode bevatten. Die kan dan gebruikt worden voor verdere verwerking van de gegevens.
De parameter Barcode zal na succesvol uitvoeren de code van de herkende barcode bevatten.

CFLGetValueFromAIList

 procedure CFLGetValueFromAIList(AICode: code[20]; BarCodeType: code[20]; var AI: record "CFL Barcode Buffer"; var Value: variant)

Gebruik deze functie om uit de lijst van AI's de waarde van een speficieke AI op te vragen. De waarde wordt geretourneerd in de variabele Value.

CFLAddCheckDigit

 procedure CFLAddCheckDigit(var Data: Code[20])

Gebruik deze functie om een controlecijfer toe te voegen aan een barcode. De waarde en het controlecijfer worden geretourneerd in de variabele Data.

CFLEncodeBufferToBarcode

procedure CFLEncodeBufferToBarcode(var CFLBarcodeBuffer: record "CFL Barcode Buffer"; BarcodeType: code[20]) BarcodeText: text

Gebruik deze functie om een samengestelde barcode te creëren vanuit de application identifiers en hun value.
De variable CFLBarcodeBuffer dient de verschillende application identifiers en hun waardes te bevatten.
De parameter BarcodeType geeft aan welke barcode-definitie (uit de tabel CFL Barcodes) er gebruikt moet worden om de barcode op te bouwen.

Voorbeeld

procedure CFLEncodeBufferToBarcode
trigger OnAction()
var
    CFLBarcodeBuffer: record "CFL Barcode Buffer";
    CFLBarcodeMgt: codeunit "CFL Barcode Management";
    EAN13: code[20];
begin
    EAN13 := '0543765478604';
    CFLBarcodeMgt.CFLAddCheckDigit(EAN13);
    CFLBarcodeBuffer.init;
    CFLBarcodeBuffer."CFL Application Identifier" := '01';
    CFLBarcodeBuffer."CFL Value" := EAN13;
    CFLBarcodeBuffer.Insert();
    CFLBarcodeBuffer.init;
    CFLBarcodeBuffer."CFL Application Identifier" := '10';
    CFLBarcodeBuffer."CFL Value" := 'ABC-123';
    CFLBarcodeBuffer.Insert();
    CFLBarcodeBuffer.init;
    CFLBarcodeBuffer."CFL Application Identifier" := '17';
    CFLBarcodeBuffer."CFL Value" := '220121';
    CFLBarcodeBuffer.Insert();
    CFLBarcodeBuffer.init;
    CFLBarcodeBuffer."CFL Application Identifier" := '3100';
    CFLBarcodeBuffer."CFL Value" := '010000';
    CFLBarcodeBuffer.Insert();
    CFLBarcodeBuffer.init;
    CFLBarcodeBuffer."CFL Application Identifier" := '90';
    CFLBarcodeBuffer."CFL Value" := 'ARTIKELNR';
    CFLBarcodeBuffer.Insert();
    MESSAGE(CFLBarcodeMgt.CFLEncodeBufferToBarcode(CFLBarcodeBuffer, 'EAN128'));
end;

Zie ook Voorbeeld van extenden van een PDF-Tools rapport.

Enums

CFLBarcodeDataType

extensible = true
values:

• CFL Decimal
• CFL Text
• CFL Date

CFLBarcodeDateFormat

extensible = true
values:

• CFL YYMMDD
• CFL DDMMYY

Events

CFLOnAfterConvertValueToDate

local procedure CFLOnAfterConvertValueToDate(AICode: code[20]; BarCodeType: code[20]; var AI: record "CFL Barcode Buffer"; var Value: variant)
begin
end;

Gebruik dit event indien je een afwijkende waarde voor de enum CFL Barcode Date Format gebruikt, en de conversie van de tekst-waarde naar datum-waarde wil berekenen.

CFLOnAfterGetValueFromAIList

local procedure CFLOnAfterGetValueFromAIList(AICode: code[20]; BarCodeType: code[20]; var AI: record "CFL Barcode Buffer"; var Value: variant)
begin
end;

Gebruik dit event indien je een afwijkende waarde voor de enum CFL Barcode Data Type hebt gedefinieerd en de tekst waarde uit de barcode wil omzetten naar een waarde van deze data-soort.