Hallo zusammen,
ich habe ein Problem beim encodieren von EAN-13 Barcodes. Folgende Funktion habe ich dafĂĽr geschrieben:
local procedure EncodeEAN13(ValueToEncode: Text) EncodedText: Text
var
BarcodeSymbology: Enum "Barcode Symbology";
BarcodeFontProvider: Interface "Barcode Font Provider";
test: Interface "Barcode Font Encoder";
begin
if ValueToEncode <> '' then begin
BarcodeFontProvider := Enum::"Barcode Font Provider"::IDAutomation1D;
BarcodeSymbology := Enum::"Barcode Symbology"::"EAN-13";
BarcodeFontProvider.ValidateInput(ValueToEncode, BarcodeSymbology);
Exit(BarcodeFontProvider.EncodeFont(ValueToEncode, BarcodeSymbology));
end else
exit('');
end;
In einem Beispiel habe ich den Wert 4003214018089 encodieren wollen. Als Rückgabewert habe ich Y(0A32BE*KLSKST( bekommen und der Barcode passt so nicht (enthält Rechtecke).
Der richtige Wert wäre 4AKDCLE*abiaij+ . Damit funktioniert das ganze. Getestet habe ich das mit einer Excel-Datei aus einem youtube-Video https://youtu.be/5fIJftPqE7k
Vielen Dank schonmal fĂĽr eure Hilfe und sonnige GrĂĽĂźe
Jens