Exercício – Usar demonstrativos condicionais e compostos
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
Selecione Arquivo > Novo Arquivo e salve imediatamente esse arquivo escolhendo Arquivo > Salvar. Insira StatementsCard.Page.al como o nome do arquivo.
Crie uma nova página no arquivo usando trechos de código. Insira tpage e pressione a tecla Tab.
Altere a ID para 50112 e o name para Cartão de Demonstrativos.
Defina a propriedade PageType como Cartão e defina a propriedade UsageCategory como Documentos.
Remova a propriedade SourceTable e defina a propriedade Caption como Cartão de Demonstrativos.
Crie as seguintes variáveis globais e remova a variável myInt padrão.
Level Text[30]
Suggestion Text[80]
Difficulty Integer
Verifique se uma área conteúdo foi criada na seção de layout. Em caso negativo, crie uma área conteúdo.
Remova a seção de ações, se presente.
Altere o nome do primeiro grupo para Entrada. Defina a propriedade Caption do grupo como Entrada.
Crie um segundo grupo com o nome Saída e defina a propriedade Caption do grupo como Saída.
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.
Verifique se a propriedade ApplicationArea está definida como All para todos os campos da página.
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.
Crie um procedimento local chamado GetSuggestion nas variáveis globais. Você pode usar o trecho tprocedure.
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;Crie um gatilho chamado OnValidate no campo Dificuldade. Você pode usar o trecho trigger.
Chame o procedimento GetSuggestion no gatilho OnValidate.
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; }Abra o arquivo launch.json na pasta .vscode. Defina a configuração startupObjectId como 50112 e a configuração startupObjectType como Página.
Publique sua extensão na área restrita. Selecione Exibir > Paleta de Comandos... ou use as teclas de atalho Ctrl+Shift+P.
Insira AL: Publish na caixa de pesquisa (ou pressione a tecla F5) e selecione o comando na lista.
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.
Verifique se as caixas de texto Nível e Sugestão foram alteradas.