[Protected Var Request] Report 5065 "Segment - Labels"

[KlaasKleermaker]

Why do you need this change?

In 4PS Construct we need to be able to print the alternative address of the Contact but also the visit address of the Contact. (Visit Address is a field that 4PS has added to the Contact table.)

Describe the request

Dear ALAppExtensions team,

On behalf of 4PS I would like to request the global variables Cont, ContAddr and ColumnNo to be made protected in report 5065 "Segment - Labels".

    trigger OnPreReport()
    begin
        GroupNo := 1;
        RecPerPageNum := 8;
    end;

    var
        //Cont: Record Contact; //old
        SegLine: Record "Segment Line";
        FormatAddr: Codeunit "Format Address";
        LabelFormat: Option "36 x 70 mm (3 columns)","37 x 70 mm (3 columns)","36 x 105 mm (2 columns)","37 x 105 mm (2 columns)";
        //ContAddr: array[3, 8] of Text[100]; //old
        NoOfRecords: Integer;
        RecordNo: Integer;
        NoOfColumns: Integer;
        //ColumnNo: Integer; //old
        i: Integer;
        GroupNo: Integer;
        Counter: Integer;
        RecPerPageNum: Integer;

    protected var //new
        Cont: Record Contact; //new
        ContAddr: array[3, 8] of Text[100]; //new
        ColumnNo: Integer; //new

Internal work item: AB#623817

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Make three variables protected in Report 5065 "Segment - Labels" to enable extension access to Contact and address data.

Current code:

var
    Cont: Record Contact;
    SegLine: Record "Segment Line";
    FormatAddr: Codeunit "Format Address";
    LabelFormat: Option "36 x 70 mm (3 columns)","37 x 70 mm (3 columns)","36 x 105 mm (2 columns)","37 x 105 mm (2 columns)";
    ContAddr: array[3, 8] of Text[100];
    NoOfRecords: Integer;
    RecordNo: Integer;
    NoOfColumns: Integer;
    ColumnNo: Integer;
    i: Integer;
    GroupNo: Integer;
    Counter: Integer;
    RecPerPageNum: Integer;

Proposed change:

var
    SegLine: Record "Segment Line";
    FormatAddr: Codeunit "Format Address";
    LabelFormat: Option "36 x 70 mm (3 columns)","37 x 70 mm (3 columns)","36 x 105 mm (2 columns)","37 x 105 mm (2 columns)";
    NoOfRecords: Integer;
    RecordNo: Integer;
    NoOfColumns: Integer;
    i: Integer;
    GroupNo: Integer;
    Counter: Integer;
    RecPerPageNum: Integer;

protected var
    Cont: Record Contact;
    ContAddr: array[3, 8] of Text[100];
    ColumnNo: Integer;

---

File: SegmentLabels.Report.al

[JesperSchulz]

Thanks for reporting this. We agree, and we’ll publish a fix asap, either in an update for the current version or in the next major release. Please do not reply to this, as we do not monitor closed issues. If you have follow-up questions or requests, please create a new issue where you reference this one.

Build ID: 48587.