Um 365 business Barcode in die eigenen, individuellen, Geschäftsprozesse zu implementieren ist es notwendig die 365 business Barcode App als Abhängigkeit zur eigenen Erweiterung hinzuzufügen.
Hierdurch erhalten Sie Zugriff auf die bereitgestellten Schnittstellen und Objekte. Ein detaillierte Dokumentation finden Sie in unserer AL Developer Documentation (en-US).
Nachfolgend wird an einem Code-Beispiel erklärt, wie Sie 365 business Barcode nutzen können.
Schritt 1: Abhängigkeit hinzufügen
- Öffnen Sie die
app.json
Datei in Ihrem AL-Projekt. - Fügen Sie folgenden Code in den
dependency
-Token ein:{ "id": "9aca19d9-d261-4fa0-88fd-121ad0daa0f7", "name": "365 business Barcode", "version": "18.2.0.0", "publisher": "365 business development" }
- Führen Sie den Befehl AL: Download symbols aus.
Schritt 2: Implementierung
Im nachfolgenden werden zwei Szenarien dargestellt:
Schritt 2.1: QR Code in Report Objekt
- Fügen Sie ein neues Data Item mit Referenz zu
bdev.Barcode
hinzu. - Setzen Sie das Property
UseTemporary
auftrue
. - Setzen Sie das Property
DataItemTableView
aufsorting("Primary Key")
. - Fügen Sie eine neue Column für das Feld
Barcode
hinzu. - Fügen Sie einen
OnPreDataItem()
Trigger mit folgendem Code hinzu:Reset(); DeleteAll(false); "Barcode Symbology" := Enum::"bdev.Barcode Symbology"::"QR Code"; Height := 70; "Barcode Value" := <BARCODE VALUE>; if (Encode()) then Insert();
- Kompilieren Sie Ihre Erweiterung über den Befehl AL: Package.
- Öffnen Sie Ihr Layout und fügen Sie ein Bild mit der Referenz auf Ihre neue
Barcode
Column hinzu.
Kompletter Quellcode
dataitem(BarcodeBuffer; "bdev.Barcode")
{
UseTemporary = true;
DataItemTableView = sorting("Primary Key");
column(Barcode; Barcode)
{ }
trigger OnPreDataItem()
begin
Reset();
DeleteAll(false);
"Barcode Symbology" := Enum::"bdev.Barcode Symbology"::"QR Code";
Height := 80;
"Barcode Value" := <BARCODE VALUE>;
if (Encode()) then
Insert();
end;
}
Schritt 2.2: Barcode in Artikelbarcode hinzufügen
- Erstellen Sie eine Page Extension für die Page
Item Identifiers
. - Fügen Sie eine Action hinzu.
action("PTE CreateBarcode") { ApplicationArea = All; Caption = 'Create Barcode'; ToolTip = 'Encode the item identifier to create a barcode in selected barcode defintion.'; Image = BarCode; Promoted = true; PromotedIsBig = true; PromotedCategory = Process; trigger OnAction() begin EncodeBarcodeItemIdentifier(Rec); CurrPage.Update(false); end; }
- Fügen Sie eine neue Funktion mit dem Namen
EncodeBarcodeItemIdentifier
hinzu.procedure EncodeBarcodeItemIdentifier(var itemIdentifier: Record "Item Identifier") var barcodeSettings: Record "bdev.Barcode Settings"; tempBlob: Codeunit "Temp Blob"; encodeBarcode: Codeunit "bdev.Barcode"; stream: InStream; begin itemIdentifier.TestField("bdev.Barcode Settings Code"); barcodeSettings.Get(itemIdentifier."bdev.Barcode Settings Code"); tempBlob := encodeBarcode.Encode(barcodeSettings, itemIdentifier."Code"); if (tempBlob.HasValue()) then begin tempBlob.CreateInStream(stream); itemIdentifier."bdev.Barcode".ImportStream(stream, 'Barcode', 'image/png'); itemIdentifier.Modify(true); end else Error(UnableToEncodeBarcodeErr); end;