General Report Library [GRLGeneralReportLibraryNVX]

    
    add("Purchase Header")
    {
        column(CurrencyCode; CurrencyCode) { }
    }
    modify("Purchase Header")
    {
        trigger OnAfterAfterGetRecord()
        begin
            GeneralReportLibrary.SetCurrencyCode(CurrencyCode, "Purchase Header"."Currency Code");
        end;
    }
    
    

    
    modify(Header)
    {
        trigger OnAfterAfterGetRecord()
        begin
            GeneralReportLibrary.GetTrackingSpecification(Header, TempTrackingSpecBuffer, TrackingSpecCount1);
        end;
    }

    
    

    
    addbefore(AssemblyLine)
    {
        dataitem(HBRItemTrackingLine; "Integer")
        {
            DataItemTableView = SORTING(Number);

            column(TrackingSpecBufferLotNo; TempTrackingSpecBuffer."Lot No.") { }
            column(TrackingSpecBufferSerNo; TempTrackingSpecBuffer."Serial No.") { }
            column(TrackingSpecBufferQty; TempTrackingSpecBuffer."Quantity (Base)") { }
            column(TrackingSpecBufferUnitOfMeasure; TempTrackingSpecBuffer."Qty. per Unit of Measure") { }

            trigger OnPreDataItem()
            begin
                if TrackingSpecCount1 = 0 then
                    CurrReport.Break();

                TempTrackingSpecBuffer.SetCurrentKey("Source ID", "Source Type", "Source Subtype", "Source Batch Name", "Source Prod. Order Line", "Source Ref. No.");

                TempTrackingSpecBuffer.SetRange("Source Ref. No.", Line."Line No.");
                SetRange(Number, 1, TempTrackingSpecBuffer.Count());
            end;

            trigger OnAfterGetRecord()
            begin
                if Number = 1 then
                    TempTrackingSpecBuffer.FindSet()
                else
                    TempTrackingSpecBuffer.Next();
            end;
        }
    }
    
    

    
    codeunit 50000 "AppEventHooksNVX"
    {
        var
            GeneralReportLibrary: Codeunit GRLGeneralReportLibraryNVX;

        [EventSubscriber(ObjectType::Codeunit, Codeunit::"Item Tracking Doc. Management", 'OnRetrieveDocumentItemTracking', '', true, true)]
        local procedure "ItemTrackingDocManagement_OnRetrieveDocumentItemTracking"
        (
            var TempTrackingSpecBuffer: Record "Tracking Specification";
            SourceID: Code[20];
            var Found: Boolean;
            SourceType: Integer;
            SourceSubType: Option;
            RetrieveAsmItemTracking: Boolean
        )
        begin
            case SourceType of
                Database::"Return Shipment Header":
                    GeneralReportLibrary.RetrieveTrackingReturnShipment(TempTrackingSpecBuffer, SourceID, Found);
            end;
        end;
    }
    
    

    
    report 50000 "WarehouseRegisterNVX"
    {
        Caption = 'Warehouse Register', comment = 'DEU="Lagerplatzjournal"';
        DefaultLayout = RDLC;
        RDLCLayout = './src/layout/WarehouseRegisterNVX.rdlc';
        UsageCategory = Documents;

        dataset
        {
            dataitem(Header; "Warehouse Register")
            {
                DataItemTableView = sorting("No.");
                RequestFilterFields = "No.";
            ...

            }
        ...

        }

        trigger OnPostReport()
        var
            GeneralReportLibrary: Codeunit GRLGeneralReportLibraryNVX;
        begin
            if not CurrReport.Preview then
                GeneralReportLibrary.PrintReportToLocalOrNetworkPrinterWithCommit(Report::WarehouseRegisterNVX, Header.RecordId);
        end;
    }
    
    

    
        add(Header)
        {
            column(CommaSeparatedSellToAddress; GeneralReportLibrary.GetCommaSeparatedAddressArray(AddressArray, Header."Sell-to Customer No.")) { }
        }

        var
            GeneralReportLibrary: Codeunit GRLGeneralReportLibraryNVX;
    
    

        
        reportextension 50000 "StandardSalesInvoiceExtNVX" extends "Standard Sales - Invoice"
        {
            RDLCLayout = './src/layout/StandardSalesInvoiceNVX.rdlc';
            dataset
            {
                add(Line)
                {
                    column(ShipmentDateCptn; GeneralReportLibrary.GetCaption(Enum::SFBCaptionLibraryNVX::ShipmentDate_Copy1)) { }
                    column(ShipmentDate; GeneralReportLibrary.FormatDateToTextDay2Month2Year4("Shipment Date")) { }
                }
            }

            var
                GeneralReportLibrary: Codeunit GRLGeneralReportLibraryNVX;
        }
        
        
        

    
    report 321 "Vendor - Balance to Date"
    {
        DefaultLayout = RDLC;
        ...

        column(Amt; Format(Amt, 0, AutoFormat.ResolveAutoFormat("Auto Format"::AmountFormat, CurrencyCode))) { }
        column(CurrencyCode1; CurrencyCode) { }
        ...

        trigger OnAfterGetRecord()
        begin
            ...
            if PrintAmountInLCY then begin
                Amt := "Amount (LCY)";
                CurrencyCode := '';
            end else begin
                Amt := Amount;
                CurrencyCode := "Currency Code";
            end;
            if Amt = 0 then
                CurrReport.Skip();
        end;
        ...
    }