Ejercicio: Usar instrucciones condicionales y compuestas

  • 12 minutos

Trabaja como desarrollador para la empresa CRONUS International Ltd., que ha decidido empezar en el negocio de venta de cursos de formación de Microsoft Dynamics 365 Business Central.

Quiere crear una página que ofrezca un nivel y una propuesta de formación en función de la dificultad de un curso.

Tareas

  • Crear una nueva página.

  • Definir tres variables globales: un valor de entrada y dos de salida

  • Crear campos y usar las variables como origen.

  • Crear un procedimiento local que calcule qué curso es el mejor según el nivel de Dificultad.

  • Obtener la información del curso al introducir un valor en el campo Dificultad.

Pasos

  1. Seleccione Archivo > Nuevo archivo y guarde inmediatamente este archivo seleccionando Archivo > Guardar. Escriba StatementsCard.Page.al como nombre del archivo.

  2. Cree una nueva página en este archivo mediante el uso de fragmentos de código. Introduzca tpage y, a continuación, presione la tecla Tab.

  3. Cambie el Id. a 50112 y el nombre a Statements Card.

  4. Establezca la propiedad PageType en Tarjeta y la propiedad UsageCategory en Documentos.

  5. Elimine la propiedad SourceTable y establezca la propiedad Caption en Statements Card.

  6. Cree las siguientes variables globales y quite la variable predeterminada myInt.

    • Texto de nivel[30]

    • Texto de sugerencia[80]

    • Entero de dificultad

  7. Compruebe que se haya creado un área de contenido en la sección de diseño. De no ser así, cree un área denominada contenido.

  8. Elimine la sección de acciones, si está presente.

  9. Cambie el nombre del primer grupo a Entrada. Establezca la propiedad Caption del grupo en Entrada.

  10. Cree un segundo grupo con el nombre Salida y establezca la propiedad Caption del grupo en Salida.

  11. Agregue un campo para Dificultad al grupo Entrada. Agregue el campo Sugerencia y el campo Nivel al grupo Salida. Puede usar el fragmento tpagefield.

  12. Compruebe que la propiedad ApplicationArea esté establecida en Todas para todos los campos de la página.

  13. Establezca un título e información sobre herramientas para cada uno de los campos. Establezca la propiedad Editable del campo Nivel y la Sugerencia en false.

  14. Cree un procedimiento local llamado GetSuggestion bajo las variables globales. Puede usar el fragmento tprocedure.

  15. Agregue el siguiente código entre los bloques de inicio y fin:

    Ejemplo 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. Cree un desencadenador llamado OnValidate dentro del campo Dificultad. Puede usar el fragmento trigger.

  17. Llame al procedimiento GetSuggestion desde el desencadenador OnValidate.

  18. El código debería ser similares a lo siguiente:

    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. Abre el archivo launch.json en la carpeta .vscode. Establezca la configuración startupObjectId en 50112 y la configuración startupObjectType en Página.

  20. Publique su extensión en el espacio aislado. Seleccione Ver > Paleta de comandos... o use las teclas de método abreviado Ctrl+Mayús+P.

  21. Introduzca AL: Publish en el cuadro de búsqueda (o presione la tecla F5) y seleccione el comando de la lista.

  22. Compruebe que se inicia la aplicación Microsoft Dynamics 365 Business Central y que aparece la página Statements Card. Escriba el valor 9 en el campo Dificultad y luego presione Entrar.

  23. Compruebe que los cuadros de texto Nivel y Sugerencia se hayan cambiado.