Esercizio - Uso delle istruzioni di manipolazione dei dati

  • 12 minuti

In qualità di sviluppatore per CRONUS International Ltd. si è appreso come usare le istruzioni di manipolazione dei dati in AL e si desidera ora mettere in pratica questa nuova competenza nell'ambiente di sviluppo. Si desidera essere in grado di esportare i record dei movimenti C/G in una tabella specifica. Il cliente deve completare questa attività e il codice sorgente in modo da avere una panoramica degli importi totali per cliente e codice sorgente.

Attività

  • Creazione di una nuova estensione AL.

  • Creazione di una nuova tabella.

  • Creazione di una pagina collegata alla tabella.

  • Creazione di una codeunit per copiare i dati da tabelle diverse nella tabella appena creata.

Passaggi

  1. In Visual Studio Code, nel progetto creato in precedenza in questo percorso di apprendimento creare una nuova cartella denominata CustomerOverview

  2. Creare tutti i nuovi file .al menzionati nei passaggi successivi nella cartella CustomerOverview.

  3. Selezionare File > Nuovo file, quindi salvare il file selezionando File > Salva. Assegnare al file il nome CustomerOverview.Table.al.

  4. Creare una nuova tabella in questo file usando frammenti di codice. Immettere ttable, quindi premere TAB.

  5. Modificare l'ID in 50120 e il nome in "Customer Overview".

  6. Impostare la proprietà DataClassification su CustomerContent e la proprietà Caption su Customer Overview.

  7. Rimuovere il campo MyField.

  8. Creare i campi seguenti. È possibile usare il frammento di codice tfield.

    N. campo Nome campo Tipo di dati Lunghezza
    1 Entry No. Integer
    2 Customer No. Code 20
    3 Customer Name Text 100
    4 Source Code Code 20
    5 Amount Decimal
    6 LastRunDate DateTime

  9. Impostare la proprietà DataClassification per ogni campo della tabella su CustomerContent.

  10. Impostare la proprietà Caption per ogni campo della tabella.

  11. Impostare Chiave primaria su Entry No.

  12. Rimuovere la sezione delle variabili globali.

  13. Rimuovere i trigger di tabella.

  14. Il file ora è analogo a questo blocco di codice:

    table 50120 "Customer Overview"
{
    DataClassification = CustomerContent;
    Caption = 'Customer Overview';

    fields
    {
        field(1; "Entry No."; Integer)
        {
            DataClassification = CustomerContent;
            Caption = 'Entry No.';
        }
        field(2; "Customer No."; code[20])
        {
            DataClassification = CustomerContent;
            Caption = 'Customer No.';
        }
        field(3; "Customer Name"; Text[100])
        {
            DataClassification = CustomerContent;
            Caption = 'Customer Name';
        }
        field(4; "Source Code"; Code[20])
        {
            DataClassification = CustomerContent;
            Caption = 'Source Code';
        }
        field(5; "Amount"; Decimal)
        {
            DataClassification = CustomerContent;
            Caption = 'Amount';
        }
        field(6; "LastRunDate"; DateTime)
        {
            DataClassification = CustomerContent;
            Caption = 'LastRunDate';
        }
    }

    keys
    {
        key(Pk; "Entry No.")
        {
            Clustered = true;
        }
    }
}

  15. Creare un nuovo file denominato CustomerOverviewList.Page.al.

  16. Creare una nuova pagina in questo file usando frammenti di codice. Immettere tpage, quindi premere TAB.

  17. Modificare l'ID in 50120 e il nome in Customer Overview List.

  18. Impostare la proprietà SourceTable su Customer Overview e la proprietà Caption su Customer Overview List.

  19. Impostare la proprietà PageType su List e la proprietà UsageCategory su Lists. Verificare che la proprietà ApplicationArea sia impostata su All.

  20. Impostare la proprietà Editable su false.

  21. Verificare che sia stata creata un'area content nella sezione layout. In caso contrario, creare un'area denominata content.

  22. Cambiare il nome del ripetitore in General.

  23. Aggiungere tutti i campi della tabella Customer Overview creata in precedenza al ripetitore.

  24. Verificare che la proprietà ApplicationArea sia impostata su All per tutti i campi nella pagina.

  25. Aggiungere suggerimenti significativi a tutti i campi della pagina.

  26. Rimuovere l'area factboxes.

  27. Rimuovere l'area actions.

  28. Il file ora è analogo a questo blocco di codice:

    page 50120 "Customer Overview List"
{
    PageType = List;
    ApplicationArea = All;
    UsageCategory = Lists;
    SourceTable = "Customer Overview";
    Caption = 'Customer Overview List';
    Editable = false;

    layout
    {
        area(Content)
        {
            repeater(General)
            {

                field("Entry No."; Rec."Entry No.")
                {
                    ToolTip = 'Specifies the value of the Entry No. field.';
                    ApplicationArea = All;
                }
                field("Customer No."; Rec."Customer No.")
                {
                    ToolTip = 'Specifies the value of the Customer No. field.';
                    ApplicationArea = All;
                }
                field("Customer Name"; Rec."Customer Name")
                {
                    ToolTip = 'Specifies the value of the Customer Name field.';
                    ApplicationArea = All;
                }
                field("Source Code"; Rec."Source Code")
                {
                    ToolTip = 'Specifies the value of the Source Code field.';
                    ApplicationArea = All;
                }
                field(Amount; Rec.Amount)
                {
                    ToolTip = 'Specifies the value of the Amount field.';
                    ApplicationArea = All;
                }
                field(LastRunDate; Rec.LastRunDate)
                {
                    ToolTip = 'Specifies the value of the LastRunDate field.';
                    ApplicationArea = All;
                }
            }
        }
    }
}

  29. Creare un nuovo file denominato CustomerOverviewMgmt.CodeUnit.al.

  30. Creare una nuova codeunit in questo file usando frammenti di codice. Immettere tcodeunit, quindi premere TAB.

  31. Modificare l'ID in 50120 e il nome in Customer Overview Mgmt.

  32. Aggiungere le seguenti variabili globali:

    Nome Tipo di dati Sottotipo
    CustomerOverview Record CustomerOverview
    Customer Record Customer
    SourceCode Record Source Code
    GLEntry Record G/L Entry
    NextEntryNo Integer

  33. Nel trigger OnRun aggiungere il codice seguente.

    Clear(SourceCode);
Clear(CustomerOverview);
Clear(GLEntry);

if CustomerOverview.FindLast() then
    NextEntryNo := CustomerOverview."Entry No." + 1
else
    NextEntryNo := 1;

if SourceCode.FindSet() then
    repeat
        if Customer.FindSet() then
            repeat
                GLEntry.SetRange("Source Type", GLEntry."Source Type"::Customer);
                GLEntry.SetRange("Source Code", SourceCode.Code);
                GLEntry.SetRange("Source No.", Customer."No.");
                if GLEntry.FindSet() then begin
                    GLEntry.CalcSums(GLEntry.Amount);
                    CustomerOverview."Entry No." := NextEntryNo;
                    CustomerOverview."Customer No." := Customer."No.";
                    CustomerOverview."Customer Name" := Customer.Name;
                    CustomerOverview."Source Code" := SourceCode.Code;
                    CustomerOverview.Amount := GLEntry.Amount;
                    CustomerOverview.LastRunDate := CurrentDateTime();
                    CustomerOverview.Insert();
                    NextEntryNo += 1;
                end;
            until Customer.Next() = 0;
    until SourceCode.Next() = 0

  34. Aprire il file CustomerOverviewList.Page.al.

  35. Aggiungere un'area actions alla pagina.

  36. Nell'area actions aggiungere una sezione Processing.

  37. Nella sezione Processing aggiungere un'azione.

  38. Modificare il nome dell'azione in Import Records e impostare quindi le proprietà seguenti per l'azione:

    • Caption: Import Records

    • Image: Import

    • ApplicationArea: All

  39. Nel trigger OnAction creare una variabile locale.

    Nome Tipo di dati Sottotipo
    UpdateCustomerOverview Codeunit Customer Overview Mgmt

  40. Chiamare la codeunit RunTrigger dal trigger OnAction.

  41. Il codice ora è analogo a questo blocco di codice:

    page 50120 "Customer Overview List"
{
    PageType = List;
    ApplicationArea = All;
    UsageCategory = Lists;
    SourceTable = "Customer Overview";
    Caption = 'Customer Overview List';
    Editable = false;

    layout
    {
        area(Content)
        {
            repeater(General)
            {

                field("Entry No."; Rec."Entry No.")
                {
                    ToolTip = 'Specifies the value of the Entry No. field.';
                    ApplicationArea = All;
                }
                field("Customer No."; Rec."Customer No.")
                {
                    ToolTip = 'Specifies the value of the Customer No. field.';
                    ApplicationArea = All;
                }
                field("Customer Name"; Rec."Customer Name")
                {
                    ToolTip = 'Specifies the value of the Customer Name field.';
                    ApplicationArea = All;
                }
                field("Source Code"; Rec."Source Code")
                {
                    ToolTip = 'Specifies the value of the Source Code field.';
                    ApplicationArea = All;
                }
                field(Amount; Rec.Amount)
                {
                    ToolTip = 'Specifies the value of the Amount field.';
                    ApplicationArea = All;
                }
                field(LastRunDate; Rec.LastRunDate)
                {
                    ToolTip = 'Specifies the value of the LastRunDate field.';
                    ApplicationArea = All;
                }
            }
        }
    }
    actions
    {
        area(Processing)
        {
            action("Import Records ")
            {
                Caption = 'Import Records';
                ToolTip = 'Import Records';
                ApplicationArea = All;
                Image = Import;

                trigger OnAction()
                var
                    CustomerOverviewMgmt: Codeunit "Customer Overview Mgmt";
                begin
                    CustomerOverviewMgmt.Run();
                end;
            }
        }
    }
}

  42. Aprire il file launch.json nella cartella .vscode. Impostare startupObjectId su 50120 e startupObjectType su Page.

  43. Pubblicare l'estensione nella sandbox. Selezionare Visualizza > Riquadro comandi... (CTRL+MAIUSC+P).

  44. Immettere AL: Publish nella casella di ricerca (o premere F5) e selezionare il comando dall'elenco.

  45. Verificare che l'applicazione Microsoft Dynamics 365 Business Central sia avviata e che la pagina Customer Overview List sia visualizzata.

  46. Testare l'estensione selezionando l'azione Importa record.