Exercice : créer l’objet d’extension de page Fiche client

Effectué

Scénario

L’objet d’extension de page suivant étend l’objet de page Fiche client. Dans cet exercice, vous allez ajouter les contrôles de champ RewardLevel et RewardPoints après le contrôle de champ Name de la page. Les champs sont ajoutés dans la section disposition.

Créer l’objet d’extension de page Fiche client

Pour créer l’objet d’extension de page Fiche client, procédez comme suit :

1. Créez un fichier .al.

   1. Pour créer une page dans l’extension, créez d’abord un fichier. Cliquez sur le bouton Nouveau fichier dans la barre latérale de Visual Studio Code.

   2. Assurez-vous que le nom de fichier se termine par .al. Dans cet exemple, vous pouvez utiliser le nom CustomerCard.PageExt.al.

2. Ajoutez le code à la page. Vous pouvez copier le code suivant et le coller dans le fichier CustomerCard.PageExt.al.

    pageextension 50100 "Customer Card" extends "Customer Card" 
    { 
        layout 
        { 
            addafter(Name) 
            { 
                field(RewardLevel; RewardLevel) 
                { 
                    ApplicationArea = All; 
                    Caption = 'Reward Level'; 
                    Description = 'Reward level of the customer.'; 
                    ToolTip = 'Specifies the level of reward that the customer has at this point.';
                    Editable = false; 
                } 
   
                field(RewardPoints; Rec.RewardPoints) 
                { 
                    ApplicationArea = All; 
                    Caption = 'Reward Points'; 
                    Description = 'Reward points accrued by customer'; 
                    ToolTip = 'Specifies the total number of points that the customer has at this point.';
                    Editable = false;
                }
            }
        }
   
        trigger OnAfterGetRecord(); 
        var 
            CustomerRewardsMgtExt: Codeunit "Customer Rewards Ext Mgt"; 
        begin 
            // Get the reward level associated with reward points 
            RewardLevel := CustomerRewardsMgtExt.GetRewardLevel(Rec.RewardPoints); 
        end; 
   
        var 
            RewardLevel: Text; 
    } 
   

Remarque

Le codeunit Gestion de l’extension Récompenses client n’existe pas encore, donc le compilateur affiche une erreur. Pour éviter cela, vous pouvez commenter cette partie du code.