Exercício – Usar demonstrativos condicionais e compostos

Concluído

Você é um desenvolvedor que trabalha na CRONUS International Ltd. A empresa decidiu começar a vender os cursos de treinamento do Microsoft Dynamics 365 Business Central como parte dos negócios.

Você deseja criar uma página que indique um nível de treinamento e uma sugestão com base na dificuldade de um curso.

Tarefas

  • Crie uma nova página.

  • Defina três variáveis globais: um valor de entrada e dois valores de saída

  • Crie campos e use as variáveis como origem.

  • Crie um procedimento local que calcule qual é o melhor curso de acordo com o nível Dificuldade.

  • Obtenha as informações sobre o curso ao inserir um valor no campo Dificuldade.

Etapas

  1. Selecione Arquivo > Novo Arquivo e salve imediatamente esse arquivo escolhendo Arquivo > Salvar. Insira StatementsCard.Page.al como o nome do arquivo.

  2. Crie uma nova página no arquivo usando trechos de código. Insira tpage e pressione a tecla Tab.

  3. Altere a ID para 50112 e o name para Cartão de Demonstrativos.

  4. Defina a propriedade PageType como Cartão e defina a propriedade UsageCategory como Documentos.

  5. Remova a propriedade SourceTable e defina a propriedade Caption como Cartão de Demonstrativos.

  6. Crie as seguintes variáveis globais e remova a variável myInt padrão.

    • Level Text[30]

    • Suggestion Text[80]

    • Difficulty Integer

  7. Verifique se uma área conteúdo foi criada na seção de layout. Em caso negativo, crie uma área conteúdo.

  8. Remova a seção de ações, se presente.

  9. Altere o nome do primeiro grupo para Entrada. Defina a propriedade Caption do grupo como Entrada.

  10. Crie um segundo grupo com o nome Saída e defina a propriedade Caption do grupo como Saída.

  11. Adicione um campo para Dificuldade ao grupo Entrada. Adicione o campo Sugestão e o campo Nível ao grupo Saída. Você pode usar o trecho tpagefield.

  12. Verifique se a propriedade ApplicationArea está definida como All para todos os campos da página.

  13. Defina uma legenda e uma dica de ferramenta para cada um dos campos. Defina a propriedade Editable do campo Nível e do campo Sugestão como false.

  14. Crie um procedimento local chamado GetSuggestion nas variáveis globais. Você pode usar o trecho tprocedure.

  15. Adicione o código a seguir entre o bloco begin e end:

    Exemplo de Código

    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. Crie um gatilho chamado OnValidate no campo Dificuldade. Você pode usar o trecho trigger.

  17. Chame o procedimento GetSuggestion no gatilho OnValidate.

  18. O código deve ser semelhante a:

    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. Abra o arquivo launch.json na pasta .vscode. Defina a configuração startupObjectId como 50112 e a configuração startupObjectType como Página.

  20. Publique sua extensão na área restrita. Selecione Exibir > Paleta de Comandos... ou use as teclas de atalho Ctrl+Shift+P.

  21. Insira AL: Publish na caixa de pesquisa (ou pressione a tecla F5) e selecione o comando na lista.

  22. Verifique se o aplicativo Microsoft Dynamics 365 Business Central é iniciado e se a página Cartão de Demonstrativos é exibida. Insira o valor 9 no campo Dificuldade e pressione Enter.

  23. Verifique se as caixas de texto Nível e Sugestão foram alteradas.