report 50208 "Product Label Report"
{
UsageCategory = ReportsAndAnalysis;
ApplicationArea = All;
DefaultLayout = RDLC;
RDLCLayout = 'Layouts/ProductLabel.rdl';
dataset
{
dataitem(PurchaseHeader; "Purchase Header")
{
dataitem(PurchaseLine; "Purchase Line")
{
DataItemLink = "Document No." = field("No.");
column(ItemNo; "No.") { }
column(Description; Description) { }
column(BarCode; EncodedText) { }
column(PurchaseOrderNo; "Document No.") { }
dataitem(itemLed; "Item Ledger Entry")
{
DataItemLink = "Item No." = field("No.");
column(Lot_No_; "Lot No.") { }
trigger OnPreDataItem()
begin
itemLed.SetRange("Item No.", PurchaseLine."No.");
end;
}
trigger OnAfterGetRecord()
var
BarcodeString: Text;
BarcodeSymbology: Enum "Barcode Symbology";
BarcodeFontProvider: Interface "Barcode Font Provider";
begin
BarcodeFontProvider := Enum::"Barcode Font Provider"::IDAutomation1D;
BarcodeSymbology := Enum::"Barcode Symbology"::"Code39";
BarcodeString := "No.";
BarcodeFontProvider.ValidateInput(BarcodeString, BarcodeSymbology);
EncodedText := BarcodeFontProvider.EncodeFont(BarcodeString, BarcodeSymbology);
end;
}
}
}
requestpage
{
layout
{
area(Content)
{
field(Lot_No; Lotno)
{
ApplicationArea = Basic, Suite;
Caption = 'Lot No';
trigger OnDrillDown()
var
ItemLedgerEntriesPage: Page "Item Ledger Entries";
ItemLedger: Record "Item Ledger Entry";
GlobalPurchaseLineMgmt: Codeunit "Global PurchaseLine Management";
begin
PurchLine := GlobalPurchaseLineMgmt.GetPurchaseLineRec();
ItemLedger.SetRange("Item No.", PurchLine."No.");
if ItemLedger.FindSet() then;
ItemLedgerEntriesPage.SetTableView(ItemLedger);
ItemLedgerEntriesPage.RunModal();
end;
}
}
}
}
var
EncodedText: Text;
Lotno: Text;
PurchLine: Record "Purchase Line";
autopack: Option Ok;
}
