4D v14

Script del vídeo

Inicio

 
4D v14
Script del vídeo

Script del vídeo  


 

 

En este vídeo, vamos a aprender a utilizar las propiedades de dimensionamiento automático de los objetos y entender la posible interacción entre la programación y la gestión de la navegación.

Después de tocar el formulario interventions y la tabla un poco más al añadir texto descriptivo, comentarios, % de avance, identificación única, ahora queremos incluir un botón para enviar mensajes de correo electrónico en el formulario detallado de la tabla interventions.

Este e-mail se enviará a los técnicos a cargo de la intervención.

Para hace esto, tenemos que añadir este botón y la interfaz de entrada del correo electrónico.

Hemos creado un formulario proyecto MAIL, así como también un método DETAIL_FUNCTIONS que vamos a llamar para cancelar o validar una caja de diálogo.
Desde el principio, planeamos utilizar este formulario en otras circunstancias.

Así que todas las áreas del formulario serán variables que podemos llenar con el contenido de los campos de una tabla u otra.

Vamos a hacer las áreas auto ajustables:

  • definiendo el redimensionamiento horizontal "Agrandar"
  • y definiendo el redimensionamiento vertical, para el contenido solamente, "Agrandar"

Ahora debemos indicar el tipo de estas variables.

Ubicar estas líneas de código en el método formulario:

 $evt:=Form event
 Case of
    :($evt=On Load//Inicialización de las variables utilizadas en en el e-mail
       C_TEXT(vSender;vRecipient;vCC;vBCC;vSubject;vContent)
 End case

lo que nos permite inicializar las variables que vamos a utilizar.

Comprobamos que el evento On Load del formulario sea el único seleccionado.

El botón para el envío del e-mail que vamos a programar más adelante es de la librería de imágenes, es el botón "Mail" que se encuentra en los archivos PNG que vienen con la base de ejemplo.
La caja de diálogo está lista. Podemos crear, en la parte inferior del formulario DETAIL Intervention, el botón de llamada de este diálogo.
El método asociado a este botón es:

  //definir el valor de la variable para facilitar la entrada
 vSender:="prof@4d.fr"
 vRecipient:=[Technicians]e-mail
 vCC:=""
 vBCC:=""
 vSubject:="Intervention for the "+String([Interventions]Date_Intervention)+" at "+String([Interventions]Time_Intervention)
 vContent:=[Interventions]Subject+(Char(13)*2)+[Interventions]Description
 
  //Crear la ventana (contenedor) en la que se muestra el diálogo (contenido)
 $Window:=Open form window("MAIL";Plain window;Horizontally centered;Vertically centered)
  //mostrar el diálogo
 DIALOG("MAIL")
  //Una vez se cierra el diálogo, se cierra la ventana
 CLOSE WINDOW($Window)

  • Asignamos valores a las variables si es necesario con las concatenaciones
  • Luego pedimos crear un contenedor, en otras palabras, una ventana
  • Dónde vamos a mostrar el diálogo de correo electrónico
  • Y luego cerramos la ventana.

Ahora vamos a ver si esta caja de diálogo funciona.

Vemos que el botón Technician está en el medio del comentario ya que el comentario es auto ajustable, pero no el botón.

Así que vamos a solucionar este problema, indicando en las propiedades del botón que debe moverse verticalmente cuando se modifique el tamaño del formulario.

Vamos a ver verificar una vez más: ahora el botón se mueve de acuerdo con el tamaño de la ventana.

Vamos a rastrear el método del botón:

  • Verificar que se hayan asignado valores a las variables
  • Crear el contenedor
  • Y mostrar el diálogo.

Encontramos:

  • la información de intervención.
  • el botón de envío del mail que vamos a programar más adelante
  • y si la ventana se reduce o agranda, los objetos se redimensionan directamente.

Por supuesto, es posible modificar todas las variables.

 
PROPIEDADES 

Producto: 4D
Tema: Ventanas y navegación

 
ARTICLE USAGE

Autoformación ( 4D v13)
Autoformación ( 4D v14)