BC: Test- und Echtsystem farblich trennen

Um Test- und Echtsystem farblich deutlicher zu trennen als mit den eher dezenten Bordmitteln Company Badge im Webclient (erst ab BC 15 verfügbar ) bzw. System Indicator im Windows Client, hier als Extension für Page 22, damit beim Testsystem die erste Spalte in roter Schrift erscheint. Analog kann man die primären Mastertabellen Kreditoren-,Artikel-Kontenübersicht usw. versorgen, sofern man die gewünschte Farbe der StyleExpr (hier rot) nicht anderweitig benötigt.
In Tabelle Company Information das Feld "System Usage" dazu vorher einbauen.

Code:

pageextension 50056 CustomerPageExt extends "Customer List"
{
    layout
    {
        modify("No.")
        {
            ApplicationArea = All;
            StyleExpr = StyleExprTestProd;

        }
    }
    trigger OnOpenPage()
    begin
        CompanyInformation.get();
    end;

    trigger OnAfterGetRecord()

    begin
        if CompanyInformation."System Usage" = CompanyInformation."System Usage"::Test then
            StyleExprTestProd := 'Unfavorable'
        else
            StyleExprTestProd := 'Standard';
    end;

    var
        CompanyInformation: Record "Company information";
        StyleExprTestProd: Text;

}