Übung – Bedingungs‑ und zusammengesetzte Anweisungen verwenden

Abgeschlossen

Sie arbeiten als Entwickler für CRONUS International Ltd. Das Unternehmen hat beschlossen, den Verkauf von Microsoft Dynamics 365 Business Central-Schulungskursen als Geschäft zu starten.

Sie möchten eine Seite erstellen, die ein Trainingsniveau und einen Vorschlag basierend auf dem Schwierigkeitsgrad eines Kurses enthält.

Aufgaben

• Erstellen Sie eine neue Seite.

• Definieren Sie drei globale Variablen: einen Eingabewert und zwei Ausgabewerte.

• Erstellen Sie Felder, und verwenden Sie die Variablen als Quelle.

• Erstellen Sie ein lokales Verfahren, das berechnet, welcher Kurs entsprechend dem Schwierigkeitsgrad der beste ist.

• Rufen Sie die Kursinformationen ab, wenn Sie einen Wert in das Feld Schwierigkeitsgrad eingeben.

Schritte

1. Wählen Sie Datei > Neue Datei aus, und speichern Sie dann diese Datei anschließend direkt durch Auswahl von Datei > Speichern. Geben Sie StatementsCard.Page.al als Dateinamen ein.

2. Erstellen Sie in dieser Datei eine neue Seite, indem Sie Codeausschnitte verwenden. Geben Sie tpage ein, und drücken Sie dann die TAB-TASTE.

3. Ändern Sie die ID in 50112 und name in Statements Card.

4. Legen Sie die Eigenschaft PageType auf Card und die Eigenschaft UsageCategory auf Documents fest.

5. Entfernen Sie die Eigenschaft SourceTable, und legen Sie die Eigenschaft Caption auf Statements Card fest.

6. Erstellen Sie die folgenden globalen Variablen, und entfernen Sie die Standardvariable myInt.

   • Level Text[30]

   • Suggestion Text[80]

   • Difficulty Integer

7. Stellen Sie sicher, dass im Layoutabschnitt ein Bereich Inhalt erstellt wurde. Falls nicht, erstellen Sie einen Bereich mit dem Namen Inhalt.

8. Entfernen Sie den Abschnitt Aktionen, falls vorhanden.

9. Ändern Sie den Namen der ersten Gruppe in Eingabe. Legen Sie die Eigenschaft Caption der Gruppe auf Eingabe fest.

10. Erstellen Sie eine zweite Gruppe mit dem Namen Ausgabe, und legen Sie die Eigenschaft Caption der Gruppe auf Output fest.

11. Fügen Sie der Gruppe Eingabe ein Feld für Schwierigkeitsgrad hinzu. Fügen Sie das Feld Vorschlag und das Feld Ebene der Gruppe Ausgabe hinzu. Sie können den Codeabschnitt tpagefield verwenden.

12. Stellen Sie sicher, dass die Eigenschaft ApplicationArea für alle Felder auf der Seite auf Alle gesetzt ist.

13. Legen Sie eine Beschriftung und eine QuickInfo für das Feld fest. Legen Sie die Eigenschaft Editable für die Felder Ebene und Vorschlag auf false fest.

14. Erstellen Sie unter den globalen Variablen ein lokales Verfahren mit dem Namen GetSuggestion. Sie können den Ausschnitt tprocedure verwenden.

15. Fügen Sie den folgenden Code zwischen dem Block begin und end hinzu:

    Codebeispiel

    Level := '';
    Suggestion := '';
    
    case Difficulty of
       1..5:
           begin
    Level := 'Beginner';
    Suggestion := 'Take e-Learning or remote training';
           end;
       6..8:
          begin
    Level := 'Intermediate';
    Suggestion := 'Attend instructor-Led';
          end;
       9..10:
          begin
    Level := 'Advanced';
    Suggestion := 'Attend instructor-Led and self study';
          end;
    end;
    

16. Erstellen Sie im Feld Schwierigkeitsgrad den Trigger OnValidate. Sie können den Ausschnitt trigger verwenden.

17. Rufen Sie das Verfahren GetSuggestion über den Trigger OnValidate auf.

18. Der Code sollte ungefähr so aussehen:

    page 50112 "Statements Card"
    {
    	PageType = Card;
    	ApplicationArea = All;
    	UsageCategory = Documents;
    	Caption = 'Statements Card';
    
    	layout
    	{
    		area(Content)
    		{
    			group(Input)
    			{
    				Caption = 'Input';
    				field(Difficulty; Difficulty)
    				{
    					ApplicationArea = All;
    					Caption = 'Difficulty';
    					ToolTip = 'Select the Difficulty.';
    					trigger OnValidate()
    					begin
    						GetSuggestion();
    					end;
    				}
    			}
    			group(Output)
    			{
    				Caption = 'Output';
    				field(Suggestion; Suggestion)
    				{
    					ApplicationArea = All;
    					Caption = 'Suggestion';
    					ToolTip = 'Suggestion.';
    					Editable = false;
    				}
    				field(Level; Level)
    				{
    					ApplicationArea = All;
    					Caption = 'Level';
    					ToolTip = 'Level.';
    					Editable = false;
    				}
    			}
    		}
    	}
    
    	var
    		Level: Text[30];
    		Suggestion: Text[80];
    		Difficulty: Integer;
    
    	local procedure GetSuggestion()
    	begin
    		Level := '';
    		Suggestion := '';
    
    		case Difficulty of
    			1 .. 5:
    				begin
    					Level := 'Beginner';
    					Suggestion := 'Take e-Learning or remote training';
    				end;
    			6 .. 8:
    				begin
    					Level := 'Intermediate';
    					Suggestion := 'Attend instructor-Led';
    				end;
    			9 .. 10:
    				begin
    					Level := 'Advanced';
    					Suggestion := 'Attend instructor-Led and self study';
    				end;
    		end;
    	end;
    }
    

19. Öffnen Sie die Datei launch.json im Ordner .vscode. Stellen Sie die Einstellung startupObjectId auf 50112 und die Einstellung startupObjectType auf Seite ein.

20. Veröffentlichen Sie Ihre Erweiterung in der Sandbox. Wählen Sie Anzeigen > Befehlspalette... aus, oder verwenden Sie die Tastenkombination STRG+UMSCHALT+P.

21. Geben Sie AL: Publish in das Suchfeld ein (oder drücken Sie die F5-Taste), und wählen Sie den Befehl aus der Liste aus.

22. Überprüfen Sie, ob die Microsoft Dynamics 365 Business Central-Anwendung gestartet und die Seite Anweisungsliste angezeigt wird. Geben Sie den Wert 9 in das Feld Schwierigkeitsgrad ein, und drücken Sie dann die EINGABETASTE.

23. Überprüfen Sie, ob die Textfelder Ebene und Vorschlag geändert wurden.